| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_getffieldrec.F |
116 |
EXF_GETFFIELDREC |
count0 = int((fldsectot+0.5)/fldperiod) + 1 |
|
./pkg/exf/exf_getffieldrec.F |
117 |
EXF_GETFFIELDREC |
count1 = count0 + 1 |
|
./pkg/exf/exf_getffieldrec.F |
11 |
EXF_GETFFIELDREC |
O count0, count1, year0, year1, |
|
./pkg/exf/exf_getffieldrec.F |
126 |
EXF_GETFFIELDREC |
count0 = int((fldsecs0+0.5)/fldperiod) + 1 |
|
./pkg/exf/exf_getffieldrec.F |
161 |
EXF_GETFFIELDREC |
count0 = int((fldsectot+0.5)/fldperiod) + 1 |
|
./pkg/exf/exf_getffieldrec.F |
165 |
EXF_GETFFIELDREC |
count1 = count0 + 1 |
|
./pkg/exf/exf_getffieldrec.F |
166 |
EXF_GETFFIELDREC |
if ( (fldstartdate+count0*fldperiod) .ge. secondsInYear ) then |
|
./pkg/exf/exf_getffieldrec.F |
175 |
EXF_GETFFIELDREC |
& fac = 1. - fldsecs/(secondsInYear-(count0-1)*fldperiod) |
|
./pkg/exf/exf_getffieldrec.F |
54 |
EXF_GETFFIELDREC |
INTEGER count0, count1, year0, year1 |
|
./pkg/exf/exf_getffieldrec.F |
93 |
EXF_GETFFIELDREC |
count0 = 1 |
|
./pkg/exf/exf_getffieldrec.F |
94 |
EXF_GETFFIELDREC |
count1 = count0 |
|
./pkg/exf/exf_set_gen.F |
108 |
EXF_SET_GEN |
O count0, count1, |
|
./pkg/exf/exf_set_gen.F |
123 |
EXF_SET_GEN |
O count0, count1, year0, year1, |
|
./pkg/exf/exf_set_gen.F |
135 |
EXF_SET_GEN |
& ' myIter, count0, count1:', myIter, count0, count1 |
|
./pkg/exf/exf_set_gen.F |
155 |
EXF_SET_GEN |
& ' EXF_SET_GEN: it=', myIter, ' loading rec=', count0, |
|
./pkg/exf/exf_set_gen.F |
167 |
EXF_SET_GEN |
I count0, gen_xout, gen_yout, |
|
./pkg/exf/exf_set_gen.F |
173 |
EXF_SET_GEN |
& gen1, count0, myIter, myThid ) |
|
./pkg/exf/exf_set_gen.F |
89 |
EXF_SET_GEN |
INTEGER count0, count1 |
|
./pkg/exf/exf_set_obcs.F |
128 |
EXF_SET_OBCS_YZ |
I count0, count1, year0, year1, |
|
./pkg/exf/exf_set_obcs.F |
163 |
EXF_SET_OBCS_YZ |
INTEGER count0, count1, year0, year1 |
|
./pkg/exf/exf_set_obcs.F |
191 |
EXF_SET_OBCS_YZ |
& obcs_yz_1, count0, myIter, myThid ) |
|
./pkg/exf/exf_set_obcs.F |
19 |
EXF_SET_OBCS_XZ |
I count0, count1, year0, year1, |
|
./pkg/exf/exf_set_obcs.F |
235 |
EXF_SET_OBCS_X |
I count0, count1, year0, year1, |
|
./pkg/exf/exf_set_obcs.F |
270 |
EXF_SET_OBCS_X |
INTEGER count0, count1, year0, year1 |
|
./pkg/exf/exf_set_obcs.F |
298 |
EXF_SET_OBCS_X |
& obcs_x_1, count0, myIter, myThid ) |
|
./pkg/exf/exf_set_obcs.F |
337 |
EXF_SET_OBCS_Y |
I count0, count1, year0, year1, |
|
./pkg/exf/exf_set_obcs.F |
371 |
EXF_SET_OBCS_Y |
INTEGER count0, count1, year0, year1 |
|
./pkg/exf/exf_set_obcs.F |
399 |
EXF_SET_OBCS_Y |
& obcs_y_1, count0, myIter, myThid ) |
|
./pkg/exf/exf_set_obcs.F |
56 |
EXF_SET_OBCS_XZ |
INTEGER count0, count1, year0, year1 |
|
./pkg/exf/exf_set_obcs.F |
84 |
EXF_SET_OBCS_XZ |
& obcs_xz_1, count0, myIter, myThid ) |
|
./pkg/exf/exf_set_uv.F |
115 |
EXF_SET_UV |
O count0, count1, |
|
./pkg/exf/exf_set_uv.F |
131 |
EXF_SET_UV |
O count0, count1, year0, year1, |
|
./pkg/exf/exf_set_uv.F |
143 |
EXF_SET_UV |
& ' myIter, count0, count1:', myIter, count0, count1 |
|
./pkg/exf/exf_set_uv.F |
170 |
EXF_SET_UV |
& ' EXF_SET_UV: it=', myIter, ' loading rec=', count0, |
|
./pkg/exf/exf_set_uv.F |
176 |
EXF_SET_UV |
& ' EXF_SET_UV: it=', myIter, ' loading rec=', count0, |
|
./pkg/exf/exf_set_uv.F |
186 |
EXF_SET_UV |
I uvecfile0, vvecfile0, exf_iprec, count0, |
|
./pkg/exf/exf_set_uv.F |
197 |
EXF_SET_UV |
I count0, xC, yC, |
|
./pkg/exf/exf_set_uv.F |
204 |
EXF_SET_UV |
I count0, xC, yC, |
|
./pkg/exf/exf_set_uv.F |
98 |
EXF_SET_UV |
INTEGER count0, count1 |
|
./pkg/obcs/obcs_exf_load.F |
285 |
OBCS_EXF_READ_XZ |
integer count0, count1 |
|
./pkg/obcs/obcs_exf_load.F |
298 |
OBCS_EXF_READ_XZ |
O count0, count1, |
|
./pkg/obcs/obcs_exf_load.F |
312 |
OBCS_EXF_READ_XZ |
O count0, count1, year0, year1, |
|
./pkg/obcs/obcs_exf_load.F |
322 |
OBCS_EXF_READ_XZ |
& ' myIter, count0, count1:', myIter, count0, count1 |
|
./pkg/obcs/obcs_exf_load.F |
334 |
OBCS_EXF_READ_XZ |
I , obcsperiod, count0, count1, year0, year1 |
|
./pkg/obcs/obcs_exf_load.F |
338 |
OBCS_EXF_READ_XZ |
I , obcsperiod, count0, count1, year0, year1 |
|
./pkg/obcs/obcs_exf_load.F |
342 |
OBCS_EXF_READ_XZ |
I , obcsperiod, count0, count1, year0, year1 |
|
./pkg/obcs/obcs_exf_load.F |
346 |
OBCS_EXF_READ_XZ |
I , obcsperiod, count0, count1, year0, year1 |
|
./pkg/obcs/obcs_exf_load.F |
351 |
OBCS_EXF_READ_XZ |
I , obcsperiod, count0, count1, year0, year1 |
|
./pkg/obcs/obcs_exf_load.F |
362 |
OBCS_EXF_READ_XZ |
I , obcsperiod, count0, count1, year0, year1 |
|
./pkg/obcs/obcs_exf_load.F |
375 |
OBCS_EXF_READ_XZ |
O count0, count1, |
|
./pkg/obcs/obcs_exf_load.F |
389 |
OBCS_EXF_READ_XZ |
O count0, count1, year0, year1, |
|
./pkg/obcs/obcs_exf_load.F |
399 |
OBCS_EXF_READ_XZ |
& ' myIter, count0, count1:', myIter, count0, count1 |
|
./pkg/obcs/obcs_exf_load.F |
411 |
OBCS_EXF_READ_XZ |
I , siobperiod, count0, count1, year0, year1 |
|
./pkg/obcs/obcs_exf_load.F |
415 |
OBCS_EXF_READ_XZ |
I , siobperiod, count0, count1, year0, year1 |
|
./pkg/obcs/obcs_exf_load.F |
419 |
OBCS_EXF_READ_XZ |
I , siobperiod, count0, count1, year0, year1 |
|
./pkg/obcs/obcs_exf_load.F |
423 |
OBCS_EXF_READ_XZ |
I , siobperiod, count0, count1, year0, year1 |
|
./pkg/obcs/obcs_exf_load.F |
427 |
OBCS_EXF_READ_XZ |
I , siobperiod, count0, count1, year0, year1 |
|
./pkg/obcs/obcs_exf_load.F |
431 |
OBCS_EXF_READ_XZ |
I , siobperiod, count0, count1, year0, year1 |
|
./pkg/obcs/obcs_exf_load.F |
557 |
OBCS_EXF_READ_YZ |
integer count0, count1 |
|
./pkg/obcs/obcs_exf_load.F |
571 |
OBCS_EXF_READ_YZ |
O count0, count1, |
|
./pkg/obcs/obcs_exf_load.F |
585 |
OBCS_EXF_READ_YZ |
O count0, count1, year0, year1, |
|
./pkg/obcs/obcs_exf_load.F |
595 |
OBCS_EXF_READ_YZ |
& ' myIter, count0, count1:', myIter, count0, count1 |
|
./pkg/obcs/obcs_exf_load.F |
607 |
OBCS_EXF_READ_YZ |
I , obcsperiod, count0, count1, year0, year1 |
|
./pkg/obcs/obcs_exf_load.F |
611 |
OBCS_EXF_READ_YZ |
I , obcsperiod, count0, count1, year0, year1 |
|
./pkg/obcs/obcs_exf_load.F |
615 |
OBCS_EXF_READ_YZ |
I , obcsperiod, count0, count1, year0, year1 |
|
./pkg/obcs/obcs_exf_load.F |
619 |
OBCS_EXF_READ_YZ |
I , obcsperiod, count0, count1, year0, year1 |
|
./pkg/obcs/obcs_exf_load.F |
624 |
OBCS_EXF_READ_YZ |
I , obcsperiod, count0, count1, year0, year1 |
|
./pkg/obcs/obcs_exf_load.F |
635 |
OBCS_EXF_READ_YZ |
I , obcsperiod, count0, count1, year0, year1 |
|
./pkg/obcs/obcs_exf_load.F |
648 |
OBCS_EXF_READ_YZ |
O count0, count1, |
|
./pkg/obcs/obcs_exf_load.F |
662 |
OBCS_EXF_READ_YZ |
O count0, count1, year0, year1, |
|
./pkg/obcs/obcs_exf_load.F |
672 |
OBCS_EXF_READ_YZ |
& ' myIter, count0, count1:', myIter, count0, count1 |
|
./pkg/obcs/obcs_exf_load.F |
684 |
OBCS_EXF_READ_YZ |
I , siobperiod, count0, count1, year0, year1 |
|
./pkg/obcs/obcs_exf_load.F |
688 |
OBCS_EXF_READ_YZ |
I , siobperiod, count0, count1, year0, year1 |
|
./pkg/obcs/obcs_exf_load.F |
692 |
OBCS_EXF_READ_YZ |
I , siobperiod, count0, count1, year0, year1 |
|
./pkg/obcs/obcs_exf_load.F |
696 |
OBCS_EXF_READ_YZ |
I , siobperiod, count0, count1, year0, year1 |
|
./pkg/obcs/obcs_exf_load.F |
700 |
OBCS_EXF_READ_YZ |
I , siobperiod, count0, count1, year0, year1 |
|
./pkg/obcs/obcs_exf_load.F |
704 |
OBCS_EXF_READ_YZ |
I , siobperiod, count0, count1, year0, year1 |
|
./pkg/cal/cal_getmonthsrec.F |
135 |
CAL_GETMONTHSREC |
count0 = mod(present+nmonthyear-2,nmonthyear)+1 |
|
./pkg/cal/cal_getmonthsrec.F |
136 |
CAL_GETMONTHSREC |
prevcount = count0 |
|
./pkg/cal/cal_getmonthsrec.F |
162 |
CAL_GETMONTHSREC |
count0 = present |
|
./pkg/cal/cal_getmonthsrec.F |
196 |
CAL_GETMONTHSREC |
if ( (.not. first) .and. (prevcount .ne. count0) ) then |
|
./pkg/cal/cal_getmonthsrec.F |
43 |
CAL_GETMONTHSREC |
integer count0 |
|
./pkg/cal/cal_getmonthsrec.F |
8 |
CAL_GETMONTHSREC |
O count0, count1, |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
115 |
CTRL_GET_GEN_REC |
O count0, count1, |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
125 |
CTRL_GET_GEN_REC |
count0 = 1 |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
126 |
CTRL_GET_GEN_REC |
count1 = count0 |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
12 |
CTRL_GET_GEN_REC |
O count0, |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
170 |
CTRL_GET_GEN_REC |
count0 = fldcount - startrec + 1 |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
197 |
CTRL_GET_GEN_REC |
count0 = 1 |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
204 |
CTRL_GET_GEN_REC |
O countP, count0, count1, tmpFac, fac, |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
208 |
CTRL_GET_GEN_REC |
IF ( count0.NE.countP ) THEN |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
232 |
CTRL_GET_GEN_REC |
& count0, count1 |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
50 |
CTRL_GET_GEN_REC |
integer count0 |
|
./pkg/ctrl/ctrl_getrec.F |
11 |
CTRL_GETREC |
O count0, |
|
./pkg/ctrl/ctrl_getrec.F |
354 |
CTRL_GETREC |
count0 = fldcount |
|
./pkg/ctrl/ctrl_getrec.F |
385 |
CTRL_GETREC |
& count0, count1 |
|
./pkg/ctrl/ctrl_getrec.F |
57 |
CTRL_GETREC |
integer count0 |