1 |
|
C $Header$ |
2 |
|
C $Name$ |
3 |
|
C |
4 |
C CountX - number of ocean points in each latitude band |
C CountX - number of ocean points in each latitude band |
5 |
C ZonalMeanSST - zonal mean sea surface temperature |
C ZonalMeanSST - zonal mean sea surface temperature |
6 |
C TmlS - Average mid-latitude temperature in the |
C TmlS - Average mid-latitude temperature in the |
38 |
_RL t_mlt, lv, cp, rho_air |
_RL t_mlt, lv, cp, rho_air |
39 |
PARAMETER (t_mlt = 273.15, lv = 2.5e6, cp = 1004., rho_air = 1.27) |
PARAMETER (t_mlt = 273.15, lv = 2.5e6, cp = 1004., rho_air = 1.27) |
40 |
C sin(lat) and Legendre polynomials |
C sin(lat) and Legendre polynomials |
41 |
_RL S(1-OLy:sNy+OLy,nSy) |
cph We will make these three (i,j) arrays to |
42 |
_RL P2(1-OLy:sNy+OLy,nSy), P4(1-OLy:sNy+OLy,nSy) |
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 |
C Shortwave and albedo parameters |
47 |
_RL SW(1-OLy:sNy+OLy,nSy) |
_RL SW(1-OLy:sNy+OLy,nSy) |
48 |
_RL Q0, Q2, A0, A2, A4 |
_RL Q0, Q2, A0, A2, A4 |