1 | !-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- |
---|
2 | ! MODEL BFM - Biogeochemical Flux Model |
---|
3 | !-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- |
---|
4 | !BOP |
---|
5 | ! |
---|
6 | ! ROUTINE: CO2 |
---|
7 | ! |
---|
8 | ! DESCRIPTION |
---|
9 | ! List of parameters values |
---|
10 | ! |
---|
11 | ! INTERFACE |
---|
12 | ! parameter values for mem_CO2 filled by InitCO2 |
---|
13 | ! |
---|
14 | ! |
---|
15 | ! AUTHORS |
---|
16 | ! the BFM team |
---|
17 | ! |
---|
18 | ! COPYING |
---|
19 | ! |
---|
20 | ! Copyright (C) 2007 P. Ruardij, M. Vichi |
---|
21 | ! (rua@nioz.nl, vichi@bo.ingv.it) |
---|
22 | ! |
---|
23 | ! This program is free software; you can redistribute it and/or modify |
---|
24 | ! it under the terms of the GNU General Public License as published by |
---|
25 | ! the Free Software Foundation; |
---|
26 | ! This program is distributed in the hope that it will be useful, |
---|
27 | ! but WITHOUT ANY WARRANTY; without even the implied warranty of |
---|
28 | ! MERCHANTEABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
---|
29 | ! GNU General Public License for more details. |
---|
30 | ! |
---|
31 | !EOP |
---|
32 | !-------------------------------------------------------------------------! |
---|
33 | !BOC |
---|
34 | |
---|
35 | &CO2_parameters |
---|
36 | |
---|
37 | ! Initial Partial pressure in the air [1960: 315; 1990: 353] |
---|
38 | AtmCO20 = 370.0E0, |
---|
39 | ! Compute the partial pressure of Atmospheric CO2 |
---|
40 | calcAtmpCO2 = .FALSE. |
---|
41 | pCO2Method = 1 ! 1=MixRatio*slp, 2=Magnus formula |
---|
42 | !-----------------------------------------------------------------------------------! |
---|
43 | ! Read external data for atmospheric CO2 values |
---|
44 | ! Read ! File ! NetCDF ! Var ! RefTime ! Input ! Time ! |
---|
45 | ! Input ! name ! Logical ! name ! yyyymmdd ! Frequency ! interp ! |
---|
46 | ATMCO2_N = 0 , 'CMIP5_GHG_1765_2005.nc' , .TRUE. , 'CO2' , '1764-07-01 00:00' , 'yearly' , .TRUE. |
---|
47 | ! Read external data for atmospheric SLP |
---|
48 | AtmSLP_N = 0 , 'AtmSLP.nc' , .TRUE. ,'AtmSLP' , '1764-07-01 00:00' , 'dummy' , .TRUE. |
---|
49 | AtmTDP_N = 0 , 'AtmTDP.nc' , .TRUE. ,'AtmTDP' , '1764-07-01 00:00' , 'dummy' , .TRUE. |
---|
50 | !-----------------------------------------------------------------------------------! |
---|
51 | |
---|
52 | ! Initial pH value |
---|
53 | phstart = 8.0D0 |
---|
54 | |
---|
55 | ! Choice of the acidity constants parameterization |
---|
56 | ! K1K2==1 Roy et al. (1993); DOE (1994); pH on total scale |
---|
57 | ! K1K2==2 Default |
---|
58 | ! Mehrbach et al (1973) refit by Dickson & Millero (1987) |
---|
59 | ! OCMIP STANDARD; pH on Sea Water Scale |
---|
60 | ! K1K2==3 Mehrbach et al (1973) refit by Lueker et al. (2000) |
---|
61 | ! pH on total scale |
---|
62 | ! K1K2==4 Hansson (1973b) data as refitted by Dickson and |
---|
63 | ! Millero (1987); pH on Sea Water Scale |
---|
64 | K1K2 = 2 |
---|
65 | |
---|
66 | |
---|
67 | ! Choice of [H+] numerical computation |
---|
68 | ! MethodCalcCO2=1 Approximate static solution |
---|
69 | ! MethodCalcCO2=2 Default. Standard OCMIP iteration |
---|
70 | ! MethodCalcCO2=3 Follows et al., Ocean Modelling 2006 |
---|
71 | MethodCalcCO2 = 2 |
---|
72 | ! |
---|
73 | ! Calcium ion concentration |
---|
74 | ! [from : "Seawater : Its composition, properties and behaviour" |
---|
75 | ! (2nd Edition), Open University Course Team, 1995] |
---|
76 | ! seawater concentration = 412 mg / l |
---|
77 | ! atomic weight = 40.078 g / mol |
---|
78 | ! therefore, concentration = 10.279 mmol / l |
---|
79 | ! = 10.279 mol / m3 |
---|
80 | Caconc0 = 10.279E0 |
---|
81 | ! Normalize Calcium ion concentration by sea water salinity |
---|
82 | Canorm = .TRUE. |
---|
83 | / |
---|
84 | |
---|
85 | !EOC |
---|
86 | !-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- |
---|
87 | ! MODEL BFM - Biogeochemical Flux Model |
---|
88 | !-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- |
---|