Changeset 2956


Ignore:
Timestamp:
Jul 18, 2017, 12:01:04 AM (7 years ago)
Author:
jbmadeleine
Message:

Corrected rneblsvol in fisrtilp to make it equal to rnebls in the part
controlled by the large-scale lognormal PDF. Nb: rneblsvol stays equal to 0 if
iflag_cloudth_vert<3.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/fisrtilp.F90

    r2945 r2956  
    845845                 endif
    846846
     847                 ! If vertical heterogeneity, change fraction by volume as well
     848                 if (iflag_cloudth_vert>=3) then
     849                   ctot_vol(i,k)=rneb(i,k)
     850                   rneblsvol(i,k)=ctot_vol(i,k)
     851                 endif
     852
    847853                 endif !convergence
     854
    848855               enddo ! boucle en i
    849856
     
    989996           ENDIF
    990997        ENDDO
     998        ! If vertical heterogeneity, change fraction by volume as well
     999        if (iflag_cloudth_vert>=3) then
     1000          ctot_vol(1:klon,k)=min(max(ctot_vol(1:klon,k),0.),1.)
     1001          rneblsvol(1:klon,k)=ctot_vol(1:klon,k)
     1002        endif
    9911003
    9921004!        ENDIF
Note: See TracChangeset for help on using the changeset viewer.