/[MITgcm]/MITgcm/model/src/config_summary.F
ViewVC logotype

Diff of /MITgcm/model/src/config_summary.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.25 by cnh, Sun Feb 4 14:38:46 2001 UTC revision 1.26 by cnh, Sun Feb 4 16:46:44 2001 UTC
# Line 39  C     == Local variables == Line 39  C     == Local variables ==
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
# Line 271  C     == Local variables == Line 273  C     == Local variables ==
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,
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22