1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC 2 ! C 3 ! Module name: GET_SMASS(SMASS) C 4 ! Purpose: Determine the weight of solids in the reactor C 5 ! C 6 ! Author: M. Syamlal Date: 30-JAN-92 C 7 ! Reviewer: P. Nicoletti, W. Rogers, S. Venkatesan Date: 31-JAN-92 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_SMASS(SMASS) 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 parallel 36 USE physprop 37 USE geometry 38 USE fldvar 39 USE indices 40 USE compar 41 USE mpi_utility 42 USE functions 43 IMPLICIT NONE 44 !----------------------------------------------- 45 ! G l o b a l P a r a m e t e r s 46 !----------------------------------------------- 47 !----------------------------------------------- 48 ! D u m m y A r g u m e n t s 49 !----------------------------------------------- 50 ! 51 ! Total Weight of solids in the reactor 52 DOUBLE PRECISION SMASS 53 ! 54 ! Solids phase 55 INTEGER M 56 ! 57 ! Functions 58 DOUBLE PRECISION Accumulation 59 ! 60 !----------------------------------------------- 61 62 SMASS = ZERO 63 DO M = 1, MMAX 64 SMASS = SMASS + Accumulation(ROP_s(1, M)) 65 END DO 66 67 RETURN 68 END SUBROUTINE GET_SMASS 69 70 !// Comments on the modifications for DMP version implementation 71 !// 001 Include header file and common declarations for parallelization 72 !// 350 Changed do loop limits: 1,ijkmax2-> ijkstart3, ijkend3 73 !// 400 Added mpi_utility module and other global reduction (global_all_sum) call 74 75