AER_ACHI.f90#133 IF ( PRATE.GT.0. ) THEN ! 0 #135 WETFLUX = (ADJ*FRACSAT*PRATE*1.0E6*RGAS*TA) & #138 WETFLUX = 1.0E-3*ADJ*WASHOUT(JIN)*PRATE/(ZSUBP*3600.) ! 0 AER_PCHI.f90#121 IF ( PRATE.GT.0. ) THEN ! 0 #123 WETFLUX = (ADJ*FRACSAT*PRATE*1.0E6*RGAS*TA) & #126 WETFLUX = 1.0E-3*ADJ*WASHOUT(JIN)*PRATE/(ZSUBP*3600.) ! 0 #178 WRITE (DBGUNT,13) ITYP , ADJ , ZSUBP , PRATE , WETFLUX , & EV_METEXT.f90#85 PRATE = APRATE(IHOUR) HRLOOP.f90#151 IF ( PRATE.GT.0.0 ) THEN #159 IF ( PRATE.GT.0.0 ) THEN ! 0 #166 IF ( PRATE.GT.0.0 ) THEN ! 0 #177 IF ( WETSCIM .AND. PRATE.GT.0.0 ) THEN #192 IF ( WETSCIM .AND. PRATE.GT.0.0 ) THEN #203 ELSEIF ( WETSCIM .AND. PRATE.GT.0.0 .AND. & #402 PREC1 = PRATE MAIN1.f90#496 & ZIRUR , ZIURB , URBWSTR , URBPOP , PRATE , PREC1 , PREC2 ,& METDAT.f90#92 & PRATE , RH , SFCP , NCLOUD #109 & PRATE , RH , SFCP , NCLOUD #127 & IPCODE , PRATE , RH , SFCP , NCLOUD #154 & UREF , WDREF , UREFHT , TA , TREFHT , IPCODE , PRATE , & METEXT.f90#119 PRATE = 0.0 #174 & UREF , WDREF , UREFHT , TA , TREFHT , IPCODE , PRATE , & #189 IF ( TA.LT.0.0 .OR. PRATE.LT.0.0 ) THEN ! 0 METQA.f90#125 IF ( PRATE.LT.0.0 .OR. PRATE.EQ.99 ) PRATE = 0.0 ! 4320 PRM_PCHI.f90#106 IF ( PRATE.GT.0. ) THEN ! 0 #108 WETFLUX = (ADJ*FRACSAT*PRATE*1.0E6*RGAS*TA) & #111 WETFLUX = 1.0E-3*ADJ*WASHOUT(JIN)*PRATE/(ZSUBP*3600.) ! 0 SCAVRAT.f90#58 WRITE (IOUNIT,*) 'PRATE (mm/hr) = ' , PRATE #65 IF ( PRATE.EQ.0. ) THEN ! 0 #84 VFALL = 3.75*PRATE**0.111 ! 0 #88 RDROP = (PRATE**0.232)/18.11 #126 IF ( PRATE.GT.0.0 ) THEN #129 PSCVRT(I) = 1.5*ECOLL(I)*PRATE/(2.*RDROP*3.6E4) ! 0 #144 VFALL = 3.75*PRATE**0.111 ! 0 #148 RDROP = (PRATE**0.232)/18.11 #152 LIQCONT = (PRATE**0.889)/13.28 #185 GSCVRT = (FRACSAT*RGAS*TA*PRATE) & VDP.f90#286 PPP = PRATE + PREC1 + PREC2
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