433 |
#endif /* ALLOW_AUTODIFF_TAMC */ |
#endif /* ALLOW_AUTODIFF_TAMC */ |
434 |
CALL IMPLDIFF( |
CALL IMPLDIFF( |
435 |
I bi, bj, iMin, iMax, jMin, jMax, |
I bi, bj, iMin, iMax, jMin, jMax, |
436 |
I 0, KappaRU,recip_HFacW, |
I -1, KappaRU,recip_HFacW, |
437 |
U gU, |
U gU, |
438 |
I myThid ) |
I myThid ) |
439 |
#ifdef ALLOW_AUTODIFF_TAMC |
#ifdef ALLOW_AUTODIFF_TAMC |
442 |
#endif /* ALLOW_AUTODIFF_TAMC */ |
#endif /* ALLOW_AUTODIFF_TAMC */ |
443 |
CALL IMPLDIFF( |
CALL IMPLDIFF( |
444 |
I bi, bj, iMin, iMax, jMin, jMax, |
I bi, bj, iMin, iMax, jMin, jMax, |
445 |
I 0, KappaRV,recip_HFacS, |
I -2, KappaRV,recip_HFacS, |
446 |
U gV, |
U gV, |
447 |
I myThid ) |
I myThid ) |
448 |
ENDIF |
ENDIF |