TABLE OF CONTENTS

1. MLT_RSS/MSU_L1B_ingest_driver.f90 [ Project ]

[ Top ] [ Project ]

NAME

    MSU_L1B_ingest_driver

PURPOSE

    Top level driver program for converting MSU L1B files from NOAA CLASS to
    RSS MSU L1B format

DESCRIPTION

    Top level driver program for converting MSU L1B files from NOAA CLASS to
    RSS MSU L1B format.  Takes the location of these files as the command line 
    parameter

INPUT

     from command line:
     string containing the path name for the location of the CLASS L1B 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

    2/21/2012 Initial Version prepared for NCDC

USAGE

    (on command line)
    msu_l1b_ingest_driver  c:\MSU_L1B\NOAA-06\

2. MLT_RSS/MSU_L1B_ingest.f90/ingest_MSU_l1b [ Programs ]

[ Top ] [ 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)

3. 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)

4. 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)

5. 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)