| File |
Line number |
Procedure |
Code |
|
./pkg/mnc/mnc_cw_citer.F |
106 |
MNC_CW_SET_CITER |
integer igroup, iflag, ival_curr, ival_next, myThid |
|
./pkg/mnc/mnc_cw_citer.F |
130 |
MNC_CW_SET_CITER |
IF (igroup .LT. 1) THEN |
|
./pkg/mnc/mnc_cw_citer.F |
131 |
MNC_CW_SET_CITER |
igroup = mnc_cw_fgci(indfg) |
|
./pkg/mnc/mnc_cw_citer.F |
133 |
MNC_CW_SET_CITER |
mnc_cw_fgci(indfg) = igroup |
|
./pkg/mnc/mnc_cw_citer.F |
135 |
MNC_CW_SET_CITER |
IF ((igroup .LT. 1) .OR. (igroup .GT. MNC_MAX_INFO)) THEN |
|
./pkg/mnc/mnc_cw_citer.F |
13 |
MNC_CW_CITER_SETG |
I igroup, |
|
./pkg/mnc/mnc_cw_citer.F |
143 |
MNC_CW_SET_CITER |
CALL MNC_CW_CITER_SETG( igroup, |
|
./pkg/mnc/mnc_cw_citer.F |
157 |
MNC_CW_GET_CITER |
O igroup, |
|
./pkg/mnc/mnc_cw_citer.F |
170 |
MNC_CW_GET_CITER |
integer igroup, iflag, ival_curr, ival_next, myThid |
|
./pkg/mnc/mnc_cw_citer.F |
194 |
MNC_CW_GET_CITER |
igroup = mnc_cw_fgci(indfg) |
|
./pkg/mnc/mnc_cw_citer.F |
195 |
MNC_CW_GET_CITER |
IF ((igroup .LT. 1) .OR. (igroup .GT. MNC_MAX_INFO)) THEN |
|
./pkg/mnc/mnc_cw_citer.F |
196 |
MNC_CW_GET_CITER |
igroup = -1 |
|
./pkg/mnc/mnc_cw_citer.F |
201 |
MNC_CW_GET_CITER |
CALL MNC_CW_CITER_GETG( igroup, |
|
./pkg/mnc/mnc_cw_citer.F |
25 |
MNC_CW_CITER_SETG |
integer igroup, iflag, ival_curr, ival_next, myThid |
|
./pkg/mnc/mnc_cw_citer.F |
31 |
MNC_CW_CITER_SETG |
mnc_cw_cit(1,igroup) = iflag |
|
./pkg/mnc/mnc_cw_citer.F |
34 |
MNC_CW_CITER_SETG |
IF ( mnc_cw_cit(2,igroup) .NE. ival_curr ) THEN |
|
./pkg/mnc/mnc_cw_citer.F |
39 |
MNC_CW_CITER_SETG |
IF ( mnc_cw_fgci(i) .eq. igroup ) THEN |
|
./pkg/mnc/mnc_cw_citer.F |
44 |
MNC_CW_CITER_SETG |
mnc_cw_cit(2,igroup) = ival_curr |
|
./pkg/mnc/mnc_cw_citer.F |
50 |
MNC_CW_CITER_SETG |
mnc_cw_cit(3,igroup) = ival_next |
|
./pkg/mnc/mnc_cw_citer.F |
63 |
MNC_CW_CITER_GETG |
I igroup, |
|
./pkg/mnc/mnc_cw_citer.F |
75 |
MNC_CW_CITER_GETG |
integer igroup, iflag, ival_curr, ival_next, myThid |
|
./pkg/mnc/mnc_cw_citer.F |
78 |
MNC_CW_CITER_GETG |
iflag = mnc_cw_cit(1,igroup) |
|
./pkg/mnc/mnc_cw_citer.F |
79 |
MNC_CW_CITER_GETG |
ival_curr = mnc_cw_cit(2,igroup) |
|
./pkg/mnc/mnc_cw_citer.F |
80 |
MNC_CW_CITER_GETG |
ival_next = mnc_cw_cit(3,igroup) |
|
./pkg/mnc/mnc_cw_citer.F |
93 |
MNC_CW_SET_CITER |
I igroup, |