pro verify_rss_amsr2

;edit to YOUR data path here:

data_folder = 'R:\ftp\amsr2\bmaps_v07.2\'

file_name_day   = data_folder + 'y2013\m09\f34_20130915v7.2.gz'
file_name_3day  = data_folder + 'y2013\m09\f34_20130915v7.2_d3d.gz'
file_name_week  = data_folder +     'weeks\f34_20130921v7.2.gz'
file_name_month = data_folder + 'y2013\m09\f34_201309v7.2.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_amsr2_v7.2.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_amsr2_v7.2.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_amsr2_v7.2.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_amsr2_v7.2.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