/[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.4 by heimbach, Fri Mar 7 05:20:50 2003 UTC revision 1.5 by heimbach, Wed Nov 19 19:07:02 2003 UTC
# Line 62  c     == local variables == Line 62  c     == local variables ==
62        integer funit        integer funit
63        integer cbuffindex        integer cbuffindex
64    
65        _RL     cbuff( sNx*nSx*nPx*sNy*nSy*nPy )        real*4 cbuff( sNx*nSx*nPx*sNy*nSy*nPy )
66    
67        character*(128) fname        character*(128) fname
68  cgg(  cgg(
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22