Ignore:
Timestamp:
2018-12-14T13:47:32+01:00 (23 months ago)
Author:
dford
Message:

Updates for running with FABM-ERSEM. See internal Met Office NEMO ticket 760.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_obs_oper_update/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90

    r10168 r10388  
    862862      !! * Modules used 
    863863      USE phycst, ONLY : &         ! Physical constants 
     864#if defined key_fabm 
     865         & rt0,          & 
     866#endif 
    864867         & rday 
    865868      USE oce, ONLY : &            ! Ocean dynamics and tracers variables 
     
    879882      USE sbc_oce, ONLY : fr_i     ! ice fraction 
    880883#endif 
    881 #if defined key_hadocc 
    882       USE trc, ONLY :  &           ! HadOCC variables 
    883          & trn, & 
     884#if defined key_top 
     885      USE trc, ONLY :  &           ! Biogeochemical state variables 
     886         & trn 
     887#endif 
     888#if defined key_hadocc 
     889      USE par_hadocc               ! HadOCC parameters 
     890      USE trc, ONLY :  & 
    884891         & HADOCC_CHL, & 
    885892         & HADOCC_FCO2, & 
    886893         & HADOCC_PCO2, & 
    887894         & HADOCC_FILL_FLT 
    888       USE par_hadocc 
    889895      USE had_bgc_const, ONLY: c2n_p 
    890896#elif defined key_medusa 
    891       USE trc, ONLY :  &           ! MEDUSA variables 
    892          & trn 
    893       USE par_medusa 
     897      USE par_medusa               ! MEDUSA parameters 
    894898      USE sms_medusa, ONLY: & 
    895899         & xthetapn, & 
     
    902906#endif 
    903907#elif defined key_fabm 
    904       USE fabm 
    905       USE par_fabm 
     908      USE par_fabm                 ! FABM parameters 
     909      USE fabm, ONLY: & 
     910         & fabm_get_bulk_diagnostic_data 
    906911#endif 
    907912#if defined key_spm 
    908       USE par_spm, ONLY: &         ! ERSEM/SPM sediments 
     913      USE par_spm, ONLY: &         ! Sediment parameters 
    909914         & jp_spm 
    910       USE trc, ONLY :  & 
    911          & trn 
    912915#endif 
    913916 
     
    933936         & zgphi                   ! Model latitudes for prof variables 
    934937      LOGICAL :: llog10            ! Perform log10 transform of variable 
    935  
     938#if defined key_fabm 
     939      REAL(wp), POINTER, DIMENSION(:,:,:) :: & 
     940         & pco2_3d                 ! 3D pCO2 from FABM 
     941#endif 
    936942 
    937943      IF(lwp) THEN 
Note: See TracChangeset for help on using the changeset viewer.