62 |
DO j=jMin,jMax |
DO j=jMin,jMax |
63 |
DO i=iMin,iMax |
DO i=iMin,iMax |
64 |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
65 |
& +foFacMom*surfaceTendencyU(i,j,bi,bj) |
& +foFacMom*surfaceForcingU(i,j,bi,bj) |
66 |
& *_maskW(i,j,kLev,bi,bj) |
& *recip_drF(kLev)*recip_hFacW(i,j,kLev,bi,bj) |
67 |
ENDDO |
ENDDO |
68 |
ENDDO |
ENDDO |
69 |
ENDIF |
ENDIF |
92 |
& -SIN( tidal_freq*myCurrentTime + 2.*longitud1 ) |
& -SIN( tidal_freq*myCurrentTime + 2.*longitud1 ) |
93 |
& )*recip_DXC(i,j,bi,bj) |
& )*recip_DXC(i,j,bi,bj) |
94 |
& *_maskW(i,j,kLev,bi,bj) |
& *_maskW(i,j,kLev,bi,bj) |
95 |
& *min( myCurrentTime/86400. , 1.) |
c & *min( myCurrentTime/86400. , 1.) |
96 |
ENDDO |
ENDDO |
97 |
ENDDO |
ENDDO |
98 |
|
|
163 |
DO j=jMin,jMax |
DO j=jMin,jMax |
164 |
DO i=iMin,iMax |
DO i=iMin,iMax |
165 |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
166 |
& +foFacMom*surfaceTendencyV(i,j,bi,bj) |
& +foFacMom*surfaceForcingV(i,j,bi,bj) |
167 |
& *_maskS(i,j,kLev,bi,bj) |
& *recip_drF(kLev)*recip_hFacS(i,j,kLev,bi,bj) |
168 |
ENDDO |
ENDDO |
169 |
ENDDO |
ENDDO |
170 |
ENDIF |
ENDIF |
243 |
DO j=jMin,jMax |
DO j=jMin,jMax |
244 |
DO i=iMin,iMax |
DO i=iMin,iMax |
245 |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
246 |
& +maskC(i,j,kLev,bi,bj)*surfaceTendencyT(i,j,bi,bj) |
& +surfaceForcingT(i,j,bi,bj) |
247 |
|
& *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj) |
248 |
ENDDO |
ENDDO |
249 |
ENDDO |
ENDDO |
250 |
ENDIF |
ENDIF |
335 |
DO j=jMin,jMax |
DO j=jMin,jMax |
336 |
DO i=iMin,iMax |
DO i=iMin,iMax |
337 |
gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) |
gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) |
338 |
& +maskC(i,j,kLev,bi,bj)*surfaceTendencyS(i,j,bi,bj) |
& +surfaceForcingS(i,j,bi,bj) |
339 |
|
& *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj) |
340 |
ENDDO |
ENDDO |
341 |
ENDDO |
ENDDO |
342 |
ENDIF |
ENDIF |