| 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 |
_RL ZonalMeanSST(1-OLy:sNy+OLy) |
| 13 |
_RL CountX(1-OLy:sNy+OLy) |
| 14 |
_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 |
_RL S(1-OLy:sNy+OLy) |
| 39 |
_RL P2(1-OLy:sNy+OLy), P4(1-OLy:sNy+OLy) |
| 40 |
C Shortwave and albedo parameters |
| 41 |
_RL SW(1-OLy:sNy+OLy) |
| 42 |
_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 |
_RL LW(1-OLy:sNy+OLy) |
| 47 |
_RL LW0, LW1 |
| 48 |
PARAMETER ( LW0 = 195., LW1 = 2.78 ) |
| 49 |
C Heat transport parameters |
| 50 |
_RL Hd(1-OLy:sNy+OLy), Hd35(2) |
| 51 |
_RL H1, H3, H5 |
| 52 |
PARAMETER ( H1 = 3.866, H3 = -2.851, H5 = -1.016 ) |
| 53 |
C Freshwater flux parameters |
| 54 |
_RL Fw(1-OLy:sNy+OLy), Fw35(2) |
| 55 |
_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 |
_RL T(1-OLy:sNy+OLy) |
| 60 |
_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 |
|
Parent Directory
| 
Revision Log
| 
Revision Graph