Changeset 2418 for trunk/LMDZ.VENUS

Timestamp:

Oct 18, 2020, 7:01:20 PM (4 years ago)

Author:

flefevre

Message:

Photolyses: correction pour parer le cas ou la colonne de CO2 = 0.

File:

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

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

@@ -1453 +1453 @@
 
 ! interpolation in co2 column
+
+   indcol = nz - 1
+   cicol  = 0.
 
    do i = 1,nztable