Changeset 13695 for branches/UKMO/dev_r5518_GO6_package_FOAMv14_biophys/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90

Timestamp:

2020-10-28T18:50:34+01:00 (3 years ago)

Author:

dford

Message:

Add 3D PFT-specific grazing diagnostics

File:

• branches/UKMO/dev_r5518_GO6_package_FOAMv14_biophys/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6_package_FOAMv14_biophys/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90

@@ -2345 +2345 @@
           med_diag%MEGRAZP3%dgsave = .FALSE.
       ENDIF
+      IF  (iom_use("MEGRAZPN3")) THEN 
+          med_diag%MEGRAZPN3%dgsave = .TRUE.
+      ELSE 
+          med_diag%MEGRAZPN3%dgsave = .FALSE.
+      ENDIF
+      IF  (iom_use("MEGRAZPD3")) THEN 
+          med_diag%MEGRAZPD3%dgsave = .TRUE.
+      ELSE 
+          med_diag%MEGRAZPD3%dgsave = .FALSE.
+      ENDIF
       IF  (iom_use("MEGRAZD3")) THEN 
           med_diag%MEGRAZD3%dgsave = .TRUE.