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

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

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

revision 1.13 by heimbach, Tue Nov 1 04:09:46 2005 UTC revision 1.14 by heimbach, Thu Apr 27 12:50:39 2006 UTC
# Line 232  c           --> check cbuffindex. Line 232  c           --> check cbuffindex.
232  #ifndef ALLOW_ADMTLM  #ifndef ALLOW_ADMTLM
233                 write(cunit) cbuffindex                 write(cunit) cbuffindex
234                 write(cunit) k                 write(cunit) k
235  #endif  cph#endif
236                 write(cunit) (cbuff(ii), ii=1,cbuffindex)                 write(cunit) (cbuff(ii), ii=1,cbuffindex)
237    #endif
238              endif              endif
239  c  c
240              if ( doPackDiag ) then              if ( doPackDiag ) then
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22