/[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.26 by cnh, Sun Feb 4 16:46:44 2001 UTC revision 1.27 by jmc, Tue Feb 20 15:02:16 2001 UTC
# Line 131  C     == Local variables == Line 131  C     == Local variables ==
131        CALL WRITE_0D_R8( beta,    INDEX_NONE,'beta =',        CALL WRITE_0D_R8( beta,    INDEX_NONE,'beta =',
132       &'   /* Beta ( 1/(m.s) ) */')       &'   /* Beta ( 1/(m.s) ) */')
133        CALL WRITE_0D_R8( freeSurfFac, INDEX_NONE,'freeSurfFac =',        CALL WRITE_0D_R8( freeSurfFac, INDEX_NONE,'freeSurfFac =',
134       &'   /* Implcit free surface factor */')       &'   /* Implicit free surface factor */')
135        CALL WRITE_0D_L( implicitFreeSurface, INDEX_NONE,        CALL WRITE_0D_L( implicitFreeSurface, INDEX_NONE,
136       &                 'implicitFreeSurface =',       &                 'implicitFreeSurface =',
137       &'   /* Implicit free surface on/off flag */')       &'   /* Implicit free surface on/off flag */')
138        CALL WRITE_0D_L( rigidLid, INDEX_NONE,        CALL WRITE_0D_L( rigidLid, INDEX_NONE,
139       &                 'rigidLid =',       &                 'rigidLid =',
140       &'   /* Rigid lid on/off flag */')       &'   /* Rigid lid on/off flag */')
141          CALL WRITE_0D_R8( implicSurfPress, INDEX_NONE,
142         &'implicSurfPress =',
143         &'   /* Surface Pressure implicit factor (0-1)*/')
144          CALL WRITE_0D_R8( implicDiv2Dflow, INDEX_NONE,
145         &'implicDiv2Dflow =',
146         &'   /* Barot. Flow Div. implicit factor (0-1)*/')
147          CALL WRITE_0D_L( staggerTimeStep, INDEX_NONE,
148         &                 'staggerTimeStep =',
149         &'   /* Stagger time stepping on/off flag */')
150        CALL WRITE_0D_L( momStepping,  INDEX_NONE,        CALL WRITE_0D_L( momStepping,  INDEX_NONE,
151       & 'momStepping =', '  /* Momentum equation on/off flag */')       & 'momStepping =', '  /* Momentum equation on/off flag */')
152        CALL WRITE_0D_L( momAdvection, INDEX_NONE,        CALL WRITE_0D_L( momAdvection, INDEX_NONE,
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27
  ViewVC Help
Powered by ViewVC 1.1.22