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

Diff of /MITgcm/optim/optim_writedata.F

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

revision 1.9 by mlosch, Mon Jul 25 08:57:39 2011 UTC revision 1.12 by gforget, Tue Jun 2 14:49:13 2015 UTC
# Line 1  Line 1 
1    
2    c ECCO_CPPOPTIONS used to affect maxcvars
3    c and def ALLOW_OBCSN_CONTROL etc (OBCS masks etc)
4    c#include ECCO_CPPOPTIONS.h
5    
6    c CTRL_OPTIONS affects maxcvars and may def
7    c ALLOW_OBCSN_CONTROL etc (OBCS masks etc)
8    #include "CTRL_OPTIONS.h"
9    
10        subroutine optim_writedata(        subroutine optim_writedata(
11       I                       nn,       I                       nn,
12       I                       dfile,       I                       dfile,
# Line 30  c     == global variables == Line 38  c     == global variables ==
38    
39  #include "EEPARAMS.h"  #include "EEPARAMS.h"
40  #include "SIZE.h"  #include "SIZE.h"
 cgg   Include ECCO_CPPOPTIONS because the ecco_ctrl,cost files have headers with  
 cgg   options for OBCS masks.  
 #include "ECCO_CPPOPTIONS.h"  
   
41  #include "ctrl.h"  #include "ctrl.h"
42  #include "optim.h"  #include "optim.h"
43  #include "minimization.h"  #include "minimization.h"
# Line 184  c--         Write the data. Line 188  c--         Write the data.
188        do icvar = 1,maxcvars        do icvar = 1,maxcvars
189           if ( ncvarindex(icvar) .ne. -1 ) then           if ( ncvarindex(icvar) .ne. -1 ) then
190              do icvrec = 1,ncvarrecs(icvar)              do icvrec = 1,ncvarrecs(icvar)
191                 do bj = 1,nsy  cph               do bj = 1,nsy
192                    do bi = 1,nsx  cph                  do bi = 1,nsx
193                       write( funit ) ncvarindex(icvar)                       write( funit ) ncvarindex(icvar)
194                       write( funit ) bj                       write( funit ) bj
195                       write( funit ) bi                       write( funit ) bi
# Line 245  c                              if (iobcs Line 249  c                              if (iobcs
249                             icvoffset = icvoffset + cbuffindex                             icvoffset = icvoffset + cbuffindex
250                          endif                          endif
251                       enddo                       enddo
252                    enddo  cph                  enddo
253                 enddo  cph               enddo
254              enddo              enddo
255           endif           endif
256        enddo        enddo
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22