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

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

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

revision 1.41 by jmc, Mon Nov 30 19:22:45 2009 UTC revision 1.42 by jmc, Fri Dec 11 13:53:07 2009 UTC
# Line 555  C--   Dissipation term inside the Adams- Line 555  C--   Dissipation term inside the Adams-
555    
556  C-    Compute effective gW_[n+1/2] terms (including Adams-Bashforth weights)  C-    Compute effective gW_[n+1/2] terms (including Adams-Bashforth weights)
557  C     and save gW_[n] into gwNm1 for the next time step.  C     and save gW_[n] into gwNm1 for the next time step.
558  c#ifdef ALLOW_ADAMSBASHFORTH_3  #ifdef ALLOW_ADAMSBASHFORTH_3
559  c       CALL ADAMS_BASHFORTH3(          CALL ADAMS_BASHFORTH3(
560  c    I                         bi, bj, k,       I                         bi, bj, k,
561  c    U                         gW, gwNm,       U                         gW, gwNm,
562  c    I                         nHydStartAB, myIter, myThid )       I                         nHydStartAB, myIter, myThid )
563  c#else /* ALLOW_ADAMSBASHFORTH_3 */  #else /* ALLOW_ADAMSBASHFORTH_3 */
564          CALL ADAMS_BASHFORTH2(          CALL ADAMS_BASHFORTH2(
565       I                         bi, bj, k,       I                         bi, bj, k,
566       U                         gW, gwNm1,       U                         gW, gwNm1,
567       I                         nHydStartAB, myIter, myThid )       I                         nHydStartAB, myIter, myThid )
568  c#endif /* ALLOW_ADAMSBASHFORTH_3 */  #endif /* ALLOW_ADAMSBASHFORTH_3 */
569    
570  C--   Dissipation term outside the Adams-Bashforth:  C--   Dissipation term outside the Adams-Bashforth:
571          IF ( momViscosity .AND. .NOT.momDissip_In_AB ) THEN          IF ( momViscosity .AND. .NOT.momDissip_In_AB ) THEN
Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42
  ViewVC Help
Powered by ViewVC 1.1.22