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

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

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

revision 1.2 by jmc, Thu Oct 13 19:43:07 2005 UTC revision 1.3 by heimbach, Thu Dec 8 15:44:34 2005 UTC
# Line 44  C     == Global variables === Line 44  C     == Global variables ===
44  #ifdef ALLOW_ZONAL_FILT  #ifdef ALLOW_ZONAL_FILT
45  #include "ZONAL_FILT.h"  #include "ZONAL_FILT.h"
46  #endif  #endif
47    #ifdef ALLOW_AUTODIFF_TAMC
48    #include "tamc.h"
49    #endif
50    
51  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
52  C     == Routine arguments ==  C     == Routine arguments ==
# Line 134  C--   Filter (and exchange) Line 137  C--   Filter (and exchange)
137        ENDIF        ENDIF
138  #endif  #endif
139    
140    #ifdef ALLOW_AUTODIFF_TAMC
141    # ifdef NONLIN_FRSURF
142    cph-test
143    CADJ STORE uvel, vvel  = comlev1, key = ikey_dynamics
144    # endif
145    #endif
146        DO bj=myByLo(myThid),myByHi(myThid)        DO bj=myByLo(myThid),myByHi(myThid)
147         DO bi=myBxLo(myThid),myBxHi(myThid)         DO bi=myBxLo(myThid),myBxHi(myThid)
148    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22