Commits

Anonymous committed f58afd8

Fixed line endings?

  • Participants
  • Parent commits c9bf021

Comments (0)

Files changed (1)

File src/pflotran/srcsink_sandbox_wipp_well.F90

   PetscInt, parameter, public :: WIPP_WELL_XMOL_AIR_IN_LIQUID = 7
   PetscInt, parameter, public :: WIPP_WELL_XMOL_WATER_IN_GAS = 8
   PetscInt, parameter, public :: WIPP_WELL_LIQUID_DENSITY = 9
-  PetscInt, parameter, public :: WIPP_WELL_GAS_DENSITY = 10
+  PetscInt, parameter, public :: WIPP_WELL_GAS_DENSITY = 10
 
   type, public, &
     extends(srcsink_sandbox_base_type) :: srcsink_sandbox_wipp_well_type
   ! positive is inflow
   ! units = kmol/s
   ! water equation
-  Residual(ONE_INTEGER) = q_liquid * aux_real(WIPP_WELL_LIQUID_DENSITY) * &
+  Residual(ONE_INTEGER) = q_liquid * aux_real(WIPP_WELL_LIQUID_DENSITY) * &
                           (1.d0-aux_real(WIPP_WELL_XMOL_AIR_IN_LIQUID)) + &
-                          q_gas * aux_real(WIPP_WELL_XMOL_WATER_IN_GAS) * &
+                          q_gas * aux_real(WIPP_WELL_XMOL_WATER_IN_GAS) * &
                           aux_real(WIPP_WELL_GAS_DENSITY)
   ! air equation
-  Residual(TWO_INTEGER) = q_liquid * aux_real(WIPP_WELL_XMOL_AIR_IN_LIQUID) * & 
+  Residual(TWO_INTEGER) = q_liquid * aux_real(WIPP_WELL_XMOL_AIR_IN_LIQUID) * & 
                           aux_real(WIPP_WELL_LIQUID_DENSITY) + &
-                          q_gas * aux_real(WIPP_WELL_GAS_DENSITY) * &
-                          (1.d0-aux_real(WIPP_WELL_XMOL_WATER_IN_GAS))
-  ! energy equation
+                          q_gas * aux_real(WIPP_WELL_GAS_DENSITY) * &
+                          (1.d0-aux_real(WIPP_WELL_XMOL_WATER_IN_GAS))
+  ! energy equation
   ! units = MJ/s
-  Residual(THREE_INTEGER) = q_liquid * aux_real(WIPP_WELL_LIQUID_DENSITY) * &
+  Residual(THREE_INTEGER) = q_liquid * aux_real(WIPP_WELL_LIQUID_DENSITY) * &
                             aux_real(WIPP_WELL_LIQUID_ENTHALPY) + &
-                            q_gas * aux_real(WIPP_WELL_GAS_DENSITY) * &
-                            aux_real(WIPP_WELL_GAS_ENTHALPY)
+                            q_gas * aux_real(WIPP_WELL_GAS_DENSITY) * &
+                            aux_real(WIPP_WELL_GAS_ENTHALPY)
   
   if (compute_derivative) then