| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal_getmonthsrec.F |
100 |
CAL_GETMONTHSREC |
& startofmonth, mythid ) |
|
./pkg/cal/cal_getmonthsrec.F |
115 |
CAL_GETMONTHSREC |
call CAL_ADDTIME( startofmonth, midtime, middate, mythid ) |
|
./pkg/cal/cal_getmonthsrec.F |
138 |
CAL_GETMONTHSREC |
call CAL_ADDTIME( startofmonth, shifttime, middate0, mythid ) |
|
./pkg/cal/cal_getmonthsrec.F |
58 |
CAL_GETMONTHSREC |
integer startofmonth(4) |
|
./pkg/cal/cal_getmonthsrec.F |
89 |
CAL_GETMONTHSREC |
startofmonth(1) = (currentdate(1)/100)*100 + 1 |
|
./pkg/cal/cal_getmonthsrec.F |
90 |
CAL_GETMONTHSREC |
startofmonth(2) = 0 |
|
./pkg/cal/cal_getmonthsrec.F |
91 |
CAL_GETMONTHSREC |
startofmonth(3) = 0 |
|
./pkg/cal/cal_getmonthsrec.F |
92 |
CAL_GETMONTHSREC |
startofmonth(4) = 0 |
|
./pkg/cal/cal_getmonthsrec.F |
99 |
CAL_GETMONTHSREC |
call CAL_FULLDATE( startofmonth(1), startofmonth(2), |
|
./pkg/ecco/cost_atlantic.F |
113 |
COST_ATLANTIC |
O startofday, startofmonth, startofyear, |
|
./pkg/ecco/cost_atlantic.F |
66 |
COST_ATLANTIC |
logical startofmonth |
|
./pkg/ecco/cost_averagesfields.F |
133 |
COST_AVERAGESFIELDS |
O startofday, startofmonth, startofyear, |
|
./pkg/ecco/cost_averagesfields.F |
143 |
COST_AVERAGESFIELDS |
I startofday, startofmonth, startofyear, |
|
./pkg/ecco/cost_averagesfields.F |
177 |
COST_AVERAGESFIELDS |
& first, last, startofmonth, endofmonth, inmonth, |
|
./pkg/ecco/cost_averagesfields.F |
184 |
COST_AVERAGESFIELDS |
& first, last, startofmonth, endofmonth, inmonth, |
|
./pkg/ecco/cost_averagesfields.F |
214 |
COST_AVERAGESFIELDS |
& first, last, startofmonth, endofmonth, inmonth, |
|
./pkg/ecco/cost_averagesfields.F |
221 |
COST_AVERAGESFIELDS |
& first, last, startofmonth, endofmonth, inmonth, |
|
./pkg/ecco/cost_averagesfields.F |
230 |
COST_AVERAGESFIELDS |
& first, last, startofmonth, endofmonth, inmonth, |
|
./pkg/ecco/cost_averagesfields.F |
241 |
COST_AVERAGESFIELDS |
if (first.or.startofmonth) then |
|
./pkg/ecco/cost_averagesfields.F |
290 |
COST_AVERAGESFIELDS |
& .not. (first .or. startofmonth) .and. |
|
./pkg/ecco/cost_averagesfields.F |
315 |
COST_AVERAGESFIELDS |
if (first.or. startofmonth) then |
|
./pkg/ecco/cost_averagesfields.F |
359 |
COST_AVERAGESFIELDS |
else if ( .not. (first.or. startofmonth) .and. |
|
./pkg/ecco/cost_averagesfields.F |
442 |
COST_AVERAGESFIELDS |
& first, last, startofmonth, endofmonth, inmonth, |
|
./pkg/ecco/cost_averagesfields.F |
76 |
COST_AVERAGESFIELDS |
logical startofmonth |
|
./pkg/ecco/cost_averagesflags.F |
14 |
COST_AVERAGESFLAGS |
O startofmonth, |
|
./pkg/ecco/cost_averagesflags.F |
201 |
COST_AVERAGESFLAGS |
startofmonth = .true. |
|
./pkg/ecco/cost_averagesflags.F |
203 |
COST_AVERAGESFLAGS |
startofmonth = .false. |
|
./pkg/ecco/cost_averagesflags.F |
63 |
COST_AVERAGESFLAGS |
logical startofmonth |
|
./pkg/ecco/cost_gencost_assignperiod.F |
32 |
COST_GENCOST_ASSIGNPERIOD |
logical startofmonth |
|
./pkg/ecco/cost_gencost_assignperiod.F |
65 |
COST_GENCOST_ASSIGNPERIOD |
startofgen(num_var) = startofmonth |
|
./pkg/ecco/cost_gencost_assignperiod.F |
7 |
COST_GENCOST_ASSIGNPERIOD |
I startofday, startofmonth, startofyear, |