/[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.35 by mlosch, Wed Sep 25 19:36:50 2002 UTC revision 1.36 by adcroft, Thu Oct 10 20:07:37 2002 UTC
# Line 310  CEOP Line 310  CEOP
310       &'   /* Spherical coordinates flag ( True / False ) */')       &'   /* Spherical coordinates flag ( True / False ) */')
311        CALL WRITE_0D_L( groundAtK1, INDEX_NONE, 'groundAtK1 =',        CALL WRITE_0D_L( groundAtK1, INDEX_NONE, 'groundAtK1 =',
312       &'   /* Lower Boundary (ground) at the surface(k=1) ( T / F ) */')       &'   /* Lower Boundary (ground) at the surface(k=1) ( T / F ) */')
313        CALL WRITE_1D_R8( Ro_SeaLevel,1, INDEX_NONE,'Ro_SeaLevel =',        CALL WRITE_0D_R8( Ro_SeaLevel, INDEX_NONE,'Ro_SeaLevel =',
314       &'   /* r(1) ( units of r ) */')       &'   /* r(1) ( units of r ) */')
315        CALL WRITE_1D_R8( rkFac,1, INDEX_NONE,'rkFac =',        CALL WRITE_0D_R8( rkFac, INDEX_NONE,'rkFac =',
316       &'   /* minus Vertical index orientation  */')       &'   /* minus Vertical index orientation  */')
317        CALL WRITE_1D_R8( horiVertRatio,1, INDEX_NONE,'horiVertRatio =',        CALL WRITE_0D_R8( horiVertRatio, INDEX_NONE,'horiVertRatio =',
318       &'   /* Ratio on units : Horiz - Vertical */')       &'   /* Ratio on units : Horiz - Vertical */')
319  c     CALL WRITE_1D_R8( delZ,Nr, INDEX_K,'delZ = ',  c     CALL WRITE_1D_R8( delZ,Nr, INDEX_K,'delZ = ',
320  c    &'   /* W spacing ( m ) */')  c    &'   /* W spacing ( m ) */')
Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36
  ViewVC Help
Powered by ViewVC 1.1.22