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

Timestamp:

2018-05-18T16:29:56+02:00 (6 years ago)

Author:

clem

Message:

replace names of the agrif subroutines from si3 to ice

File:

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

NEMO/trunk/src/ICE/icestp.F90

@@ -132 +132 @@
          IF( .NOT. Agrif_Root() )       lim_nbstep = MOD( lim_nbstep, Agrif_irhot() * Agrif_Parent(nn_fsbc) / nn_fsbc ) + 1
          !                              ! these calls must remain here for restartability purposes
-                                        CALL agrif_interp_si3( 'T' ) 
-                                        CALL agrif_interp_si3( 'U' )
-                                        CALL agrif_interp_si3( 'V' )
+                                        CALL agrif_interp_ice( 'T' ) 
+                                        CALL agrif_interp_ice( 'U' )
+                                        CALL agrif_interp_ice( 'V' )
 #endif
                                         CALL store_fields             ! Store now ice values