National Aeronautics and Space Administration

Goddard Institute for Space Studies

+ NASA Homepage
+ NASA GISS Homepage
+ Model E Resource Homepage

Rundeck: P1SoM40

Created: Fri May 10 03:30:18 EDT 2024

vntrp1

Module:

File: DIAG.f

Summary:
Author :
Version:

Declaration:

subroutine vntrp1 (km, p, ain, lma, pe, aout)

Variables:

km : integer, integer, intent(in)
lma : integer, integer, intent(in)
p : real*8, dimension(0:KM), real*8, intent(in), dimension(0:KM)
ain : real*8, dimension(0:KM), real*8, intent(in), dimension(0:KM)
pe : real*8, dimension(0:LMA), real*8, intent(in), dimension(0:LMA)
aout : real*8, dimension(LMA), real*8, intent(out), dimension(LMA)
k : integer, integer
k1 : integer, integer
l : integer, integer
pdn : real*8, real*8
adn : real*8, real*8
pup : real*8, real*8
aup : real*8, real*8
psum : real*8, real*8
asum : real*8, real*8
km : integer, integer, intent(in)
lma : integer, integer, intent(in)
p : real*8, dimension(0:KM), real*8, intent(in), dimension(0:KM)
ain : real*8, dimension(0:KM), real*8, intent(in), dimension(0:KM)
pe : real*8, dimension(0:LMA), real*8, intent(in), dimension(0:LMA)
aout : real*8, dimension(LMA), real*8, intent(out), dimension(LMA)
k : integer, integer
k1 : integer, integer
l : integer, integer
pdn : real*8, real*8
adn : real*8, real*8
pup : real*8, real*8
aup : real*8, real*8
psum : real*8, real*8
asum : real*8, real*8

Simplex Website Curator: Igor Aleinov — NASA Official: Gavin A. Schmidt

Contact GISS — NASA Privacy Policy — Accessibility