/[MITgcm]/MITgcm/pkg/fizhi/fizhi_write_datetime.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/fizhi_write_datetime.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by molod, Fri Oct 22 14:52:14 2004 UTC revision 1.3 by jmc, Mon May 23 02:48:41 2005 UTC
# Line 24  CEOP Line 24  CEOP
24    
25        if( myThid.eq.1) then        if( myThid.eq.1) then
26  C      Write Supplemental Ascii File with Current Time Info  C      Write Supplemental Ascii File with Current Time Info
27         open(10,file='datetime',form='formatted')         CALL MDSFINDUNIT( ku, myThid )
28         write(10,1000)nymd,nhms         open(ku,file='datetime',form='formatted')
29           write(ku,1000)nymd,nhms
30         print *,' Writing datetime file: NYMD = ',nymd,' NHMS = ',nhms         print *,' Writing datetime file: NYMD = ',nymd,' NHMS = ',nhms
31         close (10)         close (ku)
32        endif        endif
33   1000 format(i8,2x,i6)   1000 format(i8,2x,i6)
34    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22