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 6914 for branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/CONFIG/LOCK_EXCHANGE/MY_SRC/usrdef_nam.F90 – NEMO

Ignore:
Timestamp:
2016-09-06T13:27:38+02:00 (8 years ago)
Author:
gm
Message:

#1692 - branch SIMPLIF_2_usrdef: final adjustment of OVERFLOW and LOCK-ECHANGE configuration

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/CONFIG/LOCK_EXCHANGE/MY_SRC/usrdef_nam.F90

    r6906 r6914  
    1515   !!---------------------------------------------------------------------- 
    1616   USE dom_oce  , ONLY: nimpp , njmpp            ! i- & j-indices of the local domain 
    17    USE dom_oce  , ONLY: ln_zco, ln_zps, ln_sco   ! flag of type of coordinate       !!gm NOT SURE ! 
    1817   USE par_oce        ! ocean space and time domain 
    1918   USE phycst         ! physical constants 
    … …  
    5756      INTEGER ::   ios, ii   ! Local integer 
    5857      !! 
    59       NAMELIST/namusr_def/ ln_zco, ln_zps, ln_sco, rn_dx, rn_dz 
     58      NAMELIST/namusr_def/ rn_dx, rn_dz 
    6059      !!---------------------------------------------------------------------- 
    6160      ! 
    … …  
    7877      WRITE(ldtxt(ii),*) '~~~~~~~~~~~ '                                                                 ;   ii = ii + 1 
    7978      WRITE(ldtxt(ii),*) '   Namelist namusr_def : LOCK_EXCHANGE test case'                             ;   ii = ii + 1 
    80       WRITE(ldtxt(ii),*) '      type of vertical coordinate : '                                         ;   ii = ii + 1 
    81       WRITE(ldtxt(ii),*) '         z-coordinate flag                     ln_zco = ', ln_zco             ;   ii = ii + 1 
    82       WRITE(ldtxt(ii),*) '         z-partial-step coordinate flag        ln_zps = ', ln_sco             ;   ii = ii + 1 
    83       WRITE(ldtxt(ii),*) '         s-coordinate flag                     ln_sco = ', ln_sco             ;   ii = ii + 1 
    8479      WRITE(ldtxt(ii),*) '      horizontal resolution                    rn_dx  = ', rn_dx, ' meters'   ;   ii = ii + 1 
    8580      WRITE(ldtxt(ii),*) '      vertical   resolution                    rn_dz  = ', rn_dz, ' meters'   ;   ii = ii + 1 
Note: See TracChangeset for help on using the changeset viewer.