/[MITgcm]/MITgcm/pkg/mdsio/mdsio_gl.F
ViewVC logotype

Diff of /MITgcm/pkg/mdsio/mdsio_gl.F

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

revision 1.13 by jmc, Sat Nov 5 01:05:14 2005 UTC revision 1.14 by jmc, Sun Nov 6 01:25:13 2005 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "MDSIO_OPTIONS.h"  #include "MDSIO_OPTIONS.h"
5    
# Line 483  C Local variables Line 484  C Local variables
484  cph-usesingle(  cph-usesingle(
485  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
486        integer ii,jj        integer ii,jj
487        integer x_size,y_size,iG_IO,jG_IO,npe  c     integer iG_IO,jG_IO,npe
488          integer x_size,y_size
489        PARAMETER ( x_size = Nx )        PARAMETER ( x_size = Nx )
490        PARAMETER ( y_size = Ny )        PARAMETER ( y_size = Ny )
491        Real*4 xy_buffer_r4(x_size,y_size)        Real*4 xy_buffer_r4(x_size,y_size)
# Line 1197  C Local variables Line 1199  C Local variables
1199  cph-usesingle(  cph-usesingle(
1200  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
1201        integer ii,jj        integer ii,jj
1202        integer x_size,y_size,iG_IO,jG_IO,npe  c     integer iG_IO,jG_IO,npe
1203          integer x_size,y_size
1204        PARAMETER ( x_size = Nx )        PARAMETER ( x_size = Nx )
1205        PARAMETER ( y_size = Ny )        PARAMETER ( y_size = Ny )
1206        Real*4 xy_buffer_r4(x_size,y_size)        Real*4 xy_buffer_r4(x_size,y_size)
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22