Changeset 1860 for LMDZ5/trunk/libf/dyn3dpar/conf_gcm.F

Timestamp:

Sep 5, 2013, 12:52:02 PM (11 years ago)

Author:

Ehouarn Millour

Message:

Implement in dyn3dpar the modifications that were made in the dyn3dmem dynamics (r1858-1859) about setting size of omp_chunk.
EM

File:

• LMDZ5/trunk/libf/dyn3dpar/conf_gcm.F (modified) (3 diffs)

LMDZ5/trunk/libf/dyn3dpar/conf_gcm.F

@@ -16 +16 @@
       use mod_filtre_fft, ONLY : use_filtre_fft
       use mod_hallo, ONLY : use_mpi_alloc
-      USE parallel_lmdz, ONLY : omp_chunk
       USE infotrac, ONLY : type_trac
       use assert_m, only: assert
@@ -906 +905 @@
       use_mpi_alloc=.FALSE.
       CALL getin('use_mpi_alloc',use_mpi_alloc)
-
-!Config  Key  = omp_chunk
-!Config  Desc = taille des blocs openmp
-!Config  Def  = 1
-!Config  Help = defini la taille des packets d'it�ration openmp
-!Config         distribu�e � chaque t�che lors de l'entr�e dans une
-!Config         boucle parall�lis�e
-  
-      omp_chunk=1
-      CALL getin('omp_chunk',omp_chunk)
 
 !Config key = ok_strato
@@ -1004 +993 @@
       write(lunout,*)' use_filtre_fft = ', use_filtre_fft
       write(lunout,*)' use_mpi_alloc = ', use_mpi_alloc
-      write(lunout,*)' omp_chunk = ', omp_chunk
       write(lunout,*)' ok_strato = ', ok_strato
       write(lunout,*)' ok_gradsfile = ', ok_gradsfile