[cmor] 56/190: reproduced Joerg's bug

[Alastair McKinstry]

This is an automated email from the git hooks/post-receive script.

mckinstry pushed a commit to branch debian/master
in repository cmor.

commit 94fa6436dc50e17c4133e764c1adf9941f78cca3
Author: Charles Doutriaux <doutriaux1 at llnl.gov>
Date:   Fri Sep 24 15:06:09 2010 -0700

    reproduced Joerg's bug
---
 Test/test_joerg_broken.f90 | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/Test/test_joerg_broken.f90 b/Test/test_joerg_broken.f90
index b77feb4..b21dd46 100644
--- a/Test/test_joerg_broken.f90
+++ b/Test/test_joerg_broken.f90
@@ -17,6 +17,9 @@ program joerg
   real anum
 
   double precision bt
+  double precision times(1)
+  double precision time_bounds(2,1)
+
   bt=0.
   do i =1,nlon 
      xii(i)=i
@@ -101,13 +104,16 @@ program joerg
        axis_ids           = (/ grid_id, tim_id /),              &
        missing_value      = 1.e20 )
   
+  times(1)=1.
+  time_bounds(1,1)=1.
+  time_bounds(2,1)=2.
   error_flag = cmor_write(                                      &
        var_id            = var_ids,                             &
        data              = mydata,                              &
        file_suffix       = "",                                  &
        ntimes_passed     = ntim,                                &
-       time_vals         = (/1./),                              &
-       time_bnds         = (/0.00,1./))
+       time_vals         = times,                              &
+       time_bnds         = time_bounds)
 
   error_flag = cmor_close()
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/debian-science/packages/cmor.git