/[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.26 by edhill, Fri Mar 10 05:50:23 2006 UTC revision 1.27 by edhill, Fri Mar 10 22:01:53 2006 UTC
# Line 727  C     !LOCAL VARIABLES: Line 727  C     !LOCAL VARIABLES:
727        integer ierr        integer ierr
728    
729  C     Check if the file is already open  C     Check if the file is already open
730        CALL MNC_GET_IND(MNC_MAX_ID, fname, mnc_f_names, indf, myThid)        CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, indf, myThid)
731        IF (indf .GT. 0) THEN        IF (indf .GT. 0) THEN
732          RETURN          RETURN
733        ENDIF        ENDIF
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27
  ViewVC Help
Powered by ViewVC 1.1.22