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 |
|
|