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

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

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

revision 1.19 by edhill, Thu Jul 21 02:32:23 2005 UTC revision 1.20 by edhill, Fri Mar 10 05:50:23 2006 UTC
# Line 95  C       Error Line 95  C       Error
95          stop 'ABNORMAL END: S/R MNC_FILE_ADD_ATTR_STR'          stop 'ABNORMAL END: S/R MNC_FILE_ADD_ATTR_STR'
96        ENDIF        ENDIF
97    
98        CALL MNC_GET_NEXT_EMPTY_IND(MNC_MAX_ID,mnc_f_names,indf, myThid)        CALL MNC_GET_NEXT_EMPTY_IND(MNC_MAX_ID,mnc_f_names,
99         &     'mnc_f_names', indf, myThid)
100        n = ILNBLNK(fname)        n = ILNBLNK(fname)
101        mnc_f_names(indf)(1:n) = fname(1:n)        mnc_f_names(indf)(1:n) = fname(1:n)
102        mnc_f_info(indf,1) = 1        mnc_f_info(indf,1) = 1
# Line 666  C     Open and save the filename and fID Line 667  C     Open and save the filename and fID
667          ierr = err          ierr = err
668          RETURN          RETURN
669        ENDIF        ENDIF
670        CALL MNC_GET_NEXT_EMPTY_IND(MNC_MAX_ID,mnc_f_names,indf, myThid)        CALL MNC_GET_NEXT_EMPTY_IND(MNC_MAX_ID,mnc_f_names,
671         &     'mnc_f_names', indf, myThid)
672        mnc_f_names(indf)(1:(nlf-nff+1)) = fname(nff:nlf)        mnc_f_names(indf)(1:(nlf-nff+1)) = fname(nff:nlf)
673        mnc_f_info(indf,2) = fid        mnc_f_info(indf,2) = fid
674    
# Line 722  C       Create a grid for this variable Line 724  C       Create a grid for this variable
724          CALL MNC_GRID_INIT_ALL(fname, name, ndv, dnames, indg, myThid)          CALL MNC_GRID_INIT_ALL(fname, name, ndv, dnames, indg, myThid)
725    
726  C       Update the tables  C       Update the tables
727          CALL MNC_GET_NEXT_EMPTY_IND(MNC_MAX_ID,mnc_v_names,indv,myThid)          CALL MNC_GET_NEXT_EMPTY_IND(MNC_MAX_ID,mnc_v_names,
728         &       'mnc_v_names', indv,myThid)
729          mnc_v_names(indv)(1:(n2-n1+1)) = name(n1:n2)          mnc_v_names(indv)(1:(n2-n1+1)) = name(n1:n2)
730          iv = 2 + 3*mnc_fv_ids(indf,1)          iv = 2 + 3*mnc_fv_ids(indf,1)
731          mnc_fv_ids(indf,iv)   = indv          mnc_fv_ids(indf,iv)   = indv
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22