/[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.62 by jmc, Mon Oct 18 21:36:08 2004 UTC revision 1.63 by jmc, Fri Oct 29 16:30:11 2004 UTC
# Line 95  C     zcoord :: Line 95  C     zcoord ::
95       &'   /* Reference salinity profile ( ppt ) */')       &'   /* Reference salinity profile ( ppt ) */')
96        CALL WRITE_0D_R8( viscAh, INDEX_NONE,'viscAh =',        CALL WRITE_0D_R8( viscAh, INDEX_NONE,'viscAh =',
97       &'   /* Lateral eddy viscosity ( m^2/s ) */')       &'   /* Lateral eddy viscosity ( m^2/s ) */')
98          IF ( viscAhD.NE.viscAh )
99         & CALL WRITE_0D_R8( viscAhD, INDEX_NONE,'viscAhD =',
100         & '  /* Lateral eddy viscosity (Divergence)( m^2/s ) */')
101          IF ( viscAhZ.NE.viscAh )
102         & CALL WRITE_0D_R8( viscAhZ, INDEX_NONE,'viscAhZ =',
103         & '  /* Lateral eddy viscosity (Vorticity) ( m^2/s ) */')
104        CALL WRITE_0D_R8( viscAhMax, INDEX_NONE,'viscAhMax =',        CALL WRITE_0D_R8( viscAhMax, INDEX_NONE,'viscAhMax =',
105       &'   /* Maximum lateral eddy viscosity ( m^2/s ) */')       &'   /* Maximum lateral eddy viscosity ( m^2/s ) */')
106        CALL WRITE_0D_R8( viscAhGrid, INDEX_NONE,'viscAhGrid =',        CALL WRITE_0D_R8( viscAhGrid, INDEX_NONE,'viscAhGrid =',
# Line 103  C     zcoord :: Line 109  C     zcoord ::
109       &'   /* Leith harmonic viscosity factor ( non-dom. ) */')       &'   /* Leith harmonic viscosity factor ( non-dom. ) */')
110        CALL WRITE_0D_R8( viscA4, INDEX_NONE,'viscA4 =',        CALL WRITE_0D_R8( viscA4, INDEX_NONE,'viscA4 =',
111       &'   /* Lateral biharmonic viscosity ( m^4/s ) */')       &'   /* Lateral biharmonic viscosity ( m^4/s ) */')
112          IF ( viscA4D.NE.viscA4 )
113         & CALL WRITE_0D_R8( viscA4D, INDEX_NONE,'viscA4D =',
114         & '  /* Lateral biharmonic viscosity (Divergence)( m^4/s ) */')
115          IF ( viscA4Z.NE.viscA4 )
116         & CALL WRITE_0D_R8( viscA4D, INDEX_NONE,'viscA4Z =',
117         & '  /* Lateral biharmonic viscosity (Vorticity) ( m^4/s ) */')
118        CALL WRITE_0D_R8( viscA4Max, INDEX_NONE,'viscA4Max =',        CALL WRITE_0D_R8( viscA4Max, INDEX_NONE,'viscA4Max =',
119       &'   /* Maximum biharmonic viscosity ( m^2/s ) */')       &'   /* Maximum biharmonic viscosity ( m^2/s ) */')
120        CALL WRITE_0D_R8( viscA4Grid, INDEX_NONE,'viscA4Grid =',        CALL WRITE_0D_R8( viscA4Grid, INDEX_NONE,'viscA4Grid =',
Legend:
Removed from v.1.62  
changed lines
  Added in v.1.63
  ViewVC Help
Powered by ViewVC 1.1.22