| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal_getmonthsrec.F |
101 |
CAL_GETMONTHSREC |
call CAL_FULLDATE( endofmonth(1), endofmonth(2), |
|
./pkg/cal/cal_getmonthsrec.F |
102 |
CAL_GETMONTHSREC |
& endofmonth, mythid ) |
|
./pkg/cal/cal_getmonthsrec.F |
179 |
CAL_GETMONTHSREC |
call CAL_ADDTIME( endofmonth, shifttime, middate1, mythid ) |
|
./pkg/cal/cal_getmonthsrec.F |
59 |
CAL_GETMONTHSREC |
integer endofmonth(4) |
|
./pkg/cal/cal_getmonthsrec.F |
93 |
CAL_GETMONTHSREC |
endofmonth(1) = (currentdate(1)/100)*100 + |
|
./pkg/cal/cal_getmonthsrec.F |
95 |
CAL_GETMONTHSREC |
endofmonth(2) = 235959 |
|
./pkg/cal/cal_getmonthsrec.F |
96 |
CAL_GETMONTHSREC |
endofmonth(3) = 0 |
|
./pkg/cal/cal_getmonthsrec.F |
97 |
CAL_GETMONTHSREC |
endofmonth(4) = 0 |
|
./pkg/ecco/cost_atlantic.F |
115 |
COST_ATLANTIC |
O endofday, endofmonth, endofyear, |
|
./pkg/ecco/cost_atlantic.F |
73 |
COST_ATLANTIC |
logical endofmonth |
|
./pkg/ecco/cost_averagesfields.F |
135 |
COST_AVERAGESFIELDS |
O endofday, endofmonth, endofyear, |
|
./pkg/ecco/cost_averagesfields.F |
145 |
COST_AVERAGESFIELDS |
I endofday, endofmonth, endofyear, |
|
./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 |
254 |
COST_AVERAGESFIELDS |
else if (last .or. endofmonth) then |
|
./pkg/ecco/cost_averagesfields.F |
291 |
COST_AVERAGESFIELDS |
& .not. (last .or. endofmonth ) ) then |
|
./pkg/ecco/cost_averagesfields.F |
326 |
COST_AVERAGESFIELDS |
else if (last .or. endofmonth) then |
|
./pkg/ecco/cost_averagesfields.F |
360 |
COST_AVERAGESFIELDS |
& .not. (last .or. endofmonth) ) then |
|
./pkg/ecco/cost_averagesfields.F |
442 |
COST_AVERAGESFIELDS |
& first, last, startofmonth, endofmonth, inmonth, |
|
./pkg/ecco/cost_averagesfields.F |
83 |
COST_AVERAGESFIELDS |
logical endofmonth |
|
./pkg/ecco/cost_averagesflags.F |
20 |
COST_AVERAGESFLAGS |
O endofmonth, |
|
./pkg/ecco/cost_averagesflags.F |
210 |
COST_AVERAGESFLAGS |
endofmonth = .true. |
|
./pkg/ecco/cost_averagesflags.F |
212 |
COST_AVERAGESFLAGS |
endofmonth = .false. |
|
./pkg/ecco/cost_averagesflags.F |
226 |
COST_AVERAGESFLAGS |
if ( last .or. endofmonth ) then |
|
./pkg/ecco/cost_averagesflags.F |
70 |
COST_AVERAGESFLAGS |
logical endofmonth |
|
./pkg/ecco/cost_gencost_assignperiod.F |
38 |
COST_GENCOST_ASSIGNPERIOD |
logical endofmonth |
|
./pkg/ecco/cost_gencost_assignperiod.F |
66 |
COST_GENCOST_ASSIGNPERIOD |
endofgen(num_var) = endofmonth |
|
./pkg/ecco/cost_gencost_assignperiod.F |
9 |
COST_GENCOST_ASSIGNPERIOD |
I endofday, endofmonth, endofyear, |