From 71cb5f04763def4ffa6b24fe7b316eeea1567021 Mon Sep 17 00:00:00 2001
From: Michael Duda <duda@ucar.edu>
Date: Wed, 15 Aug 2012 18:07:36 +0000
Subject: [PATCH] Update version number to 3.4.1.

M    geogrid/src/process_tile_module.F
M    metgrid/src/input_module.F
M    metgrid/src/process_domain_module.F
M    README


git-svn-id: https://svn-wrf-wps.cgd.ucar.edu/trunk@689 86b71a92-4018-0410-97f8-d555beccfc3a
---
 README                              | 2 +-
 geogrid/src/process_tile_module.F   | 2 +-
 metgrid/src/input_module.F          | 4 +++-
 metgrid/src/process_domain_module.F | 2 +-
 4 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/README b/README
index 9c284fb..1c9b1c7 100644
--- a/README
+++ b/README
@@ -1,4 +1,4 @@
-WRF Pre-Processing System Version 3.4 (6 April 2012, revision 663)
+WRF Pre-Processing System Version 3.4.1 (15 August 2012, revision 689)
 
 http://www.mmm.ucar.edu/wrf/users/
 
diff --git a/geogrid/src/process_tile_module.F b/geogrid/src/process_tile_module.F
index 9b9fac5..7ed6e02 100644
--- a/geogrid/src/process_tile_module.F
+++ b/geogrid/src/process_tile_module.F
@@ -292,7 +292,7 @@ module process_tile_module
       end if
 
       ! Initialize the output module now that we have the corner point lats/lons
-      call output_init(which_domain, 'OUTPUT FROM GEOGRID V3.4', '0000-00-00_00:00:00', grid_type, dynopt, &
+      call output_init(which_domain, 'OUTPUT FROM GEOGRID V3.4.1', '0000-00-00_00:00:00', grid_type, dynopt, &
                        corner_lats, corner_lons, &
                        start_dom_i,   end_dom_i,   start_dom_j,   end_dom_j, &
                        start_patch_i, end_patch_i, start_patch_j, end_patch_j, &
diff --git a/metgrid/src/input_module.F b/metgrid/src/input_module.F
index 2e38994..d9b45d7 100644
--- a/metgrid/src/input_module.F
+++ b/metgrid/src/input_module.F
@@ -427,7 +427,9 @@ module input_module
 #endif
      
          call ext_get_dom_ti_char          ('TITLE', title)
-         if (index(title,'GEOGRID V3.4') /= 0) then
+         if (index(title,'GEOGRID V3.4.1') /= 0) then
+            wps_version = 3.41
+         else if (index(title,'GEOGRID V3.4') /= 0) then
             wps_version = 3.4
          else if (index(title,'GEOGRID V3.3.1') /= 0) then
             wps_version = 3.31
diff --git a/metgrid/src/process_domain_module.F b/metgrid/src/process_domain_module.F
index 265f806..271b830 100644
--- a/metgrid/src/process_domain_module.F
+++ b/metgrid/src/process_domain_module.F
@@ -1149,7 +1149,7 @@ integer, parameter :: BDR_WIDTH = 3
       !   now we simply output every field from the storage module.
       !
     
-      title = 'OUTPUT FROM METGRID V3.4' 
+      title = 'OUTPUT FROM METGRID V3.4.1' 
    
       ! Initialize the output module for this domain and time
       call mprintf(.true.,LOGFILE,'Initializing output module.')
-- 
2.11.4.GIT