Changeset 7605 for branches/UKMO/dev_r5518_GO6_package_for_static_diagnostics/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf.F90

Timestamp:

2017-01-25T11:29:23+01:00 (8 years ago)

Author:

timgraham

Message:

Added field for dynldf_c3d case

File:

• branches/UKMO/dev_r5518_GO6_package_for_static_diagnostics/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6_package_for_static_diagnostics/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf.F90

@@ -78 +78 @@
 #ifdef key_dynldf_c2d
           IF (kt == nit000) CALL iom_put("ahmt_lap", ahm1)
+#endif
+#ifdef key_dynldf_c3d
+          IF (kt == nit000) CALL iom_put("ahmt_lap3d", ahm1)
 #endif
       CASE ( 2 )