| 1 |
C $Header: /u/gcmpack/models/MITgcmUV/verification/aim.5l_LatLon/code/Attic/AIM_DDT.h,v 1.1.2.2 2001/04/17 01:16:32 jmc Exp $ |
| 2 |
C $Name: $ |
| 3 |
|
| 4 |
#ifdef ALLOW_AIM |
| 5 |
|
| 6 |
C /==========================================================\ |
| 7 |
C | AIM_FFIELDS.h | |
| 8 |
C | o AIM forcing fields. | |
| 9 |
C \==========================================================/ |
| 10 |
|
| 11 |
C aim_NxIO - Extent of input dataset in X |
| 12 |
C aim_NyIO - Extent of input dataset in Y |
| 13 |
C AIM climatologies need converting to MDSIO |
| 14 |
C compatible datasets. |
| 15 |
INTEGER aim_NxIO |
| 16 |
INTEGER aim_NyIO |
| 17 |
PARAMETER ( aim_NxIO = 128, |
| 18 |
& aim_NyIO = 64 ) |
| 19 |
|
| 20 |
C aim_albedo - Holds surface albedo ( 0-1 ) |
| 21 |
C aim_surfTemp - Holds surface temperature ( K ) |
| 22 |
C aim_soilMoisture - Holds soil moisture ( 0-20 ) |
| 23 |
C |
| 24 |
COMMON /AIM_FFIELDS_R/ |
| 25 |
& aim_albedo, |
| 26 |
& aim_surfTemp, |
| 27 |
& aim_soilMoisture |
| 28 |
REAL*4 aim_albedo (aim_NxIO, aim_NyIO) |
| 29 |
REAL*4 aim_surfTemp (aim_NxIO, aim_NyIO) |
| 30 |
REAL*4 aim_soilMoisture(aim_NxIO, aim_NyIO) |
| 31 |
|
| 32 |
#endif /* ALLOW_AIM */ |
Parent Directory
| 
Revision Log
| 
Revision Graph