1 | include(dom.inc)
   2 | 
   3 |       SUBROUTINE master_integrate(s_Gtot, s_Lbtot, s_Htot,               &
   4 |      &                            s_Q_rtot,s_Qw,iproc)
   5 | 
   6 | !       ================================================================!
   7 | !                                                                       !
   8 | !       master_integrate.F: Copy resulting vectors to master            !
   9 | !                                                                       !
  10 | !       out               :                                             !
  11 | !                                                                       !
  12 | !       author            : J. AMAYA (october 2007)                     !
  13 | !                                                                       !
  14 | !       ================================================================!
  15 | 
  16 |         USE mod_prissma
  17 | 
  18 |         IMPLICIT NONE
  19 | 
  20 | !       IN
  21 |         DOM_INT    :: iproc, i
  22 |         DOM_REAL,DIMENSION(3,i_dom_nnodes) :: s_Q_rtot
  23 |         DOM_REAL,DIMENSION(i_dom_nnodes)   :: s_Gtot, s_Lbtot
  24 |         DOM_REAL,DIMENSION(i_dom_nbfaces)  :: s_Htot, s_Qw
  25 |         DOM_REAL :: Gmax, Gmin, Lmax, Lmin, Hmax, Hmin
  26 | 
  27 | !       --------------!
  28 | !       Printing data !
  29 | !       --------------!
  30 | 
  31 |         Gmax = MAXVAL(s_Gtot)
  32 |         Gmin = MINVAL(s_Gtot)
  33 |         Lmax = MAXVAL(s_Lbtot)
  34 |         Lmin = MINVAL(s_Lbtot)
  35 |         Hmax = MAXVAL(s_Htot)
  36 |         Hmin = MINVAL(s_Htot)
  37 | 
  38 | !       print*, " ---------------------"
  39 | !       print*, " Procesor: ", iproc
  40 | !       print*, " Gmax from (",iproc,") = ", Gmax
  41 | !       print*, " Gmin from (",iproc,") = ", Gmin
  42 | !       print*, " Lmax from (",iproc,") = ", Lmax
  43 | !       print*, " Lmin from (",iproc,") = ", Lmin
  44 | !       print*, " Hmax from (",iproc,") = ", Hmax
  45 | !       print*, " Hmin from (",iproc,") = ", Hmin
  46 | !       print*, " "
  47 | 
  48 | !       ---------------------------------------!
  49 | !       Adding iproc results to master vectors !
  50 | !       ---------------------------------------!
  51 | 
  52 |         Q_rtot = Q_rtot + s_Q_rtot
  53 |         Qw     = Qw     + s_Qw
  54 |         Gtot   = Gtot   + s_Gtot
  55 |         Htot   = Htot   + s_Htot
  56 | 
  57 |         DO i=1, i_dom_nnodes
  58 |           IF (Lbtot(i).eq.0.) Lbtot(i) = s_Lbtot(i)
  59 |         ENDDO
  60 | 
  61 | !       IF (iproc.eq.0) THEN
  62 | !         Lbtot(:) = s_Lbtot(:)
  63 | !       ENDIF
  64 | 
  65 | !       print*, " max Sr = ", MAXVAL(Srtot)
  66 | !       print*, " ---------------------"
  67 | 
  68 |       END SUBROUTINE master_integrate