[3399] | 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 |
---|
[3513] | 36 | ! Initial CO2 concentration in the air [ppm] |
---|
| 37 | AtmCO20 = 370.0E0 |
---|
[3478] | 38 | ! Compute the partial pressure of Atmospheric CO2 |
---|
| 39 | calcAtmpCO2 = .FALSE. |
---|
[3513] | 40 | pCO2Method = 1 ! 1=MixRatio*slp, 2=Magnus formula |
---|
[3478] | 41 | !-----------------------------------------------------------------------------------! |
---|
[3513] | 42 | ! Read external data for atmospheric CO2 values |
---|
[3478] | 43 | ! Read ! File ! NetCDF ! Var ! RefTime ! Input ! Time ! |
---|
| 44 | ! Input ! name ! Logical ! name ! yyyymmdd ! Frequency ! interp ! |
---|
[3513] | 45 | !AtmCO2_N = 2 , 'CMIP5_Historical_GHG_1765_2005.nc' , .TRUE. , 'CO2' , '1764-07-01 00:00' , 'yearly' , .TRUE. |
---|
| 46 | !AtmCO2_N = 2 , 'CMIP5_Historical_GHG_1765_2005.dat' , .FALSE. , '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. |
---|
[3478] | 50 | !-----------------------------------------------------------------------------------! |
---|
| 51 | |
---|
[3399] | 52 | ! Initial pH value |
---|
[3513] | 53 | phstart = 8.10E0 |
---|
| 54 | |
---|
[3399] | 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 |
---|
[3513] | 64 | K1K2 = 2 |
---|
[3399] | 65 | |
---|
| 66 | ! Choice of [H+] numerical computation |
---|
| 67 | ! MethodCalcCO2=1 Approximate static solution |
---|
| 68 | ! MethodCalcCO2=2 Default. Standard OCMIP iteration |
---|
| 69 | ! MethodCalcCO2=3 Follows et al., Ocean Modelling 2006 |
---|
[3478] | 70 | ! |
---|
[3513] | 71 | ! Parameters for MethodCalcCO2=2 |
---|
| 72 | ! M2XACC : accuracy of the iterative scheme for OCMIP (default 1.E-10) |
---|
| 73 | ! M2PHDELT : delta of pH for the root search (realized pH+/-DELT) |
---|
| 74 | ! in the OCMIP scheme (default 0.5) |
---|
| 75 | ! M2MAXIT : maximum number of iterations for OCMIP (default 100 ) |
---|
| 76 | ! |
---|
| 77 | MethodCalcCO2 = 2 |
---|
| 78 | M2XACC = 1.0E-10 |
---|
| 79 | M2PHDELT = 0.3 |
---|
| 80 | M2MAXIT = 100 |
---|
| 81 | ! |
---|
[3478] | 82 | ! Calcium ion concentration |
---|
| 83 | ! [from : "Seawater : Its composition, properties and behaviour" |
---|
| 84 | ! (2nd Edition), Open University Course Team, 1995] |
---|
| 85 | ! seawater concentration = 412 mg / l |
---|
| 86 | ! atomic weight = 40.078 g / mol |
---|
| 87 | ! therefore, concentration = 10.279 mmol / l |
---|
| 88 | ! = 10.279 mol / m3 |
---|
| 89 | Caconc0 = 10.279E0 |
---|
| 90 | ! Normalize Calcium ion concentration by sea water salinity |
---|
| 91 | Canorm = .TRUE. |
---|
[3399] | 92 | / |
---|
| 93 | |
---|
| 94 | !EOC |
---|
| 95 | !-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- |
---|
| 96 | ! MODEL BFM - Biogeochemical Flux Model |
---|
| 97 | !-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- |
---|