/[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.67 by jmc, Sun Dec 5 21:28:36 2004 UTC revision 1.68 by baylor, Thu Mar 10 02:39:55 2005 UTC
# Line 106  C     zcoord :: Line 106  C     zcoord ::
106       &'   /* Maximum lateral eddy viscosity ( m^2/s ) */')       &'   /* Maximum lateral eddy viscosity ( m^2/s ) */')
107        CALL WRITE_0D_R8( viscAhGrid, INDEX_NONE,'viscAhGrid =',        CALL WRITE_0D_R8( viscAhGrid, INDEX_NONE,'viscAhGrid =',
108       &'   /* Grid dependent lateral eddy viscosity ( non-dim. ) */')       &'   /* Grid dependent lateral eddy viscosity ( non-dim. ) */')
109          CALL WRITE_0D_L( useFullLeith, INDEX_NONE,
110         &'useFullLeith =',
111         &'   /* Use Full Form of Leith Viscosity on/off flag*/')
112        CALL WRITE_0D_R8( viscC2leith, INDEX_NONE,'viscC2leith =',        CALL WRITE_0D_R8( viscC2leith, INDEX_NONE,'viscC2leith =',
113       &'   /* Leith harmonic viscosity factor ( non-dom. ) */')       &'   /* Leith harmonic viscosity factor ( on grad(vort), non-dom. ) */')
114          CALL WRITE_0D_R8( viscC2leithD, INDEX_NONE,'viscC2leithD =',
115         &'   /* Leith harmonic viscosity factor ( on grad(div), non-dom. ) */')
116        CALL WRITE_0D_R8( viscA4, INDEX_NONE,'viscA4 =',        CALL WRITE_0D_R8( viscA4, INDEX_NONE,'viscA4 =',
117       &'   /* Lateral biharmonic viscosity ( m^4/s ) */')       &'   /* Lateral biharmonic viscosity ( m^4/s ) */')
118        IF ( viscA4D.NE.viscA4 )        IF ( viscA4D.NE.viscA4 )
# Line 121  C     zcoord :: Line 126  C     zcoord ::
126        CALL WRITE_0D_R8( viscA4Grid, INDEX_NONE,'viscA4Grid =',        CALL WRITE_0D_R8( viscA4Grid, INDEX_NONE,'viscA4Grid =',
127       &'   /* Grid dependent biharmonic viscosity ( non-dim. ) */')       &'   /* Grid dependent biharmonic viscosity ( non-dim. ) */')
128        CALL WRITE_0D_R8( viscC4leith, INDEX_NONE,'viscC4leith =',        CALL WRITE_0D_R8( viscC4leith, INDEX_NONE,'viscC4leith =',
129       &'   /* Leith biharmonic viscosity factor ( non-dom. ) */')       &'   /* Leith biharmonic viscosity factor ( on grad(vort), non-dom. ) */')
130          CALL WRITE_0D_R8( viscC4leithD, INDEX_NONE,'viscC4leithD =',
131         &'   /* Leith biharmonic viscosity factor ( on grad(div), non-dom. ) */')
132        CALL WRITE_0D_L( no_slip_sides, INDEX_NONE,        CALL WRITE_0D_L( no_slip_sides, INDEX_NONE,
133       & 'no_slip_sides =', '  /* Viscous BCs: No-slip sides */')       & 'no_slip_sides =', '  /* Viscous BCs: No-slip sides */')
134        CALL WRITE_0D_R8( viscAr,  INDEX_NONE,'viscAr =',        CALL WRITE_0D_R8( viscAr,  INDEX_NONE,'viscAr =',
Legend:
Removed from v.1.67  
changed lines
  Added in v.1.68
  ViewVC Help
Powered by ViewVC 1.1.22