1 |
heimbach |
1.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 |
|
|
|