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

Timestamp:

Jan 5, 2026, 5:41:18 PM (8 days ago)

Author:

evignon

Message:

suppression lignes obsoletes suite au nettoyage de ratqs_multi

File:

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

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -1269 +1269 @@
     integer iostat
 
-    REAL, dimension(klon,klev+1) :: l_mix_ave, wprime_ave
     REAL zzz
     !albedo SB >>>
@@ -3946 +3945 @@
     ! 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)