Time animation of two separate zones

Moderators: davetaflin, salter, steve, jprenaud, straton, Chris Idso

ing.cerullo
Newbie
Posts: 1
Joined: Mon Oct 29, 2012 5:01 am
Location: Denmark

Time animation of two separate zones

Postby ing.cerullo » Thu Mar 21, 2013 6:17 am

Hi everybody!
This is my first post, I hope you will be able to help me.
I would like to plot a finite element countor plot, consisting of 2 different zones (matrix and inclusion) in function of the time. I enclose the small FORTRAN script I am using to write the input file for tec360.
My problem is that when I animate, each zone is recognized as a different time step.
For example if I have 2 time steps, I got finally 4 animation step: the first one for zone 1 at time=1, the second one for zone 2 at time 1, the third one for zone 1 at time 2.

I would like to plot both of them at the same time step, and being able to deactivate one if I want to.

I tried to use Solutiontime=itime before each zone or before only one of them (as I read it applies to all the zones) but it gives me error.

Could anyone help me to figure it out?
Thanks a lot,
Michele


OPEN(5403, FILE='test.dat')

DO itime=1,2 !time steps

! header
WRITE(5403, '("title = Dang Van damage")')
WRITE(5403,'("variables =X,Y,Dam_DV
&")')

WRITE(5403,350) NNOD,NELM_matr,itime
350 FORMAT('zone',1x 'N=',i6,1x 'E=',i6,1x
& 'DATAPACKING=POINT ZONETYPE=FEQUADRILATERAL T=','"',i3,
& ' steps" ' /2X)

!nodal values
DO J=1,NNOD
WRITE (5403,'(17(1x,F16.10))') XG(J),YG(J),
, TECDANG(J,3)
ENDDO

!connectivity for zone 1 (matrix)
DO I=1,NELM_matr
WRITE (5403,'(4(i6,1x))')
&ICON(1,I),ICON(3,I),ICON(5,I),ICON(7,I)
ENDDO

! Inclusion
WRITE(5403,351)NNOD,NELM-NELM_matr,itime
351 FORMAT('zone',1x 'N=',i6,1x 'E=',i6,1x
& 'DATAPACKING=POINT ZONETYPE=FEQUADRILATERAL T=','"',i3,
& ' steps" ' /2X)
WRITE(5403, '("VARSHARELIST=([1,2,3]=1)")')

! connectivity for the zone 2 (inclusion)
DO I=NELM_matr+1,NELM
WRITE (5403,'(4(i6,1x))')
&ICON(1,I),ICON(3,I),ICON(5,I),ICON(7,I)
ENDDO

ENDDO

CLOSE(5403)

Return to “Animation”

Who is online

Users browsing this forum: No registered users and 1 guest

cron