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 843 – NEMO

Changeset 843


Ignore:
Timestamp:
2008-03-12T13:10:27+01:00 (16 years ago)
Author:
ctlod
Message:

Use ctlopen subroutine to open sea-ice namelist file, see ticket:#80

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/LIM_SRC_3/iceini.F90

    r836 r843  
    6868 
    6969      ! Open the namelist file  
    70       OPEN( numnam_ice, FILE= 'namelist_ice', FORM='formatted', STATUS = 'old')  
     70      CALL ctlopn(numnam_ice,'namelist_ice','OLD', 'FORMATTED', 'SEQUENTIAL', 1,numout,.FALSE.,1) 
    7171 
    7272      CALL ice_run                    !  read in namelist some run parameters 
Note: See TracChangeset for help on using the changeset viewer.