PRO verify_amsr_v5

;daily files
;select and alter the path for one of the file_name variables below
file_name = 'your drive:\your directory\amsre_20020715v5.gz'
file_name = 'your drive:\your directory\amsrj_20030912v5.gz'
read_amsr_day_v5, file_name, time, sst, wind, vapor, cloud, rain


; print the subset of data that appears in verify.txt file
print, file_name

print, 'fractional hour GMT:'
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:'
print, wind(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, ''



;3-day mean files
;select and alter the path for one of the file_name variables below
file_name = 'your drive:\your directory\amsre_20020715v5_d3d.gz'
file_name = 'your drive:\your directory\amsrj_20030912v5_d3d.gz'
read_amsr_averaged_v5, file_name, sst, wind, vapor, cloud, rain


; print the subset of data that appears in verify.txt file
print, '***************** 3-day ********************'
print, file_name

print, 'sst:'
print, sst(169:174,273:277), format='(6f11.2)'
print, ''

print, 'wind:'
print, wind(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, ''



;weekly files
;select and alter the path for one of the file_name variables below
file_name = 'your drive:\your directory\amsre_20020720v5.gz'
file_name = 'your drive:\your directory\amsrj_20030913v5.gz'
read_amsr_averaged_v5, file_name, sst, wind, vapor, cloud, rain


; print the subset of data that appears in verify.txt file
print, '***************** weekly ********************'
print, file_name

print, 'sst:'
print, sst(169:174,273:277), format='(6f11.2)'
print, ''

print, 'wind:'
print, wind(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, ''



;monthly files
;select and alter the path for one of the file_name variables below
file_name = 'your drive:\your directory\amsre_200207v5.gz'
file_name = 'your drive:\your directory\amsrj_200309v5.gz'
read_amsr_averaged_v5, file_name, sst, wind, vapor, cloud, rain


; print the subset of data that appears in verify file
print, '***************** monthly ********************'
print, file_name

print, 'sst:'
print, sst(169:174,273:277), format='(6f11.2)'
print, ''

print, 'wind:'
print, wind(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, ''

END