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

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

Section 8: CALMET Model Files<br />

<strong>The</strong> d<strong>at</strong>a records <strong>of</strong> the PACOUT.DAT are repe<strong>at</strong>ed once each hour. A description <strong>of</strong> each variable in the<br />

d<strong>at</strong>a records is provided in <strong>Table</strong> 8-28. Sample FORTRAN write st<strong>at</strong>ements for the d<strong>at</strong>a records are:<br />

c --- Write d<strong>at</strong>e and time<br />

write(io7)KYR,KJUL,KHR<br />

c --- Write lower level wind components<br />

c<br />

┌─<br />

│<br />

│<br />

│<br />

└─<br />

┌─<br />

│<br />

│<br />

│<br />

└─<br />

Loop over grid cells<br />

write(io7)((UL(i,j),i=1,nx,)j=1,ny)<br />

End loop over grid cells<br />

Loop over grid cells<br />

write(io7)((VL(i,j),i=1,nx,)j=1,ny)<br />

End loop over grid cells<br />

--- Write upper level wind components<br />

┌─<br />

│<br />

│<br />

│<br />

└─<br />

┌─<br />

│<br />

│<br />

│<br />

└─<br />

Loop over grid cells<br />

write(io7)((UUP(i,j),i=1,nx,)j=1,ny)<br />

End loop over grid cells<br />

Loop over grid cells<br />

write(io7)((VUP(i,j),i=1,nx,)j=1,ny)<br />

End loop over grid cells<br />

c --- Write mixing height<br />

┌─<br />

│<br />

│<br />

│<br />

└─<br />

Loop over grid cells<br />

write(io7)((HTMIX(i,j),i=1,nx,)j=1,ny)<br />

End loop over grid cells<br />

c --- Write friction velocity<br />

┌─<br />

│<br />

│<br />

│<br />

└─<br />

Loop over grid cells<br />

write(io7)((USTAR(i,j),i=1,nx,)j=1,ny)<br />

End loop over grid cells<br />

c --- Write convective velocity scale<br />

┌─ Loop over grid cells<br />

│<br />

│<br />

write(io7)((WSTAR(i,j),i=1,nx,)j=1,ny)<br />

│<br />

└─ End loop over grid cells<br />

c --- Write Monin-Obukhov length<br />

8-137

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

Saved successfully!

Ooh no, something went wrong!