exit_heatpump Subroutine

public subroutine exit_heatpump()

Uses

  • proc~~exit_heatpump~~UsesGraph proc~exit_heatpump exit_heatpump module~modglobal modglobal proc~exit_heatpump->module~modglobal

Arguments

None

Called by

proc~~exit_heatpump~~CalledByGraph proc~exit_heatpump exit_heatpump program~dalesurban DALESURBAN program~dalesurban->proc~exit_heatpump

Source Code

  subroutine exit_heatpump
    use modglobal, only : lheatpump, nhppoints, ltempeq
    implicit none

    if (.not.(lheatpump) .or. .not.(ltempeq) .or. (nhppoints<1)) return

    deallocate(idhppts_global,lhpptsrank) ! Deallocate global heat pump points array and logical array
  end subroutine exit_heatpump