Changeset 131 for codes/icosagcm/trunk/src/advect_tracer.f90

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:

• codes/icosagcm/trunk/src/advect_tracer.f90 (modified) (2 diffs)

codes/icosagcm/trunk/src/advect_tracer.f90

@@ -37 +37 @@
     USE advect_mod
     USE disvert_mod
+    USE mpipara
     IMPLICIT NONE
     TYPE(t_field),POINTER :: f_ps(:)
@@ -135 +136 @@
 
     IF ( iadvtr == iapp_tracvl ) THEN 
-       PRINT *, 'Advection scheme'
+       IF (is_mpi_root) PRINT *, 'Advection scheme'
        bigt = dt*iapp_tracvl
        DO ind=1,ndomain