| File |
Line number |
Procedure |
Code |
|
./pkg/profiles/profiles_init_fixed.F |
149 |
PROFILES_INIT_FIXED |
yymmddMax=modelenddate(1) |
|
./pkg/profiles/profiles_init_fixed.F |
151 |
PROFILES_INIT_FIXED |
hhmmssMax=modelenddate(2) |
|
./pkg/cal/cal_daysformonth.F |
104 |
CAL_DAYSFORMONTH |
if ( ( modelenddate(2) .eq. 0 ) .and. |
|
./pkg/cal/cal_daysformonth.F |
105 |
CAL_DAYSFORMONTH |
& ( mod(modelenddate(1),100) .eq. 1 ) ) then |
|
./pkg/cal/cal_daysformonth.F |
188 |
CAL_DAYSFORMONTH |
if ( ( modelenddate(2) .eq. 0 ) .and. |
|
./pkg/cal/cal_daysformonth.F |
189 |
CAL_DAYSFORMONTH |
& ( mod(modelenddate(1),100) .eq. 1 ) ) then |
|
./pkg/cal/cal_daysformonth.F |
83 |
CAL_DAYSFORMONTH |
lastyear = modelenddate(1)/10000 |
|
./pkg/cal/cal_daysformonth.F |
84 |
CAL_DAYSFORMONTH |
lastmonth = mod(modelenddate(1)/100,100) |
|
./pkg/cal/cal_daysformonth.F |
85 |
CAL_DAYSFORMONTH |
lastd = mod(modelenddate(1),100) |
|
./pkg/cal/cal_daysformonth.F |
86 |
CAL_DAYSFORMONTH |
lastsecs = modelenddate(2)/10000*secondsperhour + |
|
./pkg/cal/cal_daysformonth.F |
87 |
CAL_DAYSFORMONTH |
& mod(modelenddate(2)/100,100)*secondsperminute + |
|
./pkg/cal/cal_daysformonth.F |
88 |
CAL_DAYSFORMONTH |
& mod(modelenddate(2),100) |
|
./pkg/cal/cal_dayspermonth.F |
70 |
CAL_DAYSPERMONTH |
finalyear = modelenddate(1)/10000 |
|
./pkg/cal/cal_dayspermonth.F |
71 |
CAL_DAYSPERMONTH |
finalmonth = mod(modelenddate(1)/100,100) |
|
./pkg/cal/cal_dayspermonth.F |
72 |
CAL_DAYSPERMONTH |
final = modelenddate(1)/100 |
|
./pkg/cal/cal_dayspermonth.F |
78 |
CAL_DAYSPERMONTH |
ndays = mod(modelenddate(1),100) - myday + 1 |
|
./pkg/cal/cal_intdays.F |
56 |
NO PROCEDURE |
call CAL_SUBDATES( modelenddate, tempdate, timediff, mythid ) |
|
./pkg/cal/cal_intmonths.F |
54 |
NO PROCEDURE |
endmonth = mod( modelenddate(1)/100,100) |
|
./pkg/cal/cal_intmonths.F |
56 |
NO PROCEDURE |
endyear = modelenddate(1)/10000 |
|
./pkg/cal/cal_intmonths.F |
70 |
NO PROCEDURE |
if ( ( modelenddate(2) .eq. 0) .and. |
|
./pkg/cal/cal_intmonths.F |
71 |
NO PROCEDURE |
& ( mod(modelenddate(1),100) .eq. 1) ) then |
|
./pkg/cal/cal_intyears.F |
46 |
NO PROCEDURE |
cal_IntYears = ( modelenddate(1) /10000 - |
|
./pkg/cal/cal_intyears.F |
49 |
NO PROCEDURE |
if ( ( modelenddate(2) .eq. 0) .and. |
|
./pkg/cal/cal_intyears.F |
50 |
NO PROCEDURE |
& ( mod(modelenddate(1),100) .eq. 1 ) .and. |
|
./pkg/cal/cal_intyears.F |
51 |
NO PROCEDURE |
& mod(modelenddate(1)/100,100) .eq. 1 ) then |
|
./pkg/cal/cal_monthsforyear.F |
145 |
CAL_MONTHSFORYEAR |
if ( ( modelenddate(2) .eq. 0) .and. |
|
./pkg/cal/cal_monthsforyear.F |
146 |
CAL_MONTHSFORYEAR |
& ( mod(modelenddate(1),100) .eq. 1 ) .and. |
|
./pkg/cal/cal_monthsforyear.F |
147 |
CAL_MONTHSFORYEAR |
& mod(modelenddate(1)/100,100) .eq. 1 ) then |
|
./pkg/cal/cal_monthsforyear.F |
70 |
CAL_MONTHSFORYEAR |
lastyear = modelenddate(1)/10000 |
|
./pkg/cal/cal_monthsforyear.F |
71 |
CAL_MONTHSFORYEAR |
lastmon = mod(modelenddate(1)/100,100) |
|
./pkg/cal/cal_monthsforyear.F |
72 |
CAL_MONTHSFORYEAR |
lastday = mod(modelenddate(1),100) |
|
./pkg/cal/cal_monthsforyear.F |
73 |
CAL_MONTHSFORYEAR |
lastsecs = modelenddate(2)/10000*secondsperhour + |
|
./pkg/cal/cal_monthsforyear.F |
74 |
CAL_MONTHSFORYEAR |
& mod(modelenddate(2)/100,100)*secondsperminute + |
|
./pkg/cal/cal_monthsforyear.F |
75 |
CAL_MONTHSFORYEAR |
& mod(modelenddate(2),100) |
|
./pkg/cal/cal_monthsforyear.F |
92 |
CAL_MONTHSFORYEAR |
if ( ( modelenddate(2) .eq. 0) .and. |
|
./pkg/cal/cal_monthsforyear.F |
93 |
CAL_MONTHSFORYEAR |
& ( mod(modelenddate(1),100) .eq. 1 ) .and. |
|
./pkg/cal/cal_monthsforyear.F |
94 |
CAL_MONTHSFORYEAR |
& mod(modelenddate(1)/100,100) .eq. 1 ) then |
|
./pkg/cal/cal_monthsperyear.F |
62 |
CAL_MONTHSPERYEAR |
final = modelenddate(1)/10000 |
|
./pkg/cal/cal_monthsperyear.F |
66 |
CAL_MONTHSPERYEAR |
final = mod(modelenddate(1)/100,100) |
|
./pkg/cal/cal_stepsforday.F |
101 |
CAL_STEPSFORDAY |
if ( modelenddate(2) .eq. 0 ) then |
|
./pkg/cal/cal_stepsforday.F |
164 |
CAL_STEPSFORDAY |
if ( modelenddate(2) .eq. 0 ) then |
|
./pkg/cal/cal_stepsforday.F |
83 |
CAL_STEPSFORDAY |
lastday = mod(modelenddate(1),100) |
|
./pkg/cal/cal_stepsforday.F |
88 |
CAL_STEPSFORDAY |
endsecs = (modelenddate(2)/10000)*secondsperhour + |
|
./pkg/cal/cal_stepsforday.F |
89 |
CAL_STEPSFORDAY |
& mod(modelenddate(2)/100,100)*secondsperminute + |
|
./pkg/cal/cal_stepsforday.F |
90 |
CAL_STEPSFORDAY |
& mod(modelenddate(2),100) |
|
./pkg/cal/cal_stepsperday.F |
68 |
CAL_STEPSPERDAY |
final = modelenddate(1) |
|
./pkg/cal/cal_stepsperday.F |
77 |
CAL_STEPSPERDAY |
finalsecs = (modelenddate(2)/10000)*secondsperhour + |
|
./pkg/cal/cal_stepsperday.F |
78 |
CAL_STEPSPERDAY |
& mod(modelenddate(2)/100,100)*secondsperminute + |
|
./pkg/cal/cal_stepsperday.F |
79 |
CAL_STEPSPERDAY |
& mod(modelenddate(2),100) |
|
./pkg/ecco/cost_averagesflags.F |
136 |
COST_AVERAGESFLAGS |
equal = cal_CompDates(modelenddate,mydate,mythid) |