Commits

Harald Klimach  committed 7becade

Renamed variable which overloaded keyword

  • Participants
  • Parent commits 0572d3f

Comments (0)

Files changed (2)

File source/tem_construction_module.f90

     integer :: neighPos, stencilSize, stencilPos
     integer(kind=long_k) :: tID, bufID, nTreeID, refID
     character(len=1024) :: buffer
-    logical :: abort, warning, skipElem
+    logical :: abort_loc, warning, skipElem
     !--------------------------------------------------------------------------
     if( verbose .ge. chatter_aLot ) then
       write(dbgUnit, *) 'Check neighbor positions for stencil', iStencil
     end if
-    abort = .false.
+    abort_loc = .false.
     warning = .false.
     call tem_write(' Checking, if the horizontal dependencies were set correctly')
 
       nElems = size( levelDesc( iLevel )%neigh( iStencil )%nghElems, 2)
       if( nEntries .gt. 0 ) then
         do iElem = 1, nElems
-          abort    = .false.
+          abort_loc    = .false.
           warning  = .false.
           skipElem = .false.
           ! First get the treeID
               write(buffer,'(a,a,i0,a)') trim(buffer),  ' (',refID,')'
               warning = .true.
               if( bufID .gt. 0_long_k ) then
-                abort  = .true.
+                abort_loc  = .true.
               end if
              end if
           end do
           if( verbose .ge. chatter_aLot ) then
             write(dbgUnit,*) trim(buffer)
           end if
-          if( abort .and. check) then
+          if( abort_loc .and. check) then
             write(dbgUnit,*) ' Non matching stencil entries!!'
             write(dbgUnit,*)'    original treeID:         ', tID
             write(dbgUnit,*)'    required stencil treeID: ', refID

File source/tem_tracking_module.f90

       ! tracking variables
       ! the stuff is done in the routine tem_load_trackingHeader
       do iTrack = 1, nTracks
+        call tem_write( 'Loading tracker ', iTrack )
         call aot_table_open(L=conf, parent=tc_handle, thandle=sub_handle, pos=iTrack)
         if( present( path )) then
           track_sub_path = track_path
             &                           verbose = verbose )
         end if
         call aot_table_close(L=conf, thandle=sub_handle)
+        call tem_write( 'Done tracker ', iTrack )
       end do
     end if ! sub_handle