Changeset 5998 for LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

Timestamp:

Jan 5, 2026, 5:41:18 PM (2 weeks ago)

Author:

evignon

Message:

suppression lignes obsoletes suite au nettoyage de ratqs_multi

File:

• LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -1365 +1365 @@
     INTEGER iostat
 
-    REAL, DIMENSION(klon,klev+1) :: l_mix_ave, wprime_ave
     REAL zzz
     !albedo SB >>>
@@ -5105 +5104 @@
     ! Computation of ratqs, the width (normalized) of the subrid scale
     ! water distribution
-
-    l_mix_ave(:,:)=0.
-    wprime_ave(:,:)=0.
-
-    DO nsrf = 1, nbsrf
-       DO i = 1, klon
-          l_mix_ave(i,:) = l_mix_ave(i,:) + l_mix(i,:,nsrf)*pctsrf(i,nsrf)
-          wprime_ave(i,:) = wprime_ave(i,:) + wprime(i,:,nsrf)*pctsrf(i,nsrf)
-       ENDDO
-    ENDDO
 
     CALL ratqs_main_first(klon, cell_area)