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/DIA/diaptr.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/DIA/diaptr.F90

    r3764 r3875  
    449449      INTEGER ::   jn           ! dummy loop indices  
    450450      INTEGER ::   inum, ierr   ! local integers 
     451      INTEGER ::   ios          ! Local integer output status for namelist read 
    451452#if defined key_mpp_mpi 
    452453      INTEGER, DIMENSION(1) :: iglo, iloc, iabsf, iabsl, ihals, ihale, idid 
     
    456457      !!---------------------------------------------------------------------- 
    457458 
    458       REWIND( numnam )                 ! Read Namelist namptr : poleward transport parameters 
    459       READ  ( numnam, namptr ) 
     459      REWIND( numnam_ref )              ! Namelist namptr in reference namelist : Poleward transport 
     460      READ  ( numnam_ref, namptr, IOSTAT = ios, ERR = 901) 
     461901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namptr in reference namelist', lwp ) 
     462 
     463      REWIND( numnam_cfg )              ! Namelist namptr in configuration namelist : Poleward transport 
     464      READ  ( numnam_cfg, namptr, IOSTAT = ios, ERR = 902 ) 
     465902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namptr in configuration namelist', lwp ) 
     466      WRITE ( numond, namptr ) 
    460467 
    461468      IF(lwp) THEN                     ! Control print 
Note: See TracChangeset for help on using the changeset viewer.