/[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.8 by cnh, Mon May 25 16:17:36 1998 UTC revision 1.9 by cnh, Mon May 25 20:05:55 1998 UTC
# Line 100  C     == Local variables == Line 100  C     == Local variables ==
100        CALL WRITE_1D_L( rigidLid,1, INDEX_NONE,        CALL WRITE_1D_L( rigidLid,1, INDEX_NONE,
101       &                 'rigidLid =',       &                 'rigidLid =',
102       &'   /* Rigid lid on/off flag */')       &'   /* Rigid lid on/off flag */')
103          CALL WRITE_1D_L( momAdvection,1, INDEX_NONE,
104         & 'momAdvection =',
105         & '  /* Momentum advection on/off flag */')
106          CALL WRITE_1D_L( momViscosity,1, INDEX_NONE,
107         & 'momViscosity =', '  /* Momentum viscosity on/off flag */')
108          CALL WRITE_1D_L( useCoriolis,1, INDEX_NONE,
109         & 'useCoriolis =', '  /* Coriolis on/off flag */')
110          CALL WRITE_1D_L( momForcing,1, INDEX_NONE,
111         & 'momForcing =', '  /* Momentum forcing on/off flag */')
112          CALL WRITE_1D_L( momPressureForcing,1, INDEX_NONE,
113         & 'momPressureForcing =', '  /* Momentum pressure term on/off flag */')
114        CALL WRITE_1D_R8( GMMaxSlope,1, INDEX_NONE,'GMMaxSlope =',        CALL WRITE_1D_R8( GMMaxSlope,1, INDEX_NONE,'GMMaxSlope =',
115       &'   /* Max. slope allowed in GM/Redi tensor */')       &'   /* Max. slope allowed in GM/Redi tensor */')
116        CALL WRITE_1D_R8( GMLength,1, INDEX_NONE,'GMLength =',        CALL WRITE_1D_R8( GMLength,1, INDEX_NONE,'GMLength =',
# Line 112  C     == Local variables == Line 123  C     == Local variables ==
123       &'   /* background value of GM/Redi coefficient m^2/s */')       &'   /* background value of GM/Redi coefficient m^2/s */')
124        WRITE(msgBuf,'(A)') '//  '        WRITE(msgBuf,'(A)') '//  '
125        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)
126    
127        WRITE(msgBuf,'(A)') '// Elliptic solver(s) paramters ( PARM02 in namelist ) '        WRITE(msgBuf,'(A)') '// Elliptic solver(s) paramters ( PARM02 in namelist ) '
128        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)
129        WRITE(msgBuf,'(A)') '//  '        WRITE(msgBuf,'(A)') '//  '
# Line 137  C     == Local variables == Line 149  C     == Local variables ==
149       &'   /* Momentum equation timestep ( s ) */')       &'   /* Momentum equation timestep ( s ) */')
150        CALL WRITE_1D_R8( deltaTtracer,1, INDEX_NONE,'deltatTtracer =',        CALL WRITE_1D_R8( deltaTtracer,1, INDEX_NONE,'deltatTtracer =',
151       &'   /* Tracer equation timestep ( s ) */')       &'   /* Tracer equation timestep ( s ) */')
152          CALL WRITE_1D_R8( cAdjFreq,1, INDEX_NONE,'cAdjFreq =',
153         &'   /* Convective adjustment interval ( s ) */')
154        CALL WRITE_1D_R8( abEps,1, INDEX_NONE,'abEps =',        CALL WRITE_1D_R8( abEps,1, INDEX_NONE,'abEps =',
155       &'   /* Adams-Bashforth stabilizing weight */')       &'   /* Adams-Bashforth stabilizing weight */')
156        CALL WRITE_1D_R8( tauCD,1, INDEX_NONE,'tauCD =',        CALL WRITE_1D_R8( tauCD,1, INDEX_NONE,'tauCD =',
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22