Changeset 4152 for trunk/LMDZ.COMMON/libf/evolution/pem.F90

Timestamp:

Mar 25, 2026, 11:19:02 AM (2 weeks ago)

Author:

jbclement

Message:

PEM:

• Fix outputs "diagevo.nc" for 3D data.
• Fix sign in computing exchanges due to adsorption/ice table and in balancing H2O flux from/into atmosphere.
• Few cleanings.

JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/pem.F90 (modified) (1 diff)

trunk/LMDZ.COMMON/libf/evolution/pem.F90

@@ -279 +279 @@
 idt = 0
 do while (n_yr_run < min(nmax_yr_runorb,nmax_yr_run) .and. n_yr_sim < ntot_yr_sim)
-    call print_msg('**** Iteration of the PEM run [Planetary years]: '//real2str(n_yr_run + dt),LVL_NFO)
+    call print_msg('**** Iteration of the PEM run [plnt yr]: '//real2str(n_yr_run + dt),LVL_NFO)
     ! Evolve global surface pressure
     call evolve_pressure(d_co2ice,delta_co2_ads,do_sorption,ps_avg_glob_old,ps_avg_glob,ps_avg)