Changeset 9872 for NEMO/trunk/src/ICE/icestp.F90

Timestamp:

2018-07-04T10:48:01+02:00 (6 years ago)

Author:

clem

Message:

removing the very last bits (I hope) of LIM references in the code

File:

• NEMO/trunk/src/ICE/icestp.F90 (modified) (1 diff)

NEMO/trunk/src/ICE/icestp.F90

@@ -137 +137 @@
          !                          !==  AGRIF Parent to Child  ==!
 #if defined key_agrif
-         !                              ! lim_nbstep ranges from 1 to the nb of child ocean steps inside one parent ice step
-         IF( .NOT. Agrif_Root() )       lim_nbstep = MOD( lim_nbstep, Agrif_irhot() * Agrif_Parent(nn_fsbc) / nn_fsbc ) + 1
+         !                              ! nbstep_ice ranges from 1 to the nb of child ocean steps inside one parent ice step
+         IF( .NOT. Agrif_Root() )       nbstep_ice = MOD( nbstep_ice, Agrif_irhot() * Agrif_Parent(nn_fsbc) / nn_fsbc ) + 1
          !                              ! these calls must remain here for restartability purposes
                                         CALL agrif_interp_ice( 'T' )