Esope source files

   1 : C DHLDP0    SOURCE    CHAT      05/01/12    22:48:48     5004           
   2 :       FUNCTION DHLDP0(P,T)
   3 : C--------------------------------------------------------------------
   4 : C derivee partielle de Enthalpie liquide spécifique par rapport a P
   5 : C Issue de la fonction Enthalpie liquide HLS0(P,T)
   6 : C--------------------------------------------------------------------
   7 : C
   8 : C  E/  P       : Pression (en Pa)
   9 : C  E/  T       : Température (en K)
  10 : C   /S DHLDP0  : D/DP(Hl) Derivee partielle enthalpie spécifique
  11 : C                liquide par rapport à la pression P (en J/kg/Pa)
  12 : 
  13 : C--------------------------------------------------------------------
  14 :       IMPLICIT INTEGER(I-N)
  15 :       IMPLICIT REAL*8 (A-H,O-Z)
  16 :                        
  17 : C     DERIVEE DES COEFFICIENTS
  18 : C     **************************************************** 
  19 : C     d/dP(hl1(P)) 
  20 :       DHL1  =  0.18637D-2
  21 : C     ****************************************************       
  22 : C     d/dP(hl2(P))            
  23 :       DHL2  =  ((2*0.3654D-12)*P)-(0.30413D-5) 
  24 : C     ****************************************************
  25 : C     d/dP(hl3(P)) 
  26 :       DHL3  =  ((-0.95261D-8)*2*P)-(0.25785D0)
  27 : C     ****************************************************
  28 : C     COEFFICIENT hl4              
  29 :       HL4  =  399.98D0
  30 : C     ****************************************************       
  31 : C     TEMPERATURE T-T0
  32 : C     ****************************************************         
  33 :       TL1  =  (T - 273.15D0)
  34 : C     ****************************************************                      
  35 : C     FORMULE EXACTE DE LA DERIVEE             
  36 :       DHLDP0 = DHL1 +(DHL2 * TL1)+(DHL3/(HL4 - TL1))
  37 :       RETURN
  38 :       END
  39 :  
  40 :  
  41 :