Changeset 2920

Timestamp:

Mar 24, 2023, 3:16:21 PM (21 months ago)

Author:

flefevre

Message:

Tune upper atm : correction mineure pour eviter depassement de tableau en version 78 niveaux

File:

• trunk/LMDZ.VENUS/libf/phyvenus/photochemistry_venus.F90 (modified) (2 diffs)

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

@@ -4593 +4593 @@
       !-- TuneE
       ! VCD 2.0 tuning
-      !  v_phot(65:90,4) = v_phot(65:90,4)*10. ! CO2 + hv ==> O(1D) + CO
+      !  v_phot(65:nz,4) = v_phot(65:nz,4)*10. ! CO2 + hv ==> O(1D) + CO
       !--
       ! VCD 2.1 tuning
-          v_phot(65:90,4) = v_phot(65:90,4)*8. ! CO2 + hv ==> O(1D) + CO
+          v_phot(65:nz,4) = v_phot(65:nz,4)*8. ! CO2 + hv ==> O(1D) + CO
       !--
       !   v_phot(:,4) = v_phot(:,4)*10.
@@ -4602 +4602 @@
       !   v_phot(:,ij) = v_phot(:,ij)*10.
       !end do
-      endif
+      end if
       !!!!!!!!!!!!!!!