/[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.98 by jmc, Fri Jun 1 21:13:11 2007 UTC revision 1.99 by jmc, Thu Aug 23 19:08:26 2007 UTC
# Line 544  C     ycoord :: varying parameters. Line 544  C     ycoord :: varying parameters.
544       &'   /* index orientation relative to vertical coordinate */')       &'   /* index orientation relative to vertical coordinate */')
545        CALL WRITE_0D_R8( gravitySign, INDEX_NONE,'gravitySign =',        CALL WRITE_0D_R8( gravitySign, INDEX_NONE,'gravitySign =',
546       &  ' /* gravity orientation relative to vertical coordinate */')       &  ' /* gravity orientation relative to vertical coordinate */')
547        CALL WRITE_0D_R8( horiVertRatio, INDEX_NONE,'horiVertRatio =',        IF ( usingZCoords ) THEN
548       &'   /* Ratio on units : Horiz - Vertical */')         CALL WRITE_0D_R8( mass2rUnit, INDEX_NONE,'mass2rUnit =',
549         & ' /* convert mass per unit area [kg/m2] to r-units [m] */')
550           CALL WRITE_0D_R8( rUnit2mass, INDEX_NONE,'rUnit2mass =',
551         & ' /* convert r-units [m] to mass per unit area [kg/m2] */')
552          ENDIF
553          IF ( usingPCoords ) THEN
554           CALL WRITE_0D_R8( mass2rUnit, INDEX_NONE,'mass2rUnit =',
555         & ' /* convert mass per unit area [kg/m2] to r-units [Pa] */')
556           CALL WRITE_0D_R8( rUnit2mass, INDEX_NONE,'rUnit2mass =',
557         & ' /* convert r-units [Pa] to mass per unit area [kg/m2] */')
558          ENDIF
559    c     CALL WRITE_0D_R8( horiVertRatio, INDEX_NONE,'horiVertRatio =',
560    c    &'   /* Ratio on units : Horiz - Vertical */')
561  c     CALL WRITE_1D_R8( delZ,Nr, INDEX_K,'delZ = ',  c     CALL WRITE_1D_R8( delZ,Nr, INDEX_K,'delZ = ',
562  c    &'   /* W spacing ( m ) */')  c    &'   /* W spacing ( m ) */')
563  c     CALL WRITE_1D_R8( delP,Nr, INDEX_K,'delP = ',  c     CALL WRITE_1D_R8( delP,Nr, INDEX_K,'delP = ',
Legend:
Removed from v.1.98  
changed lines
  Added in v.1.99
  ViewVC Help
Powered by ViewVC 1.1.22