File indexing completed on 2018-03-02 18:36:07 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
924557e60a Chri*0001 #include "CPP_EEOPTIONS.h"
0002
4c563c2ee9 Chri*0003
0004
0005
9a263a84a8 Ed H*0006
924557e60a Chri*0007 SUBROUTINE EEINTRO_MSG
e7ea7a463f Alis*0008 IMPLICIT NONE
924557e60a Chri*0009
4c563c2ee9 Chri*0010
9a263a84a8 Ed H*0011
0012
0013
0014
4c563c2ee9 Chri*0015
0016
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
924557e60a Chri*0023 CHARACTER*(MAX_LEN_MBUF) msgBuf
4c563c2ee9 Chri*0024
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
0079 RETURN
0080 END