Changeset 6906 for branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/CONFIG/OVERFLOW/MY_SRC/usrdef_istate.F90

Timestamp:

2016-09-02T15:06:17+02:00 (8 years ago)

Author:

flavoni

Message:

#1692 and ROBUST-3 : commit zgr and some update for LOCK EXCHANGE case

File:

• branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/CONFIG/OVERFLOW/MY_SRC/usrdef_istate.F90 (modified) (2 diffs)

branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/CONFIG/OVERFLOW/MY_SRC/usrdef_istate.F90

@@ -50 +50 @@
       !
       INTEGER  ::   jk     ! dummy loop indices
-      REAL(wp) ::   zdam   ! location of dam [m]
+      REAL(wp) ::   zdam   ! location of dam [Km]
       !!----------------------------------------------------------------------
       !
@@ -56 +56 @@
       IF(lwp) WRITE(numout,*) 'usr_def_istate : OVERFLOW configuration, analytical definition of initial state'
       IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~~~   Ocean at rest, with a constant salinity (not used as rho=F(T) '
-      IF(lwp) WRITE(numout,*) '                 and a vertical density front with a 2 kg/m3 difference located'
       IF(lwp) WRITE(numout,*) '                 and a vertical density front with a 2 kg/m3 difference located at glam=20km'
       IF(lwp) WRITE(numout,*) '                 (i.e. a temperature difference of 10 degrees with rn_a0 = 0.2'