/[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.69 by baylor, Thu Mar 10 03:45:11 2005 UTC revision 1.72 by jmc, Wed Apr 6 18:25:31 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 ( on grad(vort), non-dim. ) */')       &' /* Leith harmonic viscosity factor (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 ( on grad(div), non-dim. ) */')       &' /* Leith harmonic viscosity factor (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 128  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 ( on grad(vort), non-dom. ) */')       &' /* Leith biharm viscosity factor (on grad(vort), non-dim.) */')
132        CALL WRITE_0D_R8( viscC4leithD, INDEX_NONE,'viscC4leithD =',        CALL WRITE_0D_R8( viscC4leithD, INDEX_NONE,'viscC4leithD =',
133       &'   /* Leith biharmonic viscosity factor ( on grad(div), non-dom. ) */')       &' /* Leith biharm viscosity factor (on grad(div), non-dim.) */')
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 =',
# Line 357  C     zcoord :: Line 357  C     zcoord ::
357        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
358       &                    SQUEEZE_RIGHT , 1)       &                    SQUEEZE_RIGHT , 1)
359        CALL WRITE_0D_I( nIter0, INDEX_NONE,'nIter0 =',        CALL WRITE_0D_I( nIter0, INDEX_NONE,'nIter0 =',
360       &'   /* Base timestep number  */')       &'   /* Run starting timestep number  */')
361        CALL WRITE_0D_I( nTimeSteps, INDEX_NONE,'nTimeSteps =',        CALL WRITE_0D_I( nTimeSteps, INDEX_NONE,'nTimeSteps =',
362       &'   /* Number of timesteps */')       &'   /* Number of timesteps */')
363        CALL WRITE_0D_R8( deltaTmom, INDEX_NONE,'deltatTmom =',        CALL WRITE_0D_R8( deltaTmom, INDEX_NONE,'deltatTmom =',
# Line 380  C     zcoord :: Line 380  C     zcoord ::
380        CALL WRITE_0D_R8( rCD, INDEX_NONE,'rCD =',        CALL WRITE_0D_R8( rCD, INDEX_NONE,'rCD =',
381       &'   /* Normalised CD coupling parameter */')       &'   /* Normalised CD coupling parameter */')
382        ENDIF        ENDIF
383          CALL WRITE_0D_R8( baseTime, INDEX_NONE,'baseTime =',
384         &'   /* Model base time ( s ). */')
385        CALL WRITE_0D_R8( startTime, INDEX_NONE,'startTime =',        CALL WRITE_0D_R8( startTime, INDEX_NONE,'startTime =',
386       &'   /* Run start time ( s ). */')       &'   /* Run start time ( s ). */')
387        CALL WRITE_0D_R8( endTime, INDEX_NONE,'endTime =',        CALL WRITE_0D_R8( endTime, INDEX_NONE,'endTime =',
Legend:
Removed from v.1.69  
changed lines
  Added in v.1.72
  ViewVC Help
Powered by ViewVC 1.1.22