Changeset 9610 for NEMO/trunk/src/NST/agrif_user.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/NST/agrif_user.F90 (modified) (6 diffs)

NEMO/trunk/src/NST/agrif_user.F90

@@ -62 +62 @@
 # endif
 # if defined key_si3
-   CALL Agrif_InitValues_cont_si3
+   CALL Agrif_InitValues_cont_ice
 # endif
    !
@@ -327 +327 @@
 
 #if defined key_si3
-   CALL agrif_update_si3(0)
+   CALL agrif_update_ice(0)
 #endif
    
@@ -493 +493 @@
 
 #if defined key_si3
-SUBROUTINE Agrif_InitValues_cont_si3
-   !!----------------------------------------------------------------------
-   !!                 *** ROUTINE Agrif_InitValues_cont_si3 ***
+SUBROUTINE Agrif_InitValues_cont_ice
+   !!----------------------------------------------------------------------
+   !!                 *** ROUTINE Agrif_InitValues_cont_ice ***
    !!
    !! ** Purpose :: Initialisation of variables to be interpolated for LIM3
@@ -512 +512 @@
    ! Declaration of the type of variable which have to be interpolated (parent=>child)
    !----------------------------------------------------------------------------------
-   CALL agrif_declare_var_si3
+   CALL agrif_declare_var_ice
 
    ! Controls
@@ -529 +529 @@
    !----------------------------------------------------------------------
    lim_nbstep = ( Agrif_irhot() * Agrif_Parent(nn_fsbc) / nn_fsbc ) ! clem: to have calledweight=1 in interp (otherwise the western border of the zoom is wrong)
-   CALL agrif_interp_si3('U') ! interpolation of ice velocities
-   CALL agrif_interp_si3('V') ! interpolation of ice velocities
-   CALL agrif_interp_si3('T') ! interpolation of ice tracers 
+   CALL agrif_interp_ice('U') ! interpolation of ice velocities
+   CALL agrif_interp_ice('V') ! interpolation of ice velocities
+   CALL agrif_interp_ice('T') ! interpolation of ice tracers 
    lim_nbstep = 0
    
    !
-END SUBROUTINE Agrif_InitValues_cont_si3
-
-SUBROUTINE agrif_declare_var_si3
-   !!----------------------------------------------------------------------
-   !!                 *** ROUTINE agrif_declare_var_si3 ***
+END SUBROUTINE Agrif_InitValues_cont_ice
+
+SUBROUTINE agrif_declare_var_ice
+   !!----------------------------------------------------------------------
+   !!                 *** ROUTINE agrif_declare_var_ice ***
    !!
    !! ** Purpose :: Declaration of variables to be interpolated for LIM3
@@ -590 +590 @@
 #endif
 
-END SUBROUTINE agrif_declare_var_si3
+END SUBROUTINE agrif_declare_var_ice
 #endif