Changeset 2809 for trunk/LMDZ.VENUS

Timestamp:

Oct 20, 2022, 11:21:31 AM (2 years ago)

Author:

emillour

Message:

Venus GCM:
Bug fix in jthermcalc_e107 (wrong indexes used in some computations involving NO2 and H2)
AM

File:

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

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

@@ -224 +224 @@
      $        (wm(i)*auxjo3p(ind+1) + wp(i)*auxjo3p(ind))
          !H2 interpolated coefficient
-         jfotsout(indexint,5,auxi) = jfotsout(indexint,5,auxi) *
+         jfotsout(indexint,5,auxi) = jfotsout(indexint,5,nlayer) *
      $        (wm(i)*auxjh2(ind+1) + wp(i)*auxjh2(ind))
       enddo
@@ -771 +771 @@
                !NO2 interpolated coefficient
                jfotsout(indexint,13,auxi)=
-     $              jfotsout(indexint,13,auxi) *
+     $              jfotsout(indexint,13,nlayer) *
      $              (wm(i)*auxjno2(ind+1)+wp(i)*auxjno2(ind)) * 
      $              cortemp(i)