Changeset 4117 for trunk/LMDZ.COMMON/libf/evolution/clim_state_rec.F90

Timestamp:

Mar 10, 2026, 4:52:43 PM (2 weeks ago)

Author:

jbclement

Message:

PEM:

• Remove 'd_h2oice' and 'd_co2ice' arguments from adsorption and soil thermal inertia routines (not needed and possible bugs).
• Move 'read_callphys' call from 'read_start1D' to 'read_rundef' so that 'CO2cond_ps' is initialized no matter what.
• Explicit initialization of 'delta_h2o_ads'/'delta_co2_ads' before 'read_startpem'.
• Add time index argument to 'put_var_nc' calls to write "restart.nc".
• Increase temporary string buffer size for 'real2str_qp'.
• Fixed some typos.

JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/clim_state_rec.F90 (modified) (2 diffs)

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

@@ -95 +95 @@
 ! Surface pressure
 call vect2dyngrd(nlon + 1,nlat,ngrid,ps4PCM,ps_dyn)
-call put_var_nc('ps',ps_dyn)
+call put_var_nc('ps',ps_dyn,1)
 
 ! Potential temperature
 call vect2dyngrd(nlon + 1,nlat,ngrid,teta4PCM,var_dyn)
-call put_var_nc('teta',var_dyn)
+call put_var_nc('teta',var_dyn,1)
 
 ! Air mass
 call vect2dyngrd(nlon + 1,nlat,ngrid,air_mass4PCM,var_dyn)
-call put_var_nc('masse',var_dyn)
+call put_var_nc('masse',var_dyn,1)
 
 ! Tracers
@@ -110 +110 @@
         call vect2dyngrd(nlon + 1,nlat,ngrid,q4PCM(:,l,i),var_dyn(:,:,l))
     end do
-    call put_var_nc(qnames(i),var_dyn)
+    call put_var_nc(qnames(i),var_dyn,1)
 end do