Changeset 4138 for trunk/LMDZ.COMMON/libf/evolution/xios_data.F90

Timestamp:

Mar 17, 2026, 4:22:44 PM (3 weeks ago)

Author:

jbclement

Message:

PEM:

• Move ice table variables from "ice_table" to the main program.
• Merge "job_id_mod" and "job_timelimit_mod" into "job" which is relocated to the PEM folder.
• Rename local variables in procedures to avoid masking variables in parent scope.
• Few cleanings to delete remaining PEM-external "include" and "use".

JBC

File:

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

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

@@ -194 +194 @@
             end do
         end do
-        ! Keep deep layers consistent with PCM bottom layer when nsoil > nsoil_PCM.
-        h2o_soildensity_avg(:,nsoil_PCM + 1:nsoil,islope) = h2o_soildensity_avg(:,nsoil_PCM,islope)
+        do isoil = nsoil_PCM + 1,nsoil
+            h2o_soildensity_avg(:,isoil,islope) = h2o_soildensity_avg(:,nsoil_PCM,islope) ! Explicit initialization because dimension with size nsoil > nsoil_PCM
+        end do
     end do
     h2o_soildensity_avg(:,:,:) = h2o_soildensity_avg(:,:,:)/real(nday,dp)