Changeset 73 for trunk/SOURCES/deformation_mod_2lois.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/deformation_mod_2lois.f90 (modified) (1 diff)

trunk/SOURCES/deformation_mod_2lois.f90

@@ -468 +468 @@
 !debug_3d(:,:,90+iiglen-1) = s2a(:,:,1,iiglen)
 
-
-!~   ! 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 flowlaw