Changeset 14001
- Timestamp:
- 2020-12-02T15:06:14+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13312_AGRIF-03-04_jchanut_vinterp_tstep/tests/DOME/MY_SRC/usrdef_istate.F90
r13930 r14001 3 3 !! *** MODULE usrdef_istate *** 4 4 !! 5 !! === OVERFLOWconfiguration ===5 !! === DOME configuration === 6 6 !! 7 7 !! User defined : set the initial state of a user configuration … … 14 14 !!---------------------------------------------------------------------- 15 15 USE par_oce ! ocean space and time domain 16 USE dom_oce , ONLY : gphit17 16 USE phycst ! physical constants 18 17 ! … … 64 63 IF(lwp) WRITE(numout,*) 65 64 IF(lwp) WRITE(numout,*) 'usr_def_istate : DOME configuration, analytical definition of initial state' 66 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~~~ Ocean at rest, with a constant salinity (not used as rho=F(T)'67 IF(lwp) WRITE(numout,*) ' and a vertical density front with a 2 kg/m3 difference located at glam=20km'68 IF(lwp) WRITE(numout,*) ' (i.e. a temperature difference of 10 degrees with rn_a0 = 0.2'65 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~~~ Ocean at rest, filled with a constant stratification ' 66 IF(lwp) WRITE(numout,*) ' salinity is used as a passive tracer here, initially=0' 67 IF(lwp) WRITE(numout,*) ' and set to 1 inside inlet' 69 68 ! 70 69 !
Note: See TracChangeset
for help on using the changeset viewer.