Commit dc171762 authored by MEURDESOIF Yann's avatar MEURDESOIF Yann
Browse files

fix compile error and warning with gcc

YM
parent dd609173
Pipeline #143552 passed with stages
in 3 minutes and 30 seconds
......@@ -13,24 +13,24 @@ MODULE nudging_mod
TYPE(t_field),POINTER,SAVE :: f_coeff_i(:)
TYPE(t_field),POINTER,SAVE :: f_coeff_e(:)
TYPE(t_field),POINTER,SAVE :: f_border(:)
REAL(rstd),SAVE :: coeff_ps
REAL(rstd),SAVE :: coeff_temp
REAL(rstd),SAVE :: coeff_u
REAL(rstd),SAVE :: coeff_q
REAL(rstd) :: coeff_ps
REAL(rstd) :: coeff_temp
REAL(rstd) :: coeff_u
REAL(rstd) :: coeff_q
REAL(rstd),SAVE :: nudging_freq
INTEGER,SAVE :: nudging_zone
REAL(rstd) :: nudging_freq
INTEGER :: nudging_zone
INTEGER, PARAMETER :: nudging_lonlat = 1
INTEGER, PARAMETER :: nudging_circular = 2
INTEGER, PARAMETER :: nudging_area = 3
INTEGER, PARAMETER :: nudging_global = 4
INTEGER,SAVE :: last_itau=-1
LOGICAL,SAVE :: guide_Temp=.TRUE.
LOGICAL,SAVE :: guide_U=.TRUE.
LOGICAL,SAVE :: guide_PS=.TRUE.
LOGICAL,SAVE :: guide_Q=.TRUE.
INTEGER :: last_itau=-1
LOGICAL :: guide_Temp=.TRUE.
LOGICAL :: guide_U=.TRUE.
LOGICAL :: guide_PS=.TRUE.
LOGICAL :: guide_Q=.TRUE.
REAL(rstd) :: temp_tau_in
REAL(rstd) :: temp_tau_out
......@@ -239,7 +239,7 @@ CONTAINS
CALL transfert_request(f_neighbours,req_i0)
CALL transfert_request(f_neighbours,req_i1)
DO n=1, stiffness/2
DO n=1, NINT(stiffness/2)
DO ind = 1 , ndomain
IF (.NOT. assigned_domain(ind)) CYCLE
......@@ -391,7 +391,7 @@ CONTAINS
CALL transfert_request(f_neighbours,req_i0)
CALL transfert_request(f_neighbours,req_i1)
DO n=1, stiffness/2
DO n=1, NINT(stiffness/2)
DO ind = 1 , ndomain
IF (.NOT. assigned_domain(ind)) CYCLE
......@@ -499,14 +499,14 @@ CONTAINS
DO i=ii_begin-1,ii_end+1
ij=(j-1)*iim+i
neighbours(ij)=-1
IF (domain(ind)%outside(i,j)==.TRUE.) THEN
IF (domain(ind)%outside(i,j)) THEN
neighbours(ij)=0
ENDIF
ENDDO
ENDDO
ENDDO
DO n=1, halo_scheme+stiffness
DO n=1, NINT(halo_scheme+stiffness)
DO ind = 1 , ndomain
IF (.NOT. assigned_domain(ind)) CYCLE
CALL swap_dimensions(ind)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment