/[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.3 by cnh, Wed Oct 28 03:11:34 1998 UTC revision 1.4 by cnh, Tue Nov 3 15:41:36 1998 UTC
# Line 51  C     === Local variables === Line 51  C     === Local variables ===
51        WRITE(msgBuf,'(A)') '// account cnh'        WRITE(msgBuf,'(A)') '// account cnh'
52        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
53       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
54        WRITE(msgBuf,'(A)') '// MITgcm UV Release: 0.0.0'        WRITE(msgBuf,'(A)')
55         &'// MITgcm UV Release: $Name$'
56        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
57       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
58        WRITE(msgBuf,'(A)') '   '        WRITE(msgBuf,'(A)') '   '
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22