[Dart-dev] [4761] DART/trunk/time_manager/time_manager_mod.f90: Inserted dummy code in some mars time routines to

[nancy at ucar.edu]

Revision: 4761
Author:   thoar
Date:     2011-02-24 11:12:35 -0700 (Thu, 24 Feb 2011)
Log Message:
-----------
Inserted dummy code in some mars time routines to 
prevent compilers from complaining about unused variables.
In all cases, the dummy code comes AFTER the fatal call
to the error_handler(), so it will never get executed.
There is no executable difference.

Modified Paths:
--------------
    DART/trunk/time_manager/time_manager_mod.f90

-------------- next part --------------
Modified: DART/trunk/time_manager/time_manager_mod.f90
===================================================================
--- DART/trunk/time_manager/time_manager_mod.f90	2011-02-24 18:04:27 UTC (rev 4760)
+++ DART/trunk/time_manager/time_manager_mod.f90	2011-02-24 18:12:35 UTC (rev 4761)
@@ -1961,7 +1961,10 @@
 call error_handler(E_ERR,'increment_gregorian_mars','not implemented',source,revision,revdate)
 
 ! FIXME: set a return value to avoid compiler warnings
+! This code is never reached ... the error_handler() terminates before this. 
 increment_gregorian_mars = time
+if (present(years)) &
+write(*,*)'stop complaining about',years,months,days,hours,minutes,seconds
 
 end function increment_gregorian_mars
 
@@ -1984,6 +1987,7 @@
 call error_handler(E_ERR,'increment_solar_mars','not implemented',source,revision,revdate)
 
 ! FIXME: set a return value to avoid compiler warnings
+! This code is never reached ... the error_handler() terminates before this. 
 increment_solar_mars = time
 
 end function increment_solar_mars
@@ -2332,7 +2336,10 @@
 call error_handler(E_ERR,'decrement_gregorian','not implemented',source,revision,revdate)
 
 ! FIXME: set a return value to avoid compiler warnings
+! This code is never reached ... the error_handler() terminates before this. 
 decrement_gregorian_mars = time
+if (present(years)) &
+write(*,*)'stop complaining about',years,months,days,hours,minutes,seconds
 
 end function decrement_gregorian_mars
 
@@ -2355,6 +2362,7 @@
 call error_handler(E_ERR,'decrement_gregorian','not implemented',source,revision,revdate)
 
 ! FIXME: set a return value to avoid compiler warnings
+! This code is never reached ... the error_handler() terminates before this. 
 decrement_solar_mars = time
 
 end function decrement_solar_mars