Changeset 38f23c7 in flexpart.git

Timestamp:

Nov 1, 2019, 10:05:26 AM (4 years ago)

Author:

Sabine <sabine.eckhardt@…>

Branches:

GFS_025, dev

Children:

95a8cb6

Parents:

c56da45

Message:

BUGFIX: indexing for input windfield corrected

File:

• src/gridcheck_ecmwf.f90 (modified) (1 diff)

src/gridcheck_ecmwf.f90

@@ -344 +344 @@
     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