Test wallTime to verify operation
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module.
subroutine testWallTime
!! Test wallTime to verify operation
real(wp)::t0,t1
t0 = wallTime()
call wait(0.1_wp)
t1 = wallTime()
if( t1-t0<0.1_wp ) error stop "Failed wallTime check"
end subroutine testWallTime