diff --git a/Source/devc.f90 b/Source/devc.f90 index afc6e3b3d94..cfafe8670c4 100644 --- a/Source/devc.f90 +++ b/Source/devc.f90 @@ -32,26 +32,26 @@ MODULE DEVICE_VARIABLES !> \brief Derived type storing location and value informaton for DEVICE\%SUBDEVICE TYPE SUBDEVICE_TYPE - !> !\{ + !> @{ !> Intermediate value used for computing device SPATIAL_STATISTIC or TEMPORAL_STATISTIC REAL(EB) :: VALUE_1=0._EB,VALUE_2=0._EB,VALUE_3=0._EB,VALUE_4=0._EB - !> !\} - !> !\{ + !> @} + !> @{ !> Subdevice point, line, or bounding box physical coordinate (m) REAL(EB) :: X1,X2,Y1,Y2,Z1,Z2 - !> !\} + !> @} INTEGER :: MESH !< Subdevice mesh location - !> !\{ + !> @{ !> Subdevice point, line, or bounding box grid index INTEGER :: I1=-1,I2=-1,J1=-1,J2=-1,K1=-1,K2=-1 - !> !\} + !> @} INTEGER :: N_PATH=0 !< Number of grid cells along subdevice path for TRANSMISSION or PATH OBSCURATION - !> !\{ + !> @{ !> Grid index for a grid cell along subdevice path for TRANSMISSION or PATH OBSCURATION INTEGER, ALLOCATABLE, DIMENSION(:) :: I_PATH,J_PATH,K_PATH - ! !\} + !> @} REAL(EB), ALLOCATABLE, DIMENSION(:) :: D_PATH - ! \brief Derived type for a measurement device (DEVC) @@ -59,18 +59,18 @@ MODULE DEVICE_VARIABLES TYPE DEVICE_TYPE TYPE(SUBDEVICE_TYPE), ALLOCATABLE, DIMENSION(:) :: SUBDEVICE ! !\{ + !> @{ !> Physical coordinate of a point DEVC REAL(EB) :: X,Y,Z - !> !\} - !> !\{ + !> @} + !> @{ !> Origin of a linear array of devices REAL(EB) :: X0,Y0,Z0 - !> !\} - !> !\{ + !> @} + !> @{ !> Physical coordinates for DEVC spanning a line, plane, or volume REAL(EB) :: X1,X2,Y1,Y2,Z1,Z2 - !> !\} + !> @} REAL(EB) :: INITIAL_VALUE=-1.E10_EB,INSTANT_VALUE,VALUE=0._EB,SMOOTHED_VALUE=-1.E10_EB,PREVIOUS_VALUE=0._EB, & DEPTH,TMP_L,Y_C,OBSCURATION,DELAY,ROTATION,SMOOTHING_FACTOR=0._EB,SMOOTHING_TIME=-1._EB, & VALUE_1,VALUE_2,VALUE_3,VALUE_4,& @@ -134,7 +134,7 @@ MODULE CONTROL_VARIABLES IMPLICIT NONE (TYPE,EXTERNAL) -!> !\{ +!> @{ !> Parameter defining the type of control function for CONTROL\%CONTROL_INDEX ! When adding more functions: ! 1-50 are fucntions with a logical output that have only one input @@ -150,11 +150,11 @@ MODULE CONTROL_VARIABLES CF_POWER=201,CF_DIVIDE=202,& CF_SUM=301,CF_SUBTRACT=302,CF_MULTIPLY=303,CF_MIN=304,CF_MAX=305,& CF_PERCENTILE=401 -!> !\} -!> !\{ +!> @} +!> @{ !> Parameter used to define the type of input for CONTROL\%INPUT_TYPE INTEGER, PARAMETER :: DEVICE_INPUT=1,CONTROL_INPUT=2,CONSTANT_INPUT=3 -!> !\} +!> @} INTEGER :: N_CTRL = 0 !< Length of CONTROL INTEGER :: N_CTRL_FILES = 0 !< Number of CHID_ctrl.csv output files @@ -183,7 +183,7 @@ MODULE CONTROL_VARIABLES INTEGER, ALLOCATABLE, DIMENSION (:) :: INPUT_TYPE !< Array of inidicating if a specific input to a control function is a device and a control functon REAL(EB) :: SETPOINT(2)=1.E30_EB - ! \param IND2 Index of the sometimes needed second output quantity !> \param Y_INDEX Index of the primitive gas species !> \param Z_INDEX Index of the gas species mixture +!> \param ELEM_INDX Index of the chemical element !> \param PART_INDEX Index of the Lagrangian particle class !> \param VELO_INDEX Index of the velocity component, x=1, y=2, z=3 !> \param PIPE_INDEX Index of the pipe branch diff --git a/Source/func.f90 b/Source/func.f90 index 24c3ce8545e..03336f54f1f 100644 --- a/Source/func.f90 +++ b/Source/func.f90 @@ -5839,7 +5839,6 @@ END SUBROUTINE TRANSFORM_COORDINATES !> \brief Find the determinant of a matrix A of order N !> \param A is a square matrix N x N !> \param N is the order of the matrix -!> \param DET is the result RECURSIVE FUNCTION DETERMINANT(A, N) RESULT(DET) INTEGER, INTENT(IN) :: N diff --git a/Source/init.f90 b/Source/init.f90 index 3445d53a29f..49b16a91ef4 100644 --- a/Source/init.f90 +++ b/Source/init.f90 @@ -3396,6 +3396,7 @@ END SUBROUTINE INIT_THIN_WALL_CELL !> \brief Assign internal values of temp, density, and mass fraction !> \param NM Mesh number !> \param IW WALL index +!> \param TT Curent time (s) SUBROUTINE SET_DENSITY_AND_MASS_FRACTIONS_AT_WALL(NM,IW,TT)