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 10759 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/step.F90 – NEMO

Ignore:
Timestamp:
2019-03-15T12:06:27+01:00 (5 years ago)
Author:
andmirek
Message:

GMED 450 write output.namelist.dyn only for nprint > 2

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/step.F90

    r10149 r10759  
    380380      IF( kstp == nit000   )   THEN 
    381381                 CALL iom_close( numror )     ! close input  ocean restart file 
    382          IF(lwm) CALL FLUSH    ( numond )     ! flush output namelist oce 
     382         IF(lwm .AND. numond /= -1) CALL FLUSH    ( numond )     ! flush output namelist oce 
    383383         IF( lwm.AND.numoni /= -1 ) CALL FLUSH    ( numoni )     ! flush output namelist ice 
    384384      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.