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

C NDATHR - INTEGER - DATE AND TIME OF DATA (YYJJJHH)
C
C --- RDI2D CALLED BY: MAIN
C --- RDI2D CALLS: NONE
C----------------------------------------------------------------------
INTEGER IDAT(MAXI,MAXJ),IBUF(NX,NY)
CHARACTER*8 CLABEL
C
IF(NX.EQ.MAXI.AND.NY.EQ.MAXJ)THEN
C
C --- ENTIRE ARRAY IS BEING USED -- READ FULL GRID
READ(IOMET)CLABEL,NDATHR,IDAT
ELSE
C
C --- ONLY A PORTION OF GRID BEING USED -- READ AND
C --- TRANSFER FROM BUFFER
C
READ(IOMET)CLABEL,NDATHR,IBUF
C
DO 10 I=1,NX
DO 10 J=1,NY
IDAT(I,J)=IBUF(I,J)
10 CONTINUE
ENDIF
C
RETURN
END
C----------------------------------------------------------------------
SUBROUTINE INITAR(XVALUE,NWORDS,XARR)
C----------------------------------------------------------------------
C --- PURPOSE: INITIALIZE AN ARRAY WITH A CONSTANT VALUE
C
C --- INPUTS:
C
C XVALUE - REAL - VALUE TO USED FOR INITIALIZATION
C NWORDS - INTEGER - LENGTHS OF THE DATA ARRAY (WORDS)
C
C --- OUTPUT:
C
C XARR(NWORDS) - REAL ARRAY - ARRAY INITIALIZED
C
C --- INITAR CALLED BY: MAIN
C --- INITAR CALLS: NONE
C
C----------------------------------------------------------------------
C
REAL XARR(NWORDS)
C
X=XVALUE
89