/[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.2 by heimbach, Sun Mar 25 22:31:53 2001 UTC revision 1.4 by edhill, Thu Oct 9 04:19:19 2003 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    
3  #include "CPP_OPTIONS.h"  #include "MDSIO_OPTIONS.h"
4    
5  C The five "public" routines supplied here are:  C The five "public" routines supplied here are:
6  C  C
# Line 26  C           inserted calls to *print_mes Line 26  C           inserted calls to *print_mes
26  C  C
27  C To be modified to work with MITgcmuv message routines.  C To be modified to work with MITgcmuv message routines.
28    
 #undef  SAFE_IO  
   
 #ifdef SAFE_IO  
 #define _NEW_STATUS 'new'  
 #else  
 #define _NEW_STATUS 'unknown'  
 #endif  
   
 #ifdef ALLOW_AUTODIFF_TAMC  
 #define _OLD_STATUS 'unknown'  
 #else  
 #define _OLD_STATUS 'old'  
 #endif  
   
29  C=======================================================================  C=======================================================================
30        SUBROUTINE MDSREADFIELD_3D_GL(        SUBROUTINE MDSREADFIELD_3D_GL(
31       I   fName,       I   fName,
# Line 169  C If we are reading from a tiled MDS fil Line 155  C If we are reading from a tiled MDS fil
155  C Of course, we only open the file if the tile is "active"  C Of course, we only open the file if the tile is "active"
156  C (This is a place-holder for the active/passive mechanism  C (This is a place-holder for the active/passive mechanism
157           if (exst) then           if (exst) then
158            write(msgbuf,'(a,a)')            if ( debugLevel .GE. debLevA ) then
159               write(msgbuf,'(a,a)')
160       &      ' MDSREADFIELD_GL: opening file: ',dataFName       &      ' MDSREADFIELD_GL: opening file: ',dataFName
161            call print_message( msgbuf, standardmessageunit,             call print_message( msgbuf, standardmessageunit,
162       &                        SQUEEZE_RIGHT , mythid)       &                        SQUEEZE_RIGHT , mythid)
163              endif
164            length_of_rec=MDS_RECLEN( filePrec, sNx, mythid )            length_of_rec=MDS_RECLEN( filePrec, sNx, mythid )
165            open( dUnit, file=dataFName, status='old',            open( dUnit, file=dataFName, status='old',
166       &        access='direct', recl=length_of_rec )       &        access='direct', recl=length_of_rec )
# Line 613  C If we are reading from a tiled MDS fil Line 601  C If we are reading from a tiled MDS fil
601  C Of course, we only open the file if the tile is "active"  C Of course, we only open the file if the tile is "active"
602  C (This is a place-holder for the active/passive mechanism  C (This is a place-holder for the active/passive mechanism
603           if (exst) then           if (exst) then
604            write(msgbuf,'(a,a)')            if ( debugLevel .GE. debLevA ) then
605               write(msgbuf,'(a,a)')
606       &      ' MDSREADFIELD_GL: opening file: ',dataFName       &      ' MDSREADFIELD_GL: opening file: ',dataFName
607            call print_message( msgbuf, standardmessageunit,             call print_message( msgbuf, standardmessageunit,
608       &                        SQUEEZE_RIGHT , mythid)       &                        SQUEEZE_RIGHT , mythid)
609              endif
610            length_of_rec=MDS_RECLEN( filePrec, sNx, mythid )            length_of_rec=MDS_RECLEN( filePrec, sNx, mythid )
611            open( dUnit, file=dataFName, status='old',            open( dUnit, file=dataFName, status='old',
612       &        access='direct', recl=length_of_rec )       &        access='direct', recl=length_of_rec )
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22