420 |
#endif /* ALLOW_AUTODIFF_TAMC */ |
#endif /* ALLOW_AUTODIFF_TAMC */ |
421 |
CALL IMPLDIFF( |
CALL IMPLDIFF( |
422 |
I bi, bj, iMin, iMax, jMin, jMax, |
I bi, bj, iMin, iMax, jMin, jMax, |
423 |
I deltaTmom, KappaRU,recip_HFacW, |
I 0, KappaRU,recip_HFacW, |
424 |
U gU, |
U gU, |
425 |
I myThid ) |
I myThid ) |
426 |
#ifdef ALLOW_AUTODIFF_TAMC |
#ifdef ALLOW_AUTODIFF_TAMC |
429 |
#endif /* ALLOW_AUTODIFF_TAMC */ |
#endif /* ALLOW_AUTODIFF_TAMC */ |
430 |
CALL IMPLDIFF( |
CALL IMPLDIFF( |
431 |
I bi, bj, iMin, iMax, jMin, jMax, |
I bi, bj, iMin, iMax, jMin, jMax, |
432 |
I deltaTmom, KappaRV,recip_HFacS, |
I 0, KappaRV,recip_HFacS, |
433 |
U gV, |
U gV, |
434 |
I myThid ) |
I myThid ) |
435 |
ENDIF |
ENDIF |
450 |
#endif /* ALLOW_AUTODIFF_TAMC */ |
#endif /* ALLOW_AUTODIFF_TAMC */ |
451 |
CALL IMPLDIFF( |
CALL IMPLDIFF( |
452 |
I bi, bj, iMin, iMax, jMin, jMax, |
I bi, bj, iMin, iMax, jMin, jMax, |
453 |
I deltaTmom, KappaRU,recip_HFacW, |
I 0, KappaRU,recip_HFacW, |
454 |
U vVelD, |
U vVelD, |
455 |
I myThid ) |
I myThid ) |
456 |
#ifdef ALLOW_AUTODIFF_TAMC |
#ifdef ALLOW_AUTODIFF_TAMC |
458 |
#endif /* ALLOW_AUTODIFF_TAMC */ |
#endif /* ALLOW_AUTODIFF_TAMC */ |
459 |
CALL IMPLDIFF( |
CALL IMPLDIFF( |
460 |
I bi, bj, iMin, iMax, jMin, jMax, |
I bi, bj, iMin, iMax, jMin, jMax, |
461 |
I deltaTmom, KappaRV,recip_HFacS, |
I 0, KappaRV,recip_HFacS, |
462 |
U uVelD, |
U uVelD, |
463 |
I myThid ) |
I myThid ) |
464 |
ENDIF |
ENDIF |