lint1 Subroutine

private subroutine lint1(nx, p, mx, q, ix, dx)

linearly interpolate p on x onto q on xx

Arguments

Type IntentOptional Attributes Name
integer :: nx
real(kind=wp) :: p(nx)
integer :: mx
real(kind=wp) :: q(mx)
integer :: ix(mx)
real(kind=wp) :: dx(mx)

Called by

proc~~lint1~~CalledByGraph proc~lint1 regridpack_module::lint1 proc~cubt2 regridpack_module::cubt2 proc~cubt2->proc~lint1 proc~lint2 regridpack_module::lint2 proc~lint2->proc~lint1 proc~rgrd1 regridpack_module::rgrd1 proc~rgrd1->proc~lint1 interface~regrid regridpack_module::regrid interface~regrid->proc~rgrd1 proc~rgrd1_wrapper regridpack_module::rgrd1_wrapper interface~regrid->proc~rgrd1_wrapper proc~rgrd2 regridpack_module::rgrd2 interface~regrid->proc~rgrd2 proc~rgrd2_wrapper regridpack_module::rgrd2_wrapper interface~regrid->proc~rgrd2_wrapper proc~rgrd3 regridpack_module::rgrd3 interface~regrid->proc~rgrd3 proc~rgrd3_wrapper regridpack_module::rgrd3_wrapper interface~regrid->proc~rgrd3_wrapper proc~rgrd4 regridpack_module::rgrd4 interface~regrid->proc~rgrd4 proc~rgrd4_wrapper regridpack_module::rgrd4_wrapper interface~regrid->proc~rgrd4_wrapper proc~cubt3 regridpack_module::cubt3 proc~cubt3->proc~cubt2 proc~cubt3->proc~lint2 proc~lint3 regridpack_module::lint3 proc~lint3->proc~cubt2 proc~lint3->proc~lint2 proc~rgrd1_wrapper->proc~rgrd1 proc~rgrd2->proc~cubt2 proc~rgrd2->proc~lint2 proc~cubt4 regridpack_module::cubt4 proc~cubt4->proc~cubt3 proc~cubt4->proc~lint3 proc~lint4 regridpack_module::lint4 proc~lint4->proc~cubt3 proc~lint4->proc~lint3 proc~rgrd2_wrapper->proc~rgrd2 proc~rgrd3->proc~cubt3 proc~rgrd3->proc~lint3 proc~rgrd3_wrapper->proc~rgrd3 proc~rgrd4->proc~cubt4 proc~rgrd4->proc~lint4 proc~rgrd4_wrapper->proc~rgrd4

Source Code

    subroutine lint1(nx,p,mx,q,ix,dx)

    implicit none

    integer :: mx,ix(mx),nx,ii,i
    real(wp) :: p(nx),q(mx),dx(mx)

    do ii=1,mx
        i = ix(ii)
        q(ii) = p(i)+dx(ii)*(p(i+1)-p(i))
    end do

    end subroutine lint1