1 2 SUBROUTINE METDET 3 !*********************************************************************** 4 ! METDET Module of the AMS/EPA Regulatory Model - AERMOD - EVENT 5 ! 6 ! PURPOSE: Print Out The Details Of The Meteorology Data 7 ! 8 ! PROGRAMMER: Jeff Wang 9 ! 10 ! DATE: March 2, 1992 11 ! 12 ! INPUTS: Meteorology Input Data 13 ! 14 ! OUTPUTS: Printed Model Outputs 15 ! 16 ! CALLED FROM: PRTDET 17 !*********************************************************************** 18 19 ! Variable Declarations 20 USE MAIN1 21 IMPLICIT NONE 22 CHARACTER MODNAM*12 23 24 SAVE 25 26 ! Variable Initializations 27 MODNAM = 'METDET' ! 0 28 29 ! Meteorology Data Summary 30 IF ( NEWMET ) THEN 31 NEWMET = .FALSE. ! 0 32 WRITE (IOUNIT,9025) 33 34 35 9025 FORMAT (' MET DATA --> YR MO DY HR',' H0',' U*', & 36 & ' W*',' DT/DZ',' ZICNV',' ZIMCH',' M-O LEN', & 37 & ' Z0',' BOWEN',' ALBEDO',' REF WS',' WD', & 38 & ' HT',' REF TA',' HT') 39 ENDIF 40 WRITE (IOUNIT,9026) IYEAR , IMONTH , IDAY , IHOUR , SFCHF , & 41 & USTAR , WSTAR , VPTGZI , ZICONV , ZIMECH , & 42 & OBULEN , SFCZ0 , BOWEN , ALBEDO , UREF , & 43 & WDREF , UREFHT , TA , TREFHT 44 9026 FORMAT (14X,4(I2.2,1X),F6.1,1X,3(F6.3,1X),2(F5.0,1X),F8.1,1X,F5.2,& 45 & 1X,2(F6.2,1X),F7.2,1X,F5.0,3(1X,F6.1)) 46 47 CONTINUE 48 END
HyperKWIC - Version 1.00DD executed at 20:00 on 1 Mar 2018 | Personal or Academic or Evaluation User | Free for Non-Commercial, Non-Government Use