1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv! 2 ! ! 3 ! Module name: URS1_DES ! 4 ! ! 5 ! Purpose: This routine is called within the discrete phase time loop ! 6 ! after the source terms have been calculated but before they are ! 7 ! applied. The user may insert code in this routine or call user ! 8 ! defined 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 USR1_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 USR1_DES 32