pro verify_rss_tmi

;edit to YOUR data path here:

data_folder = 'R:\ftp\tmi\bmaps_v07.1\'

file_name_day   = data_folder + 'y1999\m04\f12_19990414v7.1.gz'
file_name_3day  = data_folder + 'y1999\m04\f12_19990414v7.1_d3d.gz'
file_name_week  = data_folder +     'weeks\f12_19990417v7.1.gz'
file_name_month = data_folder + 'y1999\m04\f12_199904v7.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_tmi_v7.1.txt

print, 'time:'    & print, time   [327:329,391:394,1], format='(3f11.2)' & print, ''
print, 'sst:'     & print, sst    [327:329,391:394,1], format='(3f11.2)' & print, ''
print, 'wind_lf:' & print, wind_lf[327:329,391:394,1], format='(3f11.2)' & print, ''
print, 'wind_mf:' & print, wind_mf[327:329,391:394,1], format='(3f11.2)' & print, ''
print, 'vapor:'   & print, vapor  [327:329,391:394,1], format='(3f11.2)' & print, ''
print, 'cloud:'   & print, cloud  [327:329,391:394,1], format='(3f11.2)' & print, ''
print, 'rain:'    & print, rain   [327:329,391:394,1], format='(3f11.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_tmi_v7.1.txt

print, 'sst:'     & print, sst    [327:329,391:394], format='(3f11.2)' & print, ''
print, 'wind_lf:' & print, wind_lf[327:329,391:394], format='(3f11.2)' & print, ''
print, 'wind_mf:' & print, wind_mf[327:329,391:394], format='(3f11.2)' & print, ''
print, 'vapor:'   & print, vapor  [327:329,391:394], format='(3f11.2)' & print, ''
print, 'cloud:'   & print, cloud  [327:329,391:394], format='(3f11.2)' & print, ''
print, 'rain:'    & print, rain   [327:329,391:394], format='(3f11.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_tmi_v7.1.txt

print, 'sst:'     & print, sst    [327:329,391:394], format='(3f11.2)' & print, ''
print, 'wind_lf:' & print, wind_lf[327:329,391:394], format='(3f11.2)' & print, ''
print, 'wind_mf:' & print, wind_mf[327:329,391:394], format='(3f11.2)' & print, ''
print, 'vapor:'   & print, vapor  [327:329,391:394], format='(3f11.2)' & print, ''
print, 'cloud:'   & print, cloud  [327:329,391:394], format='(3f11.2)' & print, ''
print, 'rain:'    & print, rain   [327:329,391:394], format='(3f11.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_tmi_v7.1.txt

print, 'sst:'     & print, sst    [327:329,391:394], format='(3f11.2)' & print, ''
print, 'wind_lf:' & print, wind_lf[327:329,391:394], format='(3f11.2)' & print, ''
print, 'wind_mf:' & print, wind_mf[327:329,391:394], format='(3f11.2)' & print, ''
print, 'vapor:'   & print, vapor  [327:329,391:394], format='(3f11.2)' & print, ''
print, 'cloud:'   & print, cloud  [327:329,391:394], format='(3f11.2)' & print, ''
print, 'rain:'    & print, rain   [327:329,391:394], format='(3f11.2)' & print, ''



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

end