Changeset 8491 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icecor.F90

Timestamp:

2017-09-01T18:15:45+02:00 (7 years ago)

Author:

clem

Message:

debug icevar.F90

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icecor.F90 (modified) (1 diff)

branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icecor.F90

@@ -124 +124 @@
             DO jj = 1, jpj 
                DO ji = 1, jpi
-                  zsal = smv_i(ji,jj,jl)
-                  smv_i(ji,jj,jl) = MIN(  MAX( rn_simin*v_i(ji,jj,jl) , smv_i(ji,jj,jl) ) , rn_simax*v_i(ji,jj,jl)  )
-                  ! associated salt flux
-                  sfx_res(ji,jj) = sfx_res(ji,jj) - ( smv_i(ji,jj,jl) - zsal ) * zzc
+                  IF( v_i(ji,jj,jl) > 0._wp ) THEN   ! clem: useless IF ???
+                     zsal = smv_i(ji,jj,jl)
+                     smv_i(ji,jj,jl) = MIN(  MAX( rn_simin*v_i(ji,jj,jl) , smv_i(ji,jj,jl) ) , rn_simax*v_i(ji,jj,jl)  )
+                     ! associated salt flux
+                     sfx_res(ji,jj) = sfx_res(ji,jj) - ( smv_i(ji,jj,jl) - zsal ) * zzc
+                  ENDIF
                END DO
             END DO