/[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.80 by jmc, Wed Sep 28 01:34:43 2005 UTC revision 1.81 by jmc, Tue Oct 11 21:27:52 2005 UTC
# Line 141  C     zcoord :: Line 141  C     zcoord ::
141       &' /* Smagorinsky biharm viscosity factor (non-dim) */')       &' /* Smagorinsky biharm viscosity factor (non-dim) */')
142        CALL WRITE_0D_L( no_slip_sides, INDEX_NONE,        CALL WRITE_0D_L( no_slip_sides, INDEX_NONE,
143       & 'no_slip_sides =', '  /* Viscous BCs: No-slip sides */')       & 'no_slip_sides =', '  /* Viscous BCs: No-slip sides */')
144          CALL WRITE_0D_R8( sideDragFactor, INDEX_NONE, 'sideDragFactor =',
145         & ' /* side-drag scaling factor (non-dim) */')
146        CALL WRITE_0D_R8( viscAr,  INDEX_NONE,'viscAr =',        CALL WRITE_0D_R8( viscAr,  INDEX_NONE,'viscAr =',
147       &'   /* Vertical eddy viscosity ( units of r^2/s ) */')       &'   /* Vertical eddy viscosity ( units of r^2/s ) */')
148        CALL WRITE_0D_L( no_slip_bottom, INDEX_NONE,        CALL WRITE_0D_L( no_slip_bottom, INDEX_NONE,
149       & 'no_slip_bottom =', '  /* Viscous BCs: No-slip bottom */')       & 'no_slip_bottom =', '  /* Viscous BCs: No-slip bottom */')
150          CALL WRITE_0D_R8( bottomDragLinear, INDEX_NONE,
151         & 'bottomDragLinear =',
152         & ' /* linear bottom-drag coefficient ( 1/s ) */')
153          CALL WRITE_0D_R8( bottomDragQuadratic, INDEX_NONE,
154         & 'bottomDragQuadratic =',
155         & ' /* quadratic bottom-drag coeff. ( 1/m ) */')
156        CALL WRITE_0D_R8( diffKhT, INDEX_NONE,'diffKhT =',        CALL WRITE_0D_R8( diffKhT, INDEX_NONE,'diffKhT =',
157       &'   /* Laplacian diffusion of heat laterally ( m^2/s ) */')       &'   /* Laplacian diffusion of heat laterally ( m^2/s ) */')
158        CALL WRITE_0D_R8( diffK4T, INDEX_NONE,'diffK4T =',        CALL WRITE_0D_R8( diffK4T, INDEX_NONE,'diffK4T =',
# Line 272  C     zcoord :: Line 280  C     zcoord ::
280    
281        CALL WRITE_0D_L( nonHydrostatic, INDEX_NONE,        CALL WRITE_0D_L( nonHydrostatic, INDEX_NONE,
282       & 'nonHydrostatic =', '  /* Non-Hydrostatic on/off flag */')       & 'nonHydrostatic =', '  /* Non-Hydrostatic on/off flag */')
283          CALL WRITE_0D_R8( nh_Am2, INDEX_NONE, 'nh_Am2 =',
284         & ' /* Non-Hydrostatic terms scaling factor */')
285        CALL WRITE_0D_L( momStepping,  INDEX_NONE,        CALL WRITE_0D_L( momStepping,  INDEX_NONE,
286       & 'momStepping =', '  /* Momentum equation on/off flag */')       & 'momStepping =', '  /* Momentum equation on/off flag */')
287        CALL WRITE_0D_L( momAdvection, INDEX_NONE,        CALL WRITE_0D_L( momAdvection, INDEX_NONE,
Legend:
Removed from v.1.80  
changed lines
  Added in v.1.81
  ViewVC Help
Powered by ViewVC 1.1.22