| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_xbt.F |
121 |
COST_XBT |
mody = modelstartdate(1)/10000 |
|
./pkg/ecco/cost_xbt.F |
122 |
COST_XBT |
modm = modelstartdate(1)/100 - mody*100 |
|
./pkg/ecco/cost_salt.F |
160 |
COST_SALT |
levoff = mod(modelstartdate(1)/100,100) |
|
./pkg/ecco/cost_readtopex.F |
102 |
COST_READTOPEX |
middate(1) = modelstartdate(1) |
|
./pkg/ecco/cost_readtopex.F |
107 |
COST_READTOPEX |
middate(3) = modelstartdate(3) |
|
./pkg/ecco/cost_readtopex.F |
108 |
COST_READTOPEX |
middate(4) = modelstartdate(4) |
|
./pkg/ecco/cost_readers.F |
102 |
COST_READERS |
middate(1) = modelstartdate(1) |
|
./pkg/ecco/cost_readers.F |
107 |
COST_READERS |
middate(3) = modelstartdate(3) |
|
./pkg/ecco/cost_readers.F |
108 |
COST_READERS |
middate(4) = modelstartdate(4) |
|
./pkg/ecco/cost_ctdtclim.F |
160 |
COST_CTDTCLIM |
levoff = mod(modelstartdate(1)/100,100) |
|
./pkg/ecco/cost_readargos.F |
73 |
COST_READARGOS |
beginrun = modelstartdate(1)/10000 |
|
./pkg/ecco/cost_readargos.F |
75 |
COST_READARGOS |
argosrec = mod(modelstartdate(1)/100,100) - |
|
./pkg/ecco/cost_readargos.F |
80 |
COST_READARGOS |
& 1) + mod(modelstartdate(1)/100,100) - 1 + irec |
|
./pkg/ecco/cost_argo_theta.F |
119 |
COST_ARGO_THETA |
mody = modelstartdate(1)/10000 |
|
./pkg/ecco/cost_argo_theta.F |
120 |
COST_ARGO_THETA |
modm = modelstartdate(1)/100 - mody*100 |
|
./pkg/ecco/cost_readscatyfields.F |
100 |
COST_READSCATYFIELDS |
mody = modelstartdate(1)/10000 |
|
./pkg/ecco/cost_readscatyfields.F |
101 |
COST_READSCATYFIELDS |
modm = modelstartdate(1)/100 - mody*100 |
|
./pkg/ecco/cost_ctdsclim.F |
161 |
COST_CTDSCLIM |
levoff = mod(modelstartdate(1)/100,100) |
|
./pkg/ecco/cost_readsstfields.F |
100 |
COST_READSSTFIELDS |
mody = modelstartdate(1)/10000 |
|
./pkg/ecco/cost_readsstfields.F |
101 |
COST_READSSTFIELDS |
modm = modelstartdate(1)/100 - mody*100 |
|
./pkg/ecco/cost_argo_salt.F |
116 |
COST_ARGO_SALT |
mody = modelstartdate(1)/10000 |
|
./pkg/ecco/cost_argo_salt.F |
117 |
COST_ARGO_SALT |
modm = modelstartdate(1)/100 - mody*100 |
|
./pkg/ecco/cost_readargot.F |
73 |
COST_READARGOT |
beginrun = modelstartdate(1)/10000 |
|
./pkg/ecco/cost_readargot.F |
75 |
COST_READARGOT |
argotrec = mod(modelstartdate(1)/100,100) - |
|
./pkg/ecco/cost_readargot.F |
80 |
COST_READARGOT |
& 1) + mod(modelstartdate(1)/100,100) - 1 + irec |
|
./pkg/ecco/cost_ctdt.F |
117 |
COST_CTDT |
mody = modelstartdate(1)/10000 |
|
./pkg/ecco/cost_ctdt.F |
118 |
COST_CTDT |
modm = modelstartdate(1)/100 - mody*100 |
|
./pkg/ecco/cost_theta.F |
159 |
COST_THETA |
levoff = mod(modelstartdate(1)/100,100) |
|
./pkg/ecco/cost_readsssfields.F |
100 |
COST_READSSSFIELDS |
mody = modelstartdate(1)/10000 |
|
./pkg/ecco/cost_readsssfields.F |
101 |
COST_READSSSFIELDS |
modm = modelstartdate(1)/100 - mody*100 |
|
./pkg/ecco/cost_readtmifields.F |
100 |
COST_READTMIFIELDS |
mody = modelstartdate(1)/10000 |
|
./pkg/ecco/cost_readtmifields.F |
101 |
COST_READTMIFIELDS |
modm = modelstartdate(1)/100 - mody*100 |
|
./pkg/ecco/cost_readtmifields.F |
89 |
COST_READTMIFIELDS |
beginrun = modelstartdate(1)/10000 |
|
./pkg/ecco/cost_readtmifields.F |
91 |
COST_READTMIFIELDS |
tmirec = mod(modelstartdate(1)/100,100) - |
|
./pkg/ecco/cost_readtmifields.F |
96 |
COST_READTMIFIELDS |
& 1) + mod(modelstartdate(1)/100,100) - 1 + irec |
|
./pkg/ecco/cost_ctds.F |
116 |
COST_CTDS |
mody = modelstartdate(1)/10000 |
|
./pkg/ecco/cost_ctds.F |
117 |
COST_CTDS |
modm = modelstartdate(1)/100 - mody*100 |
|
./pkg/ecco/cost_readscatxfields.F |
101 |
COST_READSCATXFIELDS |
mody = modelstartdate(1)/10000 |
|
./pkg/ecco/cost_readscatxfields.F |
102 |
COST_READSCATXFIELDS |
modm = modelstartdate(1)/100 - mody*100 |
|
./pkg/ecco/cost_averagesflags.F |
111 |
COST_AVERAGESFLAGS |
equal = cal_CompDates(modelstartdate,mydate,mythid) |
|
./pkg/ecco/cost_averagesflags.F |
158 |
COST_AVERAGESFLAGS |
if ( mydate(1) .eq. modelstartdate(1) ) then |
|
./pkg/ecco/cost_averagesflags.F |
159 |
COST_AVERAGESFLAGS |
call CAL_COPYDATE( modelstartdate, targetdate, mythid ) |
|
./pkg/ecco/cost_averagesflags.F |
166 |
COST_AVERAGESFLAGS |
call CAL_TIMEPASSED( modelstartdate, targetdate, datediff, |
|
./pkg/ecco/cost_averagesflags.F |
212 |
COST_AVERAGESFLAGS |
if ( (mydate(1)/100)*100 .eq. (modelstartdate(1)/100)*100 ) then |
|
./pkg/ecco/cost_averagesflags.F |
213 |
COST_AVERAGESFLAGS |
call CAL_COPYDATE( modelstartdate, targetdate, mythid ) |
|
./pkg/ecco/cost_averagesflags.F |
220 |
COST_AVERAGESFLAGS |
if ( mydate(1)/10000 .eq. modelstartdate(1)/10000 ) then |
|
./pkg/ecco/cost_averagesflags.F |
222 |
COST_AVERAGESFLAGS |
& - mod( modelstartdate(1)/100, 100 ) + 1 |
|
./pkg/ecco/cost_averagesflags.F |
225 |
COST_AVERAGESFLAGS |
& + nmonthyear - mod(modelstartdate(1)/100,100) + 1 |
|
./pkg/ecco/cost_averagesflags.F |
226 |
COST_AVERAGESFLAGS |
& + ( mydate(1)/10000 - modelstartdate(1)/10000 - 1)* |
|
./pkg/ecco/ecco_cost_init_fixed.F |
104 |
ECCO_COST_INIT_FIXED |
call CAL_TIMEPASSED( modelstartdate, tempDate1 , |
|
./pkg/ecco/ecco_cost_init_fixed.F |
111 |
ECCO_COST_INIT_FIXED |
call CAL_TIMEPASSED( modelstartdate, tempDate1 , |
|
./pkg/cal/cal_intdays.F |
51 |
NO PROCEDURE |
tempdate(1) = modelstartdate(1) |
|
./pkg/cal/cal_intdays.F |
53 |
NO PROCEDURE |
tempdate(3) = modelstartdate(3) |
|
./pkg/cal/cal_intdays.F |
54 |
NO PROCEDURE |
tempdate(4) = modelstartdate(4) |
|
./pkg/cal/cal_daysformonth.F |
80 |
CAL_DAYSFORMONTH |
firstyear = modelstartdate(1)/10000 |
|
./pkg/cal/cal_daysformonth.F |
81 |
CAL_DAYSFORMONTH |
firstmonth = mod(modelstartdate(1)/100,100) |
|
./pkg/cal/cal_daysformonth.F |
82 |
CAL_DAYSFORMONTH |
firstd = mod(modelstartdate(1),100) |
|
./pkg/cal/cal_summary.F |
113 |
CAL_SUMMARY |
call WRITE_0D_I( modelstartdate(1), INDEX_NONE, |
|
./pkg/cal/cal_summary.F |
116 |
CAL_SUMMARY |
call WRITE_0D_I( modelstartdate(2), INDEX_NONE, |
|
./pkg/cal/cal_set.F |
365 |
CAL_SET |
& modelstartdate, mythid ) |
|
./pkg/cal/cal_set.F |
391 |
CAL_SET |
call CAL_TIMEPASSED( modelstartdate, modelenddate, datediff, |
|
./pkg/cal/cal_set.F |
415 |
CAL_SET |
call CAL_ADDTIME( modelstartdate, iterinitime, modelrundate, |
|
./pkg/cal/cal_set.F |
417 |
CAL_SET |
call CAL_COPYDATE( modelrundate, modelstartdate, mythid ) |
|
./pkg/cal/cal_set.F |
421 |
CAL_SET |
call CAL_ADDTIME( modelstartdate, timediff, modelenddate, |
|
./pkg/cal/cal_getdate.F |
67 |
CAL_GETDATE |
call CAL_ADDTIME( modelstartdate, workdate, mydate, mythid ) |
|
./pkg/cal/cal_stepsforday.F |
80 |
CAL_STEPSFORDAY |
firstyear = modelstartdate(1)/10000 |
|
./pkg/cal/cal_stepsforday.F |
81 |
CAL_STEPSFORDAY |
firstmonth = mod(modelstartdate(1)/100,100) |
|
./pkg/cal/cal_stepsforday.F |
82 |
CAL_STEPSFORDAY |
firstday = mod(modelstartdate(1),100) |
|
./pkg/cal/cal_stepsforday.F |
85 |
CAL_STEPSFORDAY |
startsecs = (modelstartdate(2)/10000)*secondsperhour + |
|
./pkg/cal/cal_stepsforday.F |
86 |
CAL_STEPSFORDAY |
& mod(modelstartdate(2)/100,100)*secondsperminute + |
|
./pkg/cal/cal_stepsforday.F |
87 |
CAL_STEPSFORDAY |
& mod(modelstartdate(2),100) |
|
./pkg/cal/cal_monthsforyear.F |
68 |
CAL_MONTHSFORYEAR |
firstyear = modelstartdate(1)/10000 |
|
./pkg/cal/cal_monthsforyear.F |
69 |
CAL_MONTHSFORYEAR |
firstmon = mod(modelstartdate(1)/100,100) |
|
./pkg/cal/cal_intmonths.F |
53 |
NO PROCEDURE |
startmonth = mod(modelstartdate(1)/100,100) |
|
./pkg/cal/cal_intmonths.F |
55 |
NO PROCEDURE |
startyear = modelstartdate(1)/10000 |
|
./pkg/cal/cal_intyears.F |
47 |
NO PROCEDURE |
& modelstartdate(1)/10000 ) + 1 |
|
./pkg/cal/cal.h |
101 |
NO PROCEDURE |
integer modelstartdate(4) |
|
./pkg/cal/cal.h |
81 |
NO PROCEDURE |
& modelstartdate, |
|
./pkg/ctrl/ctrl_init.F |
165 |
CTRL_INIT |
call CAL_TIMEPASSED( xx_hfluxstartdate, modelstartdate, |
|
./pkg/ctrl/ctrl_init.F |
187 |
CTRL_INIT |
call CAL_TIMEPASSED( xx_atempstartdate, modelstartdate, |
|
./pkg/ctrl/ctrl_init.F |
219 |
CTRL_INIT |
call CAL_TIMEPASSED( xx_sfluxstartdate, modelstartdate, |
|
./pkg/ctrl/ctrl_init.F |
241 |
CTRL_INIT |
call CAL_TIMEPASSED( xx_aqhstartdate, modelstartdate, |
|
./pkg/ctrl/ctrl_init.F |
273 |
CTRL_INIT |
call CAL_TIMEPASSED( xx_tauustartdate, modelstartdate, |
|
./pkg/ctrl/ctrl_init.F |
295 |
CTRL_INIT |
call CAL_TIMEPASSED( xx_uwindstartdate, modelstartdate, |
|
./pkg/ctrl/ctrl_init.F |
327 |
CTRL_INIT |
call CAL_TIMEPASSED( xx_tauvstartdate, modelstartdate, |
|
./pkg/ctrl/ctrl_init.F |
349 |
CTRL_INIT |
call CAL_TIMEPASSED( xx_vwindstartdate, modelstartdate, |
|
./pkg/ctrl/ctrl_init.F |
386 |
CTRL_INIT |
call CAL_TIMEPASSED( xx_obcsnstartdate, modelstartdate, |
|
./pkg/ctrl/ctrl_init.F |
412 |
CTRL_INIT |
call CAL_TIMEPASSED( xx_obcssstartdate, modelstartdate, |
|
./pkg/ctrl/ctrl_init.F |
438 |
CTRL_INIT |
call CAL_TIMEPASSED( xx_obcswstartdate, modelstartdate, |
|
./pkg/ctrl/ctrl_init.F |
464 |
CTRL_INIT |
call CAL_TIMEPASSED( xx_obcsestartdate, modelstartdate, |
|
./pkg/exf/exf_clim_readparms.F |
189 |
EXF_CLIM_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_clim_readparms.F |
199 |
EXF_CLIM_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_clim_readparms.F |
209 |
EXF_CLIM_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_clim_readparms.F |
219 |
EXF_CLIM_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
508 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
515 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
523 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
530 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
540 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
547 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
554 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
561 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
569 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
576 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
586 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
596 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
606 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
616 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
623 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
633 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
644 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
653 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
662 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
671 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |