1 subroutine transit(compo)
5 dimension tparoi(100),tp(100)
6 character*(INSTANCE_LEN) nom_instance
10 c boucle temporelle infinie
14 c lecture de la temperature de paroi a t
17 CALL cplRE(compo,CP_SEQUENTIEL,t, t, ii, 'tparoit', 100,
20 IF( info.NE.CPOK ) GO TO 9000
22 c Ici on realise l'interpolation
28 c ecriture de la temperature de paroi interpolee a t
30 write(6,*)'INTERP:temps=',t
33 CALL cpere(compo,CP_TEMPS, t, ii, 'tpart', nval,
36 IF( info.NE.CPOK ) GO TO 9000
37 c if(t .gt. 100.)GO TO 9000
43 CALL cpfin(compo,CP_ARRET, info)