Symbol | Description | Uses |
ndays_left | 9 |
File | Line number | Procedure | Code |
./pkg/cal/cal_addtime.F | 164 | CAL_ADDTIME |
ndays_left=ndays |
./pkg/cal/cal_addtime.F | 168 | CAL_ADDTIME |
if ( mi.eq.2 .and. di.eq.29 .and. ndays_left.gt.1 ) then |
./pkg/cal/cal_addtime.F | 171 | CAL_ADDTIME |
ndays_left = ndays_left - 1 |
./pkg/cal/cal_addtime.F | 180 | CAL_ADDTIME |
do while (ndays_left .ge. days_in_year) |
./pkg/cal/cal_addtime.F | 181 | CAL_ADDTIME |
ndays_left = ndays_left - days_in_year |
./pkg/cal/cal_addtime.F | 191 | CAL_ADDTIME |
do iday = 1,ndays_left |
./pkg/cal/cal_addtime.F | 62 | CAL_ADDTIME |
integer ndays, ndays_left, days_in_year |