| 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 |
| 23 |
COMMON /LOCAL_MOM_CALC_RTRANS/ |
COMMON /LOCAL_MOM_CALC_RTRANS/ |
| 24 |
& dWtransC, dWtransU, dWtransV |
& dWtransC, dWtransU, dWtransV |
| 25 |
|
# endif |
| 26 |
_RL dWtransC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL dWtransC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
| 27 |
_RL dWtransU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL dWtransU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
| 28 |
_RL dWtransV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL dWtransV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |