50 |
& *recip_hFacW(i,j,k,bi,bj) |
& *recip_hFacW(i,j,k,bi,bj) |
51 |
|
|
52 |
vVel(i,j,k,bi,bj)=0. |
vVel(i,j,k,bi,bj)=0. |
|
wVel(i,j,k,bi,bj)=0. |
|
53 |
ENDDO |
ENDDO |
54 |
ENDDO |
ENDDO |
55 |
ENDDO |
ENDDO |
80 |
vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
81 |
ENDDO |
ENDDO |
82 |
ENDDO |
ENDDO |
|
CALL INTEGRATE_FOR_W( |
|
|
I bi, bj, k, uVel, vVel, |
|
|
O wVel, |
|
|
I myThid ) |
|
83 |
ENDDO |
ENDDO |
84 |
ENDDO |
ENDDO |
85 |
ENDDO |
ENDDO |
86 |
|
|
87 |
c IF (uVelInitFile .NE. ' ' .OR. vVelInitFile .NE. ' ') THEN |
c IF (uVelInitFile .NE. ' ' .OR. vVelInitFile .NE. ' ') THEN |
88 |
CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid) |
CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid) |
|
_EXCH_XYZ_R8(wVel,myThid) |
|
89 |
c ENDIF |
c ENDIF |
90 |
|
|
91 |
RETURN |
RETURN |