logTimeCurve Subroutine

public subroutine logTimeCurve()

Arguments

None

Contents

Source Code

logTimeCurve

Source Code

    subroutine logTimeCurve
        implicit none
        character(*), parameter :: this_routine = "read_in_trajectory"

        if (iProcIndex == root) write(iunitCycLog, *) tau, real_time_info%time_angle

    end subroutine logTimeCurve