share/module_interp_store.F

   1 module module_interp_store
   2   ! MODULE module_interp_store
   3   ! PURPOSE: Stores interpolation information for the current
   4   !   high-resolution domain.  The actual information is not
   5   !   stored; just pointers to the corresponding elements of
   6   !   the grid (domain) object.  To update the pointers, call
   7   !   store_interp_info.  Note that, regardless of the direction
   8   !   or type of interpolation, the high-resolution domain is
   9   !   the one stored (when interpolating from parent to nest or
  10   !   nest to parent, nest info is stored).
  11   ! AUTHOR: Samuel Trahan
  12   ! HISTORY:
  13   !   August, 2012 - initial creation
  14   !   December, 2013 - added kpres, which stores the pressure-sigma
  15   !       transition level
  16   implicit none
  17
  18   integer, pointer, dimension(:,:) :: IIH,JJH,IIV,JJV
  19   real, pointer, dimension(:,:) :: HBWGT1,HBWGT2,HBWGT3,HBWGT4
  20   real, pointer, dimension(:,:) :: VBWGT1,VBWGT2,VBWGT3,VBWGT4
  21
  22   integer :: grid_id, parent_grid_id
  23   integer, pointer, dimension(:,:,:) :: iinfo,parent_iinfo, &
  24                                         iinfo_bxs, iinfo_bxe, &
  25                                         iinfo_bys, iinfo_bye
  26   real, pointer, dimension(:,:,:) :: winfo,parent_winfo, &
  27                                      winfo_bxs, winfo_bxe, &
  28                                      winfo_bys, winfo_bye
  29   integer, pointer, dimension(:,:) :: hnear_i, hnear_j
  30   integer :: kpres
  31   real, pointer, dimension(:,:) :: parent_fis, nest_fis
  32
  33 end module module_interp_store
  34
  35 subroutine store_interp_info(grid, parent_grid)
  36   use module_domain_type, only : domain
  37   use module_interp_store
  38   implicit none
  39   type(domain), intent(in) :: grid, parent_grid
  40
  41 end subroutine store_interp_info
  42