Changeset 2837


Ignore:
Timestamp:
Dec 1, 2022, 10:55:44 AM (2 years ago)
Author:
aslmd
Message:

Changed the H2H2 CIA file in the Hot Jupiter case

Modified the default H2H2 CIA file. The file used now
(H2-H2_2011_extended.cia) is a combinaison of multiple files existing
for hot temperature. It is very similar to the H2H2 CIA used in Baudino
et al, 2015, but has been extended to 7000 K instead of 5000 K.

LT

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.GENERIC/libf/phystd/interpolateH2H2.F90

    r2667 r2837  
    6363      integer ind
    6464      if ((H2orthopara_mixture .eq. "hot")) then
    65         ! print*,"We're in the Hot Jupiter case"
    66         if (temp .gt. 3000.) then
     65        if (temp .gt. 7000.) then
    6766          if (strictboundcia) then
    6867            if (is_master) then
    69               print*,'Your temperatures are too high for this H2-H2 CIA dataset (Hot Jupiter case). If you '
    70               print*,'really want to run simulations with hydrogen at T > 400 K, contact'
    71               print*,'Robin Wordsworth [rwordsworth@uchicago.edu].'
     68              print*,'Your temperatures are too high for this H2-H2 CIA dataset (>7000K, Hot Jupiter case)'
    7269            endif !is_master
    7370            stop
     
    7774              print*,'you have chosen strictboundcia = ', strictboundcia
    7875              print*,'*********************************************************'
    79               print*,' we allow model to continue but with temp = 3000          '
     76              print*,' we allow model to continue but with temp = 7000          '
    8077              print*,'  ...       for H2-H2 CIA dataset          ...           '
    8178              print*,'  ... we assume we know what you are doing ...           '
    8279              print*,'*********************************************************'
    8380            endif !is_master
    84             temp = 3000.
     81            temp = 7000.
    8582          endif !strictboundcia
    86         endif !(temp .gt. 3000.)
    87       else ! if not Hot Jupiter
     83        endif !(temp .gt. 7000.)
     84      else ! if not "hot"
    8885        if(temp.gt.400)then
    8986          if (strictboundcia) then
     
    143140             dt_file=TRIM(datadir)//'/continuum_data/H2-H2_eq_2011.cia'
    144141           else if (H2orthopara_mixture.eq."hot") then
    145             dt_file=TRIM(datadir)//'/continuum_data/H2-H2_2011.cia'
    146             ns = 9981
     142            dt_file=TRIM(datadir)//'/continuum_data/H2-H2_2011_extended.cia'
     143            ns = 800
    147144           endif
    148145         else if (versH2H2cia.eq.2018) then
Note: See TracChangeset for help on using the changeset viewer.