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, |
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 |