/[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.5 by adcroft, Tue May 18 17:39:21 1999 UTC revision 1.6 by cnh, Fri Sep 21 03:54:34 2001 UTC
# Line 2  C $Header$ Line 2  C $Header$
2    
3  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
4    
5  CStartOfInterface  CBOP
6    C     !ROUTINE: EEINTRO_MSG
7    
8    C     !INTERFACE:  
9        SUBROUTINE EEINTRO_MSG        SUBROUTINE EEINTRO_MSG
 C     /==========================================================\  
 C     | SUBROUTINE EEINTRO_MSG                                   |  
 C     | o Write basic introductory message.                      |  
 C     |==========================================================|  
 C     | This routine could be customised for different platforms.|  
 C     \==========================================================/  
10        IMPLICIT NONE        IMPLICIT NONE
11    
12    C     !DESCRIPTION:
13    C     *==========================================================
14    C     | SUBROUTINE EEINTRO_MSG                                  
15    C     | o Write basic WRAPPER introductory message.                      
16    C     *==========================================================
17    C     | This routine could be customised for different platforms.
18    C     | Output includes which checkpoint of the code is running.
19    C     | The routine doesn't currently report the user id or      
20    C     | machine name correctly.                                  
21    C     *==========================================================
22    
23    C     !USES:
24  C     === Global data ===  C     === Global data ===
25  #include "SIZE.h"  #include "SIZE.h"
26  #include "EEPARAMS.h"  #include "EEPARAMS.h"
27  #include "EESUPPORT.h"  #include "EESUPPORT.h"
28    
29  CEndOfInterface  C     !LOCAL VARIABLES:
   
30  C     === Local variables ===  C     === Local variables ===
31        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
32    CEOP
33                
34    
35        WRITE(msgBuf,'(A)') '                '        WRITE(msgBuf,'(A)') '                '
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22