Searched refs:CompressibilityModel (Results 1 – 5 of 5) sorted by relevance
141 INTEGER :: CompressibilityModel local427 CompressibilityModel = Incompressible430 CompressibilityModel = UserDefined1433 CompressibilityModel = UserDefined2436 CompressibilityModel = PerfectGas1439 CompressibilityModel = PerfectGas2442 CompressibilityModel = PerfectGas3445 CompressibilityModel = Incompressible526 IF ( CompressibilityModel >= PerfectGas1 .AND. &527 CompressibilityModel <= PerfectGas3 ) THEN[all …]
587 CompressibilityModel = Incompressible590 CompressibilityModel = PerfectGas1593 CompressibilityModel = Thermal596 CompressibilityModel = UserDefined1599 CompressibilityModel = UserDefined2606 CompressibilityModel = Incompressible696 SELECT CASE( CompressibilityModel )917 SELECT CASE( CompressibilityModel )942 SELECT CASE( CompressibilityModel )962 SELECT CASE( CompressibilityModel )[all …]
91 INTEGER :: CompressibilityModel local738 CompressibilityModel = Incompressible741 CompressibilityModel = UserDefined1744 CompressibilityModel = PerfectGas1747 CompressibilityModel = Thermal750 CompressibilityModel = Incompressible794 IF ( CompressibilityModel == PerfectGas1 ) THEN810 ELSE IF ( CompressibilityModel == Thermal ) THEN823 ELSE IF ( CompressibilityModel == UserDefined1 ) THEN841 IF ( CompressibilityModel /= Incompressible ) THEN[all …]
86 CHARACTER(LEN=MAX_NAME_LEN) :: ViscosityModel, CompressibilityModel local341 CompressibilityModel = GetString(Material,'Compressibility Model',GotIt) 343 IF(CompressibilityModel == 'incompressible') THEN345 ELSE IF(CompressibilityModel == 'weakly compressible') THEN349 ELSE IF(CompressibilityModel == 'isothermal ideal gas') THEN352 ELSE IF(CompressibilityModel == 'adiabatic ideal gas') THEN
81 INTEGER :: CompressibilityModel local765 CompressibilityModel = Incompressible768 CompressibilityModel = UserDefined1771 CompressibilityModel = PerfectGas1774 CompressibilityModel = Thermal777 CompressibilityModel = Incompressible850 IF ( CompressibilityModel == PerfectGas1 ) THEN866 ELSE IF ( CompressibilityModel == Thermal ) THEN879 ELSE IF ( CompressibilityModel == UserDefined1 ) THEN897 IF ( CompressibilityModel /= Incompressible ) THEN[all …]