Changeset 196

Timestamp:

06/21/18 18:26:11 (6 years ago)

Author:

aquiquet

Message:

Small changes to make the model compatible with the ifort fpe0 flag

Location:

trunk/SOURCES

Files:

• eaubasale-0.5_mod.f90 (modified) (2 diffs)
• relaxation_water_diffusion.f90 (modified) (2 diffs)

trunk/SOURCES/eaubasale-0.5_mod.f90

@@ -113 +113 @@
 kondmax   = 1.*SECYEAR 
 hdotwater(:,:)=0.
-
+keff(:,:) = kond(:,:)
+pgx(:,:) = 0.
+pgy(:,:) = 0.
 
 NXlocal=NX
@@ -211 +213 @@
      do j=2,ny
         do i=2,nx
-           if (H(i,j).gt.25.) then
+           if (H(i,j).gt.25.) then !afq: pourquoi GT 25 ??? a tester avec des valeurs plus petites
               !           calcul du gradient de pression
               if (flotmx(i,j)) then 

trunk/SOURCES/relaxation_water_diffusion.f90

@@ -107 +107 @@
 
 !$OMP WORKSHARE
+  deltah(:,:)=0.
   arelax(:,:)=0.
   brelax(:,:)=0.
@@ -114 +115 @@
   frelax(:,:)=limit_hw(:,:)
 !$OMP END WORKSHARE
+  reste      =0.
 
 !$OMP DO