1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC 2 ! C 3 ! Module name: GET_HLOSS(HLOSS) C 4 ! Purpose: Determine the total heat loss from the reactor C 5 ! C 6 ! Author: M. Syamlal Date: 31-MAR-95 C 7 ! Reviewer: Date: C 8 ! C 9 ! Revision Number: C 10 ! Purpose: C 11 ! Author: Date: dd-mmm-yy C 12 ! Reviewer: Date: dd-mmm-yy C 13 ! C 14 ! Literature/Document References: C 15 ! C 16 ! Variables referenced: IMAX2, JMAX2, KMAX2, MMAX, ROP_s, DX, DY, DZ, C 17 ! X, IMIN1, JMIN1. KMIN1 C 18 ! Variables modified: I, J, K, M, IJK C 19 ! C 20 ! Local variables: None C 21 ! C 22 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C 23 ! 24 SUBROUTINE GET_HLOSS(HLOSS) 25 !...Translated by Pacific-Sierra Research VAST-90 2.06G5 12:17:31 12/09/98 26 !...Switches: -xf 27 ! 28 ! Include param.inc file to specify parameter values 29 ! 30 !----------------------------------------------- 31 ! M o d u l e s 32 !----------------------------------------------- 33 USE param 34 USE param1 35 USE physprop 36 USE geometry 37 USE fldvar 38 USE bc 39 USE indices 40 USE energy 41 IMPLICIT NONE 42 !----------------------------------------------- 43 ! G l o b a l P a r a m e t e r s 44 !----------------------------------------------- 45 !----------------------------------------------- 46 ! D u m m y A r g u m e n t s 47 !----------------------------------------------- 48 ! 49 ! Total heat loss from the reactor 50 DOUBLE PRECISION HLOSS, HLOSSm 51 ! 52 ! Indices 53 INTEGER M, IER 54 ! 55 !----------------------------------------------- 56 ! 57 CALL GET_PHILOSS (T_G, K_G, BC_TW_G, BC_HW_T_G, BC_C_T_G, HLOSSM, IER) 58 HLOSS = HLOSSM 59 DO M = 1, MMAX 60 CALL GET_PHILOSS (T_S(1,M), K_S(1,M), BC_TW_S(1,M), BC_HW_T_S(1,M), & 61 BC_C_T_S(1,M), HLOSSM, IER) 62 HLOSS = HLOSS + HLOSSM 63 END DO 64 RETURN 65 END SUBROUTINE GET_HLOSS 66