verttransform_ecmwf_windfields Subroutine

public subroutine verttransform_ecmwf_windfields(n, nxlim, nylim, uuh, vvh, wwh, pvh, rhoh, prsh, pinmconv)

---

z=1

---

$OMP WORKSHARE

---

---

---

Compute slope of eta levels in windward direction and resulting vertical wind correction

---

---

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	n
integer,	intent(in)			::	nxlim
integer,	intent(in)			::	nylim
real,	intent(in),		dimension(0:nxlim,0:nylim,nuvzmax)	::	uuh
real,	intent(in),		dimension(0:nxlim,0:nylim,nuvzmax)	::	vvh
real,	intent(in),		dimension(0:nxlim,0:nylim,nwzmax)	::	wwh
real,	intent(in),		dimension(0:nxlim,0:nylim,nuvzmax)	::	pvh
real,	intent(in),		dimension(0:nxlim,0:nylim,nuvzmax)	::	rhoh
real,	intent(in),		dimension(0:nxlim,0:nylim,nuvzmax)	::	prsh
real,	intent(in),		dimension(0:nxlim,0:nylim,nzmax)	::	pinmconv