Changeset 2791 for trunk/LMDZ.VENUS

Timestamp:

Sep 2, 2022, 12:27:24 PM (2 years ago)

Author:

slebonnois

Message:

SL: correction in moldiff_red to catchup with Mars routine

File:

• trunk/LMDZ.VENUS/libf/phyvenus/moldiff_red.F90 (modified) (1 diff)

trunk/LMDZ.VENUS/libf/phyvenus/moldiff_red.F90

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