Interpolate from observation space to model grid

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