Commit 38f23c70 authored by Sabine's avatar Sabine

BUGFIX: indexing for input windfield corrected

parent c56da455
......@@ -343,7 +343,7 @@ subroutine gridcheck_ecmwf
endif
nxmin1=nx-1
nymin1=ny-1
if (xlon0.gt.180.) xlon0=xlon0-360.
if (xlon0.ge.180.) xlon0=xlon0-360.
xauxa=abs(yaux1+90.)
if (xglobal.and.xauxa.lt.0.001) then
sglobal=.true. ! field contains south pole
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment