[Dart-dev] [3349] DART/trunk/ncep_obs/real_obs_mod.f90: Replaced 'magic' number denoting Gregorian calendar with the appropriate

nancy at ucar.edu nancy at ucar.edu
Fri May 16 13:35:32 MDT 2008


An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20080516/e469e91f/attachment.html
-------------- next part --------------
Modified: DART/trunk/ncep_obs/real_obs_mod.f90
===================================================================
--- DART/trunk/ncep_obs/real_obs_mod.f90	2008-05-16 17:25:45 UTC (rev 3348)
+++ DART/trunk/ncep_obs/real_obs_mod.f90	2008-05-16 19:35:31 UTC (rev 3349)
@@ -18,7 +18,7 @@
                              set_obs_def_error_variance, set_obs_def_location
 use time_manager_mod, only : time_type, operator(>), operator(<), operator(>=), &
                              operator(/=), set_date, set_calendar_type, get_time, &
-                             get_date, set_time
+                             get_date, set_time, GREGORIAN
 use    utilities_mod, only : get_unit, open_file, close_file, file_exist, &
                              register_module, error_handler, &
                              E_ERR, E_MSG, timestamp
@@ -148,7 +148,7 @@
 call init_obs(prev_obs, num_copies, num_qc)
 
 ! set observation time type
-calender_type = 3
+calender_type = GREGORIAN
 call set_calendar_type(calender_type)
 
 ! get the time (seconds & days) for 00Z of current day (year,month,day)


More information about the Dart-dev mailing list