Changeset 9570 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/ICE_SRC/icestp.F90

Timestamp:

2018-05-11T12:53:25+02:00 (6 years ago)

Author:

nicolasmartin

Message:

Global renaming for core routines (./NEMO)

• Folders
  • LIM_SRC_3 -> ICE_SRC
  • OPA_SRC -> OCE_SRC
• CPP key: key_lim3 -> key_si3
• Modules, (sub)routines and variables names
  • MPI: mpi_comm_opa -> mpi_comm_oce, MPI_COMM_OPA -> MPI_COMM_OCE, mpi_init_opa -> mpi_init_oce
  • AGRIF: agrif_opa_* -> agrif_oce_*, agrif_lim3_* -> agrif_si3_* and few more
  • TOP-PISCES: p.zlim -> p.zice, namp.zlim -> namp.zice
• Comments
  • NEMO/OPA -> NEMO/OCE
  • ESIM|LIM3 -> SI3

Location:

branches/2017/dev_merge_2017/NEMOGCM/NEMO/ICE_SRC

Files:

• . (moved) (moved from branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3)
• icestp.F90 (modified) (6 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/ICE_SRC/icestp.F90

@@ -3 +3 @@
    !!                       ***  MODULE  icestp  ***
    !! Surface module :  update the ocean surface boundary condition over ice
-   !!                   covered area using ESIM sea-ice model
+   !!                   covered area using SI3 sea-ice model
    !!=====================================================================
    !! History :  2.0  ! 2006-12  (M. Vancoppenolle) Original code
@@ -14 +14 @@
    !!            4.0  ! 2016-06  (L. Brodeau) new unified bulk routine (based on AeroBulk)
    !!----------------------------------------------------------------------
-#if defined key_lim3
-   !!----------------------------------------------------------------------
-   !!   'key_lim3'                                       ESIM sea-ice model
+#if defined key_si3
+   !!----------------------------------------------------------------------
+   !!   'key_si3'                                       SI3 sea-ice model
    !!----------------------------------------------------------------------
    !!   ice_stp       : sea-ice model time-stepping and update ocean SBC over ice-covered area
@@ -50 +50 @@
 # if defined key_agrif
    USE agrif_ice
-   USE agrif_lim3_interp
+   USE agrif_si3_interp
 # endif
    !
@@ -120 +120 @@
          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_lim3( 'T' ) 
-                                        CALL agrif_interp_lim3( 'U' )
-                                        CALL agrif_interp_lim3( 'V' )
+                                        CALL agrif_interp_si3( 'T' ) 
+                                        CALL agrif_interp_si3( 'U' )
+                                        CALL agrif_interp_si3( 'V' )
 #endif
                                         CALL store_fields             ! Store now ice values
@@ -176 +176 @@
          !
 !! clem: one should switch the calculation of the fluxes onto the parent grid but the following calls do not work
-!!       moreover it should only be called at the update frequency (as in agrif_lim3_update.F90)
+!!       moreover it should only be called at the update frequency (as in agrif_si3_update.F90)
 !# if defined key_agrif
 !         IF( .NOT. Agrif_Root() )     CALL Agrif_ChildGrid_To_ParentGrid()
@@ -422 +422 @@
 #else
    !!----------------------------------------------------------------------
-   !!   Default option           Dummy module         NO ESIM sea-ice model
+   !!   Default option           Dummy module         NO SI3 sea-ice model
    !!----------------------------------------------------------------------
 CONTAINS