304 |
C- Calculate vertical transports above U & V points (West & South face): |
C- Calculate vertical transports above U & V points (West & South face): |
305 |
|
|
306 |
#ifdef ALLOW_AUTODIFF_TAMC |
#ifdef ALLOW_AUTODIFF_TAMC |
307 |
|
# ifdef NONLIN_FRSURF |
308 |
|
# ifndef DISABLE_RSTAR_CODE |
309 |
CADJ STORE dwtransc(:,:,bi,bj) = |
CADJ STORE dwtransc(:,:,bi,bj) = |
310 |
CADJ & comlev1_bibj_k, key = imomkey, byte = isbyte |
CADJ & comlev1_bibj_k, key = imomkey, byte = isbyte |
311 |
CADJ STORE dwtransu(:,:,bi,bj) = |
CADJ STORE dwtransu(:,:,bi,bj) = |
312 |
CADJ & comlev1_bibj_k, key = imomkey, byte = isbyte |
CADJ & comlev1_bibj_k, key = imomkey, byte = isbyte |
313 |
CADJ STORE dwtransv(:,:,bi,bj) = |
CADJ STORE dwtransv(:,:,bi,bj) = |
314 |
CADJ & comlev1_bibj_k, key = imomkey, byte = isbyte |
CADJ & comlev1_bibj_k, key = imomkey, byte = isbyte |
315 |
|
# endif |
316 |
|
# endif /* NONLIN_FRSURF */ |
317 |
#endif /* ALLOW_AUTODIFF_TAMC */ |
#endif /* ALLOW_AUTODIFF_TAMC */ |
318 |
CALL MOM_CALC_RTRANS( k, bi, bj, |
CALL MOM_CALC_RTRANS( k, bi, bj, |
319 |
O rTransU, rTransV, |
O rTransU, rTransV, |