/[MITgcm]/MITgcm/optim/optim_readdata.F
ViewVC logotype

Diff of /MITgcm/optim/optim_readdata.F

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

revision 1.5 by heimbach, Wed Nov 19 19:07:02 2003 UTC revision 1.6 by heimbach, Thu Sep 9 15:58:42 2004 UTC
# Line 79  c     == local variables == Line 79  c     == local variables ==
79    
80        character*(128) fname        character*(128) fname
81    
82        integer         filei  c      integer         filei
83        integer         filej  c      integer         filej
84        integer         filek  c      integer         filek
85    c      integer         fileig
86    c      integer         filejg
87    c      integer         filensx
88    c      integer         filensy
89        integer         filenopt        integer         filenopt
       integer         fileig  
       integer         filejg  
       integer         filensx  
       integer         filensy  
90        _RL             fileff        _RL             fileff
91    
92  cgg(  cgg(
# Line 97  cgg) Line 97  cgg)
97    
98  c     == end of interface ==  c     == end of interface ==
99    
100          print *, 'pathei-lsopt in optim_readdata'
101    
102  c--   The reference i/o unit.  c--   The reference i/o unit.
103        funit = 20        funit = 20
104    
# Line 147  c--   Read the header. Line 149  c--   Read the header.
149        read( funit ) filensx        read( funit ) filensx
150        read( funit ) filensy        read( funit ) filensy
151    
 cph(  
       print *,'ph-opt 1 ', nvartype, nvarlength, filensx, filensy  
 cph)  
   
152        read( funit ) (nWetcGlobal(k), k=1,nr)        read( funit ) (nWetcGlobal(k), k=1,nr)
153        read( funit ) (nWetsGlobal(k), k=1,nr)        read( funit ) (nWetsGlobal(k), k=1,nr)
154        read( funit ) (nWetwGlobal(k), k=1,nr)        read( funit ) (nWetwGlobal(k), k=1,nr)
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22