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

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

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

Revision 1.3 - (show annotations) (download)
Wed Oct 28 03:11:34 1998 UTC (25 years, 8 months ago) by cnh
Branch: MAIN
CVS Tags: checkpoint17, checkpoint16
Changes since 1.2: +5 -3 lines 
Changes to support
 - g77 compilation under Linux
 - LR(1) form of 64-bit is D or E for constants
 - Modified adjoint of exch with adjoint variables
   acuumulated.
1 C $Header: /u/gcmpack/models/MITgcmUV/eesupp/src/eeintro_msg.F,v 1.2 1998/04/23 20:37:30 cnh Exp $
2
3 #include "CPP_EEOPTIONS.h"
4
5 CStartOfInterface
6 SUBROUTINE EEINTRO_MSG
7 C /==========================================================\
8 C | SUBROUTINE EEINTRO_MSG |
9 C | o Write basic introductory message. |
10 C |==========================================================|
11 C | This routine could be customised for different platforms.|
12 C \==========================================================/
13
14 C === Global data ===
15 #include "SIZE.h"
16 #include "EEPARAMS.h"
17 #include "EESUPPORT.h"
18
19 CEndOfInterface
20
21 C === Local variables ===
22 CHARACTER*(MAX_LEN_MBUF) msgBuf
23
24
25 WRITE(msgBuf,'(A)') ' '
26 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
27 & SQUEEZE_RIGHT , 1)
28 WRITE(msgBuf,'(A)')
29 &'// ======================================================'
30 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
31 & SQUEEZE_RIGHT , 1)
32 WRITE(msgBuf,'(A)') '// MITgcm UV'
33 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
34 & SQUEEZE_RIGHT , 1)
35 WRITE(msgBuf,'(A)') '// ========='
36 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
37 & SQUEEZE_RIGHT , 1)
38 WRITE(msgBuf,'(A)')
39 &'// ======================================================'
40 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
41 & SQUEEZE_RIGHT , 1)
42 WRITE(msgBuf,'(A)') '// execution environment starting up...'
43 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
44 & SQUEEZE_RIGHT , 1)
45 WRITE(msgBuf,'(A)') '// Run starting Wed Apr 1 14:19:48 1998'
46 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
47 & SQUEEZE_RIGHT , 1)
48 WRITE(msgBuf,'(A)') '// on melville.lcs.mit.edu'
49 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
50 & SQUEEZE_RIGHT , 1)
51 WRITE(msgBuf,'(A)') '// account cnh'
52 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
53 & SQUEEZE_RIGHT , 1)
54 WRITE(msgBuf,'(A)') '// MITgcm UV Release: 0.0.0'
55 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
56 & SQUEEZE_RIGHT , 1)
57 WRITE(msgBuf,'(A)') ' '
58 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
59 & SQUEEZE_RIGHT , 1)
60 C
61 RETURN
62 END
  ViewVC Help
Powered by ViewVC 1.1.22