/[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.7 by dfer, Tue Jan 15 16:36:32 2008 UTC revision 1.8 by mlosch, Tue May 10 07:53:24 2011 UTC
# Line 154  c--   Read the header. Line 154  c--   Read the header.
154  #ifdef ALLOW_CTRL_WETV  #ifdef ALLOW_CTRL_WETV
155        read( funit ) (nWetvGlobal(k), k=1,nr)        read( funit ) (nWetvGlobal(k), k=1,nr)
156  #endif  #endif
157    #ifdef ALLOW_SHIFWFLX_CONTROL
158          read(funit) (nWetiGlobal(k), k=1,nr)
159    c     read(funit) nWetiGlobal(1)
160    #endif
161    
162  cgg(    Add OBCS Mask information into the header section for optimization.  cgg(    Add OBCS Mask information into the header section for optimization.
163  #ifdef ALLOW_OBCSN_CONTROL  #ifdef ALLOW_OBCSN_CONTROL
# Line 197  cph      if (lheaderonly) then Line 201  cph      if (lheaderonly) then
201       &        (nWetwGlobal(k),  k=1,nr)       &        (nWetwGlobal(k),  k=1,nr)
202           print *, 'pathei: nWetvGlobal ',           print *, 'pathei: nWetvGlobal ',
203       &        (nWetvGlobal(k),  k=1,nr)       &        (nWetvGlobal(k),  k=1,nr)
204    #ifdef ALLOW_SHIFWFLX_CONTROL
205             print *, 'pathei: nWetiGlobal ',
206         &        (nWetiGlobal(k), k=1,nr)
207    #endif
208           print *, 'pathei: ncvarindex ',           print *, 'pathei: ncvarindex ',
209       &        (ncvarindex(i), i=1,maxcvars)       &        (ncvarindex(i), i=1,maxcvars)
210           print *, 'pathei: ncvarrecs ',           print *, 'pathei: ncvarrecs ',
# Line 269  c--   Read the data. Line 277  c--   Read the data.
277                                cbuffindex = nWetwGlobal(k)                                cbuffindex = nWetwGlobal(k)
278                             else if (ncvargrd(icvar) .eq. 'v') then                             else if (ncvargrd(icvar) .eq. 'v') then
279                                cbuffindex = nWetvGlobal(k)                                cbuffindex = nWetvGlobal(k)
280    #ifdef ALLOW_SHIFWFLX_CONTROL
281                               else if (ncvargrd(icvar) .eq. 'i') then
282                                  cbuffindex = nWetiGlobal(k)
283    #endif
284  cgg(   O.B. points have the grid mask "m".  cgg(   O.B. points have the grid mask "m".
285                             else if (ncvargrd(icvar) .eq. 'm') then                             else if (ncvargrd(icvar) .eq. 'm') then
286  cgg    From "icvrec", calculate what iobcs must be.  cgg    From "icvrec", calculate what iobcs must be.
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22