Commit f3e7dcd3 authored by Knut's avatar Knut

Merge remote-tracking branch 'origin/master' into output

parents 5c994618 fe4eb016
......@@ -272,6 +272,7 @@
if (runtype .eq. 3 .or. runtype .eq. 4) then
call init_eqstate()
#ifndef PECS
! KK-TODO: in case of hotstart no layer heights are available at this point
call do_eqstate()
call ss_nn()
#endif
......
......@@ -48,6 +48,8 @@
!-----------------------------------------------------------------------
!BOC
call cmdline
call print_version()
call compilation_options()
#ifdef FORTRAN95
call CPU_Time(t1)
......@@ -85,12 +87,10 @@
LEVEL2 '3D: ',mem3d/1024,' kbytes'
end if
#endif
if(secs .gt. _ZERO_) then
LEVEL1 'Total CPU-time was: ',secs,' seconds'
end if
LEVEL1 'Total CPU-time was: ',secs,' seconds'
LEVEL1 'Number of time steps: ',MaxN-MinN+1
LEVEL1 'Number of calc-points: ',Calc_Points
if(secs .gt. _ZERO_) then
if(MaxN-MinN+1 .gt. _ZERO_) then
LEVEL1 'CPU-time/calc-point: ',secs/(MaxN-MinN+1)/Calc_Points,' seconds'
LEVEL1 'Sim-time/CPU-time: ',simtime/secs
end if
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment