1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv! 2 ! ! 3 ! Module name: URS0_DES ! 4 ! ! 5 ! Purpose: This routine is called before the discrete phase time loop ! 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 not called from a loop, hence all indicies are ! 10 ! undefined. ! 11 ! ! 12 ! Author: J.Musser Date: 06-Nov-12 ! 13 ! ! 14 ! Comments: ! 15 ! ! 16 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^! 17 SUBROUTINE USR0_DES 18 19 Use des_rxns 20 Use des_thermo 21 Use discretelement 22 Use run 23 Use usr 24 25 IMPLICIT NONE 26 27 28 RETURN 29 END SUBROUTINE USR0_DES 30