only log outer header at first step of stress period

mjreno · Jan 17, 2024 · 26ffb1a · 26ffb1a
1 parent c46ca00
commit 26ffb1a
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/Utilities/Idm/IdmLogger.f90 b/src/Utilities/Idm/IdmLogger.f90
@@ -57,11 +57,11 @@ end subroutine idm_log_close
   !> @ brief log a dynamic header message
   !<
   subroutine idm_log_period_header(component, iout)
-    use TdisModule, only: kper
+    use TdisModule, only: kper, kstp
     character(len=*), intent(in) :: component !< component name
     integer(I4B), intent(in) :: iout
 
-    if (iparamlog > 0 .and. iout > 0) then
+    if (iparamlog > 0 .and. iout > 0 .and. kstp == 1) then
       write (iout, '(/1x,a,i0,a)') 'IDP PERIOD ', kper, &
         ' load for component: '//trim(component)
     end if
@@ -70,9 +70,10 @@ end subroutine idm_log_period_header
   !> @ brief log the period closing message
   !<
   subroutine idm_log_period_close(iout)
+    use TdisModule, only: kstp
     integer(I4B), intent(in) :: iout
 
-    if (iparamlog > 0 .and. iout > 0) then
+    if (iparamlog > 0 .and. iout > 0 .and. kstp == 1) then
       !backspace iout
       write (iout, '(1x,a,/)') 'IDP component dynamic load complete...'
     end if