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

File:

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

src/readwind_gfs.f90

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