Changeset 3367 for trunk/LMDZ.COMMON/libf/evolution/compute_tend_mod.F90

Timestamp:

Jun 11, 2024, 5:15:20 PM (5 months ago)

Author:

jbclement

Message:

PEM:
Removal of useless condition and variable + some updates.
JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/compute_tend_mod.F90 (modified) (2 diffs)

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

@@ -13 +13 @@
 !=======================================================================
 !
-! Compute the initial tendencies of the evolution ice based on the PCM data
+! Compute the initial tendencies of the ice evolution based on the PCM data
 !
 !=======================================================================
@@ -33 +33 @@
 where (abs(tendencies_ice) < 1.e-10) tendencies_ice = 0.
 
-! If the minimum over the last year is 0 then we have no perennial ice
+! If the minimum over the last year is 0, then we have no perennial ice
 where (abs(min_ice(:,:,2)) < 1.e-10) tendencies_ice = 0.
+
 END SUBROUTINE compute_tend