Commit 587f4c20 authored by Caneses Marin, Juan Francisco's avatar Caneses Marin, Juan Francisco
Browse files

Initial attempt to estimate computational time

parent 0154d5d3

src/Main.f90

+13 −4
Original line number Diff line number Diff line
@@ -364,6 +364,15 @@ TimeStepping: do j = 1,in%Nsteps 
            endif

        end do

    end if



    ! Estimate computational time:

    ! =====================================================================

    id = OMP_GET_THREAD_NUM()

    if (id .EQ. 0) then        

      if (j .EQ. 10) then

        WRITE(*,*) 'Estimated compute time: ', in%Nsteps*tp/j

      end if

  end if

end do TimeStepping



! Record end time: