Changeset 9570 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/ICE_SRC/icedyn_rhg_evp.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)
• icedyn_rhg_evp.F90 (modified) (7 diffs)

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

@@ -12 +12 @@
    !!            3.6  !  2016-06  (C. Rousset) Rewriting + landfast ice + possibility to use mEVP (Bouillon 2013)
    !!----------------------------------------------------------------------
-#if defined key_lim3
+#if defined key_si3
    !!----------------------------------------------------------------------
-   !!   'key_lim3'                                       ESIM sea-ice model
+   !!   'key_si3'                                       SI3 sea-ice model
    !!----------------------------------------------------------------------
    !!   ice_dyn_rhg_evp : computes ice velocities from EVP rheology
@@ -28 +28 @@
    USE bdyice 
 #if defined key_agrif
-   USE agrif_lim3_interp
+   USE agrif_si3_interp
 #endif
    !
@@ -493 +493 @@
             !
 #if defined key_agrif
-!!            CALL agrif_interp_lim3( 'V', jter, nn_nevp )
-            CALL agrif_interp_lim3( 'V' )
+!!            CALL agrif_interp_si3( 'V', jter, nn_nevp )
+            CALL agrif_interp_si3( 'V' )
 #endif
             IF( ln_bdy ) CALL bdy_ice_dyn( 'V' )
@@ -541 +541 @@
             !
 #if defined key_agrif
-!!            CALL agrif_interp_lim3( 'U', jter, nn_nevp )
-            CALL agrif_interp_lim3( 'U' )
+!!            CALL agrif_interp_si3( 'U', jter, nn_nevp )
+            CALL agrif_interp_si3( 'U' )
 #endif
             IF( ln_bdy ) CALL bdy_ice_dyn( 'U' )
@@ -591 +591 @@
             !
 #if defined key_agrif
-!!            CALL agrif_interp_lim3( 'U', jter, nn_nevp )
-            CALL agrif_interp_lim3( 'U' )
+!!            CALL agrif_interp_si3( 'U', jter, nn_nevp )
+            CALL agrif_interp_si3( 'U' )
 #endif
             IF( ln_bdy ) CALL bdy_ice_dyn( 'U' )
@@ -639 +639 @@
             !
 #if defined key_agrif
-!!            CALL agrif_interp_lim3( 'V', jter, nn_nevp )
-            CALL agrif_interp_lim3( 'V' )
+!!            CALL agrif_interp_si3( 'V', jter, nn_nevp )
+            CALL agrif_interp_si3( 'V' )
 #endif
             IF( ln_bdy ) CALL bdy_ice_dyn( 'V' )
@@ -899 +899 @@
 #else
    !!----------------------------------------------------------------------
-   !!   Default option         Empty module           NO ESIM sea-ice model
+   !!   Default option         Empty module           NO SI3 sea-ice model
    !!----------------------------------------------------------------------
 #endif