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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2010-02-23 05:28:59 -0800 (Tue, 23 Feb 2010)
New Revision: 16322

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/check_simulation_stability.f90
   seismo/3D/SPECFEM3D_GLOBE/trunk/todo_list_please_dont_remove.txt
Log:
commented out the output of function "idaywk", which I found on the Web, because it has a bug.
One day we should fix it, or try to find another version on the Web.


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/check_simulation_stability.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/check_simulation_stability.f90	2010-02-23 13:17:32 UTC (rev 16321)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/check_simulation_stability.f90	2010-02-23 13:28:59 UTC (rev 16322)
@@ -82,7 +82,11 @@
   character(len=3), dimension(12) :: month_name
   character(len=3), dimension(0:6) :: weekday_name
   data month_name /'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec'/
-  data weekday_name /'Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat'/
+!! 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 I comment out what it prints; that is a temporary
+!! DK DK solution, one day we should either fix "idaywk" or try to find another version on the Web
+!! DK DK   data weekday_name /'Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat'/
+  data weekday_name /'   ', '   ', '   ', '   ', '   ', '   ', '   '/
   integer :: year,mon,day,hr,minutes,timestamp,julian_day_number,day_of_week, &
              timestamp_remote,year_remote,mon_remote,day_remote,hr_remote,minutes_remote,day_of_week_remote
   integer :: ier
@@ -343,4 +347,4 @@
     
   endif
   
-  end subroutine check_simulation_stability
\ No newline at end of file
+  end subroutine check_simulation_stability

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/todo_list_please_dont_remove.txt
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/todo_list_please_dont_remove.txt	2010-02-23 13:17:32 UTC (rev 16321)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/todo_list_please_dont_remove.txt	2010-02-23 13:28:59 UTC (rev 16322)
@@ -76,6 +76,11 @@
 careful analysis we have found a way of doing better and getting rid of all
 the GATHERs and *all* the extra memory (this way we won't have to limit the number of sources to a maximum of 100000, as currently done in the solver).
 
+- from Dimitri: function "idaywk", which I found on the Web, has a bug
+(it currently returns a day that is not correct) therefore I commented out what it prints;
+that is a temporary solution, one day we should either fix "idaywk" or try to find
+another version on the Web.
+
 ---------------------------------------------------------------------------------
 ---------------------------------------------------------------------------------
 ---------------------------------------------------------------------------------