71 |
|
|
72 |
c uFld = uVel(i,j,k,bi,bj) |
c uFld = uVel(i,j,k,bi,bj) |
73 |
uFld = uTrans(i,j)*recip_dyG(i,j,bi,bj) |
uFld = uTrans(i,j)*recip_dyG(i,j,bi,bj) |
74 |
& *recip_drF(k)*recip_hFacW(i,j,k,bi,bj) |
& *recip_drF(k)*_recip_hFacW(i,j,k,bi,bj) |
75 |
Rjp=(tracer(i+1,j)-tracer( i ,j))*maskLocW(i+1,j) |
Rjp=(tracer(i+1,j)-tracer( i ,j))*maskLocW(i+1,j) |
76 |
Rj =(tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j) |
Rj =(tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j) |
77 |
Rjm=(tracer(i-1,j)-tracer(i-2,j))*maskLocW(i-1,j) |
Rjm=(tracer(i-1,j)-tracer(i-2,j))*maskLocW(i-1,j) |