/[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.31 by jmc, Sun Feb 10 00:35:30 2002 UTC revision 1.32 by jmc, Thu Mar 7 14:09:02 2002 UTC
# Line 50  C     zcoord :: Line 50  C     zcoord ::
50        INTEGER                  bi, bj        INTEGER                  bi, bj
51        _RL                     xcoord(Nx)        _RL                     xcoord(Nx)
52        _RL                     ycoord(Ny)        _RL                     ycoord(Ny)
53        _RL                     rcoord(Nr)        _RL                     rcoord(Nr+1)
54        INTEGER coordLine        INTEGER coordLine
55        INTEGER tileLine        INTEGER tileLine
56  CEOP  CEOP
# Line 298  CEOP Line 298  CEOP
298       &'   /* minus Vertical index orientation  */')       &'   /* minus Vertical index orientation  */')
299        CALL WRITE_1D_R8( horiVertRatio,1, INDEX_NONE,'horiVertRatio =',        CALL WRITE_1D_R8( horiVertRatio,1, INDEX_NONE,'horiVertRatio =',
300       &'   /* Ratio on units : Horiz - Vertical */')       &'   /* Ratio on units : Horiz - Vertical */')
301        CALL WRITE_1D_R8( delZ,Nr, INDEX_K,'delZ = ',  c     CALL WRITE_1D_R8( delZ,Nr, INDEX_K,'delZ = ',
302       &'   /* W spacing ( m ) */')  c    &'   /* W spacing ( m ) */')
303        CALL WRITE_1D_R8( delP,Nr, INDEX_K,'delP = ',  c     CALL WRITE_1D_R8( delP,Nr, INDEX_K,'delP = ',
304       &'   /* W spacing ( Pa ) */')  c    &'   /* W spacing ( Pa ) */')
305        CALL WRITE_1D_R8( delR,Nr, INDEX_K,'delR = ',  c     CALL WRITE_1D_R8( delR,Nr, INDEX_K,'delR = ',
306    c    &'   /* W spacing ( units of r ) */')
307          CALL WRITE_1D_R8( drC,Nr, INDEX_K,'drC = ',
308         &'   /* C spacing ( units of r ) */')
309          CALL WRITE_1D_R8( drF,Nr, INDEX_K,'drF = ',
310       &'   /* W spacing ( units of r ) */')       &'   /* W spacing ( units of r ) */')
311        CALL WRITE_1D_R8( delX, Nx, INDEX_I,'delX = ',        CALL WRITE_1D_R8( delX, Nx, INDEX_I,'delX = ',
312       &'   /* U spacing ( m - cartesian, degrees - spherical ) */')       &'   /* U spacing ( m - cartesian, degrees - spherical ) */')
# Line 333  CEOP Line 337  CEOP
337        ENDDO        ENDDO
338        CALL WRITE_1D_R8( rcoord, Nr, INDEX_K,'rcoord = ',        CALL WRITE_1D_R8( rcoord, Nr, INDEX_K,'rcoord = ',
339       &'   /* P-point R coordinate (  units of r ) */')       &'   /* P-point R coordinate (  units of r ) */')
340          DO K=1,Nr+1
341           rcoord(K) = rF(K)
342          ENDDO
343          CALL WRITE_1D_R8( rcoord, Nr+1, INDEX_K,'rF = ',
344         &'   /* W-Interf. R coordinate (  units of r ) */')
345    
346  C     Grid along selected grid lines  C     Grid along selected grid lines
347        coordLine = 1        coordLine = 1
Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32
  ViewVC Help
Powered by ViewVC 1.1.22