eesupp/src/eeintro_msg.F

924557e60a Chri*0001 #include "CPP_EEOPTIONS.h"
                0002
4c563c2ee9 Chri*0003 CBOP
                0004 C     !ROUTINE: EEINTRO_MSG
                0005
9a263a84a8 Ed H*0006 C     !INTERFACE:
924557e60a Chri*0007       SUBROUTINE EEINTRO_MSG
e7ea7a463f Alis*0008       IMPLICIT NONE
924557e60a Chri*0009
4c563c2ee9 Chri*0010 C     !DESCRIPTION:
9a263a84a8 Ed H*0011 C     Write basic WRAPPER introductory message.  This routine could be
                0012 C     customised for different platforms.  Output includes which
                0013 C     checkpoint of the code is running.  The routine doesnt currently
                0014 C     report the user id or machine name correctly.
4c563c2ee9 Chri*0015
                0016 C     !USES:
2f7dcdd863 Ed H*0017 #include "BUILD_INFO.h"
924557e60a Chri*0018 #include "SIZE.h"
                0019 #include "EEPARAMS.h"
                0020 #include "EESUPPORT.h"
                0021
4c563c2ee9 Chri*0022 C     !LOCAL VARIABLES:
924557e60a Chri*0023       CHARACTER*(MAX_LEN_MBUF) msgBuf
4c563c2ee9 Chri*0024 CEOP
924557e60a Chri*0025
                0026       WRITE(msgBuf,'(A)') '                '
                0027       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
9a263a84a8 Ed H*0028      &     SQUEEZE_RIGHT , 1)
279a5957aa Jean*0029       WRITE(msgBuf,'(A)')
9a263a84a8 Ed H*0030      &     '// ======================================================'
924557e60a Chri*0031       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
9a263a84a8 Ed H*0032      &     SQUEEZE_RIGHT , 1)
924557e60a Chri*0033       WRITE(msgBuf,'(A)') '//                      MITgcm UV'
                0034       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
9a263a84a8 Ed H*0035      &     SQUEEZE_RIGHT , 1)
924557e60a Chri*0036       WRITE(msgBuf,'(A)') '//                      ========='
                0037       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
9a263a84a8 Ed H*0038      &     SQUEEZE_RIGHT , 1)
279a5957aa Jean*0039       WRITE(msgBuf,'(A)')
9a263a84a8 Ed H*0040      &     '// ======================================================'
924557e60a Chri*0041       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
9a263a84a8 Ed H*0042      &     SQUEEZE_RIGHT , 1)
924557e60a Chri*0043       WRITE(msgBuf,'(A)') '// execution environment starting up...'
                0044       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
9a263a84a8 Ed H*0045      &     SQUEEZE_RIGHT , 1)
                0046       WRITE(msgBuf,'(A)') '   '
                0047       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
                0048      &     SQUEEZE_RIGHT , 1)
279a5957aa Jean*0049
9a263a84a8 Ed H*0050 #ifdef THISVER
279a5957aa Jean*0051       WRITE(msgBuf,'(2A)') '// MITgcmUV version:  ',
9a263a84a8 Ed H*0052      &     THISVER
924557e60a Chri*0053       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
9a263a84a8 Ed H*0054      &     SQUEEZE_RIGHT , 1)
                0055 #endif
                0056 #ifdef THISUSER
                0057       WRITE(msgBuf,'(2A)') '// Build user:        ',
                0058      &     THISUSER
924557e60a Chri*0059       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
9a263a84a8 Ed H*0060      &     SQUEEZE_RIGHT , 1)
                0061 #endif
                0062 #ifdef THISHOST
                0063       WRITE(msgBuf,'(2A)') '// Build host:        ',
                0064      &     THISHOST
924557e60a Chri*0065       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
9a263a84a8 Ed H*0066      &     SQUEEZE_RIGHT , 1)
                0067 #endif
                0068 #ifdef THISDATE
279a5957aa Jean*0069       WRITE(msgBuf,'(2A)') '// Build date:        ',
9a263a84a8 Ed H*0070      &     THISDATE
924557e60a Chri*0071       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
9a263a84a8 Ed H*0072      &     SQUEEZE_RIGHT , 1)
                0073 #endif
                0074
924557e60a Chri*0075       WRITE(msgBuf,'(A)') '   '
                0076       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
9a263a84a8 Ed H*0077      &     SQUEEZE_RIGHT , 1)
924557e60a Chri*0078 C
                0079       RETURN
                0080       END