Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(ESMF_TypeKind_Flag), | intent(in) | :: | typekind |
function construct_MinAction(typekind) result(acc) type(MinAction) :: acc type(ESMF_TypeKind_Flag), intent(in) :: typekind acc%typekind = typekind acc%CLEAR_VALUE_R4 = MAPL_UNDEFINED_REAL end function construct_MinAction