Dear Prof. Taylor,
As per your suggession, I calculate the critical time step for each element in user element routine and save it to history variable. Then using macro I calculate the minimum 'dt' of all elements and update 'dt'. Below is the code.
dt = hr(nh3)
elm = 1
do ii=1,numel-1
if (dt.le.hr(nh3 +ii)) then
dt = dt
elm = ii + 1
else
dt = hr(nh3 + ii)
endif
end do
write(*,*),'Element with Min. Time Increment:', ELM
And here are my solution commands
BATCh
dt,,1e-7
LOOP,,10
TIME,,1e-3
PART,,1
TRAN CENTRAL
MASS, LUMP
FORM Explicit
PART,,2
TANG,,1
USDT ! Critical time calculation macro
NEXT inter
END
In the first step I use a small 'dt' and from second step I use 'dt' calculated in the macro. I see the code working and 'dt' updating in the second step.
I also use proportional load table to apply displacement. From 2nd step my proportional load is not calculated correctly an Total proportional load become equal to 1. Can you please suggest me where else will I need to update 'dt' to calculate correct proportional load factor?
Thanks,
regards,
Anshul