pkg/fizhi/fizhi_write_datetime.F

C $Header:  $
C $Name:  $

#include "FIZHI_OPTIONS.h"

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
CBOP 0
C     !INTERFACE:
      SUBROUTINE FIZHI_WRITE_DATETIME( myTime, myIter, myThid )

C     !DESCRIPTION:
C     Write Fizhi date and time to ascii file

      implicit none

#include "chronos.h"

C     !INPUT PARAMETERS:
      integer myTime, myIter, myThid
CEOP

      integer ku

      if( myThid.eq.1) then
C      Write Supplemental Ascii File with Current Time Info
       open(10,file='datetime',form='formatted')
       write(10,1000)nymd,nhms
       print *,' Writing datetime file: NYMD = ',nymd,' NHMS = ',nhms
       close (10)
      endif
 1000 format(i8,2x,i6)

      return
      end
1	C $Header: $
2	C $Name: $
3
4	#include "FIZHI_OPTIONS.h"
5
6	C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
7	CBOP 0
8	C !INTERFACE:
9	SUBROUTINE FIZHI_WRITE_DATETIME( myTime, myIter, myThid )
10
11	C !DESCRIPTION:
12	C Write Fizhi date and time to ascii file
13
14	implicit none
15
16	#include "chronos.h"
17
18	C !INPUT PARAMETERS:
19	integer myTime, myIter, myThid
20	CEOP
21
22	integer ku
23
24	if( myThid.eq.1) then
25	C Write Supplemental Ascii File with Current Time Info
26	open(10,file='datetime',form='formatted')
27	write(10,1000)nymd,nhms
28	print *,' Writing datetime file: NYMD = ',nymd,' NHMS = ',nhms
29	close (10)
30	endif
31	1000 format(i8,2x,i6)
32
33	return
34	end