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

NEMO/trunk/src/NST/agrif_ice_update.F90

@@ -17 +17 @@
    !!   'key_agrif' :                                 AGRIF library 
    !!----------------------------------------------------------------------
-   !!   agrif_update_si3  : update sea-ice on boundaries or total
+   !!   agrif_update_ice  : update sea-ice on boundaries or total
    !!                        child domain for velocities and ice properties
    !!   update_tra_ice     : sea-ice properties
@@ -33 +33 @@
    PRIVATE
 
-   PUBLIC   agrif_update_si3   ! called by agrif_user.F90 and icestp.F90
+   PUBLIC   agrif_update_ice   ! called by agrif_user.F90 and icestp.F90
 
    !!----------------------------------------------------------------------
@@ -42 +42 @@
 CONTAINS
 
-   SUBROUTINE agrif_update_si3( kt )
+   SUBROUTINE agrif_update_ice( kt )
       !!----------------------------------------------------------------------
-      !!                     *** ROUTINE agrif_update_si3 ***
+      !!                     *** ROUTINE agrif_update_ice ***
       !! ** Method  :   Call the hydrostaticupdate pressure at the boundary or the entire domain 
       !!
@@ -70 +70 @@
       Agrif_UseSpecialValueInUpdate = .FALSE.
       !
-   END SUBROUTINE agrif_update_si3
+   END SUBROUTINE agrif_update_ice