mvoludt.F File Reference

#include "implicit_f.inc"
#include "com04_c.inc"
#include "com08_c.inc"
#include "param_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	mvoludt (monvol, volmon)

Function/Subroutine Documentation

mvoludt()

subroutine mvoludt	(	integer, dimension(*)	monvol,
			volmon )

Definition at line 28 of file mvoludt.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "com04_c.inc"
#include      "com08_c.inc"
#include      "param_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER MONVOL(*)
      my_real
     .        volmon(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I, ITYP, K1, KK1
C     REAL
      my_real
     .   dtx, dty, gama, p, v, s, rot, al
C-----------------------------------------------
C
      dtx=one
      dty=one
      k1 = 1
      kk1 = 0
      DO i=1,nvolu
       ityp=monvol(k1+1)
C communication in resol just before mvoludt and sending to proc0 of volmon
C avoid difference in parallel when processor does not handle all airbags
C see formulas on min dty / max dtx
C separate branch for the main proc (proc having updated p,v,s)
       IF(ityp/=1)THEN
        gama=volmon(kk1+1)
        al=volmon(kk1+2)
        p=volmon(kk1+12)
        v=volmon(kk1+16)-volmon(kk1+5)
        s=volmon(kk1+18)
        rot=volmon(kk1+21)
        dty=min(sqrt(one+al)-al,dty)
        IF(rot==zero) THEN
          dtx=dty
        ELSE
          dtx=max(sqrt(one+dt2**2*gama*p*s/v/rot),dtx)
        ENDIF
       ENDIF
       k1  = k1  + nimv
       kk1 = kk1 + nrvolu
      ENDDO
C
      dt2=dt2*dty/dtx
      RETURN