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

File:

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

src/gridcheck_gfs.f90

@@ -20 +20 @@
 !**********************************************************************
 
-subroutine gridcheck_gfs
+subroutine gridcheck
 
   !**********************************************************************
@@ -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               *
   !                                                                     *
   !**********************************************************************
@@ -231 +227 @@
        yaux2in,iret)
   call grib_check(iret,gribFunction,gribErrorMsg)
-
-  ! Fix for flexpart.eu ticket #48
-  if (xaux2in.lt.0) xaux2in = 359.0
 
   xaux1=xaux1in
@@ -544 +537 @@
   endif
 
-end subroutine gridcheck_gfs
+end subroutine gridcheck