/[MITgcm]/MITgcm_contrib/mlosch/optim_m1qn3/optim_readdata.F
ViewVC logotype

Diff of /MITgcm_contrib/mlosch/optim_m1qn3/optim_readdata.F

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

revision 1.2 by mlosch, Fri Apr 27 09:50:46 2012 UTC revision 1.5 by mlosch, Mon May 9 09:37:16 2016 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4  c     Include ECCO_CPPOPTIONS because the ecco_ctrl,cost files  C     ECCO_CPPOPTIONS used to affect maxcvars and defined ALLOW_OBCS?_CONTROL
5  c     have headers with options for OBCS masks.  C#include "ECCO_CPPOPTIONS.h"
6  #include "ECCO_CPPOPTIONS.h"  C     now:
7    C     CTRL_OPTIONS affects maxcvars and may define ALLOW_OBCS?_CONTROL
8    #include "CTRL_OPTIONS.h"
9    
10        subroutine optim_readdata(        subroutine optim_readdata(
11       I                      nn,       I                      nn,
# Line 39  c     == global variables == Line 41  c     == global variables ==
41    
42  #include "EEPARAMS.h"  #include "EEPARAMS.h"
43  #include "SIZE.h"  #include "SIZE.h"
44    #if (defined (ALLOW_GENARR2D_CONTROL) || defined (ALLOW_GENARR3D_CONTROL) || defined (ALLOW_GENTIM2D_CONTROL))
45    # include "CTRL_SIZE.h"
46    #endif
47  #include "ctrl.h"  #include "ctrl.h"
48  #include "optim.h"  #include "optim.h"
49    
# Line 284  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 359  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.2  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22