Changeset 10513 for NEMO/trunk/tests/ICE_ADV1D/MY_SRC/usrdef_zgr.F90
- Timestamp:
- 2019-01-15T14:43:24+01:00 (5 years ago)
- Location:
- NEMO/trunk/tests/ICE_ADV1D
- Files:
-
- 1 edited
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/tests/ICE_ADV1D/MY_SRC/usrdef_zgr.F90
r10413 r10513 3 3 !! *** MODULE usrdef_zgr *** 4 4 !! 5 !! === ICE ADVcase ===5 !! === ICE_ADV1D case === 6 6 !! 7 7 !! Ocean domain : user defined vertical coordinate system … … 59 59 ! 60 60 IF(lwp) WRITE(numout,*) 61 IF(lwp) WRITE(numout,*) 'usr_def_zgr : ICE ADVconfiguration (slab ocean - advection of ice in one direction)'61 IF(lwp) WRITE(numout,*) 'usr_def_zgr : ICE_ADV1D configuration (slab ocean - advection of ice in one direction)' 62 62 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 63 63 ! 64 64 ! 65 ! type of vertical coordinate ==>>> here ICE ADV: slab ocean always65 ! type of vertical coordinate ==>>> here ICE_ADV1D : slab ocean always 66 66 ! --------------------------- 67 67 ld_zco = .TRUE. ! z-full-step coordinate
Note: See TracChangeset
for help on using the changeset viewer.