Changeset 7033 for branches/UKMO/dev_r5518_GO6_package_MEDUSA_extra_CMIP6_diags/NEMOGCM/NEMO/OPA_SRC/DIA/diaprod.F90

Timestamp:

2016-10-17T16:23:15+02:00 (8 years ago)

Author:

timgraham

Message:

Added extra diagnostics and corrected some of the surface coupling fields.

File:

• branches/UKMO/dev_r5518_GO6_package_MEDUSA_extra_CMIP6_diags/NEMOGCM/NEMO/OPA_SRC/DIA/diaprod.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_GO6_package_MEDUSA_extra_CMIP6_diags/NEMOGCM/NEMO/OPA_SRC/DIA/diaprod.F90

@@ -116 +116 @@
             END DO
          END DO
-         CALL dia_ptr_ohst_components( jp_tem, 'vts', z3d)
+         IF(ln_diaptr) CALL dia_ptr_ohst_components( jp_tem, 'vts', z3d)
       ENDIF
 
@@ -165 +165 @@
             END DO
          END DO
-         CALL dia_ptr_ohst_components( jp_sal, 'vts', z3d)
+         IF(ln_diaptr) CALL dia_ptr_ohst_components( jp_sal, 'vts', z3d)
       ENDIF