ALLSETUP.f90#99 & XCOORD(IXM,NNET),YCOORD(IYM,NNET),XORIG(NNET), & GENCAR.f90#85 XCOORD(I,INNET) = XINT + XDELTA*FLOAT(I-1) ! 0 MAIN1.f90#443 REAL , ALLOCATABLE :: XCOORD(:,:) , YCOORD(:,:) , XORIG(:) , & POLDST.f90#55 XCOORD(ISET,INNET) = FNUM ! 12 #58 IF ( FNUM.EQ.XCOORD(J,INNET) ) & PRTANN.f90#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) PRTDAY.f90#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) PRTPM10.f90#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) PRTREC.f90#59 WRITE (IOUNIT,9040) (XCOORD(J,I),J=1,NUMXPT(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) #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) #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) SETCAR.f90#59 AXR(ISET) = XCOORD(I,INNET) ! 0 SETPOL.f90#61 AXR(ISET) = XINT + XCOORD(I,INNET)*SIN(YTEMP) #62 AYR(JSET) = YINT + XCOORD(I,INNET)*COS(YTEMP) SPRTHT.f90#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) VARINI.f90#402 XCOORD(J,I) = 0.0 ! 12 XYPNTS.f90#57 XCOORD(ISET,INNET) = FNUM ! 0 #60 IF ( FNUM.EQ.XCOORD(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