Changes in src/gridcheck_gfs.f90 [4c64400:d8eed02] in flexpart.git

File:

• src/gridcheck_gfs.f90 (modified) (4 diffs)

src/gridcheck_gfs.f90

@@ -20 +20 @@
 !**********************************************************************
 
-subroutine gridcheck
+subroutine gridcheck_gfs
 
   !**********************************************************************
@@ -38 +38 @@
   !             CHANGE: 03/12/2008, Harald Sodemann, update to f90 with *
   !                                 ECMWF grib_api                      *
+  !                                                                     *
+  !   Unified ECMWF and GFS builds                                      *
+  !   Marian Harustak, 12.5.2017                                        *
+  !     - Renamed routine from gridcheck to gridcheck_gfs               *
   !                                                                     *
   !**********************************************************************
@@ -227 +231 @@
        yaux2in,iret)
   call grib_check(iret,gribFunction,gribErrorMsg)
+
+  ! Fix for flexpart.eu ticket #48
+  if (xaux2in.lt.0) xaux2in = 359.0
 
   xaux1=xaux1in
@@ -537 +544 @@
   endif
 
-end subroutine gridcheck
+end subroutine gridcheck_gfs