| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_getffieldrec.F |
172 |
EXF_GETFFIELDREC |
if ( cal_IsLeap(year0,myThid) .eq. 2) |
|
./pkg/exf/exf_getffieldrec.F |
67 |
EXF_GETFFIELDREC |
INTEGER cal_IsLeap |
|
./pkg/exf/exf_zenithangle.F |
44 |
EXF_ZENITHANGLE |
INTEGER cal_IsLeap |
|
./pkg/exf/exf_zenithangle.F |
78 |
EXF_ZENITHANGLE |
IF ( cal_IsLeap(year0,myThid) .EQ. 2) |
|
./pkg/cal/cal_addtime.F |
180 |
CAL_ADDTIME |
if ((mi.gt.2.and.cal_IsLeap(yi+1,myThid).eq.2).or. |
|
./pkg/cal/cal_addtime.F |
181 |
CAL_ADDTIME |
& (mi.le.2.and.cal_IsLeap(yi,myThid).eq.2) ) |
|
./pkg/cal/cal_addtime.F |
187 |
CAL_ADDTIME |
if ((mi.gt.2.and.cal_IsLeap(yi+1,myThid).eq.2).or. |
|
./pkg/cal/cal_addtime.F |
188 |
CAL_ADDTIME |
& (mi.le.2.and.cal_IsLeap(yi,myThid).eq.2) ) |
|
./pkg/cal/cal_addtime.F |
191 |
CAL_ADDTIME |
li = cal_IsLeap( yi, myThid ) |
|
./pkg/cal/cal_addtime.F |
203 |
CAL_ADDTIME |
if (switch .eq. 1) li = cal_IsLeap( yi, myThid ) |
|
./pkg/cal/cal_addtime.F |
221 |
CAL_ADDTIME |
if (switch .eq. 1) li = cal_IsLeap( yi, myThid ) |
|
./pkg/cal/cal_addtime.F |
48 |
CAL_ADDTIME |
INTEGER cal_IsLeap |
|
./pkg/cal/cal_daysformonth.F |
149 |
CAL_DAYSFORMONTH |
lycurrent = cal_IsLeap( currentyear, mythid ) |
|
./pkg/cal/cal_daysformonth.F |
159 |
CAL_DAYSFORMONTH |
lycurrent = cal_IsLeap( currentyear, mythid ) |
|
./pkg/cal/cal_daysformonth.F |
176 |
CAL_DAYSFORMONTH |
lycurrent = cal_IsLeap( currentyear, mythid ) |
|
./pkg/cal/cal_daysformonth.F |
187 |
CAL_DAYSFORMONTH |
lycurrent = cal_IsLeap( currentyear, mythid ) |
|
./pkg/cal/cal_daysformonth.F |
70 |
CAL_DAYSFORMONTH |
integer cal_IsLeap |
|
./pkg/cal/cal_daysformonth.F |
75 |
CAL_DAYSFORMONTH |
lyfirst = cal_IsLeap( firstyear, mythid ) |
|
./pkg/cal/cal_daysformonth.F |
76 |
CAL_DAYSFORMONTH |
lylast = cal_IsLeap( lastyear, mythid ) |
|
./pkg/cal/cal_fulldate.F |
45 |
CAL_FULLDATE |
INTEGER cal_IsLeap |
|
./pkg/cal/cal_fulldate.F |
83 |
CAL_FULLDATE |
date(3) = cal_IsLeap( theyear, myThid ) |
|
./pkg/cal/cal_isleap.F |
55 |
NO PROCEDURE |
cal_IsLeap = 1 |
|
./pkg/cal/cal_isleap.F |
57 |
NO PROCEDURE |
cal_IsLeap = 2 |
|
./pkg/cal/cal_isleap.F |
60 |
NO PROCEDURE |
cal_IsLeap = 1 |
|
./pkg/cal/cal_isleap.F |
65 |
NO PROCEDURE |
cal_IsLeap = 1 |
|
./pkg/cal/cal_isleap.F |
67 |
NO PROCEDURE |
cal_IsLeap = 2 |
|
./pkg/cal/cal_isleap.F |
70 |
NO PROCEDURE |
cal_IsLeap = 1 |
|
./pkg/cal/cal_stepsforday.F |
71 |
CAL_STEPSFORDAY |
integer cal_IsLeap |
|
./pkg/cal/cal_stepsforday.F |
76 |
CAL_STEPSFORDAY |
lyfirst = cal_IsLeap( firstyear, mythid ) |
|
./pkg/cal/cal_timepassed.F |
155 |
CAL_TIMEPASSED |
ndays = (ndaysnoleap - 1) + cal_IsLeap( yi, myThid ) - |
|
./pkg/cal/cal_timepassed.F |
159 |
CAL_TIMEPASSED |
& cal_IsLeap( iyr, myThid ) |
|
./pkg/cal/cal_timepassed.F |
44 |
CAL_TIMEPASSED |
INTEGER cal_IsLeap |
|
./pkg/ecco/cost_sla_read_yd.F |
100 |
COST_SLA_READ_YD |
& (cal_IsLeap(year,mythid).eq.2).AND.(day.LE.366) |
|
./pkg/ecco/cost_sla_read_yd.F |
82 |
COST_SLA_READ_YD |
integer cal_IsLeap |