Changeset 2715 for trunk/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modinterp.F

Timestamp:

2011-03-30T17:58:35+02:00 (13 years ago)

Author:

rblod

Message:

First attempt to put dynamic allocation on the trunk

File:

• trunk/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modinterp.F (modified) (25 diffs)

trunk/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modinterp.F

@@ -89 +89 @@
 C
 C     Tab is the result of the interpolation
-      childtemp % var % array1 => tab 
+      childtemp % var % parray1 => tab 
       
       childtemp % var % lb = child % var % lb
@@ -97 +97 @@
       if (torestore) then
 C 
-          childtemp % var % array1 = child % var % array1
+          childtemp % var % parray1 = child % var % array1
 C          
           childtemp % var % restore1D => child % var % restore1D
@@ -171 +171 @@
 C
 C     Tab is the result of the interpolation
-      childtemp % var % array2 => tab  
+      childtemp % var % parray2 => tab  
       
       childtemp % var % lb = child % var % lb
@@ -179 +179 @@
       if (torestore) then      
 C 
-          childtemp % var % array2 = child % var % array2          
+          childtemp % var % parray2 = child % var % array2          
 C 
           childtemp % var % restore2D => child % var % restore2D        
@@ -255 +255 @@
 C     
 C     Tab is the result of the interpolation 
-      childtemp % var % array3 => tab 
+      childtemp % var % parray3 => tab 
       
       childtemp % var % lb = child % var % lb
@@ -262 +262 @@
       if (torestore) then
 C     
-          childtemp % var % array3 = child % var % array3
+          childtemp % var % parray3 = child % var % array3
 C
           childtemp % var % restore3D => child % var % restore3D
@@ -341 +341 @@
 C      
 C     Tab is the result of the interpolation
-      childtemp % var % array4 => tab 
+      childtemp % var % parray4 => tab 
       
       childtemp % var % lb = child % var % lb
@@ -349 +349 @@
       if (torestore) then
 C 
-          childtemp % var % array4 = child % var % array4
+          childtemp % var % parray4 = child % var % array4
 C
           childtemp % var % restore4D => child % var % restore4D
@@ -428 +428 @@
 C      
 C     Tab is the result of the interpolation
-      childtemp % var % array5 => tab  
+      childtemp % var % parray5 => tab  
       
       childtemp % var % lb = child % var % lb
@@ -436 +436 @@
       if (torestore) then
 C 
-          childtemp % var % array5 = child % var % array5
+          childtemp % var % parray5 = child % var % array5
 C
           childtemp % var % restore5D => child % var % restore5D
@@ -516 +516 @@
 C      
 C     Tab is the result of the interpolation
-      childtemp % var % array6 => tab  
+      childtemp % var % parray6 => tab  
       
       childtemp % var % lb = child % var % lb
@@ -524 +524 @@
       if (torestore) then
 C 
-          childtemp % var % array6 = child % var % array6
+          childtemp % var % parray6 = child % var % array6
 C
           childtemp % var % restore6D => child % var % restore6D
@@ -835 +835 @@
 
       Call Agrif_nbdim_Full_VarEQreal(tempP%var,0.,nbdim)
-
-
 
       IF (present(procname)) THEN
@@ -894 +892 @@
 C
       Call MPI_ALLGATHER(tab3,4*nbdim,MPI_INTEGER,tab4,4*nbdim,
-     &                   MPI_INTEGER,MPI_COMM_AGRIF,code)
+     &                   MPI_INTEGER,MPI_COMM_WORLD,code)
 
       IF (.not.associated(tempPextend%var)) Allocate(tempPextend%var)
