/[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.93 by jmc, Tue Dec 5 05:25:08 2006 UTC revision 1.94 by jmc, Thu Dec 28 01:48:01 2006 UTC
# Line 37  C     myThid ::  Number of this instance Line 37  C     myThid ::  Number of this instance
37        INTEGER myThid        INTEGER myThid
38  CEOP  CEOP
39    
40    C     !FUNCTIONS:
41          INTEGER  ILNBLNK
42          EXTERNAL ILNBLNK
43    
44  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
45  C     msgBuf :: Temp. for building output string.  C     msgBuf :: Temp. for building output string.
46  C     I,J,K  :: Loop counters.  C     I,J,K  :: Loop counters.
# Line 172  C     ycoord :: varying parameters. Line 176  C     ycoord :: varying parameters.
176       &'   /* Depth scale for Bryan and Lewis 1979 ( m ) */')       &'   /* Depth scale for Bryan and Lewis 1979 ( m ) */')
177        CALL WRITE_0D_R8( diffKrBL79Ho, INDEX_NONE,'diffKrBL79Ho =',        CALL WRITE_0D_R8( diffKrBL79Ho, INDEX_NONE,'diffKrBL79Ho =',
178       &'   /* Turning depth for Bryan and Lewis 1979 ( m ) */')       &'   /* Turning depth for Bryan and Lewis 1979 ( m ) */')
 c     WRITE(msgBuf,'(2A)') ' Equation of State : eosType = ', eosType  
179        WRITE(msgBuf,'(4A)') 'Equation of State : ',        WRITE(msgBuf,'(4A)') 'Equation of State : ',
180       &                     'eosType = ', eosType, ' ;'       &                     'eosType = ', eosType, ' ;'
181        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
# Line 643  C     Grid along selected grid lines Line 646  C     Grid along selected grid lines
646        CALL WRITE_0D_R8( globalArea, INDEX_NONE, 'globalArea =',        CALL WRITE_0D_R8( globalArea, INDEX_NONE, 'globalArea =',
647       & ' /* Integrated horizontal Area (m^2) */')       & ' /* Integrated horizontal Area (m^2) */')
648    
649          I = ILNBLNK(the_run_name)
650          IF ( I.GT.0 ) THEN
651            WRITE(msgBuf,'(4A)') 'the_run_name = ',
652         &                    '/* Name of this simulation */'
653            CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
654         &                      SQUEEZE_RIGHT, myThid )
655            WRITE(msgBuf,'(14X,3A)') "'", the_run_name(1:I), "'"
656            CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
657         &                      SQUEEZE_RIGHT, myThid )
658            WRITE(msgBuf,'(A)') '    ;'
659            CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
660         &                      SQUEEZE_RIGHT, myThid )
661          ENDIF
662    
663        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
664       &'// ======================================================='       &'// ======================================================='
665        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
Legend:
Removed from v.1.93  
changed lines
  Added in v.1.94
  ViewVC Help
Powered by ViewVC 1.1.22