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 1635 for trunk/NEMO/OPA_SRC/step.F90 – NEMO

Ignore:
Timestamp:
2009-10-02T11:26:40+02:00 (15 years ago)
Author:
smasson
Message:

bugfix for diahth variables when outputed without iom_put, see ticket:550

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/step.F90

    r1594 r1635  
    240240      ! diagnostics and outputs             (ua, va, ta, sa used as workspace) 
    241241      !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
    242                          CALL dia_wri( kstp )         ! ocean model: outputs 
    243242      IF( lk_floats  )   CALL flo_stp( kstp )         ! drifting Floats 
    244243      IF( lk_diahth  )   CALL dia_hth( kstp )         ! Thermocline depth (20 degres isotherm depth) 
    … …  
    247246      IF( lk_diafwb  )   CALL dia_fwb( kstp )         ! Fresh water budget diagnostics 
    248247      IF( ln_diaptr  )   CALL dia_ptr( kstp )         ! Poleward TRansports diagnostics 
     248                         CALL dia_wri( kstp )         ! ocean model: outputs 
    249249 
    250250#if defined key_top 
Note: See TracChangeset for help on using the changeset viewer.