Alternative small scale meteorology input to a chemical transport ...

C** Set up includes for grid & universal constants
C
INCLUDE SUBST_HGRD_ID
INCLUDE SUBST_VGRD_ID
INCLUDE SUBST_COORD_ID
INCLUDE SUBST_CONST
INCLUDE 'MCIPPARM.EXT' ! params for mcip
INCLUDE 'MCIPCOM.EXT' ! commons for mcip
INCLUDE 'LRADMDAT.EXT'
C
C** Set up includes and array dimensions for CALMET
INCLUDE 'CMINPUT.EXT'
C ------------------------------------------------------------------
C
C
C** LOCAL INDICES
C for setting Coarse domain wind to satisfy fine grid domain
C
INTEGER NCG_I, NCG_J ! window size in terms of MET grid
SAVE NCG_I, NCG_J ! keep in the memory
INTEGER NITER, ILU
C
C** Local scratch variables
C
INTEGER SDATE ! TIMESTEP'S START DATE
INTEGER STIME ! TIMESTEP'S START TIME
INTEGER ISTAT ! STATUS RETURNED FROM SANITY CHECKS
INTEGER ISESN ! season of year code
C
INTEGER NSTEPS ! run duration: number of output time steps
INTEGER NREPS ! number of model time steps per output step
INTEGER ISTEP ! current output time step number
INTEGER IREP ! model step number within this output step
REAL*8 XCENT_M
REAL*8 YCENT_M
REAL*8 XORIG_M
REAL*8 YORIG_M
REAL*8 XCELL_M
REAL*8 YCELL_M
REAL VGTOP_M
REAL MOUTFRQ ! Output frequency of MET data in min.
REAL MET_RESOL ! Resolution of met. model in meters
REAL RNDX ! real NDX
REAL RNTHIK
REAL XORIG_W
65