tem_init_depend Subroutine

public subroutine tem_init_depend(me, varSys)

This subroutine initializes the loaded depend table

Arguments

Type IntentOptional Attributes Name
type(tem_depend_type), intent(inout) :: me(:)

list of depend types to be filled
type(tem_varSys_type), intent(in) :: varSys

list of all global variable systems

Source Code

  subroutine tem_init_depend( me, varSys )
    !---------------------------------------------------------------------------
    !> list of depend types to be filled
    type(tem_depend_type), intent(inout)  :: me(:)
    !> list of all global variable systems
    type(tem_varSys_type), intent(in)     :: varSys
    !---------------------------------------------------------------------------
    integer :: iDepend, nDepends
    !---------------------------------------------------------------------------
    nDepends = size(me)

    do iDepend = 1, nDepends
      ! map variables
      ! create depend variable position in the global varSys
      call tem_create_varMap( varname = me(iDepend)%varname, &
        &                     varSys  = varSys,              &
        &                     varMap  = me(iDepend)%varMap   )

    end do ! iDepend

  end subroutine tem_init_depend