Changeset 472 for codes/icosagcm/trunk/src/physics_interface.f90
- Timestamp:
- 09/05/16 14:59:46 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/physics_interface.f90
r381 r472 26 26 27 27 TYPE(t_physics_inout), SAVE :: physics_inout 28 !$OMP THREADPRIVATE(physics_inout) 28 29 29 30 ! pack_info contains indices used by pack/unpack routines … … 39 40 40 41 TYPE(t_pack_info), ALLOCATABLE, SAVE :: pack_info(:) 41 42 !$OMP THREADPRIVATE(pack_info) 43 44 42 45 INTERFACE pack_field 43 46 MODULE PROCEDURE pack_2D … … 76 79 IMPLICIT NONE 77 80 INTEGER :: ind, offset 78 !$OMP MASTER 81 79 82 offset=0 80 83 ALLOCATE(pack_info(ndomain)) 81 84 DO ind=1,ndomain 85 IF (.NOT. assigned_domain(ind)) CYCLE 82 86 CALL swap_dimensions(ind) 83 87 CALL swap_geometry(ind) … … 87 91 END DO 88 92 physics_inout%ngrid = offset 89 !$OMP END MASTER 90 !$OMP BARRIER 93 91 94 END SUBROUTINE init_pack_before 92 95
Note: See TracChangeset
for help on using the changeset viewer.