[Dart-dev] [4243] DART/trunk/diagnostics/threed_sphere/obs_seq_to_netcdf.f90: Fixed a time conversion to use 'digits12' type instead

[nancy at ucar.edu]

Revision: 4243
Author:   thoar
Date:     2010-02-02 09:56:49 -0700 (Tue, 02 Feb 2010)
Log Message:
-----------
Fixed a time conversion to use 'digits12' type instead
of 'r8' type. 'r8' is allowed to be redefined to any precision,
digits12 is guaranteed to be '64bit'.

Modified Paths:
--------------
    DART/trunk/diagnostics/threed_sphere/obs_seq_to_netcdf.f90

-------------- next part --------------
Modified: DART/trunk/diagnostics/threed_sphere/obs_seq_to_netcdf.f90
===================================================================
--- DART/trunk/diagnostics/threed_sphere/obs_seq_to_netcdf.f90	2010-01-28 23:52:39 UTC (rev 4242)
+++ DART/trunk/diagnostics/threed_sphere/obs_seq_to_netcdf.f90	2010-02-02 16:56:49 UTC (rev 4243)
@@ -489,7 +489,7 @@
          copyvals = (/ obscopies, obs_err_var /)
 
          call get_time(obs_time,seconds,days)
-         mytime   = days + seconds/86400.0_r8
+         mytime   = days + seconds/86400.0_digits12
 
          !--------------------------------------------------------------
          ! We have one Region of interest