Changeset 285 for trunk/SOURCES/steps_time_loop.f90

Timestamp:

10/16/19 16:19:42 (5 years ago)

Author:

aquiquet

Message:

Small modifications for gfortran enabled compilations

File:

• trunk/SOURCES/steps_time_loop.f90 (modified) (1 diff)

trunk/SOURCES/steps_time_loop.f90

@@ -74 +74 @@
      ! calcul de Hmx et Hmy -> shift=-1, dim=1 -> H(i-1,j)
 
-     hmx(:,:)=0.5*(H(:,:)+eoshift(H(:,:),shift=-1,boundary=0.,dim=1))
-     hmy(:,:)=0.5*(H(:,:)+eoshift(H(:,:),shift=-1,boundary=0.,dim=2))
+     hmx(:,:)=0.5*(H(:,:)+eoshift(H(:,:),shift=-1,boundary=0d0,dim=1))
+     hmy(:,:)=0.5*(H(:,:)+eoshift(H(:,:),shift=-1,boundary=0d0,dim=2))
      hmx(1,:)=0.
      hmy(:,1)=0.