ACALC.f90#300 IF ( WETSCIM ) HRVALD(ITYP) = 0.0 AERCALC.f90#54 IF ( WETSCIM ) AERVALD(ITYP) = 0.0 #61 IF ( WETSCIM ) AERVALD(ITYP) = 0.0 #184 IF ( WETSCIM ) AERVALD(ITYP) = 0.0 AREAIN.f90#142 IF ( WETSCIM ) HRVALD(ITYP) = ABS(VALD)*QTK*EMIFAC(ITYP) HRLOOP.f90#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. & MAIN1.f90#230 & NOCHKD , NOWARN , SCIM , WETSCIM , SCIMHR , & OCALC.f90#363 IF ( WETSCIM ) HRVALD(ITYP) = 0.0 PERAVE.f90#55 IF ( .NOT.SCIM .OR. (SCIM .AND. .NOT.WETSCIM) ) THEN ! 288 #57 ELSEIF ( SCIM .AND. WETSCIM ) THEN #69 IF ( SCIM .AND. .NOT.WETSCIM ) THEN ! 0 #75 ELSEIF ( SCIM .AND. WETSCIM ) THEN PRMCALC.f90#68 IF ( WETSCIM ) PRMVALD(ITYP) = AERVALD(ITYP) #76 IF ( WETSCIM ) PRMVALD(ITYP) = AERVALD(ITYP) #84 IF ( WETSCIM ) PRMVALD(ITYP) = AERVALD(ITYP) #91 IF ( WETSCIM ) PRMVALD(ITYP) = AERVALD(ITYP) #213 IF ( WETSCIM ) PRMVALD(ITYP) = 0.0 SCIMIT.f90#90 WETSCIM = .TRUE. ! 0 #100 WETSCIM = .FALSE. ! 0 SUMVAL.f90#47 IF ( .NOT.SCIM .OR. (SCIM .AND. .NOT.WETSCIM) ) & #50 IF ( SCIM .AND. WETSCIM .AND. WETHR ) & #53 IF ( SCIM .AND. WETSCIM .AND. SCIMHR ) & VARINI.f90#128 WETSCIM = .FALSE. VOLCALC.f90#54 IF ( WETSCIM ) HRVALD(ITYP) = 0.0 #60 IF ( WETSCIM ) HRVALD(ITYP) = 0.0 #66 IF ( WETSCIM ) HRVALD(ITYP) = 0.0 #167 IF ( WETSCIM ) HRVALD(ITYP) = 0.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