Changeset 2194 for trunk/LMDZ.VENUS/libf/phyvenus/phytrac_chimie.F

Timestamp:

Dec 13, 2019, 11:37:38 AM (5 years ago)

Author:

slebonnois

Message:

SL: ajustement commit precedent pour la microphysique de Sabrina

File:

• trunk/LMDZ.VENUS/libf/phyvenus/phytrac_chimie.F (modified) (2 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/phytrac_chimie.F

@@ -269 +269 @@
       end do
 
-!     liquid phase
+!     liquid phase or moments
 
       if (ok_cloud .and. cl_scheme == 1) then
@@ -282 +282 @@
       end if
 
+
+      if (ok_cloud .and. cl_scheme == 2) then
+         do iq = nqmax-nmicro+1,nqmax
+            d_tr_chem(:,:,iq) = (ztrac(:,:,iq) - trac(:,:,iq))/pdtphys
+         end do
+      end if
+
       end subroutine phytrac_chimie