Parent Directory | Revision Log | Revision Graph | Patch
revision 1.7 by adcroft, Thu Jul 8 17:03:29 2004 UTC | revision 1.8 by heimbach, Mon Sep 20 23:22:58 2004 UTC | |
---|---|---|
# | Line 87 C == Routine arguments == | Line 87 C == Routine arguments == |
87 | INTEGER myThid | INTEGER myThid |
88 | ||
89 | #ifdef ALLOW_ORLANSKI | #ifdef ALLOW_ORLANSKI |
90 | #ifdef ALLOW_OBCS_WEST | |
91 | ||
92 | C == Local variables == | C == Local variables == |
93 | INTEGER J, K, I_obc | INTEGER J, K, I_obc |
# | Line 285 C copy (current time) t to | Line 286 C copy (current time) t to |
286 | ENDDO | ENDDO |
287 | ENDDO | ENDDO |
288 | ||
289 | #endif | |
290 | #endif /* ALLOW_ORLANSKI */ | #endif /* ALLOW_ORLANSKI */ |
291 | RETURN | RETURN |
292 | END | END |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |