Changeset 4152 for trunk/LMDZ.COMMON/libf/evolution/clim_state_init.F90

Timestamp:

Mar 25, 2026, 11:19:02 AM (11 days ago)

Author:

jbclement

Message:

PEM:

• Fix outputs "diagevo.nc" for 3D data.
• Fix sign in computing exchanges due to adsorption/ice table and in balancing H2O flux from/into atmosphere.
• Few cleanings.

JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/clim_state_init.F90 (modified) (3 diffs)

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

@@ -377 +377 @@
 
     ! H2O ice
-    call print_msg("'h2o_ice' is initialized with default value 'h2oice_huge_ini' where 'watercaptag' is true and where yearly minimum of frost can be considered as a huge reservoir ('threshold_h2oice_cap').",LVL_NFO)
+    call print_msg("'h2o_ice' is initialized with default value 'h2oice_huge_ini' where 'watercaptag' is true and where yearly minimum of frost can be considered as a huge reservoir ('threshold_h2oice_cap').",LVL_WRN)
     h2o_ice(:,:) = 0._dp
     do i = 1,ngrid
@@ -388 +388 @@
 
     ! CO2 ice
-    call print_msg("'co2_ice' is initialized with 'perennial_co2ice' and yearly minimum of frost found in the PCM.",LVL_NFO)
+    call print_msg("'co2_ice' is initialized with 'perennial_co2ice' and yearly minimum of frost found in the PCM.",LVL_WRN)
     co2_ice(:,:) = co2_perice_PCM(:,:) + co2frost_PCM(:,:) - co2_frost4PCM(:,:)
 
@@ -486 +486 @@
     ! Layering
     if (do_layering) then
-        call print_msg('layerings_map is initialized with sub-surface strata.',LVL_NFO)
-        call print_msg("Ice is added with 'h2oice_huge_ini' where 'watercaptag' is true and otherwise with 'perennial_co2ice' found in the PCM.",LVL_NFO)
+        call print_msg('layerings_map is initialized with sub-surface strata.',LVL_WRN)
+        call print_msg("Ice is added with 'h2oice_huge_ini' where 'watercaptag' is true and otherwise with 'perennial_co2ice' found in the PCM.",LVL_WRN)
         do i = 1,ngrid
             if (is_h2o_perice_PCM(i)) then