Changeset 1756 for trunk/NEMO/OPA_SRC/step.F90

Timestamp:

2009-11-25T15:15:20+01:00 (14 years ago)

Author:

smasson

Message:

implement AR5 diagnostics, see ticket:610

File:

• trunk/NEMO/OPA_SRC/step.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/step.F90

@@ -107 +107 @@
    USE diahdy          ! dynamic height                   (dia_hdy routine)
    USE diaptr          ! poleward transports              (dia_ptr routine)
+   USE diaar5          ! AR5 diagnosics                   (dia_ar5 routine)
    USE diahth          ! thermocline depth                (dia_hth routine)
    USE diafwb          ! freshwater budget                (dia_fwb routine)
@@ -245 +246 @@
       IF( lk_diafwb  )   CALL dia_fwb( kstp )         ! Fresh water budget diagnostics
       IF( ln_diaptr  )   CALL dia_ptr( kstp )         ! Poleward TRansports diagnostics
+      IF( lk_diaar5  )   CALL dia_ar5( kstp )         ! ar5 diag
                          CALL dia_wri( kstp )         ! ocean model: outputs