Line data    Source code

       1             : module interp_mod
       2             :   use shr_kind_mod,   only : r8=>shr_kind_r8
       3             :   use cam_abortutils, only : endrun
       4             : 
       5             :   implicit none
       6             :   private
       7             :   save
       8             : 
       9             :   public :: setup_history_interpolation
      10             :   public :: set_interp_hfile
      11             :   public :: write_interpolated
      12             : 
      13             :   interface write_interpolated
      14             :      module procedure write_interpolated_scalar
      15             :      module procedure write_interpolated_vector
      16             :   end interface
      17             :   integer, parameter :: nlat=0, nlon=0
      18             : contains
      19             : 
      20           0 :   subroutine setup_history_interpolation(interp_ok, mtapes, interp_output,    &
      21             :        interp_info)
      22             :     use cam_history_support, only: interp_info_t
      23             : 
      24             :     ! Dummy arguments
      25             :     logical,             intent(inout) :: interp_ok
      26             :     integer,             intent(in)    :: mtapes
      27             :     logical,             intent(in)    :: interp_output(:)
      28             :     type(interp_info_t), intent(inout) :: interp_info(:)
      29             : 
      30           0 :     interp_ok = .false.
      31             : 
      32           0 :   end subroutine setup_history_interpolation
      33             : 
      34           0 :   subroutine set_interp_hfile(hfilenum, interp_info)
      35           0 :     use cam_history_support, only: interp_info_t
      36             : 
      37             :     ! Dummy arguments
      38             :     integer,             intent(in)    :: hfilenum
      39             :     type(interp_info_t), intent(inout) :: interp_info(:)
      40           0 :   end subroutine set_interp_hfile
      41             : 
      42           0 :   subroutine write_interpolated_scalar(File, varid, fld, numlev, data_type, decomp_type) 
      43           0 :     use pio, only : file_desc_t, var_desc_t
      44             :     use shr_kind_mod, only : r8=>shr_kind_r8
      45             :     implicit none
      46             :     type(file_desc_t), intent(inout) :: File
      47             :     type(var_desc_t), intent(inout) :: varid
      48             :     real(r8), intent(in) :: fld(:,:,:)
      49             :     integer, intent(in) :: numlev, data_type, decomp_type
      50           0 :     call endrun('This routine is a stub, you shouldnt get here')
      51             : 
      52           0 :   end subroutine write_interpolated_scalar
      53             : 
      54           0 :   subroutine write_interpolated_vector(File, varidu, varidv, fldu, fldv, numlev, data_type, decomp_type) 
      55             :     use pio, only : file_desc_t, var_desc_t
      56             :     implicit none
      57             :     type(file_desc_t), intent(inout) :: File
      58             :     type(var_desc_t), intent(inout) :: varidu, varidv
      59             :     real(r8), intent(in) :: fldu(:,:,:), fldv(:,:,:)
      60             :     integer, intent(in) :: numlev, data_type, decomp_type
      61           0 :     call endrun('This routine is a stub, you shouldnt get here')
      62             : 
      63           0 :   end subroutine write_interpolated_vector
      64             : 
      65             : end module interp_mod