19 |
C dWtransC :: vertical transp. difference between r & r* coordinates |
C dWtransC :: vertical transp. difference between r & r* coordinates |
20 |
C dWtransU :: same but above u.point location (West face) |
C dWtransU :: same but above u.point location (West face) |
21 |
C dWtransV :: same but above v.point location (South face) |
C dWtransV :: same but above v.point location (South face) |
22 |
# ifndef ALLOW_AUTODIFF_OPENAD |
# ifndef ALLOW_OPENAD |
23 |
COMMON /LOCAL_MOM_CALC_RTRANS/ |
COMMON /LOCAL_MOM_CALC_RTRANS/ |
24 |
& dWtransC, dWtransU, dWtransV |
& dWtransC, dWtransU, dWtransV |
25 |
# endif |
# endif |