1 |
C $Header: /u/gcmpack/MITgcm/pkg/aim_v23/AIM_FFIELDS.h,v 1.5 2009/09/02 19:13:25 jmc Exp $ |
2 |
C $Name: $ |
3 |
|
4 |
#ifdef ALLOW_AIM |
5 |
|
6 |
C *==========================================================* |
7 |
C | AIM_FFIELDS.h |
8 |
C | o AIM (surface) forcing fields. |
9 |
C *==========================================================* |
10 |
|
11 |
|
12 |
C--- COMMON /AIM_FFIELDS_R/ |
13 |
C truncSurfP : use to correct Surf.Temp for truncation of Surf.Ref.Press |
14 |
C aim_landFr :: Holds Land Fraction ( 0-1 ) |
15 |
C aim_veget :: Holds vegetation fraction ( 0-1 ) |
16 |
C aim_albedo :: Holds surface albedo ( 0-1 ) |
17 |
C aim_...0 :: Holds data centered in time before the current time |
18 |
C aim_...1 :: Holds data centered in time after the current time |
19 |
C aim_sst0,1 :: Holds Sea surface temperature ( K ) |
20 |
C aim_lst0,1 :: Holds Land surface temperature ( K ) |
21 |
C aim_oic0,1 :: Holds Sea Ice fraction ( 0-1 ) |
22 |
C aim_snw0,1 :: Holds snow depth ( 0-1 ) |
23 |
C aim_sw10,1 :: Holds soil water content, level 1 ( 0-1 ) |
24 |
C aim_sw20,1 :: Holds soil water content, level 2 ( 0-1 ) |
25 |
C aim_qfx0,1 :: Holds q-flux (W/m^2, >0 = OHT convergence = T increases) |
26 |
|
27 |
COMMON /AIM_FFIELDS_R/ |
28 |
& truncSurfP, aim_landFr, aim_veget, aim_albedo, |
29 |
& aim_sst0, aim_lst0, aim_oic0, aim_snw0, aim_sw10, aim_sw20, |
30 |
& aim_sst1, aim_lst1, aim_oic1, aim_snw1, aim_sw11, aim_sw21, |
31 |
& aim_qfx0, aim_qfx1 |
32 |
|
33 |
_RS truncSurfP(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
34 |
_RS aim_landFr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
35 |
_RS aim_veget (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
36 |
_RS aim_albedo(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
37 |
|
38 |
_RS aim_sst0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
39 |
_RS aim_lst0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
40 |
_RS aim_oic0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
41 |
_RS aim_snw0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
42 |
_RS aim_sw10 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
43 |
_RS aim_sw20 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
44 |
|
45 |
_RS aim_sst1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
46 |
_RS aim_lst1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
47 |
_RS aim_oic1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
48 |
_RS aim_snw1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
49 |
_RS aim_sw11 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
50 |
_RS aim_sw21 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
51 |
|
52 |
_RS aim_qfx0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
53 |
_RS aim_qfx1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
54 |
|
55 |
#endif /* ALLOW_AIM */ |
56 |
|
57 |
CEH3 ;;; Local Variables: *** |
58 |
CEH3 ;;; mode:fortran *** |
59 |
CEH3 ;;; End: *** |