You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
28 lines
611 B
Plaintext
28 lines
611 B
Plaintext
2 years ago
|
SUBROUTINE DFLUX(FLUX,SOL,KSTEP,KINC,TIME,NOEL,NPT,COORDS,JLTYP, TEMP, PRESS, SNAME)
|
||
|
|
INCLUDE 'ABA_PARAM.INC'
|
||
|
|
|
||
|
|
DIMENSION COORDS(3),FLUX(2),TIME(2)
|
||
|
|
CHARACTER*80 SNAME
|
||
|
|
real U,AI,v,yita,R0,qm
|
||
|
|
|
||
|
|
U=16.5
|
||
|
|
AI=60.
|
||
|
|
v=250./60.
|
||
|
|
yita=0.75
|
||
|
|
R0=5.
|
||
|
|
|
||
|
|
qm=yita*U*AI*1000./3.14/R0/R0
|
||
|
|
dx=v*TIME(1)
|
||
|
|
dy=0.
|
||
|
|
|
||
|
|
rr= (COORDS(1)-dx)**2 + (COORDS(2)-dy)**2
|
||
|
|
FLUX(1)=3.*qm*exp(-3.*rr/R0/R0)
|
||
|
|
|
||
|
|
! write(*,*) time,dx
|
||
|
|
! write(*,*) COORDS,rr
|
||
|
|
! write(*,*) FLUX
|
||
|
|
! write(*,*)
|
||
|
|
|
||
|
|
RETURN
|
||
|
|
END
|