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 3875 for branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90 – NEMO

Ignore:
Timestamp:
2013-04-18T16:38:06+02:00 (11 years ago)
Author:
clevy
Message:

Configuration Setting/Step? 1, see ticket:#1074

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

    r3764 r3875  
    9999      !!---------------------------------------------------------------------- 
    100100      INTEGER ::   ioptio, ibat   ! local integer 
     101      INTEGER ::   ios 
    101102      ! 
    102103      NAMELIST/namzgr/ ln_zco, ln_zps, ln_sco 
     
    105106      IF( nn_timing == 1 )   CALL timing_start('dom_zgr') 
    106107      ! 
    107       REWIND( numnam )                 ! Read Namelist namzgr : vertical coordinate' 
    108       READ  ( numnam, namzgr ) 
     108      REWIND( numnam_ref )              ! Namelist namzgr in reference namelist : Vertical coordinate 
     109      READ  ( numnam_ref, namzgr, IOSTAT = ios, ERR = 901 ) 
     110901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr in reference namelist', lwp ) 
     111 
     112      REWIND( numnam_cfg )              ! Namelist namzgr in configuration namelist : Vertical coordinate 
     113      READ  ( numnam_cfg, namzgr, IOSTAT = ios, ERR = 902 ) 
     114902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr in configuration namelist', lwp ) 
     115      WRITE ( numond, namzgr ) 
    109116 
    110117      IF(lwp) THEN                     ! Control print 
     
    11001107      INTEGER  ::   ji, jj, jk, jl           ! dummy loop argument 
    11011108      INTEGER  ::   iip1, ijp1, iim1, ijm1   ! temporary integers 
     1109      INTEGER  ::   ios                      ! Local integer output status for namelist read 
    11021110      REAL(wp) ::   zrmax, ztaper   ! temporary scalars 
    11031111      ! 
     
    11121120      CALL wrk_alloc( jpi, jpj,      zenv, ztmp, zmsk, zri, zrj, zhbat                           ) 
    11131121      ! 
    1114       REWIND( numnam )                       ! Read Namelist namzgr_sco : sigma-stretching parameters 
    1115       READ  ( numnam, namzgr_sco ) 
     1122      REWIND( numnam_ref )              ! Namelist namzgr_sco in reference namelist : Sigma-stretching parameters 
     1123      READ  ( numnam_ref, namzgr_sco, IOSTAT = ios, ERR = 901) 
     1124901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr_sco in reference namelist', lwp ) 
     1125 
     1126      REWIND( numnam_cfg )              ! Namelist namzgr_sco in configuration namelist : Sigma-stretching parameters 
     1127      READ  ( numnam_cfg, namzgr_sco, IOSTAT = ios, ERR = 902 ) 
     1128902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr_sco in configuration namelist', lwp ) 
     1129      WRITE ( numond, namzgr_sco ) 
    11161130 
    11171131      IF(lwp) THEN                           ! control print 
    11181132         WRITE(numout,*) 
    1119          WRITE(numout,*) 'dom:zgr_sco : s-coordinate or hybrid z-s-coordinate' 
     1133         WRITE(numout,*) 'domzgr_sco : s-coordinate or hybrid z-s-coordinate' 
    11201134         WRITE(numout,*) '~~~~~~~~~~~' 
    11211135         WRITE(numout,*) '   Namelist namzgr_sco' 
Note: See TracChangeset for help on using the changeset viewer.