46 |
ENDIF |
ENDIF |
47 |
prec = precFloat64 |
prec = precFloat64 |
48 |
|
|
49 |
|
C-- Unlike horizontal 2D or 3D IO routines, no thread synchronisation is |
50 |
|
C done within Vertical Section IO routines. Since only thread one is |
51 |
|
C doing IO, we need a barrier here to wait for every one to finish. |
52 |
|
_BARRIER |
53 |
|
|
54 |
#ifdef ALLOW_OBCS_NORTH |
#ifdef ALLOW_OBCS_NORTH |
55 |
IF ( useOrlanskiNorth ) THEN |
IF ( useOrlanskiNorth ) THEN |
56 |
C READ N and S OB storage and phase speed arrays |
C READ N and S OB storage and phase speed arrays |
214 |
C same with CVEL_WS, CVEL_WE, CVEL_WW |
C same with CVEL_WS, CVEL_WE, CVEL_WW |
215 |
c#endif |
c#endif |
216 |
|
|
217 |
|
C-- Every one wait for thread 1 to finish (see comment @ the top) |
218 |
|
_BARRIER |
219 |
|
|
220 |
#endif /* ALLOW_ORLANSKI */ |
#endif /* ALLOW_ORLANSKI */ |
221 |
RETURN |
RETURN |
222 |
END |
END |