/[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.85 by jmc, Tue Dec 13 16:41:47 2005 UTC revision 1.86 by jmc, Fri Feb 10 22:56:19 2006 UTC
# Line 91  C     zcoord :: Line 91  C     zcoord ::
91        CALL WRITE_0D_L( usingZCoords, INDEX_NONE,        CALL WRITE_0D_L( usingZCoords, INDEX_NONE,
92       & 'usingZCoords =', '  /* use z (or z*) vertical coordinate */')       & 'usingZCoords =', '  /* use z (or z*) vertical coordinate */')
93        CALL WRITE_1D_R8( tRef, Nr, INDEX_K,'tRef =',        CALL WRITE_1D_R8( tRef, Nr, INDEX_K,'tRef =',
94       &'   /* Reference temperature profile ( oC or oK ) */')       &'   /* Reference temperature profile ( oC or K ) */')
95        CALL WRITE_1D_R8( sRef, Nr, INDEX_K,'sRef =',        CALL WRITE_1D_R8( sRef, Nr, INDEX_K,'sRef =',
96       &'   /* Reference salinity profile ( ppt ) */')       &'   /* Reference salinity profile ( psu ) */')
97        CALL WRITE_0D_R8( viscAh, INDEX_NONE,'viscAh =',        CALL WRITE_0D_R8( viscAh, INDEX_NONE,'viscAh =',
98       &'   /* Lateral eddy viscosity ( m^2/s ) */')       &'   /* Lateral eddy viscosity ( m^2/s ) */')
99        IF ( viscAhD.NE.viscAh )        IF ( viscAhD.NE.viscAh )
# Line 173  C     zcoord :: Line 173  C     zcoord ::
173       &'   /* Depth scale for Bryan and Lewis 1979 ( m ) */')       &'   /* Depth scale for Bryan and Lewis 1979 ( m ) */')
174        CALL WRITE_0D_R8( diffKrBL79Ho, INDEX_NONE,'diffKrBL79Ho =',        CALL WRITE_0D_R8( diffKrBL79Ho, INDEX_NONE,'diffKrBL79Ho =',
175       &'   /* Turning depth for Bryan and Lewis 1979 ( m ) */')       &'   /* Turning depth for Bryan and Lewis 1979 ( m ) */')
176        WRITE(msgBuf,'(2A)') ' Equation of State : eosType = ', eosType  c     WRITE(msgBuf,'(2A)') ' Equation of State : eosType = ', eosType
177          WRITE(msgBuf,'(4A)') 'Equation of State : ',
178         &                     'eosType = ', eosType, ' ;'
179        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
180       &                    SQUEEZE_RIGHT , 1)       &                    SQUEEZE_RIGHT , 1)
181        CALL WRITE_0D_R8( tAlpha,  INDEX_NONE,'tAlpha =',        CALL WRITE_0D_R8( tAlpha,  INDEX_NONE,'tAlpha =',
182       &'   /* Linear EOS thermal expansion coefficient ( 1/degree ) */')       &'   /* Linear EOS thermal expansion coefficient ( 1/oC ) */')
183        CALL WRITE_0D_R8( sBeta,   INDEX_NONE,'sBeta =',        CALL WRITE_0D_R8( sBeta,   INDEX_NONE,'sBeta =',
184       &'   /* Linear EOS haline contraction coefficient ( 1/ppt ) */')       &'   /* Linear EOS haline contraction coefficient ( 1/psu ) */')
185        IF ( eosType .EQ. 'POLY3' ) THEN        IF ( eosType .EQ. 'POLY3' ) THEN
186          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
187       &   '// Polynomial EQS parameters ( from POLY3.COEFFS ) '       &   '// Polynomial EQS parameters ( from POLY3.COEFFS ) '
# Line 278  C     zcoord :: Line 280  C     zcoord ::
280       &' /* convert F.W. Flux to Salt Flux (-1=use local S)(ppt)*/')       &' /* convert F.W. Flux to Salt Flux (-1=use local S)(ppt)*/')
281        ENDIF        ENDIF
282    
283          CALL WRITE_0D_L( use3Dsolver, INDEX_NONE,
284         & 'use3Dsolver =', ' /* use 3-D pressure solver on/off flag */')
285        CALL WRITE_0D_L( nonHydrostatic, INDEX_NONE,        CALL WRITE_0D_L( nonHydrostatic, INDEX_NONE,
286       & 'nonHydrostatic =', '  /* Non-Hydrostatic on/off flag */')       & 'nonHydrostatic =', '  /* Non-Hydrostatic on/off flag */')
287        CALL WRITE_0D_R8( nh_Am2, INDEX_NONE, 'nh_Am2 =',        CALL WRITE_0D_R8( nh_Am2, INDEX_NONE, 'nh_Am2 =',
# Line 550  c    &'   /* W spacing ( units of r ) */ Line 554  c    &'   /* W spacing ( units of r ) */
554        ENDDO        ENDDO
555        CALL WRITE_1D_R8( rcoord, Nr+1, INDEX_K,'rF = ',        CALL WRITE_1D_R8( rcoord, Nr+1, INDEX_K,'rF = ',
556       &'   /* W-Interf. R coordinate (  units of r ) */')       &'   /* W-Interf. R coordinate (  units of r ) */')
557          CALL WRITE_1D_R8( dBdrRef, Nr, INDEX_K,'dBdrRef = ',
558         & ' /* Vertical gradient of reference boyancy [(m/s/r)^2)] */')
559    
560  C     Grid along selected grid lines  C     Grid along selected grid lines
561        coordLine = 1        coordLine = 1
Legend:
Removed from v.1.85  
changed lines
  Added in v.1.86
  ViewVC Help
Powered by ViewVC 1.1.22