C $Header: /u/gcmpack/MITgcm/pkg/fizhi/fizhi_update_time.F,v 1.4 2004/09/14 16:20:04 molod Exp $ C $Name: $ #include "FIZHI_OPTIONS.h" subroutine FIZHI_UPDATE_TIME (myIter,myThid,deltat) C*********************************************************************** C Purpose C ------- C Update Model Date and Time C C Arguments Description C ---------------------- C myThid ... Process(or) number C deltat ... Time step to tick the clock C*********************************************************************** implicit none #include "chronos.h" integer myIter, myThid _RL deltat integer ndt C ********************************************************************** C **** Call Routine to Tick the Clock **** C ********************************************************************** ndt = deltat call TICK(nymd,nhms,ndt) if(mythid.eq.1) then print *, 'Current Date ',nymd,' Current Time ',nhms endif return end