@@ -908 +906 @@
       memberin1(1) = memberin
       CALL MPI_ALLGATHER(memberin1,1,MPI_LOGICAL,memberinall,
-     &                  1,MPI_LOGICAL,MPI_COMM_AGRIF,code)
+     &                  1,MPI_LOGICAL,MPI_COMM_WORLD,code)
 
        Call Get_External_Data_first(tab4t(:,:,1),
@@ -1161 +1159 @@
            do i = pttruetab(1),cetruetab(1)         
             if (restore%var%restore1D(i) == 0)
-     &            child % var % array1(i) = 
+     &            child % var % parray1(i) = 
      &            tempC % var % array1(i)    
           enddo
@@ -1168 +1166 @@
              do i = pttruetab(1),cetruetab(1) 
               if (restore%var%restore2D(i,j) == 0)     
-     &              child % var % array2(i,j) = 
+     &              child % var % parray2(i,j) = 
      &              tempC % var % array2(i,j)    
               enddo
@@ -1177 +1175 @@
              do i = pttruetab(1),cetruetab(1) 
               if (restore%var%restore3D(i,j,k) == 0)
-     &                  child % var % array3(i,j,k) =
+     &                  child % var % parray3(i,j,k) =
      &                  tempC % var % array3(i,j,k)    
                   enddo
@@ -1188 +1186 @@
              do i = pttruetab(1),cetruetab(1)
                 if (restore%var%restore4D(i,j,k,l) == 0)
-     &                 child % var % array4(i,j,k,l) = 
+     &                 child % var % parray4(i,j,k,l) = 
      &                 tempC % var % array4(i,j,k,l)    
              enddo
@@ -1201 +1199 @@
              do i = pttruetab(1),cetruetab(1)
                 if (restore%var%restore5D(i,j,k,l,m) == 0)
-     &                  child % var % array5(i,j,k,l,m) = 
+     &                  child % var % parray5(i,j,k,l,m) = 
      &                  tempC % var % array5(i,j,k,l,m)    
              enddo
@@ -1216 +1214 @@
              do i = pttruetab(1),cetruetab(1)
                 if (restore%var%restore6D(i,j,k,l,m,n) == 0)
-     &                      child % var % array6(i,j,k,l,m,n) = 
+     &                      child % var % parray6(i,j,k,l,m,n) = 
      &                      tempC % var % array6(i,j,k,l,m,n)    
              enddo
@@ -1234 +1232 @@
           SELECT CASE (nbdim)
           CASE (1)
-            child%var%array1(childarray(1,1,2):childarray(1,2,2)) =
+            child%var%parray1(childarray(1,1,2):childarray(1,2,2)) =
      &       tempC%var%array1(childarray(1,1,1):childarray(1,2,1))
           CASE (2)
-            child%var%array2(childarray(1,1,2):childarray(1,2,2),
+            child%var%parray2(childarray(1,1,2):childarray(1,2,2),
      &                       childarray(2,1,2):childarray(2,2,2)) =
      &      tempC%var%array2(childarray(1,1,1):childarray(1,2,1),
      &                       childarray(2,1,1):childarray(2,2,1))
           CASE (3)
-            child%var%array3(childarray(1,1,2):childarray(1,2,2),
+            child%var%parray3(childarray(1,1,2):childarray(1,2,2),
      &                       childarray(2,1,2):childarray(2,2,2),
      &                       childarray(3,1,2):childarray(3,2,2)) =
@@ -1249 +1247 @@
      &                       childarray(3,1,1):childarray(3,2,1))
           CASE (4)
-            child%var%array4(childarray(1,1,2):childarray(1,2,2),
+            child%var%parray4(childarray(1,1,2):childarray(1,2,2),
      &                       childarray(2,1,2):childarray(2,2,2),
      &                       childarray(3,1,2):childarray(3,2,2),
@@ -1258 +1256 @@
      &                       childarray(4,1,1):childarray(4,2,1))
           CASE (5)
-            child%var%array5(childarray(1,1,2):childarray(1,2,2),
+            child%var%parray5(childarray(1,1,2):childarray(1,2,2),
      &                       childarray(2,1,2):childarray(2,2,2),
      &                       childarray(3,1,2):childarray(3,2,2),
@@ -1269 +1267 @@
      &                       childarray(5,1,1):childarray(5,2,1))
           CASE (6)
-            child%var%array6(childarray(1,1,2):childarray(1,2,2),
+            child%var%parray6(childarray(1,1,2):childarray(1,2,2),
      &                       childarray(2,1,2):childarray(2,2,2),
      &                       childarray(3,1,2):childarray(3,2,2),