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

C
SUBROUTINE READCM
C***********************************************************************
C FUNCTION:
C CALMET version
C read the met header info and met arrays from the
C archived meteorological simulation output file 1
C on the meteorology model domain and resolution
C
C INPUT:
C CALMET FILE, REQUIRED by MCIP
C
C OUTPUT:
C Arrays defined in 'CMINPUT.EXT'
C Units for output ---> in m, s, kg, K, pa, etc. (MKS)
C
C REVISION HISTORY:
C CREATED February 20, 2001 by Krassi & Daewon
C***********************************************************************
IMPLICIT NONE
C MM INPUT DATA Definition
INCLUDE SUBST_HGRD_ID
INCLUDE SUBST_VGRD_ID
C INCLUDE SUBST_COORD_ID
C INCLUDE SUBST_MPARM
INCLUDE 'MCIPPARM.EXT' ! params for mcip
INCLUDE 'MCIPCOM.EXT' ! commons for mcip
INCLUDE 'LRADMDAT.EXT'
INCLUDE 'CMINPUT.EXT' ! params for calmet
C LOCAL VARIABLES SUCH AS LOOP INDICE
CHARACTER*256 CMFILE ! Filename for CALMET datafile
CHARACTER*16 PNAME
CHARACTER*8 ID
INTEGER IERR ! STATUS RETURN FROM I/O REQUESTS
INTEGER IN,I,J,K ! LOOP INDICES (CALMET ROW,COL)
INTEGER IZ,M
INTEGER NCOL1,NROW1 ! LOOP INDICES (CTM COL,ROW)
INTEGER IM1,JM1 ! INDICES USED FOR LOADING CTM ARRAYS
INTEGER INDEX,ILEVMET
INTEGER NUM3D
INTEGER NUM2D
INTEGER NUM1D
INTEGER NUM0D
INTEGER IDOT,IDUM
INTEGER NDATHR ! Date and time of data (YYJJJHH)
INTEGER MXDAYS
79