Changeset 9654 for NEMO/trunk/src/OCE/SBC/sbc_ice.F90
- Timestamp:
- 2018-05-28T11:08:53+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/SBC/sbc_ice.F90
r9598 r9654 11 11 #if defined key_si3 || defined key_cice 12 12 !!---------------------------------------------------------------------- 13 !! 'key_si3' or 'key_cice' : LIM-3 or CICE sea-ice model13 !! 'key_si3' or 'key_cice' : SI3 or CICE sea-ice model 14 14 !!---------------------------------------------------------------------- 15 15 USE par_oce ! ocean parameters … … 30 30 31 31 # if defined key_si3 32 LOGICAL , PUBLIC, PARAMETER :: lk_ lim3= .TRUE. !: LIM-3 ice model32 LOGICAL , PUBLIC, PARAMETER :: lk_si3 = .TRUE. !: LIM-3 ice model 33 33 LOGICAL , PUBLIC, PARAMETER :: lk_cice = .FALSE. !: no CICE 34 34 CHARACTER(len=1), PUBLIC, PARAMETER :: cp_ice_msh = 'C' !: 'C'-grid ice-velocity 35 35 # endif 36 36 # if defined key_cice 37 LOGICAL , PUBLIC, PARAMETER :: lk_ lim3= .FALSE. !: no LIM-337 LOGICAL , PUBLIC, PARAMETER :: lk_si3 = .FALSE. !: no LIM-3 38 38 LOGICAL , PUBLIC, PARAMETER :: lk_cice = .TRUE. !: CICE ice model 39 39 CHARACTER(len=1), PUBLIC :: cp_ice_msh = 'F' !: 'F'-grid ice-velocity … … 157 157 #else 158 158 !!---------------------------------------------------------------------- 159 !! Default option NO LIM3 or CICE sea-ice model159 !! Default option NO SI3 or CICE sea-ice model 160 160 !!---------------------------------------------------------------------- 161 161 USE lib_mpp ! MPP library … … 167 167 PUBLIC sbc_ice_alloc ! 168 168 169 LOGICAL , PUBLIC, PARAMETER :: lk_ lim3= .FALSE. !: no LIM-3 ice model169 LOGICAL , PUBLIC, PARAMETER :: lk_si3 = .FALSE. !: no LIM-3 ice model 170 170 LOGICAL , PUBLIC, PARAMETER :: lk_cice = .FALSE. !: no CICE ice model 171 171 CHARACTER(len=1), PUBLIC, PARAMETER :: cp_ice_msh = '-' !: no grid ice-velocity
Note: See TracChangeset
for help on using the changeset viewer.