EV_METEXT.f90#101 PFLWD(I) = APFLWD(IHOUR,I) GRDWD.f90#74 IF ( PFLWD(PINDEX).GE.0.0 ) THEN ! 264828 #84 IF ( PFLWD(PINDEX).GT.360.0 ) THEN ! 0 #85 PFLWD(PINDEX) = PFLWD(PINDEX) - 360.0 ! 0 #86 ELSEIF ( PFLWD(PINDEX).LE.0.0 ) THEN #87 PFLWD(PINDEX) = PFLWD(PINDEX) + 360.0 ! 0 #90 GRIDWD(GINDEX) = PFLWD(PINDEX) ! 0 #95 VBELOW = PFLWD(PINDEX) ! 0 #100 CALL XTRPWD(PFLHT(PINDEX),PFLWD(PINDEX), & #108 & PFLWD(PINDEX),GRIDHT(GINDEX), & #113 CALL XTRPWD(PFLHT(PINDEX),PFLWD(PINDEX), & MAIN1.f90#511 REAL :: PFLHT(MXPLVL) , PFLWD(MXPLVL) , PFLWS(MXPLVL) , & MEREAD.f90#206 & PFLWD(LEVEL) , PFLWS(LEVEL) , PFLTA(LEVEL) , & #219 APFLWD(IHR,LEVEL) = PFLWD(LEVEL) #266 & JFLAG , PFLWD(LEVEL) , PFLWS(LEVEL) , PFLTA(LEVEL) & #278 APFLWD(IHR,LEVEL) = PFLWD(LEVEL) METDAT.f90#182 & IFLAG(I) , PFLWD(I) , PFLWS(I) , PFLTA(I) ,& METEXT.f90#236 & PFLWD(LEVEL) , PFLWS(LEVEL) , PFLTA(LEVEL) , & #283 & PFLWD(LEVEL) , PFLWS(LEVEL) , PFLTA(LEVEL) , & METQA.f90#56 IF ( PFLWD(NL).EQ.0.0 ) PFLWD(NL) = 360.0 ! 4320 METSUM.f90#89 & IFLAG(I) , PFLWD(I) , PFLWS(I) , PFLTEMP ,& PFLCNV.f90#60 IF ( PFLWS(LEVEL).GT.0.0 .AND. PFLWD(LEVEL).EQ.0.0 ) THEN #61 PFLWD(LEVEL) = 360.0 ! 2 #63 ELSEIF ( PFLWD(LEVEL).GT.900.0 ) THEN #64 PFLWD(LEVEL) = -999.0 ! 200 #66 ELSEIF ( PFLWS(LEVEL).EQ.0.0 .AND. PFLWD(LEVEL).EQ.0.0 ) THEN #68 PFLWD(LEVEL) = -999.0 PFLINI.f90#42 PFLWD(I) = -99.0 SET_METDATA.f90#134 IF ( PFLWD(NL).GT.0.0 ) THEN ! 0 #135 PFLWD(NL) = PFLWD(NL) - ROTANG ! 0 #137 IF ( PFLWD(NL).LE.0.0 ) PFLWD(NL) = PFLWD(NL) + 360.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