/[MITgcm]/MITgcm/pkg/mnc/mnc_cwrapper.F
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_cwrapper.F

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

revision 1.3 by edhill, Sat Jan 31 04:13:09 2004 UTC revision 1.4 by edhill, Wed Feb 4 05:45:09 2004 UTC
# Line 540  C     Arguments Line 540  C     Arguments
540  C     Local Variables  C     Local Variables
541        integer iG,jG        integer iG,jG
542    
543          iG = 0
544          jG = 0
545    
546  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
547    
548  #include "W2_EXCH2_PARAMS.h"  #include "W2_EXCH2_PARAMS.h"
# Line 550  C     Local Variables Line 553  C     Local Variables
553  C     Global tile number for simple (non-cube) domains  C     Global tile number for simple (non-cube) domains
554        iG = bi+(myXGlobalLo-1)/sNx        iG = bi+(myXGlobalLo-1)/sNx
555        jG = bj+(myYGlobalLo-1)/sNy        jG = bj+(myYGlobalLo-1)/sNy
556  C     .          full rows                partial rows  
557        uniq_tnum = (jG - 1)*nPx*(nSx*nSy) + (iG - 1)*(nSx*nSy)        uniq_tnum = (jG - 1)*(nPx*nSx) + iG
558    
559  #endif  #endif
560    
561    CEH3      write(*,*) 'iG,jG,uniq_tnum :', iG,jG,uniq_tnum
562    
563        RETURN        RETURN
564        END        END
565    
# Line 562  C---+----1----+----2----+----3----+----4 Line 567  C---+----1----+----2----+----3----+----4
567    
568        SUBROUTINE MNC_CW_FILE_AORC(        SUBROUTINE MNC_CW_FILE_AORC(
569       I     myThid,       I     myThid,
570       I     fname )       I     fname,
571         O     indf )
572    
573        implicit none        implicit none
574  #include "netcdf.inc"  #include "netcdf.inc"
# Line 570  C---+----1----+----2----+----3----+----4 Line 576  C---+----1----+----2----+----3----+----4
576  #include "EEPARAMS.h"  #include "EEPARAMS.h"
577    
578  C     Arguments  C     Arguments
579        integer myThid        integer myThid, indf
580        character*(*) fname        character*(*) fname
581    
582  C     Local Variables  C     Local Variables
583        integer i, ierr, indf        integer i, ierr
584        character*(MAX_LEN_MBUF) msgbuf        character*(MAX_LEN_MBUF) msgbuf
585    
586  C     Check if the file is already open  C     Check if the file is already open
# Line 584  C     Check if the file is already open Line 590  C     Check if the file is already open
590        ENDIF        ENDIF
591    
592  C     Try to open an existing file  C     Try to open an existing file
593        CALL MNC_FILE_TRY_READ(myThid, fname, ierr)        CALL MNC_FILE_TRY_READ(myThid, fname, ierr, indf)
594        IF (ierr .EQ. NF_NOERR) THEN        IF (ierr .EQ. NF_NOERR) THEN
595          RETURN          RETURN
596        ENDIF        ENDIF
597    
598  C     Try to create a new one  C     Try to create a new one
599                CALL MNC_FILE_OPEN(myThid, fname, 0, indf)
600    
601        RETURN        RETURN
602        END        END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22