/[MITgcm]/MITgcm/pkg/cal/cal_printdate.F
ViewVC logotype

Diff of /MITgcm/pkg/cal/cal_printdate.F

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

revision 1.3 by heimbach, Thu Mar 4 19:34:21 2004 UTC revision 1.4 by gforget, Tue Feb 28 00:36:36 2012 UTC
# Line 48  c     mythid  - thread number for this i Line 48  c     mythid  - thread number for this i
48    
49  c     == local variables ==  c     == local variables ==
50    
51        integer ierr        integer ierr, ioUnit
52  ce    character*(max_len_mbuf) msgbuf        character*(max_len_mbuf) msgbuf
53    
54  c     == end of interface ==  c     == end of interface ==
55    
56          ioUnit=standardMessageUnit
57    
58        if ( caldate(4) .gt. 0 ) then        if ( caldate(4) .gt. 0 ) then
59  c       Print the calendar date.  c       Print the calendar date.
60          print*,caldate          write(msgBuf,'(i10,i8,i3,i4)') caldate(1), caldate(2),
61  ce      write(*,'(i10,i8,i3,i4)') caldate(1), caldate(2),       &                                 caldate(3), caldate(4)
62  ce   &                            caldate(3), caldate(4)          CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid )
63    
64        else if ( caldate(4) .eq. -1 ) then        else if ( caldate(4) .eq. -1 ) then
65  c       Print the time interval.  c       Print the time interval.
66          print*,caldate          write(msgBuf,'(i10,i8,i3,i4)') caldate(1), caldate(2),
67  ce      write(*,'(i10,i8,i3,i4)') caldate(1), caldate(2),       &                                 caldate(3), caldate(4)
68  ce   &                            caldate(3), caldate(4)          CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid )
69    
70        else        else
71    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22