/[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.177 by jmc, Sun Oct 9 18:13:09 2016 UTC revision 1.178 by jmc, Mon Nov 28 23:05:05 2016 UTC
# Line 578  C--     end of dynamics k loop (1:Nr) Line 578  C--     end of dynamics k loop (1:Nr)
578  C--     Implicit Vertical advection & viscosity  C--     Implicit Vertical advection & viscosity
579  #if (defined (INCLUDE_IMPLVERTADV_CODE) && \  #if (defined (INCLUDE_IMPLVERTADV_CODE) && \
580       defined (ALLOW_MOM_COMMON) && !(defined ALLOW_AUTODIFF))       defined (ALLOW_MOM_COMMON) && !(defined ALLOW_AUTODIFF))
581          IF ( momImplVertAdv .OR. implicitViscosity ) THEN          IF ( momImplVertAdv .OR. implicitViscosity
582         &                      .OR. selectImplicitDrag.GE.1 ) THEN
583  C      to recover older (prior to 2016-10-05) results:  C      to recover older (prior to 2016-10-05) results:
584  c       IF ( momImplVertAdv ) THEN  c       IF ( momImplVertAdv ) THEN
585            CALL MOM_U_IMPLICIT_R( kappaRU,            CALL MOM_U_IMPLICIT_R( kappaRU,
Legend:
Removed from v.1.177  
changed lines
  Added in v.1.178
  ViewVC Help
Powered by ViewVC 1.1.22