308 |
ENDDO |
ENDDO |
309 |
ENDIF |
ENDIF |
310 |
|
|
311 |
C-- Forcing term |
C-- Forcing term (moved to timestep.F) |
312 |
IF (momForcing) |
c IF (momForcing) |
313 |
& CALL EXTERNAL_FORCING_U( |
c & CALL EXTERNAL_FORCING_U( |
314 |
I iMin,iMax,jMin,jMax,bi,bj,k, |
c I iMin,iMax,jMin,jMax,bi,bj,k, |
315 |
I myCurrentTime,myThid) |
c I myCurrentTime,myThid) |
316 |
|
|
317 |
C-- Metric terms for curvilinear grid systems |
C-- Metric terms for curvilinear grid systems |
318 |
c IF (usingSphericalPolarMTerms) THEN |
c IF (usingSphericalPolarMTerms) THEN |
374 |
ENDDO |
ENDDO |
375 |
ENDIF |
ENDIF |
376 |
|
|
377 |
C-- Forcing term |
C-- Forcing term (moved to timestep.F) |
378 |
IF (momForcing) |
c IF (momForcing) |
379 |
& CALL EXTERNAL_FORCING_V( |
c & CALL EXTERNAL_FORCING_V( |
380 |
I iMin,iMax,jMin,jMax,bi,bj,k, |
c I iMin,iMax,jMin,jMax,bi,bj,k, |
381 |
I myCurrentTime,myThid) |
c I myCurrentTime,myThid) |
382 |
|
|
383 |
C-- Metric terms for curvilinear grid systems |
C-- Metric terms for curvilinear grid systems |
384 |
c IF (usingSphericalPolarMTerms) THEN |
c IF (usingSphericalPolarMTerms) THEN |
392 |
c ENDIF |
c ENDIF |
393 |
|
|
394 |
C-- Horizontal Coriolis terms |
C-- Horizontal Coriolis terms |
395 |
IF (useCoriolis) THEN |
IF (useCoriolis .AND. .NOT.useCDscheme) THEN |
396 |
CALL MOM_VI_CORIOLIS(bi,bj,K,uFld,vFld,omega3,r_hFacZ, |
CALL MOM_VI_CORIOLIS(bi,bj,K,uFld,vFld,omega3,r_hFacZ, |
397 |
& uCf,vCf,myThid) |
& uCf,vCf,myThid) |
398 |
DO j=jMin,jMax |
DO j=jMin,jMax |