/[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.23 by adcroft, Wed Jun 21 19:14:10 2000 UTC revision 1.24 by adcroft, Fri Feb 2 21:04:47 2001 UTC
# Line 150  C     == Local variables == Line 150  C     == Local variables ==
150       & '  /* Momentum pressure term on/off flag */')       & '  /* Momentum pressure term on/off flag */')
151        CALL WRITE_0D_L( tempStepping,  INDEX_NONE,        CALL WRITE_0D_L( tempStepping,  INDEX_NONE,
152       & 'tempStepping =', '  /* Temperature equation on/off flag */')       & 'tempStepping =', '  /* Temperature equation on/off flag */')
       CALL WRITE_0D_L( openBoundaries, INDEX_NONE,  
      & 'openBoundaries =', '  /* OpenBoundaries on/off flag */')  
153        CALL WRITE_0D_L( nonHydrostatic, INDEX_NONE,        CALL WRITE_0D_L( nonHydrostatic, INDEX_NONE,
154       & 'nonHydrostatic =', '  /* Non-Hydrostatic on/off flag */')       & 'nonHydrostatic =', '  /* Non-Hydrostatic on/off flag */')
155        WRITE(msgBuf,'(A)') '//  '        WRITE(msgBuf,'(A)') '//  '
# Line 228  C     == Local variables == Line 226  C     == Local variables ==
226        CALL WRITE_0D_L( usingSphericalPolarGrid, INDEX_NONE,        CALL WRITE_0D_L( usingSphericalPolarGrid, INDEX_NONE,
227       & 'usingSphericalPolarGrid =',       & 'usingSphericalPolarGrid =',
228       &'   /* Spherical coordinates flag ( True / False ) */')       &'   /* Spherical coordinates flag ( True / False ) */')
229          CALL WRITE_0D_L( groundAtK1, INDEX_NONE, 'groundAtK1 =',
230         &'   /* Lower Boundary (ground) at the surface(k=1) ( T / F ) */')
231          CALL WRITE_1D_R8( Ro_SeaLevel,1, INDEX_NONE,'Ro_SeaLevel =',
232         &'   /* r(1) ( units of r ) */')
233          CALL WRITE_1D_R8( rkFac,1, INDEX_NONE,'rkFac =',
234         &'   /* minus Vertical index orientation  */')
235          CALL WRITE_1D_R8( horiVertRatio,1, INDEX_NONE,'horiVertRatio =',
236         &'   /* Ratio on units : Horiz - Vertical */')
237        CALL WRITE_1D_R8( delZ,Nr, INDEX_K,'delZ = ',        CALL WRITE_1D_R8( delZ,Nr, INDEX_K,'delZ = ',
238       &'   /* W spacing ( m ) */')       &'   /* W spacing ( m ) */')
239        CALL WRITE_1D_R8( delP,Nr, INDEX_K,'delP = ',        CALL WRITE_1D_R8( delP,Nr, INDEX_K,'delP = ',
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22