initthermodynamics Subroutine

public subroutine initthermodynamics()

Uses

  • proc~~initthermodynamics~~UsesGraph proc~initthermodynamics modthermodynamics::initthermodynamics module~modglobal modglobal proc~initthermodynamics->module~modglobal

Arguments

None

Called by

proc~~initthermodynamics~~CalledByGraph proc~initthermodynamics modthermodynamics::initthermodynamics proc~startup modstartup::startup proc~startup->proc~initthermodynamics program~dalesurban DALESURBAN program~dalesurban->proc~startup

Contents

Source Code


Source Code

  subroutine initthermodynamics
    use modglobal, only : kb,ke,kh,ib,ie,jb,je

    implicit none

    allocate(th0av(kb:ke+kh))
    allocate(thv0(ib:ie,jb:je,kb:ke+kh))
    th0av = 0.

  end subroutine initthermodynamics