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 7668 for branches/2017/dev_r7663_ISOMIP_TEST_CASE/NEMOGCM/CONFIG/TEST_CASES/ISOMIP/MY_SRC/usrdef_istate.F90 – NEMO

Ignore:
Timestamp:
2017-02-10T18:04:33+01:00 (7 years ago)
Author:
mathiot
Message:

Change location of ISOMIP, add plot routine and expected melt/moc/psi figure and README

Location:
branches/2017/dev_r7663_ISOMIP_TEST_CASE/NEMOGCM/CONFIG/TEST_CASES/ISOMIP
Files:
1 edited
1 moved

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_r7663_ISOMIP_TEST_CASE/NEMOGCM/CONFIG/TEST_CASES/ISOMIP/MY_SRC/usrdef_istate.F90

    r7208 r7668  
    77   !! User defined : set the initial state of a user configuration 
    88   !!====================================================================== 
    9    !! History :  NEMO ! 2016-11 (S. Flavoni) Original code 
     9   !! History :  NEMO ! 2016-11 (S. Flavoni)             Original code 
     10   !!                 ! 2017-02 (P. Mathiot, S. Flavoni) Adapt code to ISOMIP case 
    1011   !!---------------------------------------------------------------------- 
    1112 
    … …  
    5455      IF(lwp) WRITE(numout,*) 
    5556      IF(lwp) WRITE(numout,*) 'usr_def_istate : ISOMIP configuration, analytical definition of initial state' 
    56       IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~~~   Ocean at rest, with a constant salinity (not used as rho=F(T) ' 
     57      IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~~~   Ocean at rest, with a constant salinity and temperature.      ' 
    5758      pu  (:,:,:) = 0._wp        ! ocean at rest 
    5859      pv  (:,:,:) = 0._wp 
Note: See TracChangeset for help on using the changeset viewer.