29.01.2015 Views

Table of Contents - The Atmospheric Studies Group at TRC

Table of Contents - The Atmospheric Studies Group at TRC

Table of Contents - The Atmospheric Studies Group at TRC

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

Section 8: CALMET Model Files<br />

4 NUSTA,NPSTA,NOWSTA,NLU,IWAT1,IWAT2,LCALGRD<br />

5 PMAP,DATUM,DATEN,FEAST,FNORTH,UTMHEM,IUTMZN,<br />

6 RNLAT0,RELON0,XLAT1,XLAT2<br />

c<br />

c --- Header record #NCOM+4 - cell face heights (NZ + 1 words)<br />

write(iomet)CLAB1,IDUM,IDUM,IDUM,IDUM,ZFACEM<br />

c --- Header records #NCOM+5 & 6 - x, y coordin<strong>at</strong>es <strong>of</strong> surface st<strong>at</strong>ions<br />

c --- (NSSTA words each record)<br />

if(nssta.ge.1)then<br />

write(iomet)CLAB2,IDUM,IDUM,IDUM,IDUM,XSSTA<br />

write(iomet)CLAB3,IDUM,IDUM,IDUM,IDUM,YSSTA<br />

endif<br />

c --- Header records #NCOM+7 & 8 - x, y coordin<strong>at</strong>es <strong>of</strong> upper air st<strong>at</strong>ions<br />

c --- (NUSTA words each record)<br />

if(nusta.ge.1)then<br />

write(iomet)CLAB4,IDUM,IDUM,IDUM,IDUM,XUSTA<br />

write(iomet)CLAB5,IDUM,IDUM,IDUM,IDUM,YUSTA<br />

endif<br />

c --- Header records #NCOM+9 & 10 - x, y coordin<strong>at</strong>es <strong>of</strong> precipit<strong>at</strong>ion st<strong>at</strong>ions<br />

c --- (NPSTA words each record)<br />

if(npsta.ge.1)then<br />

write(iomet)CLAB6,IDUM,IDUM,IDUM,IDUM,XPSTA<br />

write(iomet)CLAB7,IDUM,IDUM,IDUM,IDUM,YPSTA<br />

endif<br />

c --- Header record #NCOM+11 - surface roughness lengths (NX * NY words)<br />

write(iomet)CLAB8,IDUM,IDUM,IDUM,IDUM,Z0<br />

c --- Header record #NCOM+12 - land use c<strong>at</strong>egories (NX * NY words)<br />

write(iomet)CLAB9,IDUM,IDUM,IDUM,IDUM,ILANDU<br />

c --- Header record #NCOM+13 - elev<strong>at</strong>ions (NX * NY words)<br />

write(iomet)CLAB10,IDUM,IDUM,IDUM,IDUM,ELEV<br />

c --- Header record #NCOM+14 - leaf area index (NX * NY words)<br />

write(iomet)CLAB11,IDUM,IDUM,IDUM,IDUM,XLAI<br />

c --- Header record #NCOM+15 - nearest surface st<strong>at</strong>ion no. to each<br />

c ---<br />

grid point (NX * NY words)<br />

if(nssta.ge.1)then<br />

write(iomet)CLAB12,IDUM,IDUM,IDUM,IDUM,NEARS<br />

endif<br />

8-122

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!