26 |
|
|
27 |
C !INPUT/OUTPUT PARAMETERS: |
C !INPUT/OUTPUT PARAMETERS: |
28 |
C == Routine arguments == |
C == Routine arguments == |
29 |
C myThid - Number of this instance of INI_VEL |
C myThid :: Number of this instance of INI_VEL |
30 |
INTEGER myThid |
INTEGER myThid |
31 |
|
|
32 |
C !LOCAL VARIABLES: |
C !LOCAL VARIABLES: |
33 |
C == Local variables == |
C == Local variables == |
34 |
C bi,bj,i,j,k - Loop counters |
C i,j,k :: Loop counters |
35 |
|
C bi,bj :: tile indices |
36 |
INTEGER bi,bj,i,j,k |
INTEGER bi,bj,i,j,k |
37 |
CEOP |
CEOP |
38 |
|
|
56 |
ENDDO |
ENDDO |
57 |
ENDDO |
ENDDO |
58 |
|
|
59 |
|
IF (uVelInitFile .NE. ' ' .OR. vVelInitFile .NE. ' ') THEN |
60 |
|
_BARRIER |
61 |
C Read an initial state for each component if required |
C Read an initial state for each component if required |
62 |
IF (uVelInitFile .NE. ' ') THEN |
IF (uVelInitFile .NE. ' ') |
63 |
_BEGIN_MASTER( myThid ) |
& CALL READ_FLD_XYZ_RL( uVelInitFile, ' ', uVel, 0, myThid ) |
|
CALL READ_FLD_XYZ_RL( uVelInitFile, ' ', uVel, 0, myThid ) |
|
|
_END_MASTER(myThid) |
|
|
c _EXCH_XYZ_R8(uVel , myThid ) |
|
|
ENDIF |
|
64 |
|
|
65 |
IF (vVelInitFile .NE. ' ') THEN |
IF (vVelInitFile .NE. ' ') |
66 |
_BEGIN_MASTER( myThid ) |
& CALL READ_FLD_XYZ_RL( vVelInitFile, ' ', vVel, 0, myThid ) |
|
CALL READ_FLD_XYZ_RL( vVelInitFile, ' ', vVel, 0, myThid ) |
|
|
_END_MASTER(myThid) |
|
|
c _EXCH_XYZ_R8(vVel , myThid ) |
|
|
ENDIF |
|
67 |
|
|
|
c IF (uVelInitFile .NE. ' ' .OR. vVelInitFile .NE. ' ') THEN |
|
68 |
CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid) |
CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid) |
69 |
c ENDIF |
ENDIF |
70 |
|
|
71 |
DO bj = myByLo(myThid), myByHi(myThid) |
DO bj = myByLo(myThid), myByHi(myThid) |
72 |
DO bi = myBxLo(myThid), myBxHi(myThid) |
DO bi = myBxLo(myThid), myBxHi(myThid) |