<p><b>croesch@ucar.edu</b> 2011-10-27 10:52:08 -0600 (Thu, 27 Oct 2011)</p><p>TRUNK COMMIT<br>
<br>
removed non-standard pointer, intent() declarations which were preventing compilation when using some compilers<br>
</p><hr noshade><pre><font color="gray">Modified: trunk/mpas/src/framework/mpas_timekeeping.F
===================================================================
--- trunk/mpas/src/framework/mpas_timekeeping.F        2011-10-27 15:26:27 UTC (rev 1150)
+++ trunk/mpas/src/framework/mpas_timekeeping.F        2011-10-27 16:52:08 UTC (rev 1151)
@@ -615,7 +615,7 @@
implicit none
type (MPAS_Clock_type), intent(in) :: clock
- type (MPAS_Alarm_type), pointer, intent(in) :: alarmPtr
+ type (MPAS_Alarm_type), pointer :: alarmPtr
type (MPAS_TimeInterval_type), intent(in), optional :: interval
integer, intent(out), optional :: ierr
Modified: trunk/mpas/src/framework/mpas_timer.F
===================================================================
--- trunk/mpas/src/framework/mpas_timer.F        2011-10-27 15:26:27 UTC (rev 1150)
+++ trunk/mpas/src/framework/mpas_timer.F        2011-10-27 16:52:08 UTC (rev 1151)
@@ -33,7 +33,7 @@
subroutine mpas_timer_start(timer_name, clear_timer, timer_ptr)!{{{
character (len=*), intent (in) :: timer_name !< Input: name of timer, stored as name of timer
logical, optional, intent(in) :: clear_timer !< Input: flag to clear timer
- type (timer_node), optional, pointer, intent(out) :: timer_ptr !< Output: pointer to store timer in module
+ type (timer_node), optional, pointer :: timer_ptr !< Output: pointer to store timer in module
logical :: timer_added, timer_found, string_equal, check_flag
type (timer_node), pointer :: current, temp
@@ -151,7 +151,7 @@
subroutine mpas_timer_stop(timer_name, timer_ptr)!{{{
character (len=*), intent(in) :: timer_name !< Input: name of timer to stop
- type (timer_node), pointer, intent(in), optional :: timer_ptr !< Input: pointer to timer, for stopping
+ type (timer_node), pointer, optional :: timer_ptr !< Input: pointer to timer, for stopping
type (timer_node), pointer :: current
@@ -219,8 +219,8 @@
end subroutine mpas_timer_stop!}}}
recursive subroutine mpas_timer_write(timer_ptr, total_ptr)!{{{
- type (timer_node), pointer, intent(inout), optional :: timer_ptr
- type (timer_node), pointer, intent(in), optional :: total_ptr
+ type (timer_node), pointer, optional :: timer_ptr
+ type (timer_node), pointer, optional :: total_ptr
character (len=10) :: tname
logical :: total_found, string_equals
</font>
</pre>