Initial import from 2016.02.00 release: svn r9802

*Excluded Files* * /test * /test/system_test * /test/system_test/automation * /test/system_test/CCSI_IP_QUESTIONS_1MWe.docx * /test/system_test/ccsi_test_outline_1MWCFD.xlsx * /test/unit_test
CCSI-Toolset · Jun 21, 2017 · 44fc82c · 44fc82c
commit 44fc82c
Show file tree

Hide file tree

Showing 55 changed files with 29,995 additions and 0 deletions.
diff --git a/C2U/32DColdFlow/mfix.dat b/C2U/32DColdFlow/mfix.dat
diff --git a/C2U/32DHotNonReactingFlow/mfix.dat b/C2U/32DHotNonReactingFlow/mfix.dat
diff --git a/C2U/32DReactingFlow/mfix.dat b/C2U/32DReactingFlow/mfix.dat
diff --git a/C2U/SourceCode/calc_mu_s.f b/C2U/SourceCode/calc_mu_s.f
diff --git a/C2U/SourceCode/drag_gs.f b/C2U/SourceCode/drag_gs.f
diff --git a/C2U/SourceCode/mfix.dat b/C2U/SourceCode/mfix.dat
diff --git a/C2U/SourceCode/species.inc b/C2U/SourceCode/species.inc
@@ -0,0 +1,17 @@
+! This file is automatically generated by make_mfix through processing
+! species and reaction block input. Do not directly edit this file.
+      INTEGER, PARAMETER :: N2 = 1
+      INTEGER, PARAMETER :: CO2 = 2
+      INTEGER, PARAMETER :: H2O_g = 3
+      INTEGER, PARAMETER :: SiO2 = 1
+      INTEGER, PARAMETER :: R2NH = 2
+      INTEGER, PARAMETER :: R2NCO2 = 3
+      INTEGER, PARAMETER :: R2NH2 = 4
+      INTEGER, PARAMETER :: HCO3 = 5
+      INTEGER, PARAMETER :: H2O_s = 6
+      INTEGER, PARAMETER :: fwd_Dry_CO2_Adsorption  = 1
+      INTEGER, PARAMETER :: rev_Dry_CO2_Adsorption  = 2
+      INTEGER, PARAMETER :: fwd_Wet_CO2_Adsorption  = 3
+      INTEGER, PARAMETER :: rev_Wet_CO2_Adsorption  = 4
+      INTEGER, PARAMETER :: fwd_H2O_physisorption  = 5
+      INTEGER, PARAMETER :: rev_H2O_physisorption  = 6
diff --git a/C2U/SourceCode/usr0.f b/C2U/SourceCode/usr0.f
@@ -0,0 +1,51 @@
+!vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
+!                                                                      C
+!  Module name: USR0                                                   C
+!  Purpose: This routine is called before the time loop starts and is  C
+!           user-definable.  The user may insert code in this routine  C
+!           or call appropriate user defined subroutines.  This        C
+!           can be used for setting constants and checking errors in   C
+!           data.  This routine is not called from an IJK loop, hence  C
+!           all indices are undefined.                                 C
+!                                                                      C
+!  Author:                                            Date: dd-mmm-yy  C
+!  Reviewer:                                          Date: dd-mmm-yy  C
+!                                                                      C
+!  Revision Number:                                                    C
+!  Purpose:                                                            C
+!  Author:                                            Date: dd-mmm-yy  C
+!  Reviewer:                                          Date: dd-mmm-yy  C
+!                                                                      C
+!  Literature/Document References:                                     C
+!                                                                      C
+!  Variables referenced:                                               C
+!  Variables modified:                                                 C
+!                                                                      C
+!  Local variables:                                                    C
+!                                                                      C
+!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C
+!
+      SUBROUTINE USR0 
+!...Translated by Pacific-Sierra Research VAST-90 2.06G5  12:17:31  12/09/98  
+!...Switches: -xf
+      Use usr
+      Use run
+      IMPLICIT NONE
+!-----------------------------------------------
+!
+!  Include files defining common blocks here
+!
+!
+!  Define local variables here
+!
+!
+!  Include files defining statement functions here
+!
+!
+!  Insert user-defined code here
+!
+
+      call reaction_init(('MFIX_'//UNITS))
+
+      RETURN  
+      END SUBROUTINE USR0 
diff --git a/C2U/SourceCode/usr_init_namelist.f b/C2U/SourceCode/usr_init_namelist.f
@@ -0,0 +1,63 @@
+!vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
+!                                                                      C
+!  Module name: USR_INIT_NAMELIST                                      C
+!  Purpose: initialize user_defined NAMELIST variables                 C
+!                                                                      C
+!  Author:                                            Date:            C
+!  Reviewer:                                          Date:            C
+!                                                                      C
+!                                                                      C
+!  Literature/Document References:                                     C
+!                                                                      C
+!  Variables referenced: None                                          C
+!  Variables modified:                                                 C
+!                                                                      C
+!  Local variables:                                                    C
+!                                                                      C
+!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C
+!
+      SUBROUTINE USR_INIT_NAMELIST 
+!...Translated by Pacific-Sierra Research VAST-90 2.06G5  12:17:31  12/09/98  
+!...Switches: -xf
+!-----------------------------------------------
+!   M o d u l e s 
+!-----------------------------------------------
+      Use usr
+      IMPLICIT NONE
+!-----------------------------------------------
+!   L o c a l   V a r i a b l e s
+!-----------------------------------------------
+!-----------------------------------------------
+!
+
+      USE_CONC = .FALSE.
+
+!   1. Dry CO2 Adsorption
+!      2*R2NH + CO2(g) <--> R2NCO2- + R2NH2+      
+
+       REAC_DH(1)      = -71649.0    ! J/mol
+       REAC_DS(1)      =  -200.0     ! J/mol.K
+       REAC_E(1)       =  78728.0    ! J/mol
+       REAC_LOGZETA(1) =  3.3115     ! [-] 
+
+!   2. Wet CO2 Adsorption 
+!      R2NH + H2O(g) + CO2(g) <--> HC03- + R2NH2+ 
+
+       REAC_DH(2)      = -87733.0    ! J/mol
+       REAC_DS(2)      =  -260.83    ! J/mol.K
+       REAC_E(2)       =  11360.0    ! J/mol
+       REAC_LOGZETA(2) =  0.6165     ! [-]
+
+!   3. Water physical Adsorption 
+!      H2O(g) <--> H2O(abs)   
+
+       REAC_DH(3)      = -98828.0    ! J/mol
+       REAC_DS(3)      =  -246.76    ! J/mol.K
+       REAC_E(3)       =  67960.0    ! J/mol
+       REAC_LOGZETA(3) =  4.2881     ! [-]
+
+
+
+
+      RETURN  
+      END SUBROUTINE USR_INIT_NAMELIST