Changeset 5998 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Jan 5, 2026, 5:41:18 PM (2 weeks ago)
Author:
evignon
Message:

suppression lignes obsoletes suite au nettoyage de ratqs_multi

Location:
LMDZ6/trunk/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/physiq_mod.F90

    r5995 r5998  
    12691269    integer iostat
    12701270
    1271     REAL, dimension(klon,klev+1) :: l_mix_ave, wprime_ave
    12721271    REAL zzz
    12731272    !albedo SB >>>
    … …  
    39463945    ! water distribution
    39473946
    3948     l_mix_ave(:,:)=0.
    3949     wprime_ave(:,:)=0.
    3950 
    3951     DO nsrf = 1, nbsrf
    3952        DO i = 1, klon
    3953           l_mix_ave(i,:) = l_mix_ave(i,:) + l_mix(i,:,nsrf)*pctsrf(i,nsrf)
    3954           wprime_ave(i,:) = wprime_ave(i,:) + wprime(i,:,nsrf)*pctsrf(i,nsrf)
    3955        ENDDO
    3956     ENDDO
    39573947
    39583948    CALL ratqs_main_first(klon, cell_area)

  • LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

    r5995 r5998  
    13651365    INTEGER iostat
    13661366
    1367     REAL, DIMENSION(klon,klev+1) :: l_mix_ave, wprime_ave
    13681367    REAL zzz
    13691368    !albedo SB >>>
    … …  
    51055104    ! Computation of ratqs, the width (normalized) of the subrid scale
    51065105    ! water distribution
    5107 
    5108     l_mix_ave(:,:)=0.
    5109     wprime_ave(:,:)=0.
    5110 
    5111     DO nsrf = 1, nbsrf
    5112        DO i = 1, klon
    5113           l_mix_ave(i,:) = l_mix_ave(i,:) + l_mix(i,:,nsrf)*pctsrf(i,nsrf)
    5114           wprime_ave(i,:) = wprime_ave(i,:) + wprime(i,:,nsrf)*pctsrf(i,nsrf)
    5115        ENDDO
    5116     ENDDO
    51175106
    51185107    CALL ratqs_main_first(klon, cell_area)
Note: See TracChangeset for help on using the changeset viewer.