Changeset 4078 for trunk/LMDZ.PLUTO/libf/phypluto/inifis_mod.F90

Timestamp:

Feb 18, 2026, 8:45:27 PM (2 weeks ago)

Author:

tbertrand

Message:

Pluto PCM:
Allowing atmospheric temperatures to be fixed following an input profile (fixed_temp_prof option)
TB

File:

• trunk/LMDZ.PLUTO/libf/phypluto/inifis_mod.F90 (modified) (1 diff)

trunk/LMDZ.PLUTO/libf/phypluto/inifis_mod.F90

@@ -311 +311 @@
 
      if (is_master) write(*,*) trim(rname)//&
+       ": call simple fixed temperature profile"
+     fixed_temp_prof=.false. ! default value
+     call getin_p("fixed_temp_prof",fixed_temp_prof)
+     if (is_master) write(*,*) trim(rname)//": fixed_temp_prof = ",fixed_temp_prof
+     tau_temp=1. ! default value
+     call getin_p("tau_temp",tau_temp)
+
+     if (is_master) write(*,*) trim(rname)//&
        ": prohibit calculations outside corrk T grid?"
      strictboundcorrk=.true. ! default value