ACALC.f90#124 IF ( UNSTAB .AND. (HS.LT.ZI) ) CALL PDF #133 IF ( STABLE .OR. (UNSTAB .AND. HS.GE.ZI) ) THEN ! 0 #136 ELSEIF ( UNSTAB ) THEN #165 IF ( UNSTAB .AND. (HS.LT.ZI) ) THEN #267 IF ( UNSTAB .AND. (HS.LT.ZI) ) CALL PDF #277 IF ( UNSTAB .AND. (HS.LT.ZI) ) THEN #311 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN #314 ELSEIF ( UNSTAB ) THEN #345 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) & #351 ELSEIF ( UNSTAB ) THEN #384 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN ! 0 ACPLUME.f90#66 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN #78 ELSEIF ( UNSTAB ) THEN AERCALC.f90#87 IF ( UNSTAB .AND. (HS.LT.ZI) ) THEN #131 IF ( UNSTAB .AND. (HS.LT.ZI) ) CALL PDF #141 IF ( UNSTAB .AND. (HS.LT.ZI) ) THEN #164 IF ( UNSTAB .AND. (HS.LT.ZI) .AND. (PPF.GT.0.0) ) THEN #196 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN #199 ELSEIF ( UNSTAB ) THEN #203 IF ( UNSTAB .AND. (HS.LT.ZI) .AND. (PPF.GT.0.0) ) THEN !1706482 #236 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN #241 ELSEIF ( UNSTAB ) THEN #246 IF ( UNSTAB .AND. (HS.LT.ZI) .AND. (PPF.GT.0.0) ) THEN! 0 AER_ACHI.f90#145 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN ! 0 #147 ELSEIF ( UNSTAB ) THEN #153 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN ! 0 #155 ELSEIF ( UNSTAB ) THEN AER_PCHI.f90#135 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN #138 ELSEIF ( UNSTAB ) THEN #170 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN #172 ELSEIF ( UNSTAB ) THEN BID.f90#41 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN #47 ELSEIF ( UNSTAB ) THEN #56 IF ( UNSTAB .AND. (PPF.GT.0.0) ) THEN CENTROID.f90#35 IF ( UNSTAB .AND. (HS.LT.ZI) ) THEN #62 ELSEIF ( UNSTAB .AND. (HS.GE.ZI) ) THEN CPLUME.f90#64 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN #76 ELSEIF ( UNSTAB ) THEN DEBOUT.f90#53 IF ( STABLE .OR. (UNSTAB .AND. HS.GE.ZI) ) THEN #55 ELSEIF ( UNSTAB ) THEN #107 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN #114 ELSEIF ( UNSTAB ) THEN DECAY.f90#43 IF ( STABLE .OR. (UNSTAB .AND. HS.GE.ZI) ) THEN ! 0 DELTAH.f90#59 IF ( (STABLE .OR. (UNSTAB .AND. (HS.GE.ZI))) .AND. (XARG.GE.XMAX) & #66 ELSEIF ( (STABLE .OR. (UNSTAB .AND. (HS.GE.ZI))) .AND. & #152 ELSEIF ( UNSTAB ) THEN DISTF.f90#34 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN EVALCK.f90#65 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN EVALFL.f90#51 IF ( (STABLE .OR. (UNSTAB .AND. HS.GE.ZI)) ) THEN ! 0 #162 IF ( UNSTAB .AND. HS.LT.ZI .AND. PPF.GT.0.999 ) THEN ! 0 F2INT.f90#38 IF ( UNSTAB .AND. (HS.LT.ZI) ) THEN #68 IF ( UNSTAB .AND. (HS.LT.ZI) ) CALL PDF #78 IF ( UNSTAB .AND. (HS.LT.ZI) ) THEN #89 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN #94 ELSEIF ( UNSTAB ) THEN #99 IF ( UNSTAB .AND. (HS.LT.ZI) .AND. (PPF.GT.0.0) ) THEN ! 0 #125 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN #137 ELSEIF ( UNSTAB ) THEN #207 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN #219 ELSEIF ( UNSTAB ) THEN GRDPTG.f90#168 ELSEIF ( UNSTAB ) THEN #190 IF ( STABLE .OR. (UNSTAB .AND. GRIDHT(NDX).GT.ZI) ) GRIDTG(NDX)& HEFF.f90#47 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN #54 ELSEIF ( UNSTAB ) THEN IBLVAL.f90#66 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN #97 ELSEIF ( UNSTAB .AND. (HS.LT.ZI) ) THEN #186 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN ! 40087K #240 ELSEIF ( UNSTAB .AND. (HS.LT.ZI) ) THEN #395 IF ( UNSTAB .AND. HS.LT.ZI ) THEN ! 40087K MAIN1.f90#480 LOGICAL CLMHR , MSGHR , UNSTAB , NEUTRL , STABLE , RUNERR , & MEREAD.f90#186 UNSTAB = .FALSE. ! 0 #189 UNSTAB = .TRUE. ! 0 METDEB.f90#80 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN ! 0 METEXT.f90#216 UNSTAB = .FALSE. ! 2546 #219 UNSTAB = .TRUE. ! 1774 METINI.f90#183 IF ( (TGS.GT.0.0) .AND. (STABLE .OR. (UNSTAB .AND. HS.GE.ZI)) ) & OCALC.f90#187 IF ( UNSTAB .AND. (HS.LT.ZI) ) CALL PDF #196 IF ( STABLE .OR. (UNSTAB .AND. HS.GE.ZI) ) THEN ! 0 #199 ELSEIF ( UNSTAB ) THEN #239 IF ( UNSTAB .AND. (HS.LT.ZI) ) THEN #330 IF ( UNSTAB .AND. (HS.LT.ZI) ) CALL PDF #340 IF ( UNSTAB .AND. (HS.LT.ZI) ) THEN #374 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN #377 ELSEIF ( UNSTAB ) THEN #408 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) & #414 ELSEIF ( UNSTAB ) THEN #447 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN ! 0 PCALC.f90#190 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN ! 9132 #292 IF ( UNSTAB .AND. HS.LT.ZI ) THEN #310 IF ( UNSTAB .AND. (HS.LT.ZI) ) CALL PDF ! 9132 #319 IF ( STABLE .OR. (UNSTAB .AND. HS.GE.ZI) ) THEN ! 0 #323 ELSEIF ( UNSTAB ) THEN #455 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN #457 ELSEIF ( UNSTAB ) THEN #531 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN ! 0 PDIS.f90#61 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN ! 0 #65 ELSEIF ( UNSTAB ) THEN PENFCT.f90#48 ELSEIF ( UNSTAB .AND. (HS.GE.ZI) ) THEN PLUMEF.f90#81 IF ( UNSTAB .AND. (HS.LT.ZI) ) CALL PDF #90 IF ( UNSTAB .AND. (HS.LT.ZI) ) THEN #118 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN #121 ELSEIF ( UNSTAB ) THEN #151 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN #156 ELSEIF ( UNSTAB ) THEN PLUME_VOL.f90#145 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN ! 0 #235 IF ( UNSTAB .AND. HS.LT.ZI ) THEN #269 IF ( UNSTAB .AND. (HS.LT.ZI) ) CALL PDF #279 IF ( UNSTAB .AND. (HS.LT.ZI) ) THEN #304 IF ( UNSTAB .AND. VERT.GT.ZI ) THEN #323 IF ( UNSTAB .AND. PPFACT(ISRC).GT.0.0 ) THEN #350 IF ( UNSTAB .AND. (HS.LT.ZI) ) CALL PDF #360 IF ( UNSTAB .AND. (HS.LT.ZI) ) THEN #387 IF ( UNSTAB .AND. VERT.GT.ZI ) THEN #405 IF ( UNSTAB .AND. PPFACT(ISRC).GT.0.0 ) THEN PRMCALC.f90#102 IF ( UNSTAB ) ZHI = MIN(ZHI,ZI) #140 IF ( UNSTAB .AND. HE.GE.ZI ) THEN PRMHEFF.f90#54 ELSEIF ( UNSTAB ) THEN PRM_F2INT.f90#66 ELSEIF ( UNSTAB .AND. HE.LE.ZI ) THEN #85 ELSEIF ( UNSTAB .AND. HE.LE.ZI ) THEN PRM_PLUME.f90#36 ELSEIF ( UNSTAB .AND. HE.LE.ZI ) THEN PVMRM_CALC.f90#127 IF ( UNSTAB .AND. PPFACT(IDOM).GT.0.0 ) THEN PWIDTH.f90#76 IF ( UNSTAB .AND. (HS.LT.ZI) ) CALL PDF REFPTG.f90#75 IF ( UNSTAB ) THEN REFSV.f90#48 IF ( UNSTAB ) THEN REFSW.f90#54 IF ( UNSTAB ) THEN RELDISP.f90#36 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN #45 ELSEIF ( UNSTAB ) THEN RMSSIG.f90#44 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN #52 ELSEIF ( UNSTAB ) THEN SET_METDATA.f90#153 UNSTAB = .FALSE. ! 2546 #156 UNSTAB = .TRUE. ! 498 SIGY.f90#52 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN #59 ELSEIF ( UNSTAB ) THEN SIGYPR.f90#41 ELSEIF ( UNSTAB ) THEN SIGZ.f90#49 IF ( STABLE .OR. (UNSTAB .AND. HS.GE.ZI) ) THEN #90 ELSEIF ( UNSTAB ) THEN SIGZPR.f90#83 ELSEIF ( UNSTAB ) THEN SZSFCL.f90#51 IF ( UNSTAB .AND. SURFAC ) THEN SZSFCLPR.f90#51 IF ( UNSTAB .AND. ZARG.LT.0.1*ZI ) THEN VCALC.f90#118 IF ( UNSTAB .AND. (HS.LT.ZI) ) CALL PDF #127 IF ( STABLE .OR. (UNSTAB .AND. HS.GE.ZI) ) THEN ! 0 #130 ELSEIF ( UNSTAB ) THEN #162 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN #164 ELSEIF ( UNSTAB ) THEN #189 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN ! 0 VOLCALC.f90#91 IF ( UNSTAB .AND. (HS.LT.ZI) ) THEN #128 IF ( UNSTAB .AND. (HS.LT.ZI) ) CALL PDF #138 IF ( UNSTAB .AND. (HS.LT.ZI) ) THEN #178 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN #181 ELSEIF ( UNSTAB ) THEN #211 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN #215 ELSEIF ( UNSTAB ) THEN XTRPDN.f90#47 IF ( UNSTAB ) THEN ! 0
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