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 4298 for branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/LIM_SRC_3/limitd_me.F90 – NEMO

Ignore:
Timestamp:
2013-11-20T19:24:53+01:00 (10 years ago)
Author:
clem
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/LIM_SRC_3/limitd_me.F90

    r4293 r4298  
    14771477      !! ** input   :   Namelist namiceitdme 
    14781478      !!------------------------------------------------------------------- 
     1479      INTEGER :: ios                 ! Local integer output status for namelist read 
    14791480      NAMELIST/namiceitdme/ ridge_scheme_swi, Cs, Cf, fsnowrdg, fsnowrft,&  
    14801481         Gstar, astar,                                & 
     
    14841485      !!------------------------------------------------------------------- 
    14851486      ! 
    1486       REWIND( numnam_ice )                   ! read namiceitdme namelist 
    1487       READ  ( numnam_ice , namiceitdme) 
     1487      REWIND( numnam_ice_ref )              ! Namelist namicetdme in reference namelist : Ice mechanical ice redistribution 
     1488      READ  ( numnam_ice_ref, namiceitdme, IOSTAT = ios, ERR = 901) 
     1489901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceitdme in reference namelist', lwp ) 
     1490 
     1491      REWIND( numnam_ice_cfg )              ! Namelist namiceitdme in configuration namelist : Ice mechanical ice redistribution 
     1492      READ  ( numnam_ice_cfg, namiceitdme, IOSTAT = ios, ERR = 902 ) 
     1493902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceitdme in configuration namelist', lwp ) 
     1494      WRITE ( numoni, namiceitdme ) 
    14881495      ! 
    14891496      IF (lwp) THEN                          ! control print 
Note: See TracChangeset for help on using the changeset viewer.