Changeset 5674 for LMDZ6/trunk

Timestamp:

May 23, 2025, 1:22:49 PM (2 weeks ago)

Author:

jyg

Message:

Bug fix in calls of phytrac and phytracr_spl in phylmdiso.

File:

• LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -6936 +6936 @@
     ENDIF
 
+    ! Merge wdtrainA and wdtrainS in the total source of precipitation due to
+    ! adiabatic updraughts.
+    !
+    wdtrainAS(:,:) = wdtrainA(:,:) + wdtrainS(:,:)
+
 IF (CPPKEY_DUST) THEN
-    !  Avec SPLA, iflag_phytrac est forcé =1 
+    !  Avec SPLA, iflag_phytrac est force =1 
+
     CALL       phytracr_spl ( debut,lafin , jD_cur,jH_cur,iflag_con,       &
                       pdtphys,ftsol,                                       &
@@ -6947 +6953 @@
                       da,phi,phi2,d1a,dam,mp,ep,sigd,sij,clw,elij,         &
                       epmlmMm,eplaMm,upwd,dnwd,itop_con,ibas_con,          &
-                      ev,wdtrainA,  wdtrainM,wght_cvfd,                    &
+                      ev,wdtrainAS,  wdtrainM,wght_cvfd,                   &
                       fm_therm, entr_therm, rneb,                          &
                       beta_prec_fisrt,beta_prec,                           &
@@ -6973 +6979 @@
          da,       phi,       mp,       upwd, &
          phi2,     d1a,       dam,      sij, wght_cvfd, &        !<<RomP+RL
-         wdtrainA, wdtrainM,  sigd,     clw,elij, &   !<<RomP
+         wdtrainAS, wdtrainM,  sigd,     clw,elij, &   !<<RomP
          ev,       ep,        epmlmMm,  eplaMm, &     !<<RomP
          dnwd,     aerosol_couple,      flxmass_w, &