/[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.176 by jmc, Wed Dec 24 19:09:33 2014 UTC revision 1.177 by jmc, Sun Oct 9 18:13:09 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 ) THEN          IF ( momImplVertAdv .OR. implicitViscosity ) THEN
582    C      to recover older (prior to 2016-10-05) results:
583    c       IF ( momImplVertAdv ) THEN
584            CALL MOM_U_IMPLICIT_R( kappaRU,            CALL MOM_U_IMPLICIT_R( kappaRU,
585       I                           bi, bj, myTime, myIter, myThid )       I                           bi, bj, myTime, myIter, myThid )
586            CALL MOM_V_IMPLICIT_R( kappaRV,            CALL MOM_V_IMPLICIT_R( kappaRV,
Legend:
Removed from v.1.176  
changed lines
  Added in v.1.177
  ViewVC Help
Powered by ViewVC 1.1.22