146 |
C-- HPF directive to help TAMC |
C-- HPF directive to help TAMC |
147 |
CHPF$ INDEPENDENT |
CHPF$ INDEPENDENT |
148 |
#endif /* ALLOW_AUTODIFF_TAMC */ |
#endif /* ALLOW_AUTODIFF_TAMC */ |
|
|
|
149 |
DO bj=myByLo(myThid),myByHi(myThid) |
DO bj=myByLo(myThid),myByHi(myThid) |
|
|
|
150 |
#ifdef ALLOW_AUTODIFF_TAMC |
#ifdef ALLOW_AUTODIFF_TAMC |
151 |
C-- HPF directive to help TAMC |
C-- HPF directive to help TAMC |
152 |
CHPF$ INDEPENDENT, NEW (rTrans,fVerT,fVerS |
CHPF$ INDEPENDENT |
|
CHPF$& ,utrans,vtrans,xA,yA |
|
|
CHPF$& ) |
|
153 |
#endif /* ALLOW_AUTODIFF_TAMC */ |
#endif /* ALLOW_AUTODIFF_TAMC */ |
|
|
|
154 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
DO bi=myBxLo(myThid),myBxHi(myThid) |
155 |
|
|
156 |
#ifdef ALLOW_AUTODIFF_TAMC |
#ifdef ALLOW_AUTODIFF_TAMC |