1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv! 2 ! ! 3 ! Module name: URS2_DES ! 4 ! ! 5 ! Purpose: This routine is called within the discrete phase time loop ! 6 ! after the source terms are applied and the time step updated. The ! 7 ! The user may insert code in this routine or call user defined ! 8 ! subroutines. ! 9 ! ! 10 ! This routien is called from the time loop, but no indicies (fluid ! 11 ! cell or particle) are defined. ! 12 ! ! 13 ! Author: J.Musser Date: 06-Nov-12 ! 14 ! ! 15 ! Comments: ! 16 ! ! 17 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^! 18 SUBROUTINE USR2_DES 19 20 Use des_rxns 21 Use des_thermo 22 Use discretelement 23 Use run 24 Use usr 25 26 IMPLICIT NONE 27 28 INCLUDE '../usrnlst.inc' 29 30 RETURN 31 END SUBROUTINE USR2_DES 32