/[MITgcm]/MITgcm/pkg/ebm/EBM.h
ViewVC logotype

Contents of /MITgcm/pkg/ebm/EBM.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.3 - (show annotations) (download)
Fri May 21 21:45:35 2004 UTC (19 years, 11 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint58l_post, checkpoint57t_post, checkpoint57o_post, checkpoint58e_post, checkpoint57v_post, checkpoint53d_post, checkpoint58u_post, checkpoint58w_post, checkpoint54a_pre, checkpoint57m_post, checkpoint55c_post, checkpoint54e_post, checkpoint57s_post, checkpoint54a_post, checkpoint53c_post, checkpoint57k_post, checkpoint55d_pre, checkpoint57d_post, checkpoint57g_post, checkpoint60, checkpoint61, checkpoint57b_post, checkpoint57c_pre, checkpoint58r_post, checkpoint55j_post, checkpoint56b_post, checkpoint57i_post, checkpoint57y_post, checkpoint57e_post, checkpoint55h_post, checkpoint58n_post, checkpoint58x_post, checkpoint57g_pre, checkpoint54b_post, checkpoint55b_post, checkpoint58t_post, checkpoint58h_post, checkpoint54d_post, checkpoint56c_post, checkpoint57y_pre, checkpoint55, checkpoint57f_pre, checkpoint57a_post, checkpoint54, checkpoint58q_post, checkpoint54f_post, checkpoint59q, checkpoint59p, checkpoint55g_post, checkpoint59r, checkpoint58j_post, checkpoint59e, checkpoint59d, checkpoint59g, checkpoint59f, checkpoint59a, checkpoint55f_post, checkpoint59c, checkpoint59b, checkpoint59m, checkpoint59l, checkpoint59o, checkpoint59n, checkpoint59i, checkpoint59h, checkpoint59k, checkpoint59j, checkpoint57r_post, checkpoint59, checkpoint58, checkpoint57a_pre, checkpoint55i_post, checkpoint57, checkpoint56, eckpoint57e_pre, checkpoint57h_done, checkpoint58f_post, checkpoint53g_post, checkpoint57x_post, checkpoint57n_post, checkpoint58d_post, checkpoint58c_post, checkpoint57w_post, checkpoint57p_post, checkpint57u_post, checkpoint57f_post, checkpoint58a_post, checkpoint58i_post, checkpoint57q_post, checkpoint58g_post, checkpoint58o_post, checkpoint57z_post, checkpoint57c_post, checkpoint58y_post, checkpoint55e_post, checkpoint58k_post, checkpoint58v_post, checkpoint53f_post, checkpoint55a_post, checkpoint53d_pre, checkpoint54c_post, checkpoint58s_post, checkpoint61f, checkpoint61g, checkpoint61d, checkpoint61e, checkpoint61b, checkpoint61c, checkpoint58p_post, checkpoint61a, checkpoint61n, checkpoint61o, checkpoint61l, checkpoint61m, checkpoint61j, checkpoint61k, checkpoint61h, checkpoint61i, checkpoint61t, checkpoint61r, checkpoint61s, checkpoint61p, checkpoint61q, checkpoint57j_post, checkpoint58b_post, checkpoint57h_pre, checkpoint58m_post, checkpoint57l_post, checkpoint57h_post, checkpoint56a_post, checkpoint55d_post
Changes since 1.2: +8 -2 lines
File MIME type: text/plain 
o Adjoint for EBM package (needs further testing)
o bug fix for parallel EBM in ebm_zonalmean.F
1 C $Header: $
2 C $Name: $
3 C
4 C CountX - number of ocean points in each latitude band
5 C ZonalMeanSST - zonal mean sea surface temperature
6 C TmlS - Average mid-latitude temperature in the
7 c Southern Hemisphere
8 C TmlN - Northern
9 C TtS - Average tropical temperature in the Southern Hemisphere
10 C TtN - Northern
11 C winPert - weather patterns added to the background wind.
12 COMMON /EBM_FLD_RL/
13 & ZonalMeanSST, CountX,
14 & TmlN, TmlS, TtN, TtS
15 _RL ZonalMeanSST(1-OLy:sNy+OLy,nSy)
16 _RL CountX(1-OLy:sNy+OLy,nSy)
17 _RL TmlS, TmlN, TtS, TtN
18
19 COMMON /EBM_FLD_RS/
20 & Run,
21 & winPert
22 _RS Run (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
23 _RS winPert (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
24
25 COMMON /EBM_PARAM_C/
26 & RunoffFile
27 CHARACTER*(MAX_LEN_FNAM) RunoffFile
28
29 COMMON /EBM_PARAM_RL/
30 & tauThetaZonRelax,
31 & lambdaThetaZonRelax,
32 & scale_runoff
33 _RL tauThetaZonRelax
34 _RL lambdaThetaZonRelax
35 _RL scale_runoff
36
37 C Constant parameters
38 _RL t_mlt, lv, cp, rho_air
39 PARAMETER (t_mlt = 273.15, lv = 2.5e6, cp = 1004., rho_air = 1.27)
40 C sin(lat) and Legendre polynomials
41 cph We will make these three (i,j) arrays to
42 cph avoid AD recomputations
43 _RL S(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSy)
44 _RL P2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSy)
45 _RL P4(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSy)
46 C Shortwave and albedo parameters
47 _RL SW(1-OLy:sNy+OLy,nSy)
48 _RL Q0, Q2, A0, A2, A4
49 PARAMETER ( Q0 = 1365., Q2 = -0.482)
50 PARAMETER ( A0 = 0.322, A2 = 0.231, A4 = 0.086 )
51 C Longwave parameters
52 _RL LW(1-OLy:sNy+OLy,nSy)
53 _RL LW0, LW1
54 PARAMETER ( LW0 = 195., LW1 = 2.78 )
55 C Heat transport parameters
56 _RL Hd(1-OLy:sNy+OLy,nSy), Hd35(2)
57 _RL H1, H3, H5
58 PARAMETER ( H1 = 3.866, H3 = -2.851, H5 = -1.016 )
59 C Freshwater flux parameters
60 _RL Fw(1-OLy:sNy+OLy,nSy), Fw35(2)
61 _RL F1, F2, F3, F4, F5
62 PARAMETER ( F1 = 2.092, F2 = 5.796, F3 = 8.472,
63 & F4 = 7.728, F5 = 2.362 )
64 C Temperature parameterization
65 _RL T(1-OLy:sNy+OLy,nSy)
66 _RL T_var(4), T0(2), T2(2), T35(2), DTDy35(2)
67 C Parameters used to calculate the transport efficiency
68 _RL Cl, Cf, Cs, C
69 _RL gamma, kappa, De
70 _RL trans_eff, Hw, Nw, Tw, At, dz, htil, tau
71 PARAMETER (trans_eff = 2.0, Hw = 8.e3, Nw = 0.013,
72 & Tw = 300., At = 3., dz = 450., htil = 0.8, tau = 5.e-3)
73 C Climate change parameter (W/(m^2 y) )
74 _RL DLW
75 PARAMETER (DLW = 0.06)
76 C Latitude boundaries used
77 _RL lat(3)
78 DATA lat / 0.0, 35.0, 85.0 /
79
  ViewVC Help
Powered by ViewVC 1.1.22