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/LIM_SRC_2/limdia_2.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/LIM_SRC_2/limdia_2.F90

    r3625 r3875  
    176176       INTEGER  ::   jv   ! dummy loop indice 
    177177       INTEGER  ::   ntot , ndeb, nv, ierr   ! local integer 
     178       INTEGER  ::   ios                     ! Local integer output status for namelist read 
    178179       REAL(wp) ::   zxx0, zxx1              ! local scalars 
    179180 
    180181       NAMELIST/namicedia/fmtinf, nfrinf, ninfo, ntmoy 
    181182       !!------------------------------------------------------------------- 
    182  
    183        REWIND( numnam_ice )                     ! Read Namelist namicedia 
    184        READ  ( numnam_ice  , namicedia ) 
     183                     
     184       REWIND( numnam_ice_ref )              ! Namelist namicedia in reference namelist : Ice diagnostics in ice_evolu 
     185       READ  ( numnam_ice_ref, namicedia, IOSTAT = ios, ERR = 901) 
     186901    IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedia in reference namelist', lwp ) 
     187 
     188       REWIND( numnam_ice_cfg )              ! Namelist namicedia in configuration namelist : Ice diagnostics in ice_evolu  
     189       READ  ( numnam_ice_cfg, namicedia, IOSTAT = ios, ERR = 902 ) 
     190902    IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedia in configuration namelist', lwp ) 
     191       WRITE ( numoni, namicedia ) 
    185192        
    186193       IF(lwp) THEN                             ! control print 
Note: See TracChangeset for help on using the changeset viewer.