/[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.14 by heimbach, Tue Nov 16 05:42:12 2004 UTC revision 1.15 by mlosch, Fri Dec 3 00:48:57 2004 UTC
# Line 158  c     >>> Write gradient vector <<< Line 158  c     >>> Write gradient vector <<<
158       &      access  = 'sequential'   )       &      access  = 'sequential'   )
159    
160  c--       Header information.  c--       Header information.
161            write(cunit) filenvartype            write(cunit) nvartype
162            write(cunit) filenvarlength            write(cunit) nvarlength
163            write(cunit) fileyctrlid            write(cunit) yctrlid
164            write(cunit) fileoptimCycle            write(cunit) optimCycle
165            write(cunit) filefc            write(cunit) fc
166            write(cunit) fileIg  C     place holder of obsolete variable iG
167            write(cunit) fileJg            write(cunit) 1
168            write(cunit) filensx  C     place holder of obsolete variable jG
169            write(cunit) filensy            write(cunit) 1
170            write(cunit) (filenWetcGlobal(k), k=1,nr)            write(cunit) nsx
171            write(cunit) (filenWetsGlobal(k), k=1,nr)            write(cunit) nsy
172            write(cunit) (filenWetwGlobal(k), k=1,nr)            write(cunit) (nWetcGlobal(k), k=1,nr)
173              write(cunit) (nWetsGlobal(k), k=1,nr)
174              write(cunit) (nWetwGlobal(k), k=1,nr)
175  #ifdef ALLOW_CTRL_WETV  #ifdef ALLOW_CTRL_WETV
176            write(cunit) (filenWetvGlobal(k), k=1,nr)            write(cunit) (nWetvGlobal(k), k=1,nr)
177  #endif  #endif
178    
179  #ifdef ALLOW_OBCSN_CONTROL  #ifdef ALLOW_OBCSN_CONTROL
# Line 186  c--       Header information. Line 188  c--       Header information.
188  #ifdef ALLOW_OBCSE_CONTROL  #ifdef ALLOW_OBCSE_CONTROL
189            write(cunit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)            write(cunit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
190  #endif  #endif
191            write(cunit) (filencvarindex(i), i=1,maxcvars)            write(cunit) (ncvarindex(i), i=1,maxcvars)
192            write(cunit) (filencvarrecs(i),  i=1,maxcvars)            write(cunit) (ncvarrecs(i),  i=1,maxcvars)
193            write(cunit) (filencvarxmax(i),  i=1,maxcvars)            write(cunit) (ncvarxmax(i),  i=1,maxcvars)
194            write(cunit) (filencvarymax(i),  i=1,maxcvars)            write(cunit) (ncvarymax(i),  i=1,maxcvars)
195            write(cunit) (filencvarnrmax(i), i=1,maxcvars)            write(cunit) (ncvarnrmax(i), i=1,maxcvars)
196            write(cunit) (filencvargrd(i),   i=1,maxcvars)            write(cunit) (ncvargrd(i),   i=1,maxcvars)
197            write(cunit)            write(cunit)
198    
199  #ifdef ALLOW_THETA0_CONTROL  #ifdef ALLOW_THETA0_CONTROL
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22