HELENA_vars.f90

Go to the documentation of this file.

!------------------------------------------------------------------------------!
!------------------------------------------------------------------------------!
module helena_vars
#include <PB3D_macros.h>
    use num_vars, only: pi
    use str_utilities
    use output_ops
    use messages
    use num_vars, only: dp, max_str_ln
    use grid_vars, only: grid_type
    use x_vars, only: x_1_type, x_2_type
    
    implicit none
    private
    public dealloc_hel, &
        &pres_h, q_saf_h, rot_t_h, flux_p_h, flux_t_h, nchi, chi_h, ias, &
        &rbphi_h, r_h, z_h, h_h_11, h_h_12, h_h_33, rmtog_h, bmtog_h
    
    ! global variables
    real(dp) :: rmtog_h
    real(dp) :: bmtog_h
    real(dp), allocatable :: chi_h(:)
    real(dp), allocatable :: flux_p_h(:,:)
    real(dp), allocatable :: flux_t_h(:,:)
    real(dp), allocatable :: pres_h(:,:)
    real(dp), allocatable :: q_saf_h(:,:)
    real(dp), allocatable :: rot_t_h(:,:)
    real(dp), allocatable :: rbphi_h(:,:)
    real(dp), allocatable :: h_h_11(:,:)
    real(dp), allocatable :: h_h_12(:,:)
    real(dp), allocatable :: h_h_33(:,:)
    real(dp), allocatable :: r_h(:,:)
    real(dp), allocatable :: z_h(:,:)
    integer :: nchi
    integer :: ias
 
contains
    subroutine dealloc_hel
#if ldebug
        use num_vars, only: rank, print_mem_usage
        
        ! local variables
        integer :: mem_diff                                                     ! difference in memory
        
        ! memory usage before deallocation
        if (print_mem_usage) mem_diff = get_mem_usage()
#endif
        
        ! deallocate
        deallocate(chi_h)
        deallocate(flux_p_h)
        deallocate(flux_t_h)
        deallocate(pres_h)
        deallocate(q_saf_h)
        deallocate(rot_t_h)
        deallocate(rbphi_h)
        deallocate(r_h)
        deallocate(z_h)
        deallocate(h_h_11)
        deallocate(h_h_12)
        deallocate(h_h_33)
        
#if ldebug
        ! memory usage difference after deallocation
        if (print_mem_usage) then
            mem_diff = mem_diff - get_mem_usage()
            call writo('Rank '//trim(i2str(rank))//' liberated '//&
                &trim(i2str(mem_diff))//'kB deallocating HELENA')
        end if
#endif
    end subroutine dealloc_hel
end module helena_vars