Changeset 5411

Timestamp:

Dec 16, 2024, 5:48:49 PM (7 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:

• lmdz_lscp.f90 (modified) (3 diffs)
• lmdz_lscp_precip.f90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/lmdz_lscp.f90

@@ -314 +314 @@
   REAL, DIMENSION(klon) :: d_zrfl_cld_clr, d_zifl_cld_clr
   REAL, DIMENSION(klon) :: ziflclr, ziflcld
-  REAL, DIMENSION(klon) :: znebprecipclr, znebprecipcld
+  REAL, DIMENSION(klon) :: znebprecip, znebprecipclr, znebprecipcld
   REAL, DIMENSION(klon) :: tot_zneb, tot_znebn, d_tot_zneb
   REAL, DIMENSION(klon) :: d_znebprecip_clr_cld, d_znebprecip_cld_clr
@@ -366 +366 @@
 rneblsvol(1:klon,1:klev)=0.0
 smallestreal=1.e-9
+znebprecip(:)=0.0
 znebprecipclr(:)=0.0
 znebprecipcld(:)=0.0
@@ -529 +530 @@
 
       CALL histprecip_precld(klon, dtime, iftop, paprs(:,k), paprs(:,k+1), pplay(:,k), &
-                        zt, ztupnew, zq, zmqc, zneb, znebprecipclr, &
+                        zt, ztupnew, zq, zmqc, zneb, znebprecip, znebprecipclr, &
                         zrfl, zrflclr, zrflcld, &
                         zifl, ziflclr, ziflcld, &

LMDZ6/trunk/libf/phylmd/lmdz_lscp_precip.f90

@@ -18 +18 @@
 SUBROUTINE histprecip_precld( &
            klon, dtime, iftop, paprsdn, paprsup, pplay, zt, ztupnew, zq, &
-           zmqc, zneb, znebprecipclr, &
+           zmqc, zneb, znebprecip, znebprecipclr, &
            zrfl, zrflclr, zrflcld, zifl, ziflclr, ziflcld, dqreva, dqssub &
            )
@@ -46 +46 @@
 
 REAL,    INTENT(IN),    DIMENSION(klon) :: zneb           !--cloud fraction IN THE LAYER ABOVE [-]
+REAL,    INTENT(INOUT), DIMENSION(klon) :: znebprecip     !--fraction of precipitation IN THE LAYER ABOVE [-]
 REAL,    INTENT(INOUT), DIMENSION(klon) :: znebprecipclr  !--fraction of precipitation in the clear sky IN THE LAYER ABOVE [-]
 
@@ -61 +62 @@
 REAL :: zmair
 REAL :: zcpair, zcpeau
-REAL, DIMENSION(klon) :: znebprecip
 REAL, DIMENSION(klon) :: qzero
 REAL, DIMENSION(klon) :: zqs, zdqs