1 |
C $Header: /u/gcmpack/MITgcm/pkg/aim_v23/AIM_FFIELDS.h,v 1.2 2002/12/10 02:35:27 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_sWght0,1 :: weight for time interpolation of surface BC |
20 |
C 0/1 = time period before/after the current time |
21 |
C aim_sst0,1 :: Holds Sea surface temperature ( K ) |
22 |
C aim_lst0,1 :: Holds Land surface temperature ( K ) |
23 |
C aim_oic0,1 :: Holds Sea Ice fraction ( 0-1 ) |
24 |
C aim_snw0,1 :: Holds snow depth ( 0-1 ) |
25 |
C aim_sw10,1 :: Holds soil water content, level 1 ( 0-1 ) |
26 |
C aim_sw20,1 :: Holds soil water content, level 2 ( 0-1 ) |
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_sWght0, aim_sWght1 |
32 |
|
33 |
_RL 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 |
_RL aim_sWght0, aim_sWght1 |
52 |
|
53 |
C-- used only if aim_useMMsurfFc=T : Forcing fields are loaded |
54 |
C and used directly with no time-interpolation. |
55 |
_RS aim_surfTemp (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
56 |
_RS aim_soilWater(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
57 |
EQUIVALENCE (aim_surfTemp, aim_sst0) |
58 |
EQUIVALENCE (aim_soilWater, aim_sw10) |
59 |
|
60 |
#endif /* ALLOW_AIM */ |
61 |
|
62 |
CEH3 ;;; Local Variables: *** |
63 |
CEH3 ;;; mode:fortran *** |
64 |
CEH3 ;;; End: *** |