7 |
I bi,bj,iMin,iMax,jMin,jMax,k,kUp,kDown, |
I bi,bj,iMin,iMax,jMin,jMax,k,kUp,kDown, |
8 |
I phi_hyd,KappaRU,KappaRV, |
I phi_hyd,KappaRU,KappaRV, |
9 |
U fVerU, fVerV, |
U fVerU, fVerV, |
10 |
I myCurrentTime, myThid) |
I myCurrentTime, myIter, myThid) |
11 |
C /==========================================================\ |
C /==========================================================\ |
12 |
C | S/R MOM_FLUXFORM | |
C | S/R MOM_FLUXFORM | |
13 |
C | o Form the right hand-side of the momentum equation. | |
C | o Form the right hand-side of the momentum equation. | |
53 |
_RL fVerU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,2) |
_RL fVerU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,2) |
54 |
_RL fVerV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,2) |
_RL fVerV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,2) |
55 |
INTEGER kUp,kDown |
INTEGER kUp,kDown |
|
INTEGER myThid |
|
56 |
_RL myCurrentTime |
_RL myCurrentTime |
57 |
|
INTEGER myIter |
58 |
|
INTEGER myThid |
59 |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
INTEGER bi,bj,iMin,iMax,jMin,jMax |
60 |
|
|
61 |
C == Local variables == |
C == Local variables == |