/[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.10 by mlosch, Mon Jul 25 08:58:47 2011 UTC revision 1.12 by gforget, Tue May 26 22:54:09 2015 UTC
# Line 1  Line 1 
1    
2    #ifdef ALLOW_OBCS
3    c Include ECCO_CPPOPTIONS because ecco,ctrl,cost files have headers with options for OBCS masks.
4    # include "ECCO_CPPOPTIONS.h"
5    #else
6    # include "CTRL_OPTIONS.h"
7    #endif
8    
9        subroutine optim_readdata(        subroutine optim_readdata(
10       I                      nn,       I                      nn,
11       I                      dfile,       I                      dfile,
# Line 33  c     == global variables == Line 40  c     == global variables ==
40    
41  #include "EEPARAMS.h"  #include "EEPARAMS.h"
42  #include "SIZE.h"  #include "SIZE.h"
 cgg   Include ECCO_CPPOPTIONS because the ecco_ctrl,cost files  
 cgg   have headers with options for OBCS masks.  
 #include "ECCO_CPPOPTIONS.h"  
   
43  #include "ctrl.h"  #include "ctrl.h"
44  #include "optim.h"  #include "optim.h"
45  #include "minimization.h"  #include "minimization.h"
# Line 286  c--   Read the data. Line 289  c--   Read the data.
289         do icvar = 1,maxcvars         do icvar = 1,maxcvars
290          if ( ncvarindex(icvar) .ne. -1 ) then          if ( ncvarindex(icvar) .ne. -1 ) then
291           do icvrec = 1,ncvarrecs(icvar)           do icvrec = 1,ncvarrecs(icvar)
292            do bj = 1,nsy  cph          do bj = 1,nsy
293             do bi = 1,nsx  cph           do bi = 1,nsx
294              read( funit ) ncvarindex(icvar)              read( funit ) ncvarindex(icvar)
295              read( funit ) filej              read( funit ) filej
296              read( funit ) filei              read( funit ) filei
# Line 361  c              if (iobcs .eq. 4) vv(icvo Line 364  c              if (iobcs .eq. 4) vv(icvo
364                icvoffset = icvoffset + cbuffindex                icvoffset = icvoffset + cbuffindex
365               endif               endif
366              enddo              enddo
367             enddo  cph           enddo
368            enddo  cph          enddo
369           enddo           enddo
370          endif          endif
371         enddo         enddo
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22