1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC 2 ! C 3 ! SUBROUTINE: EXCHANGE C 4 ! Purpose: Calls routines to drive calculations of the interphase C 5 ! mass, momentum, and energy exchange coefficients/terms C 6 ! if directed to do so by the corresponding flags C 7 ! C 8 ! Author: M. Syamlal Date: 25-APR-96 C 9 ! Reviewer: Date: C 10 ! C 11 ! Literature/Document References: C 12 ! C 13 ! Variables referenced: C 14 ! Variables modified: C 15 ! Local variables: C 16 ! C 17 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C 18 19 SUBROUTINE EXCHANGE(IER) 20 21 ! Global Variables: 22 !----------------------------------------------------------------------- 23 ! Flags for calculating drag coefficient. 24 use coeff, only: DRAGCOEF 25 ! Flags for calculating heat transfer coefficient. 26 use coeff, only: HEAT_TR 27 28 implicit none 29 30 ! Dummy arguments: 31 !----------------------------------------------------------------------- 32 INTEGER, INTENT(INOUT) :: IER ! Error index 33 34 35 ! Calculate drag coefficients 36 CALL CALC_DRAG (DRAGCOEF, IER) 37 38 ! Calculate interphase heat transfer coefficients 39 CALL CALC_GAMA (HEAT_TR, IER) 40 41 42 return 43 END SUBROUTINE EXCHANGE 44