1 |
heimbach |
1.1 |
C CountX - number of ocean points in each latitude band |
2 |
|
|
C ZonalMeanSST - zonal mean sea surface temperature |
3 |
|
|
C TmlS - Average mid-latitude temperature in the |
4 |
|
|
c Southern Hemisphere |
5 |
|
|
C TmlN - Northern |
6 |
|
|
C TtS - Average tropical temperature in the Southern Hemisphere |
7 |
|
|
C TtN - Northern |
8 |
|
|
C winPert - weather patterns added to the background wind. |
9 |
|
|
COMMON /EBM_FLD_RL/ |
10 |
|
|
& ZonalMeanSST, CountX, |
11 |
|
|
& TmlN, TmlS, TtN, TtS |
12 |
heimbach |
1.2 |
_RL ZonalMeanSST(1-OLy:sNy+OLy,nSy) |
13 |
|
|
_RL CountX(1-OLy:sNy+OLy,nSy) |
14 |
heimbach |
1.1 |
_RL TmlS, TmlN, TtS, TtN |
15 |
|
|
|
16 |
|
|
COMMON /EBM_FLD_RS/ |
17 |
|
|
& Run, |
18 |
|
|
& winPert |
19 |
|
|
_RS Run (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
20 |
|
|
_RS winPert (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
21 |
|
|
|
22 |
|
|
COMMON /EBM_PARAM_C/ |
23 |
|
|
& RunoffFile |
24 |
|
|
CHARACTER*(MAX_LEN_FNAM) RunoffFile |
25 |
|
|
|
26 |
|
|
COMMON /EBM_PARAM_RL/ |
27 |
|
|
& tauThetaZonRelax, |
28 |
|
|
& lambdaThetaZonRelax, |
29 |
|
|
& scale_runoff |
30 |
|
|
_RL tauThetaZonRelax |
31 |
|
|
_RL lambdaThetaZonRelax |
32 |
|
|
_RL scale_runoff |
33 |
|
|
|
34 |
|
|
C Constant parameters |
35 |
|
|
_RL t_mlt, lv, cp, rho_air |
36 |
|
|
PARAMETER (t_mlt = 273.15, lv = 2.5e6, cp = 1004., rho_air = 1.27) |
37 |
|
|
C sin(lat) and Legendre polynomials |
38 |
heimbach |
1.2 |
_RL S(1-OLy:sNy+OLy,nSy) |
39 |
|
|
_RL P2(1-OLy:sNy+OLy,nSy), P4(1-OLy:sNy+OLy,nSy) |
40 |
heimbach |
1.1 |
C Shortwave and albedo parameters |
41 |
heimbach |
1.2 |
_RL SW(1-OLy:sNy+OLy,nSy) |
42 |
heimbach |
1.1 |
_RL Q0, Q2, A0, A2, A4 |
43 |
|
|
PARAMETER ( Q0 = 1365., Q2 = -0.482) |
44 |
|
|
PARAMETER ( A0 = 0.322, A2 = 0.231, A4 = 0.086 ) |
45 |
|
|
C Longwave parameters |
46 |
heimbach |
1.2 |
_RL LW(1-OLy:sNy+OLy,nSy) |
47 |
heimbach |
1.1 |
_RL LW0, LW1 |
48 |
|
|
PARAMETER ( LW0 = 195., LW1 = 2.78 ) |
49 |
|
|
C Heat transport parameters |
50 |
heimbach |
1.2 |
_RL Hd(1-OLy:sNy+OLy,nSy), Hd35(2) |
51 |
heimbach |
1.1 |
_RL H1, H3, H5 |
52 |
|
|
PARAMETER ( H1 = 3.866, H3 = -2.851, H5 = -1.016 ) |
53 |
|
|
C Freshwater flux parameters |
54 |
heimbach |
1.2 |
_RL Fw(1-OLy:sNy+OLy,nSy), Fw35(2) |
55 |
heimbach |
1.1 |
_RL F1, F2, F3, F4, F5 |
56 |
|
|
PARAMETER ( F1 = 2.092, F2 = 5.796, F3 = 8.472, |
57 |
|
|
& F4 = 7.728, F5 = 2.362 ) |
58 |
|
|
C Temperature parameterization |
59 |
heimbach |
1.2 |
_RL T(1-OLy:sNy+OLy,nSy) |
60 |
heimbach |
1.1 |
_RL T_var(4), T0(2), T2(2), T35(2), DTDy35(2) |
61 |
|
|
C Parameters used to calculate the transport efficiency |
62 |
|
|
_RL Cl, Cf, Cs, C |
63 |
|
|
_RL gamma, kappa, De |
64 |
|
|
_RL trans_eff, Hw, Nw, Tw, At, dz, htil, tau |
65 |
|
|
PARAMETER (trans_eff = 2.0, Hw = 8.e3, Nw = 0.013, |
66 |
|
|
& Tw = 300., At = 3., dz = 450., htil = 0.8, tau = 5.e-3) |
67 |
|
|
C Climate change parameter (W/(m^2 y) ) |
68 |
|
|
_RL DLW |
69 |
|
|
PARAMETER (DLW = 0.06) |
70 |
|
|
C Latitude boundaries used |
71 |
|
|
_RL lat(3) |
72 |
|
|
DATA lat / 0.0, 35.0, 85.0 / |
73 |
|
|
|