Changes in src/readwind_gfs.f90 [8a65cb0:6ecb30a] in flexpart.git

File:

• src/readwind_gfs.f90 (modified) (3 diffs)

src/readwind_gfs.f90

@@ -20 +20 @@
 !**********************************************************************
 
-subroutine readwind(indj,n,uuh,vvh,wwh)
+subroutine readwind_gfs(indj,n,uuh,vvh,wwh)
 
   !***********************************************************************
@@ -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 readwind to readwind_gfs                  *
   !*                                                                     *
   !***********************************************************************
@@ -716 +720 @@
   stop 'Execution terminated'
 
-end subroutine readwind
+end subroutine readwind_gfs