pkg/aim_v23/AIM2DYN.h

d676f916b2 Jean*0001 #ifdef ALLOW_AIM
07f2439e50 Jean*0002 C     *==========================================================*
                0003 C     | AIM2DYN.h
                0004 C     | o AIM output fields in dynamics conforming arrays
                0005 C     *==========================================================*
d676f916b2 Jean*0006
07f2439e50 Jean*0007 C--   COMMON /AIM_DDT/
                0008 C     aim_drag :: Holds AIM surface drag term : C_drag*Rho*|V| ( kg.m-2.s-1 )
d676f916b2 Jean*0009 C                location : AIM "A" grid = center of the dynamics "C" grid
07f2439e50 Jean*0010 C     aim_dTdt :: Net tendency for potential temperature ( K/s    )
                0011 C     aim_dSdt :: Net tendency for water vapor           ( g/kg/s )
                0012 C aim_surfWind :: near surface atmospheric wind speed    ( m/s )
d676f916b2 Jean*0013 C
                0014       COMMON /AIM_DDT/
07f2439e50 Jean*0015      &                   aim_drag,
d676f916b2 Jean*0016      &                   aim_dTdt,
07f2439e50 Jean*0017      &                   aim_dSdt,
                0018      &                   aim_surfWind
d676f916b2 Jean*0019       _RL  aim_drag  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0020       _RL  aim_dTdt  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0021       _RL  aim_dSdt  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
07f2439e50 Jean*0022       _RL  aim_surfWind (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
d676f916b2 Jean*0023
                0024 #endif /* ALLOW_AIM */
ad0ca66649 Ed H*0025
                0026 CEH3 ;;; Local Variables: ***
                0027 CEH3 ;;; mode:fortran ***
                0028 CEH3 ;;; End: ***