Changeset 2875 for LMDZ5/branches/IPSLCM5A2.1/libf/dyn3dmem/bands.F90
- Timestamp:
- May 10, 2017, 1:19:42 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/IPSLCM5A2.1/libf/dyn3dmem/bands.F90
r2351 r2875 219 219 minvalue=value(i) 220 220 min_proc=index(i) 221 if (jj_nb_caldyn(max_proc)> 3) then221 if (jj_nb_caldyn(max_proc)>2) then 222 222 if (timer_iteration(jj_nb_caldyn(min_proc)+1,timer_caldyn,min_proc)<=1 ) then 223 223 jj_nb_caldyn(min_proc)=jj_nb_caldyn(min_proc)+1 … … 287 287 min_proc=index(i) 288 288 289 if (jj_nb_vanleer(max_proc)> 3) then289 if (jj_nb_vanleer(max_proc)>2) then 290 290 if (timer_average(jj_nb_vanleer(min_proc)+1,timer_vanleer,min_proc)==0. .or. & 291 291 timer_average(jj_nb_vanleer(max_proc)-1,timer_vanleer,max_proc)==0.) then
Note: See TracChangeset
for help on using the changeset viewer.