CHKMSG.f90#40 ELSEIF ( (WDREF.GT.900.0) .OR. (WDREF.LE.-9.0) ) THEN EV_METEXT.f90#74 WDREF = AWDREF(IHOUR) GRDWD.f90#143 CALL XTRPWD(UREFHT,WDREF,GRIDHT(GINDEX), & MAIN1.f90#494 & OBULEN , SFCZ0 , BOWEN , ALBEDO , UREF , WDREF , UREFHT , & METDAT.f90#90 & BOWEN , ALBEDO , UREF , WDREF , & #98 & WDREF , UREFHT , TA , TREFHT #107 & BOWEN , ALBEDO , UREF , WDREF , & #115 & WDREF , UREFHT , TA , TREFHT #126 & BOWEN , ALBEDO , UREF , WDREF , UREFHT , TA , TREFHT ,& #135 & BOWEN , ALBEDO , UREF , WDREF , UREFHT , TA , TREFHT #154 & UREF , WDREF , UREFHT , TA , TREFHT , IPCODE , PRATE , & #164 & UREF , WDREF , UREFHT , TA , TREFHT METDET.f90#43 & WDREF , UREFHT , TA , TREFHT METEXT.f90#174 & UREF , WDREF , UREFHT , TA , TREFHT , IPCODE , PRATE , & #210 & UREF , WDREF , UREFHT , TA , TREFHT METQA.f90#46 IF ( (WDREF.LT.0.0 .AND. WDREF.GT.-9.0) .OR. & #47 & (WDREF.GT.360.0 .AND. WDREF.LT.900.0) ) THEN #53 IF ( WDREF.EQ.0.0 ) WDREF = 360.0 ! 4320 METSUM.f90#78 & WDREF , UREFHT , TA , TREFHT PRTDET.f90#96 WDREF = AWDREF(IHOUR) REFWD1.f90#45 WDREQD = WDREF ! 529656 SET_METDATA.f90#125 WDREF = WDREF - ROTANG ! 0 #126 IF ( WDREF.LE.0.0 ) WDREF = WDREF + 360.
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