new_ScenarioDescription Function

public function new_ScenarioDescription(name, root, check_name, check_stateitem) result(s)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: name
character(len=*), intent(in) :: root
character(len=*), intent(in) :: check_name
procedure(I_check_stateitem) :: check_stateitem

Return Value type(ScenarioDescription)


Calls

proc~~new_scenariodescription~~CallsGraph proc~new_scenariodescription new_ScenarioDescription none~setnumpetsrequested ESMF_TestParameter%setNumPetsRequested proc~new_scenariodescription->none~setnumpetsrequested

Called by

proc~~new_scenariodescription~~CalledByGraph proc~new_scenariodescription new_ScenarioDescription interface~scenariodescription ScenarioDescription interface~scenariodescription->proc~new_scenariodescription

Source Code

   function new_ScenarioDescription(name, root, check_name, check_stateitem) result(s)
      type(ScenarioDescription) :: s
      character(*), intent(in) :: name
      character(*), intent(in) :: root
      character(*), intent(in) :: check_name
      procedure(I_check_stateitem) :: check_stateitem
      s%name = name
      s%root = root
      s%check_name = check_name
      s%check_stateitem => check_stateitem

      call s%setNumPETsRequested(1)
   end function new_ScenarioDescription