ungrib/src/gridinfo.F

   1 !*****************************************************************************!
   2 ! MODULE GRIDINFO                                                             !
   3 !                                                                             !
   4 ! Purpose:                                                                    !
   5 !    Hold information about the map projection of data we read from the       !
   6 !    analysis files.  We pass around the grid information through this        !
   7 !    module, rather than through argument lists.                              !
   8 !                                                                             !
   9 ! Variable MAP is defined to be of type MAPINFO, where MAPINFO is defined     !
  10 ! within this module:                                                         !
  11 !                                                                             !
  12 !*****************************************************************************!
  13 module gridinfo
  14   type mapinfo
  15      character (len=32) :: source
  16      integer :: igrid  ! Integer referring to the type of map projection:
  17                        ! 0 = lat/lon
  18                        ! 3 = Lambert Conformal
  19                        ! 5 = Polar Stereographic grid.
  20      integer :: nx     ! Number of points in the X direction.
  21      integer :: ny     ! Number of points in the Y direction.
  22      real :: truelat1  ! First true latitude (for Polar Stereo. and Lam. Conf.)
  23      real :: truelat2  ! Second true latitude (for Lambt. Conformal).
  24      real :: lov       ! Central longitude of projection (PS and LC).
  25      character (len=8) :: startloc  ! "CENTER  " or "SWCORNER"
  26      real :: lat1      ! Starting latitude
  27      real :: lon1      ! Starting longitude
  28      real :: dx        ! grid-spacing in the X direction (km or degrees)
  29      real :: dy        ! grid-spacing in the Y direction (km or degrees)
  30                        !
  31                        ! The following are WPS extensions (intermediate format version 5)
  32      logical :: grid_wind     ! Winds are grid_relative (true) or earth-realtive(false)
  33      real :: r_earth          ! Radius of a spherical earth
  34   end type mapinfo
  35
  36   type (mapinfo) :: map
  37
  38 end module gridinfo
  39