/[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.6 by heimbach, Thu Sep 9 15:58:42 2004 UTC revision 1.7 by dfer, Tue Jan 15 16:36:32 2008 UTC
# Line 37  cgg   Include ECCO_CPPOPTIONS because th Line 37  cgg   Include ECCO_CPPOPTIONS because th
37  cgg   have headers with options for OBCS masks.  cgg   have headers with options for OBCS masks.
38  #include "ECCO_CPPOPTIONS.h"  #include "ECCO_CPPOPTIONS.h"
39    
 #include "ecco.h"  
40  #include "ctrl.h"  #include "ctrl.h"
41  #include "optim.h"  #include "optim.h"
42  #include "minimization.h"  #include "minimization.h"
# Line 82  c     == local variables == Line 81  c     == local variables ==
81  c      integer         filei  c      integer         filei
82  c      integer         filej  c      integer         filej
83  c      integer         filek  c      integer         filek
84  c      integer         fileig  c      integer         fileiG
85  c      integer         filejg  c      integer         filejG
86  c      integer         filensx  c      integer         filensx
87  c      integer         filensy  c      integer         filensy
88        integer         filenopt        integer         filenopt
# Line 131  c--   Read the data. Line 130  c--   Read the data.
130    
131  c--   Generate file name and open the file.  c--   Generate file name and open the file.
132        write(fname(1:128),'(4a,i4.4)')        write(fname(1:128),'(4a,i4.4)')
133       &     dfile,'_',expId(1:10),'.opt', nopt       &     dfile,'_',yctrlid(1:10),'.opt', nopt
134        open( funit, file   = fname,        open( funit, file   = fname,
135       &     status = 'old',       &     status = 'old',
136       &     form   = 'unformatted',       &     form   = 'unformatted',
# Line 141  c--   Generate file name and open the fi Line 140  c--   Generate file name and open the fi
140  c--   Read the header.  c--   Read the header.
141        read( funit ) nvartype        read( funit ) nvartype
142        read( funit ) nvarlength        read( funit ) nvarlength
143        read( funit ) expId        read( funit ) yctrlid
144        read( funit ) filenopt        read( funit ) filenopt
145        read( funit ) fileff        read( funit ) fileff
146        read( funit ) fileiG        read( funit ) fileiG
# Line 182  cph( Line 181  cph(
181  cph      if (lheaderonly) then  cph      if (lheaderonly) then
182           print *, 'pathei: nvartype ', nvartype           print *, 'pathei: nvartype ', nvartype
183           print *, 'pathei: nvarlength ', nvarlength           print *, 'pathei: nvarlength ', nvarlength
184           print *, 'pathei: expId ', expId           print *, 'pathei: yctrlid ', yctrlid
185           print *, 'pathei: filenopt ', filenopt           print *, 'pathei: filenopt ', filenopt
186           print *, 'pathei: fileff ', fileff           print *, 'pathei: fileff ', fileff
187           print *, 'pathei: fileiG ', fileiG           print *, 'pathei: fileiG ', fileiG
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22