| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_atlantic.F |
110 |
COST_ATLANTIC |
O last, endofday, endofmonth, |
|
./pkg/ecco/cost_atlantic.F |
70 |
COST_ATLANTIC |
logical endofmonth |
|
./pkg/ecco/cost_averagesfields.F |
112 |
COST_AVERAGESFIELDS |
O last, endofday, endofmonth, |
|
./pkg/ecco/cost_averagesfields.F |
197 |
COST_AVERAGESFIELDS |
else if (last .or. endofmonth) then |
|
./pkg/ecco/cost_averagesfields.F |
225 |
COST_AVERAGESFIELDS |
& .not. (last .or. endofmonth ) ) then |
|
./pkg/ecco/cost_averagesfields.F |
261 |
COST_AVERAGESFIELDS |
else if (last .or. endofmonth) then |
|
./pkg/ecco/cost_averagesfields.F |
288 |
COST_AVERAGESFIELDS |
& .not. (last .or. endofmonth ) ) then |
|
./pkg/ecco/cost_averagesfields.F |
329 |
COST_AVERAGESFIELDS |
else if (last .or. endofmonth) then |
|
./pkg/ecco/cost_averagesfields.F |
356 |
COST_AVERAGESFIELDS |
& .not. (last .or. endofmonth ) ) then |
|
./pkg/ecco/cost_averagesfields.F |
392 |
COST_AVERAGESFIELDS |
else if (last .or. endofmonth) then |
|
./pkg/ecco/cost_averagesfields.F |
420 |
COST_AVERAGESFIELDS |
& .not. (last .or. endofmonth ) ) then |
|
./pkg/ecco/cost_averagesfields.F |
458 |
COST_AVERAGESFIELDS |
else if (last .or. endofmonth) then |
|
./pkg/ecco/cost_averagesfields.F |
486 |
COST_AVERAGESFIELDS |
& .not. (last .or. endofmonth ) ) then |
|
./pkg/ecco/cost_averagesfields.F |
529 |
COST_AVERAGESFIELDS |
else if (last .or. endofmonth) then |
|
./pkg/ecco/cost_averagesfields.F |
566 |
COST_AVERAGESFIELDS |
& .not. (last .or. endofmonth ) ) then |
|
./pkg/ecco/cost_averagesfields.F |
605 |
COST_AVERAGESFIELDS |
else if (last .or. endofmonth) then |
|
./pkg/ecco/cost_averagesfields.F |
639 |
COST_AVERAGESFIELDS |
& .not. (last .or. endofmonth) ) then |
|
./pkg/ecco/cost_averagesfields.F |
73 |
COST_AVERAGESFIELDS |
logical endofmonth |
|
./pkg/ecco/cost_averagesflags.F |
17 |
COST_AVERAGESFLAGS |
O endofmonth, |
|
./pkg/ecco/cost_averagesflags.F |
195 |
COST_AVERAGESFLAGS |
endofmonth = .true. |
|
./pkg/ecco/cost_averagesflags.F |
197 |
COST_AVERAGESFLAGS |
endofmonth = .false. |
|
./pkg/ecco/cost_averagesflags.F |
211 |
COST_AVERAGESFLAGS |
if ( last .or. endofmonth ) then |
|
./pkg/ecco/cost_averagesflags.F |
62 |
COST_AVERAGESFLAGS |
logical endofmonth |
|
./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 |