PCALC.f90#87 INTEGER :: I , KITER , NDXHE , NDXZMID , NDXZPL , NDXHE3 PLUME_VOL.f90#31 INTEGER :: KITER , NDXHE , NDXZMID , NDXZPL , NDXHE3 REFL_HT.f90#29 INTEGER :: NDXHE #42 CALL LOCATE(GRIDHT,1,MXGLVL,HEARG,NDXHE) #44 IF ( NDXHE.GE.1 ) THEN #47 CALL GINTRP(GRIDHT(NDXHE),GRIDSV(NDXHE),GRIDHT(NDXHE+1), & #48 & GRIDSV(NDXHE+1),HEARG,SVREFL) #51 CALL GINTRP(GRIDHT(NDXHE),GRIDSW(NDXHE),GRIDHT(NDXHE+1), & #52 & GRIDSW(NDXHE+1),HEARG,SWREFL) #55 CALL GINTRP(GRIDHT(NDXHE),GRIDWS(NDXHE),GRIDHT(NDXHE+1), & #56 & GRIDWS(NDXHE+1),HEARG,UREFL) #59 CALL GINTRP(GRIDHT(NDXHE),GRIDTG(NDXHE),GRIDHT(NDXHE+1), & #60 & GRIDTG(NDXHE+1),HEARG,TGREFL) #63 CALL GINTRP(GRIDHT(NDXHE),GRIDPT(NDXHE),GRIDHT(NDXHE+1), & #64 & GRIDPT(NDXHE+1),HEARG,PTREFL) SIGYPR.f90#27 INTEGER :: NDXHE SIGZPR.f90#26 INTEGER :: NDXHE
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