/[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.77 by jmc, Wed Aug 24 23:09:26 2005 UTC revision 1.78 by baylor, Fri Sep 16 19:33:05 2005 UTC
# Line 109  C     zcoord :: Line 109  C     zcoord ::
109        CALL WRITE_0D_L( useFullLeith, INDEX_NONE,        CALL WRITE_0D_L( useFullLeith, INDEX_NONE,
110       &'useFullLeith =',       &'useFullLeith =',
111       &'   /* Use Full Form of Leith Viscosity on/off flag*/')       &'   /* Use Full Form of Leith Viscosity on/off flag*/')
112          CALL WRITE_0D_L( useStrainTensionVisc, INDEX_NONE,
113         &'useStrainTensionVisc =',
114         &'   /* Use Strain-Tension Form of Viscous Operator on/off flag*/')
115        CALL WRITE_0D_R8( viscC2leith, INDEX_NONE,'viscC2leith =',        CALL WRITE_0D_R8( viscC2leith, INDEX_NONE,'viscC2leith =',
116       &' /* Leith harmonic viscosity factor (on grad(vort),non-dim.) */')       &' /* Leith harmonic viscosity factor (on grad(vort),non-dim.) */')
117        CALL WRITE_0D_R8( viscC2leithD, INDEX_NONE,'viscC2leithD =',        CALL WRITE_0D_R8( viscC2leithD, INDEX_NONE,'viscC2leithD =',
# Line 131  C     zcoord :: Line 134  C     zcoord ::
134       &' /* Leith biharm viscosity factor (on grad(vort), non-dim.) */')       &' /* Leith biharm viscosity factor (on grad(vort), non-dim.) */')
135        CALL WRITE_0D_R8( viscC4leithD, INDEX_NONE,'viscC4leithD =',        CALL WRITE_0D_R8( viscC4leithD, INDEX_NONE,'viscC4leithD =',
136       &' /* Leith biharm viscosity factor (on grad(div), non-dim.) */')       &' /* Leith biharm viscosity factor (on grad(div), non-dim.) */')
137          CALL WRITE_0D_R8( viscC4Smag, INDEX_NONE,'viscC4Smag =',
138         &' /* Smagorinsky biharm viscosity factor (non-dim) */')
139        CALL WRITE_0D_L( no_slip_sides, INDEX_NONE,        CALL WRITE_0D_L( no_slip_sides, INDEX_NONE,
140       & 'no_slip_sides =', '  /* Viscous BCs: No-slip sides */')       & 'no_slip_sides =', '  /* Viscous BCs: No-slip sides */')
141        CALL WRITE_0D_R8( viscAr,  INDEX_NONE,'viscAr =',        CALL WRITE_0D_R8( viscAr,  INDEX_NONE,'viscAr =',
Legend:
Removed from v.1.77  
changed lines
  Added in v.1.78
  ViewVC Help
Powered by ViewVC 1.1.22