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

Timestamp:

Mar 19, 2026, 2:07:40 PM (4 weeks ago)

Author:

jbclement

Message:

PEM:

• Fix the writing of potential temperature and air mass in "start.nc".
• Add the checking of variable validity when writing a variable in a NetCDF file.

JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/clim_state_rec.F90 (modified) (1 diff)

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

@@ -98 +98 @@
 
 ! Potential temperature
-call vect2dyngrd(nlon + 1,nlat,ngrid,teta4PCM,var_dyn)
+do l = 1,nlayer
+    call vect2dyngrd(nlon + 1,nlat,ngrid,teta4PCM,var_dyn(:,:,l))
+end do
 call put_var_nc('teta',var_dyn,1)
 
 ! Air mass
-call vect2dyngrd(nlon + 1,nlat,ngrid,air_mass4PCM,var_dyn)
+do l = 1,nlayer
+    call vect2dyngrd(nlon + 1,nlat,ngrid,air_mass4PCM,var_dyn(:,:,l))
+end do
 call put_var_nc('masse',var_dyn,1)