Changeset 4184 for trunk/LMDZ.PLUTO/libf/phypluto/phyredem.F90

Timestamp:

Apr 13, 2026, 3:46:01 PM (19 hours ago)

Author:

tbertrand

Message:

PLUTO PCM:
Some fix for the paleo mode
TB

File:

• trunk/LMDZ.PLUTO/libf/phypluto/phyredem.F90 (modified) (3 diffs)

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

@@ -20 +20 @@
   use mod_grid_phy_lmdz, only : klon_glo
   use planete_mod, only: year_day, periastr, apoastr, peri_day, &
-                         obliquit, z0, lmixmin, emin_turb
+                         obliquit, z0, tpal, adjust
   use comcstfi_mod, only: rad, omeg, g, mugaz, rcp
   use time_phylmdz_mod, only: daysec
@@ -117 +117 @@
 ! Boundary layer and turbulence
   tab_cntrl(19) = z0        ! surface roughness (m) ~0.01
-  tab_cntrl(20) = lmixmin   ! mixing length ~100
-  tab_cntrl(21) = emin_turb ! minimal energy ~1.e-8
+  tab_cntrl(20) = tpal
+  tab_cntrl(21) = adjust
 
 ! Optical properties of polar caps and ground emissivity
@@ -255 +255 @@
   use mod_grid_phy_lmdz, only : klon_glo
   use planete_mod, only: year_day, periastr, apoastr, peri_day, &
-                         obliquit, z0, lmixmin, emin_turb
+                         obliquit, z0  
   use comcstfi_mod, only: rad, omeg, g, mugaz, rcp
   use time_phylmdz_mod, only: daysec