Changeset 3368 for trunk/LMDZ.COMMON/libf

Timestamp:

Jun 11, 2024, 5:38:40 PM (6 months ago)

Author:

jbclement

Message:

PEM:
Correction related to r3367.
JBC

Location:

trunk/LMDZ.COMMON/libf/evolution

Files:

• changelog.txt (modified) (1 diff)
• evol_ice_mod.F90 (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/evolution/changelog.txt

@@ -363 +363 @@
 == 11/06/2024 == JBC
 Removal of useless condition and variable + some updates.
+
+== 11/06/2024 == JBC
+Correction related to r3367.

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

@@ -29 +29 @@
 !   local:
 !   ------
-real, dimension(ngrid,nslope), intent(inout) :: co2_ice_old ! Old density of CO2 ice
+real, dimension(ngrid,nslope) :: co2_ice_old ! Old density of CO2 ice
 !=======================================================================
 ! Evolution of CO2 ice for each physical point
@@ -60 +60 @@
 !=======================================================================
 !
-! Routine that compute the evolution of the h2o ice
+! Routine to compute the evolution of h2o ice
 !
 !=======================================================================