checksim Subroutine

public subroutine checksim()

Uses

  • proc~~checksim~~UsesGraph proc~checksim modchecksim::checksim module~modglobal modglobal proc~checksim->module~modglobal module~modmpi modmpi proc~checksim->module~modmpi mpi mpi module~modmpi->mpi

Arguments

None

Calls

proc~~checksim~~CallsGraph proc~checksim modchecksim::checksim proc~calccourant modchecksim::calccourant proc~checksim->proc~calccourant proc~calcdiffnr modchecksim::calcdiffnr proc~checksim->proc~calcdiffnr proc~chkdiv modchecksim::chkdiv proc~checksim->proc~chkdiv mpi_allreduce mpi_allreduce proc~calccourant->mpi_allreduce proc~calcdiffnr->mpi_allreduce proc~chkdiv->mpi_allreduce

Called by

proc~~checksim~~CalledByGraph proc~checksim modchecksim::checksim program~dalesurban DALESURBAN program~dalesurban->proc~checksim

Contents

Source Code

checksim

Source Code

  subroutine checksim
    use modglobal, only : timee, rk3step, dt_lim,dt
    use modmpi,    only : myid
    implicit none
    character(20) :: timeday
    if (timee ==0.0) return
    if (rk3step/=3) return
    dtmn = dtmn +dt; ndt =ndt+1.
    if(timee<tnext) return
    tnext = tnext+tcheck
    dtmn  = dtmn / ndt
    if (myid==0) then
      call date_and_time(time=timeday)
      write (*,*) '================================================================='
      write (*,'(3A,F9.2,A,F12.9)') 'Time of Day: ', timeday(1:10),'    Time of Simulation: ', timee, '    dt: ',dtmn
    end if
    call calccourant
    call calcdiffnr
    call chkdiv
    dtmn  = 0.
    ndt   = 0.

  end subroutine checksim