/[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.46 by jmc, Sat Jan 3 00:34:00 2004 UTC revision 1.47 by adcroft, Sat Feb 7 16:27:19 2004 UTC
# Line 91  CEOP Line 91  CEOP
91       &'   /* Reference salinity profile ( ppt ) */')       &'   /* Reference salinity profile ( ppt ) */')
92        CALL WRITE_0D_R8( viscAh, INDEX_NONE,'viscAh =',        CALL WRITE_0D_R8( viscAh, INDEX_NONE,'viscAh =',
93       &'   /* Lateral eddy viscosity ( m^2/s ) */')       &'   /* Lateral eddy viscosity ( m^2/s ) */')
94          CALL WRITE_0D_R8( viscAhMax, INDEX_NONE,'viscAhMax =',
95         &'   /* Maximum lateral eddy viscosity ( m^2/s ) */')
96          CALL WRITE_0D_R8( viscAhGrid, INDEX_NONE,'viscAhGrid =',
97         &'   /* Grid dependent lateral eddy viscosity ( non-dim. ) */')
98        CALL WRITE_0D_R8( viscA4, INDEX_NONE,'viscA4 =',        CALL WRITE_0D_R8( viscA4, INDEX_NONE,'viscA4 =',
99       &'   /* Lateral biharmonic viscosity ( m^4/s ) */')       &'   /* Lateral biharmonic viscosity ( m^4/s ) */')
100          CALL WRITE_0D_R8( viscA4Max, INDEX_NONE,'viscA4Max =',
101         &'   /* Maximum biharmonic viscosity ( m^2/s ) */')
102          CALL WRITE_0D_R8( viscA4Grid, INDEX_NONE,'viscA4Grid =',
103         &'   /* Grid dependent biharmonic viscosity ( non-dim. ) */')
104        CALL WRITE_0D_L( no_slip_sides, INDEX_NONE,        CALL WRITE_0D_L( no_slip_sides, INDEX_NONE,
105       & 'no_slip_sides =', '  /* Viscous BCs: No-slip sides */')       & 'no_slip_sides =', '  /* Viscous BCs: No-slip sides */')
106  c     IF ( viscAz .NE. UNSET_RL ) THEN  c     IF ( viscAz .NE. UNSET_RL ) THEN
Legend:
Removed from v.1.46  
changed lines
  Added in v.1.47
  ViewVC Help
Powered by ViewVC 1.1.22