Changeset 196 for trunk/SOURCES/relaxation_water_diffusion.f90

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

File:

• trunk/SOURCES/relaxation_water_diffusion.f90 (modified) (2 diffs)

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