ip_station_points_grid_mod.F90

Go to the documentation of this file.

 
 
module ip_station_points_grid_mod
  use ip_grid_descriptor_mod
  use ip_grid_mod
  implicit none
 
  ! Not really a grid
  private
  public :: ip_station_points_grid
 
  type, extends(ip_grid) :: ip_station_points_grid
   contains
     procedure :: init_grib1 
     procedure :: init_grib2
     procedure :: gdswzd => gdswzd_station_points 
  end type ip_station_points_grid
 
contains
 
  subroutine init_grib1(self, g1_desc)
    class(ip_station_points_grid), intent(inout) :: self
    type(grib1_descriptor), intent(in) :: g1_desc
  end subroutine init_grib1
 
  subroutine init_grib2(self, g2_desc)
    class(ip_station_points_grid), intent(inout) :: self
    type(grib2_descriptor), intent(in) :: g2_desc
  end subroutine init_grib2
 
  SUBROUTINE gdswzd_station_points(self,IOPT,NPTS, &
       FILL,XPTS,YPTS,RLON,RLAT,NRET, &
       CROT,SROT,XLON,XLAT,YLON,YLAT,AREA)
    class(ip_station_points_grid), intent(in) :: self
    INTEGER,                 INTENT(IN   ) :: IOPT, NPTS
    INTEGER,                 INTENT(  OUT) :: NRET
    !
    REAL,                    INTENT(IN   ) :: FILL
    REAL,                    INTENT(INOUT) :: RLON(NPTS),RLAT(NPTS)
    REAL,                    INTENT(INOUT) :: XPTS(NPTS),YPTS(NPTS)
    REAL,  OPTIONAL,         INTENT(  OUT) :: CROT(NPTS),SROT(NPTS)
    REAL,  OPTIONAL,         INTENT(  OUT) :: XLON(NPTS),XLAT(NPTS)
    REAL,  OPTIONAL,         INTENT(  OUT) :: YLON(NPTS),YLAT(NPTS),AREA(NPTS)
 
    ! This is all that needs to be done for GDSWZD for station points.
    nret = npts
 
  end subroutine gdswzd_station_points
 
end module ip_station_points_grid_mod