ACALC.f90#111 PPF = 0.0 #391 IF ( PPF.GT.0.0 ) THEN ! 0 #393 PPFACT(ISRC) = PPF AERCALC.f90#164 IF ( UNSTAB .AND. (HS.LT.ZI) .AND. (PPF.GT.0.0) ) THEN #203 IF ( UNSTAB .AND. (HS.LT.ZI) .AND. (PPF.GT.0.0) ) THEN !1706482 #246 IF ( UNSTAB .AND. (HS.LT.ZI) .AND. (PPF.GT.0.0) ) THEN! 0 AER_PCHI.f90#141 & *(PPF*FSUBY3/UEFF3+(1.-PPF)*FSUBY/UEFFD) #174 & *(PPF*FSUBY3/UEFF3+(1.-PPF)*FSUBY/UEFFD) BID.f90#56 IF ( UNSTAB .AND. (PPF.GT.0.0) ) THEN #57 SZB3 = BETA2*PPF*DHP3/RTOF2 ! 417588 CBLPR3.f90#45 IF ( PPF.EQ.1.0 ) THEN CPLUME.f90#77 IF ( PPF.LT.1.0 ) THEN ! 577818 #106 IF ( PPF.GT.0.0 ) THEN ! 577818 #116 IF ( PPF.LT.1.0 ) THEN #117 COUT = (QTK*(1.-PPF)/UEFFD)*(FSUBYD*FSUBZD) & #118 & + (QTK*(1.-PPF)/UEFFN)*(FSUBYN*FSUBZN) & #119 & + (QTK*PPF/UEFF3)*(FSUBY3*FSUBZ3) #122 COUT = (QTK*PPF/UEFF3)*(FSUBY3*FSUBZ3) ! 16448 DEBOUT.f90#62 CHID = (QTK*EMIFAC(1)*(1.-PPF)/UEFFD)*(FSUBYD*FSUBZD) ! 0 #63 CHIN = (QTK*EMIFAC(1)*(1.-PPF)/UEFFN)*(FSUBYN*FSUBZN) #64 IF ( PPF.GT.0.0 .AND. UEFF3.GT.0.0 ) THEN #65 CHI3 = (QTK*EMIFAC(1)*PPF/UEFF3)*(FSUBY3*FSUBZ3) ! 0 #108 WRITE (DBGUNT,400) PPF , QTK , HE , SYAMB , VSIGY , SYB , SY , & #115 IF ( (1.0-PPF)*QTK.GT.0.0 ) THEN ! 0 #116 WRITE (DBGUNT,410) PPF , (1.0-PPF)*QTK , HED1 , SYAMB , & #120 WRITE (DBGUNT,420) (1.0-PPF)*QTK , HED2 , SYAMB , VSIGY , & #130 WRITE (DBGUNT,430) PPF , (1.0-PPF)*QTK , HEN1 , SYAMB , & #134 WRITE (DBGUNT,440) (1.0-PPF)*QTK , HEN2 , SYAMB , VSIGY , & #140 IF ( (PPF*QTK).GT.0.0 ) THEN ! 0 #141 WRITE (DBGUNT,450) PPF , (PPF*QTK) , HE3 , SYA3 , VSY3 , & DELTAH.f90#161 IF ( PPF.GT.0.0 ) THEN EVALCK.f90#80 ELSEIF ( PPF.GT.0.999 ) THEN EVALFL.f90#162 IF ( UNSTAB .AND. HS.LT.ZI .AND. PPF.GT.0.999 ) THEN ! 0 #184 & PPF , CHIDML(I) , CHINML(I) , & F2INT.f90#99 IF ( UNSTAB .AND. (HS.LT.ZI) .AND. (PPF.GT.0.0) ) THEN ! 0 #138 IF ( PPF.LT.1.0 ) THEN ! 0 #167 IF ( PPF.GT.0.0 ) THEN ! 0 #178 IF ( PPF.LT.1.0 ) THEN #179 VWRAP = (1.-PPF)*FSUBZD/UEFFD + (1.-PPF) & #180 & *FSUBZN/UEFFN + PPF*FSUBZ3/UEFF3 #182 VWRAP = PPF*FSUBZ3/UEFF3 ! 0 #220 IF ( PPF.LT.1.0 ) THEN ! 0 #249 IF ( PPF.GT.0.0 ) THEN ! 0 #260 IF ( PPF.LT.1.0 ) THEN #261 VLIFT = (1.-PPF)*FSUBZD/UEFFD + (1.-PPF) & #262 & *FSUBZN/UEFFN + PPF*FSUBZ3/UEFF3 #264 VLIFT = PPF*FSUBZ3/UEFF3 ! 0 IBLVAL.f90#101 IF ( PPF.LT.1.0 ) THEN !6968044 #136 IF ( PPF.GT.0.0 ) THEN !6968044 #160 WRITE (DBGUNT,6016) PPF , UEFF3 , SVEFF3 , SWEFF3 ! 0 #247 IF ( PPF.GT.0.0 ) THEN !6968044 #306 IF ( PPF.LT.1.0 ) THEN !6968044 MAIN1.f90#656 & ZLB , RINIT , CB , CM , QTK , PPF , PSUBS , FHC , SY , & METDEB.f90#86 ELSEIF ( PPF.GE.1.0 ) THEN #89 ELSEIF ( PPF.LE.0.0 ) THEN OCALC.f90#174 PPF = 0.0 #454 IF ( PPF.GT.0.0 ) THEN ! 0 #456 PPFACT(ISRC) = PPF PCALC.f90#325 IF ( PPF.GT.0. ) CALL CBLPR3 #328 IF ( PPF.EQ.0. ) THEN #330 ELSEIF ( PPF.EQ.1. ) THEN #333 ZSUBP = MAX(500.,ZI,PPF*(HE3+SZCOEF*SZA3)+(1.-PPF) & #459 IF ( PPF.GT.0.0 ) THEN #463 FRAN = PPF*FRAN3 + (1.-PPF)*FRAN #538 IF ( PPF.GT.0.0 ) THEN ! 0 #540 PPFACT(ISRC) = PPF PENFCT.f90#46 PPF = 0.0 ! 7638 #49 PPF = 1.0 ! 40 #66 PPF = 0.0 ! 498 #69 PPF = 1.0 ! 78 #72 PPF = 1.5 - (1.0/HEDHH) ! 878 PLUME_VOL.f90#97 PPF = 0.0 PRMCALC.f90#158 PPFSAV = PPF #277 PPF = PPFSAV RMSSIG.f90#62 IF ( PPF.GT.0.0 ) THEN SIGY.f90#72 IF ( PPF.GT.0.0 ) THEN SIGZ.f90#98 IF ( PPF.LT.1.0 ) THEN ! 10690K #123 IF ( PPF.GT.0.0 ) THEN VCALC.f90#102 PPF = 0.0 #196 IF ( PPF.GT.0.0 ) THEN ! 0 #198 PPFACT(ISRC) = PPF
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