/[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.1.2.3 by heimbach, Fri Dec 6 01:47:35 2002 UTC revision 1.1.2.4 by heimbach, Fri Mar 7 05:21:33 2003 UTC
# 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
Legend:
Removed from v.1.1.2.3  
changed lines
  Added in v.1.1.2.4
  ViewVC Help
Powered by ViewVC 1.1.22