construct_MaxAction Function

public function construct_MaxAction(typekind) result(acc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_TypeKind_Flag), intent(in) :: typekind

Return Value type(MaxAction)


Source Code

   function construct_MaxAction(typekind) result(acc)
      type(MaxAction) :: acc
      type(ESMF_TypeKind_Flag), intent(in) :: typekind

      acc%typekind = typekind
      acc%CLEAR_VALUE_R4 = MAPL_UNDEFINED_REAL

   end function construct_MaxAction