From 14a8ddda8ad326d32c43f458383aa3b622ba056c Mon Sep 17 00:00:00 2001 From: joeran maerz Date: Thu, 31 Oct 2024 13:44:00 +0100 Subject: [PATCH] fix placement of LTO2depremin switch --- hamocc/mo_hamocc_init.F90 | 4 ++-- hamocc/mo_param_bgc.F90 | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/hamocc/mo_hamocc_init.F90 b/hamocc/mo_hamocc_init.F90 index e3db5805..de616649 100644 --- a/hamocc/mo_hamocc_init.F90 +++ b/hamocc/mo_hamocc_init.F90 @@ -45,7 +45,7 @@ subroutine hamocc_init(read_rest,rstfnm_hamocc) ldtrunbgc,ndtdaybgc,with_dmsph,l_3Dvarsedpor,use_M4AGO, & lkwrbioz_off,do_n2onh3_coupled, & ocn_co2_type, use_sedbypass, use_BOXATM, use_BROMO,use_extNcycle, & - use_nuopc_ndep + use_nuopc_ndep,lTO2depremin use mo_param1_bgc, only: ks,init_por2octra_mapping use mo_param_bgc, only: ini_parambgc use mo_carbch, only: alloc_mem_carbch,ocetra,atm,atm_co2 @@ -82,7 +82,7 @@ subroutine hamocc_init(read_rest,rstfnm_hamocc) & do_sedspinup,sedspin_yr_s,sedspin_yr_e,sedspin_ncyc, & & inidic,inialk,inipo4,inioxy,inino3,inisil,inid13c,inid14c,swaclimfile, & & with_dmsph,pi_ph_file,l_3Dvarsedpor,sedporfile,ocn_co2_type,use_M4AGO, & - & do_n2onh3_coupled,lkwrbioz_off + & do_n2onh3_coupled,lkwrbioz_off,lTO2depremin ! ! --- Set io units and some control parameters ! diff --git a/hamocc/mo_param_bgc.F90 b/hamocc/mo_param_bgc.F90 index 71c71604..385a8037 100644 --- a/hamocc/mo_param_bgc.F90 +++ b/hamocc/mo_param_bgc.F90 @@ -619,7 +619,7 @@ subroutine read_bgcnamelist() bkoxan2odenit_sed,bkan2odenit_sed,q10dnra_sed, & bkoxdnra_sed,bkdnra_sed,q10anh4nitr_sed, & bkoxamox_sed,bkanh4nitr_sed,q10ano2nitr_sed, & - bkoxnitr_sed,bkano2nitr_sed,lTO2depremin + bkoxnitr_sed,bkano2nitr_sed if (mnproc.eq.1) then write(io_stdo_bgc,*)