1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv! 2 ! ! 3 ! Module name: URS4_DES ! 4 ! ! 5 ! Purpose: This routine is called before thermodynamic calculations ! 6 ! and is user-definable. The user may insert code in this routine or ! 7 ! call appropriate user defined subroutines. ! 8 ! ! 9 ! This routien is called from an IJK loop, hence the IJK dummy ! 10 ! argument is the only defined index. This routine is usefule for ! 11 ! calculations based on fluid grid properties needed for reaction ! 12 ! rate calculations. ! 13 ! ! 14 ! Author: J.Musser Date: 06-Nov-12 ! 15 ! ! 16 ! Comments: ! 17 ! ! 18 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^! 19 SUBROUTINE USR4_DES(IJK) 20 21 Use des_rxns 22 Use des_thermo 23 Use discretelement 24 Use fldvar 25 USE geometry 26 USE indices 27 Use run 28 Use usr 29 30 IMPLICIT NONE 31 32 INTEGER, INTENT(IN) :: IJK ! Fluid cell index 33 34 INCLUDE 'usrnlst.inc' 35 36 RETURN 37 END SUBROUTINE USR4_DES 38