98 |
_RS OBWw (1-Oly:sNy+Oly,Nr,nSx,nSy) |
_RS OBWw (1-Oly:sNy+Oly,Nr,nSx,nSy) |
99 |
#endif /* ALLOW_NONHYDROSTATIC */ |
#endif /* ALLOW_NONHYDROSTATIC */ |
100 |
|
|
101 |
|
#ifdef NONLIN_FRSURF |
102 |
|
COMMON /GRID_OB_NLFS/ |
103 |
|
& OBNhfac0,OBShfac0,OBEhfac0,OBWhfac0, |
104 |
|
& OBNeta, OBSeta, OBEeta, OBWeta |
105 |
|
_RS OBNhfac0(1-Olx:sNx+Olx,nSx,nSy) |
106 |
|
_RS OBShfac0(1-Olx:sNx+Olx,nSx,nSy) |
107 |
|
_RS OBEhfac0(1-Oly:sNy+Oly,nSx,nSy) |
108 |
|
_RS OBWhfac0(1-Oly:sNy+Oly,nSx,nSy) |
109 |
|
_RS OBNeta (1-Olx:sNx+Olx,nSx,nSy) |
110 |
|
_RS OBSeta (1-Olx:sNx+Olx,nSx,nSy) |
111 |
|
_RS OBEeta (1-Oly:sNy+Oly,nSx,nSy) |
112 |
|
_RS OBWeta (1-Oly:sNy+Oly,nSx,nSy) |
113 |
|
#endif /* NONLIN_FRSURF */ |
114 |
|
|
115 |
#endif /* ALLOW_OBCS */ |
#endif /* ALLOW_OBCS */ |