Changeset bb579a9 in flexpart.git for src/gridcheck_gfs.f90

Timestamp:

Sep 13, 2017, 11:55:16 AM (7 years ago)

Author:

Espen Sollum ATMOS <eso@…>

Branches:

master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie

Children:

08a38b5

Parents:

aa8c34a (diff), dd6a4aa (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.

Message:

Merge branch 'ctbto' into dev

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