Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.146 by jmc, Fri May 14 23:21:02 2010 UTC | revision 1.147 by gforget, Tue Aug 10 17:58:30 2010 UTC | |
|---|---|---|
| # | Line 560 C-- end of dynamics k loop (1:Nr) | Line 560 C-- end of dynamics k loop (1:Nr) |
| 560 | ENDDO | ENDDO |
| 561 | ||
| 562 | C-- Implicit Vertical advection & viscosity | C-- Implicit Vertical advection & viscosity |
| 563 | #if (defined (INCLUDE_IMPLVERTADV_CODE) && defined (ALLOW_MOM_COMMON)) | #if (defined (INCLUDE_IMPLVERTADV_CODE) && \ |
| 564 | defined (ALLOW_MOM_COMMON) && !(defined ALLOW_AUTODIFF_TAMC)) | |
| 565 | IF ( momImplVertAdv ) THEN | IF ( momImplVertAdv ) THEN |
| 566 | CALL MOM_U_IMPLICIT_R( kappaRU, | CALL MOM_U_IMPLICIT_R( kappaRU, |
| 567 | I bi, bj, myTime, myIter, myThid ) | I bi, bj, myTime, myIter, myThid ) |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |