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

C IOMET - INTEGER - FORTRAN UNIT NUMBER OF INPUT FILE
C XBUF(NX,NY) - REAL ARRAY - BUFFER TO HOLD INPUT DATA
C MAXI,MAXJ - INTEGERS - DIMENSIONS OF DATA ARRAY
C NX,NY - INTEGERS - ACTUAL SIZE OF GRID TO READ
C CLABEL - CHARACTER*8 - VARIABLE NAME
C NDATHR - INTEGER - DATE AND TIME OF DATA (YYJJJHH)
C
C --- OUTPUT:
C X(MAXI,MAXJ) - REAL ARRAY - INPUT DATA ARRAY (PADDED IF NEC.)
C
C --- RDR2D CALLED BY: MAIN
C --- RDR2D CALLS: NONE
C----------------------------------------------------------------------
REAL X(MAXI,MAXJ),XBUF(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,X
ELSE
C
C --- ONLY A PORTION OF GRID BEING USED -- READ AND
C --- TRANSFER FROM BUFFER
READ(IOMET)CLABEL,NDATHR,XBUF
C
DO 10 I=1,NX
DO 10 J=1,NY
X(I,J)=XBUF(I,J)
10 CONTINUE
ENDIF
C
RETURN
END
C
C----------------------------------------------------------------------
SUBROUTINE RDI2D(IOMET,IDAT,IBUF,MAXI,MAXJ,NX,NY,CLABEL,NDATHR)
C----------------------------------------------------------------------
C --- PURPOSE: READ NX * NY WORDS OF A 2-D INTEGER ARRAY
C
C --- INPUTS:
C IOMET - INTEGER - FORTRAN UNIT NUMBER OF INPUT
C FILE
C IBUF(NX,NY) - INTEGER ARRAY - BUFFER TO HOLD INPUT DATA
C MAXI,MAXJ - INTEGERS - DIMENSIONS OF DATA ARRAY
C NX,NY - INTEGERS - ACTUAL SIZE OF GRID TO READ
C
C --- OUTPUT:
C IDAT(MAXI,MAXJ) - INTEGER ARRAY - INPUT DATA ARRAY (PADDED IF
C NECESSARY)
C CLABEL - CHARACTER*8 - VARIABLE NAME
88