Changeset 3620 for trunk/LMDZ.COMMON/libf/evolution/pem.F90

Timestamp:

Feb 12, 2025, 12:03:26 PM (3 days ago)

Author:

jbclement

Message:

PEM:
Few small adjustments in the code.
JBC

File:

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

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

@@ -1015 +1015 @@
 !------------------------
     call recomp_tend_co2(ngrid,nslope,timelen,d_co2ice,d_co2ice_ini,co2_ice,emis,vmr_co2_PCM,vmr_co2_PEM_phys,ps_timeseries,ps_avg_global_old,ps_avg_global_new)
-    
-    do ig = 1,ngrid
-        do islope = 1,nslope
-            call recomp_tend_h2o(icetable_depth_old(ig,islope),icetable_depth(ig,islope),tsurf_avg(ig,islope),tsoil_PEM_timeseries_old(ig,:,islope,:),tsoil_PEM_timeseries(ig,:,islope,:),d_h2oice(ig,islope))
-        enddo
-    enddo
+    !write(*,*) "> Updating the H2O sub-surface ice tendency due to lag layer"
+    !do ig = 1,ngrid
+    !    do islope = 1,nslope
+    !        call recomp_tend_h2o(icetable_depth_old(ig,islope),icetable_depth(ig,islope),tsurf_avg(ig,islope),tsoil_PEM_timeseries_old(ig,:,islope,:),tsoil_PEM_timeseries(ig,:,islope,:),d_h2oice(ig,islope))
+    !    enddo
+    !enddo
     deallocate(vmr_co2_PEM_phys,icetable_depth_old,tsoil_PEM_timeseries_old)