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

Timestamp:

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

Author:

gmilcareck

Message:

Thermodynamics update on LMDZ.GENERIC

File:

• trunk/LMDZ.GENERIC/libf/phygeneric/dyn1d/kcm1d.F90 (modified) (1 diff)

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

@@ -355 +355 @@
 !!! - physical frequency: nevermind, in inifis this is a simple print
 
-  cpp=1.d-7 !JL because we divide by cpp in inifis, there may be a more elegant solution
-  CALL inifis(1,llm,nq,0,86400.0,1,1.0,latitude,longitude,cell_area,rad,g,r,cpp)
+  cppd_ref=1.d-7 !JL because we divide by cpp in inifis, there may be a more elegant solution
+  CALL inifis(1,llm,nq,0,86400.0,1,1.0,latitude,longitude,cell_area,rad,g,rd_ref,cppd_ref)
 
   if(.not.global1d)then