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

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

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

Revision 1.3 - (hide annotations) (download)
Fri May 21 21:45:35 2004 UTC (20 years 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 heimbach 1.3 C $Header: $
2     C $Name: $
3     C
4 heimbach 1.1 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 heimbach 1.2 _RL ZonalMeanSST(1-OLy:sNy+OLy,nSy)
16     _RL CountX(1-OLy:sNy+OLy,nSy)
17 heimbach 1.1 _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 heimbach 1.3 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 heimbach 1.1 C Shortwave and albedo parameters
47 heimbach 1.2 _RL SW(1-OLy:sNy+OLy,nSy)
48 heimbach 1.1 _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 heimbach 1.2 _RL LW(1-OLy:sNy+OLy,nSy)
53 heimbach 1.1 _RL LW0, LW1
54     PARAMETER ( LW0 = 195., LW1 = 2.78 )
55     C Heat transport parameters
56 heimbach 1.2 _RL Hd(1-OLy:sNy+OLy,nSy), Hd35(2)
57 heimbach 1.1 _RL H1, H3, H5
58     PARAMETER ( H1 = 3.866, H3 = -2.851, H5 = -1.016 )
59     C Freshwater flux parameters
60 heimbach 1.2 _RL Fw(1-OLy:sNy+OLy,nSy), Fw35(2)
61 heimbach 1.1 _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 heimbach 1.2 _RL T(1-OLy:sNy+OLy,nSy)
66 heimbach 1.1 _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