Changeset 56


Ignore:
Timestamp:
04/05/16 17:34:22 (8 years ago)
Author:
aquiquet
Message:

Preventing Hemin40 to be very slow when using dragging_neff_contmaj

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/SOURCES/dragging_neff_contmaj_mod.f90

    r43 r56  
    242242 
    243243! aurel, we add the neff threshold: 
    244 where ((neff(:,:).le.seuil_neff).and.(.not.flot(:,:))) fleuve(:,:)=.true. 
     244where ((neff(:,:).le.seuil_neff).and.(.not.flot(:,:)).and.(H(:,:).gt.1.)) fleuve(:,:)=.true. 
    245245 
    246246do j=1,ny-1 
Note: See TracChangeset for help on using the changeset viewer.