Changeset 493


Ignore:
Timestamp:
11/07/16 13:09:47 (8 years ago)
Author:
ymipsl
Message:

Extend checksum for parallel runs.

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/checksum.f90

    r477 r493  
    1111  SUBROUTINE checksum(field) 
    1212  USE icosa 
     13  USE mpi_mod 
     14  USE mpipara 
    1315  IMPLICIT NONE 
    1416    TYPE(t_field) :: field(:) 
    … …  
    1719    INTEGER :: ind,i,j,ij,l,k 
    1820    INTEGER :: tot_sum 
     21    INTEGER :: tot_sum_mpi(mpi_size) 
    1922         
    2023 
    … …  
    135138     
    136139!$OMP MASTER 
    137     PRINT*,"CheckSum Field : ",field(1)%name,tot_sum 
     140    CALL MPI_Gather(tot_sum,1,MPI_INTEGER,tot_sum_mpi,1,MPI_INTEGER,0,comm_icosa,ierr) 
     141    IF (mpi_rank==0) PRINT*,"CheckSum Field : ",field(1)%name,sum(tot_sum_mpi), tot_sum_mpi 
     142     
    138143!$OMP END MASTER 
    139144   
Note: See TracChangeset for help on using the changeset viewer.