AERMOD.f90#674
 200     FORMAT (' OPTIONS: ',/18(1X,A6),/)
ERRHDL.f90#72
 1111 FORMAT (A2,1X,A1,A3,I6,1X,A6,':',A50,1X,A8)
EVEFIL.f90#143
 1011    FORMAT (/'OU STARTING',/'   EVENTOUT  ',A6,/'OU FINISHED')
#146
 1012    FORMAT (/' OU STARTING',/'    EVENTOUT  ',A6,/' OU FINISHED')
#149
 1013    FORMAT (/'  OU STARTING',/'     EVENTOUT  ',A6,                &
#153
 1014    FORMAT (/'   OU STARTING',/'      EVENTOUT  ',A6,              &
HEADER.f90#67
 9040 FORMAT (18(1X,A6)/)
MEOPEN.f90#79
 1900 FORMAT (2A10,T31,A6,T38,I8,T48,A6,T55,I8,T65,A6,T72,I8,T94,I5)
#91
 1901 FORMAT (2A10,T31,A6,T38,A8,T48,A6,T55,A8,T65,A6,T72,A8,T94,I5)
MEREAD.f90#77
 1900    FORMAT (2A10,T31,A6,T38,A8,T48,A6,T55,A8,T65,A6,T72,A8,T94,I5)
METEXT.f90#129
 1900    FORMAT (2A10,T31,A6,T38,A8,T48,A6,T55,A8,T65,A6,T72,A8,T94,I5)
MSGWRT.f90#61
 1116    FORMAT (A2,1X,A1,A3,I6,1X,A6,1X,A50,1X,A8)
#64
 1117    FORMAT (A2,1X,A1,A3,I6,1X,A6,':',A50,1X,A8)
OUMXFL.f90#223
 9007    FORMAT ('* MODELING OPTIONS USED:',/'* ',18(1X,A6))
OUPOST.f90#302
 9007    FORMAT ('* MODELING OPTIONS USED:',/'* ',18(1X,A6))
PFRACT.f90#30
      DOUBLE PRECISION A1 , A2 , A3 , A4 , A5 , A6 , B1 , B2 , B3 , B4 ,&
#59
            A6 = (HCINT+HEARG-TWOIZI)/(RTOF2*SZ)
#63
            B6 = ERFX(A6)
PLOTFL.f90#62
 9007             FORMAT ('* MODELING OPTIONS USED:',/'* ',18(1X,A6))
PLTANN.f90#61
 9007       FORMAT ('* MODELING OPTIONS USED:',/'* ',18(1X,A6))
#64
 9010       FORMAT ('*',9X,'PLOT FILE OF ',A6,' VALUES FOR ',           &
PRTANN.f90#304
 9032 FORMAT (30X,'*** THE ',A6,' (',I6,' HRS) ',6A4,                   &
#308
 9033 FORMAT (30X,'*** THE ',A6,' (',I4,' YRS) ',6A4,                   &
PRTPM10SUM.f90#48
 9021             FORMAT (44X,'*** THE SUMMARY OF MAXIMUM ',A6,' (',I6, &
#52
 9023             FORMAT (44X,'*** THE SUMMARY OF MAXIMUM ',A6,' (',I4, &
PRTSRC.f90#114
     &              4X,A6)
#144
     &              F8.2,5X,A3,4X,A6)
#177
     &              F8.2,5X,A3,4X,A6)
#208
     &              4X,F8.2,5X,A3,4X,A6)
#239
     &              5X,A3,4X,A6)
#273
     &              E10.5,2X,A3,4X,A6)
#482
 9004          FORMAT (40X,4(A6,9X)/20X,40('- ')/)
#568
 9019          FORMAT (59X,'SEASON = ',A6)
#637
99019 FORMAT (46X,'SEASON = ',A6,';  DAY OF WEEK = ',A8)
PRTSUM.f90#57
 9021             FORMAT (44X,'*** THE SUMMARY OF MAXIMUM ',A6,' (',I6, &
#61
 9023             FORMAT (44X,'*** THE SUMMARY OF MAXIMUM ',A6,' (',I4, &
PSTANN.f90#76
 9007          FORMAT ('* MODELING OPTIONS USED:',/'* ',18(1X,A6))
#79
 9010          FORMAT ('*',9X,'POST/PLOT FILE OF ',A6,' VALUES FOR ',   &
RANKFL.f90#40
 9007       FORMAT ('* MODELING OPTIONS USED:',/'* ',18(1X,A6))
SHOUT.f90#53
 9007       FORMAT ('* MODELING OPTIONS USED:',/'* ',18(1X,A6))
SUMTBL.f90#139
 1116 FORMAT (A2,1X,A1,A3,I6,1X,A6,1X,A50,1X,A8)
#140
 1117 FORMAT (1X,A2,1X,A1,A3,I6,1X,A6,':',A50,1X,A8)
TERRST.f90#45
 1116    FORMAT (A2,1X,A1,A3,I6,1X,A6,1X,A50,1X,A8)
VRTSBL.f90#37
      REAL :: SZARG , HEARG , ZIARG , A1 , A2 , A3 , A4 , A5 , A6 ,     &
#91
            A6 = (-0.5/(SZARG*SZARG))*(ZR+(TWOIZI+HETMP))               &
#96
            IF ( A6.GT.EXPLIM ) T = T + EXP(A6)

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