/[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.70 by baylor, Thu Mar 10 15:36:57 2005 UTC revision 1.71 by jmc, Thu Mar 10 17:41:37 2005 UTC
# Line 110  C     zcoord :: Line 110  C     zcoord ::
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_R8( viscC2leith, INDEX_NONE,'viscC2leith =',        CALL WRITE_0D_R8( viscC2leith, INDEX_NONE,'viscC2leith =',
113       &'   /* Leith harmonic viscosity factor       &' /* Leith harmonic viscosity factor (on grad(vort),non-dim.) */')
      & (on grad(vort),non-dim.) */')  
114        CALL WRITE_0D_R8( viscC2leithD, INDEX_NONE,'viscC2leithD =',        CALL WRITE_0D_R8( viscC2leithD, INDEX_NONE,'viscC2leithD =',
115       &'   /* Leith harmonic viscosity factor       &' /* Leith harmonic viscosity factor (on grad(div),non-dim.) */')
      & (on grad(div),non-dim.) */')  
116        CALL WRITE_0D_R8( viscC2smag, INDEX_NONE,'viscC2smag =',        CALL WRITE_0D_R8( viscC2smag, INDEX_NONE,'viscC2smag =',
117       &'   /* Smagorinsky harmonic viscosity factor (non-dim.) */')       &'   /* Smagorinsky harmonic viscosity factor (non-dim.) */')
118        CALL WRITE_0D_R8( viscA4, INDEX_NONE,'viscA4 =',        CALL WRITE_0D_R8( viscA4, INDEX_NONE,'viscA4 =',
# Line 130  C     zcoord :: Line 128  C     zcoord ::
128        CALL WRITE_0D_R8( viscA4Grid, INDEX_NONE,'viscA4Grid =',        CALL WRITE_0D_R8( viscA4Grid, INDEX_NONE,'viscA4Grid =',
129       &'   /* Grid dependent biharmonic viscosity ( non-dim. ) */')       &'   /* Grid dependent biharmonic viscosity ( non-dim. ) */')
130        CALL WRITE_0D_R8( viscC4leith, INDEX_NONE,'viscC4leith =',        CALL WRITE_0D_R8( viscC4leith, INDEX_NONE,'viscC4leith =',
131       &'   /* Leith biharmonic viscosity factor       &' /* Leith biharm viscosity factor (on grad(vort), non-dim.) */')
      & ( on grad(vort), non-dom. ) */')  
132        CALL WRITE_0D_R8( viscC4leithD, INDEX_NONE,'viscC4leithD =',        CALL WRITE_0D_R8( viscC4leithD, INDEX_NONE,'viscC4leithD =',
133       &'   /* Leith biharmonic viscosity factor       &' /* Leith biharm viscosity factor (on grad(div), non-dim.) */')
      & ( on grad(div), non-dom. ) */')  
134        CALL WRITE_0D_L( no_slip_sides, INDEX_NONE,        CALL WRITE_0D_L( no_slip_sides, INDEX_NONE,
135       & 'no_slip_sides =', '  /* Viscous BCs: No-slip sides */')       & 'no_slip_sides =', '  /* Viscous BCs: No-slip sides */')
136        CALL WRITE_0D_R8( viscAr,  INDEX_NONE,'viscAr =',        CALL WRITE_0D_R8( viscAr,  INDEX_NONE,'viscAr =',

Legend:
Removed from v.1.70  
changed lines
  Added in v.1.71

  ViewVC Help
Powered by ViewVC 1.1.22