/[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.3 by heimbach, Fri Dec 6 01:42:25 2002 UTC revision 1.6 by heimbach, Thu Sep 9 15:58:42 2004 UTC
# Line 75  c     == local variables == Line 75  c     == local variables ==
75        integer funit        integer funit
76    
77        integer cbuffindex        integer cbuffindex
78        _RL     cbuff( sNx*nSx*nPx*sNy*nSy*nPy )        real*4 cbuff( sNx*nSx*nPx*sNy*nSy*nPy )
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)
155    #ifdef ALLOW_CTRL_WETV
156        read( funit ) (nWetvGlobal(k), k=1,nr)        read( funit ) (nWetvGlobal(k), k=1,nr)
157    #endif
158    
159  cgg(    Add OBCS Mask information into the header section for optimization.  cgg(    Add OBCS Mask information into the header section for optimization.
160  #ifdef ALLOW_OBCSN_CONTROL  #ifdef ALLOW_OBCSN_CONTROL
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22