/[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.3 by heimbach, Fri Dec 6 01:42:25 2002 UTC revision 1.6 by mlosch, Fri Dec 3 01:06:33 2004 UTC
# Line 62  c     == local variables == Line 62  c     == local variables ==
62        integer funit        integer funit
63        integer cbuffindex        integer cbuffindex
64    
65        _RL     cbuff( sNx*nSx*nPx*sNy*nSy*nPy )        real*4 cbuff( sNx*nSx*nPx*sNy*nSy*nPy )
66    
67        character*(128) fname        character*(128) fname
68  cgg(  cgg(
# Line 149  c--   Write the header. Line 149  c--   Write the header.
149        write( funit ) (nWetcGlobal(k), k=1,nr)        write( funit ) (nWetcGlobal(k), k=1,nr)
150        write( funit ) (nWetsGlobal(k), k=1,nr)        write( funit ) (nWetsGlobal(k), k=1,nr)
151        write( funit ) (nWetwGlobal(k), k=1,nr)        write( funit ) (nWetwGlobal(k), k=1,nr)
152    #ifdef ALLOW_CTRL_WETV
153        write( funit ) (nWetvGlobal(k), k=1,nr)        write( funit ) (nWetvGlobal(k), k=1,nr)
154    #endif
155    
156  cgg(    Add OBCS Mask information into the header section for optimization.  cgg(    Add OBCS Mask information into the header section for optimization.
157  #ifdef ALLOW_OBCSN_CONTROL  #ifdef ALLOW_OBCSN_CONTROL
# Line 179  c--         Write the data. Line 181  c--         Write the data.
181        do icvar = 1,maxcvars        do icvar = 1,maxcvars
182           if ( ncvarindex(icvar) .ne. -1 ) then           if ( ncvarindex(icvar) .ne. -1 ) then
183              do icvrec = 1,ncvarrecs(icvar)              do icvrec = 1,ncvarrecs(icvar)
 cph(  
                print *,'in owd: icvar, icvrec, ncvarrecs, ncvarindex',  
      &              icvar, icvrec, ncvarrecs(icvar), ncvarindex(icvar)  
 cph)  
184                 do bj = 1,nsy                 do bj = 1,nsy
185                    do bi = 1,nsx                    do bi = 1,nsx
186                       write( funit ) ncvarindex(icvar)                       write( funit ) ncvarindex(icvar)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22