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

XDENSWM(COL,ROW,L) = XWVAPOR(COL,ROW,L)*XDENSAM(COL,ROW,L)
XCLDWTR(COL,ROW,L) = 0.0
XRANWTR(COL,ROW,L) = 0.0
ENDDO
XDENSAF(COL,ROW,0)=XPRESF(COL,ROW,0)/(RDGAS*XTEMPM(COL,ROW,1))
DO L = 0,METLAY
XWWIND (COL,ROW,L) = F_WW(II,JJ,L)
ENDDO
C ------------------------------------------------------
C FILL-UP THE landuse X-ARRAYS by populating
C
IF(LUTYPE .EQ. 3) THEN
C
DO JJL = 1,NDX
DO IIL = 1,NDX
DO ILU = 1,LURADM
XLUSE(COL+IIL-1,ROW+JJL-1,ILU) = F_XLUSE(COL,ROW,ILU)
ENDDO
ENDDO
ENDDO
C
END IF
C
ENDDO
ENDDO
C-------------------------------------------------------------------
C FILL-UP THE X-ARRAYS BY EITHER INTERPOLATION OR POPULATING
IF (NDX .GT. 1) THEN
C FIRST, BI-LINEAR INTERPOLATION OF 2-D FIELDS
CALL BILIN2D (NDX,NCOLS_X,NROWS_X,XLATC)
CALL BILIN2D (NDX,NCOLS_X,NROWS_X,XLONC)
CALL BILIN2D (NDX,NCOLS_X,NROWS_X,XMAPC)
CALL BILIN2D (NDX,NCOLS_X,NROWS_X,XMAPD)
CALL BILIN2D (NDX,NCOLS_X,NROWS_X,XTOPO)
CALL BILIN2D (NDX,NCOLS_X,NROWS_X,XPRSFC)
CALL BILIN2D (NDX,NCOLS_X,NROWS_X,XTEMPG)
CALL BILIN2D (NDX,NCOLS_X,NROWS_X,XRAINC)
CALL BILIN2D (NDX,NCOLS_X,NROWS_X,XRAINN)
IF (.NOT.LCALCPBL .OR. .NOT.LCALCCLD) THEN
CALL BILIN2D (NDX,NCOLS_X,NROWS_X,XEMISS)
76