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, indfg, myThid) |
54 |
|
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 |
57 |
ENDIF |
ENDIF |
|
mnc_cw_fgnm(indfg)(1:(fgl-fgf+1)) = fgname(fgf:fgl) |
|
58 |
IF (nudim .GT. 0) THEN |
IF (nudim .GT. 0) THEN |
59 |
|
mnc_cw_fgig(indfg) = 0 |
60 |
mnc_cw_fgud(indfg) = nudim |
mnc_cw_fgud(indfg) = nudim |
61 |
RETURN |
RETURN |
62 |
ENDIF |
ENDIF |
63 |
IF (nudim .EQ. 0) RETURN |
IF (nudim .EQ. 0) THEN |
64 |
|
mnc_cw_fgig(indfg) = 0 |
65 |
|
RETURN |
66 |
|
ENDIF |
67 |
IF (nudim .EQ. -1) THEN |
IF (nudim .EQ. -1) THEN |
68 |
|
mnc_cw_fgig(indfg) = 1 |
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 |