22 logical,
intent(in) :: t
23 integer(kind=kint),
intent(in) :: i
24 integer(kind=kint) :: ierr
27 call mpi_barrier(mpi_comm_world, ierr)
45 subroutine ptime(cputim)
46 real(kind=
kreal) :: cputim
integer(kind=4), parameter kreal
real(kind=kreal) function hecmw_wtime()
subroutine, public initelap(t, i)
subroutine, public elapout(mes)