Ignore:
Timestamp:
2017-08-25T10:31:40+02:00 (4 years ago)
Author:
timgraham
Message:

#1934 and #1935 - correct KE calculation in diawri.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/step.F90

    r7494 r8464  
    234234      IF( lk_diaar5  )      CALL dia_ar5( kstp )         ! ar5 diag 
    235235      IF( lk_diaharm )      CALL dia_harm( kstp )        ! Tidal harmonic analysis 
    236                             CALL dia_prod( kstp )        ! ocean model: product diagnostics 
     236      IF( lk_diaprod )      CALL dia_prod( kstp )        ! ocean model: product diagnostics 
    237237                            CALL dia_wri( kstp )         ! ocean model: outputs 
    238238      ! 
Note: See TracChangeset for help on using the changeset viewer.