pkg/aim/AIM_FFIELDS.h

C $Header: /u/gcmpack/MITgcm/pkg/aim/AIM_FFIELDS.h,v 1.2 2001/06/18 17:39:58 cnh Exp $
C $Name:  $

#ifdef ALLOW_AIM

C     /==========================================================\
C     | AIM_FFIELDS.h                                            |
C     | o AIM forcing fields.                                    |
C     \==========================================================/


C     aim_albedo       - Holds surface albedo ( 0-1 )
C     aim_surfTemp     - Holds surface temperature ( K )
C     aim_soilMoisture - Holds soil moisture ( 0-20 )
C
      COMMON /AIM_FFIELDS_R/
     &                   aim_albedo,
     &                   aim_surfTemp,
     &                   aim_soilMoisture
      _RS  aim_albedo      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS  aim_surfTemp    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RS  aim_soilMoisture(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)

#endif /* ALLOW_AIM */
1	C $Header: /u/gcmpack/MITgcm/pkg/aim/AIM_FFIELDS.h,v 1.2 2001/06/18 17:39:58 cnh 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
12	C aim_albedo - Holds surface albedo ( 0-1 )
13	C aim_surfTemp - Holds surface temperature ( K )
14	C aim_soilMoisture - Holds soil moisture ( 0-20 )
15	C
16	COMMON /AIM_FFIELDS_R/
17	& aim_albedo,
18	& aim_surfTemp,
19	& aim_soilMoisture
20	_RS aim_albedo (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
21	_RS aim_surfTemp (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
22	_RS aim_soilMoisture(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
23
24	#endif /* ALLOW_AIM */