Changeset 9610 for NEMO/trunk/src/NST/agrif_ice_interp.F90

Timestamp:

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

Author:

clem

Message:

replace names of the agrif subroutines from si3 to ice

File:

• NEMO/trunk/src/NST/agrif_ice_interp.F90 (modified) (4 diffs)

NEMO/trunk/src/NST/agrif_ice_interp.F90

@@ -14 +14 @@
    !!   'key_agrif' :                                 AGRIF library
    !!----------------------------------------------------------------------
-   !!  agrif_interp_si3    : interpolation of ice at "after" sea-ice time step
+   !!  agrif_interp_ice    : interpolation of ice at "after" sea-ice time step
    !!  agrif_interp_u_ice   : atomic routine to interpolate u_ice 
    !!  agrif_interp_v_ice   : atomic routine to interpolate v_ice 
@@ -29 +29 @@
    PRIVATE
 
-   PUBLIC   agrif_interp_si3   ! called by agrif_user.F90
+   PUBLIC   agrif_interp_ice   ! called by agrif_user.F90
 
    !!----------------------------------------------------------------------
@@ -39 +39 @@
 CONTAINS
 
-   SUBROUTINE agrif_interp_si3( cd_type, kiter, kitermax )
+   SUBROUTINE agrif_interp_ice( cd_type, kiter, kitermax )
       !!-----------------------------------------------------------------------
       !!                 *** ROUTINE agrif_rhg_lim3  ***
@@ -77 +77 @@
       Agrif_UseSpecialValue = .FALSE.
       !
-   END SUBROUTINE agrif_interp_si3
+   END SUBROUTINE agrif_interp_ice