| File |
Line number |
Procedure |
Code |
|
./pkg/admtlm/admtlm_dsvd2model.F |
166 |
ADMTLM_DSVD2MODEL |
if ( first ) then |
|
./pkg/admtlm/admtlm_dsvd2model.F |
64 |
ADMTLM_DSVD2MODEL |
logical first |
|
./pkg/admtlm/admtlm_dsvd2model.F |
9 |
ADMTLM_DSVD2MODEL |
& first, postprocev, mythid ) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
155 |
ADMTLM_MODEL2DSVD |
if ( first ) then |
|
./pkg/admtlm/admtlm_model2dsvd.F |
59 |
ADMTLM_MODEL2DSVD |
logical first |
|
./pkg/admtlm/admtlm_model2dsvd.F |
8 |
ADMTLM_MODEL2DSVD |
& first, preprocev, mythid ) |
|
./pkg/exf/exf_set_uv.F |
118 |
EXF_SET_UV |
O , fac, first, changed |
|
./pkg/exf/exf_set_uv.F |
123 |
EXF_SET_UV |
if ( first ) then |
|
./pkg/exf/exf_set_uv.F |
225 |
EXF_SET_UV |
if (( first ) .or. ( changed )) then |
|
./pkg/exf/exf_set_uv.F |
92 |
EXF_SET_UV |
logical first, changed |
|
./pkg/exf/exf_set_obcs.F |
127 |
EXF_SET_OBCS_YZ |
logical first, changed |
|
./pkg/exf/exf_set_obcs.F |
145 |
EXF_SET_OBCS_YZ |
if ( first ) then |
|
./pkg/exf/exf_set_obcs.F |
151 |
EXF_SET_OBCS_YZ |
if (( first ) .or. ( changed )) then |
|
./pkg/exf/exf_set_obcs.F |
41 |
EXF_SET_OBCS_XZ |
logical first, changed |
|
./pkg/exf/exf_set_obcs.F |
59 |
EXF_SET_OBCS_XZ |
if ( first ) then |
|
./pkg/exf/exf_set_obcs.F |
65 |
EXF_SET_OBCS_XZ |
if (( first ) .or. ( changed )) then |
|
./pkg/exf/exf_set_obcs.F |
6 |
EXF_SET_OBCS_XZ |
I , fac, first, changed, count0, count1 |
|
./pkg/exf/exf_set_obcs.F |
94 |
EXF_SET_OBCS_YZ |
I , fac, first, changed, count0, count1 |
|
./pkg/exf/exf_getffieldrec.F |
118 |
EXF_GETFFIELDREC |
first = ((mytime - modelstart) .lt. 0.5*modelstep) |
|
./pkg/exf/exf_getffieldrec.F |
119 |
EXF_GETFFIELDREC |
if ( .not. first ) then |
|
./pkg/exf/exf_getffieldrec.F |
11 |
EXF_GETFFIELDREC |
O first, |
|
./pkg/exf/exf_getffieldrec.F |
173 |
EXF_GETFFIELDREC |
if ( first) then |
|
./pkg/exf/exf_getffieldrec.F |
222 |
EXF_GETFFIELDREC |
first = .TRUE. |
|
./pkg/exf/exf_getffieldrec.F |
239 |
EXF_GETFFIELDREC |
if ( first) then |
|
./pkg/exf/exf_getffieldrec.F |
309 |
EXF_GETFFIELDREC |
& first, changed, fac |
|
./pkg/exf/exf_getffieldrec.F |
66 |
EXF_GETFFIELDREC |
logical first |
|
./pkg/exf/exf_set_gen.F |
100 |
EXF_SET_GEN |
O , fac, first, changed |
|
./pkg/exf/exf_set_gen.F |
105 |
EXF_SET_GEN |
if ( first ) then |
|
./pkg/exf/exf_set_gen.F |
144 |
EXF_SET_GEN |
if (( first ) .or. ( changed )) then |
|
./pkg/exf/exf_set_gen.F |
75 |
EXF_SET_GEN |
logical first, changed |
|
./pkg/exf/exf_set_climsst.F |
109 |
EXF_SET_CLIMSST |
if (( first ) .or. ( changed )) then |
|
./pkg/exf/exf_set_climsst.F |
51 |
EXF_SET_CLIMSST |
logical first, changed |
|
./pkg/exf/exf_set_climsst.F |
66 |
EXF_SET_CLIMSST |
O fac, first, changed, |
|
./pkg/exf/exf_set_climsst.F |
79 |
EXF_SET_CLIMSST |
O , fac, first, changed |
|
./pkg/exf/exf_set_climsst.F |
86 |
EXF_SET_CLIMSST |
if ( first ) then |
|
./pkg/exf/exf_set_climsss.F |
108 |
EXF_SET_CLIMSSS |
if (( first ) .or. ( changed )) then |
|
./pkg/exf/exf_set_climsss.F |
52 |
EXF_SET_CLIMSSS |
logical first, changed |
|
./pkg/exf/exf_set_climsss.F |
67 |
EXF_SET_CLIMSSS |
O fac, first, changed, |
|
./pkg/exf/exf_set_climsss.F |
79 |
EXF_SET_CLIMSSS |
O , fac, first, changed |
|
./pkg/exf/exf_set_climsss.F |
86 |
EXF_SET_CLIMSSS |
if ( first ) then |
|
./model/src/swfrac.F |
65 |
SWFRAC |
logical first, changed |
|
./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_clockstuff.F |
41 |
SET_ALARM |
logical first,set |
|
./pkg/fizhi/fizhi_clockstuff.F |
42 |
SET_ALARM |
data first /.true./ |
|
./pkg/fizhi/fizhi_clockstuff.F |
51 |
SET_ALARM |
if(first) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
94 |
SET_ALARM |
first = .false. |
|
./pkg/fizhi/fizhi_moist.F |
128 |
MOISTIO |
logical first |
|
./pkg/fizhi/fizhi_moist.F |
1336 |
RNDCLOUD |
logical first |
|
./pkg/fizhi/fizhi_moist.F |
1337 |
RNDCLOUD |
data first /.true./ |
|
./pkg/fizhi/fizhi_moist.F |
1346 |
RNDCLOUD |
if(first .and. myid.eq.1) print *,' NO RANDOM CLOUDS IN RAS ' |
|
./pkg/fizhi/fizhi_moist.F |
1364 |
RNDCLOUD |
elseif ( first.and.(iras.gt.1) .or. mcheck.eq.0 ) then |
|
./pkg/fizhi/fizhi_moist.F |
1395 |
RNDCLOUD |
first = .false. |
|
./pkg/fizhi/fizhi_moist.F |
201 |
MOISTIO |
if(first .and. myid.eq.1 .and. bi.eq.1 ) then |
|
./pkg/fizhi/fizhi_moist.F |
208 |
MOISTIO |
first = .false. |
|
./pkg/fizhi/update_ocean_exports.F |
111 |
GETSICE |
. sicebc1,sicebc2,first,nymdbc1,nymdbc2,nhmsbc1,nhmsbc2, |
|
./pkg/fizhi/update_ocean_exports.F |
163 |
GETSICE |
logical first |
|
./pkg/fizhi/update_ocean_exports.F |
202 |
GETSICE |
if (first) then |
|
./pkg/fizhi/update_ocean_exports.F |
208 |
GETSICE |
first = .false. |
|
./pkg/fizhi/update_ocean_exports.F |
363 |
GETSST |
. sstbc1,sstbc2,first,nymdbc1,nymdbc2,nhmsbc1,nhmsbc2, |
|
./pkg/fizhi/update_ocean_exports.F |
415 |
GETSST |
logical first |
|
./pkg/fizhi/update_ocean_exports.F |
453 |
GETSST |
if (first) then |
|
./pkg/fizhi/update_ocean_exports.F |
459 |
GETSST |
first = .false. |
|
./pkg/fizhi/update_ocean_exports.F |
49 |
UPDATE_OCEAN_EXPORTS |
logical first(nSx,nSy) |
|
./pkg/fizhi/update_ocean_exports.F |
52 |
UPDATE_OCEAN_EXPORTS |
data first/nSxnSy*.true./ |
|
./pkg/fizhi/update_ocean_exports.F |
83 |
UPDATE_OCEAN_EXPORTS |
. first(bi,bj),nymd1sst(bi,bj),nymd2sst(bi,bj), |
|
./pkg/fizhi/update_ocean_exports.F |
88 |
UPDATE_OCEAN_EXPORTS |
. first(bi,bj),nymd1sice(bi,bj),nymd2sice(bi,bj), |
|
./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./ |
|
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F |
41 |
SET_ALARM |
logical first,set |
|
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F |
42 |
SET_ALARM |
data first /.true./ |
|
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F |
51 |
SET_ALARM |
if(first) then |
|
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F |
94 |
SET_ALARM |
first = .false. |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
111 |
GETSICE |
. sicebc1,sicebc2,first,nymdbc1,nymdbc2,nhmsbc1,nhmsbc2, |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
164 |
GETSICE |
logical first |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
183 |
GETSST |
. sstbc1,sstbc2,first,nymdbc1,nymdbc2,nhmsbc1,nhmsbc2, |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
236 |
GETSST |
logical first |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
49 |
UPDATE_OCEAN_EXPORTS |
logical first(nSx,nSy) |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
52 |
UPDATE_OCEAN_EXPORTS |
data first/nSxnSy*.true./ |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
83 |
UPDATE_OCEAN_EXPORTS |
. first(bi,bj),nymd1sst(bi,bj),nymd2sst(bi,bj), |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
88 |
UPDATE_OCEAN_EXPORTS |
. first(bi,bj),nymd1sice(bi,bj),nymd2sice(bi,bj), |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
122 |
SWRIO |
if (first .and. myid.eq.1 ) then |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
129 |
SWRIO |
first = .false. |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
98 |
SWRIO |
logical first |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
99 |
SWRIO |
data first /.true./ |
|
./pkg/obcs/obcs_prescribe_read.F |
101 |
OBCS_PRESCRIBE_READ |
O , fac, first, changed |
|
./pkg/obcs/obcs_prescribe_read.F |
107 |
OBCS_PRESCRIBE_READ |
I , fac, first, changed, count0, count1 |
|
./pkg/obcs/obcs_prescribe_read.F |
110 |
OBCS_PRESCRIBE_READ |
I , fac, first, changed, count0, count1 |
|
./pkg/obcs/obcs_prescribe_read.F |
113 |
OBCS_PRESCRIBE_READ |
I , fac, first, changed, count0, count1 |
|
./pkg/obcs/obcs_prescribe_read.F |
116 |
OBCS_PRESCRIBE_READ |
I , fac, first, changed, count0, count1 |
|
./pkg/obcs/obcs_prescribe_read.F |
126 |
OBCS_PRESCRIBE_READ |
I , fac, first, changed, count0, count1 |
|
./pkg/obcs/obcs_prescribe_read.F |
138 |
OBCS_PRESCRIBE_READ |
O , fac, first, changed |
|
./pkg/obcs/obcs_prescribe_read.F |
144 |
OBCS_PRESCRIBE_READ |
I , fac, first, changed, count0, count1 |
|
./pkg/obcs/obcs_prescribe_read.F |
147 |
OBCS_PRESCRIBE_READ |
I , fac, first, changed, count0, count1 |
|
./pkg/obcs/obcs_prescribe_read.F |
150 |
OBCS_PRESCRIBE_READ |
I , fac, first, changed, count0, count1 |
|
./pkg/obcs/obcs_prescribe_read.F |
153 |
OBCS_PRESCRIBE_READ |
I , fac, first, changed, count0, count1 |
|
./pkg/obcs/obcs_prescribe_read.F |
162 |
OBCS_PRESCRIBE_READ |
I , fac, first, changed, count0, count1 |
|
./pkg/obcs/obcs_prescribe_read.F |
174 |
OBCS_PRESCRIBE_READ |
O , fac, first, changed |
|
./pkg/obcs/obcs_prescribe_read.F |
180 |
OBCS_PRESCRIBE_READ |
I , fac, first, changed, count0, count1 |
|
./pkg/obcs/obcs_prescribe_read.F |
183 |
OBCS_PRESCRIBE_READ |
I , fac, first, changed, count0, count1 |
|
./pkg/obcs/obcs_prescribe_read.F |
186 |
OBCS_PRESCRIBE_READ |
I , fac, first, changed, count0, count1 |
|
./pkg/obcs/obcs_prescribe_read.F |
189 |
OBCS_PRESCRIBE_READ |
I , fac, first, changed, count0, count1 |
|
./pkg/obcs/obcs_prescribe_read.F |
198 |
OBCS_PRESCRIBE_READ |
I , fac, first, changed, count0, count1 |
|
./pkg/obcs/obcs_prescribe_read.F |
48 |
OBCS_PRESCRIBE_READ |
logical first, changed |
|
./pkg/obcs/obcs_prescribe_read.F |
65 |
OBCS_PRESCRIBE_READ |
O , fac, first, changed |
|
./pkg/obcs/obcs_prescribe_read.F |
71 |
OBCS_PRESCRIBE_READ |
I , fac, first, changed, count0, count1 |
|
./pkg/obcs/obcs_prescribe_read.F |
74 |
OBCS_PRESCRIBE_READ |
I , fac, first, changed, count0, count1 |
|
./pkg/obcs/obcs_prescribe_read.F |
77 |
OBCS_PRESCRIBE_READ |
I , fac, first, changed, count0, count1 |
|
./pkg/obcs/obcs_prescribe_read.F |
80 |
OBCS_PRESCRIBE_READ |
I , fac, first, changed, count0, count1 |
|
./pkg/obcs/obcs_prescribe_read.F |
89 |
OBCS_PRESCRIBE_READ |
I , fac, first, changed, count0, count1 |
|
./pkg/ecco/cost_averagesflags.F |
10 |
COST_AVERAGESFLAGS |
O first, |
|
./pkg/ecco/cost_averagesflags.F |
126 |
COST_AVERAGESFLAGS |
first = .true. |
|
./pkg/ecco/cost_averagesflags.F |
131 |
COST_AVERAGESFLAGS |
first = .false. |
|
./pkg/ecco/cost_averagesflags.F |
60 |
COST_AVERAGESFLAGS |
logical first |
|
./pkg/ecco/cost_restore_averagesflags.F |
26 |
COST_RESTORE_AVERAGESFLAGS |
logical first |
|
./pkg/ecco/cost_restore_averagesflags.F |
5 |
COST_RESTORE_AVERAGESFLAGS |
& lcostrestart, first, last, |
|
./pkg/ecco/cost_averagesfields.F |
118 |
COST_AVERAGESFIELDS |
O first, last, |
|
./pkg/ecco/cost_averagesfields.F |
131 |
COST_AVERAGESFIELDS |
& first, last, startofday, endofday, inday, |
|
./pkg/ecco/cost_averagesfields.F |
144 |
COST_AVERAGESFIELDS |
& first, last, startofmonth, endofmonth, inmonth, |
|
./pkg/ecco/cost_averagesfields.F |
151 |
COST_AVERAGESFIELDS |
& first, last, startofmonth, endofmonth, inmonth, |
|
./pkg/ecco/cost_averagesfields.F |
164 |
COST_AVERAGESFIELDS |
& first, last, startofmonth, endofmonth, inmonth, |
|
./pkg/ecco/cost_averagesfields.F |
171 |
COST_AVERAGESFIELDS |
& first, last, startofmonth, endofmonth, inmonth, |
|
./pkg/ecco/cost_averagesfields.F |
180 |
COST_AVERAGESFIELDS |
& first, last, startofmonth, endofmonth, inmonth, |
|
./pkg/ecco/cost_averagesfields.F |
191 |
COST_AVERAGESFIELDS |
if (first.or.startofmonth) then |
|
./pkg/ecco/cost_averagesfields.F |
240 |
COST_AVERAGESFIELDS |
& .not. (first .or. startofmonth) .and. |
|
./pkg/ecco/cost_averagesfields.F |
265 |
COST_AVERAGESFIELDS |
if (first.or. startofmonth) then |
|
./pkg/ecco/cost_averagesfields.F |
309 |
COST_AVERAGESFIELDS |
else if ( .not. (first.or. startofmonth) .and. |
|
./pkg/ecco/cost_averagesfields.F |
333 |
COST_AVERAGESFIELDS |
intmp = (.NOT. first) .and. (.NOT. last) |
|
./pkg/ecco/cost_averagesfields.F |
337 |
COST_AVERAGESFIELDS |
& first, last, .false., .false., intmp, |
|
./pkg/ecco/cost_averagesfields.F |
346 |
COST_AVERAGESFIELDS |
& first, last, startofyear, endofyear, inyear, |
|
./pkg/ecco/cost_averagesfields.F |
358 |
COST_AVERAGESFIELDS |
& first, last, startofday, endofday, inday, |
|
./pkg/ecco/cost_averagesfields.F |
70 |
COST_AVERAGESFIELDS |
logical first |
|
./pkg/ecco/cost_store_averagesflags.F |
26 |
COST_STORE_AVERAGESFLAGS |
logical first |
|
./pkg/ecco/cost_store_averagesflags.F |
5 |
COST_STORE_AVERAGESFLAGS |
& lflag, first, last, |
|
./pkg/ecco/cost_averagesgeneric.F |
126 |
COST_AVERAGESGENERIC |
& .not. (first .or. startofloc) .and. |
|
./pkg/ecco/cost_averagesgeneric.F |
46 |
COST_AVERAGESGENERIC |
logical first |
|
./pkg/ecco/cost_averagesgeneric.F |
84 |
COST_AVERAGESGENERIC |
if (first .or. startofloc) then |
|
./pkg/ecco/cost_averagesgeneric.F |
8 |
COST_AVERAGESGENERIC |
& first, last, startofloc, endofloc, inloc, |
|
./pkg/ecco/cost_atlantic.F |
111 |
COST_ATLANTIC |
O first, last, |
|
./pkg/ecco/cost_atlantic.F |
138 |
COST_ATLANTIC |
if (first) then |
|
./pkg/ecco/cost_atlantic.F |
63 |
COST_ATLANTIC |
logical first |
|
./pkg/ctrl/ctrl_getrec.F |
10 |
CTRL_GETREC |
O first, |
|
./pkg/ctrl/ctrl_getrec.F |
252 |
CTRL_GETREC |
first = ((mytime - modelstart) .lt. 0.5*modelstep) |
|
./pkg/ctrl/ctrl_getrec.F |
254 |
CTRL_GETREC |
if ( first) then |
|
./pkg/ctrl/ctrl_getrec.F |
300 |
CTRL_GETREC |
& first, changed, fac |
|
./pkg/ctrl/ctrl_getrec.F |
57 |
CTRL_GETREC |
logical first |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
113 |
CTRL_GET_GEN_REC |
first = ((mytime - modelstart) .lt. 0.5*modelstep) |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
115 |
CTRL_GET_GEN_REC |
if ( first) then |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
11 |
CTRL_GET_GEN_REC |
O first, |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
155 |
CTRL_GET_GEN_REC |
& first, changed, fac |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
49 |
CTRL_GET_GEN_REC |
logical first |
|
./pkg/ctrl/ctrl_unpack.F |
155 |
CTRL_UNPACK |
if ( first ) then |
|
./pkg/ctrl/ctrl_unpack.F |
63 |
CTRL_UNPACK |
logical first |
|
./pkg/ctrl/ctrl_unpack.F |
8 |
CTRL_UNPACK |
subroutine CTRL_UNPACK( first, mythid ) |
|
./pkg/ctrl/ctrl_pack.F |
144 |
CTRL_PACK |
if ( first ) then |
|
./pkg/ctrl/ctrl_pack.F |
58 |
CTRL_PACK |
logical first |
|
./pkg/ctrl/ctrl_pack.F |
7 |
CTRL_PACK |
subroutine CTRL_PACK( first, mythid ) |
|
./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/cal/cal_getmonthsrec.F |
126 |
CAL_GETMONTHSREC |
first = ((mytime - modelstart) .lt. 0.5*modelstep) |
|
./pkg/cal/cal_getmonthsrec.F |
128 |
CAL_GETMONTHSREC |
if ( first ) then |
|
./pkg/cal/cal_getmonthsrec.F |
199 |
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, |