Changeset 169

Timestamp:

12/13/17 18:17:17 (6 years ago)

Author:

dumas

Message:

iter_beta flag is obsolete now

Location:

trunk/SOURCES

Files:

• New-remplimat/remplimat-shelves-tabTu.f90 (modified) (2 diffs)
• flottab2-0.7.f90 (modified) (1 diff)

trunk/SOURCES/New-remplimat/remplimat-shelves-tabTu.f90

@@ -165 +165 @@
 ! devrait plutot etre fait dans dragging
 !------------------------------------------
-if (iter_beta.eq.0) then
- call limit_frotm
-else
-   !$OMP PARALLEL
-   !$OMP WORKSHARE
-   frotmx(:,:)= betamx(:,:)
-   frotmy(:,:)= betamy(:,:)
-   !$OMP END WORKSHARE
-   !$OMP END PARALLEL
-end if
-
+call limit_frotm
 
 
@@ -239 +229 @@
 !!$end do
 
-
-if (iter_beta.eq.1) then
-        call calc_beta(Vcol_x, Vcol_y) 
-        fileout='beta-estime.dat'
-        call write_datfile3(nx,ny,betamx,betamy,beta_centre,fileout)
-        if (itracebug.eq.1)  call tracebug(' remplimat apres calc_beta')
-        iter_beta = 0             ! pour faire un calcul de vitesse le coup d'apres
-        corr_def = .true.
-        goto 888
-
-else if ((iter_beta.eq.0).and.(corr_def)) then
-      call calc_beta(Vsl_x, Vsl_y) 
-endif
-
-   if (itracebug.eq.1) write(num_tracebug,*) 'iter_beta, corr_deff',iter_beta, corr_def
 
 !!$do j=ny1,ny2

trunk/SOURCES/flottab2-0.7.f90

@@ -496 +496 @@
     ! 5- calcule les noeuds qui sont streams a l'interieur et donne le betamx et betamy
     !----------------------------------------------------------------------------------
-    if (iter_beta.eq.0) then
-       Call dragging          
-    endif
+    call dragging          
+    
     if (itracebug.eq.1)  call tracebug(' routine flottab apres call dragging')
 !!$call detect_assym(nx,ny,0,41,1,0,1,0,H,itestf)