Interpolate from observation space to model grid (Source File: gridinterpol.F90)

INTERFACE:

    subroutine gridinterpol(N,cols,obs_z,obs_prof,nlev,model_z,model_prof)

DESCRIPTION:

This is a utility subroutine in which observational data, which might be given on an arbitrary, but structured grid, are linearly interpolated and extrapolated to the actual (moving) model grid.

USES:

    IMPLICIT NONE

INPUT PARAMETERS:

    integer,  intent(in)                :: N,cols
    REALTYPE, intent(in)                :: obs_z(0:N),obs_prof(0:N,cols)
    integer,  intent(in)                :: nlev
    REALTYPE, intent(in)                :: model_z(0:nlev)

OUTPUT PARAMETERS:

    REALTYPE, intent(out)               :: model_prof(0:nlev,cols)

REVISION HISTORY:

    Original author(s): Karsten Bolding & Hans Burchard
    $Log: gridinterpol.F90,v $
    Revision 1.5  2005-11-18 10:59:34  kbk
    removed unused variables - some left in parameter lists
    Revision 1.4  2005/06/27 13:44:07  kbk
    modified + removed traling blanks
    Revision 1.3  2003/03/28 09:20:36  kbk
    added new copyright to files
    Revision 1.2  2003/03/10 08:54:16  gotm
    Improved documentation and cleaned up code
    Revision 1.1.1.1  2001/02/12 15:55:58  gotm
    initial import into CVS