Changeset 13695 for branches/UKMO/dev_r5518_GO6_package_FOAMv14_biophys/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_med_diag_iomput.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/bio_med_diag_iomput.F90 (modified) (1 diff)

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

@@ -657 +657 @@
                                        (fgmepd(ji,jj) * xthetapd)
                ENDIF
+          IF ( med_diag%MEGRAZPN3%dgsave ) THEN
+                  megrazpn3(ji,jj,jk) = fgmepn(ji,jj) * xthetapn
+               ENDIF
+          IF ( med_diag%MEGRAZPD3%dgsave ) THEN
+                  megrazpd3(ji,jj,jk) = fgmepd(ji,jj) * xthetapd
+               ENDIF
           IF ( med_diag%MEGRAZD3%dgsave ) THEN
                   megrazd3(ji,jj,jk) = fgmedc(ji,jj)