Changeset 257

Timestamp:

06/11/19 17:51:49 (5 years ago)

Author:

dumas

Message:

Possibility to use a continuous beta inversion inspired by Pollard

File:

• trunk/SOURCES/Draggings_modules/beta_iter_vitbil_mod.f90 (modified) (1 diff)

trunk/SOURCES/Draggings_modules/beta_iter_vitbil_mod.f90

@@ -158 +158 @@
 ! calcul des vitesses cibles :
 !if ((time.eq.time_iter).and.(time.gt.time_reiter).and.(m_iter.eq.1)) then
+! Si time > time_reiter => recalcul des vitesses de bilan (methode inspiree de Pollard)
 if ((abs(time-time_iter).lt.dtmin).and.(time.gt.time_reiter).and.(m_iter.eq.1)) then
   Umag_direct(:,:)    = (((uxbar(:,:)+eoshift(uxbar(:,:),shift=1,boundary=0.,dim=1))**2+ &        ! moyenne