File indexing completed on 2018-03-02 18:38:17 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
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
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021
0022
0023
0024
0025 implicit none
0026
0027
0028
0029 #include "EEPARAMS.h"
0030
0031
0032
0033 integer myiter
0034 _RL mytime
0035 integer mydate(4)
0036 integer mythid
0037
0038 character*(max_len_mbuf) msgbuf
0039
0040
0041
0042
0043
0044
0045
0046 call cal_GetDate( myiter, mytime, mydate, mythid )
0047
0048
c3cd6c250f Jean*0049
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