TABLE OF CONTENTS
- MLT_RSS/MSU_L1B_ingest.f90/add_scan_to_orbit
- MLT_RSS/MSU_L1B_ingest.f90/almost_equal
- MLT_RSS/MSU_L1B_ingest.f90/ingest_MSU_l1b
- MLT_RSS/MSU_L1B_ingest.f90/sort_msu_l1b_file_list
MLT_RSS/MSU_L1B_ingest.f90/add_scan_to_orbit [ Subroutines ]
[ Top ] [ Subroutines ]
NAME
add_scan_to_orbit
PURPOSE
adds a single MSU scan to MSU L1B orbit structure
DESCRIPTION
adds a single MSU scan to MSU L1B orbit structure
INPUTS
type(msu_raw) :: scan_to_add ! scan to be added type(msu_L1B_raw_orbit_data) :: L1B_orbit_data ! orbit structure to add scan to integer(4) :: scan_num ! scan number in orbit
OUTPUTS
integer(4) :: error ! error flag ! errors: Error = 6 means something weird happened Error = 1 means match found in correct place, no replacement made Error = 2 means empty spot in correct place, replacement made Error = 3 means match found, but to one side, no replacement made Error = 4 means match found, but to one side, replacement made
AUTHOR
Carl Mears, Remote Sensing Systems
COPYRIGHT
THIS SOFTWARE AND ITS DOCUMENTATION ARE COPYRIGHT 2012 REMOTE SENSING SYSTEMS. THEY ARE PROVIDED FOR INFORMATIONAL AND ALGORITHM VERIFICATION PURPOSES ONLY AND MAY NOT BE USED IN WHOLE OR IN PART FOR ANY OTHER PURPOSE WITHOUT WRITTEN PERMISSION FROM REMOTE SENSING SYSTEMS. THEY ARE FURNISHED "AS IS." THE AUTHORS, THE UNITED STATES GOVERNMENT, ITS INSTRUMENTALITIES, OFFICERS, EMPLOYEES, AND AGENTS MAKE NO WARRANTY, EXPRESS OR IMPLIED, AS TO THE USEFULNESS OF THE SOFTWARE AND DOCUMENTATION FOR ANY PURPOSE. THEY ASSUME NO RESPONSIBILITY (1) FOR THE USE OF THE SOFTWARE AND DOCUMENTATION; OR (2) TO PROVIDE TECHNICAL SUPPORT TO USERS.
HISTORY
2/21/2012 Initial Version prepared for NCDC
USAGE
call add_scan_to_orbit( scan_to_add,L1B_orbit_data,scan_num,error)
MLT_RSS/MSU_L1B_ingest.f90/almost_equal [ Subroutines ]
[ Top ] [ Subroutines ]
NAME
almost_equal
PURPOSE
tests two real numbers to see if they are equal with 2.0e-5
DESCRIPTION
tests two real numbers to see if they are equal with 2.0e-5
INPUTS
real(4) :: t1,t2 ! numbers to test Return Value logical ! set to true if absolute difference between two numbers is less than 2.0e-5
AUTHOR
Carl Mears, Remote Sensing Systems
COPYRIGHT
THIS SOFTWARE AND ITS DOCUMENTATION ARE COPYRIGHT 2012 REMOTE SENSING SYSTEMS. THEY ARE PROVIDED FOR INFORMATIONAL AND ALGORITHM VERIFICATION PURPOSES ONLY AND MAY NOT BE USED IN WHOLE OR IN PART FOR ANY OTHER PURPOSE WITHOUT WRITTEN PERMISSION FROM REMOTE SENSING SYSTEMS. THEY ARE FURNISHED "AS IS." THE AUTHORS, THE UNITED STATES GOVERNMENT, ITS INSTRUMENTALITIES, OFFICERS, EMPLOYEES, AND AGENTS MAKE NO WARRANTY, EXPRESS OR IMPLIED, AS TO THE USEFULNESS OF THE SOFTWARE AND DOCUMENTATION FOR ANY PURPOSE. THEY ASSUME NO RESPONSIBILITY (1) FOR THE USE OF THE SOFTWARE AND DOCUMENTATION; OR (2) TO PROVIDE TECHNICAL SUPPORT TO USERS.
HISTORY
2/21/2012 Initial Version prepared for NCDC
USAGE
equal = almost_equal(x1,x1)
MLT_RSS/MSU_L1B_ingest.f90/ingest_MSU_l1b [ Programs ]
NAME
ingest_MSU_l1b.f90
PURPOSE
Ingests MSU L1B data from NOAA.
DESCRIPTION
Ingests MSU L1B data from NOAA. Reads partial orbit files from NOAA. Tests for duplicate records. Removed unneeded data, and writes data back in RSS L1B format as complete orbits.
INPUTS
character(len = FILE_LEN) :: msu_incoming_path ! location of MSU CLASS L1B files logical :: wrt ! set true to write out files. FILES READ MSU L1B files from CLASS FILES WRITTEN RSS format L1B files RSS orbit inventory files
AUTHOR
Carl Mears, Remote Sensing Systems
COPYRIGHT
THIS SOFTWARE AND ITS DOCUMENTATION ARE COPYRIGHT 2012 REMOTE SENSING SYSTEMS. THEY ARE PROVIDED FOR INFORMATIONAL AND ALGORITHM VERIFICATION PURPOSES ONLY AND MAY NOT BE USED IN WHOLE OR IN PART FOR ANY OTHER PURPOSE WITHOUT WRITTEN PERMISSION FROM REMOTE SENSING SYSTEMS. THEY ARE FURNISHED "AS IS." THE AUTHORS, THE UNITED STATES GOVERNMENT, ITS INSTRUMENTALITIES, OFFICERS, EMPLOYEES, AND AGENTS MAKE NO WARRANTY, EXPRESS OR IMPLIED, AS TO THE USEFULNESS OF THE SOFTWARE AND DOCUMENTATION FOR ANY PURPOSE. THEY ASSUME NO RESPONSIBILITY (1) FOR THE USE OF THE SOFTWARE AND DOCUMENTATION; OR (2) TO PROVIDE TECHNICAL SUPPORT TO USERS.
HISTORY
10/15/2012 Initial Version prepared for NCDC
USAGE
call ingest_MSU_l1b(msu_incoming_path,wrt)
MLT_RSS/MSU_L1B_ingest.f90/sort_msu_l1b_file_list [ Subroutines ]
[ Top ] [ Subroutines ]
NAME
sort_msu_l1b_file_list
PURPOSE
sorts list of CLASS L1B files
DESCRIPTION
sorts list of CLASS L1B files
INPUTS
integer(4) :: num_files !number of file in list character(len = FILE_LEN),dimension(MAX_FILES) :: raw_l1b_file ! list of files to sort. List is returned sorted.
AUTHOR
Carl Mears, Remote Sensing Systems
COPYRIGHT
THIS SOFTWARE AND ITS DOCUMENTATION ARE COPYRIGHT 2012 REMOTE SENSING SYSTEMS. THEY ARE PROVIDED FOR INFORMATIONAL AND ALGORITHM VERIFICATION PURPOSES ONLY AND MAY NOT BE USED IN WHOLE OR IN PART FOR ANY OTHER PURPOSE WITHOUT WRITTEN PERMISSION FROM REMOTE SENSING SYSTEMS. THEY ARE FURNISHED "AS IS." THE AUTHORS, THE UNITED STATES GOVERNMENT, ITS INSTRUMENTALITIES, OFFICERS, EMPLOYEES, AND AGENTS MAKE NO WARRANTY, EXPRESS OR IMPLIED, AS TO THE USEFULNESS OF THE SOFTWARE AND DOCUMENTATION FOR ANY PURPOSE. THEY ASSUME NO RESPONSIBILITY (1) FOR THE USE OF THE SOFTWARE AND DOCUMENTATION; OR (2) TO PROVIDE TECHNICAL SUPPORT TO USERS.
HISTORY
9/21/2012 Initial Version prepared for NCDC
USAGE
call sort_msu_l1b_file_list(num_files,raw_l1b_file)