From 375094eb0ae2e1940f656847c041ce73d4246da5 Mon Sep 17 00:00:00 2001
From: Michael Duda <duda@ucar.edu>
Date: Thu, 5 Apr 2018 16:06:46 -0600
Subject: [PATCH] Update WPS version to pre-4.0 for first friendly user release

---
 README                              | 2 +-
 compile                             | 2 +-
 geogrid/src/process_tile_module.F   | 2 +-
 metgrid/src/input_module.F          | 4 +++-
 metgrid/src/process_domain_module.F | 2 +-
 5 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/README b/README
index 99e8cbe..66595aa 100644
--- a/README
+++ b/README
@@ -1,4 +1,4 @@
-WRF Pre-Processing System Version 3.9.1 (17 August 2017)
+WRF Pre-Processing System Version pre-4.0 (Friendly User Release 1)
 
 http://www2.mmm.ucar.edu/wrf/users/
 
diff --git a/compile b/compile
index 043ba78..6d59712 100755
--- a/compile
+++ b/compile
@@ -112,7 +112,7 @@ endif
 # Print out WPS version, system info, and compiler/version
 echo "============================================================================================== "
   echo " "
-  echo Version 3.9 
+  echo Version 4.0 
   echo " "
   uname -a
   echo " "
diff --git a/geogrid/src/process_tile_module.F b/geogrid/src/process_tile_module.F
index ccb718b..3b3aa38 100644
--- a/geogrid/src/process_tile_module.F
+++ b/geogrid/src/process_tile_module.F
@@ -300,7 +300,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.9.1', '0000-00-00_00:00:00', grid_type, dynopt, &
+      call output_init(which_domain, 'OUTPUT FROM GEOGRID V4.0', '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 0145648..e20fd83 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.9.1') /= 0) then
+         if (index(title,'GEOGRID V4.0') /= 0) then
+            wps_version = 4.0
+         else if (index(title,'GEOGRID V3.9.1') /= 0) then
             wps_version = 3.91
          else if (index(title,'GEOGRID V3.9.0.1') /= 0) then
             wps_version = 3.901
diff --git a/metgrid/src/process_domain_module.F b/metgrid/src/process_domain_module.F
index e54718d..c7c1c9d 100644
--- a/metgrid/src/process_domain_module.F
+++ b/metgrid/src/process_domain_module.F
@@ -876,7 +876,7 @@ integer, parameter :: BDR_WIDTH = 3
       !   now we simply output every field from the storage module.
       !
     
-      title = 'OUTPUT FROM METGRID V3.9.1' 
+      title = 'OUTPUT FROM METGRID V4.0' 
    
       ! Initialize the output module for this domain and time
       call mprintf(.true.,LOGFILE,'Initializing output module.')
-- 
2.11.4.GIT