pro verify_rss_amsre

;edit to YOUR data path here:

data_folder = 'R:\ftp\amsre\bmaps_v07\'

file_name_day   = data_folder + 'y2002\m07\f32_20020715v7.gz'
file_name_3day  = data_folder + 'y2002\m07\f32_20020715v7_d3d.gz'
file_name_week  = data_folder +     'weeks\f32_20020720v7.gz'
file_name_month = data_folder + 'y2002\m07\f32_200207v7.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_amsre_v7.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_amsre_v7.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_amsre_v7.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_amsre_v7.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