Changeset 10512 for NEMO/trunk/src/ICE/icedyn.F90

Timestamp:

2019-01-14T19:53:17+01:00 (5 years ago)

Author:

clem

Message:

change the default options for ice advection

File:

• NEMO/trunk/src/ICE/icedyn.F90 (modified) (2 diffs)

NEMO/trunk/src/ICE/icedyn.F90

@@ -146 +146 @@
          END DO
          ! ---
-         CALL ice_dyn_adv   ( kt )                                       ! -- advection of ice + correction on ice thickness
+         CALL ice_dyn_adv   ( kt )                                       ! -- advection of ice
 
          ! diagnostics: divergence at T points 
@@ -167 +167 @@
          !CALL RANDOM_NUMBER(v_ice(:,:)) ; v_ice(:,:) = v_ice(:,:) * 0.1 + rn_vice * 0.9 * vmask(:,:,1)
          ! ---
-         CALL ice_dyn_adv   ( kt )   ;   CALL Hbig( zhi_max, zhs_max, zhip_max )   ! -- advection of ice + correction on ice thickness
+         CALL ice_dyn_adv   ( kt )                                       ! -- advection of ice
 
          ! diagnostics: divergence at T points