Changeset 7104 for branches/UKMO/r5936_CO6_CO5_shelfdiagnostic/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

Timestamp:

2016-10-26T14:37:32+02:00 (8 years ago)

Author:

jcastill

Message:

Changes as in r6549 of branch 2015_CO6_CO5_shelfdiagnostic

File:

• branches/UKMO/r5936_CO6_CO5_shelfdiagnostic/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90 (modified) (2 diffs)

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

@@ -43 +43 @@
    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')