1 |
C $Header: /u/gcmpack/MITgcm/pkg/cal/cal_timestamp.F,v 1.2 2003/10/09 04:19:19 edhill Exp $ |
2 |
C $Name: $ |
3 |
|
4 |
#include "CAL_OPTIONS.h" |
5 |
|
6 |
subroutine cal_TimeStamp( |
7 |
I myiter, |
8 |
I mytime, |
9 |
O mydate, |
10 |
I mythid |
11 |
& ) |
12 |
|
13 |
c ================================================================== |
14 |
c SUBROUTINE cal_TimeStamp |
15 |
c ================================================================== |
16 |
c |
17 |
c o Get and print time step information for the numerical model. |
18 |
c |
19 |
c started: Christian Eckert eckert@mit.edu 04-May-2000 |
20 |
c |
21 |
c - Adapted to calendar from the ECCO release routine |
22 |
c ecco_TimeStamp. |
23 |
c |
24 |
c ================================================================== |
25 |
c SUBROUTINE cal_TimeStamp |
26 |
c ================================================================== |
27 |
|
28 |
implicit none |
29 |
|
30 |
c == global variables == |
31 |
|
32 |
#include "EEPARAMS.h" |
33 |
|
34 |
c == routine arguments == |
35 |
|
36 |
integer myiter |
37 |
_RL mytime |
38 |
integer mydate(4) |
39 |
integer mythid |
40 |
|
41 |
character*(max_len_mbuf) msgbuf |
42 |
|
43 |
c == local variables == |
44 |
|
45 |
c == end of interface == |
46 |
|
47 |
c-- Get the current date. |
48 |
|
49 |
call cal_GetDate( myiter, mytime, mydate, mythid ) |
50 |
|
51 |
c-- Print integration step, time, and the corresponding date |
52 |
c-- if this is the master thread instance of this routine. |
53 |
|
54 |
_BEGIN_MASTER(mythid) |
55 |
write(msgbuf,'(a)') |
56 |
& ' ' |
57 |
call print_message( msgbuf, standardmessageunit, |
58 |
& SQUEEZE_RIGHT , mythid) |
59 |
write(msgbuf,'(a,i10,a,e15.8)') |
60 |
& ' cal_TimeStamp: iter = ',myiter,' time = ',mytime |
61 |
call print_message( msgbuf, standardmessageunit, |
62 |
& SQUEEZE_RIGHT , mythid) |
63 |
write(msgbuf,'(a,i10,2x,i10)') |
64 |
& ' date = ',mydate(1),mydate(2) |
65 |
call print_message( msgbuf, standardmessageunit, |
66 |
& SQUEEZE_RIGHT , mythid) |
67 |
write(msgbuf,'(a)') |
68 |
& ' ' |
69 |
call print_message( msgbuf, standardmessageunit, |
70 |
& SQUEEZE_RIGHT , mythid) |
71 |
_END_MASTER(mythid) |
72 |
|
73 |
return |
74 |
end |
75 |
|