--- MITgcm_contrib/bling/pkg/bling_readparms.F 2014/06/05 21:26:26 1.2 +++ MITgcm_contrib/bling/pkg/bling_readparms.F 2016/02/28 21:49:24 1.3 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/bling/pkg/bling_readparms.F,v 1.2 2014/06/05 21:26:26 mmazloff Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/bling/pkg/bling_readparms.F,v 1.3 2016/02/28 21:49:24 mmazloff Exp $ C $Name: $ #include "BLING_OPTIONS.h" @@ -44,47 +44,54 @@ C ========================================================== NAMELIST /BIOTIC_PARMS/ - & Pstar, + & pivotal, & Pc_0, + & Pc_0_diaz, & lambda_0, - & resp_frac, & chl_min, - & CtoP, - & NtoP, - & O2toP, - & CatoP, - & NUTfac, - & alpha_max, - & alpha_min, + & CtoN, + & NO3toN, + & HtoC, + & O2toN, + & CatoN, + & masstoN, + & alpha_photo, & theta_Fe_max_hi, & theta_Fe_max_lo, - & gamma_biomass, & gamma_irr_mem, - & gamma_DOM, + & gamma_DON, + & gamma_DOP, & gamma_POM, & k_Fe, + & k_Fe_diaz, & k_O2, - & k_NUT, - & k_FetoP, - & KFeLeq_max, - & KFeLeq_min, - & Fe_min, - & IFeL, + & k_NO3, + & k_PO4, + & k_PtoN, + & k_FetoN, + & kFe_eq_lig_max, + & kFe_eq_lig_min, + & kFe_eq_lig_Femin, + & kFe_eq_lig_irr, & kFe_org, & kFe_inorg, - & FetoP_max, - & FetoPsed, - & Fe_lim_min, + & PtoN_min, + & PtoN_max, + & FetoN_min, + & FetoN_max, + & FetoC_sed, & remin_min, - & O2_min, + & oxic_min, & ligand, - & b_const, & kappa_eppley, + & kappa_eppley_diaz, & kappa_remin, & ca_remin_depth, & phi_DOM, & phi_sm, & phi_lg, + & phi_dvm, + & sigma_dvm, & wsink0z, & wsink0, & wsinkacc, @@ -102,9 +109,7 @@ & bling_windFile, bling_atmospFile, bling_iceFile, & bling_ironFile, bling_silicaFile, & bling_forcingPeriod, bling_forcingCycle, - & bling_pCO2, riverconc_dic, riverconc_alk, - & riverconc_nut, riverconc_dom, riverconc_o2, - & riverconc_fe + & bling_pCO2, river_conc_trac C ========================================================== C permil :: set carbon mol/m3 <---> mol/kg conversion factor @@ -124,20 +129,16 @@ C Pstar :: Pivotal phytoplankton biomass C Pc_0 :: Maximum carbon-specific growth rate at 0C C lambda_0 :: Carbon-specific phytoplankton mortality rate -C resp_frac :: fraction of production that is respired C chl_min :: minimum chlorophyll concentration -C alpha_max :: Quantum yield under low light, abundant iron -C alpha_min :: Quantum yield under low light, iron limited C theta_Fe_max_hi :: Maximum Chl:c ratio, abundant iron C theta_Fe_max_lo :: Maximum Chl:c ratio, extreme iron limitation -C gamma_biomass :: Biomass adjustment time scale C gamma_irr_mem :: Photoadaptation time scale C gamma_DOM :: Decay timescale of DOM C gamma_POM :: Remineralization rate of sinking POM C k_Fe :: Dissolved Fe uptake half-saturation constant C k_O2 :: Half-saturation constant for aerobic respiration C k_NUT :: Macro-nutrient uptake half-saturation constant -C k_FetoP :: Half-saturation cellular Fe:P +C k_FetoN :: Half-saturation cellular Fe:N C FetoP_max :: Maximum Fe:P uptake ratio C FetoP_sed :: Fe:P in sediments C KFeLeq_max :: Maximum Fe-ligand stability constant @@ -146,11 +147,9 @@ C IFeL :: Iron ligand stability constant C kFe_org :: Organic-matter dependent scavenging rate C kFe_inorg :: Inorganic scavenging rate -C Fe_lim_min :: Minimum iron limitation C remin_min :: Minimum anaerobic respiration rate C O2_min :: Minimum O2 concentration for aerobic respiration C Ligand :: Ligand concentration -C b_const :: Constant in ligand stability estimate C kappa_eppley :: Temperature dependence of growth C kappa_remin :: Temperature dependence of remineralization C ca_remin_depth :: CaCO3 remineralization lengthscale @@ -167,6 +166,7 @@ C secperday :: seconds in a day = 24*60*60 _RL secperday + integer k _BEGIN_MASTER(myThid) @@ -176,58 +176,66 @@ secperday = 86400. _d 0 permil = 1. _d 0 / 1024.5 _d 0 Pa2Atm = 1.01325 _d 5 - CtoP = 106. _d 0 - NtoP = 16. _d 0 - O2toP = -150. _d 0 - CatoP = 106.0 _d 0 * 0.015 _d 0 -#ifdef NITROGEN_CURRENCY - NUTfac = NtoP -#else - NUTfac = 1. _d 0 -#endif - Pstar = 1.9 _d -3 / 1028. _d 0 / CtoP / permil - & * NUTfac - Pc_0 = 1. _d -5 + CtoN = 6.75 _d 0 + HtoC = 48. _d 0 / 106. _d 0 + O2toN = CtoN * (1. _d 0 + 0.25 _d 0 * HtoC) + & + 2. _d 0 + NO3toN = CtoN * (1. _d 0 + 0.25 _d 0 * HtoC) + & * 0.8 _d 0 + 0.6 _d 0 + CatoN = CtoN * 0.015 _d 0 + masstoN = CtoN * 12.001 _d 0 + pivotal = 1.9 _d -3 / 1028. _d 0 / CtoN / permil + Pc_0 = 1.7 _d -5 + Pc_0_diaz = 0.01 _d -5 lambda_0 = 0.19 _d 0 / secperday - resp_frac = 0. _d 0 - chl_min = 1. _d -11 - alpha_max = 1.6 _d -5 * 2.77 _d 18 / 6.022 _d 17 - alpha_min = 0.4 _d -5 * 2.77 _d 18 / 6.022 _d 17 + chl_min = 1. _d -5 +Cxxx chl_min in ug kg-1 + alpha_photo = 0.7 _d -5 * 2.77 _d 18 / 6.022 _d 17 +Cxxx alpha_photo in g C g Chl-1 m2 W-1 s-1 theta_Fe_max_hi = 0.04 _d 0 theta_Fe_max_lo = 0.01 _d 0 - gamma_biomass = 0.5 _d 0 / secperday gamma_irr_mem = 1. _d 0 / secperday - gamma_DOM = 0.25 _d 0 / (365.25 _d 0 * secperday) + gamma_DON = 0.25 _d 0 / (365.25 _d 0 * secperday) + gamma_DOP = 0.5 _d 0 / (365.25 _d 0 * secperday) gamma_POM = 0.12 _d 0 / secperday +cav k_Fe = 1.6 _d -10 / permil k_Fe = 8. _d -10 / permil + k_Fe_diaz = 7. _d -10 / permil k_O2 = 20. _d -6 / permil - k_NUT = 1. _d -7 * NUTfac / permil - k_FetoP = 7. _d -6 * CtoP - FetoP_max = 28. _d -6 * CtoP - FetoPsed = 0.0106 _d 0 - KFeLeq_max = 8.0 _d 10 * permil - KFeLeq_min = 8.0 _d 9 * permil - Fe_min = 0.05 _d -9 / permil - IFeL = 0.1 _d 0 + k_NO3 = 2. _d -6 / permil +cav k_PO4 = 1. _d -8 / permil + k_PO4 = 1. _d -7 / permil + k_PtoN = 1.5 _d -6 / permil + k_FetoN = 8. _d -10 / permil + PtoN_min = 1. / 28. + PtoN_max = 1. / 9. + FetoN_min = 2. _d -6 * 6.75 + FetoN_max = 25. _d -6 * 6.75 + FetoC_sed = 1. _d -4 + kFe_eq_lig_max = 8.0 _d 10 * permil + kFe_eq_lig_min = 8.0 _d 9 * permil + kFe_eq_lig_Femin = 0.05 _d -9 / permil + kFe_eq_lig_irr = 0.1 _d 0 kFe_org = 0.5 _d 0 / secperday * permil**(0.58) kFe_inorg = 1. _d 3 / secperday * permil**(0.5) - Fe_lim_min = 0. _d 0 - remin_min = 0.3 _d 0 - O2_min = 1. _d -6 / permil + remin_min = 0.15 _d 0 + oxic_min = 1. _d -6 / permil Ligand = 1. _d -9 / permil - b_const = 1.2 _d 0 kappa_eppley = 0.063 _d 0 - kappa_remin = 0.032 _d 0 + kappa_eppley_diaz = 0.18 _d 0 + kappa_remin = -0.032 _d 0 ca_remin_depth = 1343. _d 0 phi_DOM = 0.1 _d 0 phi_sm = 0.18 _d 0 phi_lg = 1. _d 0 + phi_dvm = 0.2 _d 0 + sigma_dvm = 40.0 _d 0 wsink0z = 80. _d 0 wsink0 = 16. _d 0 / secperday wsinkacc = 0.05 _d 0 / secperday parfrac = 0.4 _d 0 alpfe = 0.01 _d 0 - k0 = 0.05 _d 0 + k0 = 0.04 _d 0 epsln = 1. _d -30 bling_windFile = ' ' @@ -236,12 +244,10 @@ bling_ironFile = ' ' bling_silicaFile= ' ' bling_pCO2 = 278. _d -6 - riverconc_dic = 2. _d 0 - riverconc_alk = 2. _d 0 - riverconc_nut = 0. _d 0 * NUTfac - riverconc_dom = 0. _d 0 - riverconc_o2 = 0. _d 0 - riverconc_fe = 0. _d 0 + DO k=1,8 + river_conc_trac(k) = 0. _d 0 + ENDDO + c default periodic forcing to same as for physics bling_forcingPeriod = externForcingPeriod