Changeset 393

Timestamp:

06/02/16 18:56:22 (8 years ago)

Author:

ymipsl

Message:

Update_geometry bug fix : global data field value were not broadcasted from root process to others.

YM

File:

• codes/icosagcm/trunk/src/geometry.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/geometry.f90

@@ -376 +376 @@
     CALL allocate_field_glo(vertex_glo, field_z, type_real, 3)
     CALL gather_field(xyz_loc, xyz_glo)
+    CALL bcast_field(xyz_glo)
     CALL gather_field(vertex_loc, vertex_glo)
+    CALL bcast_field(vertex_glo)
     CALL deallocate_field(vertex_loc)
     CALL deallocate_field(xyz_loc)