exitstatsdump Subroutine

public subroutine exitstatsdump()

Uses

  • proc~~exitstatsdump~~UsesGraph proc~exitstatsdump exitstatsdump module~modglobal modglobal proc~exitstatsdump->module~modglobal module~modstat_nc modstat_nc proc~exitstatsdump->module~modstat_nc module~modmpi modmpi module~modstat_nc->module~modmpi netcdf netcdf module~modstat_nc->netcdf mpi mpi module~modmpi->mpi

Arguments

None

Called by

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

Source Code

  subroutine exitstatsdump
      use modstat_nc, only : exitstat_nc
      use modglobal, only  : ltdump
    implicit none

!       if (lydump) then
!         call exitstat_nc(ncid)
!       endif

! will doing this ruin the averaging? ... try tg3315
!       if (lytdump) then
!         call exitstat_nc(ncidt)
!       endif

!      if (ltkedump) then
!        call exitstat_nc(ncidtke)
!      endif

!       if (ltdump) then
!         call exitstat_nc(ncidt)
!       endif

  end subroutine exitstatsdump