Changeset 3717 for LMDZ6/branches/Optimisation_LMDZ/libf

Timestamp:

Jun 11, 2020, 11:09:44 AM (4 years ago)

Author:

adurocher

Message:

cv3p_mixing_new : VLAs removed from block construct (intel 19 bug)

Intel compiler 19 crashes (internal compiler error) when VLA (variable length arrays) are used within block constructs

File:

• LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/cv3p_mixing.f90 (modified) (2 diffs)

LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/cv3p_mixing.f90

@@ -111 +111 @@
     REAL, DIMENSION(nloc, nd)          :: ASij
     REAL, DIMENSION(nloc, nd, nd)      :: Sij
+    real :: Sjmin(nd), Sjmax(nd), Qmixmax(nd), Qmixmin(nd), Rmixmax(nd), Rmixmin(nd)
 
     INTEGER, SAVE                      :: igout = 1
@@ -276 +277 @@
         block
           real :: signhpmh, Scrit
-          real :: Sjmin(icb(il)-1:inb(il)), Sjmax(icb(il)-1:inb(il)), Qmixmax(icb(il)-1:inb(il)), Qmixmin(icb(il)-1:inb(il)), Rmixmax(icb(il)-1:inb(il)), Rmixmin(icb(il)-1:inb(il))
 
           block