kludge the value to account for a magnetosheric contribution this is just a random guess that makes the KHI examples work well; a better value should be investigated
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=wp), | intent(in), | dimension(-1:,-1:,-1:,:) | :: | ns | ||
real(kind=wp), | intent(in), | dimension(-1:,-1:,-1:) | :: | B1 | ||
integer, | intent(in) | :: | flagcap | |||
real(kind=wp), | intent(out), | dimension(1:size(ns,1)-4,1:size(ns,2)-4,1:size(ns,3)-4) | :: | incap |