| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal_getmonthsrec.F |
117 |
CAL_GETMONTHSREC |
call CAL_ADDTIME( currentdate, modelsteptime, prevdate, mythid ) |
|
./pkg/cal/cal_getmonthsrec.F |
120 |
CAL_GETMONTHSREC |
& (mod(prevdate(1),100)-1)*secondsperday + |
|
./pkg/cal/cal_getmonthsrec.F |
121 |
CAL_GETMONTHSREC |
& prevdate(2)/10000*secondsperhour + |
|
./pkg/cal/cal_getmonthsrec.F |
122 |
CAL_GETMONTHSREC |
& mod(prevdate(2)/100,100)*secondsperminute + |
|
./pkg/cal/cal_getmonthsrec.F |
123 |
CAL_GETMONTHSREC |
& mod(prevdate(2),100) |
|
./pkg/cal/cal_getmonthsrec.F |
59 |
CAL_GETMONTHSREC |
integer prevdate(4) |
|
./pkg/cal/cal_time2dump.F |
49 |
CAL_TIME2DUMP |
IF ( (thisdate(1)-prevdate(1)).GT.50 ) time2write=.TRUE. |
|
./pkg/cal/cal_time2dump.F |
54 |
CAL_TIME2DUMP |
IF ( (thisdate(1)-prevdate(1)).GT.5000 ) time2write=.TRUE. |
|
./pkg/ecco/cost_averagesflags.F |
116 |
COST_AVERAGESFLAGS |
call CAL_ADDTIME( mydate, timediff, prevdate, mythid ) |
|
./pkg/ecco/cost_averagesflags.F |
145 |
COST_AVERAGESFLAGS |
prevdateday = mod(prevdate(1),100) |
|
./pkg/ecco/cost_averagesflags.F |
199 |
COST_AVERAGESFLAGS |
prevdatemonth = mod(prevdate(1)/100,100) |
|
./pkg/ecco/cost_averagesflags.F |
255 |
COST_AVERAGESFLAGS |
prevdateyear = int(prevdate(1)/10000) |
|
./pkg/ecco/cost_averagesflags.F |
83 |
COST_AVERAGESFLAGS |
integer prevdate(4) |