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/OPA_SRC/opa.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/OPA_SRC/opa.F90

    r599 r624  
    190190       
    191191      ! open listing and namelist units 
    192       IF ( numout /= 0 .AND. numout /= 6 ) THEN  
    193          CALL ctlopn( numout, file_out, 'UNKNOWN', 'FORMATTED',   & 
    194             &         'SEQUENTIAL', 1, numout, .FALSE., 1 ) 
    195       ENDIF 
     192      CALL ctlopn( numout, file_out, 'UNKNOWN', 'FORMATTED',   & 
     193         &         'SEQUENTIAL', 1, numout, .FALSE., 1 ) 
    196194 
    197195      WRITE(numout,*) 
Note: See TracChangeset for help on using the changeset viewer.