tem_time_isDefined Function

public pure function tem_time_isDefined(me) result(isDefined)

This function returns true if tem_time_type is defined either as iter, sim or clock.

Arguments

Type IntentOptional Attributes Name
type(tem_time_type), intent(in) :: me

Return Value logical


Contents

Source Code

tem_time_isDefined

Source Code

  pure function tem_time_isDefined(me) result(isDefined)
    ! -------------------------------------------------------------------- !
    type(tem_time_type), intent(in) :: me
    logical :: isDefined
    ! -------------------------------------------------------------------- !
    ! -------------------------------------------------------------------- !

    isDefined = (      (me%iter < huge(me%iter)) &
      &           .or. (me%sim < huge(me%sim))   &
      &           .or. (me%clock < huge(me%clock)) )

  end function tem_time_isDefined