8 |
C | o AIM forcing fields. | |
C | o AIM forcing fields. | |
9 |
C \==========================================================/ |
C \==========================================================/ |
10 |
|
|
|
C aim_NxIO - Extent of input dataset in X |
|
|
C aim_NyIO - Extent of input dataset in Y |
|
|
C AIM climatologies need converting to MDSIO |
|
|
C compatible datasets. |
|
|
INTEGER aim_NxIO |
|
|
INTEGER aim_NyIO |
|
|
PARAMETER ( aim_NxIO = 128, |
|
|
& aim_NyIO = 64 ) |
|
11 |
|
|
12 |
C aim_albedo - Holds surface albedo ( 0-1 ) |
C aim_albedo - Holds surface albedo ( 0-1 ) |
13 |
C aim_surfTemp - Holds surface temperature ( K ) |
C aim_surfTemp - Holds surface temperature ( K ) |
17 |
& aim_albedo, |
& aim_albedo, |
18 |
& aim_surfTemp, |
& aim_surfTemp, |
19 |
& aim_soilMoisture |
& aim_soilMoisture |
20 |
REAL*4 aim_albedo (aim_NxIO, aim_NyIO) |
_RS aim_albedo (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
21 |
REAL*4 aim_surfTemp (aim_NxIO, aim_NyIO) |
_RS aim_surfTemp (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
22 |
REAL*4 aim_soilMoisture(aim_NxIO, aim_NyIO) |
_RS aim_soilMoisture(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
23 |
|
|
24 |
#endif /* ALLOW_AIM */ |
#endif /* ALLOW_AIM */ |