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

C----------------------------------------------------------------------
C --- PURPOSE: READ "NWORDS" OF A ONE-DIMENSIONAL INTEGER ARRAY
C
C --- INPUTS:
C IOMET - INTEGER - FORTRAN UNIT NUMBER OF INPUT FILE
C
C --- OUTPUT:
C IDAT(NWORDS) - INTEGER ARRAY - ARRAY READ FROM FILE
C NWORDS - INTEGER - NUMBER OF WORDS TO READ
C CLABEL - CHARACTER*8 - VARIABLE NAME
C NDATHR - INTEGER - DATE AND TIME OF DATA (YYJJJHH)
C
C --- RDI1D CALLED BY: MAIN
C --- RDI1D CALLS: NONE
C----------------------------------------------------------------------
C
INTEGER IDAT(NWORDS)
CHARACTER*8 CLABEL
C
READ(IOMET)CLABEL,NDATHR,IDAT
RETURN
END
C----------------------------------------------------------------------
SUBROUTINE RDR1D(IOMET,X,NWORDS,CLABEL,NDATHR)
C----------------------------------------------------------------------
C --- PURPOSE: READ "NWORDS" OF A ONE-DIMENSIONAL REAL ARRAY
C
C --- INPUTS:
C IOMET - INTEGER - FORTRAN UNIT NUMBER OF INPUT FILE
C
C --- OUTPUT:
C X(NWORDS) - REAL ARRAY - ARRAY READ FROM FILE
C NWORDS - INTEGER - NUMBER OF WORDS TO READ
C CLABEL - CHARACTER*8 - VARIABLE NAME
C NDATHR - INTEGER - DATE AND TIME OF DATA (YYJJJHH)
C
C --- RDR1D CALLED BY: MAIN
C --- RDR1D CALLS: NONE
C----------------------------------------------------------------------
REAL X(NWORDS)
CHARACTER*8 CLABEL
C
READ(IOMET)CLABEL,NDATHR,X
RETURN
END
C----------------------------------------------------------------------
SUBROUTINE RDR2D(IOMET,X,XBUF,MAXI,MAXJ,NX,NY,CLABEL,NDATHR)
C----------------------------------------------------------------------
C --- PURPOSE: READ NX * NY WORDS OF A 2-D REAL ARRAY
C
C --- INPUTS:
87