| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_atlantic.F |
108 |
COST_ATLANTIC |
O first, startofday, startofmonth, |
|
./pkg/ecco/cost_atlantic.F |
65 |
COST_ATLANTIC |
logical startofmonth |
|
./pkg/ecco/cost_averagesfields.F |
110 |
COST_AVERAGESFIELDS |
O first, startofday, startofmonth, |
|
./pkg/ecco/cost_averagesfields.F |
184 |
COST_AVERAGESFIELDS |
if (first .or. startofmonth) then |
|
./pkg/ecco/cost_averagesfields.F |
224 |
COST_AVERAGESFIELDS |
& .not. (first .or. startofmonth) .and. |
|
./pkg/ecco/cost_averagesfields.F |
249 |
COST_AVERAGESFIELDS |
if (first .or. startofmonth) then |
|
./pkg/ecco/cost_averagesfields.F |
287 |
COST_AVERAGESFIELDS |
& .not. (first .or. startofmonth) .and. |
|
./pkg/ecco/cost_averagesfields.F |
317 |
COST_AVERAGESFIELDS |
if (first .or. startofmonth) then |
|
./pkg/ecco/cost_averagesfields.F |
355 |
COST_AVERAGESFIELDS |
& .not. (first .or. startofmonth) .and. |
|
./pkg/ecco/cost_averagesfields.F |
380 |
COST_AVERAGESFIELDS |
if (first .or. startofmonth) then |
|
./pkg/ecco/cost_averagesfields.F |
419 |
COST_AVERAGESFIELDS |
& .not. (first .or. startofmonth) .and. |
|
./pkg/ecco/cost_averagesfields.F |
445 |
COST_AVERAGESFIELDS |
if (first .or. startofmonth) then |
|
./pkg/ecco/cost_averagesfields.F |
485 |
COST_AVERAGESFIELDS |
& .not. (first .or. startofmonth) .and. |
|
./pkg/ecco/cost_averagesfields.F |
516 |
COST_AVERAGESFIELDS |
if (first.or.startofmonth) then |
|
./pkg/ecco/cost_averagesfields.F |
565 |
COST_AVERAGESFIELDS |
& .not. (first .or. startofmonth) .and. |
|
./pkg/ecco/cost_averagesfields.F |
594 |
COST_AVERAGESFIELDS |
if (first.or. startofmonth) then |
|
./pkg/ecco/cost_averagesfields.F |
638 |
COST_AVERAGESFIELDS |
else if ( .not. (first.or. startofmonth) .and. |
|
./pkg/ecco/cost_averagesfields.F |
68 |
COST_AVERAGESFIELDS |
logical startofmonth |
|
./pkg/ecco/cost_averagesflags.F |
12 |
COST_AVERAGESFLAGS |
O startofmonth, |
|
./pkg/ecco/cost_averagesflags.F |
186 |
COST_AVERAGESFLAGS |
startofmonth = .true. |
|
./pkg/ecco/cost_averagesflags.F |
188 |
COST_AVERAGESFLAGS |
startofmonth = .false. |
|
./pkg/ecco/cost_averagesflags.F |
57 |
COST_AVERAGESFLAGS |
logical startofmonth |
|
./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), |