Changeset 6ecb30a in flexpart.git for src/verttransform_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/verttransform_gfs.f90 (modified) (3 diffs)

src/verttransform_gfs.f90

@@ -20 +20 @@
 !**********************************************************************
 
-subroutine verttransform(n,uuh,vvh,wwh,pvh)
+subroutine verttransform_gfs(n,uuh,vvh,wwh,pvh)
   !                      i  i   i   i   i
   !*****************************************************************************
@@ -47 +47 @@
   !  Changes, Bernd C. Krueger, Feb. 2001:
   !   Variables tth and qvh (on eta coordinates) from common block
+  !
+  !   Unified ECMWF and GFS builds                                      
+  !   Marian Harustak, 12.5.2017                                        
+  !     - Renamed routine from verttransform to verttransform_gfs
+  !
   !*****************************************************************************
   !                                                                            *
@@ -531 +536 @@
 
 
-end subroutine verttransform
+end subroutine verttransform_gfs