Changeset 10850 for branches/UKMO/AMM15_v3_6_STABLE_package_collate_coupling/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90

Timestamp:

2019-04-08T15:00:20+02:00 (5 years ago)

Author:

kingr

Message:

Merged updates from AMM15_v3_6_STABLE_package_collate

File:

• branches/UKMO/AMM15_v3_6_STABLE_package_collate_coupling/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90 (modified) (4 diffs)

branches/UKMO/AMM15_v3_6_STABLE_package_collate_coupling/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90

@@ -51 +51 @@
 #endif
    USE asminc, ONLY: ln_avgbkg
+#if defined key_top
+   USE asmbgc, ONLY: asm_bgc_bkg_alloc, &
+      &              asm_bgc_bkg_tavg,  &
+      &              asm_bgc_bkg_wri
+#endif
    IMPLICIT NONE
    PRIVATE
@@ -137 +142 @@
          
          numtimes_tavg = REAL ( nitavgbkg_r -  nn_it000 + 1 )
-      ENDIF   
+      ENDIF
+      
+#if defined key_top
+      ! Allocate BGC average arrays whatever, to save code repetition later
+      IF ( kt == ( nn_it000 - 1) ) THEN
+         CALL asm_bgc_bkg_alloc
+      ENDIF
+#endif
 
       ! If creating an averaged assim bkg, sum the contribution every timestep
@@ -154 +166 @@
 #if defined key_zdftke
          en_tavg(:,:,:)       = en_tavg(:,:,:) + en(:,:,:) / numtimes_tavg
+#endif
+#if defined key_top
+         CALL asm_bgc_bkg_tavg( kt, numtimes_tavg )
 #endif
       ENDIF
@@ -222 +237 @@
             ENDIF
             
+#if defined key_top
+            CALL asm_bgc_bkg_wri( kt, inum, ln_avgbkg )
+#endif
             CALL iom_close( inum )