/[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.22 by edhill, Wed Dec 8 15:54:00 2004 UTC revision 1.23 by edhill, Fri Dec 17 04:50:05 2004 UTC
# Line 618  C     !INTERFACE: Line 618  C     !INTERFACE:
618        SUBROUTINE MNC_CW_FILE_AORC(        SUBROUTINE MNC_CW_FILE_AORC(
619       I     fname,       I     fname,
620       O     indf,       O     indf,
621         I     lbi, lbj, uniq_tnum,
622       I     myThid )       I     myThid )
623    
624  C     !DESCRIPTION:  C     !DESCRIPTION:
# Line 631  C     !USES: Line 632  C     !USES:
632  #include "EEPARAMS.h"  #include "EEPARAMS.h"
633    
634  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
635        integer myThid, indf        integer myThid, indf, lbi, lbj, uniq_tnum
636        character*(*) fname        character*(*) fname
637  CEOP  CEOP
638    
# Line 646  C     Check if the file is already open Line 647  C     Check if the file is already open
647    
648  C     Try to open an existing file  C     Try to open an existing file
649        CALL MNC_FILE_TRY_READ(fname, ierr, indf, myThid)        CALL MNC_FILE_TRY_READ(fname, ierr, indf, myThid)
650        IF (ierr .EQ. NF_NOERR) THEN        IF (ierr .NE. NF_NOERR) THEN
651          RETURN  C       Try to create a new one
652            CALL MNC_FILE_OPEN(fname, 0, indf, myThid)
653        ENDIF        ENDIF
654    
655  C     Try to create a new one  C     Add the global attributes
656        CALL MNC_FILE_OPEN(fname, 0, indf, myThid)        CALL MNC_CW_SET_GATTR(fname, lbi,lbj, uniq_tnum, myThid)
657    
658        RETURN        RETURN
659        END        END
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22