/[MITgcm]/MITgcm/pkg/ctrl/ctrl_pack.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_pack.F

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

revision 1.4.6.3 by heimbach, Thu Apr 4 10:24:47 2002 UTC revision 1.4.6.4 by heimbach, Thu May 30 19:56:44 2002 UTC
# Line 235  c--       Header information. Line 235  c--       Header information.
235            write(cunit) 1            write(cunit) 1
236            write(cunit) 1            write(cunit) 1
237            write(cunit) 1            write(cunit) 1
238            write(cunit) (nWetcTile(1,1,k), k=1,nr)            write(cunit) (nWetcGlobal(k), k=1,nr)
239            write(cunit) (nWetsTile(1,1,k), k=1,nr)            write(cunit) (nWetsGlobal(k), k=1,nr)
240            write(cunit) (nWetwTile(1,1,k), k=1,nr)            write(cunit) (nWetwGlobal(k), k=1,nr)
           write(cunit) (ncvarindex(i), i=1,maxcvars)  
           write(cunit) (ncvarrecs(i),  i=1,maxcvars)  
           write(cunit) (nx,  i=1,maxcvars)  
           write(cunit) (ny,  i=1,maxcvars)  
           write(cunit) (ncvarnrmax(i), i=1,maxcvars)  
           write(cunit) (ncvargrd(i),   i=1,maxcvars)  
           write(cunit)  
241  #ifdef ALLOW_OBCSN_CONTROL  #ifdef ALLOW_OBCSN_CONTROL
242            write(cunit) ((nWetobcsn(1,1,k,iobcs), k=1,nr),iobcs= 1,nobcs)            write(cunit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
243  #endif  #endif
244  #ifdef ALLOW_OBCSS_CONTROL  #ifdef ALLOW_OBCSS_CONTROL
245            write(cunit) ((nWetobcss(1,1,k,iobcs), k=1,nr),iobcs= 1,nobcs)            write(cunit) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
246  #endif  #endif
247  #ifdef ALLOW_OBCSW_CONTROL  #ifdef ALLOW_OBCSW_CONTROL
248            write(cunit) ((nWetobcsw(1,1,k,iobcs), k=1,nr),iobcs= 1,nobcs)            write(cunit) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
249  #endif  #endif
250  #ifdef ALLOW_OBCSE_CONTROL  #ifdef ALLOW_OBCSE_CONTROL
251            write(cunit) ((nWetobcse(1,1,k,iobcs), k=1,nr),iobcs= 1,nobcs)            write(cunit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
252  #endif  #endif
253              write(cunit) (ncvarindex(i), i=1,maxcvars)
254              write(cunit) (ncvarrecs(i),  i=1,maxcvars)
255              write(cunit) (nx,  i=1,maxcvars)
256              write(cunit) (ny,  i=1,maxcvars)
257              write(cunit) (ncvarnrmax(i), i=1,maxcvars)
258              write(cunit) (ncvargrd(i),   i=1,maxcvars)
259              write(cunit)
260    
261  #ifdef ALLOW_THETA0_CONTROL  #ifdef ALLOW_THETA0_CONTROL
262            ivartype = 1            ivartype = 1
Legend:
Removed from v.1.4.6.3  
changed lines
  Added in v.1.4.6.4
  ViewVC Help
Powered by ViewVC 1.1.22