forked from altMITgcm/MITgcm
-
Notifications
You must be signed in to change notification settings - Fork 0
/
AIM_GRID.h
26 lines (22 loc) · 1.02 KB
/
AIM_GRID.h
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
C $Header: /u/gcmpack/MITgcm/pkg/aim_v23/AIM_GRID.h,v 1.2 2005/06/23 20:02:50 edhill Exp $
C $Name: $
#ifdef ALLOW_AIM
C *==========================================================*
C | AIM_GRID.h define grid arrays required for AIM Physics |
C *==========================================================*
C-- COMMON /AIM_GRID_R/: AIM surface and grid-related arrays
C WVSurf : weights for vertical interpolation down to the surface
C (replace WVI(NLEV,2) in com_physcon.h, common FSIGLT)
C fOrogr : orographic factor (used for surface drag)
C (originally in com_sflcon.h, common SFLFIX)
C snLat,csLat : sin(Lat) & cos(Lat) ;
C (originally in com_physcon.h, common FSIGLT)
COMMON /AIM_GRID_R/ fOrogr, WVSurf, snLat, csLat
_RL fOrogr(NGP,MAX_NO_THREADS)
_RL WVSurf(NGP,MAX_NO_THREADS)
_RL snLat (NGP,MAX_NO_THREADS)
_RL csLat (NGP,MAX_NO_THREADS)
#endif /* ALLOW_AIM */
CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***