| 1 |
jmc |
1.5 |
C $Header: /u/gcmpack/MITgcm/pkg/ebm/EBM.h,v 1.4 2009/08/06 13:52:52 jmc Exp $ |
| 2 |
heimbach |
1.3 |
C $Name: $ |
| 3 |
jmc |
1.5 |
|
| 4 |
|
|
CBOP |
| 5 |
|
|
C !ROUTINE: EBM.h |
| 6 |
|
|
C !INTERFACE: |
| 7 |
|
|
C #include EBM.h |
| 8 |
|
|
|
| 9 |
|
|
C !DESCRIPTION: |
| 10 |
|
|
C Header file defining EBM pkg parameters and variables |
| 11 |
|
|
CEOP |
| 12 |
|
|
|
| 13 |
|
|
C ZonalMeanSST :: zonal mean sea surface temperature |
| 14 |
|
|
C CountX :: number of ocean points in each latitude band |
| 15 |
|
|
C TmlS :: Average mid-latitude temperature in the Southern Hemisphere |
| 16 |
|
|
C TmlN :: same in Northern Hemisphere |
| 17 |
|
|
C TtS :: Average tropical temperature in the Southern Hemisphere |
| 18 |
|
|
C TtN :: same in Northern Hemisphere |
| 19 |
|
|
C winPert :: weather patterns added to the background wind. |
| 20 |
|
|
C Run :: Runoff into the ocean [unit = m/s unless scale_runoff <> 1] |
| 21 |
jmc |
1.4 |
COMMON /EBM_FLD_RL/ |
| 22 |
heimbach |
1.1 |
& ZonalMeanSST, CountX, |
| 23 |
|
|
& TmlN, TmlS, TtN, TtS |
| 24 |
heimbach |
1.2 |
_RL ZonalMeanSST(1-OLy:sNy+OLy,nSy) |
| 25 |
|
|
_RL CountX(1-OLy:sNy+OLy,nSy) |
| 26 |
heimbach |
1.1 |
_RL TmlS, TmlN, TtS, TtN |
| 27 |
|
|
|
| 28 |
jmc |
1.4 |
COMMON /EBM_FLD_RS/ |
| 29 |
heimbach |
1.1 |
& Run, |
| 30 |
|
|
& winPert |
| 31 |
|
|
_RS Run (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
| 32 |
|
|
_RS winPert (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
| 33 |
|
|
|
| 34 |
jmc |
1.5 |
C RunoffFile :: Runoff input file name |
| 35 |
heimbach |
1.1 |
COMMON /EBM_PARAM_C/ |
| 36 |
|
|
& RunoffFile |
| 37 |
|
|
CHARACTER*(MAX_LEN_FNAM) RunoffFile |
| 38 |
|
|
|
| 39 |
jmc |
1.5 |
C latBnd :: Latitude boundaries used in EBM |
| 40 |
|
|
C tauThetaZonRelax :: time-scale [s] for relaxation towards Zon.Aver. SST |
| 41 |
heimbach |
1.1 |
COMMON /EBM_PARAM_RL/ |
| 42 |
jmc |
1.5 |
& latBnd, |
| 43 |
heimbach |
1.1 |
& tauThetaZonRelax, |
| 44 |
|
|
& scale_runoff |
| 45 |
jmc |
1.5 |
_RL latBnd(3) |
| 46 |
heimbach |
1.1 |
_RL tauThetaZonRelax |
| 47 |
|
|
_RL scale_runoff |
| 48 |
|
|
|
| 49 |
jmc |
1.5 |
C-- Physical Constants |
| 50 |
heimbach |
1.1 |
_RL t_mlt, lv, cp, rho_air |
| 51 |
jmc |
1.4 |
PARAMETER ( t_mlt = 273.15 _d 0 ) |
| 52 |
|
|
PARAMETER ( lv = 2.5 _d 6 ) |
| 53 |
|
|
PARAMETER ( cp = 1004. _d 0 ) |
| 54 |
|
|
PARAMETER ( rho_air = 1.27 _d 0 ) |
| 55 |
jmc |
1.5 |
|
| 56 |
|
|
C-- Constant parameters for EBM computation |
| 57 |
|
|
C- Shortwave and albedo parameters |
| 58 |
heimbach |
1.1 |
_RL Q0, Q2, A0, A2, A4 |
| 59 |
jmc |
1.4 |
PARAMETER ( Q0 = 1365. _d 0 , Q2 = -0.482 _d 0 ) |
| 60 |
|
|
PARAMETER ( A0 = 0.322 _d 0 , A2 = 0.231 _d 0 , A4 = 0.086 _d 0 ) |
| 61 |
jmc |
1.5 |
C- Longwave parameters |
| 62 |
heimbach |
1.1 |
_RL LW0, LW1 |
| 63 |
jmc |
1.4 |
PARAMETER ( LW0 = 195. _d 0 , LW1 = 2.78 _d 0 ) |
| 64 |
jmc |
1.5 |
C- Heat transport parameters |
| 65 |
heimbach |
1.1 |
_RL H1, H3, H5 |
| 66 |
jmc |
1.4 |
PARAMETER ( H1 = 3.866 _d 0 , H3 = -2.851 _d 0 , H5 = -1.016 _d 0 ) |
| 67 |
jmc |
1.5 |
C- Freshwater flux parameters |
| 68 |
heimbach |
1.1 |
_RL F1, F2, F3, F4, F5 |
| 69 |
jmc |
1.4 |
PARAMETER ( F1 = 2.092 _d 0 , F2 = 5.796 _d 0 , F3 = 8.472 _d 0 ) |
| 70 |
|
|
PARAMETER ( F4 = 7.728 _d 0 , F5 = 2.362 _d 0 ) |
| 71 |
jmc |
1.5 |
C- Parameters used to calculate the transport efficiency |
| 72 |
heimbach |
1.1 |
_RL trans_eff, Hw, Nw, Tw, At, dz, htil, tau |
| 73 |
jmc |
1.4 |
PARAMETER ( trans_eff = 2. _d 0 , Hw = 8. _d 3, Nw = 0.013 _d 0 ) |
| 74 |
|
|
PARAMETER ( Tw = 300. _d 0 , At = 3. _d 0 , dz = 450. _d 0 ) |
| 75 |
|
|
PARAMETER ( htil = 0.8 _d 0 , tau = 5. _d -3) |
| 76 |
jmc |
1.5 |
C- Climate change parameter (W/(m^2 y) ) |
| 77 |
heimbach |
1.1 |
_RL DLW |
| 78 |
jmc |
1.4 |
PARAMETER (DLW = 0.06 _d 0 ) |
| 79 |
heimbach |
1.1 |
|
| 80 |
jmc |
1.5 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
Parent Directory
| 
Revision Log
| 
Revision Graph