Changeset 10711


Ignore:
Timestamp:
2019-02-21T12:57:30+01:00 (18 months ago)
Author:
dford
Message:

Fixes for compiling physics-only.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/AMM15_v3_6_STABLE_package_collate_BGC_DA/NEMOGCM/NEMO/OPA_SRC/ASM/asmbgc.F90

    r10676 r10711  
    299299      ENDIF 
    300300 
     301#if defined key_fabm || defined key_medusa 
    301302      IF ( ln_phytobal .AND.                                      & 
    302303         & ( ( ln_slchlnoninc .AND.( .NOT. ln_slchldiainc ) ).OR. & 
     
    312313            &           ' unless assimilating all model PFTs,') 
    313314      ENDIF 
     315#endif 
    314316 
    315317      IF ( ln_slphytotinc .AND. ( ln_slphydiainc .OR. ln_slphynoninc ) ) THEN 
     
    10021004      ENDIF 
    10031005      phyt_avg_tavg(:,:) = 0.0 
    1004        
     1006 
     1007#if defined key_top 
    10051008      ALLOCATE( trn_tavg(jpi,jpj,jpk,jptra), STAT=ierror ) 
    10061009      IF( ierror > 0 ) THEN 
     
    10081011      ENDIF 
    10091012      trn_tavg(:,:,:,:) = 0.0 
     1013#endif 
    10101014 
    10111015#if defined key_hadocc 
     
    10541058      !! 
    10551059      !!------------------------------------------------------------------------ 
    1056        
     1060 
     1061#if defined key_top 
    10571062      IF (kt == nittrc000) THEN 
    10581063         pgrow_avg_tavg(:,:) = 0.0 
     
    10801085      totalk_tavg(:,:,:)  = totalk_tavg(:,:,:) * tmask(:,:,:) 
    10811086#endif 
     1087#endif 
    10821088                                  
    10831089   END SUBROUTINE asm_bgc_bkg_tavg 
     
    11071113      !! 
    11081114      !!------------------------------------------------------------------------ 
    1109        
     1115 
     1116#if defined key_top 
    11101117      IF (ld_avgbkg) THEN 
    11111118         nitbgcbkg_r = nitavgbkg_r 
     
    11951202      CALL iom_rstput( kt, nitbgcbkg_r, knum, 'ersem_o3ba'  , trn_tavg(:,:,:,jp_fabm_m1+jp_fabm_o3ba) ) 
    11961203      CALL iom_rstput( kt, nitbgcbkg_r, knum, 'ersem_o3ta'  , totalk_tavg                  ) 
     1204#endif 
    11971205#endif 
    11981206 
Note: See TracChangeset for help on using the changeset viewer.