Changeset 843 for trunk/LMDZ.COMMON/libf/dyn3dpar

Timestamp:

Nov 15, 2012, 10:33:08 AM (12 years ago)

Author:

emillour

Message:

Common dynamics:

• bug fix in filtreg_p.F on array boundaries (important when not using BLAS)
• updated arch-GNOME files to point to more recent ifort compiler
• converted script "build_gcm" to bash

EM

File:

• trunk/LMDZ.COMMON/libf/dyn3dpar/filtreg_p.F (modified) (6 diffs)

trunk/LMDZ.COMMON/libf/dyn3dpar/filtreg_p.F

@@ -214 +214 @@
      &                    champ_fft(1,j-jdfil+1,1), iip1*nlat)
 #else
-                     champ_fft(:,j-jdfil+1,:)
+                     champ_fft(:iim,j-jdfil+1,:)
      &                    =matmul(matrinvn(:,:,j),champ_loc(:iim,j,:))
 #endif
@@ -227 +227 @@
      &                    champ_fft(1,j-jdfil+1,1), iip1*nlat)
 #else
-                     champ_fft(:,j-jdfil+1,:)
+                     champ_fft(:iim,j-jdfil+1,:)
      &                    =matmul(matriceun(:,:,j),champ_loc(:iim,j,:))
 #endif
@@ -240 +240 @@
      &                    champ_fft(1,j-jdfil+1,1), iip1*nlat)
 #else
-                     champ_fft(:,j-jdfil+1,:)
+                     champ_fft(:iim,j-jdfil+1,:)
      &                    =matmul(matricevn(:,:,j),champ_loc(:iim,j,:))
 #endif
@@ -257 +257 @@
      &                    champ_fft(1,j-jdfil+1,1), iip1*nlat)
 #else
-                     champ_fft(:,j-jdfil+1,:)
+                     champ_fft(:iim,j-jdfil+1,:)
      &                    =matmul(matrinvs(:,:,j-jfiltsu+1),
      &                            champ_loc(:iim,j,:))
@@ -272 +272 @@
      &                    champ_fft(1,j-jdfil+1,1), iip1*nlat)
 #else
-                     champ_fft(:,j-jdfil+1,:)
+                     champ_fft(:iim,j-jdfil+1,:)
      &                    =matmul(matriceus(:,:,j-jfiltsu+1),
      &                            champ_loc(:iim,j,:))
@@ -287 +287 @@
      &                    champ_fft(1,j-jdfil+1,1), iip1*nlat)
 #else
-                     champ_fft(:,j-jdfil+1,:)
+                     champ_fft(:iim,j-jdfil+1,:)
      &                    =matmul(matricevs(:,:,j-jfiltsv+1),
      &                            champ_loc(:iim,j,:))