/[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.15 by heimbach, Mon May 14 22:53:26 2007 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 102  c     integer iG_IO,jG_IO,npe Line 103  c     integer iG_IO,jG_IO,npe
103        Real*8 global(Nx,Ny)        Real*8 global(Nx,Ny)
104  c     _RL    local(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  c     _RL    local(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
105  cph-usesingle)  cph-usesingle)
106    CMM(
107          integer pIL
108    CMM)
109    
110  C     ------------------------------------------------------------------  C     ------------------------------------------------------------------
111    
# Line 124  C Assume nothing Line 128  C Assume nothing
128        globalFile = .FALSE.        globalFile = .FALSE.
129        fileIsOpen = .FALSE.        fileIsOpen = .FALSE.
130        IL=ILNBLNK( fName )        IL=ILNBLNK( fName )
131    CMM(
132          pIL = ILNBLNK( mdsioLocalDir )
133    CMM)
134    CMM(
135    C Assign special directory
136          if ( pIL.NE.0 ) then
137           write(fName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL)
138          endif
139    CMM)
140    
141  C Assign a free unit number as the I/O channel for this routine  C Assign a free unit number as the I/O channel for this routine
142        call MDSFINDUNIT( dUnit, mythid )        call MDSFINDUNIT( dUnit, mythid )
# Line 483  C Local variables Line 496  C Local variables
496  cph-usesingle(  cph-usesingle(
497  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
498        integer ii,jj        integer ii,jj
499        integer x_size,y_size,iG_IO,jG_IO,npe  c     integer iG_IO,jG_IO,npe
500          integer x_size,y_size
501        PARAMETER ( x_size = Nx )        PARAMETER ( x_size = Nx )
502        PARAMETER ( y_size = Ny )        PARAMETER ( y_size = Ny )
503        Real*4 xy_buffer_r4(x_size,y_size)        Real*4 xy_buffer_r4(x_size,y_size)
# Line 491  cph-usesingle( Line 505  cph-usesingle(
505        Real*8 global(Nx,Ny)        Real*8 global(Nx,Ny)
506  #endif  #endif
507  cph-usesingle)  cph-usesingle)
508    CMM(
509          integer pIL
510    CMM)
511    
512  C     ------------------------------------------------------------------  C     ------------------------------------------------------------------
513    
# Line 512  C Record number must be >= 1 Line 529  C Record number must be >= 1
529  C Assume nothing  C Assume nothing
530        fileIsOpen=.FALSE.        fileIsOpen=.FALSE.
531        IL=ILNBLNK( fName )        IL=ILNBLNK( fName )
532    CMM(
533          pIL = ILNBLNK( mdsioLocalDir )
534    CMM)
535    CMM(
536    C Assign special directory
537          if ( pIL.NE.0 ) then
538           write(fName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL)
539          endif
540    CMM)
541    
542  C Assign a free unit number as the I/O channel for this routine  C Assign a free unit number as the I/O channel for this routine
543        call MDSFINDUNIT( dUnit, mythid )        call MDSFINDUNIT( dUnit, mythid )
# Line 815  c     integer iG_IO,jG_IO,npe Line 841  c     integer iG_IO,jG_IO,npe
841        Real*8 global(Nx,Ny)        Real*8 global(Nx,Ny)
842  c     _RL    local(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  c     _RL    local(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
843  cph-usesingle)  cph-usesingle)
844    CMM(
845          integer pIL
846    CMM)
847    
848  C     ------------------------------------------------------------------  C     ------------------------------------------------------------------
849    
# Line 837  C Assume nothing Line 866  C Assume nothing
866        globalFile = .FALSE.        globalFile = .FALSE.
867        fileIsOpen = .FALSE.        fileIsOpen = .FALSE.
868        IL=ILNBLNK( fName )        IL=ILNBLNK( fName )
869    CMM(
870          pIL = ILNBLNK( mdsioLocalDir )
871    CMM)
872    CMM(
873    C Assign special directory
874          if ( pIL.NE.0 ) then
875           write(fName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL)
876          endif
877    CMM)
878    
879  C Assign a free unit number as the I/O channel for this routine  C Assign a free unit number as the I/O channel for this routine
880        call MDSFINDUNIT( dUnit, mythid )        call MDSFINDUNIT( dUnit, mythid )
# Line 1197  C Local variables Line 1235  C Local variables
1235  cph-usesingle(  cph-usesingle(
1236  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
1237        integer ii,jj        integer ii,jj
1238        integer x_size,y_size,iG_IO,jG_IO,npe  c     integer iG_IO,jG_IO,npe
1239          integer x_size,y_size
1240        PARAMETER ( x_size = Nx )        PARAMETER ( x_size = Nx )
1241        PARAMETER ( y_size = Ny )        PARAMETER ( y_size = Ny )
1242        Real*4 xy_buffer_r4(x_size,y_size)        Real*4 xy_buffer_r4(x_size,y_size)
# Line 1205  cph-usesingle( Line 1244  cph-usesingle(
1244        Real*8 global(Nx,Ny)        Real*8 global(Nx,Ny)
1245  #endif  #endif
1246  cph-usesingle)  cph-usesingle)
1247    CMM(
1248          integer pIL
1249    CMM)
1250    
1251  C     ------------------------------------------------------------------  C     ------------------------------------------------------------------
1252    
# Line 1226  C Record number must be >= 1 Line 1268  C Record number must be >= 1
1268  C Assume nothing  C Assume nothing
1269        fileIsOpen=.FALSE.        fileIsOpen=.FALSE.
1270        IL=ILNBLNK( fName )        IL=ILNBLNK( fName )
1271    CMM(
1272          pIL = ILNBLNK( mdsioLocalDir )
1273    CMM)
1274    CMM(
1275    C Assign special directory
1276          if ( pIL.NE.0 ) then
1277           write(fName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL)
1278          endif
1279    CMM)
1280    
1281  C Assign a free unit number as the I/O channel for this routine  C Assign a free unit number as the I/O channel for this routine
1282        call MDSFINDUNIT( dUnit, mythid )        call MDSFINDUNIT( dUnit, mythid )
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22