Changeset 5447 for LMDZ6/trunk/libf/phylmd/cvltr_scav.f90

Timestamp:

Dec 22, 2024, 5:48:23 PM (11 hours ago)

Author:

jyg

Message:

output the convective wet deposit of tracers

File:

• LMDZ6/trunk/libf/phylmd/cvltr_scav.f90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/cvltr_scav.f90

@@ -3 +3 @@
 !
 SUBROUTINE cvltr_scav(pdtime, da, phi,phi2,d1a,dam, mpIN,epIN, &
-     sigd,sij,wght_cvfd,clw,elij,epmlmMm,eplaMm,    &
-     pmflxrIN,pmflxsIN,ev,te,wdtrainA,wdtrainM,     &
-     paprs,it,tr,upd,dnd,inb,icb,                   &
-     ccntrAA_3d,ccntrENV_3d,coefcoli_3d,            &
-     dtrcv,trsptd,dtrSscav,dtrsat,dtrUscav,qDi,qPr, &
-     qPa,qMel,qTrdi,dtrcvMA,Mint,                   &
+     sigd,sij,wght_cvfd,clw,elij,epmlmMm,eplaMm,        &
+     pmflxrIN,pmflxsIN,ev,te,wdtrainA,wdtrainM,         &
+     paprs,it,tr,upd,dnd,inb,icb,                       &
+     ccntrAA_3d,ccntrENV_3d,coefcoli_3d,                &
+     dtrcv,trsptd,dtrSscav,dtrsat,dtrUscav,flux_tr_wet, &
+     qDi,qPr,                                           &
+     qPa,qMel,qTrdi,dtrcvMA,Mint,                       &
      zmfd1a,zmfphi2,zmfdam)
   !
@@ -72 +73 @@
   REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT)     :: dtrsat    ! tendance trsp+sat scav
   REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT)     :: dtrUscav  ! tendance du lessivage courant unsat
+  REAL,DIMENSION(klon,nbtr),     INTENT(OUT)     :: flux_tr_wet ! wet deposit
   !
   ! Variables locales
@@ -685 +687 @@
      ENDDO
   ENDDO
+  DO i=1, klon
+     flux_tr_wet(i,it) = (pmflxr(i,1)+pmflxs(i,1))*qPr(i,1,it)*pdtime    ! wet deposit
+  ENDDO
 
   ! test de conservation du traceur