<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 !&lt; Input: name of timer, stored as name of timer
           logical, optional, intent(in) :: clear_timer !&lt; Input: flag to clear timer
-          type (timer_node), optional, pointer, intent(out) :: timer_ptr !&lt; Output: pointer to store timer in module
+          type (timer_node), optional, pointer :: timer_ptr !&lt; 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 !&lt; Input: name of timer to stop
-          type (timer_node), pointer, intent(in), optional :: timer_ptr !&lt; Input: pointer to timer, for stopping
+          type (timer_node), pointer, optional :: timer_ptr !&lt; 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>