50 |
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) |
51 |
IF (indfg .LT. 1) THEN |
IF (indfg .LT. 1) THEN |
52 |
CALL MNC_GET_NEXT_EMPTY_IND( |
CALL MNC_GET_NEXT_EMPTY_IND( |
53 |
& MNC_MAX_ID, mnc_cw_fgnm, indfg, myThid) |
& MNC_MAX_ID, mnc_cw_fgnm, 'mnc_cw_fgnm', indfg, myThid) |
54 |
mnc_cw_fgnm(indfg)(1:(fgl-fgf+1)) = fgname(fgf:fgl) |
mnc_cw_fgnm(indfg)(1:(fgl-fgf+1)) = fgname(fgf:fgl) |
55 |
mnc_cw_fgud(indfg) = 0 |
mnc_cw_fgud(indfg) = 0 |
56 |
mnc_cw_fgig(indfg) = 0 |
mnc_cw_fgig(indfg) = 0 |
69 |
mnc_cw_fgud(indfg) = mnc_cw_fgud(indfg) + 1 |
mnc_cw_fgud(indfg) = mnc_cw_fgud(indfg) + 1 |
70 |
RETURN |
RETURN |
71 |
ENDIF |
ENDIF |
72 |
write(msgbuf,'(3a,i,a)') |
write(msgbuf,'(3a,i10,a)') |
73 |
& 'MNC_CW_SET_UDIM ERROR: for file group name ''', |
& 'MNC_CW_SET_UDIM ERROR: for file group name ''', |
74 |
& fgname(fgf:fgl), ''' the unlim dim ''', nudim, |
& fgname(fgf:fgl), ''' the unlim dim ''', nudim, |
75 |
& ''' is not allowed' |
& ''' is not allowed' |
126 |
END |
END |
127 |
|
|
128 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
|
|
|