C $Header: /u/gcmpack/MITgcm/pkg/cal/cal_timestamp.F,v 1.3 2010/03/16 00:11:46 jmc Exp $ C $Name: $ #include "CAL_OPTIONS.h" subroutine CAL_TIMESTAMP( I myiter, I mytime, O mydate, I mythid & ) c ================================================================== c SUBROUTINE cal_TimeStamp c ================================================================== c c o Get and print time step information for the numerical model. c c started: Christian Eckert eckert@mit.edu 04-May-2000 c c - Adapted to calendar from the ECCO release routine c ecco_TimeStamp. c c ================================================================== c SUBROUTINE cal_TimeStamp c ================================================================== implicit none c == global variables == #include "EEPARAMS.h" c == routine arguments == integer myiter _RL mytime integer mydate(4) integer mythid character*(max_len_mbuf) msgbuf c == local variables == c == end of interface == c-- Get the current date. call CAL_GETDATE( myiter, mytime, mydate, mythid ) c-- Print integration step, time, and the corresponding date c-- if this is the master thread instance of this routine. _BEGIN_MASTER(mythid) write(msgbuf,'(a)') & ' ' call PRINT_MESSAGE( msgbuf, standardmessageunit, & SQUEEZE_RIGHT , mythid) write(msgbuf,'(a,i10,a,e15.8)') & ' cal_TimeStamp: iter = ',myiter,' time = ',mytime call PRINT_MESSAGE( msgbuf, standardmessageunit, & SQUEEZE_RIGHT , mythid) write(msgbuf,'(a,i10,2x,i10)') & ' date = ',mydate(1),mydate(2) call PRINT_MESSAGE( msgbuf, standardmessageunit, & SQUEEZE_RIGHT , mythid) write(msgbuf,'(a)') & ' ' call PRINT_MESSAGE( msgbuf, standardmessageunit, & SQUEEZE_RIGHT , mythid) _END_MASTER(mythid) return end