/[MITgcm]/MITgcm/pkg/exf/exf_summary.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_summary.F

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

revision 1.9 by heimbach, Tue Apr 17 23:51:22 2007 UTC revision 1.10 by heimbach, Wed Apr 18 05:02:11 2007 UTC
# Line 78  c     == end of interface == Line 78  c     == end of interface ==
78       &' '       &' '
79        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
80       &                    SQUEEZE_RIGHT , mythid)       &                    SQUEEZE_RIGHT , mythid)
       write(msgbuf,'(a,a)')  
      &'External forcing version: ',externalforcingversion  
       call print_message( msgbuf, standardmessageunit,  
      &                    SQUEEZE_RIGHT , mythid)  
       write(msgbuf,'(a,a)')  
      &'Uses Calendar version:    ',usescalendarversion  
       call print_message( msgbuf, standardmessageunit,  
      &                    SQUEEZE_RIGHT , mythid)  
81        write(msgbuf,'(a)')        write(msgbuf,'(a)')
82       &' '       &' '
83        call print_message( msgbuf, standardmessageunit,        call print_message( msgbuf, standardmessageunit,
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22