Changeset 327 for codes/icosagcm/trunk/src/checksum.f90

Timestamp:

02/09/15 20:18:34 (9 years ago)

Author:

ymipsl

Message:

Merge recent developments from saturn branch onto trunk.

• lmdz generic physics interface
• performance improvment on mix mpi/openmp
• asynchrone and overlaping communication
• best domain distribution between process and threads
• ....

This version is compatible with the actual saturn version and the both branches are considered merged on dynamico component.

YM

File:

• codes/icosagcm/trunk/src/checksum.f90 (modified) (3 diffs)

codes/icosagcm/trunk/src/checksum.f90

@@ -14 +14 @@
     TYPE(t_field), POINTER :: field(:)
     INTEGER :: intval(2)
-    INTEGER :: ind,i,j,ij,l
+    INTEGER :: ind,i,j,ij,l,k
     INTEGER :: tot_sum
         
@@ -49 +49 @@
           ENDDO
         ENDDO
+
+      ELSE IF (field(ind)%ndim==4) THEN
+        
+        DO k=1,size(field(ind)%rval4d,3)
+          DO l=1,size(field(ind)%rval4d,2)
+            DO j=jj_begin,jj_end
+               DO i=ii_begin,ii_end
+                  ij=(j-1)*iim+i
+                  IF (domain(ind)%own(i,j)) THEN
+                    intval=transfer(field(ind)%rval4d(ij,l,k),intval,2)  
+                    tot_sum=tot_sum+intval(1)+intval(2)
+                  ENDIF
+               ENDDO
+            ENDDO
+          ENDDO
+        ENDDO
      
       ENDIF
@@ -56 +72 @@
     
 !$OMP MASTER
-    PRINT*,"CheckSum Field",field(1)%name,tot_sum
+    PRINT*,"CheckSum Field : ",field(1)%name,tot_sum
 !$OMP END MASTER