66 |
C /|\ | | | |--DYNAMICS |
C /|\ | | | |--DYNAMICS |
67 |
C | | | | | o Evaluate "forward" terms |
C | | | | | o Evaluate "forward" terms |
68 |
C /|\ | | | | |
C /|\ | | | | |
69 |
C | | | | |--DO_THE_MODEL_IO |
C | | | | |--SOLVE_FOR_PRESSURE |
70 |
C /|\ | | | | o Write model state |
C /|\ | | | | o Find pressure field to keep flow non-divergent |
71 |
C | | | | | |
C | | | | | |
72 |
C /|\ | | | |--SOLVE_FOR_PRESSURE |
C /|\ | | | |--THE_CORRECTION_STEP |
73 |
C | | | | | o Find pressure field to keep flow non-divergent |
C | | | | | o Correct flow field with and cycle time-stepping arrays |
74 |
C /|\ | | | | |
C /|\ | | | | |
75 |
C | | | | |--DO_GTERM_BLOCKING_EXCHANGES |
C | | | | |--DO_GTERM_BLOCKING_EXCHANGES |
76 |
C /|\ | | | | o Update overlap regions |
C /|\ | | | | o Update overlap regions |
77 |
C | | | | | |
C | | | | | |
78 |
C /|\ | | | |--WRITE_CHECKPOINT |
C /|\ | | | |--DO_THE_MODEL_IO |
79 |
C | | | | | o Write restart file(s) |
C | | | | | o Write model state |
80 |
C /|\ | | | |
C /|\ | | | | |
81 |
|
C | | | | |--WRITE_CHECKPOINT |
82 |
|
C /|\ | | | | o Write restart file(s) |
83 |
C | | | | |
C | | | | |
84 |
|
C /|\ | | | |
85 |
C |<== | | | ** Time stepping loop finishes here ** |
C |<== | | | ** Time stepping loop finishes here ** |
86 |
C | | | |
C | | | |
87 |
C | | |-- |
C | | |-- |