Skip to content

Commit eca79f2

Browse files
committed
Remove AirTerminal:SingleDuct:Uncontrolled - more idd and transition
1 parent 942f6d1 commit eca79f2

File tree

2 files changed

+31
-7
lines changed

2 files changed

+31
-7
lines changed

idd/Energy+.idd.in

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -20540,6 +20540,7 @@ RoomAir:Node:AirflowNetwork:HVACEquipment,
2054020540
\key AirTerminal:DualDuct:ConstantVolume
2054120541
\key AirTerminal:DualDuct:VAV
2054220542
\key AirTerminal:SingleDuct:ConstantVolume:Reheat
20543+
\key AirTerminal:SingleDuct:ConstantVolume:NoReheat
2054320544
\key AirTerminal:SingleDuct:VAV:Reheat
2054420545
\key AirTerminal:SingleDuct:VAV:NoReheat
2054520546
\key AirTerminal:SingleDuct:SeriesPIU:Reheat

src/Transition/CreateNewIDFUsingRulesV9_2_0.f90

Lines changed: 30 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -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

Comments
 (0)