Changeset 73 for trunk/SOURCES/flottab2-0.7.f90

Timestamp:

06/22/16 15:43:40 (8 years ago)

Author:

dumas

Message:

OpenMP parallelization in Temperature-routines, deformation_mod_2lois and resol_adv_diff_2D-sept2009

File:

• trunk/SOURCES/flottab2-0.7.f90 (modified) (2 diffs)

trunk/SOURCES/flottab2-0.7.f90

@@ -105 +105 @@
 
 
-!~   integer :: t1,t2,ir
-!~   real                           :: temps, t_cpu_0, t_cpu_1, t_cpu, norme  
-  
-!~    ! Temps CPU de calcul initial.
-!~    call cpu_time(t_cpu_0)
-!~    ! Temps elapsed de reference.
-!~    call system_clock(count=t1, count_rate=ir)
-
 
 if (itracebug.eq.1)  call tracebug(' Entree dans routine flottab')
@@ -725 +717 @@
 !fin de routine flottab2
 !print*, 'front',front(50,30),ice(50,30),flotmx(i,j),uxbar(i,j)
-
-!~   ! Temps elapsed final
-!~   call system_clock(count=t2, count_rate=ir)
-!~   temps=real(t2 - t1,kind=4)/real(ir,kind=4)
-!~   ! Temps CPU de calcul final
-!~   call cpu_time(t_cpu_1)
-!~   t_cpu = t_cpu_1 - t_cpu_0
- 
-!~   ! Impression du resultat.
-!~   print '(//,3X,"Valeurs de nx et ny : ",I5,I5/,              &
-!~            & 3X,"Temps elapsed       : ",1PE10.3," sec.",/, &
-!~            & 3X,"Temps CPU           : ",1PE10.3," sec.",/, &
-!~            & 3X,"Norme (PB si /= 0)  : ",1PE10.3,//)', &
-!~            nx,ny,temps,t_cpu,norme
 
 end subroutine flottab