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 |