/[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.43 by adcroft, Mon May 24 15:42:23 1999 UTC revision 1.44 by adcroft, Wed Jul 28 16:32:12 1999 UTC
# Line 501  C--     Implicit diffusion Line 501  C--     Implicit diffusion
501       I         deltaTtracer, KappaRS,recip_HFacC,       I         deltaTtracer, KappaRS,recip_HFacC,
502       U         gSNm1,       U         gSNm1,
503       I         myThid )       I         myThid )
504            ENDIF ! implicitDiffusion
505    C--     Implicit viscosity
506            IF (implicitViscosity) THEN
507           IF (momStepping) THEN           IF (momStepping) THEN
508            CALL IMPLDIFF(            CALL IMPLDIFF(
509       I         bi, bj, iMin, iMax, jMin, jMax,       I         bi, bj, iMin, iMax, jMin, jMax,
# Line 525  C--     Implicit diffusion Line 528  C--     Implicit diffusion
528       I         myThid )       I         myThid )
529  #endif  #endif
530           ENDIF ! momStepping           ENDIF ! momStepping
531          ENDIF ! implicitDiffusion          ENDIF ! implicitViscosity
532    
533         ENDDO         ENDDO
534        ENDDO        ENDDO
Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44
  ViewVC Help
Powered by ViewVC 1.1.22