/[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.75 by jmc, Wed Jun 22 00:24:42 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 290  C     zcoord :: Line 290  C     zcoord ::
290       & 'useAbsVorticity=',' /* Work with f+zeta in Coriolis */')       & 'useAbsVorticity=',' /* Work with f+zeta in Coriolis */')
291        CALL WRITE_0D_L( highOrderVorticity,  INDEX_NONE,        CALL WRITE_0D_L( highOrderVorticity,  INDEX_NONE,
292       & 'highOrderVorticity=',' /* High order interp. of vort. flag */')       & 'highOrderVorticity=',' /* High order interp. of vort. flag */')
293          CALL WRITE_0D_L( upwindShear,  INDEX_NONE,
294         & 'upwindShear=', ' /* Upwind vertical Shear advection flag */')
295        CALL WRITE_0D_L( momForcing,   INDEX_NONE,        CALL WRITE_0D_L( momForcing,   INDEX_NONE,
296       & 'momForcing =', '  /* Momentum forcing on/off flag */')       & 'momForcing =', '  /* Momentum forcing on/off flag */')
297        CALL WRITE_0D_L( momPressureForcing, INDEX_NONE,        CALL WRITE_0D_L( momPressureForcing, INDEX_NONE,
# Line 357  C     zcoord :: Line 359  C     zcoord ::
359        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
360       &                    SQUEEZE_RIGHT , 1)       &                    SQUEEZE_RIGHT , 1)
361        CALL WRITE_0D_I( nIter0, INDEX_NONE,'nIter0 =',        CALL WRITE_0D_I( nIter0, INDEX_NONE,'nIter0 =',
362       &'   /* Base timestep number  */')       &'   /* Run starting timestep number  */')
363        CALL WRITE_0D_I( nTimeSteps, INDEX_NONE,'nTimeSteps =',        CALL WRITE_0D_I( nTimeSteps, INDEX_NONE,'nTimeSteps =',
364       &'   /* Number of timesteps */')       &'   /* Number of timesteps */')
365        CALL WRITE_0D_R8( deltaTmom, INDEX_NONE,'deltatTmom =',        CALL WRITE_0D_R8( deltaTmom, INDEX_NONE,'deltatTmom =',
# Line 372  C     zcoord :: Line 374  C     zcoord ::
374       &'   /* Convective adjustment interval ( s ) */')       &'   /* Convective adjustment interval ( s ) */')
375        CALL WRITE_0D_L( forcing_In_AB,INDEX_NONE,'forcing_In_AB =',        CALL WRITE_0D_L( forcing_In_AB,INDEX_NONE,'forcing_In_AB =',
376       &'   /* put T,S Forcing in Adams-Bash. stepping */')       &'   /* put T,S Forcing in Adams-Bash. stepping */')
377        CALL WRITE_0D_R8( abeps, INDEX_NONE,'abeps =',        CALL WRITE_0D_R8( abEps, INDEX_NONE,'abEps =',
378       &'   /* Adams-Bashforth stabilizing weight */')       &'   /* Adams-Bashforth-2 stabilizing weight */')
379    #ifdef ALLOW_ADAMSBASHFORTH_3
380          CALL WRITE_0D_R8( alph_AB, INDEX_NONE,'alph_AB =',
381         &'   /* Adams-Bashforth-3 primary factor */')
382          CALL WRITE_0D_R8( beta_AB, INDEX_NONE,'beta_AB =',
383         &'   /* Adams-Bashforth-3 secondary factor */')
384          CALL WRITE_0D_L( startFromPickupAB2, INDEX_NONE,
385         & 'startFromPickupAB2=',' /* start from AB-2 pickup */')
386    #endif
387        IF (useCDscheme) THEN        IF (useCDscheme) THEN
388        CALL WRITE_0D_R8( tauCD, INDEX_NONE,'tauCD =',        CALL WRITE_0D_R8( tauCD, INDEX_NONE,'tauCD =',
389       &'   /* CD coupling time-scale ( s ) */')       &'   /* CD coupling time-scale ( s ) */')
390        CALL WRITE_0D_R8( rCD, INDEX_NONE,'rCD =',        CALL WRITE_0D_R8( rCD, INDEX_NONE,'rCD =',
391       &'   /* Normalised CD coupling parameter */')       &'   /* Normalised CD coupling parameter */')
392        ENDIF        ENDIF
393          CALL WRITE_0D_R8( baseTime, INDEX_NONE,'baseTime =',
394         &'   /* Model base time ( s ). */')
395        CALL WRITE_0D_R8( startTime, INDEX_NONE,'startTime =',        CALL WRITE_0D_R8( startTime, INDEX_NONE,'startTime =',
396       &'   /* Run start time ( s ). */')       &'   /* Run start time ( s ). */')
397        CALL WRITE_0D_R8( endTime, INDEX_NONE,'endTime =',        CALL WRITE_0D_R8( endTime, INDEX_NONE,'endTime =',
# Line 445  C     zcoord :: Line 457  C     zcoord ::
457        CALL WRITE_0D_L( usingCylindricalGrid, INDEX_NONE,        CALL WRITE_0D_L( usingCylindricalGrid, INDEX_NONE,
458       & 'usingCylindricalGrid =',       & 'usingCylindricalGrid =',
459       &'   /* Spherical coordinates flag ( True / False ) */')       &'   /* Spherical coordinates flag ( True / False ) */')
       CALL WRITE_0D_L( groundAtK1, INDEX_NONE, 'groundAtK1 =',  
      &'   /* Lower Boundary (ground) at the surface(k=1) ( T / F ) */')  
460        CALL WRITE_0D_R8( Ro_SeaLevel, INDEX_NONE,'Ro_SeaLevel =',        CALL WRITE_0D_R8( Ro_SeaLevel, INDEX_NONE,'Ro_SeaLevel =',
461       &'   /* r(1) ( units of r ) */')       &'   /* r(1) ( units of r ) */')
462        CALL WRITE_0D_R8( rkFac, INDEX_NONE,'rkFac =',        CALL WRITE_0D_R8( rkSign, INDEX_NONE,'rkSign =',
463       &'   /* minus Vertical index orientation  */')       &'   /* index orientation relative to vertical coordinate */')
464        CALL WRITE_0D_R8( horiVertRatio, INDEX_NONE,'horiVertRatio =',        CALL WRITE_0D_R8( horiVertRatio, INDEX_NONE,'horiVertRatio =',
465       &'   /* Ratio on units : Horiz - Vertical */')       &'   /* Ratio on units : Horiz - Vertical */')
466  c     CALL WRITE_1D_R8( delZ,Nr, INDEX_K,'delZ = ',  c     CALL WRITE_1D_R8( delZ,Nr, INDEX_K,'delZ = ',
Legend:
Removed from v.1.69  
changed lines
  Added in v.1.75
  ViewVC Help
Powered by ViewVC 1.1.22