/[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.60 by edhill, Wed Oct 13 04:37:37 2004 UTC revision 1.61 by jmc, Sun Oct 17 23:03:38 2004 UTC
# Line 111  C     zcoord :: Line 111  C     zcoord ::
111       &'   /* Laplacian diffusion of heat laterally ( m^2/s ) */')       &'   /* Laplacian diffusion of heat laterally ( m^2/s ) */')
112        CALL WRITE_0D_R8( diffK4T, INDEX_NONE,'diffK4T =',        CALL WRITE_0D_R8( diffK4T, INDEX_NONE,'diffK4T =',
113       &'   /* Bihaarmonic diffusion of heat laterally ( m^4/s ) */')       &'   /* Bihaarmonic diffusion of heat laterally ( m^4/s ) */')
       CALL WRITE_0D_R8( diffKrT, INDEX_NONE,'diffKrT =',  
      &'   /* Laplacian diffusion of heat vertically ( m^2/s ) */')  
114        CALL WRITE_0D_R8( diffKhS, INDEX_NONE,'diffKhS =',        CALL WRITE_0D_R8( diffKhS, INDEX_NONE,'diffKhS =',
115       &'   /* Laplacian diffusion of salt laterally ( m^2/s ) */')       &'   /* Laplacian diffusion of salt laterally ( m^2/s ) */')
116        CALL WRITE_0D_R8( diffK4S, INDEX_NONE,'diffK4S =',        CALL WRITE_0D_R8( diffK4S, INDEX_NONE,'diffK4S =',
117       &'   /* Bihaarmonic diffusion of salt laterally ( m^4/s ) */')       &'   /* Bihaarmonic diffusion of salt laterally ( m^4/s ) */')
118        CALL WRITE_0D_R8( diffKrS, INDEX_NONE,'diffKrS =',        CALL WRITE_1D_R8( diffKrNrT, Nr, INDEX_K,'diffKrNrT =',
119       &'   /* Laplacian diffusion of salt vertically ( m^2/s ) */')       & ' /* vertical profile of vertical diffusion of Temp ( m^2/s )*/')
120          CALL WRITE_1D_R8( diffKrNrS, Nr, INDEX_K,'diffKrNrS =',
121         & ' /* vertical profile of vertical diffusion of Salt ( m^2/s )*/')
122        CALL WRITE_0D_R8( diffKrBL79surf, INDEX_NONE,'diffKrBL79surf =',        CALL WRITE_0D_R8( diffKrBL79surf, INDEX_NONE,'diffKrBL79surf =',
123       &'   /* Surface diffusion for Bryan and Lewis 1979 ( m^2/s ) */')       &'   /* Surface diffusion for Bryan and Lewis 1979 ( m^2/s ) */')
124        CALL WRITE_0D_R8( diffKrBL79deep, INDEX_NONE,'diffKrBL79deep =',        CALL WRITE_0D_R8( diffKrBL79deep, INDEX_NONE,'diffKrBL79deep =',
Legend:
Removed from v.1.60  
changed lines
  Added in v.1.61
  ViewVC Help
Powered by ViewVC 1.1.22