1 |
C $Header$ |
C $Header$ |
2 |
C $Name$ |
C $Name$ |
3 |
|
|
4 |
|
#include "PACKAGES_CONFIG.h" |
5 |
#include "CPP_OPTIONS.h" |
#include "CPP_OPTIONS.h" |
6 |
|
|
7 |
CBOP |
CBOP |
321 |
ENDDO |
ENDDO |
322 |
#endif |
#endif |
323 |
|
|
324 |
|
#ifdef ALLOW_AUTODIFF_TAMC |
325 |
|
CADJ STORE KappaRU(:,:,:) |
326 |
|
CADJ & = comlev1_bibj, key=idynkey, byte=isbyte |
327 |
|
CADJ STORE KappaRV(:,:,:) |
328 |
|
CADJ & = comlev1_bibj, key=idynkey, byte=isbyte |
329 |
|
#endif /* ALLOW_AUTODIFF_TAMC */ |
330 |
|
|
331 |
C-- Start of dynamics loop |
C-- Start of dynamics loop |
332 |
DO k=1,Nr |
DO k=1,Nr |
333 |
|
|
412 |
C-- Implicit viscosity |
C-- Implicit viscosity |
413 |
IF (implicitViscosity.AND.momStepping) THEN |
IF (implicitViscosity.AND.momStepping) THEN |
414 |
#ifdef ALLOW_AUTODIFF_TAMC |
#ifdef ALLOW_AUTODIFF_TAMC |
415 |
|
CADJ STORE KappaRU(:,:,:) = comlev1_bibj , key=idynkey, byte=isbyte |
416 |
CADJ STORE gU(:,:,:,bi,bj) = comlev1_bibj , key=idynkey, byte=isbyte |
CADJ STORE gU(:,:,:,bi,bj) = comlev1_bibj , key=idynkey, byte=isbyte |
417 |
#endif /* ALLOW_AUTODIFF_TAMC */ |
#endif /* ALLOW_AUTODIFF_TAMC */ |
418 |
CALL IMPLDIFF( |
CALL IMPLDIFF( |
421 |
U gU, |
U gU, |
422 |
I myThid ) |
I myThid ) |
423 |
#ifdef ALLOW_AUTODIFF_TAMC |
#ifdef ALLOW_AUTODIFF_TAMC |
424 |
|
CADJ STORE KappaRV(:,:,:) = comlev1_bibj , key=idynkey, byte=isbyte |
425 |
CADJ STORE gV(:,:,:,bi,bj) = comlev1_bibj , key=idynkey, byte=isbyte |
CADJ STORE gV(:,:,:,bi,bj) = comlev1_bibj , key=idynkey, byte=isbyte |
426 |
#endif /* ALLOW_AUTODIFF_TAMC */ |
#endif /* ALLOW_AUTODIFF_TAMC */ |
427 |
CALL IMPLDIFF( |
CALL IMPLDIFF( |
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 |
|
|