Changeset 898 for trunk/AGRIF/AGRIF_FILES/modinterpbasic.F

Timestamp:

2008-04-22T17:35:20+02:00 (16 years ago)

Author:

rblod

Message:

Correct some bugs in agrif optimization and add MPP optimization, see #42

File:

• trunk/AGRIF/AGRIF_FILES/modinterpbasic.F (modified) (2 diffs)

trunk/AGRIF/AGRIF_FILES/modinterpbasic.F

@@ -385 +385 @@
       do i = 1,nc
 C
-       y(i)=coeffparent(i,dir)*x(indparent(i,dir))+
+       y(i)=coeffparent(i,dir)*x(MAX(indparent(i,dir),1))+
      &      (1.-coeffparent(i,dir))*x(indparent(i,dir)+1)
 C
@@ -1065 +1065 @@
      &             indparentppm_1d(1:nc) + (i-1)*np
        indchildppm (1+(i-1)*nc:i*nc,dir) = 
-     &             indchildppm_1d (1:nc) + (i-1)*np
+     &             indchildppm_1d (1:nc) 
 
        End do