<p><b>croesch@ucar.edu</b> 2011-08-25 16:14:03 -0600 (Thu, 25 Aug 2011)</p><p>BRANCH COMMIT<br>
<br>
Removed write statements indicating when a subroutine is called.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/time_manager/src/framework/module_mpas_timekeeping.F
===================================================================
--- branches/time_manager/src/framework/module_mpas_timekeeping.F        2011-08-24 23:29:04 UTC (rev 953)
+++ branches/time_manager/src/framework/module_mpas_timekeeping.F        2011-08-25 22:14:03 UTC (rev 954)
@@ -115,8 +115,6 @@
integer, intent(in) :: calendar
- write(0,*) 'Called MPAS_timekeeping_init()'
-
TheCalendar = calendar
if (TheCalendar == MPAS_GREGORIAN) then
@@ -136,8 +134,6 @@
implicit none
- write(0,*) 'Called MPAS_timekeeping_finalize()'
-
call ESMF_Finalize()
end subroutine mpas_timekeeping_finalize
@@ -156,8 +152,6 @@
type (MPAS_Time_type) :: stop_time
- write(0,*) 'Called MPAS_createClock'
-
if (present(runDuration)) then
stop_time = startTime + runDuration
if (present(stopTime)) then
@@ -195,8 +189,6 @@
type (MPAS_Alarm_type), pointer :: alarmPtr
- write(0,*) 'Called MPAS_destroyClock'
-
alarmPtr => clock % alarmListHead
do while (associated(alarmPtr))
clock % alarmListHead => alarmPtr % next
@@ -221,8 +213,6 @@
type (ESMF_Time) :: currTime, startTime, stopTime
- write(0,*) 'Called MPAS_isClockStartTime'
-
call ESMF_ClockGet(clock % c, CurrTime=currTime, rc=ierr)
call ESMF_ClockGet(clock % c, StartTime=startTime, rc=ierr)
call ESMF_ClockGet(clock % c, StopTime=stopTime, rc=ierr)
@@ -248,8 +238,6 @@
type (ESMF_Time) :: currTime, startTime, stopTime
- write(0,*) 'Called MPAS_isClockStopTime'
-
call ESMF_ClockGet(clock % c, CurrTime=currTime, rc=ierr)
call ESMF_ClockGet(clock % c, StartTime=startTime, rc=ierr)
call ESMF_ClockGet(clock % c, StopTime=stopTime, rc=ierr)
@@ -276,9 +264,6 @@
type (MPAS_TimeInterval_type) :: timeStep
-
- write(0,*) 'Called MPAS_setClockDirection'
-
if (direction == MPAS_FORWARD .and. clock % direction == MPAS_FORWARD) return
if (direction == MPAS_BACKWARD .and. clock % direction == MPAS_BACKWARD) return
@@ -305,7 +290,6 @@
type (MPAS_Clock_type), intent(in) :: clock
integer, intent(out), optional :: ierr
- write(0,*) 'Called MPAS_getClockDirection'
if (present(ierr)) ierr = 0
MPAS_getClockDirection = clock % direction
@@ -321,8 +305,6 @@
type (MPAS_TimeInterval_type), intent(in) :: timeStep
integer, intent(out), optional :: ierr
- write(0,*) 'Called MPAS_setClockTimeStep'
-
call ESMF_ClockSet(clock % c, TimeStep=timeStep%ti, rc=ierr)
if (present(ierr)) then
if (ierr == ESMF_SUCCESS) ierr = 0
@@ -340,8 +322,6 @@
type (MPAS_TimeInterval_type) :: timeStep
- write(0,*) 'Called MPAS_getClockTimeStep'
-
call ESMF_ClockGet(clock % c, TimeStep=timeStep%ti, rc=ierr)
if (present(ierr)) then
if (ierr == ESMF_SUCCESS) ierr = 0
@@ -362,8 +342,6 @@
type (ESMF_TimeInterval) :: time_step
- write(0,*) 'Called MPAS_advanceClock'
-
if (present(timeStep)) then
call ESMF_ClockGet(clock % c, TimeStep=time_step, rc=ierr)
call ESMF_ClockSet(clock % c, TimeStep=timeStep % ti, rc=ierr)
@@ -388,8 +366,6 @@
integer, intent(in) :: whichTime
integer, intent(out), optional :: ierr
- write(0,*) 'Called MPAS_setClockTime'
-
if (whichTime == MPAS_NOW) then
call ESMF_ClockSet(clock % c, CurrTime=clock_time%t, rc=ierr)
call MPAS_CalibrateAlarms(clock, ierr);
@@ -417,8 +393,6 @@
type (MPAS_Time_type) :: clock_time
- write(0,*) 'Called MPAS_getClockTime'
-
if (whichTime == MPAS_NOW) then
call ESMF_ClockGet(clock % c, CurrTime=clock_time%t, rc=ierr)
else if (whichTime == MPAS_START_TIME) then
@@ -450,8 +424,6 @@
type (MPAS_Alarm_type), pointer :: alarmPtr
- write(0,*) 'Called MPAS_addClockAlarm'
-
! Add a new entry to the linked list of alarms for this clock
if (.not. associated(clock % alarmListHead)) then
allocate(clock % alarmListHead)
@@ -515,7 +487,6 @@
type (MPAS_Alarm_type), pointer :: alarmPtr
type (MPAS_Alarm_type), pointer :: alarmParentPtr
- write(0,*) 'Called MPAS_removeClockAlarm'
if (present(ierr)) ierr = 0
alarmPtr => clock % alarmListHead
@@ -588,7 +559,6 @@
type (MPAS_Alarm_type), pointer :: alarmPtr
- write(0,*) 'Called MPAS_isAlarmRinging'
if (present(ierr)) ierr = 0
MPAS_isAlarmRinging = .false.
@@ -622,7 +592,6 @@
type (MPAS_Alarm_type), pointer :: alarmPtr
- write(0,*) 'Called MPAS_getClockRingingAlarms'
if (present(ierr)) ierr = 0
nAlarms = 0
@@ -702,7 +671,6 @@
type (MPAS_Time_type) :: alarmNow
type (MPAS_Alarm_type), pointer :: alarmPtr
- write(0,*) 'Called MPAS_resetClockAlarm'
if (present(ierr)) ierr = 0
alarmPtr => clock % alarmListHead
@@ -845,8 +813,6 @@
character (len=50) :: secDecSubString
character(len=50), pointer, dimension(:) :: subStrings
- write(0,*) 'Called MPAS_setTime'
-
if (present(dateTimeString)) then
dateTimeString_ = dateTimeString
@@ -993,8 +959,6 @@
character (len=32), intent(out), optional :: dateTimeString
integer, intent(out), optional :: ierr
- write(0,*) 'Called MPAS_getTime'
-
call ESMF_TimeGet(curr_time % t, YY=YYYY, MM=MM, DD=DD, H=H, M=M, S=S, Sn=S_n, Sd=S_d, rc=ierr)
call ESMF_TimeGet(curr_time % t, dayOfYear=DoY, rc=ierr)
call ESMF_TimeGet(curr_time % t, timeString=dateTimeString, rc=ierr)
@@ -1032,8 +996,6 @@
character (len=50) :: secDecSubString
character(len=50), pointer, dimension(:) :: subStrings
- write(0,*) 'Called MPAS_setTimeInterval'
-
! if (present(DD)) then
! days = DD
! else
@@ -1207,8 +1169,6 @@
integer :: days, seconds, sn, sd
- write(0,*) 'Called MPAS_getTimeInterval'
-
call ESMF_TimeIntervalGet(interval % ti, D=days, S=seconds, Sn=sn, Sd=sd, rc=ierr)
if (present(dt)) then
</font>
</pre>