/[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.49 by adcroft, Wed Jun 2 13:23:55 2004 UTC revision 1.50 by adcroft, Wed Jun 9 14:03:35 2004 UTC
# Line 133  c     CALL WRITE_0D_R8( diffKzS, INDEX_N Line 133  c     CALL WRITE_0D_R8( diffKzS, INDEX_N
133  c    &'   /* Laplacian diffusion of salt vertically ( m^2/s ) */')  c    &'   /* Laplacian diffusion of salt vertically ( m^2/s ) */')
134        CALL WRITE_0D_R8( diffKrS, INDEX_NONE,'diffKrS =',        CALL WRITE_0D_R8( diffKrS, INDEX_NONE,'diffKrS =',
135       &'   /* Laplacian diffusion of salt vertically ( m^2/s ) */')       &'   /* Laplacian diffusion of salt vertically ( m^2/s ) */')
136          CALL WRITE_0D_R8( diffKrBL79surf, INDEX_NONE,'diffKrBL79surf =',
137         &'   /* Surface diffusion for Bryan and Lewis 1979 ( m^2/s ) */')
138          CALL WRITE_0D_R8( diffKrBL79deep, INDEX_NONE,'diffKrBL79deep =',
139         &'   /* Deep diffusion for Bryan and Lewis 1979 ( m^2/s ) */')
140          CALL WRITE_0D_R8( diffKrBL79scl, INDEX_NONE,'diffKrBL79scl =',
141         &'   /* Depth scale for Bryan and Lewis 1979 ( m ) */')
142          CALL WRITE_0D_R8( diffKrBL79Ho, INDEX_NONE,'diffKrBL79Ho =',
143         &'   /* Turning depth for Bryan and Lewis 1979 ( m ) */')
144        WRITE(msgBuf,'(2A)') ' Equation of State : eosType = ', eosType        WRITE(msgBuf,'(2A)') ' Equation of State : eosType = ', eosType
145        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
146       &                    SQUEEZE_RIGHT , 1)       &                    SQUEEZE_RIGHT , 1)
Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50
  ViewVC Help
Powered by ViewVC 1.1.22