Changeset 785 for trunk/LMDZ.GENERIC/libf

Timestamp:

Sep 18, 2012, 5:04:08 PM (12 years ago)

Author:

aslmd

Message:

LMDZ.GENERIC: correction d un possible depassement de tableau dans ave_stelspec

File:

• trunk/LMDZ.GENERIC/libf/phystd/ave_stelspec.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/ave_stelspec.F90

@@ -152 +152 @@
          band=1
          Do while(lam(1).lt. real(10000.0/BWNV(band+1)))
-            if (band.gt.L_NSPECTV) exit
+            if (band+1.ge.L_NSPECTV+1) exit
             band=band+1
          enddo