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

Changeset 1101


Ignore:
Timestamp:
2008-06-09T15:41:57+02:00 (16 years ago)
Author:
cetlod
Message:

update opa.F90 main routine for OFFLINE option, see ticket:207

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OFF_SRC/opa.F90

    r1014 r1101  
    112112      lwp   = narea == 1 
    113113 
    114       IF( lk_mpp )   THEN 
    115          CLOSE( numout )       ! standard model output file 
    116          WRITE(file_out,FMT="('ocean.output_',I4.4)") narea-1 
    117          CALL ctlopn( numout, file_out, 'UNKNOWN', 'FORMATTED',   & 
    118             &         'SEQUENTIAL', 1, numout, .FALSE., 1 ) 
    119          ! 
    120          WRITE(numout,*) 
    121          WRITE(numout,*) '                 L O D Y C - I P S L' 
    122          WRITE(numout,*) '                     O P A model' 
    123          WRITE(numout,*) '            Ocean General Circulation Model' 
    124          WRITE(numout,*) '               version OPA 9.0  (2005) ' 
    125          WRITE(numout,*) '                   MPI Ocean output ' 
    126          WRITE(numout,*) 
    127          WRITE(numout,*) 
     114      ! open additionnal listing 
     115      IF( ln_ctl )   THEN 
     116         IF( narea-1 > 0 )   THEN 
     117            WRITE(file_out,FMT="('ocean.output_',I4.4)") narea-1 
     118            CALL ctlopn( numout, file_out, 'UNKNOWN', 'FORMATTED',   & 
     119               &         'SEQUENTIAL', 1, numout, .FALSE., 1 ) 
     120            lwp = .TRUE. 
     121            ! 
     122            WRITE(numout,*) 
     123            WRITE(numout,*) '                 L O D Y C - I P S L' 
     124            WRITE(numout,*) '                     O P A model' 
     125            WRITE(numout,*) '            Ocean General Circulation Model' 
     126            WRITE(numout,*) '               version OPA 9.0  (2005) ' 
     127            WRITE(numout,*) '                   MPI Ocean output ' 
     128            WRITE(numout,*) 
     129            WRITE(numout,*) 
     130         ENDIF 
    128131      ENDIF 
    129132 
Note: See TracChangeset for help on using the changeset viewer.