439 |
END IF |
END IF |
440 |
#endif /* ALLOW_OBCS */ |
#endif /* ALLOW_OBCS */ |
441 |
|
|
442 |
#ifdef INCLUDE_CD_CODE |
#ifdef ALLOW_CD_CODE |
443 |
#ifdef ALLOW_AUTODIFF_TAMC |
#ifdef ALLOW_AUTODIFF_TAMC |
444 |
CADJ STORE vVelD(:,:,:,bi,bj) = comlev1_bibj , key=idynkey, byte=isbyte |
CADJ STORE vVelD(:,:,:,bi,bj) = comlev1_bibj , key=idynkey, byte=isbyte |
445 |
#endif /* ALLOW_AUTODIFF_TAMC */ |
#endif /* ALLOW_AUTODIFF_TAMC */ |
456 |
I deltaTmom, KappaRV,recip_HFacS, |
I deltaTmom, KappaRV,recip_HFacS, |
457 |
U uVelD, |
U uVelD, |
458 |
I myThid ) |
I myThid ) |
459 |
#endif /* INCLUDE_CD_CODE */ |
#endif /* ALLOW_CD_CODE */ |
460 |
C-- End If implicitViscosity.AND.momStepping |
C-- End If implicitViscosity.AND.momStepping |
461 |
ENDIF |
ENDIF |
462 |
|
|