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