Télécharger la plaquette Cast3M


fr en

Télécharger hydv3d.eso

Retour à la liste

Numérotation des lignes : 

hydv3d

  1. C HYDV3D    SOURCE    PV090527  23/01/27    21:15:38     11574          
  2.       subroutine hydv3d(err1,hyd0,hydr,hyds,dth00,dth0,dtr00,dtr0,
  3.      #dfl00,dfl0,dcpp00,dcpp0,epspt600,epspt60,epspc600,epspc60,
  4.      #epsvt600,epsvt60,epspg600,epspg60,epsps600,epsps60,epsk006,
  5.      #epsk06,epsm006,epsm06,epleqc00,epleqc0,fshr006,fshr06)
  6.  
  7. c     actualisation des variables internes en fonction du degre
  8. c     d hydratation
  9.  
  10.       implicit real*8 (a-h,o-z)
  11.       implicit integer (i-n)
  12.  
  13. c     variables externes
  14.       real*8 hyd0,hydr,hyds,dfl00,dfl0,dtr00,dtr0
  15.       real*8 epspt600(6),epspt60(6)
  16.       real*8 epspc600(6),epspc60(6)  
  17.       real*8 epsvt600(6),epsvt60(6)      
  18.       real*8 epspg600(6),epspg60(6)
  19.       real*8 epsps600(6),epsps60(6)
  20.       real*8 epsk006(6),epsk06(6)
  21.       real*8 epsm006(6),epsm06(6)
  22.       real*8 sigef006(6),sigef06(6)
  23.       real*8 sigm006(6),sigm06(6)
  24.       real*8 fshr006(6),fshr06(6)
  25.       real*8 epleqc00,epleqc0
  26.       integer err1
  27.  
  28. c     variables locales
  29.       integer j    
  30.  
  31.  
  32. c     **** endommagements isotropes ************************************   
  33. c     en dommagement thermique      
  34.       call hydrvari3d(dth00,dth0,hyd0,hydr,hyds)         
  35. c     endommagement effectif de fluage
  36.       call hydrvari3d(dfl00,dfl0,hyd0,hydr,hyds) 
  37. c     endo pre pic de traction
  38.       call hydrvari3d(dtr00,dtr0,hyd0,hydr,hyds)
  39. c     endo pre pic de compression
  40.       call hydrvari3d(dcpp00,dcpp0,hyd0,hydr,hyds)
  41. c     deformation equivalent de compression
  42.       call hydrvari3d(epleqc00,epleqc0,hyd0,hydr,hyds)      
  43.  
  44.  
  45. c     *** deformation plastique ****************************************
  46.       do j=1,6
  47. c        traction      
  48.          call hydrvari3d(epspt600(j),epspt60(j),hyd0,hydr,hyds)
  49. c        compression cisaillement         
  50.          call hydrvari3d(epspc600(j),epspc60(j),hyd0,hydr,hyds)
  51. c        thermique transitoire         
  52.          call hydrvari3d(epsvt600(j),epsvt60(j),hyd0,hydr,hyds)         
  53. c        gel         
  54.          call hydrvari3d(epspg600(j),epspg60(j),hyd0,hydr,hyds)
  55. c        def         
  56.          call hydrvari3d(epsps600(j),epsps60(j),hyd0,hydr,hyds)  
  57. c        fluage kelvin         
  58.          call hydrvari3d(epsk006(j),epsk06(j),hyd0,hydr,hyds) 
  59. c        fluage maxwell         
  60.          call hydrvari3d(epsm006(j),epsm06(j),hyd0,hydr,hyds)
  61. c        taux de franchissement des seuils capillaires
  62.          call hydrvari3d(fshr006(j),fshr06(j),hyd0,hydr,hyds)         
  63.       end do 
  64.  
  65.  
  66.       return
  67.       end
  68.  
  69.  
  70.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales