113 |
C arguments. Although this is fiddly it saves the need to |
C arguments. Although this is fiddly it saves the need to |
114 |
C impose additional synchronisation points when they are |
C impose additional synchronisation points when they are |
115 |
C updated. |
C updated. |
116 |
|
C myCurrentTime - Time counter for this thread |
117 |
|
C myCurrentIter - Iteration counter for this thread |
118 |
|
INTEGER myCurrentIter |
119 |
|
_RL myCurrentTime |
120 |
|
|
121 |
C-- This timer encompasses the whole code |
C-- This timer encompasses the whole code |
122 |
CALL TIMER_START('ALL [THE_MODEL_MAIN]',myThid) |
CALL TIMER_START('ALL [THE_MODEL_MAIN]',myThid) |
128 |
CALL TIMER_STOP ('INITIALISE_FIXED [THE_MODEL_MAIN]',myThid) |
CALL TIMER_STOP ('INITIALISE_FIXED [THE_MODEL_MAIN]',myThid) |
129 |
|
|
130 |
|
|
131 |
|
myCurrentTime = startTime |
132 |
|
myCurrentIter = nIter0 |
133 |
|
|
134 |
C-- Call time stepping loop of full model |
C-- Call time stepping loop of full model |
135 |
CALL TIMER_START('THE_MAIN_LOOP [THE_MODEL_MAIN]',myThid) |
CALL TIMER_START('THE_MAIN_LOOP [THE_MODEL_MAIN]',myThid) |
136 |
CALL THE_MAIN_LOOP( myThid ) |
CALL THE_MAIN_LOOP(myCurrentTime, myCurrentIter, myThid ) |
137 |
CALL TIMER_STOP ('THE_MAIN_LOOP [THE_MODEL_MAIN]',myThid) |
CALL TIMER_STOP ('THE_MAIN_LOOP [THE_MODEL_MAIN]',myThid) |
138 |
|
|
139 |
|
|