/[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.10 by edhill, Fri Oct 31 20:35:32 2003 UTC revision 1.12 by jmc, Sat Jan 3 00:51:42 2004 UTC
# Line 57  C     myThid - Instance number for this Line 57  C     myThid - Instance number for this
57        INTEGER myThid        INTEGER myThid
58        INTEGER bi,bj,iMin,iMax,jMin,jMax        INTEGER bi,bj,iMin,iMax,jMin,jMax
59    
60  #ifndef DISABLE_MOM_VECINV  #ifdef ALLOW_MOM_VECINV
61    
62  C     == Functions ==  C     == Functions ==
63        LOGICAL  DIFFERENT_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
# Line 435  c      CALL MOM_VI_V_CORIOLIS_C4(bi,bj,K Line 435  c      CALL MOM_VI_V_CORIOLIS_C4(bi,bj,K
435  #endif  #endif
436    
437  C--   Vertical shear terms (-w*du/dr & -w*dv/dr)  C--   Vertical shear terms (-w*du/dr & -w*dv/dr)
438         CALL MOM_VI_U_VERTSHEAR(bi,bj,K,uVel,wVel,uCf,myThid)         IF ( .NOT. momImplVertAdv ) THEN
439         DO j=jMin,jMax          CALL MOM_VI_U_VERTSHEAR(bi,bj,K,uVel,wVel,uCf,myThid)
440          DO i=iMin,iMax          DO j=jMin,jMax
441           gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j)           DO i=iMin,iMax
442          ENDDO            gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j)
443         ENDDO           ENDDO
444         CALL MOM_VI_V_VERTSHEAR(bi,bj,K,vVel,wVel,vCf,myThid)          ENDDO
445         DO j=jMin,jMax          CALL MOM_VI_V_VERTSHEAR(bi,bj,K,vVel,wVel,vCf,myThid)
446          DO i=iMin,iMax          DO j=jMin,jMax
447           gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j)           DO i=iMin,iMax
448              gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j)
449             ENDDO
450          ENDDO          ENDDO
451         ENDDO         ENDIF
452    
453  C--   Bernoulli term  C--   Bernoulli term
454         CALL MOM_VI_U_GRAD_KE(bi,bj,K,KE,uCf,myThid)         CALL MOM_VI_U_GRAD_KE(bi,bj,K,KE,uCf,myThid)
# Line 489  c      CALL WRITE_LOCAL_RL('W3','I10',1, Line 491  c      CALL WRITE_LOCAL_RL('W3','I10',1,
491         CALL WRITE_LOCAL_RL('D','I10',1,hdiv,bi,bj,k,myIter,myThid)         CALL WRITE_LOCAL_RL('D','I10',1,hdiv,bi,bj,k,myIter,myThid)
492        ENDIF        ENDIF
493    
494  #endif /* DISABLE_MOM_VECINV */  #endif /* ALLOW_MOM_VECINV */
495    
496        RETURN        RETURN
497        END        END
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22