Changeset 5411 for LMDZ6/trunk


Ignore:
Timestamp:
Dec 16, 2024, 5:48:49 PM (8 hours ago)
Author:
evignon
Message:

amendement au commit precedent sur la phase 1 de l'externalisation des precips de lscp

Location:
LMDZ6/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/lmdz_lscp.f90

    r5408 r5411  
    314314  REAL, DIMENSION(klon) :: d_zrfl_cld_clr, d_zifl_cld_clr
    315315  REAL, DIMENSION(klon) :: ziflclr, ziflcld
    316   REAL, DIMENSION(klon) :: znebprecipclr, znebprecipcld
     316  REAL, DIMENSION(klon) :: znebprecip, znebprecipclr, znebprecipcld
    317317  REAL, DIMENSION(klon) :: tot_zneb, tot_znebn, d_tot_zneb
    318318  REAL, DIMENSION(klon) :: d_znebprecip_clr_cld, d_znebprecip_cld_clr
    … …  
    366366rneblsvol(1:klon,1:klev)=0.0
    367367smallestreal=1.e-9
     368znebprecip(:)=0.0
    368369znebprecipclr(:)=0.0
    369370znebprecipcld(:)=0.0
    … …  
    529530
    530531      CALL histprecip_precld(klon, dtime, iftop, paprs(:,k), paprs(:,k+1), pplay(:,k), &
    531                         zt, ztupnew, zq, zmqc, zneb, znebprecipclr, &
     532                        zt, ztupnew, zq, zmqc, zneb, znebprecip, znebprecipclr, &
    532533                        zrfl, zrflclr, zrflcld, &
    533534                        zifl, ziflclr, ziflcld, &

  • LMDZ6/trunk/libf/phylmd/lmdz_lscp_precip.f90

    r5408 r5411  
    1818SUBROUTINE histprecip_precld( &
    1919           klon, dtime, iftop, paprsdn, paprsup, pplay, zt, ztupnew, zq, &
    20            zmqc, zneb, znebprecipclr, &
     20           zmqc, zneb, znebprecip, znebprecipclr, &
    2121           zrfl, zrflclr, zrflcld, zifl, ziflclr, ziflcld, dqreva, dqssub &
    2222           )
    … …  
    4646
    4747REAL,    INTENT(IN),    DIMENSION(klon) :: zneb           !--cloud fraction IN THE LAYER ABOVE [-]
     48REAL,    INTENT(INOUT), DIMENSION(klon) :: znebprecip     !--fraction of precipitation IN THE LAYER ABOVE [-]
    4849REAL,    INTENT(INOUT), DIMENSION(klon) :: znebprecipclr  !--fraction of precipitation in the clear sky IN THE LAYER ABOVE [-]
    4950
    … …  
    6162REAL :: zmair
    6263REAL :: zcpair, zcpeau
    63 REAL, DIMENSION(klon) :: znebprecip
    6464REAL, DIMENSION(klon) :: qzero
    6565REAL, DIMENSION(klon) :: zqs, zdqs
Note: See TracChangeset for help on using the changeset viewer.