Changeset 1466 for trunk/NEMO/OPA_SRC/SBC/sbc_ice.F90

Timestamp:

2009-06-11T09:48:51+02:00 (15 years ago)

Author:

smasson

Message:

replace cice_grid by cigr_type, see ticket:449

File:

• trunk/NEMO/OPA_SRC/SBC/sbc_ice.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/SBC/sbc_ice.F90

@@ -24 +24 @@
    LOGICAL         , PUBLIC, PARAMETER ::   lk_lim2        = .TRUE.    !: LIM-2 ice model
    LOGICAL         , PUBLIC, PARAMETER ::   lk_lim3        = .FALSE.   !: no LIM-3
-   CHARACTER(len=1), PUBLIC            ::   cice_grid      = 'B'       !: 'B'-grid ice-velocity
+   CHARACTER(len=1), PUBLIC            ::   cigr_type      = 'B'       !: 'B'-grid ice-velocity
 # endif
 # if defined  key_lim3
    LOGICAL         , PUBLIC, PARAMETER ::   lk_lim2        = .FALSE.   !: no LIM-2
    LOGICAL         , PUBLIC, PARAMETER ::   lk_lim3        = .TRUE.    !: LIM-3 ice model
-   CHARACTER(len=1), PUBLIC            ::   cice_grid      = 'C'       !: 'C'-grid ice-velocity
+   CHARACTER(len=1), PUBLIC            ::   cigr_type      = 'C'       !: 'C'-grid ice-velocity
 # endif
 
@@ -57 +57 @@
    LOGICAL         , PUBLIC, PARAMETER ::   lk_lim2        = .FALSE.  !: no LIM-2 ice model
    LOGICAL         , PUBLIC, PARAMETER ::   lk_lim3        = .FALSE.  !: no LIM-3 ice model
-   CHARACTER(len=1), PUBLIC            ::   cice_grid      = '-'      !: no grid ice-velocity
+   CHARACTER(len=1), PUBLIC            ::   cigr_type      = '-'      !: no grid ice-velocity
 
 #endif