/[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.73 by jmc, Fri Apr 15 14:02:08 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 372  C     zcoord :: Line 372  C     zcoord ::
372       &'   /* Convective adjustment interval ( s ) */')       &'   /* Convective adjustment interval ( s ) */')
373        CALL WRITE_0D_L( forcing_In_AB,INDEX_NONE,'forcing_In_AB =',        CALL WRITE_0D_L( forcing_In_AB,INDEX_NONE,'forcing_In_AB =',
374       &'   /* put T,S Forcing in Adams-Bash. stepping */')       &'   /* put T,S Forcing in Adams-Bash. stepping */')
375        CALL WRITE_0D_R8( abeps, INDEX_NONE,'abeps =',        CALL WRITE_0D_R8( abEps, INDEX_NONE,'abEps =',
376       &'   /* Adams-Bashforth stabilizing weight */')       &'   /* Adams-Bashforth-2 stabilizing weight */')
377    #ifdef ALLOW_ADAMSBASHFORTH_3
378          CALL WRITE_0D_R8( alph_AB, INDEX_NONE,'alph_AB =',
379         &'   /* Adams-Bashforth-3 primary factor */')
380          CALL WRITE_0D_R8( beta_AB, INDEX_NONE,'beta_AB =',
381         &'   /* Adams-Bashforth-3 secondary factor */')
382          CALL WRITE_0D_L( startFromPickupAB2, INDEX_NONE,
383         & 'startFromPickupAB2=',' /* start from AB-2 pickup */')
384    #endif
385        IF (useCDscheme) THEN        IF (useCDscheme) THEN
386        CALL WRITE_0D_R8( tauCD, INDEX_NONE,'tauCD =',        CALL WRITE_0D_R8( tauCD, INDEX_NONE,'tauCD =',
387       &'   /* CD coupling time-scale ( s ) */')       &'   /* CD coupling time-scale ( s ) */')
388        CALL WRITE_0D_R8( rCD, INDEX_NONE,'rCD =',        CALL WRITE_0D_R8( rCD, INDEX_NONE,'rCD =',
389       &'   /* Normalised CD coupling parameter */')       &'   /* Normalised CD coupling parameter */')
390        ENDIF        ENDIF
391          CALL WRITE_0D_R8( baseTime, INDEX_NONE,'baseTime =',
392         &'   /* Model base time ( s ). */')
393        CALL WRITE_0D_R8( startTime, INDEX_NONE,'startTime =',        CALL WRITE_0D_R8( startTime, INDEX_NONE,'startTime =',
394       &'   /* Run start time ( s ). */')       &'   /* Run start time ( s ). */')
395        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.73
  ViewVC Help
Powered by ViewVC 1.1.22