clearsourceterms.F90

Go to the documentation of this file.

 
module clearsourceterms_mod
  use datadefn_mod, only : default_precision
  use state_mod, only : model_state_type
  use monc_component_mod, only : component_array_field_type, component_double_data_type, component_descriptor_type, &
       component_field_value_type, component_field_information_type
implicit none
 
#ifndef TEST_MODE
  private
#endif
 
  public clearsourceterms_get_descriptor
contains
  type(component_descriptor_type) function clearsourceterms_get_descriptor()
    clearsourceterms_get_descriptor%name="clearsourceterms"
    clearsourceterms_get_descriptor%version=0.1
    clearsourceterms_get_descriptor%timestep=>timestep_callback
  end function clearsourceterms_get_descriptor
 
  subroutine timestep_callback(current_state)
    type(model_state_type), target, intent(inout) :: current_state
 
    integer :: i
 
#ifdef U_ACTIVE
    current_state%su%data=0.0_default_precision
#endif
#ifdef V_ACTIVE
    current_state%sv%data=0.0_default_precision
#endif
#ifdef W_ACTIVE
    current_state%sw%data=0.0_default_precision
#endif
 
    if (current_state%sth%active) then
      current_state%sth%data=0.0_default_precision
    end if
 
    do i=1, current_state%number_q_fields
      current_state%sq(i)%data=0.0_default_precision
    end do
  end subroutine timestep_callback  
end module clearsourceterms_mod