Changeset 6ecb30a in flexpart.git for src/readwind_gfs.f90

Timestamp:

Aug 17, 2017, 4:39:17 PM (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:

5b34509

Parents:

61e07ba

Message:

Merged changes from CTBTO project

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