/[MITgcm]/MITgcm/model/src/dynamics.F
ViewVC logotype

Diff of /MITgcm/model/src/dynamics.F

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

revision 1.137 by heimbach, Tue Jan 30 03:18:13 2007 UTC revision 1.138 by heimbach, Sat Aug 18 21:34:01 2007 UTC
# Line 316  cph) Line 316  cph)
316            phiSurfY(i,j)  = 0. _d 0            phiSurfY(i,j)  = 0. _d 0
317            guDissip(i,j)  = 0. _d 0            guDissip(i,j)  = 0. _d 0
318            gvDissip(i,j)  = 0. _d 0            gvDissip(i,j)  = 0. _d 0
319    #ifdef ALLOW_AUTODIFF_TAMC
320    # ifdef NONLIN_FRSURF
321    #  ifndef DISABLE_RSTAR_CODE
322              dWtransC(i,j,bi,bj) = 0. _d 0
323              dWtransU(i,j,bi,bj) = 0. _d 0
324              dWtransV(i,j,bi,bj) = 0. _d 0
325    #  endif
326    # endif
327    #endif
328           ENDDO           ENDDO
329          ENDDO          ENDDO
330    
# Line 453  C        phiHyd(z=0)=0 Line 462  C        phiHyd(z=0)=0
462  C--      Calculate accelerations in the momentum equations (gU, gV, ...)  C--      Calculate accelerations in the momentum equations (gU, gV, ...)
463  C        and step forward storing the result in gU, gV, etc...  C        and step forward storing the result in gU, gV, etc...
464           IF ( momStepping ) THEN           IF ( momStepping ) THEN
465    #ifdef ALLOW_AUTODIFF_TAMC
466    # ifdef NONLIN_FRSURF
467    #  ifndef DISABLE_RSTAR_CODE
468    CADJ STORE dWtransC(:,:,bi,bj)
469    CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
470    CADJ STORE dWtransU(:,:,bi,bj)
471    CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
472    CADJ STORE dWtransV(:,:,bi,bj)
473    CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
474    #  endif
475    # endif
476    #endif
477             IF (.NOT. vectorInvariantMomentum) THEN             IF (.NOT. vectorInvariantMomentum) THEN
478  #ifdef ALLOW_MOM_FLUXFORM  #ifdef ALLOW_MOM_FLUXFORM
479  C  C
Legend:
Removed from v.1.137  
changed lines
  Added in v.1.138
  ViewVC Help
Powered by ViewVC 1.1.22