Changeset 10260


Ignore:
Timestamp:
2018-10-31T14:22:26+01:00 (19 months ago)
Author:
dford
Message:

Fixes for running with ERSEM (diaobs.F90) and merging with AMM15_v3_6_STABLE_package (fldread.F90 and trcnxt.F90).

Location:
branches/UKMO/dev_r5518_obs_oper_update_ersem/NEMOGCM/NEMO
Files:
3 edited

Legend:

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

    r10168 r10260  
    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 
  • branches/UKMO/dev_r5518_obs_oper_update_ersem/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90

    r7960 r10260  
    3030   PRIVATE    
    3131  
     32   PUBLIC   fld_clopn 
    3233   PUBLIC   fld_map    ! routine called by tides_init 
    3334   PUBLIC   fld_read, fld_fill   ! called by sbc... modules 
  • branches/UKMO/dev_r5518_obs_oper_update_ersem/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90

    r7960 r10260  
    102102      ENDIF 
    103103 
     104#if defined key_agrif 
     105      CALL Agrif_trc                   ! AGRIF zoom boundaries 
     106#endif 
    104107      ! Update after tracer on domain lateral boundaries 
    105108      DO jn = 1, jptra 
     
    110113#if defined key_bdy 
    111114!!      CALL bdy_trc( kt )               ! BDY open boundaries 
    112 #endif 
    113 #if defined key_agrif 
    114       CALL Agrif_trc                   ! AGRIF zoom boundaries 
    115115#endif 
    116116 
Note: See TracChangeset for help on using the changeset viewer.