Changeset 4146 for trunk/LMDZ.GENERIC/libf/phygeneric/iniwrite_specIR.F

Timestamp:

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

Author:

gmilcareck

Message:

Thermodynamics update on LMDZ.GENERIC

File:

• trunk/LMDZ.GENERIC/libf/phygeneric/iniwrite_specIR.F (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phygeneric/iniwrite_specIR.F

@@ -3 +3 @@
       use radinc_h, only: L_NSPECTI
       use radcommon_h, only: WNOI,DWNI
-      use comcstfi_mod, only: rad, omeg, g, mugaz, rcp, pi
+      use comcstfi_mod, only: rad, omeg, g, mugaz_ref, rcp_ref, pi
       use time_phylmdz_mod, only: daysec, dtphys
 !      USE logic_mod, ONLY: fxyhypb,ysinus
@@ -73 +73 @@
       tab_cntrl(6)  = omeg
       tab_cntrl(7)  = g
-      tab_cntrl(8)  = mugaz
-      tab_cntrl(9)  = rcp
+      tab_cntrl(8)  = mugaz_ref
+      tab_cntrl(9)  = rcp_ref
       tab_cntrl(10) = daysec
       tab_cntrl(11) = dtphys