Changeset 2771 for LMDZ5/trunk/libf

Timestamp:

Jan 24, 2017, 3:29:24 PM (8 years ago)

Author:

Laurent Fairhead

Message:

Modifications to allow MPI domain partition on 2 latitude bands
rather than 3
LF

Location:

LMDZ5/trunk/libf/dyn3dmem

Files:

• bands.F90 (modified) (2 diffs)
• parallel_lmdz.F90 (modified) (1 diff)

LMDZ5/trunk/libf/dyn3dmem/bands.F90

@@ -219 +219 @@
         minvalue=value(i)
         min_proc=index(i)
-        if (jj_nb_caldyn(max_proc)>3) then
+        if (jj_nb_caldyn(max_proc)>2) then
           if (timer_iteration(jj_nb_caldyn(min_proc)+1,timer_caldyn,min_proc)<=1 ) then
              jj_nb_caldyn(min_proc)=jj_nb_caldyn(min_proc)+1
@@ -287 +287 @@
         min_proc=index(i)
 
-        if (jj_nb_vanleer(max_proc)>3) then
+        if (jj_nb_vanleer(max_proc)>2) then
           if (timer_average(jj_nb_vanleer(min_proc)+1,timer_vanleer,min_proc)==0. .or. &
              timer_average(jj_nb_vanleer(max_proc)-1,timer_vanleer,max_proc)==0.) then

LMDZ5/trunk/libf/dyn3dmem/parallel_lmdz.F90

@@ -154 +154 @@
         if ( i < MOD((jjm+1),mpi_size) ) jj_nb_para(i)=jj_nb_para(i)+1
         
-        if (jj_nb_para(i) <= 2 ) then
+        if (jj_nb_para(i) <= 1 ) then
           
          write(lunout,*)"Arret : le nombre de bande de lattitude par process est trop faible (<2)."