Changeset 4146 for trunk/LMDZ.GENERIC/libf/phygeneric/dyn1d/kcmprof_fn.F90

Timestamp:

Mar 19, 2026, 2:35:46 PM (11 days ago)

Author:

gmilcareck

Message:

Thermodynamics update on LMDZ.GENERIC

File:

• trunk/LMDZ.GENERIC/libf/phygeneric/dyn1d/kcmprof_fn.F90 (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phygeneric/dyn1d/kcmprof_fn.F90

@@ -4 +4 @@
 use watercommon_h, only : mH2O
 use gases_h
-use comcstfi_mod, only: mugaz, cpp, g
+use comcstfi_mod, only: mugaz_ref, cppd_ref, g
 use callkeys_mod, only: co2cond
 implicit none
@@ -81 +81 @@
   !-------------------------------
   ! assign input variables
-  m_n     = dble(mugaz/1000.)
-  cp_n    = cpp
+  m_n     = dble(mugaz_ref/1000.)
+  cp_n    = cppd_ref
   ! modify/generalise later??