25 |
WRITE(msgBuf,'(A)') ' ' |
WRITE(msgBuf,'(A)') ' ' |
26 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
27 |
& SQUEEZE_RIGHT , 1) |
& SQUEEZE_RIGHT , 1) |
28 |
WRITE(msgBuf,'(A)') '// ======================================================' |
WRITE(msgBuf,'(A)') |
29 |
|
&'// ======================================================' |
30 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
31 |
& SQUEEZE_RIGHT , 1) |
& SQUEEZE_RIGHT , 1) |
32 |
WRITE(msgBuf,'(A)') '// MITgcm UV' |
WRITE(msgBuf,'(A)') '// MITgcm UV' |
35 |
WRITE(msgBuf,'(A)') '// =========' |
WRITE(msgBuf,'(A)') '// =========' |
36 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
37 |
& SQUEEZE_RIGHT , 1) |
& SQUEEZE_RIGHT , 1) |
38 |
WRITE(msgBuf,'(A)') '// ======================================================' |
WRITE(msgBuf,'(A)') |
39 |
|
&'// ======================================================' |
40 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
41 |
& SQUEEZE_RIGHT , 1) |
& SQUEEZE_RIGHT , 1) |
42 |
WRITE(msgBuf,'(A)') '// execution environment starting up...' |
WRITE(msgBuf,'(A)') '// execution environment starting up...' |