/[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.135 by jmc, Wed Apr 11 03:55:08 2012 UTC revision 1.136 by jmc, Fri Jun 15 13:20:04 2012 UTC
# Line 179  C     i, k   :: Loop counters. Line 179  C     i, k   :: Loop counters.
179        CALL WRITE_1D_RL( diffKrNrT, Nr, INDEX_K, 'diffKrNrT =',        CALL WRITE_1D_RL( diffKrNrT, Nr, INDEX_K, 'diffKrNrT =',
180       &  ' /* vertical profile of vertical diffusion of Temp ('       &  ' /* vertical profile of vertical diffusion of Temp ('
181       &  //rUnits//'^2/s )*/')       &  //rUnits//'^2/s )*/')
182          IF ( tempVertDiff4 )
183         & CALL WRITE_1D_RL( diffKr4T, Nr, INDEX_K, 'diffKr4T =',
184         &  ' /* profile of vertical biharmonic diffusion of Temp ('
185         &  //rUnits//'^4/s )*/')
186        CALL WRITE_1D_RL( diffKrNrS, Nr, INDEX_K, 'diffKrNrS =',        CALL WRITE_1D_RL( diffKrNrS, Nr, INDEX_K, 'diffKrNrS =',
187       &  ' /* vertical profile of vertical diffusion of Salt ('       &  ' /* vertical profile of vertical diffusion of Salt ('
188       &  //rUnits//'^2/s )*/')       &  //rUnits//'^2/s )*/')
189          IF ( saltVertDiff4 )
190         & CALL WRITE_1D_RL( diffKr4S, Nr, INDEX_K, 'diffKr4S =',
191         &  ' /* profile of vertical biharmonic diffusion of Salt ('
192         &  //rUnits//'^4/s )*/')
193        CALL WRITE_0D_RL( diffKrBL79surf, INDEX_NONE,'diffKrBL79surf =',        CALL WRITE_0D_RL( diffKrBL79surf, INDEX_NONE,'diffKrBL79surf =',
194       &  ' /* Surface diffusion for Bryan and Lewis 79 ( m^2/s ) */')       &  ' /* Surface diffusion for Bryan and Lewis 79 ( m^2/s ) */')
195        CALL WRITE_0D_RL( diffKrBL79deep, INDEX_NONE,'diffKrBL79deep =',        CALL WRITE_0D_RL( diffKrBL79deep, INDEX_NONE,'diffKrBL79deep =',
Legend:
Removed from v.1.135  
changed lines
  Added in v.1.136
  ViewVC Help
Powered by ViewVC 1.1.22