| File |
Line number |
Procedure |
Code |
|
./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 |
590 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
597 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
604 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
612 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
619 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
629 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
636 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
643 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
650 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
657 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
665 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
672 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
682 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
692 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
702 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
712 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
719 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
729 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
740 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
749 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
758 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/exf/exf_readparms.F |
767 |
EXF_READPARMS |
call CAL_TIMEPASSED(modelstartdate,date_array,difftime,mythid) |
|
./pkg/profiles/profiles_init_fixed.F |
161 |
PROFILES_INIT_FIXED |
call CAL_TIMEPASSED( modelstartdate,tmpdate,tmpdiff,mythid ) |
|
./verification/lab_sea/code_ad_seaice_only/cost_hyd.F |
136 |
COST_HYD |
& nmonsrec, modelstartdate, localperiod, |
|
./verification/lab_sea/code_ad_seaice_only/cost_hyd.F |
73 |
COST_HYD |
& nmonsrec, modelstartdate, localperiod, |
|
./pkg/ecco/cost_theta.F |
160 |
COST_THETA |
levoff = mod(modelstartdate(1)/100,100) |
|
./pkg/ecco/cost_hyd.F |
134 |
COST_HYD |
& nmonsrec, modelstartdate, localperiod, |
|
./pkg/ecco/cost_hyd.F |
71 |
COST_HYD |
& nmonsrec, modelstartdate, localperiod, |
|
./pkg/ecco/cost_averagesflags.F |
124 |
COST_AVERAGESFLAGS |
equal = cal_CompDates(modelstartdate,mydate,mythid) |
|
./pkg/ecco/cost_averagesflags.F |
172 |
COST_AVERAGESFLAGS |
if ( mydate(1) .eq. modelstartdate(1) ) then |
|
./pkg/ecco/cost_averagesflags.F |
173 |
COST_AVERAGESFLAGS |
call CAL_COPYDATE( modelstartdate, targetdate, mythid ) |
|
./pkg/ecco/cost_averagesflags.F |
180 |
COST_AVERAGESFLAGS |
call CAL_TIMEPASSED( modelstartdate, targetdate, datediff, |
|
./pkg/ecco/cost_averagesflags.F |
226 |
COST_AVERAGESFLAGS |
if ( (mydate(1)/100)*100 .eq. (modelstartdate(1)/100)*100 ) then |
|
./pkg/ecco/cost_averagesflags.F |
227 |
COST_AVERAGESFLAGS |
call CAL_COPYDATE( modelstartdate, targetdate, mythid ) |
|
./pkg/ecco/cost_averagesflags.F |
234 |
COST_AVERAGESFLAGS |
if ( mydate(1)/10000 .eq. modelstartdate(1)/10000 ) then |
|
./pkg/ecco/cost_averagesflags.F |
236 |
COST_AVERAGESFLAGS |
& - mod( modelstartdate(1)/100, 100 ) + 1 |
|
./pkg/ecco/cost_averagesflags.F |
239 |
COST_AVERAGESFLAGS |
& + nmonthyear - mod(modelstartdate(1)/100,100) + 1 |
|
./pkg/ecco/cost_averagesflags.F |
240 |
COST_AVERAGESFLAGS |
& + ( mydate(1)/10000 - modelstartdate(1)/10000 - 1)* |
|
./pkg/ecco/cost_averagesflags.F |
283 |
COST_AVERAGESFLAGS |
& (modelstartdate(1)/10000)*100 ) then |
|
./pkg/ecco/cost_averagesflags.F |
284 |
COST_AVERAGESFLAGS |
call CAL_COPYDATE( modelstartdate, targetdate, mythid ) |
|
./pkg/ecco/cost_averagesflags.F |
291 |
COST_AVERAGESFLAGS |
yearrec = mydate(1)/10000 - modelstartdate(1)/10000 + 1 |
|
./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_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_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_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_readgfo.F |
102 |
COST_READGFO |
middate(3) = modelstartdate(3) |
|
./pkg/ecco/cost_readgfo.F |
103 |
COST_READGFO |
middate(4) = modelstartdate(4) |
|
./pkg/ecco/cost_readgfo.F |
97 |
COST_READGFO |
middate(1) = modelstartdate(1) |
|
./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_generic.F |
173 |
COST_GENERIC |
middate(1) = modelstartdate(1) |
|
./pkg/ecco/cost_generic.F |
178 |
COST_GENERIC |
middate(3) = modelstartdate(3) |
|
./pkg/ecco/cost_generic.F |
179 |
COST_GENERIC |
middate(4) = modelstartdate(4) |
|
./pkg/ecco/cost_generic.F |
186 |
COST_GENERIC |
beginmodel = modelstartdate(1)/10000 |
|
./pkg/ecco/cost_generic.F |
189 |
COST_GENERIC |
& + ( mod(modelstartdate(1)/100,100) |
|
./pkg/ecco/cost_generic.F |
192 |
COST_GENERIC |
mody = modelstartdate(1)/10000 |
|
./pkg/ecco/cost_generic.F |
193 |
COST_GENERIC |
modm = modelstartdate(1)/100 - mody*100 |
|
./pkg/ecco/cost_ctdtclim.F |
160 |
COST_CTDTCLIM |
levoff = mod(modelstartdate(1)/100,100) |
|
./pkg/ecco/cost_readtopex.F |
102 |
COST_READTOPEX |
middate(3) = modelstartdate(3) |
|
./pkg/ecco/cost_readtopex.F |
103 |
COST_READTOPEX |
middate(4) = modelstartdate(4) |
|
./pkg/ecco/cost_readtopex.F |
97 |
COST_READTOPEX |
middate(1) = modelstartdate(1) |
|
./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_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_ctdsclim.F |
161 |
COST_CTDSCLIM |
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_readers.F |
102 |
COST_READERS |
middate(3) = modelstartdate(3) |
|
./pkg/ecco/cost_readers.F |
103 |
COST_READERS |
middate(4) = modelstartdate(4) |
|
./pkg/ecco/cost_readers.F |
97 |
COST_READERS |
middate(1) = modelstartdate(1) |
|
./pkg/ecco/cost_salt.F |
161 |
COST_SALT |
levoff = mod(modelstartdate(1)/100,100) |
|
./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/ctrl/ctrl_init.F |
187 |
CTRL_INIT |
call CAL_TIMEPASSED( xx_hfluxstartdate, modelstartdate, |
|
./pkg/ctrl/ctrl_init.F |
214 |
CTRL_INIT |
call CAL_TIMEPASSED( xx_atempstartdate, modelstartdate, |
|
./pkg/ctrl/ctrl_init.F |
251 |
CTRL_INIT |
call CAL_TIMEPASSED( xx_sfluxstartdate, modelstartdate, |
|
./pkg/ctrl/ctrl_init.F |
278 |
CTRL_INIT |
call CAL_TIMEPASSED( xx_aqhstartdate, modelstartdate, |
|
./pkg/ctrl/ctrl_init.F |
315 |
CTRL_INIT |
call CAL_TIMEPASSED( xx_tauustartdate, modelstartdate, |
|
./pkg/ctrl/ctrl_init.F |
342 |
CTRL_INIT |
call CAL_TIMEPASSED( xx_uwindstartdate, modelstartdate, |
|
./pkg/ctrl/ctrl_init.F |
379 |
CTRL_INIT |
call CAL_TIMEPASSED( xx_tauvstartdate, modelstartdate, |
|
./pkg/ctrl/ctrl_init.F |
406 |
CTRL_INIT |
call CAL_TIMEPASSED( xx_vwindstartdate, modelstartdate, |
|
./pkg/ctrl/ctrl_init.F |
448 |
CTRL_INIT |
call CAL_TIMEPASSED( xx_obcsnstartdate, modelstartdate, |
|
./pkg/ctrl/ctrl_init.F |
474 |
CTRL_INIT |
call CAL_TIMEPASSED( xx_obcssstartdate, modelstartdate, |
|
./pkg/ctrl/ctrl_init.F |
500 |
CTRL_INIT |
call CAL_TIMEPASSED( xx_obcswstartdate, modelstartdate, |
|
./pkg/ctrl/ctrl_init.F |
526 |
CTRL_INIT |
call CAL_TIMEPASSED( xx_obcsestartdate, modelstartdate, |
|
./pkg/ctrl/ctrl_init.F |
575 |
CTRL_INIT |
call CAL_TIMEPASSED( xx_sststartdate, modelstartdate, |
|
./pkg/ctrl/ctrl_init.F |
611 |
CTRL_INIT |
call CAL_TIMEPASSED( xx_sssstartdate, modelstartdate, |
|
./pkg/ctrl/ctrl_init.F |
736 |
CTRL_INIT |
call CAL_TIMEPASSED( xx_precipstartdate, modelstartdate, |
|
./pkg/ctrl/ctrl_init.F |
767 |
CTRL_INIT |
call CAL_TIMEPASSED( xx_swfluxstartdate, modelstartdate, |
|
./pkg/ctrl/ctrl_init.F |
798 |
CTRL_INIT |
call CAL_TIMEPASSED( xx_swdownstartdate, modelstartdate, |
|
./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_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_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_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_intyears.F |
47 |
NO PROCEDURE |
& modelstartdate(1)/10000 ) + 1 |
|
./pkg/cal/cal.h |
103 |
NO PROCEDURE |
integer modelstartdate(4) |
|
./pkg/cal/cal.h |
81 |
NO PROCEDURE |
& modelstartdate, |
|
./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_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_getdate.F |
67 |
CAL_GETDATE |
call CAL_ADDTIME( modelstartdate, workdate, mydate, mythid ) |
|
./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/seaice/seaice_cost_driver.F |
74 |
SEAICE_COST_DRIVER |
& nrecloc, modelstartdate, localperiod, |
|
./pkg/seaice/seaice_cost_init_fixed.F |
67 |
SEAICE_COST_INIT_FIXED |
call CAL_TIMEPASSED( modelstartdate, tempDate1 , |
|
./pkg/seaice/seaice_cost_init_fixed.F |
74 |
SEAICE_COST_INIT_FIXED |
call CAL_TIMEPASSED( modelstartdate, tempDate1 , |