/[MITgcm]/MITgcm/pkg/mom_vecinv/mom_vecinv.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_vecinv/mom_vecinv.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.5 by jmc, Fri Apr 11 13:35:03 2003 UTC revision 1.6 by jmc, Thu Apr 17 13:42:53 2003 UTC
# Line 308  C-    No-slip BCs impose a drag at botto Line 308  C-    No-slip BCs impose a drag at botto
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
# Line 374  C-    No-slip BCs impose a drag at botto Line 374  C-    No-slip BCs impose a drag at botto
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
# Line 392  c      ENDDO Line 392  c      ENDDO
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
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22