#include <misc.h> #include <params.h> subroutine fmrgrid(qrs ,qrl ,qrsm ,qrlm ) 1 C----------------------------------------------------------------------- C C Interpolate model arrays to radiation vertical grid. C C-------------------------Code History---------------------------------- C C Original version: C Standardized: L. Buja, Feb 1996 C Reviewed: C C----------------------------------------------------------------------- #include <implicit.h> C----------------------------------------------------------------------- c c $Id: fmrgrid.F,v 1.1 1998/04/01 07:21:45 ccm Exp $ c C------------------------------Parameters------------------------------- #include <pmgrid.h> C----------------------------------------------------------------------- #include <ptrrgrid.h> C-----------------------------Arguments--------------------------------- C C Input (radiation grid) C real qrs(plond,plevr) ! Shortwave heating rate real qrl(plond,plevr) ! Longwave heating rate C C Output (model grid) C real qrsm(plond,plev) ! Shortwave heating rate real qrlm(plond,plev) ! Longwave heating rate 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 end