File |
Line number |
Procedure |
Code |
./pkg/ecco/cost_readargos.F |
78 |
COST_READARGOS |
argosrec = ( beginrun - beginargos - 1)*nmonthyear + |
./pkg/ecco/cost_readargos.F |
79 |
COST_READARGOS |
& (nmonthyear - mod(argosstartdate(1)/100,100) + |
./pkg/ecco/cost_readargot.F |
78 |
COST_READARGOT |
argotrec = ( beginrun - beginargot - 1)*nmonthyear + |
./pkg/ecco/cost_readargot.F |
79 |
COST_READARGOT |
& (nmonthyear - mod(argotstartdate(1)/100,100) + |
./pkg/ecco/cost_readtmifields.F |
94 |
COST_READTMIFIELDS |
tmirec = ( beginrun - begintmi - 1)*nmonthyear + |
./pkg/ecco/cost_readtmifields.F |
95 |
COST_READTMIFIELDS |
& (nmonthyear - mod(tmistartdate(1)/100,100) + |
./pkg/ecco/cost_averagesflags.F |
225 |
COST_AVERAGESFLAGS |
& + nmonthyear - mod(modelstartdate(1)/100,100) + 1 |
./pkg/ecco/cost_averagesflags.F |
227 |
COST_AVERAGESFLAGS |
& nmonthyear |
./pkg/cal/cal_getmonthsrec.F |
134 |
CAL_GETMONTHSREC |
count0 = mod(present+nmonthyear-2,nmonthyear)+1 |
./pkg/cal/cal_getmonthsrec.F |
166 |
CAL_GETMONTHSREC |
prevcount = mod(present+nmonthyear-2,nmonthyear)+1 |
./pkg/cal/cal_getmonthsrec.F |
176 |
CAL_GETMONTHSREC |
count1 = mod(present+1,nmonthyear) |
./pkg/cal/cal_getmonthsrec.F |
177 |
CAL_GETMONTHSREC |
if ( count1 .EQ. 0 ) count1 = nmonthyear |
./pkg/cal/cal_monthsperyear.F |
70 |
CAL_MONTHSPERYEAR |
final = nmonthyear |
./pkg/cal/cal_daysformonth.F |
101 |
CAL_DAYSFORMONTH |
else if ( mod(firstmonth+1,nmonthyear) .eq. lastmonth ) then |
./pkg/cal/cal_daysformonth.F |
142 |
CAL_DAYSFORMONTH |
currentmonth = mod(currentmonth+1,nmonthyear) |
./pkg/cal/cal_daysformonth.F |
149 |
CAL_DAYSFORMONTH |
currentmonth = mod(currentmonth+1,nmonthyear) |
./pkg/cal/cal_daysformonth.F |
163 |
CAL_DAYSFORMONTH |
currentmonth = mod(currentmonth+1,nmonthyear) |
./pkg/cal/cal_daysformonth.F |
171 |
CAL_DAYSFORMONTH |
currentmonth = mod(currentmonth+1,nmonthyear) |
./pkg/cal/cal_set.F |
221 |
CAL_SET |
nmonthyear = 12 |
./pkg/cal/cal_set.F |
239 |
CAL_SET |
do i=1,nmonthyear |
./pkg/cal/cal_set.F |
267 |
CAL_SET |
nmonthyear = 12 |
./pkg/cal/cal_set.F |
277 |
CAL_SET |
do i=1,nmonthyear |
./pkg/cal/cal_set.F |
302 |
CAL_SET |
nmonthyear = 12 |
./pkg/cal/cal_set.F |
312 |
CAL_SET |
do i=1,nmonthyear |
./pkg/cal/cal_set.F |
329 |
CAL_SET |
nmonthyear = 12 |
./pkg/cal/cal_set.F |
339 |
CAL_SET |
do i=1,nmonthyear |
./pkg/cal/cal_monthsforyear.F |
121 |
CAL_MONTHSFORYEAR |
lastmonth = nmonthyear - firstmon + 1 |
./pkg/cal/cal_monthsforyear.F |
125 |
CAL_MONTHSFORYEAR |
firstmonth = (nmonthyear - firstmon + 1) + |
./pkg/cal/cal_monthsforyear.F |
126 |
CAL_MONTHSFORYEAR |
& (iyear - 2)*nmonthyear + 1 |
./pkg/cal/cal_monthsforyear.F |
127 |
CAL_MONTHSFORYEAR |
lastmonth = (nmonthyear - firstmon + 1) + |
./pkg/cal/cal_monthsforyear.F |
128 |
CAL_MONTHSFORYEAR |
& (iyear - 2)*nmonthyear + nmonthyear |
./pkg/cal/cal_monthsforyear.F |
134 |
CAL_MONTHSFORYEAR |
lastmonth = (nmonthyear - firstmon + 1) + |
./pkg/cal/cal_monthsforyear.F |
135 |
CAL_MONTHSFORYEAR |
& (numyears - 2)*nmonthyear + lastmon - 1 |
./pkg/cal/cal_monthsforyear.F |
138 |
CAL_MONTHSFORYEAR |
lastmonth = (nmonthyear - firstmon + 1) + |
./pkg/cal/cal_monthsforyear.F |
139 |
CAL_MONTHSFORYEAR |
& (numyears - 2)*nmonthyear + lastmon |
./pkg/cal/cal_monthsforyear.F |
141 |
CAL_MONTHSFORYEAR |
firstmonth = (nmonthyear - firstmon + 1) + |
./pkg/cal/cal_monthsforyear.F |
142 |
CAL_MONTHSFORYEAR |
& (numyears - 2)*nmonthyear + 1 |
./pkg/cal/cal_monthsforyear.F |
148 |
CAL_MONTHSFORYEAR |
firstmonth = (nmonthyear - firstmon) + |
./pkg/cal/cal_monthsforyear.F |
149 |
CAL_MONTHSFORYEAR |
& (numyears - 2)*nmonthyear + 1 |
./pkg/cal/cal_monthsforyear.F |
150 |
CAL_MONTHSFORYEAR |
lastmonth = (nmonthyear - firstmon) + |
./pkg/cal/cal_monthsforyear.F |
151 |
CAL_MONTHSFORYEAR |
& (numyears - 2)*nmonthyear + nmonthyear |
./pkg/cal/cal_monthsforyear.F |
96 |
CAL_MONTHSFORYEAR |
lastmonth = nmonthyear - firstmon + 1 |
./pkg/cal/cal_addtime.F |
197 |
CAL_ADDTIME |
switch = (mi-1)/nmonthyear |
./pkg/cal/cal_addtime.F |
199 |
CAL_ADDTIME |
mi = mod(mi-1,nmonthyear)+1 |
./pkg/cal/cal_addtime.F |
215 |
CAL_ADDTIME |
mi = mod(mi+10,nmonthyear)+1 |
./pkg/cal/cal_addtime.F |
216 |
CAL_ADDTIME |
switch = mi/nmonthyear |
./pkg/cal/cal_intmonths.F |
63 |
NO PROCEDURE |
cal_IntMonths = (nmonthyear - startmonth + 1) + |
./pkg/cal/cal_intmonths.F |
64 |
NO PROCEDURE |
& nmonthyear*(endyear - startyear - 1) + |
./pkg/cal/cal.h |
70 |
NO PROCEDURE |
& nmonthyear, |
./pkg/cal/cal.h |
89 |
NO PROCEDURE |
integer nmonthyear |