/[MITgcm]/MITgcm/eesupp/src/eeintro_msg.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/eeintro_msg.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.6 by cnh, Fri Sep 21 03:54:34 2001 UTC revision 1.10 by edhill, Fri Mar 3 18:36:53 2006 UTC
# Line 5  C $Header$ Line 5  C $Header$
5  CBOP  CBOP
6  C     !ROUTINE: EEINTRO_MSG  C     !ROUTINE: EEINTRO_MSG
7    
8  C     !INTERFACE:    C     !INTERFACE:
9        SUBROUTINE EEINTRO_MSG        SUBROUTINE EEINTRO_MSG
10        IMPLICIT NONE        IMPLICIT NONE
11    
12  C     !DESCRIPTION:  C     !DESCRIPTION:
13  C     *==========================================================  C     Write basic WRAPPER introductory message.  This routine could be
14  C     | SUBROUTINE EEINTRO_MSG                                    C     customised for different platforms.  Output includes which
15  C     | o Write basic WRAPPER introductory message.                        C     checkpoint of the code is running.  The routine doesnt currently
16  C     *==========================================================  C     report the user id or machine name correctly.
 C     | This routine could be customised for different platforms.  
 C     | Output includes which checkpoint of the code is running.  
 C     | The routine doesn't currently report the user id or        
 C     | machine name correctly.                                    
 C     *==========================================================  
17    
18  C     !USES:  C     !USES:
19  C     === Global data ===  #include "BUILD_INFO.h"
20  #include "SIZE.h"  #include "SIZE.h"
21  #include "EEPARAMS.h"  #include "EEPARAMS.h"
22  #include "EESUPPORT.h"  #include "EESUPPORT.h"
23    
24  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
 C     === Local variables ===  
25        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
26  CEOP  CEOP
         
27    
28        WRITE(msgBuf,'(A)') '                '        WRITE(msgBuf,'(A)') '                '
29        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
30       &  SQUEEZE_RIGHT , 1)       &     SQUEEZE_RIGHT , 1)
31        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
32       &'// ======================================================'       &     '// ======================================================'
33        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
34       &  SQUEEZE_RIGHT , 1)       &     SQUEEZE_RIGHT , 1)
35        WRITE(msgBuf,'(A)') '//                      MITgcm UV'        WRITE(msgBuf,'(A)') '//                      MITgcm UV'
36        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
37       &  SQUEEZE_RIGHT , 1)       &     SQUEEZE_RIGHT , 1)
38        WRITE(msgBuf,'(A)') '//                      ========='        WRITE(msgBuf,'(A)') '//                      ========='
39        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
40       &  SQUEEZE_RIGHT , 1)       &     SQUEEZE_RIGHT , 1)
41        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
42       &'// ======================================================'       &     '// ======================================================'
43        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
44       &  SQUEEZE_RIGHT , 1)       &     SQUEEZE_RIGHT , 1)
45        WRITE(msgBuf,'(A)') '// execution environment starting up...'        WRITE(msgBuf,'(A)') '// execution environment starting up...'
46        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
47       &  SQUEEZE_RIGHT , 1)       &     SQUEEZE_RIGHT , 1)
48        WRITE(msgBuf,'(A)') '// Run starting Wed Apr  1 14:19:48 1998'        WRITE(msgBuf,'(A)') '   '
       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,  
      &  SQUEEZE_RIGHT , 1)  
       WRITE(msgBuf,'(A)') '// on melville.lcs.mit.edu'  
       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,  
      &  SQUEEZE_RIGHT , 1)  
       WRITE(msgBuf,'(A)') '// account cnh'  
49        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
50       &  SQUEEZE_RIGHT , 1)       &     SQUEEZE_RIGHT , 1)
51        WRITE(msgBuf,'(A)')        
52       &'// MITgcm UV Release: $Name$'  #ifdef THISVER
53          WRITE(msgBuf,'(2A)') '// MITgcmUV version:  ',
54         &     THISVER
55          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
56         &     SQUEEZE_RIGHT , 1)
57    #endif
58    #ifdef THISUSER
59          WRITE(msgBuf,'(2A)') '// Build user:        ',
60         &     THISUSER
61          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
62         &     SQUEEZE_RIGHT , 1)
63    #endif
64    #ifdef THISHOST
65          WRITE(msgBuf,'(2A)') '// Build host:        ',
66         &     THISHOST
67          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
68         &     SQUEEZE_RIGHT , 1)
69    #endif
70    #ifdef THISDATE
71          WRITE(msgBuf,'(2A)') '// Build date:        ',
72         &     THISDATE
73        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
74       &  SQUEEZE_RIGHT , 1)       &     SQUEEZE_RIGHT , 1)
75    #endif
76    
77        WRITE(msgBuf,'(A)') '   '        WRITE(msgBuf,'(A)') '   '
78        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
79       &  SQUEEZE_RIGHT , 1)       &     SQUEEZE_RIGHT , 1)
80  C  C
81        RETURN        RETURN
82        END        END
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22