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

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

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

revision 1.1 by edhill, Sat Mar 20 20:35:21 2004 UTC revision 1.2 by edhill, Sun Mar 21 03:44:23 2004 UTC
# Line 29  C     Check that this name is not alread Line 29  C     Check that this name is not alread
29        fgf = IFNBLNK(fgname)        fgf = IFNBLNK(fgname)
30        fgl = ILNBLNK(fgname)        fgl = ILNBLNK(fgname)
31        CALL MNC_GET_IND(MNC_MAX_ID, fgname, mnc_cw_fgnm, indfg, myThid)        CALL MNC_GET_IND(MNC_MAX_ID, fgname, mnc_cw_fgnm, indfg, myThid)
32        IF (indfg .GT. 0) THEN        IF (indfg .LT. 1) THEN
33          write(msgbuf,'(3a)')          CALL MNC_GET_NEXT_EMPTY_IND(
34       &       'MNC_CW_SET_UDIM ERROR: file group name ''',       &       MNC_MAX_ID, mnc_cw_fgnm, indfg, myThid)
      &       fgname(fgf:fgl), ''' is already defined'  
         CALL print_error(msgbuf, mythid)  
         stop 'ABNORMAL END: S/R MNC_CW_SET_UDIM'  
35        ENDIF        ENDIF
       CALL MNC_GET_NEXT_EMPTY_IND(  
      &     MNC_MAX_ID, mnc_cw_fgnm, indfg, myThid)  
36        mnc_cw_fgnm(indfg)(1:(fgl-fgf+1)) = fgname(fgf:fgl)        mnc_cw_fgnm(indfg)(1:(fgl-fgf+1)) = fgname(fgf:fgl)
37        mnc_cw_fgud(indfg) = nudim        mnc_cw_fgud(indfg) = nudim
38    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22