Ignore:
Timestamp:
02/08/13 12:09:35 (11 years ago)
Author:
ymipsl
Message:

Some operations must be only done by the mpi master task.

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r97 r131  
    7575 
    7676   
    77   PRINT *," Diff surf",1-tot_sum/(4*Pi*radius*radius) 
     77  IF (is_mpi_root) PRINT *," Diff surf",1-tot_sum/(4*Pi*radius*radius) 
    7878 
    7979   
    8080  CALL WriteField("Ai",geom%Ai) 
    8181!  CALL WriteField("sum_ne",sum_ne) 
    82   CALL write_apbp 
     82  IF (is_mpi_root) CALL write_apbp 
    8383  CALL init_time 
    8484  CALL timeloop 
Note: See TracChangeset for help on using the changeset viewer.