476 |
ENDDO |
ENDDO |
477 |
|
|
478 |
C-- Implicit Vertical advection & viscosity |
C-- Implicit Vertical advection & viscosity |
479 |
#ifdef INCLUDE_IMPLVERTADV_CODE |
#if (defined (INCLUDE_IMPLVERTADV_CODE) && defined (ALLOW_MOM_COMMON)) |
480 |
IF ( momImplVertAdv ) THEN |
IF ( momImplVertAdv ) THEN |
481 |
CALL MOM_U_IMPLICIT_R( kappaRU, |
CALL MOM_U_IMPLICIT_R( kappaRU, |
482 |
I bi, bj, myTime, myIter, myThid ) |
I bi, bj, myTime, myIter, myThid ) |
575 |
Cml) |
Cml) |
576 |
|
|
577 |
#ifdef ALLOW_DIAGNOSTICS |
#ifdef ALLOW_DIAGNOSTICS |
578 |
IF ( usediagnostics ) THEN |
IF ( useDiagnostics ) THEN |
579 |
|
|
580 |
CALL DIAGNOSTICS_FILL(totPhihyd,'PHIHYD ',0,Nr,0,1,1,myThid) |
CALL DIAGNOSTICS_FILL(totPhihyd,'PHIHYD ',0,Nr,0,1,1,myThid) |
581 |
CALL DIAGNOSTICS_FILL(phiHydLow,'PHIBOT ',0, 1,0,1,1,myThid) |
CALL DIAGNOSTICS_FILL(phiHydLow,'PHIBOT ',0, 1,0,1,1,myThid) |