Changeset 10411 for NEMO/branches/2018/dev_r9947_SI3_advection/src/ICE/icedyn.F90

Timestamp:

2018-12-18T16:57:34+01:00 (5 years ago)

Author:

clem

Message:

make all the sette tests successful

File:

• NEMO/branches/2018/dev_r9947_SI3_advection/src/ICE/icedyn.F90 (modified) (2 diffs)

NEMO/branches/2018/dev_r9947_SI3_advection/src/ICE/icedyn.F90

@@ -218 +218 @@
                   !                               ! -- check h_i -- !
                   ! if h_i is larger than the surrounding 9 pts => reduce h_i and increase a_i
-                  zhi = v_i (ji,jj,jl) / a_i(ji,jj,jl)
+                  zhi = v_i(ji,jj,jl) / a_i(ji,jj,jl)
 !!clem                  zdv = v_i(ji,jj,jl) - v_i_b(ji,jj,jl)  
 !!clem                  IF ( ( zdv >  0.0 .AND. zh > phmax(ji,jj,jl) .AND. at_i_b(ji,jj) < 0.80 ) .OR. &
@@ -228 +228 @@
                   !                               ! -- check h_s -- !
                   ! if h_s is larger than the surrounding 9 pts => put the snow excess in the ocean
-                  zhs = v_s (ji,jj,jl) / a_i(ji,jj,jl)
+                  zhs = v_s(ji,jj,jl) / a_i(ji,jj,jl)
                   IF( v_s(ji,jj,jl) > 0._wp .AND. zhs > phs_max(ji,jj,jl) .AND. a_i(ji,jj,jl) < 0.15 ) THEN
                      zfra = a_i(ji,jj,jl) * phs_max(ji,jj,jl) / MAX( v_s(ji,jj,jl), epsi20 )