142
7. Modeling Atmosphere-Ocean Interactions and Primary Productivity
OUTFLOWS:
Fe_Remineralization = delay(Sediment_Rate_of_Iron,2,0)
Surface_Felt) = Surface_Fe (t-dt) + (Upwelled_Fe +
Aeolian_Fe_Flux-Downwelled_Fe-Part_Fe-Fe_CaC03) * dt
INIT Surface_Fe = 2 .6e-8
INFLOWS:
Upwelled_Fe = (Bottom_Fe /3400)*Upwelling_Rate
Aeolian_Fe_Flux = 16*2.048835e-7
OUTFLOWS :
Downwelled_Fe = (Surface_Fe /100)*Upwelling_Rate
Part_Fe = Part_N03*Fe:N03_Ratio
Fe_CaC03 = N_CaC03*Fe:N03_Ratio
Conc_of_Surface_Fe = Surface_Fe /100000
Fe:N03_Ratio = 1.65e-4
Fe_ConB = Bottom_Fe /3400000
Nitrate Module
Bottom_N03(t) = Bottom_N03(t-dt) + (Part_N03 +
Downwelled_N03 + N03_Remineralization + N_CaC03Sediment_Rate_of_N03-Upwelled_N03) * dt
INIT Bottom_N03 = 102
INFLOWS :
Part_N03
(Vmax_N*Conc_of_Surface_Fe /(Ks_FE+Conc_of_Surface_Fe»
Downwelled_N03 = (Surface_N03 /100)*Upwelling_Rate
N03_Remineralization = delay(Sediment_Rate_of_N03,2 ,0)
N_CaC03 = CaC03 /C:N03_Ratio
OUTFLOWS:
Sediment_Rate_of_N03 = Part_N03*.01
Upwe1led_N03 = (Bottom_N03 /3400)*Upwel1ing_Rate
Sedimentary_N03(t) = Sedimentary_N03(t-dt) +
(Sediment_Rate_of_N03-N03_Remineralization) * dt
INIT Sedimentary_N03 = 0 .07
INFLOWS:
Sediment_Rate of N03 = Part_N03* .01
OUTFLOWS :
N03_Remineralization
delay(Sediment_Rate_of_N03,2,0)
Part_N03Downwelled_N03-N_CaC03) * dt