Changeset 10513 for NEMO/trunk/tests/ICE_ADV1D/MY_SRC/usrdef_hgr.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_hgr.F90
r10413 r10513 3 3 !! *** MODULE usrdef_hgr *** 4 4 !! 5 !! === ICE ADVconfiguration ===5 !! === ICE_ADV1D configuration === 6 6 !! 7 7 !! User defined : mesh and Coriolis parameter of a user configuration … … 11 11 12 12 !!---------------------------------------------------------------------- 13 !! usr_def_hgr : initialize the horizontal mesh for ICE ADVconfiguration13 !! usr_def_hgr : initialize the horizontal mesh for ICE_ADV1D configuration 14 14 !!---------------------------------------------------------------------- 15 15 USE dom_oce ! ocean space and time domain … … 45 45 !! 46 46 !! ** Method : set all intent(out) argument to a proper value 47 !! ICE ADVconfiguration : uniform grid spacing (rn_dx)47 !! ICE_ADV1D configuration : uniform grid spacing (rn_dx) 48 48 !! without Coriolis force (f=0) 49 49 !! … … 68 68 ! 69 69 IF(lwp) WRITE(numout,*) 70 IF(lwp) WRITE(numout,*) 'usr_def_hgr : ICE ADVconfiguration bassin'70 IF(lwp) WRITE(numout,*) 'usr_def_hgr : ICE_ADV1D configuration bassin' 71 71 IF(lwp) WRITE(numout,*) 72 72 IF(lwp) WRITE(numout,*) ' f-plane with regular grid-spacing rn_dx, rn_dy'
Note: See TracChangeset
for help on using the changeset viewer.