Changeset 2157 for trunk/LMDZ.MARS/libf/aeronomars/moldiff_red.F90

Timestamp:

Sep 10, 2019, 3:27:59 PM (5 years ago)

Author:

emillour

Message:

Mars GCM:

• Use Wilke's formulation for molecular diffusion

JYC

File:

• trunk/LMDZ.MARS/libf/aeronomars/moldiff_red.F90 (modified) (1 diff)

trunk/LMDZ.MARS/libf/aeronomars/moldiff_red.F90

@@ -1173 +1173 @@
         endif
         enddo
-        D(l)=1d0/interm
+!       D(l)=1d0/interm
+        D(l)=(1D0-Nk(l,nn)/N(l))/interm
         enddo
         END