pro verify_rss_gmi

;edit to YOUR data path here:

data_folder = 'R:\ftp\gmi\bmaps_v08.1\'

file_name_day   = data_folder + 'y2014\m05\f35_20140519v8.1.gz'
file_name_3day  = data_folder + 'y2014\m05\f35_20140519v8.1_d3d.gz'
file_name_week  = data_folder +     'weeks\f35_20140524v8.1.gz'
file_name_month = data_folder + 'y2014\m05\f35_201405v8.1.gz'


print, '' & print, '' & print, ''
print, '***************** daily ********************'
print, 'READ: ', file_name_day

read_rss_mwr_day, file_name_day, time, sst, wind_lf, wind_mf, vapor, cloud, rain

; print the subset of data that appears in verify_gmi_v8.1.txt

print, 'time:'    & print, time   [169:174,273:277,0], format='(6f11.2)' & print, ''
print, 'sst:'     & print, sst    [169:174,273:277,0], format='(6f11.2)' & print, ''
print, 'wind_lf:' & print, wind_lf[169:174,273:277,0], format='(6f11.2)' & print, ''
print, 'wind_mf:' & print, wind_mf[169:174,273:277,0], format='(6f11.2)' & print, ''
print, 'vapor:'   & print, vapor  [169:174,273:277,0], format='(6f11.2)' & print, ''
print, 'cloud:'   & print, cloud  [169:174,273:277,0], format='(6f11.2)' & print, ''
print, 'rain:'    & print, rain   [169:174,273:277,0], format='(6f11.2)' & print, ''



print, '' & print, '' & print, ''
print, '***************** 3-day ********************'
print, 'READ: ', file_name_3day

read_rss_mwr_averaged, file_name_3day, sst, wind_lf, wind_mf, vapor, cloud, rain

; print the subset of data that appears in verify_gmi_v8.1.txt

print, 'sst:'     & print, sst    [169:174,273:277], format='(6f11.2)' & print, ''
print, 'wind_lf:' & print, wind_lf[169:174,273:277], format='(6f11.2)' & print, ''
print, 'wind_mf:' & print, wind_mf[169:174,273:277], format='(6f11.2)' & print, ''
print, 'vapor:'   & print, vapor  [169:174,273:277], format='(6f11.2)' & print, ''
print, 'cloud:'   & print, cloud  [169:174,273:277], format='(6f11.2)' & print, ''
print, 'rain:'    & print, rain   [169:174,273:277], format='(6f11.2)' & print, ''



print, '' & print, '' & print, ''
print, '***************** weekly ********************'
print, 'READ: ', file_name_week

read_rss_mwr_averaged, file_name_week, sst, wind_lf, wind_mf, vapor, cloud, rain

; print the subset of data that appears in verify_gmi_v8.1.txt

print, 'sst:'     & print, sst    [169:174,273:277], format='(6f11.2)' & print, ''
print, 'wind_lf:' & print, wind_lf[169:174,273:277], format='(6f11.2)' & print, ''
print, 'wind_mf:' & print, wind_mf[169:174,273:277], format='(6f11.2)' & print, ''
print, 'vapor:'   & print, vapor  [169:174,273:277], format='(6f11.2)' & print, ''
print, 'cloud:'   & print, cloud  [169:174,273:277], format='(6f11.2)' & print, ''
print, 'rain:'    & print, rain   [169:174,273:277], format='(6f11.2)' & print, ''



print, '' & print, '' & print, ''
print, '***************** monthly ********************'
print, 'READ: ', file_name_month

read_rss_mwr_averaged, file_name_month, sst, wind_lf, wind_mf, vapor, cloud, rain

; print the subset of data that appears in verify_gmi_v8.1.txt

print, 'sst:'     & print, sst    [169:174,273:277], format='(6f11.2)' & print, ''
print, 'wind_lf:' & print, wind_lf[169:174,273:277], format='(6f11.2)' & print, ''
print, 'wind_mf:' & print, wind_mf[169:174,273:277], format='(6f11.2)' & print, ''
print, 'vapor:'   & print, vapor  [169:174,273:277], format='(6f11.2)' & print, ''
print, 'cloud:'   & print, cloud  [169:174,273:277], format='(6f11.2)' & print, ''
print, 'rain:'    & print, rain   [169:174,273:277], format='(6f11.2)' & print, ''



print, '' & print, '' & print, ''
print, 'DONE'

end