From 358dc13a3cba587f0ead510adf8f8be894115d1f Mon Sep 17 00:00:00 2001 From: Michael Duda Date: Thu, 13 Jul 2017 10:29:44 -0600 Subject: [PATCH] Update WPS version to 3.9.0.1 (#43) This commit updates the README file, as well as the version number that is stored as a global attribute in the geogrid and metgrid output. --- 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 01001d218..bcbe9dc4c 100644 --- a/README +++ b/README @@ -1,4 +1,4 @@ -WRF Pre-Processing System Version 3.9 (17 April 2017) +WRF Pre-Processing System Version 3.9.0.1 (13 July 2017) http://www2.mmm.ucar.edu/wrf/users/ diff --git a/geogrid/src/process_tile_module.F b/geogrid/src/process_tile_module.F index 13d9f1a31..def6b89d0 100644 --- a/geogrid/src/process_tile_module.F +++ b/geogrid/src/process_tile_module.F @@ -300,7 +300,7 @@ subroutine process_tile(which_domain, grid_type, dynopt, & 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', '0000-00-00_00:00:00', grid_type, dynopt, & + call output_init(which_domain, 'OUTPUT FROM GEOGRID V3.9.0.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 6cb177035..8bef72320 100644 --- a/metgrid/src/input_module.F +++ b/metgrid/src/input_module.F @@ -427,7 +427,9 @@ subroutine read_global_attrs(title, start_date, grid_type, dyn_opt, #endif call ext_get_dom_ti_char ('TITLE', title) - if (index(title,'GEOGRID V3.9') /= 0) then + if (index(title,'GEOGRID V3.9.0.1') /= 0) then + wps_version = 3.901 + else if (index(title,'GEOGRID V3.9') /= 0) then wps_version = 3.9 else if (index(title,'GEOGRID V3.8.1') /= 0) then wps_version = 3.81 diff --git a/metgrid/src/process_domain_module.F b/metgrid/src/process_domain_module.F index 606df8c98..2f629b503 100644 --- a/metgrid/src/process_domain_module.F +++ b/metgrid/src/process_domain_module.F @@ -876,7 +876,7 @@ subroutine process_single_met_time(do_const_processing, & ! now we simply output every field from the storage module. ! - title = 'OUTPUT FROM METGRID V3.9' + title = 'OUTPUT FROM METGRID V3.9.0.1' ! Initialize the output module for this domain and time call mprintf(.true.,LOGFILE,'Initializing output module.')