Merge pull request #157 from nekStab/156-flush_logs

156 flush logs
nekStab · Feb 4, 2025 · a83b74e · a83b74e
2 parents 4f5d5e1 + 7cde8d3
commit a83b74e
Show file tree

Hide file tree

Showing 28 changed files with 387 additions and 297 deletions.
diff --git a/src/AbstractTypes/AbstractLinops.f90 b/src/AbstractTypes/AbstractLinops.f90
@@ -483,11 +483,11 @@ subroutine reset_counter(self, trans, procedure, counter, reset_timer, soft_rese
       if ( count_old /= 0 .or. counter_ /= 0) then
         if (trans) then
             write(msg,'(A,I0,A,I0,A)') 'Total number of rmatvecs: ', count_old, '. Resetting counter to ', counter_, '.'
-            call logger%log_message(msg, module=this_module, procedure='reset_counter('//trim(procedure)//')')
+            call log_message(msg, module=this_module, procedure='reset_counter('//trim(procedure)//')')
             self%rmatvec_counter = counter_
         else
             write(msg,'(A,I0,A,I0,A)') 'Total number of matvecs: ', count_old, '. Resetting counter to ', counter_, '.'
-            call logger%log_message(msg, module=this_module, procedure='reset_counter('//trim(procedure)//')')
+            call log_message(msg, module=this_module, procedure='reset_counter('//trim(procedure)//')')
             self%matvec_counter = counter_
         end if
       end if
@@ -554,12 +554,12 @@ subroutine apply_matvec_rsp(self, vec_in, vec_out)
         character(len=128) :: msg
         self%matvec_counter = self%matvec_counter + 1
         write(msg,'(I0,1X,A)') self%matvec_counter, 'start'
-        call logger%log_debug(msg, module=this_module, procedure='matvec')
+        call log_debug(msg, module=this_module, procedure='matvec')
         call self%matvec_timer%start()
         call self%matvec(vec_in, vec_out)
         call self%matvec_timer%stop()
         write(msg,'(I0,1X,A)') self%matvec_counter, 'end'
-        call logger%log_debug(msg, module=this_module, procedure='matvec')
+        call log_debug(msg, module=this_module, procedure='matvec')
         return
     end subroutine apply_matvec_rsp
 
@@ -571,12 +571,12 @@ subroutine apply_rmatvec_rsp(self, vec_in, vec_out)
         character(len=128) :: msg
         self%rmatvec_counter = self%rmatvec_counter + 1
         write(msg,'(I0,1X,A)') self%rmatvec_counter, 'start'
-        call logger%log_debug(msg, module=this_module, procedure='rmatvec')
+        call log_debug(msg, module=this_module, procedure='rmatvec')
         call self%rmatvec_timer%start()
         call self%rmatvec(vec_in, vec_out)
         call self%rmatvec_timer%stop()
         write(msg,'(I0,1X,A)') self%rmatvec_counter, 'end'
-        call logger%log_debug(msg, module=this_module, procedure='rmatvec')
+        call log_debug(msg, module=this_module, procedure='rmatvec')
         return
     end subroutine apply_rmatvec_rsp
     subroutine apply_matvec_rdp(self, vec_in, vec_out)
@@ -587,12 +587,12 @@ subroutine apply_matvec_rdp(self, vec_in, vec_out)
         character(len=128) :: msg
         self%matvec_counter = self%matvec_counter + 1
         write(msg,'(I0,1X,A)') self%matvec_counter, 'start'
-        call logger%log_debug(msg, module=this_module, procedure='matvec')
+        call log_debug(msg, module=this_module, procedure='matvec')
         call self%matvec_timer%start()
         call self%matvec(vec_in, vec_out)
         call self%matvec_timer%stop()
         write(msg,'(I0,1X,A)') self%matvec_counter, 'end'
-        call logger%log_debug(msg, module=this_module, procedure='matvec')
+        call log_debug(msg, module=this_module, procedure='matvec')
         return
     end subroutine apply_matvec_rdp
 
@@ -604,12 +604,12 @@ subroutine apply_rmatvec_rdp(self, vec_in, vec_out)
         character(len=128) :: msg
         self%rmatvec_counter = self%rmatvec_counter + 1
         write(msg,'(I0,1X,A)') self%rmatvec_counter, 'start'
-        call logger%log_debug(msg, module=this_module, procedure='rmatvec')
+        call log_debug(msg, module=this_module, procedure='rmatvec')
         call self%rmatvec_timer%start()
         call self%rmatvec(vec_in, vec_out)
         call self%rmatvec_timer%stop()
         write(msg,'(I0,1X,A)') self%rmatvec_counter, 'end'
-        call logger%log_debug(msg, module=this_module, procedure='rmatvec')
+        call log_debug(msg, module=this_module, procedure='rmatvec')
         return
     end subroutine apply_rmatvec_rdp
     subroutine apply_matvec_csp(self, vec_in, vec_out)
@@ -620,12 +620,12 @@ subroutine apply_matvec_csp(self, vec_in, vec_out)
         character(len=128) :: msg
         self%matvec_counter = self%matvec_counter + 1
         write(msg,'(I0,1X,A)') self%matvec_counter, 'start'
-        call logger%log_debug(msg, module=this_module, procedure='matvec')
+        call log_debug(msg, module=this_module, procedure='matvec')
         call self%matvec_timer%start()
         call self%matvec(vec_in, vec_out)
         call self%matvec_timer%stop()
         write(msg,'(I0,1X,A)') self%matvec_counter, 'end'
-        call logger%log_debug(msg, module=this_module, procedure='matvec')
+        call log_debug(msg, module=this_module, procedure='matvec')
         return
     end subroutine apply_matvec_csp
 
@@ -637,12 +637,12 @@ subroutine apply_rmatvec_csp(self, vec_in, vec_out)
         character(len=128) :: msg
         self%rmatvec_counter = self%rmatvec_counter + 1
         write(msg,'(I0,1X,A)') self%rmatvec_counter, 'start'
-        call logger%log_debug(msg, module=this_module, procedure='rmatvec')
+        call log_debug(msg, module=this_module, procedure='rmatvec')
         call self%rmatvec_timer%start()
         call self%rmatvec(vec_in, vec_out)
         call self%rmatvec_timer%stop()
         write(msg,'(I0,1X,A)') self%rmatvec_counter, 'end'
-        call logger%log_debug(msg, module=this_module, procedure='rmatvec')
+        call log_debug(msg, module=this_module, procedure='rmatvec')
         return
     end subroutine apply_rmatvec_csp
     subroutine apply_matvec_cdp(self, vec_in, vec_out)
@@ -653,12 +653,12 @@ subroutine apply_matvec_cdp(self, vec_in, vec_out)
         character(len=128) :: msg
         self%matvec_counter = self%matvec_counter + 1
         write(msg,'(I0,1X,A)') self%matvec_counter, 'start'
-        call logger%log_debug(msg, module=this_module, procedure='matvec')
+        call log_debug(msg, module=this_module, procedure='matvec')
         call self%matvec_timer%start()
         call self%matvec(vec_in, vec_out)
         call self%matvec_timer%stop()
         write(msg,'(I0,1X,A)') self%matvec_counter, 'end'
-        call logger%log_debug(msg, module=this_module, procedure='matvec')
+        call log_debug(msg, module=this_module, procedure='matvec')
         return
     end subroutine apply_matvec_cdp
 
@@ -670,12 +670,12 @@ subroutine apply_rmatvec_cdp(self, vec_in, vec_out)
         character(len=128) :: msg
         self%rmatvec_counter = self%rmatvec_counter + 1
         write(msg,'(I0,1X,A)') self%rmatvec_counter, 'start'
-        call logger%log_debug(msg, module=this_module, procedure='rmatvec')
+        call log_debug(msg, module=this_module, procedure='rmatvec')
         call self%rmatvec_timer%start()
         call self%rmatvec(vec_in, vec_out)
         call self%rmatvec_timer%stop()
         write(msg,'(I0,1X,A)') self%rmatvec_counter, 'end'
-        call logger%log_debug(msg, module=this_module, procedure='rmatvec')
+        call log_debug(msg, module=this_module, procedure='rmatvec')
         return
     end subroutine apply_rmatvec_cdp
 

diff --git a/src/AbstractTypes/AbstractLinops.fypp b/src/AbstractTypes/AbstractLinops.fypp
@@ -231,11 +231,11 @@ contains
       if ( count_old /= 0 .or. counter_ /= 0) then
         if (trans) then
             write(msg,'(A,I0,A,I0,A)') 'Total number of rmatvecs: ', count_old, '. Resetting counter to ', counter_, '.'
-            call logger%log_message(msg, module=this_module, procedure='reset_counter('//trim(procedure)//')')
+            call log_message(msg, module=this_module, procedure='reset_counter('//trim(procedure)//')')
             self%rmatvec_counter = counter_
         else
             write(msg,'(A,I0,A,I0,A)') 'Total number of matvecs: ', count_old, '. Resetting counter to ', counter_, '.'
-            call logger%log_message(msg, module=this_module, procedure='reset_counter('//trim(procedure)//')')
+            call log_message(msg, module=this_module, procedure='reset_counter('//trim(procedure)//')')
             self%matvec_counter = counter_
         end if
       end if
@@ -303,12 +303,12 @@ contains
         character(len=128) :: msg
         self%matvec_counter = self%matvec_counter + 1
         write(msg,'(I0,1X,A)') self%matvec_counter, 'start'
-        call logger%log_debug(msg, module=this_module, procedure='matvec')
+        call log_debug(msg, module=this_module, procedure='matvec')
         call self%matvec_timer%start()
         call self%matvec(vec_in, vec_out)
         call self%matvec_timer%stop()
         write(msg,'(I0,1X,A)') self%matvec_counter, 'end'
-        call logger%log_debug(msg, module=this_module, procedure='matvec')
+        call log_debug(msg, module=this_module, procedure='matvec')
         return
     end subroutine apply_matvec_${type[0]}$${kind}$
 
@@ -320,12 +320,12 @@ contains
         character(len=128) :: msg
         self%rmatvec_counter = self%rmatvec_counter + 1
         write(msg,'(I0,1X,A)') self%rmatvec_counter, 'start'
-        call logger%log_debug(msg, module=this_module, procedure='rmatvec')
+        call log_debug(msg, module=this_module, procedure='rmatvec')
         call self%rmatvec_timer%start()
         call self%rmatvec(vec_in, vec_out)
         call self%rmatvec_timer%stop()
         write(msg,'(I0,1X,A)') self%rmatvec_counter, 'end'
-        call logger%log_debug(msg, module=this_module, procedure='rmatvec')
+        call log_debug(msg, module=this_module, procedure='rmatvec')
         return
     end subroutine apply_rmatvec_${type[0]}$${kind}$
     #:endfor

diff --git a/src/AbstractTypes/AbstractSystems.f90 b/src/AbstractTypes/AbstractSystems.f90
@@ -233,7 +233,7 @@ subroutine reset_eval_counter(self, procedure, counter, reset_timer, soft_reset,
       reset_timer_ = optval(reset_timer, .true.)
       if (count_old /= 0 .or. counter_ /= 0) then
         write(msg,'(A,I0,A,I0,A)') 'Total number of evals: ', count_old, '. Resetting counter to ', counter_, '.'
-        call logger%log_message(msg, module=this_module, procedure='reset_eval_counter('//trim(procedure)//')')
+        call log_message(msg, module=this_module, procedure='reset_eval_counter('//trim(procedure)//')')
         self%eval_counter = counter_
       end if
       if (reset_timer_) call self%reset_timer(soft_reset, clean_timer)
@@ -276,12 +276,12 @@ subroutine eval_rsp(self, vec_in, vec_out, atol)
         character(len=128) :: msg
         self%eval_counter = self%eval_counter + 1
         write(msg,'(I0,1X,A)') self%eval_counter, 'start'
-        call logger%log_debug(msg, module=this_module, procedure='response')
+        call log_debug(msg, module=this_module, procedure='response')
         call self%eval_timer%start()
         call self%response(vec_in, vec_out, atol)
         call self%eval_timer%stop()
         write(msg,'(I0,1X,A)') self%eval_counter, 'end'
-        call logger%log_debug(msg, module=this_module, procedure='response')
+        call log_debug(msg, module=this_module, procedure='response')
         return
     end subroutine eval_rsp
     subroutine eval_rdp(self, vec_in, vec_out, atol)
@@ -293,12 +293,12 @@ subroutine eval_rdp(self, vec_in, vec_out, atol)
         character(len=128) :: msg
         self%eval_counter = self%eval_counter + 1
         write(msg,'(I0,1X,A)') self%eval_counter, 'start'
-        call logger%log_debug(msg, module=this_module, procedure='response')
+        call log_debug(msg, module=this_module, procedure='response')
         call self%eval_timer%start()
         call self%response(vec_in, vec_out, atol)
         call self%eval_timer%stop()
         write(msg,'(I0,1X,A)') self%eval_counter, 'end'
-        call logger%log_debug(msg, module=this_module, procedure='response')
+        call log_debug(msg, module=this_module, procedure='response')
         return
     end subroutine eval_rdp
     subroutine eval_csp(self, vec_in, vec_out, atol)
@@ -310,12 +310,12 @@ subroutine eval_csp(self, vec_in, vec_out, atol)
         character(len=128) :: msg
         self%eval_counter = self%eval_counter + 1
         write(msg,'(I0,1X,A)') self%eval_counter, 'start'
-        call logger%log_debug(msg, module=this_module, procedure='response')
+        call log_debug(msg, module=this_module, procedure='response')
         call self%eval_timer%start()
         call self%response(vec_in, vec_out, atol)
         call self%eval_timer%stop()
         write(msg,'(I0,1X,A)') self%eval_counter, 'end'
-        call logger%log_debug(msg, module=this_module, procedure='response')
+        call log_debug(msg, module=this_module, procedure='response')
         return
     end subroutine eval_csp
     subroutine eval_cdp(self, vec_in, vec_out, atol)
@@ -327,12 +327,12 @@ subroutine eval_cdp(self, vec_in, vec_out, atol)
         character(len=128) :: msg
         self%eval_counter = self%eval_counter + 1
         write(msg,'(I0,1X,A)') self%eval_counter, 'start'
-        call logger%log_debug(msg, module=this_module, procedure='response')
+        call log_debug(msg, module=this_module, procedure='response')
         call self%eval_timer%start()
         call self%response(vec_in, vec_out, atol)
         call self%eval_timer%stop()
         write(msg,'(I0,1X,A)') self%eval_counter, 'end'
-        call logger%log_debug(msg, module=this_module, procedure='response')
+        call log_debug(msg, module=this_module, procedure='response')
         return
     end subroutine eval_cdp
 

diff --git a/src/AbstractTypes/AbstractSystems.fypp b/src/AbstractTypes/AbstractSystems.fypp
@@ -111,7 +111,7 @@ contains
       reset_timer_ = optval(reset_timer, .true.)
       if (count_old /= 0 .or. counter_ /= 0) then
         write(msg,'(A,I0,A,I0,A)') 'Total number of evals: ', count_old, '. Resetting counter to ', counter_, '.'
-        call logger%log_message(msg, module=this_module, procedure='reset_eval_counter('//trim(procedure)//')')
+        call log_message(msg, module=this_module, procedure='reset_eval_counter('//trim(procedure)//')')
         self%eval_counter = counter_
       end if
       if (reset_timer_) call self%reset_timer(soft_reset, clean_timer)
@@ -155,12 +155,12 @@ contains
         character(len=128) :: msg
         self%eval_counter = self%eval_counter + 1
         write(msg,'(I0,1X,A)') self%eval_counter, 'start'
-        call logger%log_debug(msg, module=this_module, procedure='response')
+        call log_debug(msg, module=this_module, procedure='response')
         call self%eval_timer%start()
         call self%response(vec_in, vec_out, atol)
         call self%eval_timer%stop()
         write(msg,'(I0,1X,A)') self%eval_counter, 'end'
-        call logger%log_debug(msg, module=this_module, procedure='response')
+        call log_debug(msg, module=this_module, procedure='response')
         return
     end subroutine eval_${type[0]}$${kind}$
     #:endfor