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 624 for trunk/NEMO/LIM_SRC/limdia.F90 – NEMO

Ignore:
Timestamp:
2007-02-27T15:46:47+01:00 (17 years ago)
Author:
opalod
Message:

nemo_v2_bugfix_025:RB: suppress hard-coded logical units except for dimg and coupled

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/LIM_SRC/limdia.F90

    r508 r624  
    241241       ! opening  "ice_evolu" file 
    242242       irecl = ( jpchinf + 1 ) * nvinfo  
    243        OPEN( numevo_ice, file='ice.evolu', status='unknown', RECL = irecl) 
    244        OPEN( numevo_ice, file='ice.evolu', status='unknown') 
     243       CALL ctlopn( numevo_ice, 'ice_evolu', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL',   & 
     244          &           irecl, numout, .TRUE., 1 ) 
    245245 
    246246       !- ecriture de 2 lignes d''entete : 
Note: See TracChangeset for help on using the changeset viewer.