To use this program, follow these steps:
Comment Package ID: knb-lter-vcr.25.6 Cataloging System:VCR.
Comment Data set title: Hourly Meteorological Data for the Virginia Coast Reserve LTER .
Comment Data set creator: John Porter -
Comment Data set creator: David Krovetz -
Comment Data set creator: William Nuttle -
Comment Data set creator: James Spitler -
Comment Metadata Provider: - Virginia Coast Reserve Long-Term Ecological Research Project
Comment Contact: John Porter - - jhp7e@virginia.edu
Comment Contact: - Information manager - Virginia Coast Reserve Long-Term Ecological Research Project - jporter@lternet.edu
Title ' Hourly Meteorological Data for the Virginia Coast Reserve LTER ' .
Comment You should replace 'PUT-LOCAL-PATH-TO-DATA-FILE-HERE' (below) with the appropriate path.
Comment to your data file (e.g., c:\mydata\datafile.txt).
GET DATA /TYPE=TXT/
/ FILE="PUT-LOCAL-PATH-TO-DATA-FILE-HERE"
/ARRANGEMENT=Delimited
/DELIMITERS=","
/QUALIFIER='"'
/VARIABLES=
STATION A YEAR F10.2 MONTH F10.2 DAY F10.2 TIME F10.2 PPT F AVG_T F10.2 MIN_T F10.2 MAX_T F10.2 AVG_RH F10.2 MIN_RH F10.2 MAX_RH F10.2 AVG_WS F10.2 AVG_WANG F STD_WANG F RAD_SOL F10.2 PAR F10.2 SOIL_T A .
execute.
MISSING VALUES PPT('.','9999').
MISSING VALUES AVG_T('.','99').
MISSING VALUES MIN_T('.','99').
MISSING VALUES MAX_T('.','99').
MISSING VALUES AVG_RH('.','999').
MISSING VALUES MIN_RH('.','999').
MISSING VALUES MAX_RH('.','999').
MISSING VALUES AVG_WS('.','999').
MISSING VALUES AVG_WANG('.','999').
MISSING VALUES STD_WANG('.','999').
MISSING VALUES RAD_SOL('.','9999').
MISSING VALUES PAR('.','9999').
VAR LABELS STATION 'Climate Station Name- ' .
VAR LABELS YEAR 'YEAR- none' .
VAR LABELS MONTH 'MONTH- none' .
VAR LABELS DAY 'DAY- none' .
VAR LABELS TIME 'Eastern Standard Time- HHMM' .
VAR LABELS PPT 'Precipitation- mm' .
VAR LABELS AVG_T 'Average Hourly Temperature- degrees-C' .
VAR LABELS MIN_T 'Hourly Minimum Temperature- degrees-C' .
VAR LABELS MAX_T 'Hourly Maximum Temperature- degrees-C' .
VAR LABELS AVG_RH 'Average Relative Humidity- percent' .
VAR LABELS MIN_RH 'Minimum Hourly Relative Humidity- percent' .
VAR LABELS MAX_RH 'Maximum Hourly Relative Humidity- percent' .
VAR LABELS AVG_WS 'Average Wind Speed- m/sec' .
VAR LABELS AVG_WANG 'Average Wind Angle- degrees' .
VAR LABELS STD_WANG 'Standard Deviation of Wind Direction- degrees' .
VAR LABELS RAD_SOL 'Solar Radiation- KJoules/m2' .
VAR LABELS PAR 'Photosynthetically Active Radiation- uein/m2' .
VAR LABELS SOIL_T 'Average Hourly Soil Temperature (10 cm depth)- ' .
VALUE LABELS STATION
'BRNV' 'Brownsville in Nassawadox, VA on TNC Brownsville Farm'
'HOGI' 'Hog Island, VA, in island center near cross island road'
'OYSM' 'Oyster, VA at LTER Lab in Shirley House, Rt 600'
'PHCK' 'Phillips Creek Marsh, Nassawadox, VA' .
comment The analyses below are basic descriptions of the variables. After testing, they should be replaced.
Frequencies variables=STATION /order=analysis.
Frequencies variables=SOIL_T /order=analysis.
Descriptives variables=YEAR .
Descriptives variables=MONTH .
Descriptives variables=DAY .
Descriptives variables=TIME .
Descriptives variables=PPT .
Descriptives variables=AVG_T .
Descriptives variables=MIN_T .
Descriptives variables=MAX_T .
Descriptives variables=AVG_RH .
Descriptives variables=MIN_RH .
Descriptives variables=MAX_RH .
Descriptives variables=AVG_WS .
Descriptives variables=AVG_WANG .
Descriptives variables=STD_WANG .
Descriptives variables=RAD_SOL .
Descriptives variables=PAR .
Execute.
COMMENT List cases where data is out of range.
COMMENT Note: if no out of range cases are detected, the variable names will be listed, but no actual cases.
TEMPORARY .
STRING BADVARS (A255).
IF ((NOT MISSING(MONTH)) AND (MONTH LT 1)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "MONTH","-min").
IF ((NOT MISSING(MONTH)) AND (MONTH GT 12)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "MONTH","-max").
IF ((NOT MISSING(DAY)) AND (DAY LT 1)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "DAY","-min").
IF ((NOT MISSING(DAY)) AND (DAY GT 31)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "DAY","-max").
IF ((NOT MISSING(TIME)) AND (TIME LT 0)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "TIME","-min").
IF ((NOT MISSING(TIME)) AND (TIME GT 2399)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "TIME","-max").
IF ((NOT MISSING(PPT)) AND (PPT LT 0)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "PPT","-min").
IF ((NOT MISSING(AVG_T)) AND (AVG_T LT -33)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "AVG_T","-min").
IF ((NOT MISSING(AVG_T)) AND (AVG_T GT 48)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "AVG_T","-max").
IF ((NOT MISSING(MIN_T)) AND (MIN_T LT -33)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "MIN_T","-min").
IF ((NOT MISSING(MIN_T)) AND (MIN_T GT 48)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "MIN_T","-max").
IF ((NOT MISSING(MAX_T)) AND (MAX_T LT -33)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "MAX_T","-min").
IF ((NOT MISSING(MAX_T)) AND (MAX_T GT 48)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "MAX_T","-max").
IF ((NOT MISSING(AVG_RH)) AND (AVG_RH LT 10)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "AVG_RH","-min").
IF ((NOT MISSING(AVG_RH)) AND (AVG_RH GT 105)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "AVG_RH","-max").
IF ((NOT MISSING(MIN_RH)) AND (MIN_RH LT 10)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "MIN_RH","-min").
IF ((NOT MISSING(MIN_RH)) AND (MIN_RH GT 105)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "MIN_RH","-max").
IF ((NOT MISSING(MAX_RH)) AND (MAX_RH LT 10)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "MAX_RH","-min").
IF ((NOT MISSING(MAX_RH)) AND (MAX_RH GT 105)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "MAX_RH","-max").
IF ((NOT MISSING(AVG_WS)) AND (AVG_WS LT 0)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "AVG_WS","-min").
IF ((NOT MISSING(AVG_WANG)) AND (AVG_WANG LT 0)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "AVG_WANG","-min").
IF ((NOT MISSING(AVG_WANG)) AND (AVG_WANG GT 360)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "AVG_WANG","-max").
IF ((NOT MISSING(RAD_SOL)) AND (RAD_SOL LT -100)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "RAD_SOL","-min").
IF ((NOT MISSING(RAD_SOL)) AND (RAD_SOL GT 3800)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "RAD_SOL","-max").
IF ((NOT MISSING(PAR)) AND (PAR LT -100)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "PAR","-min").
IF ((NOT MISSING(PAR)) AND (PAR GT 6999)) BADVARS=CONCAT(RTRIM(BADVARS)," ", "PAR","-max").
SELECT IF (BADVARS NE "").
LIST VARIABLES=ALL.
Execute.