Parent Directory | Revision Log | Revision Graph | Patch
revision 1.2 by adcroft, Fri Feb 2 21:04:48 2001 UTC | revision 1.3 by adcroft, Thu Sep 13 17:43:55 2001 UTC | |
---|---|---|
# | Line 26 C-- Initialize fixed arrays for OBCS | Line 26 C-- Initialize fixed arrays for OBCS |
26 | CALL OBCS_INIT_FIXED( myThid ) | CALL OBCS_INIT_FIXED( myThid ) |
27 | ENDIF | ENDIF |
28 | #endif | #endif |
29 | #ifdef ALLOW_FLT | |
30 | C-- Initialise Float positions | |
31 | IF (useFLT) then | |
32 | CALL FLT_INIT(nIter0,startTime,myThid ) | |
33 | _BARRIER | |
34 | ENDIF | |
35 | #endif | |
36 | ||
37 | RETURN | RETURN |
38 | END | END |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |