Changeset 1848 for LMDZ5/trunk/libf/dyn3dmem/write_field_loc.F90

Timestamp:

Aug 23, 2013, 2:20:58 PM (11 years ago)

Author:

yann meurdesoif

Message:

Solve performance problem comming from declarations of a derived type.

YM

File:

• LMDZ5/trunk/libf/dyn3dmem/write_field_loc.F90 (modified) (4 diffs)

LMDZ5/trunk/libf/dyn3dmem/write_field_loc.F90

@@ -45 +45 @@
     real, allocatable,SAVE :: New_Field(:,:,:)
     integer,dimension(0:mpi_size-1) :: jj_nb_master
-    type(Request) :: Request_write
+    type(Request),SAVE :: Request_write
+!$OMP THREADPRIVATE(Request_write)
     integer :: ll,i
     
@@ -61 +62 @@
       New_Field(:,jj_begin:jj_end,i)=reshape(Field(ij_begin:ij_end,i),(/iip1,jj_nb/))
     ENDDO
-    
+!$OMP BARRIER    
     call Register_SwapField(new_field,new_field,ip1jmp1,ll,jj_Nb_master,Request_write)
     call SendRequest(Request_write)
@@ -109 +110 @@
     real, allocatable,SAVE :: New_Field(:,:,:)
     integer,dimension(0:mpi_size-1) :: jj_nb_master
-    type(Request) :: Request_write
+    type(Request),SAVE :: Request_write
+!$OMP THREADPRIVATE(Request_write)    
     integer :: ll,i,jje,ije,jjn
     
@@ -136 +138 @@
       New_Field(:,jj_begin:jje,i)=reshape(Field(ij_begin:ije,i),(/iip1,jjn/))
     ENDDO
-    
+!$OMP BARRIER    
     call Register_SwapField(new_field,new_field,ip1jm,ll,jj_Nb_master,Request_write)
     call SendRequest(Request_write)