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/TOP_SRC/PISCES/P4Z/p4zsink.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/TOP_SRC/PISCES/P4Z/p4zsink.F90

    r3829 r3875  
    538538      !!---------------------------------------------------------------------- 
    539539      INTEGER  ::   jk, jn, kiter 
     540      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    540541      REAL(wp) ::   znum, zdiv 
    541542      REAL(wp) ::   zws, zwr, zwl,wmax, znummax 
     
    548549      IF( nn_timing == 1 )  CALL timing_start('p4z_sink_init') 
    549550      ! 
    550       REWIND( numnatp )                     ! read nampiskrs 
    551       READ  ( numnatp, nampiskrs ) 
     551 
     552      REWIND( numnatp_ref )              ! Namelist nampiskrs in reference namelist : Pisces sinking Kriest 
     553      READ  ( numnatp_ref, nampiskrs, IOSTAT = ios, ERR = 901) 
     554901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiskrs in reference namelist', lwp ) 
     555 
     556      REWIND( numnatp_cfg )              ! Namelist nampiskrs in configuration namelist : Pisces sinking Kriest 
     557      READ  ( numnatp_cfg, nampiskrs, IOSTAT = ios, ERR = 902 ) 
     558902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiskrs in configuration namelist', lwp ) 
     559      WRITE ( numonp, nampiskrs ) 
    552560 
    553561      IF(lwp) THEN 
Note: See TracChangeset for help on using the changeset viewer.