File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_clockstuff.F |
1114 |
TIME2FREQ2 |
integer i,nsecf,iday,idaynext,nsec |
./pkg/fizhi/fizhi_clockstuff.F |
1149 |
TIME2FREQ2 |
daysleft = idaynext - iday |
./pkg/fizhi/fizhi_clockstuff.F |
333 |
GET_TIME |
integer nsecf,i,nsegm,nsegd,iday,iday2,nday |
./pkg/fizhi/fizhi_clockstuff.F |
373 |
GET_TIME |
nday = iday2-iday |
./pkg/fizhi/fizhi_clockstuff.F |
616 |
TIC_TIME |
integer i,nsecf,iday,iday0,nsec,nsec0,ntime |
./pkg/fizhi/fizhi_clockstuff.F |
687 |
TIC_TIME |
integer i,nsecf,iday,iday0,nsec,nsec0,ntime |
./pkg/fizhi/fizhi_clockstuff.F |
884 |
ASTRO |
integer year, day, sec, month, iday, idayp1 |
./pkg/fizhi/update_earth_exports.F |
707 |
GETLGR |
integer sec, imon, iday, nchps, nchpdim, nSx, nSy, bi, bj |
./pkg/cal/cal_addtime.F |
191 |
CAL_ADDTIME |
do iday = 1,ndays_left |
./pkg/cal/cal_addtime.F |
212 |
CAL_ADDTIME |
do iday = 1,ndayssub |
./pkg/cal/cal_addtime.F |
66 |
CAL_ADDTIME |
integer iday |
./pkg/cal/cal_stepsforday.F |
129 |
CAL_STEPSFORDAY |
if ( iday .eq. 1 ) then |
./pkg/cal/cal_stepsforday.F |
132 |
CAL_STEPSFORDAY |
else if ( ( iday .gt. 1 ) .and. |
./pkg/cal/cal_stepsforday.F |
133 |
CAL_STEPSFORDAY |
& ( iday .lt. numdays) ) then |
./pkg/cal/cal_stepsforday.F |
144 |
CAL_STEPSFORDAY |
frac3 = frac1 + frac2*(iday - 1) |
./pkg/cal/cal_stepsforday.F |
145 |
CAL_STEPSFORDAY |
numsteps = numsteps + (iday - 1)*fullsteps + |
./pkg/cal/cal_stepsforday.F |
150 |
CAL_STEPSFORDAY |
else if ( iday .eq. numdays ) then |
./pkg/cal/cal_stepsforday.F |
161 |
CAL_STEPSFORDAY |
frac3 = frac1 + frac2*(iday - 2) |
./pkg/cal/cal_stepsforday.F |
162 |
CAL_STEPSFORDAY |
numsteps = numsteps + (iday - 2)*fullsteps |
./pkg/cal/cal_stepsforday.F |
41 |
CAL_STEPSFORDAY |
integer iday |
./pkg/cal/cal_stepsforday.F |
7 |
CAL_STEPSFORDAY |
I iday, |
./pkg/cal/cal_stepsforday.F |
93 |
CAL_STEPSFORDAY |
if ( iday .eq. firstday ) then |
./pkg/chronos/chronos.F |
304 |
GET_TIME |
integer nsecf,i,nsegm,nsegd,iday,iday2,nday |
./pkg/chronos/chronos.F |
341 |
GET_TIME |
nday = iday2-iday |
./pkg/chronos/chronos.F |
580 |
TIC_TIME |
integer i,nsecf,iday,iday0,nsec,nsec0,ntime |
./pkg/chronos/chronos.F |
735 |
ASTRO |
integer year, day, sec, month, iday, idayp1 |