Changeset 9331 for branches/UKMO/dev_r5518_v3.6_asm_nemovar_community_ersem_hem08/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90

Timestamp:

2018-02-16T18:31:39+01:00 (6 years ago)

Author:

dford

Message:

Add balancing code.

File:

• branches/UKMO/dev_r5518_v3.6_asm_nemovar_community_ersem_hem08/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90 (modified) (3 diffs)

branches/UKMO/dev_r5518_v3.6_asm_nemovar_community_ersem_hem08/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90

@@ -51 +51 @@
 #endif
    USE asminc, ONLY: ln_avgbkg
+#if defined key_fabm
+   USE trc, ONLY:           & ! HadOCC diagnostic variables
+      & pgrow_avg,          &
+      & ploss_avg,          &
+      & phyt_avg,           &
+      & mld_max
+#endif
    IMPLICIT NONE
    PRIVATE
@@ -196 +203 @@
 #endif
                CALL iom_rstput( kt, nitavgbkg_r, inum, 'avt'    , avt_tavg)
+#if defined key_fabm
+               CALL iom_rstput( kt, nitavgbkg_r, inum, 'pgrow_avg'   , pgrow_avg             )
+               CALL iom_rstput( kt, nitavgbkg_r, inum, 'ploss_avg'   , ploss_avg             )
+               CALL iom_rstput( kt, nitavgbkg_r, inum, 'phyt_avg'    , phyt_avg              )
+               CALL iom_rstput( kt, nitavgbkg_r, inum, 'mld_max'     , mld_max               )
+#endif
                !
             ELSE
@@ -219 +232 @@
 #endif
                CALL iom_rstput( kt, nitbkg_r, inum, 'avt'    , avt               )
+#if defined key_fabm
+               CALL iom_rstput( kt, nitbkg_r, inum, 'pgrow_avg'   , pgrow_avg             )
+               CALL iom_rstput( kt, nitbkg_r, inum, 'ploss_avg'   , ploss_avg             )
+               CALL iom_rstput( kt, nitbkg_r, inum, 'phyt_avg'    , phyt_avg              )
+               CALL iom_rstput( kt, nitbkg_r, inum, 'mld_max'     , mld_max               )
+#endif
                !
             ENDIF