Changeset 3502 for trunk/LMDZ.PLUTO/libf


Ignore:
Timestamp:
Nov 8, 2024, 10:56:55 AM (6 weeks ago)
Author:
afalco
Message:

Pluto: better thermal inertia name when no startfi given.
AF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.PLUTO/libf/phypluto/phyetat0_mod.F90

    r3483 r3502  
    7171      CHARACTER*1 yes
    7272!
    73       REAL p_rad,p_omeg,p_g,p_cpp,p_mugaz,p_daysec,TI
     73      REAL p_rad,p_omeg,p_g,p_cpp,p_mugaz,p_daysec,thermal_inertia_if_no_startfi
    7474      INTEGER nqold
    7575
    … …  
    268268  endif
    269269else
    270   call getin_p("therm_inertia",TI)
    271   therm_inertia(:,:) = TI
     270  thermal_inertia_if_no_startfi=400 ! default value
     271  call getin_p("thermal_inertia_if_no_startfi",thermal_inertia_if_no_startfi)
     272  therm_inertia(:,:) = thermal_inertia_if_no_startfi
    272273    !AF24
    273274endif ! of if (startphy_file)
Note: See TracChangeset for help on using the changeset viewer.