You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
287 lines
11 KiB
287 lines
11 KiB
C Copyright(C) 1999-2020 National Technology & Engineering Solutions
|
|
C of Sandia, LLC (NTESS). Under the terms of Contract DE-NA0003525 with
|
|
C NTESS, the U.S. Government retains certain rights in this software.
|
|
C
|
|
C See packages/seacas/LICENSE for details
|
|
|
|
SUBROUTINE ESTIME (CRD, WAVE, IX, MAT, LABEL, NDIM, NNODE,
|
|
* NELBLK, SSQ, CCC, CDAMP, NUMNP)
|
|
|
|
C ... ESTIMATE TIMESTEP FOR MESH --- BRICKS ONLY
|
|
|
|
DIMENSION CRD(NUMNP, *), IX(NNODE,*), MAT(6,*),
|
|
* WAVE(*), SSQ(3,NELBLK), CCC(NDIM,NNODE)
|
|
DIMENSION GRADOP(8,3)
|
|
|
|
CHARACTER*(*) LABEL(*)
|
|
CHARACTER*80 STRA
|
|
CHARACTER*16 ENGNOT, ENG1
|
|
|
|
include 'nu_io.blk'
|
|
|
|
IF (NDIM .EQ. 3) THEN
|
|
DO 30 IBLK = 1, NELBLK
|
|
IF (MAT(5,IBLK) .NE. 1) GOTO 30
|
|
IELBEG = MAT(3,IBLK)
|
|
IELEND = MAT(4,IBLK)
|
|
MIEL = IBLK
|
|
SSQ(1,MIEL) = 0.0
|
|
DO 20 IEL = IELBEG, IELEND
|
|
x1 = crd(ix(1,iel),1)
|
|
x2 = crd(ix(2,iel),1)
|
|
x3 = crd(ix(3,iel),1)
|
|
x4 = crd(ix(4,iel),1)
|
|
x5 = crd(ix(5,iel),1)
|
|
x6 = crd(ix(6,iel),1)
|
|
x7 = crd(ix(7,iel),1)
|
|
x8 = crd(ix(8,iel),1)
|
|
|
|
y1 = crd(ix(1,iel),2)
|
|
y2 = crd(ix(2,iel),2)
|
|
y3 = crd(ix(3,iel),2)
|
|
y4 = crd(ix(4,iel),2)
|
|
y5 = crd(ix(5,iel),2)
|
|
y6 = crd(ix(6,iel),2)
|
|
y7 = crd(ix(7,iel),2)
|
|
y8 = crd(ix(8,iel),2)
|
|
|
|
Z1 = crd(ix(1,iel),3)
|
|
Z2 = crd(ix(2,iel),3)
|
|
Z3 = crd(ix(3,iel),3)
|
|
Z4 = crd(ix(4,iel),3)
|
|
Z5 = crd(ix(5,iel),3)
|
|
Z6 = crd(ix(6,iel),3)
|
|
Z7 = crd(ix(7,iel),3)
|
|
Z8 = crd(ix(8,iel),3)
|
|
|
|
Z24 = Z2 - Z4
|
|
Z52 = Z5 - Z2
|
|
Z45 = Z4 - Z5
|
|
GRADOP(1,1) = ( Y2*(Z6-Z3-Z45) + Y3*Z24 + Y4*(Z3-Z8-Z52)
|
|
* + Y5*(Z8-Z6-Z24) + Y6*Z52 + Y8*Z45 ) / 12.
|
|
Z31 = Z3 - Z1
|
|
Z63 = Z6 - Z3
|
|
Z16 = Z1 - Z6
|
|
GRADOP(2,1) = ( Y3*(Z7-Z4-Z16) + Y4*Z31 + Y1*(Z4-Z5-Z63)
|
|
* + Y6*(Z5-Z7-Z31) + Y7*Z63 + Y5*Z16 ) / 12.
|
|
Z42 = Z4 - Z2
|
|
Z74 = Z7 - Z4
|
|
Z27 = Z2 - Z7
|
|
GRADOP(3,1) = ( Y4*(Z8-Z1-Z27) + Y1*Z42 + Y2*(Z1-Z6-Z74)
|
|
* + Y7*(Z6-Z8-Z42) + Y8*Z74 + Y6*Z27 ) / 12.
|
|
Z13 = Z1 - Z3
|
|
Z81 = Z8 - Z1
|
|
Z38 = Z3 - Z8
|
|
GRADOP(4,1) = ( Y1*(Z5-Z2-Z38) + Y2*Z13 + Y3*(Z2-Z7-Z81)
|
|
* + Y8*(Z7-Z5-Z13) + Y5*Z81 + Y7*Z38 ) / 12.
|
|
Z86 = Z8 - Z6
|
|
Z18 = Z1 - Z8
|
|
Z61 = Z6 - Z1
|
|
GRADOP(5,1) = ( Y8*(Z4-Z7-Z61) + Y7*Z86 + Y6*(Z7-Z2-Z18)
|
|
* + Y1*(Z2-Z4-Z86) + Y4*Z18 + Y2*Z61 ) / 12.
|
|
Z57 = Z5 - Z7
|
|
Z25 = Z2 - Z5
|
|
Z72 = Z7 - Z2
|
|
GRADOP(6,1) = ( Y5*(Z1-Z8-Z72) + Y8*Z57 + Y7*(Z8-Z3-Z25)
|
|
* + Y2*(Z3-Z1-Z57) + Y1*Z25 + Y3*Z72 ) / 12.
|
|
Z68 = Z6 - Z8
|
|
Z36 = Z3 - Z6
|
|
Z83 = Z8 - Z3
|
|
GRADOP(7,1) = ( Y6*(Z2-Z5-Z83) + Y5*Z68 + Y8*(Z5-Z4-Z36)
|
|
* + Y3*(Z4-Z2-Z68) + Y2*Z36 + Y4*Z83 ) / 12.
|
|
Z75 = Z7 - Z5
|
|
Z47 = Z4 - Z7
|
|
Z54 = Z5 - Z4
|
|
GRADOP(8,1) = ( Y7*(Z3-Z6-Z54) + Y6*Z75 + Y5*(Z6-Z1-Z47)
|
|
* + Y4*(Z1-Z3-Z75) + Y3*Z47 + Y1*Z54 ) / 12.
|
|
X24 = X2 - X4
|
|
X52 = X5 - X2
|
|
X45 = X4 - X5
|
|
GRADOP(1,2) = ( Z2*(X6-X3-X45) + Z3*X24 + Z4*(X3-X8-X52)
|
|
* + Z5*(X8-X6-X24) + Z6*X52 + Z8*X45 ) / 12.
|
|
X31 = X3 - X1
|
|
X63 = X6 - X3
|
|
X16 = X1 - X6
|
|
GRADOP(2,2) = ( Z3*(X7-X4-X16) + Z4*X31 + Z1*(X4-X5-X63)
|
|
* + Z6*(X5-X7-X31) + Z7*X63 + Z5*X16 ) / 12.
|
|
X42 = X4 - X2
|
|
X74 = X7 - X4
|
|
X27 = X2 - X7
|
|
GRADOP(3,2) = ( Z4*(X8-X1-X27) + Z1*X42 + Z2*(X1-X6-X74)
|
|
* + Z7*(X6-X8-X42) + Z8*X74 + Z6*X27 ) / 12.
|
|
X13 = X1 - X3
|
|
X81 = X8 - X1
|
|
X38 = X3 - X8
|
|
GRADOP(4,2) = ( Z1*(X5-X2-X38) + Z2*X13 + Z3*(X2-X7-X81)
|
|
* + Z8*(X7-X5-X13) + Z5*X81 + Z7*X38 ) / 12.
|
|
X86 = X8 - X6
|
|
X18 = X1 - X8
|
|
X61 = X6 - X1
|
|
GRADOP(5,2) = ( Z8*(X4-X7-X61) + Z7*X86 + Z6*(X7-X2-X18)
|
|
* + Z1*(X2-X4-X86) + Z4*X18 + Z2*X61 ) / 12.
|
|
X57 = X5 - X7
|
|
X25 = X2 - X5
|
|
X72 = X7 - X2
|
|
GRADOP(6,2) = ( Z5*(X1-X8-X72) + Z8*X57 + Z7*(X8-X3-X25)
|
|
* + Z2*(X3-X1-X57) + Z1*X25 + Z3*X72 ) / 12.
|
|
X68 = X6 - X8
|
|
X36 = X3 - X6
|
|
X83 = X8 - X3
|
|
GRADOP(7,2) = ( Z6*(X2-X5-X83) + Z5*X68 + Z8*(X5-X4-X36)
|
|
* + Z3*(X4-X2-X68) + Z2*X36 + Z4*X83 ) / 12.
|
|
X75 = X7 - X5
|
|
X47 = X4 - X7
|
|
X54 = X5 - X4
|
|
GRADOP(8,2) = ( Z7*(X3-X6-X54) + Z6*X75 + Z5*(X6-X1-X47)
|
|
* + Z4*(X1-X3-X75) + Z3*X47 + Z1*X54 ) / 12.
|
|
Y24 = Y2 - Y4
|
|
Y52 = Y5 - Y2
|
|
Y45 = Y4 - Y5
|
|
GRADOP(1,3) = ( X2*(Y6-Y3-Y45) + X3*Y24 + X4*(Y3-Y8-Y52)
|
|
* + X5*(Y8-Y6-Y24) + X6*Y52 + X8*Y45 ) / 12.
|
|
Y31 = Y3 - Y1
|
|
Y63 = Y6 - Y3
|
|
Y16 = Y1 - Y6
|
|
GRADOP(2,3) = ( X3*(Y7-Y4-Y16) + X4*Y31 + X1*(Y4-Y5-Y63)
|
|
* + X6*(Y5-Y7-Y31) + X7*Y63 + X5*Y16 ) / 12.
|
|
Y42 = Y4 - Y2
|
|
Y74 = Y7 - Y4
|
|
Y27 = Y2 - Y7
|
|
GRADOP(3,3) = ( X4*(Y8-Y1-Y27) + X1*Y42 + X2*(Y1-Y6-Y74)
|
|
* + X7*(Y6-Y8-Y42) + X8*Y74 + X6*Y27 ) / 12.
|
|
Y13 = Y1 - Y3
|
|
Y81 = Y8 - Y1
|
|
Y38 = Y3 - Y8
|
|
GRADOP(4,3) = ( X1*(Y5-Y2-Y38) + X2*Y13 + X3*(Y2-Y7-Y81)
|
|
* + X8*(Y7-Y5-Y13) + X5*Y81 + X7*Y38 ) / 12.
|
|
Y86 = Y8 - Y6
|
|
Y18 = Y1 - Y8
|
|
Y61 = Y6 - Y1
|
|
GRADOP(5,3) = ( X8*(Y4-Y7-Y61) + X7*Y86 + X6*(Y7-Y2-Y18)
|
|
* + X1*(Y2-Y4-Y86) + X4*Y18 + X2*Y61 ) / 12.
|
|
Y57 = Y5 - Y7
|
|
Y25 = Y2 - Y5
|
|
Y72 = Y7 - Y2
|
|
GRADOP(6,3) = ( X5*(Y1-Y8-Y72) + X8*Y57 + X7*(Y8-Y3-Y25)
|
|
* + X2*(Y3-Y1-Y57) + X1*Y25 + X3*Y72 ) / 12.
|
|
Y68 = Y6 - Y8
|
|
Y36 = Y3 - Y6
|
|
Y83 = Y8 - Y3
|
|
GRADOP(7,3) = ( X6*(Y2-Y5-Y83) + X5*Y68 + X8*(Y5-Y4-Y36)
|
|
* + X3*(Y4-Y2-Y68) + X2*Y36 + X4*Y83 ) / 12.
|
|
Y75 = Y7 - Y5
|
|
Y47 = Y4 - Y7
|
|
Y54 = Y5 - Y4
|
|
GRADOP(8,3) = ( X7*(Y3-Y6-Y54) + X6*Y75 + X5*(Y6-Y1-Y47)
|
|
* + X4*(Y1-Y3-Y75) + X3*Y47 + X1*Y54 ) / 12.
|
|
|
|
C Calculate element volume and characteristic element aspect ratio
|
|
C (used in time step and hourglass control) -
|
|
|
|
VOLUME = crd(ix(1,iel),1) * GRADOP(1,1)
|
|
* + crd(ix(2,iel),1) * GRADOP(2,1)
|
|
* + crd(ix(3,iel),1) * GRADOP(3,1)
|
|
* + crd(ix(4,iel),1) * GRADOP(4,1)
|
|
* + crd(ix(5,iel),1) * GRADOP(5,1)
|
|
* + crd(ix(6,iel),1) * GRADOP(6,1)
|
|
* + crd(ix(7,iel),1) * GRADOP(7,1)
|
|
* + crd(ix(8,iel),1) * GRADOP(8,1)
|
|
ASPECT = .5*VOLUME**2 /
|
|
$ ( GRADOP(1,1)**2 + GRADOP(2,1)**2
|
|
* + GRADOP(3,1)**2 + GRADOP(4,1)**2
|
|
* + GRADOP(5,1)**2 + GRADOP(6,1)**2
|
|
* + GRADOP(7,1)**2 + GRADOP(8,1)**2
|
|
* + GRADOP(1,2)**2 + GRADOP(2,2)**2
|
|
* + GRADOP(3,2)**2 + GRADOP(4,2)**2
|
|
* + GRADOP(5,2)**2 + GRADOP(6,2)**2
|
|
* + GRADOP(7,2)**2 + GRADOP(8,2)**2
|
|
* + GRADOP(1,3)**2 + GRADOP(2,3)**2
|
|
* + GRADOP(3,3)**2 + GRADOP(4,3)**2
|
|
* + GRADOP(5,3)**2 + GRADOP(6,3)**2
|
|
* + GRADOP(7,3)**2 + GRADOP(8,3)**2 )
|
|
C ... for quads we calculate
|
|
ASPECT = 1.0 / ASPECT
|
|
|
|
IF (SSQ(1,MIEL) .LT. ASPECT) THEN
|
|
SSQ(1,MIEL) = ASPECT
|
|
SSQ(2,MIEL) = IEL
|
|
END IF
|
|
|
|
20 CONTINUE
|
|
30 CONTINUE
|
|
ELSE
|
|
DO 60 IBLK = 1, NELBLK
|
|
IF (MAT(5,IBLK) .NE. 1) GOTO 60
|
|
IELBEG = MAT(3,IBLK)
|
|
IELEND = MAT(4,IBLK)
|
|
MIEL = IBLK
|
|
DO 50 IEL = IELBEG, IELEND
|
|
|
|
DO 40 I=1,4
|
|
CCC(1,I) = CRD(IX(I,IEL),1)
|
|
CCC(2,I) = CRD(IX(I,IEL),2)
|
|
40 CONTINUE
|
|
|
|
C ... CALCULATE SUM OF SQUARES OF INVERSE LENGTHS, ASSUME RECTANGULAR
|
|
C USE SIDES 1-2 1-4
|
|
|
|
S12 = (CCC(1,1)-CCC(1,2))**2 +
|
|
* (CCC(2,1)-CCC(2,2))**2
|
|
S14 = (CCC(1,1)-CCC(1,4))**2 +
|
|
* (CCC(2,1)-CCC(2,4))**2
|
|
|
|
IF (S12 .EQ. 0.0 .OR. S14 .EQ. 0.0)
|
|
* THEN
|
|
PRINT *,'*** WARNING *** Coincident nodes in element',
|
|
* IEL
|
|
ELSE
|
|
SUMSQ = 1./S12 + 1./S14
|
|
IF (SSQ(1,MIEL) .LT. SUMSQ) THEN
|
|
SSQ(1,MIEL) = SUMSQ
|
|
SSQ(2,MIEL) = IEL
|
|
END IF
|
|
END IF
|
|
|
|
50 CONTINUE
|
|
60 CONTINUE
|
|
END IF
|
|
DO 80 IO=IOMIN,IOMAX
|
|
WRITE (IO, 70) CDAMP
|
|
70 FORMAT (/5X,'Time Step Estimates:',/
|
|
* 8X,'(Damping = ',F4.2,')',//
|
|
* 5X,'Mat',T11,'Wave Speed',T23,'Element',T35,'Time Step',
|
|
$ T48,'Steps/ms')
|
|
80 CONTINUE
|
|
TSMIN = 1.0E38
|
|
DO 90 IBLK = 1, NELBLK
|
|
IF (MAT(5,IBLK) .NE. 1) GO TO 90
|
|
SSQ(3,IBLK) = 1.0 / WAVE(IBLK) * 1.0 / SQRT(SSQ(1,IBLK)) *
|
|
* (SQRT(1.0 + CDAMP**2) - CDAMP)
|
|
IF (SSQ(3,IBLK) .LT. TSMIN) THEN
|
|
TSMIN = SSQ(3,IBLK)
|
|
ITSMN = IBLK
|
|
END IF
|
|
90 CONTINUE
|
|
DO 120 ITMP = 1, NELBLK
|
|
IBLK = MAT(6, ITMP)
|
|
ENG1 = ENGNOT(SSQ(3,IBLK),3)
|
|
DO 100 IO=IOMIN, IOMAX
|
|
WRITE (IO, 110) MAT(1,IBLK), WAVE(IBLK),INT(SSQ(2,IBLK)),
|
|
* ENG1, INT(1.0E-3 / SSQ(3,IBLK)),
|
|
* SSQ(3,IBLK)/SSQ(3,ITSMN),
|
|
* LABEL(IBLK)(:LENSTR(LABEL(IBLK)))
|
|
100 CONTINUE
|
|
110 FORMAT (I7,T11,1PE11.4,T23,I7,T30,A16,T48,I8,T60,0PF6.2,T70,A)
|
|
120 CONTINUE
|
|
WRITE (STRA, 130) MAT(1,ITSMN)
|
|
130 FORMAT ('Minimum Time Step in Material ',I10)
|
|
CALL SQZSTR (STRA, LSTR)
|
|
ENG1 = ENGNOT(SSQ(3,ITSMN),3)
|
|
DO 140 IO=IOMIN, IOMAX
|
|
WRITE (IO, 150) STRA(:LSTR), WAVE(ITSMN),INT(SSQ(2,ITSMN)),
|
|
* ENG1, INT(1.0E-3 / SSQ(3,ITSMN)),
|
|
* LABEL(ITSMN)(:LENSTR(LABEL(ITSMN)))
|
|
140 CONTINUE
|
|
150 FORMAT (/5X,A,/,T11,1PE11.4,T23,I7,T30,A16,T48,I8,T60,A)
|
|
RETURN
|
|
END
|
|
|