verttransform_ecmwf_windfields_nest Subroutine

public subroutine verttransform_ecmwf_windfields_nest(l, n, uuhn, vvhn, wwhn, pvhn, rhohn, prshn, pinmconv)


$OMP PARALLEL PRIVATE(jy,ix,kz,dz1,dz2,dz,ix1,jy1,ixp,jyp,dzdx1,dzdx2,dzdx, & $OMP dzdy1,dzdy2,dzdy,dpdeta)



$OMP DO


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



Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: l
integer, intent(in) :: n
real, intent(in), dimension(0:nxmaxn-1,0:nymaxn-1,nuvzmax,numbnests) :: uuhn
real, intent(in), dimension(0:nxmaxn-1,0:nymaxn-1,nuvzmax,numbnests) :: vvhn
real, intent(in), dimension(0:nxmaxn-1,0:nymaxn-1,nwzmax,numbnests) :: wwhn
real, intent(in), dimension(0:nxmaxn-1,0:nymaxn-1,nuvzmax,numbnests) :: pvhn
real, intent(in), dimension(0:nxmaxn-1,0:nymaxn-1,nuvzmax) :: rhohn
real, intent(in), dimension(0:nxmaxn-1,0:nymaxn-1,nuvzmax) :: prshn
real, intent(in), dimension(0:nxmaxn-1,0:nymaxn-1,nzmax) :: pinmconv