125 |
& CALL MY82_DO_DIAGS( myTime, myIter, myThid ) |
& CALL MY82_DO_DIAGS( myTime, myIter, myThid ) |
126 |
#endif |
#endif |
127 |
|
|
128 |
|
#ifdef ALLOW_OPPS |
129 |
|
C-- Do OPPS diagnostics. |
130 |
|
IF (useOPPS .AND. myIter.NE.nIter0 ) |
131 |
|
& CALL OPPS_DO_DIAGS( myTime, myIter, myThid ) |
132 |
|
#endif |
133 |
|
|
134 |
|
#ifdef ALLOW_GGL90 |
135 |
|
C-- Do GGL90 diagnostics. |
136 |
|
IF (useGGL90 .AND. myIter.NE.nIter0 ) |
137 |
|
& CALL GGL90_DO_DIAGS( myTime, myIter, myThid ) |
138 |
|
#endif |
139 |
|
|
140 |
#ifdef ALLOW_SBO |
#ifdef ALLOW_SBO |
141 |
C Do SBO diagnostics. |
C Do SBO diagnostics. |
142 |
IF (useSBO .AND. myIter.NE.nIter0 ) THEN |
IF (useSBO .AND. myIter.NE.nIter0 ) THEN |