get_grid Function

public function get_grid(this) result(grid)

Type Bound

MaplGenericComponent

Arguments

Type IntentOptional Attributes Name
class(MaplGenericComponent), intent(in), target :: this

Return Value type(MaplGrid), pointer


Calls

proc~~get_grid~~CallsGraph proc~get_grid MaplGenericComponent%get_grid none~is_threading_active MaplGenericComponent%is_threading_active proc~get_grid->none~is_threading_active proc~get_current_thread get_current_thread proc~get_grid->proc~get_current_thread

Source Code

   function get_grid(this) result(grid)
     class(MaplGenericComponent), target, intent(in) :: this
     type(MaplGrid), pointer :: grid
     integer :: thread

     if (.NOT. this%is_threading_active()) then
        grid => this%grid
     else
        thread = get_current_thread()
        grid => this%subcomponents(thread+1)%grid ! subgrids is of type ESMF_Grid because of the return type of make_subgrids
     end if
   end function get_grid