New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 14001 for NEMO – NEMO

Changeset 14001 for NEMO


Ignore:
Timestamp:
2020-12-02T15:06:14+01:00 (3 years ago)
Author:
jchanut
Message:

#2222, improve comments for DOME test case

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  
    33   !!                       ***  MODULE usrdef_istate  *** 
    44   !! 
    5    !!                      ===  OVERFLOW configuration  === 
     5   !!                        ===  DOME configuration  === 
    66   !! 
    77   !! User defined : set the initial state of a user configuration 
     
    1414   !!---------------------------------------------------------------------- 
    1515   USE par_oce        ! ocean space and time domain 
    16    USE dom_oce , ONLY : gphit  
    1716   USE phycst         ! physical constants 
    1817   ! 
     
    6463      IF(lwp) WRITE(numout,*) 
    6564      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'  
    6968      ! 
    7069      ! 
Note: See TracChangeset for help on using the changeset viewer.