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 625 for trunk/NEMO/TOP_SRC/trclec.F90 – NEMO

Ignore:
Timestamp:
2007-02-27T16:51:00+01:00 (17 years ago)
Author:
opalod
Message:

nemo_v2_bugfix_025:RB: suppress hard-coded logical units

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/TOP_SRC/trclec.F90

    r433 r625  
    8989      ENDIF 
    9090 
    91       numnat=80 
    92       REWIND (numnat) 
    93  
    9491      clname='namelist.passivetrc' 
    95       OPEN( numnat, FILE= clname, FORM='formatted', STATUS = 'old') 
     92      CALL ctlopn( numnat, clname, 'OLD', 'FORMATTED', 'SEQUENTIAL',   & 
     93         &         1, numout, .FALSE., 1 ) 
     94 
    9695 
    9796      !! 1., 2. & 3. initialization with namelist files 
Note: See TracChangeset for help on using the changeset viewer.