#include <misc.h>
#include <params.h>

      subroutine torgrid(pmidm   ,pintm   ,pmlnm   ,pilnm   ,tm      , 1
     $                   h2ommrm ,cldm    ,effcldm ,clwpm   ,
     $                   pmid    ,pint    ,pmln    ,piln    ,t       ,
     $                   h2ommr  ,cld     ,effcld  ,clwp    )
C-----------------------------------------------------------------------
C
C Interpolate model arrays to radiation vertical grid.
C
C Currently this is do nothing routine.
C
C-------------------------Code History----------------------------------
C
C Original version:  CCM2
C Standardized:      T. Acker, Feb 1996
C Reviewed:          
C 
C-----------------------------------------------------------------------
c
c $Id: torgrid.F,v 1.1 1998/04/01 07:22:35 ccm Exp $
c
C-----------------------------------------------------------------------
#include <implicit.h>
C------------------------------Parameters-------------------------------
#include <pmgrid.h>
C-----------------------------------------------------------------------
#include <ptrrgrid.h>
C------------------------------Argurments--------------------------------
C
C Input arguments
C
      real pmidm(plond,plev)      ! Model level pressures
      real pintm(plond,plevp)     ! Model interface pressures
      real pmlnm(plond,plev)      ! Natural log of pmid
      real pilnm(plond,plevp)     ! Natural log of pint
      real tm(plond,plev)         ! Model level temperatures
      real h2ommrm(plond,plev)    ! Model level specific humidity
      real cldm(plond,plevp)      ! Fractional cloud cover
      real effcldm(plond,plevp)   ! Effective fractional cloud cover
      real clwpm(plond,plev)      ! Cloud liquid water path
C
C Output arguments
C
      real pmid(plond,plevr)      ! Interpolated values of above var. 
      real pint(plond,plevrp)     !   "
      real pmln(plond,plevr)      !   " 
      real piln(plond,plevrp)     !   " 
      real t(plond,plevr)         !   " 
      real h2ommr(plond,plevr)    !   "  
      real cld(plond,plevrp)      !   " 
      real effcld(plond,plevrp)   !   "
      real clwp(plond,plevr)      !   "
C 
C-----------------------------------------------------------------------
C
C Code to interpolate goes here.  Do nothing could be coded as a memory
C transfer, but left out for efficiency considerations.
C
      return
C
      end