[Dart-dev] DART/releases Revision: 12105

[dart at ucar.edu]

thoar at ucar.edu
2017-11-15 10:13:23 -0700 (Wed, 15 Nov 2017)
428
Restoring the maximum number of regions to 4 - there are some low-order models
that have namelists with length-4 arrays of locations for oned/obs_diag.
Rather than go through and change all the namelists, I just put the maximum
back to its historical value. (It got changed in late June during a campaign
to provide consistency between code, documentation, and namelist defaults.
Not sure which model only had 3 - don't care.)




Modified: DART/releases/Manhattan/assimilation_code/programs/obs_diag/oned/obs_diag.f90
===================================================================
--- DART/releases/Manhattan/assimilation_code/programs/obs_diag/oned/obs_diag.f90	2017-11-14 04:13:31 UTC (rev 12104)
+++ DART/releases/Manhattan/assimilation_code/programs/obs_diag/oned/obs_diag.f90	2017-11-15 17:13:23 UTC (rev 12105)
@@ -51,15 +51,15 @@
 implicit none
 
 ! version controlled file description for error handling, do not edit
-character(len=256), parameter :: source   = &
+character(len=*), parameter :: source   = &
    "$URL$"
-character(len=32 ), parameter :: revision = "$Revision$"
-character(len=128), parameter :: revdate  = "$Date$"
+character(len=*), parameter :: revision = "$Revision$"
+character(len=*), parameter :: revdate  = "$Date$"
 
 !---------------------------------------------------------------------
 !---------------------------------------------------------------------
 
-integer, parameter :: MaxRegions = 3
+integer, parameter :: MaxRegions = 4
 integer, parameter :: MaxTrusted = 5
 integer, parameter :: stringlength = 32
 
@@ -161,11 +161,11 @@
 ! index 3 == region 3 == [0.5, 1.0)
 
 integer :: Nregions = MaxRegions
-real(r8), dimension(MaxRegions) :: lonlim1 = (/ 0.0_r8, 0.0_r8, 0.5_r8 /)
-real(r8), dimension(MaxRegions) :: lonlim2 = (/ 1.0_r8, 0.5_r8, 1.0_r8 /)
+real(r8), dimension(MaxRegions) :: lonlim1 = (/ 0.0_r8, 0.0_r8, 0.5_r8, -1.0_r8 /)
+real(r8), dimension(MaxRegions) :: lonlim2 = (/ 1.0_r8, 0.5_r8, 1.0_r8, -1.0_r8 /)
 
 character(len=6), dimension(MaxRegions) :: reg_names = &
-                                   (/ 'whole ','yin   ','yang  '/)
+                                   (/ 'whole ','yin   ','yang  ','bogus '/)
 
 namelist /obs_diag_nml/ obs_sequence_name, obs_sequence_list,  &
                         bin_width_days, bin_width_seconds,     &