pkg/cal/cal_timestamp.F

6d54cf9ca1 Ed H*0001 #include "CAL_OPTIONS.h"
a63ed37559 Patr*0002
                0003       subroutine cal_TimeStamp(
                0004      I                          myiter,
                0005      I                          mytime,
                0006      O                          mydate,
                0007      I                          mythid
                0008      &                        )
                0009
                0010 c     ==================================================================
                0011 c     SUBROUTINE cal_TimeStamp
                0012 c     ==================================================================
                0013 c
                0014 c     o Get and print time step information for the numerical model.
                0015 c
                0016 c     started: Christian Eckert eckert@mit.edu 04-May-2000
                0017 c
                0018 c              - Adapted to calendar from the ECCO release routine
                0019 c                ecco_TimeStamp.
                0020 c
                0021 c     ==================================================================
                0022 c     SUBROUTINE cal_TimeStamp
                0023 c     ==================================================================
                0024
                0025       implicit none
                0026
                0027 c     == global variables ==
                0028
                0029 #include "EEPARAMS.h"
                0030
                0031 c     == routine arguments ==
                0032
                0033       integer myiter
                0034       _RL     mytime
                0035       integer mydate(4)
                0036       integer mythid
                0037
                0038       character*(max_len_mbuf) msgbuf
                0039
                0040 c     == local variables ==
                0041
                0042 c     == end of interface ==
                0043
                0044 c--   Get the current date.
                0045
                0046       call cal_GetDate( myiter, mytime, mydate, mythid )
                0047
                0048 c--   Print integration step, time, and the corresponding date
c3cd6c250f Jean*0049 c--   if this is the master thread instance of this routine.
a63ed37559 Patr*0050
                0051       _BEGIN_MASTER(mythid)
                0052         write(msgbuf,'(a)')
                0053      &  ' '
                0054         call print_message( msgbuf, standardmessageunit,
                0055      &                      SQUEEZE_RIGHT , mythid)
                0056         write(msgbuf,'(a,i10,a,e15.8)')
                0057      &  ' cal_TimeStamp: iter = ',myiter,' time = ',mytime
                0058         call print_message( msgbuf, standardmessageunit,
                0059      &                      SQUEEZE_RIGHT , mythid)
                0060         write(msgbuf,'(a,i10,2x,i10)')
                0061      &  '                date = ',mydate(1),mydate(2)
                0062         call print_message( msgbuf, standardmessageunit,
                0063      &                      SQUEEZE_RIGHT , mythid)
                0064         write(msgbuf,'(a)')
                0065      &  ' '
                0066         call print_message( msgbuf, standardmessageunit,
                0067      &                      SQUEEZE_RIGHT , mythid)
                0068       _END_MASTER(mythid)
                0069
                0070       return
                0071       end
                0072