ACALC.f90#219 DO J = 1 , NPD ! 0 #220 DQCOR(J) = 1.0 ! 0 #221 WQCOR(J) = 1.0 #254 DO J = 1 , NPD ! 0 #255 DQCOR(J) = 1.0 ! 0 #256 WQCOR(J) = 1.0 #336 DO J = 1 , NPD ! 0 #339 HV = (X/US)*VGRAV(J) ! 0 #343 ADJ = PHI(J)*DQCOR(J)*WQCOR(J) #368 CALL AER_PCHI(X,ADJ,VDEP(J),J,AEROUT) AERCALC.f90#76 DO J = 1 , NPD ! 0 #77 DQCOR(J) = 1.0 ! 0 #78 WQCOR(J) = 1.0 #227 DO J = 1 , NPD ! 0 #230 HV = (XARG/US)*VGRAV(J) ! 0 #234 ADJ = PHI(J)*DQCOR(J)*WQCOR(J) #267 CALL AER_PCHI(XARG,ADJ,VDEP(J),J,AERTMP) APARM.f90#34 INTEGER :: I , J , ISDX AVETIM.f90#29 INTEGER :: I , J , K #64 J = 0 ! 3 #75 J = J + 1 ! 6 #76 IF ( J.LE.NAVE ) THEN #77 KAVE(J) = AVENUM ! 6 #78 WRITE (CHRAVE(J),'(I2,"-HR")') KAVE(J) #81 DO K = J - 1 , 1 , -1 #83 IF ( KAVE(J).EQ.KAVE(K) ) & #96 J = J + 1 ! 0 #97 IF ( J.LE.NAVE ) THEN #98 KAVE(J) = 720 ! 0 #100 CHRAVE(J) = 'MONTH' #103 DO K = J - 1 , 1 , -1 #105 IF ( KAVE(J).EQ.KAVE(K) ) & CHK_ENDYR.f90#26 INTEGER :: IEND_DAY , I , J , K , L , M #76 DO J = 1 , NUMREC ! 0 #77 ANNVAL(J,K,L) = 0.0 ! 0 #78 ANNVALD(J,K,L) = 0.0 #79 ANNVALW(J,K,L) = 0.0 #89 DO J = 1 , NUMREC ! 0 #91 HIVALU(J,I,K,L,M) = 0.0 ! 0 #92 NHIDAT(J,I,K,L,M) = 0 #93 HCLMSG(J,I,K,L,M) = ' ' DSFILL.f90#31 INTEGER :: J , K , ISDX #46 DO J = 1 , IMIT ! 9 #71 DO J = 1 , IMIT ! 324 #99 DO J = 1 , IMIT ! 324 #126 DO J = 1 , IMIT ! 324 #150 DO J = 1 , IMIT ! 324 EFFILL.f90#25 INTEGER :: J , K , ISDX , IQMAX #40 DO J = 1 , IMIT ! 0 EVCART.f90#104 J = 1 #105 DO WHILE ( .NOT.FOUND .AND. J.LE.NUMARC ) #106 IF ( FIELD(8).EQ.ARCID(J) ) THEN ! 0 #110 J = J + 1 ! 0 FLGHGT.f90#73 DO J = 1 , IMIT ! 0 GDLAND.f90#24 INTEGER I , J , ILAND_NDX #55 DO J = 1 , IMIT ! 0 GDSEAS.f90#23 INTEGER I , J , ISEA_NDX #54 DO J = 1 , IMIT ! 0 GENCAR.f90#27 INTEGER :: I , J , K #94 DO J = 1 , JCOUNT ! 0 #95 YCOORD(J,INNET) = YINT + YDELTA*FLOAT(J-1) ! 0 GENPOL.f90#26 INTEGER :: I , J , K #79 DO J = 1 , JCOUNT ! 3 #80 YCOORD(J,INNET) = (DIRINI+DIRINC*FLOAT(J-1)) ! 108 #81 IF ( YCOORD(J,INNET).GT.360. ) THEN #82 YCOORD(J,INNET) = YCOORD(J,INNET) - 360. ! 0 #83 ELSEIF ( YCOORD(J,INNET).LE.0. ) THEN #84 YCOORD(J,INNET) = YCOORD(J,INNET) + 360. ! 0 GETFLD.f90#39 WRITE (FIELD(I),WRTFRM) (RUNST(J),J=LOCB(I),LOCE(I)) ! 5646 #43 WRITE (FIELD(I),WRTFRM) (RUNST(J),J=LOCB(I),LOCB(I)+ILEN_FLD& HILHGT.f90#26 INTEGER :: I , J , IZH1 #68 DO J = 1 , IMIT ! 0 HIPER.f90#41 DO J = NHIANN - 1 , 1 , -1 ! 38 #42 IF ( ANNVAL(IREC,IGRP,ITYP).LE.AMXVAL(J,IGRP,ITYP) & #44 AMXVAL(J+1,IGRP,ITYP) = ANNVAL(IREC,IGRP,ITYP) ! 26 #45 IMXLOC(J+1,IGRP,ITYP) = IREC #49 AMXVAL(J+1,IGRP,ITYP) = AMXVAL(J,IGRP,ITYP) ! 240 #50 IMXLOC(J+1,IGRP,ITYP) = IMXLOC(J,IGRP,ITYP) #51 IF ( J.EQ.1 ) THEN HPSORT.f90#30 INTEGER :: I , J , IDIM , NVAR , ILMID , IR #56 J = ILMID + ILMID #58 DO WHILE ( J.LE.IR ) #59 IF ( J.LT.IR ) THEN ! 181018 #60 IF ( UVAR(J).LT.UVAR(J+1) ) J = J + 1 ! 121416 #62 IF ( RU.LT.UVAR(J) ) THEN ! 181018 #63 UVAR(I) = UVAR(J) ! 118584 #65 J = 2*J #67 J = IR + 1 ! 62434 HRLOOP.f90#54 INTEGER :: IEND_DAY , I , J , K , L , M , ILSAVE HSETFG.f90#2 SUBROUTINE HSETFG(INDT,J) #30 INTEGER :: J , INDT #38 HCLMSG(IREC,J+1,IGRP,IAVE,ITYP) = 'c' ! 736 #40 HCLMSG(IREC,J+1,IGRP,IAVE,ITYP) = 'm' ! 578 #42 HCLMSG(IREC,J+1,IGRP,IAVE,ITYP) = 'b' ! 530 INPPDM.f90#28 INTEGER :: I , J , K , IH , IL , ISDX , IING #55 DO J = 1 , IMIT ! 0 #95 DO J = 1 , IMIT ! 0 INPPDN.f90#28 INTEGER :: I , J , K , IH , IL , ISDX , IING #58 DO J = 1 , IMIT #101 DO J = 1 , IMIT INPPHI.f90#26 INTEGER :: I , J , K , IH , IL , ISDX , IING #56 DO J = 1 , IMIT #99 DO J = 1 , IMIT MAXPM10.f90#43 DO J = NMXPM - 1 , 1 , -1 ! 0 #44 IF ( SUMH4H(IREC,IGRP).LE.MXPMVAL(J,IGRP) ) THEN ! 0 #45 MXPMVAL(J+1,IGRP) = SUMH4H(IREC,IGRP) ! 0 #46 MXPMLOC(J+1,IGRP) = IREC #50 MXPMVAL(J+1,IGRP) = MXPMVAL(J,IGRP) ! 0 #51 MXPMLOC(J+1,IGRP) = MXPMLOC(J,IGRP) #52 IF ( J.EQ.1 ) THEN MAXVALUE.f90#44 DO J = NMXVAL - 1 , 1 , -1 ! 1408 #46 & .LE.RMXVAL(J,IGRP,IAVE,ITYP) ) THEN #47 RMXVAL(J+1,IGRP,IAVE,ITYP) & #51 MCLMSG(J+1,IGRP,IAVE,ITYP) = ' ' ! 590 #54 CALL MSETFG(0,J) ! 764 #56 MXDATE(J+1,IGRP,IAVE,ITYP) = KURDAT ! 1354 #57 MXLOCA(J+1,IGRP,IAVE,ITYP) = IREC #61 RMXVAL(J+1,IGRP,IAVE,ITYP) & #62 & = RMXVAL(J,IGRP,IAVE,ITYP) #63 MXDATE(J+1,IGRP,IAVE,ITYP) & #64 & = MXDATE(J,IGRP,IAVE,ITYP) #65 MCLMSG(J+1,IGRP,IAVE,ITYP) & #66 & = MCLMSG(J,IGRP,IAVE,ITYP) #67 MXLOCA(J+1,IGRP,IAVE,ITYP) & #68 & = MXLOCA(J,IGRP,IAVE,ITYP) #69 IF ( J.EQ.1 ) THEN MEREAD.f90#41 INTEGER :: I , J , IHR , IJDAY , IDATCHK , JUYI , JUSI , JSYI , & MSETFG.f90#2 SUBROUTINE MSETFG(INDT,J) #27 INTEGER :: J , INDT #35 MCLMSG(J+1,IGRP,IAVE,ITYP) = 'c' ! 196 #37 MCLMSG(J+1,IGRP,IAVE,ITYP) = 'm' ! 288 #39 MCLMSG(J+1,IGRP,IAVE,ITYP) = 'b' ! 280 NHIGH.f90#43 DO J = NHIVAL - 1 , 1 , -1 ! 6872 #45 & .LE.HIVALU(IREC,J,IGRP,IAVE,ITYP) ) THEN #46 HIVALU(IREC,J+1,IGRP,IAVE,ITYP) & #50 HCLMSG(IREC,J+1,IGRP,IAVE,ITYP) = ' ' ! 1208 #53 CALL HSETFG(0,J) ! 1844 #55 NHIDAT(IREC,J+1,IGRP,IAVE,ITYP) = KURDAT ! 3052 #59 HIVALU(IREC,J+1,IGRP,IAVE,ITYP) & #60 & = HIVALU(IREC,J,IGRP,IAVE,ITYP) #61 HCLMSG(IREC,J+1,IGRP,IAVE,ITYP) & #62 & = HCLMSG(IREC,J,IGRP,IAVE,ITYP) #63 NHIDAT(IREC,J+1,IGRP,IAVE,ITYP) & #64 & = NHIDAT(IREC,J,IGRP,IAVE,ITYP) #65 IF ( J.EQ.1 ) THEN OCALC.f90#43 INTEGER :: I , II , J , ICAT , INOUT , NDXR #288 DO J = 1 , NPD ! 0 #289 DQCOR(J) = 1.0 ! 0 #290 WQCOR(J) = 1.0 #317 DO J = 1 , NPD ! 0 #318 DQCOR(J) = 1.0 ! 0 #319 WQCOR(J) = 1.0 #399 DO J = 1 , NPD ! 0 #402 HV = (X/US)*VGRAV(J) ! 0 #406 ADJ = PHI(J)*DQCOR(J)*WQCOR(J) #431 CALL AER_PCHI(X,ADJ,VDEP(J),J,AEROUT) OUDALY.f90#26 INTEGER :: I , J , IPRDT #67 J = 1 ! 0 #68 DO WHILE ( .NOT.FOUND .AND. J.LE.NUMAVE ) #69 IF ( IPRDT.EQ.KAVE(J) ) THEN ! 0 #71 IDYTAB(J) = 1 #73 J = J + 1 ! 0 OUEVAL.f90#25 INTEGER :: I , J , K , INDSRC #51 J = 1 #52 DO WHILE ( .NOT.FOUND .AND. J.LE.NUMSRC ) #53 IF ( INPSRC.EQ.SRCID(J) ) THEN ! 0 #57 J = J + 1 ! 0 OUHIGH.f90#26 INTEGER :: I , J , ILOCH(NAVE) , IPRDT , IPRDT1 , IPRDT2 , ISPRD ,& #148 DO J = 1 , 10 #149 IF ( LPRD.EQ.NCHR1(J) .OR. LPRD.EQ.NCHR2(J) ) ISPRD = J ! 30 #150 IF ( HPRD.EQ.NCHR1(J) .OR. HPRD.EQ.NCHR2(J) ) IEPRD = J #163 DO J = ISPRD , IEPRD ! 3 #164 HIGHST(J) = 1 ! 6 #177 DO J = 1 , NVAL ! 6 #178 IF ( HIGHST(J).EQ.1 .AND. ILOCH(I).EQ.1 ) THEN ! 12 #179 NHIAVE(J,I) = 1 ! 12 #180 IF ( J.GT.NHIVAL ) NHIVAL = J OUMXFL.f90#30 INTEGER :: I , J , IPRDT , IDAT #68 J = 1 #69 DO WHILE ( .NOT.FOUND .AND. J.LE.NUMAVE ) #70 IF ( IPRDT.EQ.KAVE(J) ) THEN ! 0 #74 J = J + 1 ! 0 #86 J = 1 #87 DO WHILE ( .NOT.FOUND .AND. J.LE.NUMGRP ) #88 IF ( INPGRP.EQ.GRPID(J) ) THEN ! 0 #92 J = J + 1 ! 0 #160 DO J = 1 , NUMAVE #162 IF ( I.NE.INDGRP .OR. J.NE.INDAVE ) THEN ! 0 #163 IF ( THRFIL(INDGRP,INDAVE).EQ.THRFIL(I,J) .AND. & #164 & IMXUNT(INDGRP,INDAVE).EQ.IMXUNT(I,J) ) THEN #166 ELSEIF ( THRFIL(INDGRP,INDAVE).EQ.THRFIL(I,J) .AND. & #167 & IMXUNT(INDGRP,INDAVE).NE.IMXUNT(I,J) ) THEN #171 ELSEIF ( THRFIL(INDGRP,INDAVE).NE.THRFIL(I,J) .AND. & #172 & IMXUNT(INDGRP,INDAVE).EQ.IMXUNT(I,J) ) THEN OUMXVL.f90#26 INTEGER :: I , J , IPRDT #69 J = 1 ! 0 #70 DO WHILE ( .NOT.FOUND .AND. J.LE.NUMAVE ) #71 IF ( IPRDT.EQ.KAVE(J) ) THEN ! 0 #74 MAXAVE(J) = 1 #76 J = J + 1 ! 0 OUPLOT.f90#27 INTEGER :: I , J , K , IPRDT #85 J = 1 #86 DO WHILE ( .NOT.FOUND .AND. J.LE.NUMAVE ) #87 IF ( IPRDT.EQ.KAVE(J) ) THEN ! 0 #91 J = J + 1 ! 0 #103 J = 1 #104 DO WHILE ( .NOT.FOUND .AND. J.LE.NUMGRP ) #105 IF ( INPGRP.EQ.GRPID(J) ) THEN ! 0 #109 J = J + 1 ! 0 #190 DO J = 1 , NUMGRP ! 0 #192 IF ( I.NE.INDVAL .OR. J.NE.INDGRP .OR. K.NE.INDAVE ) THEN! 0 #193 IF ( PLTFIL(INDVAL,INDGRP,INDAVE).EQ.PLTFIL(I,J,K) & #195 & .EQ.IPLUNT(I,J,K) ) THEN #197 ELSEIF ( PLTFIL(INDVAL,INDGRP,INDAVE).EQ.PLTFIL(I,J,K)& #199 & .NE.IPLUNT(I,J,K) ) THEN #203 ELSEIF ( PLTFIL(INDVAL,INDGRP,INDAVE).NE.PLTFIL(I,J,K)& #205 & .EQ.IPLUNT(I,J,K) ) THEN OUPOST.f90#33 INTEGER :: I , J , IPRDT , IDAT , ISTR , ISTP #94 J = 1 #95 DO WHILE ( .NOT.FOUND .AND. J.LE.NUMAVE ) #96 IF ( IPRDT.EQ.KAVE(J) ) THEN ! 0 #100 J = J + 1 ! 0 #112 J = 1 #113 DO WHILE ( .NOT.FOUND .AND. J.LE.NUMGRP ) #114 IF ( INPGRP.EQ.GRPID(J) ) THEN ! 0 #118 J = J + 1 ! 0 #187 DO J = 1 , NUMAVE #189 IF ( I.NE.INDGRP .OR. J.NE.INDAVE ) THEN ! 0 #190 IF ( PSTFIL(INDGRP,INDAVE).EQ.PSTFIL(I,J) .AND. & #191 & IPSUNT(INDGRP,INDAVE).EQ.IPSUNT(I,J) ) THEN #193 ELSEIF ( PSTFIL(INDGRP,INDAVE).EQ.PSTFIL(I,J) .AND. & #194 & IPSUNT(INDGRP,INDAVE).NE.IPSUNT(I,J) ) THEN #198 ELSEIF ( PSTFIL(INDGRP,INDAVE).NE.PSTFIL(I,J) .AND. & #199 & IPSUNT(INDGRP,INDAVE).EQ.IPSUNT(I,J) ) THEN OURANK.f90#25 INTEGER :: I , J , K , IPRDT #62 J = 1 #63 DO WHILE ( .NOT.FOUND .AND. J.LE.NUMAVE ) #64 IF ( IPRDT.EQ.KAVE(J) ) THEN ! 0 #68 J = J + 1 ! 0 OUSEAS.f90#25 INTEGER :: I , J , K #43 J = 1 #44 DO WHILE ( .NOT.FOUND .AND. J.LE.NUMGRP ) #45 IF ( INPGRP.EQ.GRPID(J) ) THEN ! 0 #49 J = J + 1 ! 0 OUTOXX.f90#25 INTEGER :: I , J , IPRDT , NIDUM , NRDUM , NUMPER #69 J = 1 #70 DO WHILE ( .NOT.FOUND .AND. J.LE.NUMAVE ) #71 IF ( IPRDT.EQ.KAVE(J) ) THEN ! 0 #75 J = J + 1 ! 0 PERPLT.f90#31 INTEGER :: I , J , K #49 J = 1 #50 DO WHILE ( .NOT.FOUND .AND. J.LE.NUMGRP ) #51 IF ( INPGRP.EQ.GRPID(J) ) THEN ! 0 #55 J = J + 1 ! 0 #133 DO J = 1 , NUMGRP ! 0 #135 IF ( ANNPLT(INDGRP).EQ.PLTFIL(I,J,K) .AND. IPPUNT(INDGRP)& #136 & .EQ.IPLUNT(I,J,K) ) THEN #138 ELSEIF ( ANNPLT(INDGRP).EQ.PLTFIL(I,J,K) .AND. & #139 & IPPUNT(INDGRP).NE.IPLUNT(I,J,K) ) THEN #143 ELSEIF ( ANNPLT(INDGRP).NE.PLTFIL(I,J,K) .AND. & #144 & IPPUNT(INDGRP).EQ.IPLUNT(I,J,K) ) THEN PERPST.f90#46 J = 1 #47 DO WHILE ( .NOT.FOUND .AND. J.LE.NUMGRP ) #48 IF ( INPGRP.EQ.GRPID(J) ) THEN ! 0 #52 J = J + 1 ! 0 #140 DO J = 1 , NUMAVE ! 0 #142 IF ( ANNPST(INDGRP).EQ.PSTFIL(I,J) .AND. IAPUNT(INDGRP) & #143 & .EQ.IPSUNT(I,J) ) THEN #145 ELSEIF ( ANNPST(INDGRP).EQ.PSTFIL(I,J) .AND. IAPUNT(INDGRP) & #146 & .NE.IPSUNT(I,J) ) THEN #150 ELSEIF ( ANNPST(INDGRP).NE.PSTFIL(I,J) .AND. IAPUNT(INDGRP) & #151 & .EQ.IPSUNT(I,J) ) THEN PLUMEF.f90#68 DO J = 1 , NPD ! 0 #69 DQCOR(J) = 1.0 ! 0 #70 WQCOR(J) = 1.0 #142 DO J = 1 , NPD ! 0 #145 HV = (XARG/US)*VGRAV(J) ! 0 #149 ADJ = PHI(J)*DQCOR(J)*WQCOR(J) #173 CALL AER_ACHI(XARG,ADJ,VDEP(J),J,VAL,PTMP) PNPOLY.f90#64 INTEGER I , J , N , INOUT #82 J = 1 + MOD(I,N) ! 0 #83 XJ = X(J) - PX #84 YJ = Y(J) - PY POLDST.f90#56 DO J = 1 , ISET - 1 #58 IF ( FNUM.EQ.XCOORD(J,INNET) ) & PRESET.f90#29 INTEGER :: I , J , ISPRD , IEPRD #182 DO J = 1 , 10 #183 IF ( LPRD.EQ.NCHR1(J) .OR. LPRD.EQ.NCHR2(J) ) & #185 IF ( HPRD.EQ.NCHR1(J) .OR. HPRD.EQ.NCHR2(J) ) & PRMCALC.f90#254 DO J = 1 , NPD ! 0 #255 DQCOR(J) = 1.0 ! 0 #256 WQCOR(J) = 1.0 #260 DO J = 1 , NPD ! 0 #262 ADJ = PHI(J)*DQCOR(J)*WQCOR(J) ! 0 #263 HV = (X/US)*VGRAV(J) #266 CALL PRM_PCHI(ADJ,VDEP(J),J) PRTANN.f90#30 INTEGER :: I , J , K , II , NX , NY , INDZ , INDC , ISRF , INDEXW #92 & (XCOORD(J,I),J=1+NCPP*(NX-1),NUMXPT(I)) #96 & (XCOORD(J,I),J=1+NCPP*(NX-1),NUMXPT(I)) #102 & (XCOORD(J,I),J=1+NCPP*(NX-1),NCPP*NX) #106 & (XCOORD(J,I),J=1+NCPP*(NX-1),NCPP*NX) #122 & (ANNVAL(INDZ+J-1,IGRP,ITYP), & #123 & J=1+NCPP*(NX-1),NUMXPT(I)) #126 & (ANNVAL(INDZ+J-1,IGRP,ITYP), & #127 & J=1+NCPP*(NX-1),NCPP*NX) #141 & (ANNVAL(INDZ+J-1,IGRP,ITYP), & #142 & J=1+NCPP*(NX-1),NUMXPT(I)) #145 & (ANNVAL(INDZ+J-1,IGRP,ITYP), & #146 & J=1+NCPP*(NX-1),NCPP*NX) #277 & (J,AXR(IREC+J-1),AYR(IREC+J-1), & #278 & ANNVAL(IREC+J-1,IGRP,ITYP),J=1,36) PRTDAY.f90#29 INTEGER :: I , J , K , II , NX , NY , INDZ , INDC , ISRF , INDEXW #81 & (XCOORD(J,I),J=1+NCPP*(NX-1),NUMXPT(I)) #85 & (XCOORD(J,I),J=1+NCPP*(NX-1),NUMXPT(I)) #91 & (XCOORD(J,I),J=1+NCPP*(NX-1),NCPP*NX) #95 & (XCOORD(J,I),J=1+NCPP*(NX-1),NCPP*NX) #111 & (AVEVAL(INDZ+J-1,IGRP,IAVE,ITYP), & #112 & J=1+NCPP*(NX-1),NUMXPT(I)) #115 & (AVEVAL(INDZ+J-1,IGRP,IAVE,ITYP), & #116 & J=1+NCPP*(NX-1),NCPP*NX) #130 & (AVEVAL(INDZ+J-1,IGRP,IAVE,ITYP), & #131 & J=1+NCPP*(NX-1),NUMXPT(I)) #134 & (AVEVAL(INDZ+J-1,IGRP,IAVE,ITYP), & #135 & J=1+NCPP*(NX-1),NCPP*NX) #249 & (J,AXR(IREC+J-1),AYR(IREC+J-1), & #250 & AVEVAL(IREC+J-1,IGRP,IAVE,ITYP), & #251 & J=1,36) PRTDET.f90#27 INTEGER :: I , J , N , NSPP , NPAGE , IHR , INGRP #70 & (WHRVAL(I,J),J=1+NSPP*(N-1),INGRP) #82 & (WHRVAL(I,J),J=1+NSPP*(N-1),NSPP*N) PRTMAX.f90#30 INTEGER :: J , K , L , NPG , NROWS , JSTRT , II , J1 , KMAX1 , & #80 DO J = JSTRT , JSTRT + NROWS - 1 #81 J1 = J + NROWS ! 100 #84 KMAX1 = MXLOCA(J,IGRP,IAVE,ITYP) #104 WRITE (IOUNIT,2) J , RMXVAL(J,IGRP,IAVE,ITYP) , & #105 & MCLMSG(J,IGRP,IAVE,ITYP) , & #106 & MXDATE(J,IGRP,IAVE,ITYP) , XR1 , & #120 J = INT(IMXVAL(IAVE)/2) + 1 + 40*(NPG-1) ! 0 #121 KMAX1 = MXLOCA(J,IGRP,IAVE,ITYP) #131 WRITE (IOUNIT,3) J , RMXVAL(J,IGRP,IAVE,ITYP) , & #132 & MCLMSG(J,IGRP,IAVE,ITYP) , & #133 & MXDATE(J,IGRP,IAVE,ITYP) , XR1 , & #137 J = 1 ! 0 #138 KMAX1 = MXLOCA(J,IGRP,IAVE,ITYP) #155 WRITE (IOUNIT,3) J , RMXVAL(J,IGRP,IAVE,ITYP) , & #156 & MCLMSG(J,IGRP,IAVE,ITYP) , & #157 & MXDATE(J,IGRP,IAVE,ITYP) , XR1 , YR1 , & PRTMET.f90#29 INTEGER :: I , J , K PRTPM10.f90#27 INTEGER :: I , J , K , II , INDZ , INDC , NX , NY , ISRF , INDEXW #85 & (XCOORD(J,I),J=1+NCPP*(NX-1),NUMXPT(I)) #89 & (XCOORD(J,I),J=1+NCPP*(NX-1),NUMXPT(I)) #95 & (XCOORD(J,I),J=1+NCPP*(NX-1),NCPP*NX) #99 & (XCOORD(J,I),J=1+NCPP*(NX-1),NCPP*NX) #115 & (SUMH4H(INDZ+J-1,IGRP),J=1+NCPP*(NX-1)& #119 & (SUMH4H(INDZ+J-1,IGRP),J=1+NCPP*(NX-1)& #134 & (SUMH4H(INDZ+J-1,IGRP),J=1+NCPP*(NX-1)& #138 & (SUMH4H(INDZ+J-1,IGRP),J=1+NCPP*(NX-1)& #252 & (J,AXR(IREC+J-1),AYR(IREC+J-1), & #253 & SUMH4H(IREC+J-1,IGRP),J=1,36) PRTREC.f90#34 INTEGER :: I , J , K , INDZ , NX , NY , INDC , ISRF #59 WRITE (IOUNIT,9040) (XCOORD(J,I),J=1,NUMXPT(I)) ! 3 #69 WRITE (IOUNIT,9040) (YCOORD(J,I),J=1,NUMYPT(I)) ! 3 #91 & (XCOORD(J,I),J=1+NCPP*(NX-1),NUMXPT(I)) #95 & (XCOORD(J,I),J=1+NCPP*(NX-1),NUMXPT(I)) #101 & (XCOORD(J,I),J=1+NCPP*(NX-1),NCPP*NX) #105 & (XCOORD(J,I),J=1+NCPP*(NX-1),NCPP*NX) #120 & (AZELEV(INDZ+J-1),J=1+NCPP*(NX-1), & #124 & (AZELEV(INDZ+J-1),J=1+NCPP*(NX-1), & #139 & (AZELEV(INDZ+J-1),J=1+NCPP*(NX-1), & #143 & (AZELEV(INDZ+J-1),J=1+NCPP*(NX-1), & #169 & (XCOORD(J,I),J=1+NCPP*(NX-1),NUMXPT(I)) #173 & (XCOORD(J,I),J=1+NCPP*(NX-1),NUMXPT(I)) #179 & (XCOORD(J,I),J=1+NCPP*(NX-1),NCPP*NX) #183 & (XCOORD(J,I),J=1+NCPP*(NX-1),NCPP*NX) #198 & (AZHILL(INDZ+J-1),J=1+NCPP*(NX-1), & #202 & (AZHILL(INDZ+J-1),J=1+NCPP*(NX-1), & #217 & (AZHILL(INDZ+J-1),J=1+NCPP*(NX-1), & #221 & (AZHILL(INDZ+J-1),J=1+NCPP*(NX-1), & #250 & (XCOORD(J,I),J=1+NCPP*(NX-1),NUMXPT(I)) #254 & (XCOORD(J,I),J=1+NCPP*(NX-1),NUMXPT(I)) #260 & (XCOORD(J,I),J=1+NCPP*(NX-1),NCPP*NX) #264 & (XCOORD(J,I),J=1+NCPP*(NX-1),NCPP*NX) #279 & (AZFLAG(INDZ+J-1),J=1+NCPP*(NX-1), & #283 & (AZFLAG(INDZ+J-1),J=1+NCPP*(NX-1), & #298 & (AZFLAG(INDZ+J-1),J=1+NCPP*(NX-1), & #302 & (AZFLAG(INDZ+J-1),J=1+NCPP*(NX-1), & PRTSRC.f90#49 INTEGER :: I , J , K , NL , I1 , I2 , I3 , IFR , IDW , ITO , & #81 DO J = 1 , NSEC #87 IF ( ADSBH(J,I).NE.0.0 .AND. ADSBW(J,I).NE.0.0 .AND. & #88 & ADSBL(J,I).NE.0.0 ) BLDING = 'YES' #279 DO J = 1 , NUMGRP #282 IF ( IGROUP(K,J).EQ.1 ) THEN ! 27 #298 WRITE (IOUNIT,9068) GRPID(J) , (WORKID(I),I=1,INGRP) ! 3 #300 WRITE (IOUNIT,9068) GRPID(J) , (WORKID(I),I=1,12*K) ! 0 #311 DO J = 1 , NUMOLM #314 IF ( IGRP_OLM(K,J).EQ.1 ) THEN ! 0 #333 WRITE (IOUNIT,9068) OLMID(J) , (WORKID(I),I=1,INGRP) ! 0 #335 WRITE (IOUNIT,9068) OLMID(J) , (WORKID(I),I=1,12*K) ! 0 #385 WRITE (IOUNIT,9051) (APHI(J,I),J=1,NPD) #387 WRITE (IOUNIT,9052) (APDIAM(J,I),J=1,NPD) #388 WRITE (IOUNIT,9053) (APDENS(J,I),J=1,NPD) #397 WRITE (IOUNIT,99051) (FINEMASS(I),J=1,NPD) #401 WRITE (IOUNIT,9052) (APDIAM(J,I),J=1,NPD) #402 WRITE (IOUNIT,9053) (APDENS(J,I),J=1,NPD) #430 DO J = 1 , NSEC #437 IF ( ADSBH(J,I).NE.0.0 .AND. ADSBW(J,I).NE.0.0 .AND. & #438 & ADSBL(J,I).NE.0.0 ) BLDING = 'YES' #458 & (J,ABS(ADSBH(J,I)),ADSBW(J,I),ADSBL(J,I)& #459 & ,ADSXADJ(J,I),ADSYADJ(J,I),J=1,NSEC) #547 WRITE (IOUNIT,9025) (J,J=1,6) PSIDE2.f90#38 INTEGER :: I , J , ISEG , NPTS , NOUT , ICON #48 J = 1 #50 ULIST(J) = UASEGS(I) ! 58748 #51 J = J + 1 #52 ULIST(J) = UBSEGS(I) #53 J = J + 1 #79 DO J = 1 , NSEGS ! 55382 #80 IF ( U1.GE.UASEGS(J) .AND. U2.LE.UBSEGS(J) ) & #81 & UFAC = UFAC + USIGN(J) PSIDE2_TOX.f90#47 INTEGER :: I , J , ISEG , NPTS , NOUT , ICON #57 J = 1 #59 ULIST(J) = UASEGS(I) ! 0 #60 J = J + 1 #61 ULIST(J) = UBSEGS(I) #62 J = J + 1 #88 DO J = 1 , NSEGS ! 0 #89 IF ( U1.GE.UASEGS(J) .AND. U2.LE.UBSEGS(J) ) & #90 & UFAC = UFAC + USIGN(J) QATR2.f90#64 INTEGER I , II , JI , J , JJ #91 DO J = 1 , JJ #104 DO J = 1 , JI #105 II = I - J ! 0 QATR3.f90#42 INTEGER :: I , II , JI , J , JJ #78 DO J = 1 , JJ #94 DO J = 1 , JI #95 II = I - J ! 10341K RADRNG.f90#62 DO J = 1 , ISET - 1 ! 0 #64 IF ( FNUM.EQ.YCOORD(J,INNET) ) & RANKFL.f90#25 INTEGER :: I , J , IRANK , IDATSV(NMAX) #63 DO J = 1 , NMAX #64 IF ( MXDATE(I,IGRP,IAVE,ITYP).EQ.IDATSV(J) ) & RESINI.f90#34 INTEGER :: I , J , K , L , M #47 DO J = 1 , NUMREC ! 4 #48 AVEVAL(J,K,L,M) = 0.0 ! 576 #50 HIVALU(J,I,K,L,M) = 0.0 ! 1152 #51 NHIDAT(J,I,K,L,M) = 0 #52 HCLMSG(J,I,K,L,M) = ' ' #59 DO J = 1 , NMXVAL ! 4 #60 RMXVAL(J,K,L,M) = 0.0 ! 200 #61 MXDATE(J,K,L,M) = 0 #62 MXLOCA(J,K,L,M) = 0 #63 MCLMSG(J,K,L,M) = ' ' #84 DO J = 1 , NUMGRP ! 2 #86 ANNVAL(I,J,K) = 0.0 ! 288 #87 SUMANN(I,J,K) = 0.0 #90 AMXVAL(I,J,K) = 0.0 ! 20 #91 IMXLOC(I,J,K) = 0 #97 DO J = 1 , NUMGRP ! 2 #99 SUMH4H(I,J) = 0.0 ! 288 #102 MXPMVAL(I,J) = 0.0 ! 20 #103 MXPMLOC(I,J) = 0 #111 DO J = 1 , NUMGRP ! 192 #114 SHVALS(I,J,K,L,M) = 0.0 ! 27648 #122 DO J = 1 , 24 ! 2 #125 NSEAHR(I,J) = 0 ! 192 #126 NSEACM(I,J) = 0 RSDUMP.f90#43 INTEGER :: I , J , K , L , M #60 WRITE (IDPUNT) (((((HIVALU(I,J,K,L,M),I=1,NUMREC),J=1,NHIVAL& #62 WRITE (IDPUNT) (((((NHIDAT(I,J,K,L,M),I=1,NUMREC),J=1,NHIVAL& #64 WRITE (IDPUNT) (((((HCLMSG(I,J,K,L,M),I=1,NUMREC),J=1,NHIVAL& #69 WRITE (IDPUNT) ((SUMH4H(I,J),I=1,NUMREC),J=1,NUMGRP) #75 WRITE (IDPUNT) ((((RMXVAL(I,J,K,L),I=1,NMXVAL),J=1,NUMGRP),K& #77 WRITE (IDPUNT) ((((MXDATE(I,J,K,L),I=1,NMXVAL),J=1,NUMGRP),K& #79 WRITE (IDPUNT) ((((MXLOCA(I,J,K,L),I=1,NMXVAL),J=1,NUMGRP),K& #81 WRITE (IDPUNT) ((((MCLMSG(I,J,K,L),I=1,NMXVAL),J=1,NUMGRP),K& #86 WRITE (IDPUNT) (((((SHVALS(I,J,K,L,M),I=1,NUMREC),J=1,NUMGRP& #88 WRITE (IDPUNT) ((NSEAHR(I,J),I=1,4),J=1,24) #89 WRITE (IDPUNT) ((NSEACM(I,J),I=1,4),J=1,24) #94 WRITE (IDPUNT) (((ANNVAL(I,J,K),I=1,NUMREC),J=1,NUMGRP),K=1,& #97 WRITE (IDPUNT) (((AMXVAL(I,J,K),I=1,NHIANN),J=1,NUMGRP), & #99 WRITE (IDPUNT) (((IMXLOC(I,J,K),I=1,NHIANN),J=1,NUMGRP), & #104 WRITE (IDPUNT) (((ANNVAL(I,J,K),I=1,NUMREC),J=1,NUMGRP),K=1,& #106 WRITE (IDPUNT) (((SUMANN(I,J,K),I=1,NUMREC),J=1,NUMGRP),K=1,& #120 WRITE (IDPUN2) (((((HIVALU(I,J,K,L,M),I=1,NUMREC),J=1,NHIVAL& #122 WRITE (IDPUN2) (((((NHIDAT(I,J,K,L,M),I=1,NUMREC),J=1,NHIVAL& #124 WRITE (IDPUN2) (((((HCLMSG(I,J,K,L,M),I=1,NUMREC),J=1,NHIVAL& #129 WRITE (IDPUN2) ((SUMH4H(I,J),I=1,NUMREC),J=1,NUMGRP) #135 WRITE (IDPUN2) ((((RMXVAL(I,J,K,L),I=1,NMXVAL),J=1,NUMGRP),K& #137 WRITE (IDPUN2) ((((MXDATE(I,J,K,L),I=1,NMXVAL),J=1,NUMGRP),K& #139 WRITE (IDPUN2) ((((MXLOCA(I,J,K,L),I=1,NMXVAL),J=1,NUMGRP),K& #141 WRITE (IDPUN2) ((((MCLMSG(I,J,K,L),I=1,NMXVAL),J=1,NUMGRP),K& #146 WRITE (IDPUN2) (((((SHVALS(I,J,K,L,M),I=1,NUMREC),J=1,NUMGRP& #148 WRITE (IDPUN2) ((NSEAHR(I,J),I=1,4),J=1,24) #149 WRITE (IDPUN2) ((NSEACM(I,J),I=1,4),J=1,24) #154 WRITE (IDPUN2) (((ANNVAL(I,J,K),I=1,NUMREC),J=1,NUMGRP),K=1,& #157 WRITE (IDPUN2) (((AMXVAL(I,J,K),I=1,NHIANN),J=1,NUMGRP), & #159 WRITE (IDPUN2) (((IMXLOC(I,J,K),I=1,NHIANN),J=1,NUMGRP), & #164 WRITE (IDPUN2) (((ANNVAL(I,J,K),I=1,NUMREC),J=1,NUMGRP),K=1,& #166 WRITE (IDPUN2) (((SUMANN(I,J,K),I=1,NUMREC),J=1,NUMGRP),K=1,& RSINIT.f90#33 INTEGER :: I , J , K , L , M #43 READ (IRSUNT,ERR=99,END=999) (((((HIVALU(I,J,K,L,M),I=1,NUMREC)& #44 & ,J=1,NHIVAL),K=1,NUMGRP),L=1, & #46 READ (IRSUNT,ERR=99,END=999) (((((NHIDAT(I,J,K,L,M),I=1,NUMREC)& #47 & ,J=1,NHIVAL),K=1,NUMGRP),L=1, & #49 READ (IRSUNT,ERR=99,END=999) (((((HCLMSG(I,J,K,L,M),I=1,NUMREC)& #50 & ,J=1,NHIVAL),K=1,NUMGRP),L=1, & #56 & ((SUMH4H(I,J),I=1,NUMREC),J=1,NUMGRP) #62 READ (IRSUNT,ERR=99,END=999) ((((RMXVAL(I,J,K,L),I=1,NMXVAL),J=& #64 READ (IRSUNT,ERR=99,END=999) ((((MXDATE(I,J,K,L),I=1,NMXVAL),J=& #66 READ (IRSUNT,ERR=99,END=999) ((((MXLOCA(I,J,K,L),I=1,NMXVAL),J=& #68 READ (IRSUNT,ERR=99,END=999) ((((MCLMSG(I,J,K,L),I=1,NMXVAL),J=& #74 READ (IRSUNT,ERR=99,END=999) (((((SHVALS(I,J,K,L,M),I=1,NUMREC)& #75 & ,J=1,NUMGRP),K=1,4),L=1,24),M=1, & #77 READ (IRSUNT,ERR=99,END=999) ((NSEAHR(I,J),I=1,4),J=1,24) ! 0 #78 READ (IRSUNT,ERR=99,END=999) ((NSEACM(I,J),I=1,4),J=1,24) ! 0 #83 READ (IRSUNT,ERR=99,END=999) (((ANNVAL(I,J,K),I=1,NUMREC),J=1, & #87 READ (IRSUNT,ERR=99,END=999) (((ANNVAL(I,J,K),I=1,NUMREC),J=1, & #89 READ (IRSUNT,ERR=99,END=999) (((SUMANN(I,J,K),I=1,NUMREC),J=1, & #96 DO J = 1 , NUMGRP ! 0 #98 ANNVAL(I,J,K) = 0.0 ! 0 #106 READ (IRSUNT,ERR=99,END=999) (((AMXVAL(I,J,K),I=1,NHIANN),J=1, & #108 READ (IRSUNT,ERR=99,END=999) (((IMXLOC(I,J,K),I=1,NHIANN),J=1, & SETCAR.f90#27 INTEGER :: I , J , JSET #37 DO J = 1 , JCOUNT #60 AYR(JSET) = YCOORD(J,INNET) SETPOL.f90#27 INTEGER :: I , J , JSET #38 DO J = 1 , JCOUNT #60 YTEMP = YCOORD(J,INNET)*DTORAD ! 432 SETSRC.f90#166 DO J = 1 , NPD ! 0 #167 PDIAM(J) = APDIAM(J,ISRC) ! 0 #168 PHI(J) = APHI(J,ISRC) #169 PDENS(J) = APDENS(J,ISRC) #170 VGRAV(J) = AVGRAV(J,ISRC) #171 TSTOP(J) = ATSTOP(J,ISRC) SOCARD.f90#35 INTEGER :: I , J , ILSAVE #54 DO J = 1 , 13 ! 27 #55 IWRK2(I,J) = 0 ! 351 SPRTHT.f90#30 INTEGER :: IHNUM , I , J , K , II , INDZ , INDC , NX , NY , ISRF ,& #73 & (WORKID(J),J=1,INDGRP) #84 & (XCOORD(J,I),J=1+NCPP*(NX-1),NUMXPT(I)) #88 & (XCOORD(J,I),J=1+NCPP*(NX-1),NUMXPT(I)) #94 & (XCOORD(J,I),J=1+NCPP*(NX-1),NCPP*NX) #98 & (XCOORD(J,I),J=1+NCPP*(NX-1),NCPP*NX) #114 & (HIVALU(INDZ+J-1,IHNUM,IGRP,IAVE,ITYP)& #115 & ,HCLMSG(INDZ+J-1,IHNUM,IGRP,IAVE,ITYP)& #116 & ,NHIDAT(INDZ+J-1,IHNUM,IGRP,IAVE,ITYP)& #117 & ,J=1+NCPP*(NX-1),NUMXPT(I)) #120 & (HIVALU(INDZ+J-1,IHNUM,IGRP,IAVE,ITYP)& #121 & ,HCLMSG(INDZ+J-1,IHNUM,IGRP,IAVE,ITYP)& #122 & ,NHIDAT(INDZ+J-1,IHNUM,IGRP,IAVE,ITYP)& #123 & ,J=1+NCPP*(NX-1),NCPP*NX) #137 & (HIVALU(INDZ+J-1,IHNUM,IGRP,IAVE,ITYP)& #138 & ,HCLMSG(INDZ+J-1,IHNUM,IGRP,IAVE,ITYP)& #139 & ,NHIDAT(INDZ+J-1,IHNUM,IGRP,IAVE,ITYP)& #140 & ,J=1+NCPP*(NX-1),NUMXPT(I)) #143 & (HIVALU(INDZ+J-1,IHNUM,IGRP,IAVE,ITYP)& #144 & ,HCLMSG(INDZ+J-1,IHNUM,IGRP,IAVE,ITYP)& #145 & ,NHIDAT(INDZ+J-1,IHNUM,IGRP,IAVE,ITYP)& #146 & ,J=1+NCPP*(NX-1),NCPP*NX) #165 & (WORKID(J),J=1,INDGRP) #214 & (WORKID(J),J=1,INDGRP) #262 & (WORKID(J),J=1,INDGRP) #269 & , (J,AXR(IREC+J-1),AYR(IREC+J-1), & #270 & HIVALU(IREC+J-1,IHNUM,IGRP,IAVE, & #272 & HCLMSG(IREC+J-1,IHNUM,IGRP,IAVE, & #274 & NHIDAT(IREC+J-1,IHNUM,IGRP,IAVE, & #275 & ITYP),J=1,36) SRCQA.f90#41 INTEGER :: I , J , K , N , ITOTSRC , ITOTGRP #115 DO J = 1 , N ! 0 #116 ATOT = ATOT + APHI(J,I) ! 0 #154 DO J = 1 , NVERTS(I) #155 SUM = SUM + (AXVERT(J,I)*AYVERT(J+1,I)-AXVERT(J+1,I) & #156 & *AYVERT(J,I)) #169 DO J = 1 , NVERTS(I) #170 SUMX = SUMX + (AXVERT(J,I)+AXVERT(J+1,I)) & #171 & *(AXVERT(J,I)*AYVERT(J+1,I)-AXVERT(J+1,I) & #172 & *AYVERT(J,I)) #173 SUMY = SUMY + (AYVERT(J,I)+AYVERT(J+1,I)) & #174 & *(AXVERT(J,I)*AYVERT(J+1,I)-AXVERT(J+1,I) & #175 & *AYVERT(J,I)) #198 DO J = 1 , NUMGRP ! 3 #201 IF ( IGROUP(I,J).EQ.1 ) ITOTSRC = ITOTSRC + 1 ! 27 #204 IF ( ITOTSRC.EQ.0 ) CALL ERRHDL(PATH,MODNAM,'W','319',GRPID(J))! 3 #214 DO J = 1 , NUMOLM #215 IF ( IGRP_OLM(I,J).EQ.1 ) ITOTGRP = ITOTGRP + 1 ! 0 SUMTBL.f90#26 INTEGER :: J , IERRLN #71 J = 0 #76 J = J + 1 ! 4 #86 IF ( J.EQ.0 ) THEN ! 4 #96 J = 0 #101 J = J + 1 ! 0 #103 IF ( J.LE.999 ) THEN ! 0 #120 IF ( J.EQ.0 ) THEN ! 4 TERHGT.f90#32 INTEGER :: I , J , IZE1 #74 DO J = 1 , IMIT ! 0 VARINI.f90#47 INTEGER :: I , J , K , IERRST , IWARN , NDAY #195 DO J = 1 , NSEC #196 ADSBH(J,I) = 0.0 ! 972 #197 ADSBW(J,I) = 0.0 #200 ADSBL(J,I) = 0.0 #201 ADSXADJ(J,I) = 0.0 #202 ADSYADJ(J,I) = 0.0 #206 DO J = 1 , NQF ! 27 #207 QFACT(J,I) = 0.0 ! 27 #209 DO J = 1 , NGRP ! 27 #210 IGROUP(I,J) = 0 ! 27 #212 DO J = 1 , NPDMAX ! 27 #213 APDIAM(J,I) = 0.0 ! 27 #214 APHI(J,I) = 0.0 #215 APDENS(J,I) = 0.0 #217 DO J = 1 , NVMAX ! 27 #218 AXVERT(J,I) = 0.0 ! 648 #219 AYVERT(J,I) = 0.0 #222 DO J = 1 , NOLM ! 0 #223 IGRP_OLM(I,J) = 0 ! 0 #229 DO J = 1 , NTYP #231 CHI(K,I,J) = 0.0 ! 0 #340 DO J = 1 , NHR ! 0 #341 ASFCHF(J) = 0.0 ! 0 #342 AUREF(J) = 0.0 #343 AUREFHT(J) = 0.0 #344 ATA(J) = 0.0 #345 ATREFHT(J) = 0.0 #346 AWDREF(J) = 0.0 #347 AUSTAR(J) = 0.0 #348 AWSTAR(J) = 0.0 #349 AZICONV(J) = 0.0 #350 AZIMECH(J) = 0.0 #351 AOBULEN(J) = 0.0 #352 AVPTGZI(J) = 0.0 #353 ASFCZ0(J) = 0.0 #354 ABOWEN(J) = 0.0 #355 AALBEDO(J) = 0.0 #356 IAPCODE(J) = 0 #357 APRATE(J) = 0.0 #358 ARH(J) = 0.0 #359 ASFCP(J) = 0.0 #360 NACLOUD(J) = 0.0 #361 AQSW(J) = 0.0 #362 ANPLVLS(J) = 0 #363 ANTGLVL(J) = 0 #365 AIFLAG(J,I) = 0 ! 0 #366 APFLHT(J,I) = 0.0 #367 APFLWD(J,I) = 0.0 #368 APFLWS(J,I) = 0.0 #369 APFLTA(J,I) = 0.0 #370 APFLSA(J,I) = 0.0 #371 APFLSV(J,I) = 0.0 #372 APFLSW(J,I) = 0.0 #375 EV_HRQS(I,J) = 0.0 ! 0 #376 EV_HRTS(I,J) = 0.0 #377 EV_HRVS(I,J) = 0.0 #401 DO J = 1 , IXM #402 XCOORD(J,I) = 0.0 ! 12 #404 DO J = 1 , IYM ! 3 #405 YCOORD(J,I) = 0.0 ! 108 #426 DO J = 1 , NAVE #427 INHI(J) = 0 ! 6 #428 IDYTAB(J) = 0 #429 MAXAVE(J) = 0 #430 IMXVAL(J) = 0 #431 ITOXFL(J) = 0 #432 ITXUNT(J) = 0 #433 IRNKFL(J) = 0 #434 IRKVAL(J) = 0 #435 IRKUNT(J) = 0 #436 TOXTHR(J) = 0.0 #437 TOXFIL(J) = ' ' #438 RNKFIL(J) = ' ' #440 IDCONC(J,I) = 0 ! 600 #441 TXCONC(J,I) = 0.0 #444 NHIAVE(I,J) = 0 ! 12 #447 MAXFLE(I,J) = 0 ! 6 #448 IPSTFL(I,J) = 0 #449 IMXUNT(I,J) = 0 #450 IPSUNT(I,J) = 0 #451 IPSFRM(I,J) = 0 #452 THRESH(I,J) = 0.0 #453 THRFIL(I,J) = ' ' #454 PSTFIL(I,J) = ' ' #456 IPLTFL(K,I,J) = 0 ! 12 #457 IPLUNT(K,I,J) = 0 #458 PLTFIL(K,I,J) = ' ' VDP.f90#115 INTEGER J , K , ISEA5 #127 DATA (((RESTAB(I,J,K),I=1,9),J=1,6),K=1,5)/1.E07 , 60. , 120. , & VDP1.f90#55 INTEGER :: I , J , N , IO6 #87 DO J = 1 , NUMSRC #89 IF ( INPD(J).LE.0 .AND. .NOT.LUSERVD ) THEN ! 0 #92 & (PDIFF(J).NE.0.0 .AND. PDIFFW(J).NE.0.0 .AND. RCLI(J) & #93 & .NE.0.0 .AND. HENRY(J).NE.0.0) ) THEN #97 PDIFF(J) = PDIFF(J)*1.E-4 ! 0 #98 PDIFFW(J) = PDIFFW(J)*1.E-4 #101 RCLI(J) = RCLI(J)*1.E2 #123 DO I = 1 , INPD(J) ! 0 #125 DIAMCM = 1.E-4*APDIAM(I,J) ! 0 #133 AVGRAV(I,J) = (APDENS(I,J)-RHOAIR)*G*DIAMCM**2*SCF(I) & #139 ATSTOP(I,J) = AVGRAV(I,J)/G VOLCALC.f90#80 DO J = 1 , NPD ! 0 #81 DQCOR(J) = 1.0 ! 0 #82 WQCOR(J) = 1.0 #202 DO J = 1 , NPD ! 0 #205 HV = (XARG/US)*VGRAV(J) ! 0 #209 ADJ = PHI(J)*DQCOR(J)*WQCOR(J) #231 CALL AER_PCHI(XARG,ADJ,VDEP(J),J,AERTMP) XYPNTS.f90#28 INTEGER :: I , J , JSET #58 DO J = 1 , ISET - 1 #60 IF ( FNUM.EQ.XCOORD(J,INNET) ) & #98 DO J = 1 , JSET - 1 #100 IF ( FNUM.EQ.YCOORD(J,INNET) ) &
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