| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal.h |
70 |
NO PROCEDURE |
& nmonthyear, |
|
./pkg/cal/cal.h |
91 |
NO PROCEDURE |
integer nmonthyear |
|
./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_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_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_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_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_monthsperyear.F |
70 |
CAL_MONTHSPERYEAR |
final = nmonthyear |
|
./pkg/cal/cal_set.F |
220 |
CAL_SET |
nmonthyear = 12 |
|
./pkg/cal/cal_set.F |
238 |
CAL_SET |
do i=1,nmonthyear |
|
./pkg/cal/cal_set.F |
266 |
CAL_SET |
nmonthyear = 12 |
|
./pkg/cal/cal_set.F |
276 |
CAL_SET |
do i=1,nmonthyear |
|
./pkg/cal/cal_set.F |
301 |
CAL_SET |
nmonthyear = 12 |
|
./pkg/cal/cal_set.F |
311 |
CAL_SET |
do i=1,nmonthyear |
|
./pkg/cal/cal_set.F |
328 |
CAL_SET |
nmonthyear = 12 |
|
./pkg/cal/cal_set.F |
338 |
CAL_SET |
do i=1,nmonthyear |
|
./pkg/ecco/cost_averagesflags.F |
240 |
COST_AVERAGESFLAGS |
& + nmonthyear - mod(modelstartdate(1)/100,100) + 1 |
|
./pkg/ecco/cost_averagesflags.F |
242 |
COST_AVERAGESFLAGS |
& nmonthyear |
|
./pkg/ecco/cost_generic.F |
220 |
COST_GENERIC |
& ( beginmodel - beginlocal )*nmonthyear |
|
./pkg/ecco/cost_readargos.F |
79 |
COST_READARGOS |
argosrec = ( beginrun - beginargos - 1)*nmonthyear + |
|
./pkg/ecco/cost_readargos.F |
80 |
COST_READARGOS |
& (nmonthyear - mod(argosstartdate(1)/100,100) + |
|
./pkg/ecco/cost_readargot.F |
79 |
COST_READARGOT |
argotrec = ( beginrun - beginargot - 1)*nmonthyear + |
|
./pkg/ecco/cost_readargot.F |
80 |
COST_READARGOT |
& (nmonthyear - mod(argotstartdate(1)/100,100) + |