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

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

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

revision 1.3 by molod, Thu Jun 10 20:53:19 2004 UTC revision 1.4 by molod, Thu Jul 22 22:33:55 2004 UTC
# Line 44  C ************************************** Line 44  C **************************************
44  C ****      Read Supplemental Ascii File with Current Time Info     ****  C ****      Read Supplemental Ascii File with Current Time Info     ****
45  C **********************************************************************  C **********************************************************************
46    
47        open(ku,file='datetime',form='formatted')        open(10,file='datetime',form='formatted')
48        read(10,1000)nymdcurrent,nhmscurrent        read(10,1000)nymdcurrent,nhmscurrent
49          close (10)
50   1000 format(i8,2x,i6)   1000 format(i8,2x,i6)
51    
52  C **********************************************************************  C **********************************************************************
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22