C*********************************************************************** ! This component has been assigned Type Number 208. If that number conflicts with ! another user Type number, you will need to change it and recompile the appropriate ! dll. SUBROUTINE TYPE208(TIME,XIN,OUT,T,DTDT,PAR,INFO,ICNTRL,*) !DEC$ATTRIBUTES DLLEXPORT :: TYPE208 C ---------------------------------------------------------------------- C C TYPE 208 : FLOW MERGE MODEL C C*********************************************************************** DOUBLE PRECISION XIN,OUT REAL PAR,K C INTEGER IOSTAT DIMENSION XIN(5),OUT(4),PAR(1) C DIMENSION IOSTAT(5) ! Set the version information for TRNSYS IF (INFO(7).EQ.-2) THEN INFO(12) = 15 RETURN 1 ENDIF W1= XIN(1) W2= XIN(2) P3= XIN(3) T1= XIN(4) T2= XIN(5) K=PAR(1) IF (T1.LT.-30.) T1=-30. ! added 2/24/94 IF (T1.GT.120.) T1=120. IF (T2.LT.-30.) T2=-30. IF (T2.GT.120.) T2=120. W3=W1+W2 P1=P3+0.5*K*(W1*ABS(W1)+W3*ABS(W3)) P2=P3+0.5*K*(W2*ABS(W2)+W3*ABS(W3)) IF (ABS(W3) .GT. 1.E-12) THEN T3=(W1*T1+W2*T2)/W3 ELSE T3=0.5*(T1+T2) ENDIF 1000 OUT(1)= W3 OUT(2)= P1 OUT(3)= P2 OUT(4)= T3 C DO 10 I=1,4 C IOSTAT(I)=1 C 10 CONTINUE RETURN 1 END