Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(ESMF_TypeKind_Flag), | intent(in) | :: | typekind |
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