/[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.136 by jmc, Fri Jul 7 20:10:35 2006 UTC revision 1.137 by heimbach, Tue Jan 30 03:18:13 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
 #ifdef ALLOW_AUTODIFF_TAMC  
 cph(  
 c--   need some re-initialisation here to break dependencies  
 cph)  
 # ifdef NONLIN_FRSURF  
 #  ifndef DISABLE_RSTAR_CODE  
           dWtransC(i,j,bi,bj)  = 0. _d 0  
           dWtransU(i,j,bi,bj)  = 0. _d 0  
           dWtransV(i,j,bi,bj)  = 0. _d 0  
 #  endif  
 # endif /* NONLIN_FRSURF */  
 #endif /* ALLOW_AUTODIFF_TAMC */  
319           ENDDO           ENDDO
320          ENDDO          ENDDO
321    
# Line 425  CADJ STORE gunm1(:,:,k,bi,bj) Line 413  CADJ STORE gunm1(:,:,k,bi,bj)
413  CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte  CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
414  CADJ STORE gvnm1(:,:,k,bi,bj)  CADJ STORE gvnm1(:,:,k,bi,bj)
415  CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte  CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
 #  ifndef DISABLE_RSTAR_CODE  
 CADJ STORE dwtransc(:,:,bi,bj)  
 CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte  
 CADJ STORE dwtransu(:,:,bi,bj)  
 CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte  
 CADJ STORE dwtransv(:,:,bi,bj)  
 CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte  
 #  endif  
416  #  ifdef ALLOW_CD_CODE  #  ifdef ALLOW_CD_CODE
417  CADJ STORE unm1(:,:,k,bi,bj)  CADJ STORE unm1(:,:,k,bi,bj)
418  CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte  CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
# Line 476  C        and step forward storing the re Line 456  C        and step forward storing the re
456             IF (.NOT. vectorInvariantMomentum) THEN             IF (.NOT. vectorInvariantMomentum) THEN
457  #ifdef ALLOW_MOM_FLUXFORM  #ifdef ALLOW_MOM_FLUXFORM
458  C  C
 # ifdef ALLOW_AUTODIFF_TAMC  
 #  ifdef NONLIN_FRSURF  
 #   ifndef DISABLE_RSTAR_CODE  
 CADJ STORE dwtransc(:,:,bi,bj)  
 CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte  
 CADJ STORE dwtransu(:,:,bi,bj)  
 CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte  
 CADJ STORE dwtransv(:,:,bi,bj)  
 CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte  
 #   endif  
 #  endif  
 # endif /* ALLOW_AUTODIFF_TAMC */  
 C  
459                CALL MOM_FLUXFORM(                CALL MOM_FLUXFORM(
460       I         bi,bj,iMin,iMax,jMin,jMax,k,kup,kDown,       I         bi,bj,iMin,iMax,jMin,jMax,k,kup,kDown,
461       I         KappaRU, KappaRV,       I         KappaRU, KappaRV,
Legend:
Removed from v.1.136  
changed lines
  Added in v.1.137
  ViewVC Help
Powered by ViewVC 1.1.22