Ignore:
Timestamp:
Nov 7, 2024, 11:09:51 AM (2 weeks ago)
Author:
debatzbr
Message:

Final clean and debug for the microphysical model

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.TITAN/libf/muphytitan/mm_methods.f90

    r3090 r3496  
    370370      res = (1.0e5 / pres) * exp(1.511e1 - 2.207e3/temp - 2.411e4/temp**2 + 7.744e5/temp**3 - 1.161e7/temp**4 + 6.763e7/temp**5)
    371371   
     372    ELSE IF(xESP%name == "AC6H6") THEN
     373      ! Fray and Schmidt (2009)
     374      res = (1.0e5 / pres) * exp(1.735e1 - 5.663e3/temp)
     375
    372376    ELSE IF(xESP%name == "HCN") THEN
    373377      ! Fray and Schmidt (2009)
    … …  
    406410      res = (1.0e5 / pres) * exp(1.511e1 - 2.207e3/temp - 2.411e4/temp**2 + 7.744e5/temp**3 - 1.161e7/temp**4 + 6.763e7/temp**5)
    407411   
     412    ELSE IF(xESP%name == "AC6H6") THEN
     413      ! Fray and Schmidt (2009)
     414      res = (1.0e5 / pres) * exp(1.735e1 - 5.663e3/temp)
     415
    408416    ELSE IF(xESP%name == "HCN") THEN
    409417      ! Fray and Schmidt (2009)
Note: See TracChangeset for help on using the changeset viewer.