iug_load_aws_rish.pro (Documentation for /home/davin/idl/socware/)

;+
;
;NAME:
;iug_load_aws_rish
;
;PURPOSE:
;  Queries the RISH server for the surface meterology data taken by the automatic weather 
;  station (AWS) and loads data into tplot format.
;
;SYNTAX:
; iug_load_aws_rish, site=site, downloadonly=downloadonly, trange=trange, verbose=verbose
;
;KEYWOARDS:
;  SITE = AWS observation site.  
;         For example, iug_load_aws_rish, site = 'bik'.
;         The default is 'all', i.e., load all available observation points.
;  TRANGE = (Optional) Time range of interest  (2 element array), if
;          this is not set, the default is to prompt the user. Note
;          that if the input time range is not a full day, a full
;          day's data is loaded.
;  /downloadonly, if set, then only download the data, do not load it
;                 into variables.
;  VERBOSE : [1,...,5], Get more detailed (higher number) command line output.
;
;CODE:
;  A. Shinbori, 28/02/2013.
;  
;MODIFICATIONS:
;  A. Shinbori, 08/01/2014.
;   
;ACKNOWLEDGEMENT:
; $LastChangedBy: jwl $
; $LastChangedDate: 2014-02-10 16:12:40 -0800 (Mon, 10 Feb 2014) $
; $LastChangedRevision: 14263 $
; $URL $
;-
  
pro iug_load_aws_rish, site = site, $
   trange = trange, $
   verbose = verbose, $
   downloadonly=downloadonly

;**********************
;Verbose keyword check:
;**********************
if (not keyword_set(verbose)) then verbose=2

;****************
;Site code check:
;****************
;--- all sites (default)
site_code_all = strsplit('bik ktb mnd pon sgk',' ', /extract)

;--- check site codes
if (not keyword_set(site)) then site='all'
site_code = thm_check_valid_name(site, site_code_all, /ignore_case, /include_all)

if n_elements(site_code) eq 1 then begin
   if site_code eq '' then begin
      print, 'This station code is not valid. Please input the allowed keywords, all, bik, ktb, mnd, pon, and sgk.'
      return
   endif
endif

print, site_code

;===============================
;======Load data of AWS=========
;===============================
for i=0L, n_elements(site_code)-1 do begin
  
   if (site_code[i] eq 'sgk') then begin
     ;---load of aws data at the Shigaraki sites
      iug_load_aws_sgk, site=site_code[i], trange = trange, $
                        downloadonly=downloadonly, verbose = verbose
   endif else begin
     ;---load of aws data at the Indonesian sites
      iug_load_aws_id, site=site_code[i], trange = trange, $
                       downloadonly=downloadonly, verbose = verbose
   endelse   
endfor  
end