File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_clockstuff.F |
1129 |
TIME2FREQ2 |
integer i,nsecf,iday,idaynext,nsec |
./pkg/fizhi/fizhi_clockstuff.F |
1164 |
TIME2FREQ2 |
daysleft = idaynext - iday |
./pkg/fizhi/fizhi_clockstuff.F |
347 |
GET_TIME |
integer nsecf,i,nsegm,nsegd,iday,iday2,nday |
./pkg/fizhi/fizhi_clockstuff.F |
387 |
GET_TIME |
nday = iday2-iday |
./pkg/fizhi/fizhi_clockstuff.F |
630 |
TIC_TIME |
integer i,nsecf,iday,iday0,nsec,nsec0,ntime |
./pkg/fizhi/fizhi_clockstuff.F |
701 |
TIC_TIME |
integer i,nsecf,iday,iday0,nsec,nsec0,ntime |
./pkg/fizhi/fizhi_clockstuff.F |
898 |
ASTRO |
integer year, day, sec, month, iday, idayp1 |
./pkg/fizhi/update_earth_exports.F |
716 |
GETLGR |
INTEGER sec, imon, iday, nchps, nchpdim, nSx, nSy, bi, bj |
./pkg/cal/cal_addtime.F |
194 |
CAL_ADDTIME |
do iday = 1,ndays_left |
./pkg/cal/cal_addtime.F |
215 |
CAL_ADDTIME |
do iday = 1,ndayssub |
./pkg/cal/cal_addtime.F |
61 |
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 |