/[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.96 by jmc, Mon Mar 12 23:43:54 2007 UTC revision 1.97 by jmc, Mon May 7 23:20:01 2007 UTC
# Line 82  C     ycoord :: varying parameters. Line 82  C     ycoord :: varying parameters.
82        WRITE(msgBuf,'(A)') '//  '        WRITE(msgBuf,'(A)') '//  '
83        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
84       &                    SQUEEZE_RIGHT, myThid )       &                    SQUEEZE_RIGHT, myThid )
85        WRITE(msgBuf,'(A,A40)') 'buoyancyRelation = ', buoyancyRelation        CALL WRITE_0D_C( buoyancyRelation, -1, INDEX_NONE,
86        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,       & 'buoyancyRelation =', ' /* Type of relation to get Buoyancy */')
      &                    SQUEEZE_RIGHT, myThid )  
87        CALL WRITE_0D_L( fluidIsAir,   INDEX_NONE,        CALL WRITE_0D_L( fluidIsAir,   INDEX_NONE,
88       & 'fluidIsAir  =', '  /* fluid major constituent is Air */')       & 'fluidIsAir  =', '  /* fluid major constituent is Air */')
89        CALL WRITE_0D_L( fluidIsWater, INDEX_NONE,        CALL WRITE_0D_L( fluidIsWater, INDEX_NONE,
# Line 176  C     ycoord :: varying parameters. Line 175  C     ycoord :: varying parameters.
175       &'   /* Depth scale for Bryan and Lewis 1979 ( m ) */')       &'   /* Depth scale for Bryan and Lewis 1979 ( m ) */')
176        CALL WRITE_0D_R8( diffKrBL79Ho, INDEX_NONE,'diffKrBL79Ho =',        CALL WRITE_0D_R8( diffKrBL79Ho, INDEX_NONE,'diffKrBL79Ho =',
177       &'   /* Turning depth for Bryan and Lewis 1979 ( m ) */')       &'   /* Turning depth for Bryan and Lewis 1979 ( m ) */')
178        WRITE(msgBuf,'(4A)') 'Equation of State : ',        CALL WRITE_0D_C( eosType, 0, INDEX_NONE, 'eosType =',
179       &                     'eosType = ', eosType, ' ;'       & '  /* Type of Equation of State */')
       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,  
      &                    SQUEEZE_RIGHT, myThid )  
180        CALL WRITE_0D_R8( tAlpha,  INDEX_NONE,'tAlpha =',        CALL WRITE_0D_R8( tAlpha,  INDEX_NONE,'tAlpha =',
181       &'   /* Linear EOS thermal expansion coefficient ( 1/oC ) */')       &'   /* Linear EOS thermal expansion coefficient ( 1/oC ) */')
182        CALL WRITE_0D_R8( sBeta,   INDEX_NONE,'sBeta =',        CALL WRITE_0D_R8( sBeta,   INDEX_NONE,'sBeta =',
# Line 655  C     Grid along selected grid lines Line 652  C     Grid along selected grid lines
652    
653        I = ILNBLNK(the_run_name)        I = ILNBLNK(the_run_name)
654        IF ( I.GT.0 ) THEN        IF ( I.GT.0 ) THEN
655          WRITE(msgBuf,'(4A)') 'the_run_name = ',          CALL WRITE_0D_C( the_run_name, I, INDEX_NONE,
656       &                    '/* Name of this simulation */'       &    'the_run_name = ', '/* Name of this simulation */' )
         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,  
      &                      SQUEEZE_RIGHT, myThid )  
         WRITE(msgBuf,'(14X,3A)') "'", the_run_name(1:I), "'"  
         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,  
      &                      SQUEEZE_RIGHT, myThid )  
         WRITE(msgBuf,'(A)') '    ;'  
         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,  
      &                      SQUEEZE_RIGHT, myThid )  
657        ENDIF        ENDIF
658    
659        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
Legend:
Removed from v.1.96  
changed lines
  Added in v.1.97
  ViewVC Help
Powered by ViewVC 1.1.22