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

IF ( .NOT. COLFLAG ) GOTO 1010
IF ( .NOT. ROWFLAG ) GOTO 1010
C Vertical grid type definition and sigf information
VGTYP3D = 6 !VGHVAL3 - meters above ground for CALMET
C** Layer definition for MET coordinate
C (monotonic increase with height)
C compute XX3FACE & XX3MIDL (layer face & middle coord. definitions)
C XX3FACE & XX3MIDL arrays are dimensioned in MCIPCOM.EXT and
C monotonically increasing with height
C
C
C
C
DO K = 0, METLAY
XX3FACE (K) = F_ZFACE(K) - F_ZFACE(0)
END DO
DO K = 1, METLAY
XX3MIDL (K) = 0.5 * ( XX3FACE (K-1) + XX3FACE (K) )
END DO
write(*,*) ' METROW, METCOL, LURADM = ', METROW, METCOL, LURADM
write(*,*) 'lutype=',LUTYPE
IF(LUTYPE .EQ. 3) THEN
C
C Translation of CALMET landuse category to RADM LU
write(*,*) 'Landuse 14-category to 11-category translation'
C
C------------------------------------------------------------------
C Change CALMET 14 landuse categories to RADM 11 categories
C Also, change percentages to fractions
C ----------------------------------------------------------
C MM5 CATEGORIES RADM CALMET
C ----------------------------------------------------------
C 1 URBAN LAND 1 10
C 2 AGRICULTURE LAND 2 20,-20
C 3 RANGE-GRASSLAND 3 30
C 4 DECIDUOUS FOREST 4 40
C 5 CONIFEROUS FOREST 5 61
C 6 MIXED FOREST AND WET LAND 6 62
C 7 WATER 7 50,51,55
C 8 MARSH OR WET LAND 9 60
C 9 DESERT 8 70
C 10 TUNDRA 10 80
C 11 PERMANENT ICE 11 90
C 12 TROPICAL FOREST 5 61
C 13 SAVANNAH 10 80
C ? MIXED AGRICULTURE/RANGELAND 3 30
C ---------------------------------------------------------
69