| 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 |