Index | Rundeck: E6TomaF40 | Created: Sat May 18 03:30:40 EDT 2024 |
logpint | Module: | File: TRACERS_SPECIAL_Shindell.f |
Author : Greg Faluvegi
Version:
Declaration:
subroutine logpint(lin, pin, ain, lout, pout, aout, min_zero)
- lin :
integer, intent(in)
- number of levels for initial input variable
- lout :
integer, intent(in)
- number of levels for output variable
- pin :
real*8, intent(in), dimension(lin)
- pressures at LIN levels
- pout :
real*8, intent(in), dimension(lout)
- pressures at LOUT levels
- ain :
real*8, intent(in), dimension(lin)
- initial input column variable
- aout :
real*8, intent(out), dimension(lout)
- output (interpolated) column variable
- lnpin :
real*8, dimension(lin)
- natural log of PIN
- lnpout :
real*8, dimension(lout)
- natural log of POUT
- min_zero :
logical, intent(in)
- if true, don't allow negatives
- slope :
real*8
- slope of line used for extrapolations
- l1 :
integer
- l2 :
integer