Changeset 10711 for branches/UKMO

Timestamp:

2019-02-21T12:57:30+01:00 (5 years ago)

Author:

dford

Message:

Fixes for compiling physics-only.

File:

• branches/UKMO/AMM15_v3_6_STABLE_package_collate_BGC_DA/NEMOGCM/NEMO/OPA_SRC/ASM/asmbgc.F90 (modified) (8 diffs)

branches/UKMO/AMM15_v3_6_STABLE_package_collate_BGC_DA/NEMOGCM/NEMO/OPA_SRC/ASM/asmbgc.F90

@@ -299 +299 @@
       ENDIF
 
+#if defined key_fabm || defined key_medusa
       IF ( ln_phytobal .AND.                                      &
          & ( ( ln_slchlnoninc .AND.( .NOT. ln_slchldiainc ) ).OR. &
@@ -312 +313 @@
             &           ' unless assimilating all model PFTs,')
       ENDIF
+#endif
 
       IF ( ln_slphytotinc .AND. ( ln_slphydiainc .OR. ln_slphynoninc ) ) THEN
@@ -1002 +1004 @@
       ENDIF
       phyt_avg_tavg(:,:) = 0.0
-      
+
+#if defined key_top
       ALLOCATE( trn_tavg(jpi,jpj,jpk,jptra), STAT=ierror )
       IF( ierror > 0 ) THEN
@@ -1008 +1011 @@
       ENDIF
       trn_tavg(:,:,:,:) = 0.0
+#endif
 
 #if defined key_hadocc
@@ -1054 +1058 @@
       !!
       !!------------------------------------------------------------------------
-      
+
+#if defined key_top
       IF (kt == nittrc000) THEN
          pgrow_avg_tavg(:,:) = 0.0
@@ -1080 +1085 @@
       totalk_tavg(:,:,:)  = totalk_tavg(:,:,:) * tmask(:,:,:)
 #endif
+#endif
                                  
    END SUBROUTINE asm_bgc_bkg_tavg
@@ -1107 +1113 @@
       !!
       !!------------------------------------------------------------------------
-      
+
+#if defined key_top
       IF (ld_avgbkg) THEN
          nitbgcbkg_r = nitavgbkg_r
@@ -1195 +1202 @@
       CALL iom_rstput( kt, nitbgcbkg_r, knum, 'ersem_o3ba'  , trn_tavg(:,:,:,jp_fabm_m1+jp_fabm_o3ba) )
       CALL iom_rstput( kt, nitbgcbkg_r, knum, 'ersem_o3ta'  , totalk_tavg                  )
+#endif
 #endif