| File |
Line number |
Procedure |
Code |
|
./pkg/profiles/profiles_init_fixed.F |
148 |
PROFILES_INIT_FIXED |
yymmddMin=modelstartdate(1) |
|
./pkg/profiles/profiles_init_fixed.F |
150 |
PROFILES_INIT_FIXED |
hhmmssMin=modelstartdate(2) |
|
./pkg/profiles/profiles_init_fixed.F |
387 |
PROFILES_INIT_FIXED |
call CAL_TIMEPASSED( modelstartdate,tmpdate,tmpdiff,mythid ) |
|
./pkg/seaice/seaice_cost_concentration.F |
211 |
SEAICE_COST_CONCENTRATION |
middate(3) = modelstartdate(3) |
|
./pkg/seaice/seaice_cost_concentration.F |
212 |
SEAICE_COST_CONCENTRATION |
middate(4) = modelstartdate(4) |
|
./pkg/seaice/seaice_cost_driver.F |
102 |
SEAICE_COST_DRIVER |
& nrecloc, modelstartdate, localperiod, |
|
./pkg/seaice/seaice_cost_driver.F |
113 |
SEAICE_COST_DRIVER |
& nrecloc, modelstartdate, localperiod, |
|
./pkg/seaice/seaice_cost_driver.F |
91 |
SEAICE_COST_DRIVER |
& nrecloc, modelstartdate, localperiod, |
|
./pkg/seaice/seaice_cost_sss.F |
226 |
SEAICE_COST_SSS |
middate(3) = modelstartdate(3) |
|
./pkg/seaice/seaice_cost_sss.F |
227 |
SEAICE_COST_SSS |
middate(4) = modelstartdate(4) |
|
./pkg/seaice/seaice_cost_sst.F |
226 |
SEAICE_COST_SST |
middate(3) = modelstartdate(3) |
|
./pkg/seaice/seaice_cost_sst.F |
227 |
SEAICE_COST_SST |
middate(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_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_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_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_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/ctrl/ctrl_get_gen_rec.F |
133 |
CTRL_GET_GEN_REC |
call CAL_TIMEPASSED( fldstartdate, modelstartdate, |
|
./pkg/ctrl/ctrl_init_rec.F |
98 |
CTRL_INIT_REC |
call CAL_TIMEPASSED( fldstartdate, modelstartdate, |
|
./pkg/ecco/cost_averagesflags.F |
125 |
COST_AVERAGESFLAGS |
equal = cal_CompDates(modelstartdate,mydate,mythid) |
|
./pkg/ecco/cost_averagesflags.F |
173 |
COST_AVERAGESFLAGS |
if ( mydate(1) .eq. modelstartdate(1) ) then |
|
./pkg/ecco/cost_averagesflags.F |
174 |
COST_AVERAGESFLAGS |
call CAL_COPYDATE( modelstartdate, targetdate, mythid ) |
|
./pkg/ecco/cost_averagesflags.F |
181 |
COST_AVERAGESFLAGS |
call CAL_TIMEPASSED( modelstartdate, targetdate, datediff, |
|
./pkg/ecco/cost_averagesflags.F |
227 |
COST_AVERAGESFLAGS |
if ( (mydate(1)/100)*100 .eq. (modelstartdate(1)/100)*100 ) then |
|
./pkg/ecco/cost_averagesflags.F |
228 |
COST_AVERAGESFLAGS |
call CAL_COPYDATE( modelstartdate, targetdate, mythid ) |
|
./pkg/ecco/cost_averagesflags.F |
235 |
COST_AVERAGESFLAGS |
if ( mydate(1)/10000 .eq. modelstartdate(1)/10000 ) then |
|
./pkg/ecco/cost_averagesflags.F |
237 |
COST_AVERAGESFLAGS |
& - mod( modelstartdate(1)/100, 100 ) + 1 |
|
./pkg/ecco/cost_averagesflags.F |
240 |
COST_AVERAGESFLAGS |
& + nmonthyear - mod(modelstartdate(1)/100,100) + 1 |
|
./pkg/ecco/cost_averagesflags.F |
241 |
COST_AVERAGESFLAGS |
& + ( mydate(1)/10000 - modelstartdate(1)/10000 - 1)* |
|
./pkg/ecco/cost_averagesflags.F |
284 |
COST_AVERAGESFLAGS |
& int(modelstartdate(1)/10000) ) then |
|
./pkg/ecco/cost_averagesflags.F |
285 |
COST_AVERAGESFLAGS |
call CAL_COPYDATE( modelstartdate, targetdate, mythid ) |
|
./pkg/ecco/cost_averagesflags.F |
292 |
COST_AVERAGESFLAGS |
yearrec = mydate(1)/10000 - modelstartdate(1)/10000 + 1 |
|
./pkg/ecco/cost_bp_read.F |
100 |
COST_BP_READ |
& + ( mod(modelstartdate(1)/100,100) |
|
./pkg/ecco/cost_bp_read.F |
104 |
COST_BP_READ |
mody = modelstartdate(1)/10000 |
|
./pkg/ecco/cost_bp_read.F |
105 |
COST_BP_READ |
modm = modelstartdate(1)/100 - mody*100 |
|
./pkg/ecco/cost_bp_read.F |
98 |
COST_BP_READ |
beginmodel = modelstartdate(1)/10000 |
|
./pkg/ecco/cost_gencal.F |
102 |
COST_GENCAL |
call CAL_FULLDATE( modelstartdate(1), 0, middate, mythid) |
|
./pkg/ecco/cost_gencal.F |
113 |
COST_GENCAL |
mody = modelstartdate(1)/10000 |
|
./pkg/ecco/cost_gencal.F |
114 |
COST_GENCAL |
modm = modelstartdate(1)/100 - mody*100 |
|
./pkg/ecco/cost_gencal.F |
96 |
COST_GENCAL |
ymod = modelstartdate(1)/10000 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
163 |
COST_GENCOST_SEAICEV4 |
localstartdate(1)=modelstartdate(1) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
164 |
COST_GENCOST_SEAICEV4 |
localstartdate(2)=modelstartdate(2) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
165 |
COST_GENCOST_SEAICEV4 |
localstartdate(3)=modelstartdate(3) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
166 |
COST_GENCOST_SEAICEV4 |
localstartdate(4)=modelstartdate(4) |
|
./pkg/ecco/cost_gencost_sshv4.F |
244 |
COST_GENCOST_SSHV4 |
if ((modelstartdate(1).GT.1992*10000).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
245 |
COST_GENCOST_SSHV4 |
& (modelstartdate(1).LT.2011*10000).AND. |
|
./pkg/ecco/cost_hyd.F |
316 |
COST_HYD |
& nmonsloc, nmonsloc, modelstartdate, localperiod, |
|
./pkg/ecco/cost_hyd.F |
338 |
COST_HYD |
& nmonsloc, nmonsloc, modelstartdate, localperiod, |
|
./pkg/ecco/ecco_check.F |
749 |
ECCO_CHECK_FILES |
mody = modelstartdate(1)/10000 |
|
./pkg/ecco/ecco_check.F |
750 |
ECCO_CHECK_FILES |
modm = modelstartdate(1)/100 - mody*100 |