$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
Type | Intent | Optional | 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 |