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

Timestamp:

Mar 25, 2026, 11:19:02 AM (12 days 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/tendencies.F90 (modified) (2 diffs)

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

@@ -65 +65 @@
 
 ! If the tendency is negative but there is no ice reservoir for the PEM
-where (d_ice < 0._dp .and. abs(perice) < minieps) d_ice = 0._dp
+where (d_ice(:,:) < 0._dp .and. abs(perice(:,:)) < minieps) d_ice(:,:) = 0._dp
 
 END SUBROUTINE compute_tendice
@@ -89 +89 @@
 ! DEPENDENCIES
 ! ------------
-use geometry,   only: ngrid, nslope, nday
-use physics,    only: sigmaB, alpha_clap_co2, beta_clap_co2, Lco2, m_co2, A, B
-use orbit,      only: yr_len_sol, sol_len_s
-use display,    only: print_msg, LVL_NFO
-use utility,    only: real2str
+use geometry, only: ngrid, nslope, nday
+use physics,  only: sigmaB, alpha_clap_co2, beta_clap_co2, Lco2, m_co2, A, B
+use orbit,    only: yr_len_sol, sol_len_s
+use display,  only: print_msg, LVL_NFO
+use utility,  only: real2str
 
 ! DECLARATION