/[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.78 by baylor, Fri Sep 16 19:33:05 2005 UTC revision 1.79 by baylor, Thu Sep 22 14:00:59 2005 UTC
# Line 111  C     zcoord :: Line 111  C     zcoord ::
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,        CALL WRITE_0D_L( useStrainTensionVisc, INDEX_NONE,
113       &'useStrainTensionVisc =',       &'useStrainTensionVisc =',
114       &'   /* Use Strain-Tension Form of Viscous Operator on/off flag*/')       &'   /* Use StrainTension Form of Viscous Operator on/off flag*/')
115          CALL WRITE_0D_L( useAreaViscLength, INDEX_NONE,
116         &'useAreaViscLength =',
117         &'   /* Use area for visc length instead of geom. mean*/')
118        CALL WRITE_0D_R8( viscC2leith, INDEX_NONE,'viscC2leith =',        CALL WRITE_0D_R8( viscC2leith, INDEX_NONE,'viscC2leith =',
119       &' /* Leith harmonic viscosity factor (on grad(vort),non-dim.) */')       &' /* Leith harmonic visc. factor (on grad(vort),non-dim.) */')
120        CALL WRITE_0D_R8( viscC2leithD, INDEX_NONE,'viscC2leithD =',        CALL WRITE_0D_R8( viscC2leithD, INDEX_NONE,'viscC2leithD =',
121       &' /* Leith harmonic viscosity factor (on grad(div),non-dim.) */')       &' /* Leith harmonic viscosity factor (on grad(div),non-dim.) */')
122        CALL WRITE_0D_R8( viscC2smag, INDEX_NONE,'viscC2smag =',        CALL WRITE_0D_R8( viscC2smag, INDEX_NONE,'viscC2smag =',
Legend:
Removed from v.1.78  
changed lines
  Added in v.1.79
  ViewVC Help
Powered by ViewVC 1.1.22