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 check 34 USE compar 35 USE fldvar 36 USE functions 37 USE geometry 38 USE indices 39 USE mpi_utility 40 USE parallel 41 USE param 42 USE param1 43 USE physprop 44 IMPLICIT NONE 45 !----------------------------------------------- 46 ! G l o b a l P a r a m e t e r s 47 !----------------------------------------------- 48 !----------------------------------------------- 49 ! D u m m y A r g u m e n t s 50 !----------------------------------------------- 51 ! 52 ! Total Weight of solids in the reactor 53 DOUBLE PRECISION SMASS 54 ! 55 ! Solids phase 56 INTEGER M 57 ! 58 !----------------------------------------------- 59 60 SMASS = ZERO 61 DO M = 1, MMAX 62 SMASS = SMASS + Accumulation(ROP_s(1, M)) 63 END DO 64 65 RETURN 66 END SUBROUTINE GET_SMASS 67 68 !// Comments on the modifications for DMP version implementation 69 !// 001 Include header file and common declarations for parallelization 70 !// 350 Changed do loop limits: 1,ijkmax2-> ijkstart3, ijkend3 71 !// 400 Added mpi_utility module and other global reduction (global_all_sum) call 72 73