Changeset 1683

Timestamp:

Mar 31, 2017, 4:42:30 PM (8 years ago)

Author:

emillour

Message:

Dynamical core:
Enable having a minimum of 2 points per latitude band (i.e. MPI tile). Was already possible but the sanity checks were set on a minimum of 3 points per latitude band.
EM

Location:

trunk/LMDZ.COMMON/libf/dyn3dpar

Files:

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

trunk/LMDZ.COMMON/libf/dyn3dpar/bands.F90

@@ -183 +183 @@
         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
@@ -249 +249 @@
         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

trunk/LMDZ.COMMON/libf/dyn3dpar/parallel_lmdz.F90

@@ -121 +121 @@
         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)."