SUBROUTINE INTERPOL_RAIN ( YY1, YY2, YY3, NXMAX, NYMAX, NZMAX, NX, NY, MEMIND, XT, YT, LEVEL, ITIME1, ITIME2, ITIME, YINT1, YINT2, YINT3 )

Argument Definitions (+ indicates altered content)
INTEGER            ITIME,      ITIME1,     ITIME2,     LEVEL
INTEGER            MEMIND(2),  NX,         NXMAX,      NY
INTEGER            NYMAX,      NZMAX
REAL              +XT,        +YINT1,     +YINT2,     +YINT3
REAL              +YT,         YY1(0:NXMAX-1,0:NYMAX-1,NZMAX,2)
REAL               YY2(0:NXMAX-1,0:NYMAX-1,NZMAX,2)
REAL               YY3(0:NXMAX-1,0:NYMAX-1,NZMAX,2)
Description
                              i   i   i    i    i     i   i 
    i    i    i  i    i     i      i      i     o     o     o 
 
 
 Interpolation of meteorological fields on 2-d model layers. 
 In horizontal direction bilinear interpolation interpolation is used. 
 Temporally a linear interpolation is used. 
 Three fields are interpolated at the same time. 
 
 This is a special version of levlininterpol to save CPU time. 
 
 1 first time 
 2 second time 
 
 
    Author: A. Stohl 
 
    30 August 1996 
 
 
 
Variables: 
 
dt1,dt2              time differences between fields and current posit 
dz1,dz2              z distance between levels and current position 
height(nzmax)        heights of the model levels 
indexh               help variable 
indz                 the level closest to the current trajectory posit 
indzh                help variable 
itime                current time 
itime1               time of the first wind field 
itime2               time of the second wind field 
ix,jy                x,y coordinates of lower left subgrid point 
level                level at which interpolation shall be done 
memind(3)            points to the places of the wind fields 
nx,ny                actual field dimensions in x,y and z direction 
nxmax,nymax,nzmax    maximum field dimensions in x,y and z direction 
xt                   current x coordinate 
yint                 the final interpolated value 
yt                   current y coordinate 
yy(0:nxmax,0:nymax,nzmax,3) meteorological field used for interpolatio 
zt                   current z coordinate
Source file:interpol_rain.f
Intrinsic Functions Called
INTEGER            INT
REAL               FLOAT
Local Variables (+ indicates altered content)
INTEGER           +INDEXH,    +IX,        +IXP,       +JY
INTEGER           +JYP,       +M
REAL              +DDX,       +DDY,       +DT,        +DT1
REAL              +DT2,       +P1,        +P2,        +P3
REAL              +P4,        +RDDX,      +RDDY,      +Y1(2)
REAL              +Y2(2),     +Y3(2)