[Dart-dev] DART/branches Revision: 12988

[dart at ucar.edu]

thoar at ucar.edu
2019-02-14 11:03:58 -0700 (Thu, 14 Feb 2019)
52
This version allows fully-arbitrary bin widths ...




Modified: DART/branches/cesm_clm/assimilation_code/programs/obs_diag/threed_sphere/obs_diag.f90
===================================================================
--- DART/branches/cesm_clm/assimilation_code/programs/obs_diag/threed_sphere/obs_diag.f90	2019-02-14 16:48:15 UTC (rev 12987)
+++ DART/branches/cesm_clm/assimilation_code/programs/obs_diag/threed_sphere/obs_diag.f90	2019-02-14 18:03:58 UTC (rev 12988)
@@ -1535,20 +1535,20 @@
 
 ! do some error-checking first
 
-if ( (bin_separation(1) /= 0) .or. (bin_separation(2) /= 0) ) then
-   write(string1,*)'bin_separation:year,month must both be zero, they are ', &
-   bin_separation(1),bin_separation(2)
-   call error_handler(E_WARN,'Namelist2Times',string1,source,revision,revdate)
-   error_out = .true.
-endif
+!if ( (bin_separation(1) /= 0) .or. (bin_separation(2) /= 0) ) then
+!   write(string1,*)'bin_separation:year,month must both be zero, they are ', &
+!   bin_separation(1),bin_separation(2)
+!   call error_handler(E_WARN,'Namelist2Times',string1,source,revision,revdate)
+!   error_out = .true.
+!endif
+!
+!if ( (bin_width(1) /= 0) .or. (bin_width(2) /= 0) ) then
+!   write(string1,*)'bin_width:year,month must both be zero, they are ', &
+!   bin_width(1),bin_width(2)
+!   call error_handler(E_WARN,'Namelist2Times',string1,source,revision,revdate)
+!   error_out = .true.
+!endif
 
-if ( (bin_width(1) /= 0) .or. (bin_width(2) /= 0) ) then
-   write(string1,*)'bin_width:year,month must both be zero, they are ', &
-   bin_width(1),bin_width(2)
-   call error_handler(E_WARN,'Namelist2Times',string1,source,revision,revdate)
-   error_out = .true.
-endif
-
 if ( (time_to_skip(1) /= 0) .or. (time_to_skip(2) /= 0) ) then
    write(string1,*)'time_to_skip:year,month must both be zero, they are ', &
    time_to_skip(1),time_to_skip(2)