File |
Line number |
Procedure |
Code |
./pkg/exf/exf_getffieldrec.F |
104 |
EXF_GETFFIELDREC |
first = ((myTime - modelstart) .lt. 0.5*modelstep) |
./pkg/exf/exf_getffieldrec.F |
12 |
EXF_GETFFIELDREC |
O fac, first, changed, |
./pkg/exf/exf_getffieldrec.F |
214 |
EXF_GETFFIELDREC |
first = ( myIter.EQ.nIter0 ) |
./pkg/exf/exf_getffieldrec.F |
231 |
EXF_GETFFIELDREC |
first = ( myIter .EQ.nIter0 ) |
./pkg/exf/exf_getffieldrec.F |
62 |
EXF_GETFFIELDREC |
LOGICAL first, changed |
./pkg/exf/exf_getffieldrec.F |
97 |
EXF_GETFFIELDREC |
first = ((myTime - modelstart) .lt. 0.5*modelstep) |
./pkg/exf/exf_set_fld.F |
102 |
EXF_SET_FLD |
LOGICAL first, changed |
./pkg/exf/exf_set_fld.F |
133 |
EXF_SET_FLD |
O fac, first, changed, |
./pkg/exf/exf_set_fld.F |
149 |
EXF_SET_FLD |
O fac, first, changed, |
./pkg/exf/exf_set_fld.F |
161 |
EXF_SET_FLD |
& ' first, changed, fac: ', first, changed, fac |
./pkg/exf/exf_set_fld.F |
167 |
EXF_SET_FLD |
IF ( first ) THEN |
./pkg/exf/exf_set_fld.F |
224 |
EXF_SET_FLD |
IF ( first .OR. changed ) THEN |
./pkg/exf/exf_set_obcs.F |
127 |
EXF_SET_OBCS_YZ |
I fac, first, changed, useYearlyFields, obcs_period, |
./pkg/exf/exf_set_obcs.F |
160 |
EXF_SET_OBCS_YZ |
LOGICAL first, changed |
./pkg/exf/exf_set_obcs.F |
181 |
EXF_SET_OBCS_YZ |
IF ( first ) THEN |
./pkg/exf/exf_set_obcs.F |
18 |
EXF_SET_OBCS_XZ |
I fac, first, changed, useYearlyFields, obcs_period, |
./pkg/exf/exf_set_obcs.F |
195 |
EXF_SET_OBCS_YZ |
IF ( first .OR. changed ) THEN |
./pkg/exf/exf_set_obcs.F |
234 |
EXF_SET_OBCS_X |
I fac, first, changed, useYearlyFields, obcs_period, |
./pkg/exf/exf_set_obcs.F |
267 |
EXF_SET_OBCS_X |
LOGICAL first, changed |
./pkg/exf/exf_set_obcs.F |
289 |
EXF_SET_OBCS_X |
IF ( first ) THEN |
./pkg/exf/exf_set_obcs.F |
301 |
EXF_SET_OBCS_X |
IF (( first ) .OR. ( changed )) THEN |
./pkg/exf/exf_set_obcs.F |
336 |
EXF_SET_OBCS_Y |
I fac, first, changed, useYearlyFields, obcs_period, |
./pkg/exf/exf_set_obcs.F |
368 |
EXF_SET_OBCS_Y |
LOGICAL first, changed |
./pkg/exf/exf_set_obcs.F |
390 |
EXF_SET_OBCS_Y |
IF ( first ) THEN |
./pkg/exf/exf_set_obcs.F |
402 |
EXF_SET_OBCS_Y |
IF (( first ) .OR. ( changed )) THEN |
./pkg/exf/exf_set_obcs.F |
53 |
EXF_SET_OBCS_XZ |
LOGICAL first, changed |
./pkg/exf/exf_set_obcs.F |
74 |
EXF_SET_OBCS_XZ |
IF ( first ) THEN |
./pkg/exf/exf_set_obcs.F |
88 |
EXF_SET_OBCS_XZ |
IF ( first .OR. changed ) THEN |
./pkg/exf/exf_set_uv.F |
117 |
EXF_SET_UV |
LOGICAL first, changed |
./pkg/exf/exf_set_uv.F |
155 |
EXF_SET_UV |
O fac, first, changed, |
./pkg/exf/exf_set_uv.F |
171 |
EXF_SET_UV |
O fac, first, changed, |
./pkg/exf/exf_set_uv.F |
182 |
EXF_SET_UV |
& ' first, changed, fac: ', first, changed, fac |
./pkg/exf/exf_set_uv.F |
188 |
EXF_SET_UV |
IF ( first ) THEN |
./pkg/exf/exf_set_uv.F |
350 |
EXF_SET_UV |
IF ( first .OR. changed ) THEN |
./pkg/fizhi/fizhi_clockstuff.F |
113 |
SET_ALARM |
first = .false. |
./pkg/fizhi/fizhi_clockstuff.F |
59 |
SET_ALARM |
logical first,set |
./pkg/fizhi/fizhi_clockstuff.F |
60 |
SET_ALARM |
data first /.true./ |
./pkg/fizhi/fizhi_clockstuff.F |
64 |
SET_ALARM |
if(first) then |
./pkg/fizhi/fizhi_lwrad.F |
787 |
IRRAD |
logical first |
./pkg/fizhi/fizhi_lwrad.F |
788 |
IRRAD |
data first /.true./ |
./pkg/fizhi/fizhi_lwrad.F |
797 |
IRRAD |
if (first) then |
./pkg/fizhi/fizhi_lwrad.F |
865 |
IRRAD |
first=.false. |
./pkg/fizhi/fizhi_moist.F |
128 |
MOISTIO |
logical first |
./pkg/fizhi/fizhi_moist.F |
1396 |
RNDCLOUD |
logical first |
./pkg/fizhi/fizhi_moist.F |
1397 |
RNDCLOUD |
data first /.true./ |
./pkg/fizhi/fizhi_moist.F |
1406 |
RNDCLOUD |
if(first .and. myid.eq.1) print *,' NO RANDOM CLOUDS IN RAS ' |
./pkg/fizhi/fizhi_moist.F |
1424 |
RNDCLOUD |
elseif ( first.and.(iras.gt.1) .or. mcheck.eq.0 ) then |
./pkg/fizhi/fizhi_moist.F |
1455 |
RNDCLOUD |
first = .false. |
./pkg/fizhi/fizhi_moist.F |
203 |
MOISTIO |
if(first .and. myid.eq.1 .and. bi.eq.1 ) then |
./pkg/fizhi/fizhi_moist.F |
210 |
MOISTIO |
first = .false. |
./pkg/fizhi/fizhi_swrad.F |
122 |
SWRIO |
if (first .and. myid.eq.1 ) then |
./pkg/fizhi/fizhi_swrad.F |
129 |
SWRIO |
first = .false. |
./pkg/fizhi/fizhi_swrad.F |
98 |
SWRIO |
logical first |
./pkg/fizhi/fizhi_swrad.F |
99 |
SWRIO |
data first /.true./ |
./pkg/fizhi/update_ocean_exports.F |
119 |
GETSICE |
. sicebc1,sicebc2,first,nymdbc1,nymdbc2,nhmsbc1,nhmsbc2, |
./pkg/fizhi/update_ocean_exports.F |
172 |
GETSICE |
logical first |
./pkg/fizhi/update_ocean_exports.F |
220 |
GETSICE |
if (first) then |
./pkg/fizhi/update_ocean_exports.F |
226 |
GETSICE |
first = .false. |
./pkg/fizhi/update_ocean_exports.F |
380 |
GETSST |
. sstbc1,sstbc2,first,nymdbc1,nymdbc2,nhmsbc1,nhmsbc2, |
./pkg/fizhi/update_ocean_exports.F |
433 |
GETSST |
logical first |
./pkg/fizhi/update_ocean_exports.F |
480 |
GETSST |
if (first) then |
./pkg/fizhi/update_ocean_exports.F |
486 |
GETSST |
first = .false. |
./pkg/fizhi/update_ocean_exports.F |
50 |
UPDATE_OCEAN_EXPORTS |
logical first(nSx,nSy) |
./pkg/fizhi/update_ocean_exports.F |
53 |
UPDATE_OCEAN_EXPORTS |
data first/nSxnSy*.true./ |
./pkg/fizhi/update_ocean_exports.F |
91 |
UPDATE_OCEAN_EXPORTS |
. sst1,sst2,first(bi,bj),nymd1sst(bi,bj),nymd2sst(bi,bj), |
./pkg/fizhi/update_ocean_exports.F |
96 |
UPDATE_OCEAN_EXPORTS |
. sice1,sice2,first(bi,bj),nymd1sice(bi,bj),nymd2sice(bi,bj), |
./pkg/obcs/obcs_exf_load.F |
278 |
OBCS_EXF_READ_XZ |
LOGICAL first, changed |
./pkg/obcs/obcs_exf_load.F |
292 |
OBCS_EXF_READ_XZ |
O fac, first, changed, |
./pkg/obcs/obcs_exf_load.F |
308 |
OBCS_EXF_READ_XZ |
O fac, first, changed, |
./pkg/obcs/obcs_exf_load.F |
323 |
OBCS_EXF_READ_XZ |
& ' first, changed, fac: ', first, changed, fac |
./pkg/obcs/obcs_exf_load.F |
330 |
OBCS_EXF_READ_XZ |
I fac, first, changed, useYearlyFields, |
./pkg/obcs/obcs_exf_load.F |
334 |
OBCS_EXF_READ_XZ |
I fac, first, changed, useYearlyFields, |
./pkg/obcs/obcs_exf_load.F |
338 |
OBCS_EXF_READ_XZ |
I fac, first, changed, useYearlyFields, |
./pkg/obcs/obcs_exf_load.F |
342 |
OBCS_EXF_READ_XZ |
I fac, first, changed, useYearlyFields, |
./pkg/obcs/obcs_exf_load.F |
347 |
OBCS_EXF_READ_XZ |
I fac, first, changed, useYearlyFields, |
./pkg/obcs/obcs_exf_load.F |
358 |
OBCS_EXF_READ_XZ |
I fac, first, changed, useYearlyFields, |
./pkg/obcs/obcs_exf_load.F |
372 |
OBCS_EXF_READ_XZ |
O fac, first, changed, |
./pkg/obcs/obcs_exf_load.F |
388 |
OBCS_EXF_READ_XZ |
O fac, first, changed, |
./pkg/obcs/obcs_exf_load.F |
403 |
OBCS_EXF_READ_XZ |
& ' first, changed, fac: ', first, changed, fac |
./pkg/obcs/obcs_exf_load.F |
410 |
OBCS_EXF_READ_XZ |
I fac, first, changed, useYearlyFields, |
./pkg/obcs/obcs_exf_load.F |
414 |
OBCS_EXF_READ_XZ |
I fac, first, changed, useYearlyFields, |
./pkg/obcs/obcs_exf_load.F |
418 |
OBCS_EXF_READ_XZ |
I fac, first, changed, useYearlyFields, |
./pkg/obcs/obcs_exf_load.F |
422 |
OBCS_EXF_READ_XZ |
I fac, first, changed, useYearlyFields, |
./pkg/obcs/obcs_exf_load.F |
426 |
OBCS_EXF_READ_XZ |
I fac, first, changed, useYearlyFields, |
./pkg/obcs/obcs_exf_load.F |
430 |
OBCS_EXF_READ_XZ |
I fac, first, changed, useYearlyFields, |
./pkg/obcs/obcs_exf_load.F |
553 |
OBCS_EXF_READ_YZ |
LOGICAL first, changed |
./pkg/obcs/obcs_exf_load.F |
567 |
OBCS_EXF_READ_YZ |
O fac, first, changed, |
./pkg/obcs/obcs_exf_load.F |
583 |
OBCS_EXF_READ_YZ |
O fac, first, changed, |
./pkg/obcs/obcs_exf_load.F |
598 |
OBCS_EXF_READ_YZ |
& ' first, changed, fac: ', first, changed, fac |
./pkg/obcs/obcs_exf_load.F |
605 |
OBCS_EXF_READ_YZ |
I fac, first, changed, useYearlyFields, |
./pkg/obcs/obcs_exf_load.F |
609 |
OBCS_EXF_READ_YZ |
I fac, first, changed, useYearlyFields, |
./pkg/obcs/obcs_exf_load.F |
613 |
OBCS_EXF_READ_YZ |
I fac, first, changed, useYearlyFields, |
./pkg/obcs/obcs_exf_load.F |
617 |
OBCS_EXF_READ_YZ |
I fac, first, changed, useYearlyFields, |
./pkg/obcs/obcs_exf_load.F |
622 |
OBCS_EXF_READ_YZ |
I fac, first, changed, useYearlyFields, |
./pkg/obcs/obcs_exf_load.F |
633 |
OBCS_EXF_READ_YZ |
I fac, first, changed, useYearlyFields, |
./pkg/obcs/obcs_exf_load.F |
647 |
OBCS_EXF_READ_YZ |
O fac, first, changed, |
./pkg/obcs/obcs_exf_load.F |
663 |
OBCS_EXF_READ_YZ |
O fac, first, changed, |
./pkg/obcs/obcs_exf_load.F |
678 |
OBCS_EXF_READ_YZ |
& ' first, changed, fac: ', first, changed, fac |
./pkg/obcs/obcs_exf_load.F |
685 |
OBCS_EXF_READ_YZ |
I fac, first, changed, useYearlyFields, |
./pkg/obcs/obcs_exf_load.F |
689 |
OBCS_EXF_READ_YZ |
I fac, first, changed, useYearlyFields, |
./pkg/obcs/obcs_exf_load.F |
693 |
OBCS_EXF_READ_YZ |
I fac, first, changed, useYearlyFields, |
./pkg/obcs/obcs_exf_load.F |
697 |
OBCS_EXF_READ_YZ |
I fac, first, changed, useYearlyFields, |
./pkg/obcs/obcs_exf_load.F |
701 |
OBCS_EXF_READ_YZ |
I fac, first, changed, useYearlyFields, |
./pkg/obcs/obcs_exf_load.F |
705 |
OBCS_EXF_READ_YZ |
I fac, first, changed, useYearlyFields, |
./pkg/streamice/streamice_fields_load.F |
107 |
STREAMICE_FIELDS_LOAD |
IF ( first ) changed = .false. |
./pkg/streamice/streamice_fields_load.F |
121 |
STREAMICE_FIELDS_LOAD |
IF ( first ) THEN |
./pkg/streamice/streamice_fields_load.F |
177 |
STREAMICE_FIELDS_LOAD |
IF ( first .OR. changed) THEN |
./pkg/streamice/streamice_fields_load.F |
60 |
STREAMICE_FIELDS_LOAD |
LOGICAL first, changed |
./pkg/streamice/streamice_fields_load.F |
74 |
STREAMICE_FIELDS_LOAD |
first = (myRelTime .lt. 0.5*deltaTClock) |
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
119 |
GETSICE |
. sicebc1,sicebc2,first,nymdbc1,nymdbc2,nhmsbc1,nhmsbc2, |
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
172 |
GETSICE |
logical first |
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
192 |
GETSST |
. sstbc1,sstbc2,first,nymdbc1,nymdbc2,nhmsbc1,nhmsbc2, |
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
245 |
GETSST |
logical first |
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
50 |
UPDATE_OCEAN_EXPORTS |
logical first(nSx,nSy) |
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
53 |
UPDATE_OCEAN_EXPORTS |
data first/nSxnSy*.true./ |
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
91 |
UPDATE_OCEAN_EXPORTS |
. sst1,sst2,first(bi,bj),nymd1sst(bi,bj),nymd2sst(bi,bj), |
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
96 |
UPDATE_OCEAN_EXPORTS |
. sice1,sice2,first(bi,bj),nymd1sice(bi,bj),nymd2sice(bi,bj), |
./pkg/admtlm/admtlm_dsvd2model.F |
10 |
ADMTLM_DSVD2MODEL |
& first, postprocev, mythid ) |
./pkg/admtlm/admtlm_dsvd2model.F |
167 |
ADMTLM_DSVD2MODEL |
if ( first ) then |
./pkg/admtlm/admtlm_dsvd2model.F |
65 |
ADMTLM_DSVD2MODEL |
logical first |
./pkg/admtlm/admtlm_model2dsvd.F |
10 |
ADMTLM_MODEL2DSVD |
& first, preprocev, mythid ) |
./pkg/admtlm/admtlm_model2dsvd.F |
157 |
ADMTLM_MODEL2DSVD |
if ( first ) then |
./pkg/admtlm/admtlm_model2dsvd.F |
61 |
ADMTLM_MODEL2DSVD |
logical first |
./pkg/cal/cal_getmonthsrec.F |
127 |
CAL_GETMONTHSREC |
first = ((mytime - modelstart) .lt. 0.5*modelstep) |
./pkg/cal/cal_getmonthsrec.F |
129 |
CAL_GETMONTHSREC |
if ( first ) then |
./pkg/cal/cal_getmonthsrec.F |
196 |
CAL_GETMONTHSREC |
if ( (.not. first) .and. (prevcount .ne. count0) ) then |
./pkg/cal/cal_getmonthsrec.F |
41 |
CAL_GETMONTHSREC |
logical first |
./pkg/cal/cal_getmonthsrec.F |
7 |
CAL_GETMONTHSREC |
O fac, first, changed, |
./pkg/chronos/chronos.F |
41 |
SET_ALARM |
logical first,set |
./pkg/chronos/chronos.F |
42 |
SET_ALARM |
data first /.true./ |
./pkg/chronos/chronos.F |
51 |
SET_ALARM |
if(first) then |
./pkg/chronos/chronos.F |
94 |
SET_ALARM |
first = .false. |
./pkg/ctrl/ctrl_get_gen_rec.F |
10 |
CTRL_GET_GEN_REC |
O first, |
./pkg/ctrl/ctrl_get_gen_rec.F |
114 |
CTRL_GET_GEN_REC |
O fac, first, changed, |
./pkg/ctrl/ctrl_get_gen_rec.F |
122 |
CTRL_GET_GEN_REC |
first = ((mytime - modelstart) .lt. 0.5*modelstep) |
./pkg/ctrl/ctrl_get_gen_rec.F |
147 |
CTRL_GET_GEN_REC |
first = ((mytime - modelstart) .lt. 0.5*modelstep) |
./pkg/ctrl/ctrl_get_gen_rec.F |
149 |
CTRL_GET_GEN_REC |
if ( first) then |
./pkg/ctrl/ctrl_get_gen_rec.F |
191 |
CTRL_GET_GEN_REC |
first = (myRelTime .lt. 0.5*deltaTClock) |
./pkg/ctrl/ctrl_get_gen_rec.F |
213 |
CTRL_GET_GEN_REC |
IF ( first ) changed = .false. |
./pkg/ctrl/ctrl_get_gen_rec.F |
227 |
CTRL_GET_GEN_REC |
& first, changed, fac |
./pkg/ctrl/ctrl_get_gen_rec.F |
48 |
CTRL_GET_GEN_REC |
logical first |
./pkg/ctrl/ctrl_getrec.F |
335 |
CTRL_GETREC |
first = ((mytime - modelstart) .lt. 0.5*modelstep) |
./pkg/ctrl/ctrl_getrec.F |
337 |
CTRL_GETREC |
if ( first) then |
./pkg/ctrl/ctrl_getrec.F |
383 |
CTRL_GETREC |
& first, changed, fac |
./pkg/ctrl/ctrl_getrec.F |
56 |
CTRL_GETREC |
logical first |
./pkg/ctrl/ctrl_getrec.F |
9 |
CTRL_GETREC |
O first, |
./pkg/ctrl/ctrl_pack.F |
15 |
CTRL_PACK |
subroutine CTRL_PACK( first, mythid ) |
./pkg/ctrl/ctrl_pack.F |
185 |
CTRL_PACK |
if ( first ) then |
./pkg/ctrl/ctrl_pack.F |
72 |
CTRL_PACK |
logical first |
./pkg/ctrl/ctrl_unpack.F |
15 |
CTRL_UNPACK |
subroutine CTRL_UNPACK( first, mythid ) |
./pkg/ctrl/ctrl_unpack.F |
196 |
CTRL_UNPACK |
if ( first ) then |
./pkg/ctrl/ctrl_unpack.F |
77 |
CTRL_UNPACK |
logical first |
./pkg/ecco/cost_averagesfields.F |
172 |
COST_AVERAGESFIELDS |
O first, last, |
./pkg/ecco/cost_averagesfields.F |
245 |
COST_AVERAGESFIELDS |
& first, last, startofday, endofday, inday, |
./pkg/ecco/cost_averagesfields.F |
258 |
COST_AVERAGESFIELDS |
& first, last, startofmonth, endofmonth, inmonth, |
./pkg/ecco/cost_averagesfields.F |
275 |
COST_AVERAGESFIELDS |
& first, last, startofmonth, endofmonth, inmonth, |
./pkg/ecco/cost_averagesfields.F |
282 |
COST_AVERAGESFIELDS |
& first, last, startofmonth, endofmonth, inmonth, |
./pkg/ecco/cost_averagesfields.F |
297 |
COST_AVERAGESFIELDS |
& first, last, startofday, endofday, inday, |
./pkg/ecco/cost_averagesfields.F |
314 |
COST_AVERAGESFIELDS |
& first, last, startofmonth, endofmonth, inmonth, |
./pkg/ecco/cost_averagesfields.F |
321 |
COST_AVERAGESFIELDS |
& first, last, startofmonth, endofmonth, inmonth, |
./pkg/ecco/cost_averagesfields.F |
330 |
COST_AVERAGESFIELDS |
& first, last, startofmonth, endofmonth, inmonth, |
./pkg/ecco/cost_averagesfields.F |
341 |
COST_AVERAGESFIELDS |
if (first.or.startofmonth) then |
./pkg/ecco/cost_averagesfields.F |
390 |
COST_AVERAGESFIELDS |
& .not. (first .or. startofmonth) .and. |
./pkg/ecco/cost_averagesfields.F |
416 |
COST_AVERAGESFIELDS |
if (first.or. startofmonth) then |
./pkg/ecco/cost_averagesfields.F |
460 |
COST_AVERAGESFIELDS |
else if ( .not. (first.or. startofmonth) .and. |
./pkg/ecco/cost_averagesfields.F |
484 |
COST_AVERAGESFIELDS |
& first, last, startofday, endofday, inday, |
./pkg/ecco/cost_averagesfields.F |
489 |
COST_AVERAGESFIELDS |
& first, last, startofday, endofday, inday, |
./pkg/ecco/cost_averagesfields.F |
511 |
COST_AVERAGESFIELDS |
& first, last, startofyear, endofyear, inyear, |
./pkg/ecco/cost_averagesfields.F |
525 |
COST_AVERAGESFIELDS |
& first, last, startofyear, endofyear, inyear, |
./pkg/ecco/cost_averagesfields.F |
535 |
COST_AVERAGESFIELDS |
& first, last, startofyear, endofyear, inyear, |
./pkg/ecco/cost_averagesfields.F |
544 |
COST_AVERAGESFIELDS |
& first, last, startofmonth, endofmonth, inmonth, |
./pkg/ecco/cost_averagesfields.F |
559 |
COST_AVERAGESFIELDS |
& first, last, startofday, endofday, inday, |
./pkg/ecco/cost_averagesfields.F |
570 |
COST_AVERAGESFIELDS |
& first, last, startofday, endofday, inday, |
./pkg/ecco/cost_averagesfields.F |
581 |
COST_AVERAGESFIELDS |
& first, last, startofday, endofday, inday, |
./pkg/ecco/cost_averagesfields.F |
682 |
COST_AVERAGESFIELDS |
& first, last, startofday, endofday, inday, |
./pkg/ecco/cost_averagesfields.F |
697 |
COST_AVERAGESFIELDS |
& first, last, |
./pkg/ecco/cost_averagesfields.F |
708 |
COST_AVERAGESFIELDS |
& first, last, |
./pkg/ecco/cost_averagesfields.F |
736 |
COST_AVERAGESFIELDS |
if (first.or.startofday) |
./pkg/ecco/cost_averagesfields.F |
91 |
COST_AVERAGESFIELDS |
logical first |
./pkg/ecco/cost_averagesflags.F |
11 |
COST_AVERAGESFLAGS |
O first, |
./pkg/ecco/cost_averagesflags.F |
127 |
COST_AVERAGESFLAGS |
first = .true. |
./pkg/ecco/cost_averagesflags.F |
132 |
COST_AVERAGESFLAGS |
first = .false. |
./pkg/ecco/cost_averagesflags.F |
61 |
COST_AVERAGESFLAGS |
logical first |
./pkg/ecco/cost_averagesgeneric.F |
147 |
COST_AVERAGESGENERIC |
elseif (first .or. startofloc) then |
./pkg/ecco/cost_averagesgeneric.F |
197 |
COST_AVERAGESGENERIC |
& .not. (first .or. startofloc) .and. |
./pkg/ecco/cost_averagesgeneric.F |
45 |
COST_AVERAGESGENERIC |
logical first |
./pkg/ecco/cost_averagesgeneric.F |
89 |
COST_AVERAGESGENERIC |
& first, last, startofloc, endofloc, inloc |
./pkg/ecco/cost_averagesgeneric.F |
9 |
COST_AVERAGESGENERIC |
& first, last, startofloc, endofloc, inloc, |