1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv! 2 ! Subroutine name: PHYSICAL_PROP ! 3 ! ! 4 ! Purpose: Calculate physical properties that vary with time. ! 5 ! ! 6 ! Author: J.Musser Date: 09-May-11 ! 7 ! ! 8 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^! 9 SUBROUTINE DES_PHYSICAL_PROP 10 11 ! Modules 12 !---------------------------------------------------------------------// 13 Use des_rxns 14 Use des_thermo 15 Use discretelement 16 Use funits 17 Use param 18 Use param1 19 Use physprop 20 Use run 21 22 IMPLICIT NONE 23 24 ! Dummy arguments 25 !---------------------------------------------------------------------// 26 ! Logical indicating to write additional data about the particle for 27 ! debugging purposes. 28 29 ! Local Variables 30 !---------------------------------------------------------------------// 31 ! Index of particle 32 INTEGER :: NP 33 !......................................................................! 34 35 36 ! Specific heat 37 !----------------------------------------------------------------------- 38 ! This only needs calculated when solving the energy equations. 39 IF(ENERGY_EQ) THEN 40 ENDIF 41 42 RETURN 43 END SUBROUTINE DES_PHYSICAL_PROP 44