39 |
_RL xcoord(Nx) |
_RL xcoord(Nx) |
40 |
_RL ycoord(Ny) |
_RL ycoord(Ny) |
41 |
_RL rcoord(Nr) |
_RL rcoord(Nr) |
42 |
|
INTEGER coordLine |
43 |
|
INTEGER tileLine |
44 |
|
|
45 |
|
|
46 |
_BARRIER |
_BARRIER |
273 |
CALL WRITE_1D_R8( rcoord, Nr, INDEX_K,'rcoord = ', |
CALL WRITE_1D_R8( rcoord, Nr, INDEX_K,'rcoord = ', |
274 |
&' /* P-point R coordinate ( units of r ) */') |
&' /* P-point R coordinate ( units of r ) */') |
275 |
|
|
276 |
|
C Grid along selected grid lines |
277 |
|
coordLine = 1 |
278 |
|
tileLine = 1 |
279 |
|
CALL WRITE_XY_XLINE_RS( dxF, coordLine, tileLine, |
280 |
|
I 'dxF','( m - cartesian, degrees - spherical )') |
281 |
|
CALL WRITE_XY_YLINE_RS( dxF, coordLine, tileLine, |
282 |
|
I 'dxF','( m - cartesian, degrees - spherical )') |
283 |
|
CALL WRITE_XY_XLINE_RS( dyF, coordLine, tileLine, |
284 |
|
I 'dyF','( m - cartesian, degrees - spherical )') |
285 |
|
CALL WRITE_XY_YLINE_RS( dyF, coordLine, tileLine, |
286 |
|
I 'dyF','( m - cartesian, degrees - spherical )') |
287 |
|
CALL WRITE_XY_XLINE_RS( dxG, coordLine, tileLine, |
288 |
|
I 'dxG','( m - cartesian, degrees - spherical )') |
289 |
|
CALL WRITE_XY_YLINE_RS( dxG, coordLine, tileLine, |
290 |
|
I 'dxG','( m - cartesian, degrees - spherical )') |
291 |
|
CALL WRITE_XY_XLINE_RS( dyG, coordLine, tileLine, |
292 |
|
I 'dyG','( m - cartesian, degrees - spherical )') |
293 |
|
CALL WRITE_XY_YLINE_RS( dyG, coordLine, tileLine, |
294 |
|
I 'dyG','( m - cartesian, degrees - spherical )') |
295 |
|
CALL WRITE_XY_XLINE_RS( dxC, coordLine, tileLine, |
296 |
|
I 'dxC','( m - cartesian, degrees - spherical )') |
297 |
|
CALL WRITE_XY_YLINE_RS( dxC, coordLine, tileLine, |
298 |
|
I 'dxC','( m - cartesian, degrees - spherical )') |
299 |
|
CALL WRITE_XY_XLINE_RS( dyC, coordLine, tileLine, |
300 |
|
I 'dyC','( m - cartesian, degrees - spherical )') |
301 |
|
CALL WRITE_XY_YLINE_RS( dyC, coordLine, tileLine, |
302 |
|
I 'dyC','( m - cartesian, degrees - spherical )') |
303 |
|
CALL WRITE_XY_XLINE_RS( dxV, coordLine, tileLine, |
304 |
|
I 'dxV','( m - cartesian, degrees - spherical )') |
305 |
|
CALL WRITE_XY_YLINE_RS( dxV, coordLine, tileLine, |
306 |
|
I 'dxV','( m - cartesian, degrees - spherical )') |
307 |
|
CALL WRITE_XY_XLINE_RS( dyU, coordLine, tileLine, |
308 |
|
I 'dyU','( m - cartesian, degrees - spherical )') |
309 |
|
CALL WRITE_XY_YLINE_RS( dyU, coordLine, tileLine, |
310 |
|
I 'dyU','( m - cartesian, degrees - spherical )') |
311 |
|
CALL WRITE_XY_XLINE_RS( rA, coordLine, tileLine, |
312 |
|
I 'rA','( m - cartesian, degrees - spherical )') |
313 |
|
CALL WRITE_XY_YLINE_RS( rA, coordLine, tileLine, |
314 |
|
I 'rA','( m - cartesian, degrees - spherical )') |
315 |
|
CALL WRITE_XY_XLINE_RS( rAw, coordLine, tileLine, |
316 |
|
I 'rAw','( m - cartesian, degrees - spherical )') |
317 |
|
CALL WRITE_XY_YLINE_RS( rAw, coordLine, tileLine, |
318 |
|
I 'rAw','( m - cartesian, degrees - spherical )') |
319 |
|
CALL WRITE_XY_XLINE_RS( rAs, coordLine, tileLine, |
320 |
|
I 'rAs','( m - cartesian, degrees - spherical )') |
321 |
|
CALL WRITE_XY_YLINE_RS( rAs, coordLine, tileLine, |
322 |
|
I 'rAs','( m - cartesian, degrees - spherical )') |
323 |
|
|
324 |
WRITE(msgBuf,'(A)') ' ' |
WRITE(msgBuf,'(A)') ' ' |
325 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |