pkg/fizhi/fizhi_write_datetime.F

f1a85b1a3d Andr*0001 #include "FIZHI_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP 0
                0005 C     !INTERFACE:
                0006       SUBROUTINE FIZHI_WRITE_DATETIME( myTime, myIter, myThid )
                0007
                0008 C     !DESCRIPTION:
                0009 C     Write Fizhi date and time to ascii file
                0010
                0011       implicit none
                0012
                0013 #include "chronos.h"
                0014
                0015 C     !INPUT PARAMETERS:
3768927683 Andr*0016       integer myIter, myThid
                0017       _RL myTime
f1a85b1a3d Andr*0018 CEOP
                0019
                0020       integer ku
                0021
                0022       if( myThid.eq.1) then
                0023 C      Write Supplemental Ascii File with Current Time Info
b1696b022e Jean*0024        CALL MDSFINDUNIT( ku, myThid )
                0025        open(ku,file='datetime',form='formatted')
                0026        write(ku,1000)nymd,nhms
f1a85b1a3d Andr*0027        print *,' Writing datetime file: NYMD = ',nymd,' NHMS = ',nhms
b1696b022e Jean*0028        close (ku)
f1a85b1a3d Andr*0029       endif
                0030  1000 format(i8,2x,i6)
                0031
                0032       return
                0033       end