Changeset 865 for LMDZ4/branches/LMDZ4_V3_patches/libf

Timestamp:

Nov 14, 2007, 11:20:17 AM (17 years ago)

Author:

lsce

Message:

ACo : correction bug qui entrainait un depassement de tableau - deja corrige dans dyn3d

File:

• LMDZ4/branches/LMDZ4_V3_patches/libf/dyn3dpar/guide_p.F (modified) (1 diff)

LMDZ4/branches/LMDZ4_V3_patches/libf/dyn3dpar/guide_p.F

@@ -415 +415 @@
                 if (first.and.ini_anal) vcov(ij,l)=a
             enddo
-            if (first.and.ini_anal) vcov(ij,l)=a
          enddo
       endif