def_tvd_diagnostic_terms Module Reference

Data Types
type	str_tvd_diagnostic_terms

Functions/Subroutines
subroutine	allocate_tvd_diagnostic_terms (current_state, tvd_dgs_terms)
subroutine	deallocate_tvd_diagnostic_terms (current_state, tvd_dgs_terms)

Variables
type(str_tvd_diagnostic_terms)	tvd_dgs_terms

Function/Subroutine Documentation

allocate_tvd_diagnostic_terms()

subroutine def_tvd_diagnostic_terms::allocate_tvd_diagnostic_terms	(	type(model_state_type), intent(in), target	current_state,
		type(str_tvd_diagnostic_terms), intent(inout)	tvd_dgs_terms
	)

Definition at line 27 of file def_tvd_diagnostic_terms.F90.

    
    implicit none
    
    type(model_state_type), target, intent(in) :: current_state
    type(str_tvd_diagnostic_terms), intent(inout) :: tvd_dgs_terms
 
    integer :: k_top, x_local, y_local
    
    k_top = current_state%local_grid%size(z_index) + current_state%local_grid%halo_size(z_index) * 2
    x_local = current_state%local_grid%size(x_index) + current_state%local_grid%halo_size(x_index) * 2
    y_local = current_state%local_grid%size(y_index) + current_state%local_grid%halo_size(x_index) * 2
    
    allocate(tvd_dgs_terms%adv_u_dgs(k_top, y_local, x_local), &
         tvd_dgs_terms%adv_v_dgs(k_top, y_local, x_local),     &
         tvd_dgs_terms%adv_w_dgs(k_top, y_local, x_local),     &
         tvd_dgs_terms%adv_th_dgs(k_top, y_local, x_local))
    
    tvd_dgs_terms%adv_u_dgs(:,:,:) = 0.0
    tvd_dgs_terms%adv_v_dgs(:,:,:) = 0.0
    tvd_dgs_terms%adv_w_dgs(:,:,:) = 0.0
    tvd_dgs_terms%adv_th_dgs(:,:,:) = 0.0
 
    if (current_state%number_q_fields > 0) then  
       allocate(tvd_dgs_terms%adv_q_dgs(k_top, y_local, x_local, current_state%number_q_fields))
       tvd_dgs_terms%adv_q_dgs(:,:,:,:)= 0.0
    endif
 

deallocate_tvd_diagnostic_terms()

subroutine def_tvd_diagnostic_terms::deallocate_tvd_diagnostic_terms	(	type(model_state_type), intent(in), target	current_state,
		type(str_tvd_diagnostic_terms), intent(inout)	tvd_dgs_terms
	)

Definition at line 57 of file def_tvd_diagnostic_terms.F90.

    type(model_state_type), target, intent(in) :: current_state
    type(str_tvd_diagnostic_terms), intent(inout) :: tvd_dgs_terms
 
    deallocate(tvd_dgs_terms%adv_u_dgs, &
         tvd_dgs_terms%adv_v_dgs,      &
         tvd_dgs_terms%adv_w_dgs,      &
         tvd_dgs_terms%adv_th_dgs)
    
    if (current_state%number_q_fields > 0) then  
       deallocate(tvd_dgs_terms%adv_q_dgs) 
    endif
 

Variable Documentation

tvd_dgs_terms

type(str_tvd_diagnostic_terms) def_tvd_diagnostic_terms::tvd_dgs_terms

Definition at line 23 of file def_tvd_diagnostic_terms.F90.

  type(str_tvd_diagnostic_terms) :: tvd_dgs_terms