@@ -148,6 +148,7 @@ SUBROUTINE CreateNewIDFUsingRules(EndOfFile,DiffOnly,InLfn,AskForInput,InputFile
148148 INTEGER TotATSDUObjs
149149 INTEGER atCount
150150 INTEGER nodeCount
151+ LOGICAL :: nodeFound = .false.
151152
152153 If (FirstTime) THEN ! do things that might be applicable only to this new version
153154 FirstTime= .false.
@@ -473,31 +474,53 @@ SUBROUTINE CreateNewIDFUsingRules(EndOfFile,DiffOnly,InLfn,AskForInput,InputFile
473474 OutArgs(1 :2 ) = InArgs(1 :2 )
474475 ! Loop through outlet node names looking for a match to an AirTerminal:SingleDuc:Ucontrolled node name
475476 DO nodeCount= 3 , CurArgs
477+ nodeFound = .false.
476478 DO atCount= 1 , TotATSDUObjs
477479 IF (SameString(TRIM (InArgs(nodeCount)), TRIM (ATSDUNodeNames(atCount)))) THEN
478- OutArgs(nodeCount) = TRIM (InArgs(nodeCount)) // ' ATInlet '
480+ nodeFound = .true.
479481 EXIT
480- ELSE
481- OutArgs(nodeCount) = InArgs(nodeCount)
482482 END IF
483483 ENDDO
484+ IF (nodeFound) THEN
485+ OutArgs(nodeCount) = TRIM (InArgs(nodeCount)) // ' ATInlet'
486+ ELSE
487+ OutArgs(nodeCount) = InArgs(nodeCount)
488+ END IF
484489 ENDDO
485490 NoDiff = .false.
486491
487- ! This is part of the transition for AirTerminal:SingleDuc :Ucontrolled
492+ ! This is part of the transition for AirTerminal:SingleDuct :Ucontrolled
488493 CASE (' AIRLOOPHVAC:SUPPLYPLENUM' )
489494 CALL GetNewObjectDefInIDD(ObjectName,NwNumArgs,NwAorN,NwReqFld,NwObjMinFlds,NwFldNames,NwFldDefaults,NwFldUnits)
490495 OutArgs(1 :4 ) = InArgs(1 :4 )
491496 ! Loop through outlet node names looking for a match to an AirTerminal:SingleDuc:Ucontrolled node name
492497 DO nodeCount= 5 , CurArgs
498+ nodeFound = .false.
493499 DO atCount= 1 , TotATSDUObjs
494500 IF (SameString(TRIM (InArgs(nodeCount)), TRIM (ATSDUNodeNames(atCount)))) THEN
495- OutArgs(nodeCount) = TRIM (InArgs(nodeCount)) // ' ATInlet '
501+ nodeFound = .true.
496502 EXIT
497- ELSE
498- OutArgs(nodeCount) = InArgs(nodeCount)
499503 END IF
500504 ENDDO
505+ IF (nodeFound) THEN
506+ OutArgs(nodeCount) = TRIM (InArgs(nodeCount)) // ' ATInlet'
507+ ELSE
508+ OutArgs(nodeCount) = InArgs(nodeCount)
509+ END IF
510+ ENDDO
511+ NoDiff = .false.
512+
513+ ! This is part of the transition for AirTerminal:SingleDuct:Ucontrolled
514+ CASE (' ROOMAIR:NODE:AIRFLOWNETWORK:HVACEQUIPMENT' )
515+ CALL GetNewObjectDefInIDD(ObjectName,NwNumArgs,NwAorN,NwReqFld,NwObjMinFlds,NwFldNames,NwFldDefaults,NwFldUnits)
516+ OutArgs(1 ) = InArgs(1 )
517+ ! Loop through fields looking for AirTerminal:SingleDuct:Ucontrolled node name
518+ DO nodeCount= 2 , CurArgs
519+ IF (SameString(TRIM (InArgs(nodeCount)), TRIM (ATSDUNodeNames(atCount)))) THEN
520+ OutArgs(nodeCount) = TRIM (InArgs(nodeCount)) // ' ATInlet'
521+ ELSE
522+ OutArgs(nodeCount) = InArgs(nodeCount)
523+ END IF
501524 ENDDO
502525 NoDiff = .false.
503526
0 commit comments