1 |
|
2 |
#ifdef NONLIN_FRSURF |
3 |
# ifndef DISABLE_RSTAR_CODE |
4 |
C == Local variables in common block == |
5 |
C dWtransC :: vertical transp. difference between r & r* coordinates |
6 |
C dWtransU :: same but above u.point location (West face) |
7 |
C dWtransV :: same but above v.point location (South face) |
8 |
COMMON /LOCAL_MOM_CALC_RTRANS/ |
9 |
& dWtransC, dWtransU, dWtransV |
10 |
_RL dWtransC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
11 |
_RL dWtransU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
12 |
_RL dWtransV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
13 |
# endif |
14 |
#endif /* NONLIN_FRSURF */ |
15 |
|