Print_timers: check for allocated timers.

base/modules/psb_timers_mod.f90

@@ -127,6 +127,7 @@ contains
     end if
       
     if (global_) then
+      if (allocated(timers)) then 
         allocate(ptimers(timer_entries_,size(timers,2)),stat=info)
         if (info /= 0) then
           write(0,*) 'Error while trying to allocate temporary ',info
@@ -139,6 +140,7 @@ contains
             call print_timer(me, ptimers(:,i), timers_descr(i), iout)
           end do
         end if
+      end if
     else
       if ((proc_ == -1).or.(me==proc_)) then
         do i=idxmin_, idxmax_