Changeset 3190 for trunk/LMDZ.COMMON/libf/evolution/pemetat0.F90

Timestamp:

Jan 30, 2024, 10:14:19 AM (10 months ago)

Author:

llange

Message:

PEM
Fixing bug in writediagpem: soil layers written in the diagpem where those of the PCM and not the PEM.
LL

File:

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

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

@@ -253 +253 @@
                 tsoil_tmp_yr2(:,:,islope) = tsoil_tmp_yr1(:,:,islope)
                 call compute_tsoil_pem(ngrid,nsoil_PEM,.false.,TI_PEM(:,:,islope),timestep,tsurf_avg_yr2(:,islope),tsoil_tmp_yr2(:,:,islope))
-
+                
                 do iloop = nsoil_PCM+1,nsoil_PEM
                     tsoil_PEM(:,iloop,islope) = tsoil_tmp_yr2(:,iloop,islope)