/[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.7 by cnh, Thu May 21 18:25:48 1998 UTC revision 1.8 by cnh, Mon May 25 16:17:36 1998 UTC
# Line 86  C     == Local variables == Line 86  C     == Local variables ==
86       &'   /* Reference density ( kg/m^3 ) */')       &'   /* Reference density ( kg/m^3 ) */')
87        CALL WRITE_1D_R8( gravity,1, INDEX_NONE,'gravity =',        CALL WRITE_1D_R8( gravity,1, INDEX_NONE,'gravity =',
88       &'   /* Gravitational acceleration ( m/s^2 ) */')       &'   /* Gravitational acceleration ( m/s^2 ) */')
89          CALL WRITE_1D_R8( gBaro,1, INDEX_NONE,'gBaro =',
90         &'   /* Barotropic gravity ( m/s^2 ) */')
91        CALL WRITE_1D_R8( f0,1, INDEX_NONE,'f0 =',        CALL WRITE_1D_R8( f0,1, INDEX_NONE,'f0 =',
92       &'   /* Reference coriolis parameter ( 1/s ) */')       &'   /* Reference coriolis parameter ( 1/s ) */')
93        CALL WRITE_1D_R8( beta,1, INDEX_NONE,'beta =',        CALL WRITE_1D_R8( beta,1, INDEX_NONE,'beta =',
94       &'   /* Beta ( 1/(m.s) ) */')       &'   /* Beta ( 1/(m.s) ) */')
95          CALL WRITE_1D_R8( freeSurfFac,1, INDEX_NONE,'freeSurfFac =',
96         &'   /* Implcit free surface factor */')
97          CALL WRITE_1D_L( implicitFreeSurface,1, INDEX_NONE,
98         &                 'implicitFreeSurface =',
99         &'   /* Implicit free surface on/off flag */')
100          CALL WRITE_1D_L( rigidLid,1, INDEX_NONE,
101         &                 'rigidLid =',
102         &'   /* Rigid lid on/off flag */')
103          CALL WRITE_1D_R8( GMMaxSlope,1, INDEX_NONE,'GMMaxSlope =',
104         &'   /* Max. slope allowed in GM/Redi tensor */')
105          CALL WRITE_1D_R8( GMLength,1, INDEX_NONE,'GMLength =',
106         &'   /* Length to use in Visbeck et al. formula for K (m) */')
107          CALL WRITE_1D_R8( GMAlpha,1, INDEX_NONE,'GMAlpha =',
108         &'   /* alpha to use in Visbeck et al. formula for K */')
109          CALL WRITE_1D_R8( GMdepth,1, INDEX_NONE,'GMdepth =',
110         &'   /* Depth to integrate for Visbeck et. al Richardson # (m) */')
111          CALL WRITE_1D_R8( GMkbackground,1, INDEX_NONE,'GMkbackground =',
112         &'   /* background value of GM/Redi coefficient m^2/s */')
113        WRITE(msgBuf,'(A)') '//  '        WRITE(msgBuf,'(A)') '//  '
114        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)
115        WRITE(msgBuf,'(A)') '// Elliptic solver(s) paramters ( PARM02 in namelist ) '        WRITE(msgBuf,'(A)') '// Elliptic solver(s) paramters ( PARM02 in namelist ) '
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22