This component sets the source term for the lowest level (Level 1) so that, depending on surface consitionm, there is consistent lower boundary condition. More...

Functions/Subroutines
type(component_descriptor_type) function	set_consistent_lowbc_get_descriptor ()
	Provides the descriptor back to the caller and is used in component registration. More...

subroutine	initialisation_callback (current_state)

subroutine	timestep_callback (current_state)

subroutine	set_flow_lowbc (current_state, current_x_index, current_y_index)

subroutine	set_th_lowbc (current_state, current_x_index, current_y_index)

subroutine	set_q_lowbc (current_state, current_x_index, current_y_index)

Variables
logical	advect_flow

logical	advect_th

logical	advect_q

integer	iqv

Detailed Description

This component sets the source term for the lowest level (Level 1) so that, depending on surface consitionm, there is consistent lower boundary condition.

Function/Subroutine Documentation

◆ initialisation_callback()

subroutine set_consistent_lowbc_mod::initialisation_callback ( type(model_state_type), intent(inout), target current_state )

Definition at line 29 of file set_consistent_lowbc.F90.

     ! copy of the initialisation callback from pwadvection, used to 
     ! identify whether acting on flow, theta or q fields
     type(model_state_type), target, intent(inout) :: current_state
  
     ! Determine vapour index
     if (.not. current_state%passive_q) then 
        iqv = get_q_index(standard_q_names%VAPOUR, 'lowerbc')
     endif
     

Here is the caller graph for this function:

◆ set_consistent_lowbc_get_descriptor()

type(component_descriptor_type) function set_consistent_lowbc_mod::set_consistent_lowbc_get_descriptor

Provides the descriptor back to the caller and is used in component registration.

Returns: The termination check component descriptor

Definition at line 22 of file set_consistent_lowbc.F90.

     set_consistent_lowbc_get_descriptor%name="set_consistent_lowbc"
     set_consistent_lowbc_get_descriptor%version=0.1
     set_consistent_lowbc_get_descriptor%initialisation=>initialisation_callback
     set_consistent_lowbc_get_descriptor%timestep=>timestep_callback

Here is the call graph for this function:

◆ set_flow_lowbc()

subroutine set_consistent_lowbc_mod::set_flow_lowbc	(	type(model_state_type), intent(inout), target	current_state,
		integer, intent(in)	current_x_index,
		integer, intent(in)	current_y_index
	)

Definition at line 60 of file set_consistent_lowbc.F90.

     type(model_state_type), target, intent(inout) :: current_state
     integer, intent(in) ::  current_x_index, current_y_index
     
     if (current_state%use_viscosity_and_diffusion .and. &
         current_state%use_surface_boundary_conditions) then 
 #ifdef U_ACTIVE
         current_state%su%data(1, current_y_index, current_x_index)= &
                -current_state%su%data(2, current_y_index, current_x_index)
 #endif
 #ifdef V_ACTIVE
         current_state%sv%data(1, current_y_index, current_x_index)= &
                -current_state%sv%data(2, current_y_index, current_x_index)   
 #endif
     else 
 #ifdef U_ACTIVE
        current_state%su%data(1, current_y_index, current_x_index)= &               
                 current_state%su%data(2, current_y_index, current_x_index)
 #endif
 #ifdef V_ACTIVE
        current_state%sv%data(1, current_y_index, current_x_index)= &
                 current_state%sv%data(2, current_y_index, current_x_index)
 #endif
     endif
  

Here is the caller graph for this function:

◆ set_q_lowbc()

subroutine set_consistent_lowbc_mod::set_q_lowbc	(	type(model_state_type), intent(inout), target	current_state,
		integer, intent(in)	current_x_index,
		integer, intent(in)	current_y_index
	)

Definition at line 103 of file set_consistent_lowbc.F90.

     type(model_state_type), target, intent(inout) :: current_state
     integer, intent(in) ::  current_x_index, current_y_index
  
     integer :: i  
     
     if (current_state%number_q_fields .gt. 0) then
        do n=1,current_state%number_q_fields
           current_state%sq(n)%data(1, current_y_index, current_x_index)= &
                current_state%sq(n)%data(2,current_y_index, current_x_index)
        enddo
     endif
     if (current_state%use_surface_boundary_conditions .and. &
          current_state%type_of_surface_boundary_conditions == prescribed_surface_values) then
        current_state%sq(iqv)%data(1, current_y_index, current_x_index)= &
             -(current_state%sq(iqv)%data(2,current_y_index, current_x_index))
     endif
  

Here is the caller graph for this function:

◆ set_th_lowbc()

subroutine set_consistent_lowbc_mod::set_th_lowbc	(	type(model_state_type), intent(inout), target	current_state,
		integer, intent(in)	current_x_index,
		integer, intent(in)	current_y_index
	)

Definition at line 87 of file set_consistent_lowbc.F90.

     type(model_state_type), target, intent(inout) :: current_state
     integer, intent(in) ::  current_x_index, current_y_index
  
     if (current_state%use_surface_boundary_conditions) then 
        if (current_state%type_of_surface_boundary_conditions == prescribed_surface_fluxes) then
           current_state%sth%data(1, current_y_index, current_x_index)= &
                current_state%sth%data(2, current_y_index, current_x_index)
        else
           current_state%sth%data(1, current_y_index, current_x_index)= &
                -current_state%sth%data(2, current_y_index, current_x_index)        
        endif
     endif
  

Here is the caller graph for this function:

◆ timestep_callback()

subroutine set_consistent_lowbc_mod::timestep_callback ( type(model_state_type), intent(inout), target current_state )

Definition at line 41 of file set_consistent_lowbc.F90.

     type(model_state_type), target, intent(inout) :: current_state
  
     integer :: current_x_index, current_y_index
  
     current_x_index=current_state%column_local_x
     current_y_index=current_state%column_local_y
  
     if (current_state%halo_column) return
  
     call set_flow_lowbc(current_state, current_x_index, current_y_index)
     if (current_state%th%active) then 
        call set_th_lowbc(current_state, current_x_index, current_y_index)
     endif
     if (current_state%number_q_fields .gt. 0) then
        call set_q_lowbc(current_state, current_x_index, current_y_index)
     endif

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

◆ advect_flow

logical set_consistent_lowbc_mod::advect_flow

Definition at line 13 of file set_consistent_lowbc.F90.

13 logical :: advect_flow, advect_th, advect_q

◆ advect_q

logical set_consistent_lowbc_mod::advect_q

Definition at line 13 of file set_consistent_lowbc.F90.

◆ advect_th

logical set_consistent_lowbc_mod::advect_th

Definition at line 13 of file set_consistent_lowbc.F90.

◆ iqv

integer set_consistent_lowbc_mod::iqv

Definition at line 15 of file set_consistent_lowbc.F90.

15 integer :: iqv ! index for vapour

Functions/Subroutines

Variables

Detailed Description

Function/Subroutine Documentation

◆ initialisation_callback()

◆ set_consistent_lowbc_get_descriptor()

◆ set_flow_lowbc()

◆ set_q_lowbc()

◆ set_th_lowbc()

◆ timestep_callback()

Variable Documentation

◆ advect_flow

◆ advect_q

◆ advect_th

◆ iqv