TABLE OF CONTENTS


MLT_RSS/zonal.f90 [ Programs ]

[ Top ] [ Programs ]

NAME

    module zonal

PURPOSE

    psuedoclass that defines and manipulates zonal means of MSU/AMSU data

DESCRIPTION

    psuedoclass that defines and manipulates zonal means of MSU/AMSU data
    
  Components
    the pseudoclass defines a zonal average type

               type zonal_ave_rec
               type (date_str)                                                                                                         :: begin_date
               type (date_str)                                                                                                         :: end_date
               type(ave),dimension(NUM_ZONES,NUM_FOVS,NUM_NODES,NUM_SURFACES+1)        :: dat
       end type zonal_ave_rec
  
 explanation of the grid type flag:


  ROUTINES
    zero_zonal_ave_rec(z)
        fills zonal average record z with initial values.
    put_in_zone(x,lon,lat,date,zone,fov,node,surf,z)  
        adds a single observation to a zonal average record z

INPUTS

           lon         longitude of observation
           lat         latitude of observation
           date        date of observation, in data_str form
           fov         field of view
           node        ascending or descending
           z           zonal average record to add to

OUTPUTS

           zone        zonal index of choosen zone
           surf        surface type (land or ocean) of location
           z           updated zonal average record

    put_scan_in_zone(scan,ok,z,chan,corr_level)
        adds a single MSU scan to a zonal average record

INPUTS

           scan        MSU scan structure
           ok          array of fov quality flags
           z           zonal average record to add to
           chan        msu_channel
           corr_level  msu correction level

OUTPUTS

           z           updated zonal average record
    put_scan_in_zone_xswath(scan,ok,z,chan,corr_level)
        adds a single cross-swath difference to a zonal average.  deprecated.
        adds a single MSU scan to a zonal average record

INPUTS

           scan        MSU scan structure
           ok          array of fov quality flags
           z           zonal average record to add to
           chan        msu_channel
           corr_level  msu correction level

OUTPUTS

           z           updated zonal average record

    update_zonal_ave_rec(z)
        updates a zonal average record  -- i.e computed averages from totals so they are consistent

INPUTS

           z           zonal average record to add to

OUTPUTS

           z           updated zonal average record
    write_zonal_ave_rec(z,lu,full,error)
        writes a zonal average record in standard binary form.

INPUTS

           z           zonal average record to write
           lu          logical unit to write to
           full        set to true to write "full" set of data

OUTPUTS

           error       error flag -- if non zero, write was not successful
    write_zonal_ave_rec_direct(pentad,offset,z,lu,error)
        writes a zonal average record in standard binary form to fortran direct access file.

INPUTS

           pentad      pentad number to write data to.
           offset      beginning pentad number in file
           z           zonal average record to write
           lu          logical unit to write to

OUTPUTS

           error       error flag -- if non zero, write was not successful

AUTHOR

    Carl Mears, Remote Sensing Systems

COPYRIGHT

    THIS SOFTWARE AND ITS DOCUMENTATION ARE CONSIDERED TO BE IN THE PUBLIC DOMAIN AND
    THUS ARE AVAILABLE FOR UNRESTRICTED PUBLIC USE.  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

    use zonal