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/SMS/trclsm.pisces.h90 – 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/SMS/trclsm.pisces.h90

    r617 r625  
    6666      ENDIF 
    6767 
    68       numnat=80 
    6968      clname ='namelist.trc.sms' 
    70       OPEN( numnat, FILE= clname, FORM='formatted', STATUS = 'old') 
    71  
     69      CALL ctlopn( numnat, clname, 'OLD', 'FORMATTED', 'SEQUENTIAL',   & 
     70         &           1, numout, .FALSE., 1 ) 
    7271 
    7372      ! 1 Namelist natext : 
Note: See TracChangeset for help on using the changeset viewer.