Changeset 6332 for branches/UKMO/CO6_KD490/NEMOGCM/NEMO/OPA_SRC/DIA

Timestamp:

2016-02-19T08:20:00+01:00 (8 years ago)

Author:

deazer

Message:

Tested Initial run one day physics only in rose suite.

Location:

branches/UKMO/CO6_KD490/NEMOGCM/NEMO/OPA_SRC/DIA

Files:

• dia25h.F90 (added)
• diainsitutem.F90 (added)
• diatmb.F90 (added)
• diawri.F90 (modified) (2 diffs)

branches/UKMO/CO6_KD490/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

@@ -44 +44 @@
    USE in_out_manager  ! I/O manager
    USE diadimg         ! dimg direct access file format output
+   USE diatmb          ! Top,middle,bottom output
+   USE dia25h          ! 25h Mean output
    USE iom
    USE ioipsl
@@ -379 +381 @@
       CALL wrk_dealloc( jpi , jpj      , z2d )
       CALL wrk_dealloc( jpi , jpj, jpk , z3d )
+      !
+      ! If we want tmb values 
+
+      IF (ln_diatmb) THEN
+         CALL dia_tmb
+      ENDIF
+      IF (ln_dia25h) THEN
+         CALL dia_25h( kt )
+      ENDIF
       !
       IF( nn_timing == 1 )   CALL timing_stop('dia_wri')