Symbol | Description | Uses |
ndays_left | 9 |
File | Line number | Procedure | Code |
./pkg/cal/cal_addtime.F | 167 | CAL_ADDTIME |
ndays_left=ndays |
./pkg/cal/cal_addtime.F | 171 | CAL_ADDTIME |
if ( mi.eq.2 .and. di.eq.29 .and. ndays_left.gt.1 ) then |
./pkg/cal/cal_addtime.F | 174 | CAL_ADDTIME |
ndays_left = ndays_left - 1 |
./pkg/cal/cal_addtime.F | 183 | CAL_ADDTIME |
do while (ndays_left .ge. days_in_year) |
./pkg/cal/cal_addtime.F | 184 | CAL_ADDTIME |
ndays_left = ndays_left - days_in_year |
./pkg/cal/cal_addtime.F | 194 | CAL_ADDTIME |
do iday = 1,ndays_left |
./pkg/cal/cal_addtime.F | 57 | CAL_ADDTIME |
INTEGER ndays, ndays_left, days_in_year |