[cig-commits] r16323 - seismo/3D/SPECFEM3D_GLOBE/trunk

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2010-02-23 05:36:20 -0800 (Tue, 23 Feb 2010)
New Revision: 16323

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/calendar.f90
Log:
added a comment about the bug in function "idaywk"


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/calendar.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/calendar.f90	2010-02-23 13:28:59 UTC (rev 16322)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/calendar.f90	2010-02-23 13:36:20 UTC (rev 16323)
@@ -1,6 +1,11 @@
 
 ! open-source subroutines taken from ftp://ftp.met.fsu.edu/pub/ahlquist/calendar_software/
 
+!! DK DK function "idaywk" below, which I found on the Web, has a bug (it currently returns
+!! DK DK a day that is not correct) therefore in check_simulation_stability.f90
+!! DK DK I commented out what it prints; that is a temporary
+!! DK DK solution, one day we should either fix it or try to find another version on the Web
+
   integer function idaywk(jdayno)
 
 ! IDAYWK = compute the DAY of the WeeK given the Julian Day number,