pkg/aim_v23/AIM_GRID.h

d676f916b2 Jean*0001 #ifdef ALLOW_AIM
                0002 C     *==========================================================*
                0003 C     | AIM_GRID.h  define grid arrays required for AIM Physics  |
                0004 C     *==========================================================*
                0005
                0006 C--   COMMON /AIM_GRID_R/: AIM surface and grid-related arrays
                0007 C     WVSurf  : weights for vertical interpolation down to the surface
                0008 C               (replace WVI(NLEV,2) in com_physcon.h, common FSIGLT)
                0009 C     fOrogr  : orographic factor (used for surface drag)
                0010 C               (originally in com_sflcon.h, common SFLFIX)
                0011 C snLat,csLat : sin(Lat) & cos(Lat) ;
                0012 C               (originally in com_physcon.h, common FSIGLT)
                0013       COMMON /AIM_GRID_R/ fOrogr, WVSurf, snLat, csLat
                0014       _RL fOrogr(NGP,MAX_NO_THREADS)
                0015       _RL WVSurf(NGP,MAX_NO_THREADS)
                0016       _RL snLat (NGP,MAX_NO_THREADS)
                0017       _RL csLat (NGP,MAX_NO_THREADS)
                0018
                0019 #endif /* ALLOW_AIM */
ad0ca66649 Ed H*0020
                0021 CEH3 ;;; Local Variables: ***
                0022 CEH3 ;;; mode:fortran ***
                0023 CEH3 ;;; End: ***