[TRNSYS-users] Bug in TYPE60

[Fernando Domínguez Muñoz]

Dear all,

modelling a system comprising several water tanks with internal heat
exchangers, I have found the following bug in the source code of TYPE60.
Where says:

(Lines 981-983)

C     IF TANK HAS HEAT EXCHANGERS, DETERMINE AND CHECK GEOMETRY
C      if((mode5.eq.1.or.mode5.eq.2.or.mode5.eq.3).and.
C     &      simtime.lt.(time0+delt/2.)) then

should said

C     IF TANK HAS HEAT EXCHANGERS, DETERMINE AND CHECK GEOMETRY
C      if((mode5.eq.1.or.mode5.eq.2.or.mode5.eq.3) then

,because the array "geom" must be re-calculated at each iteration. 

This problem comes out when using several units of TYPE60 with internal
heat exchanger.

In addition, the "pi" number's value is 

      data pi/3.14159265358979323/, g/9.81/

not

      data pi/3.14109265358979323/, g/9.81/


Best regards.

Fernando Domínguez Muñoz
University of Málaga (Spain)