IncrementIOCounter Subroutine

  1. SELF_Model.f90
  2. SELF_Model
  3. IncrementIOCounter

public subroutine IncrementIOCounter(this)

Arguments

TypeIntentOptionalAttributesName
class(Model), intent(inout) :: this

Contents

Source Code

IncrementIOCounter

Source Code

  subroutine IncrementIOCounter(this)
    implicit none
    class(Model),intent(inout) :: this

    ! Increment the ioIterate
    this%ioIterate = this%ioIterate+1

  endsubroutine IncrementIOCounter