Changeset 285 for trunk/SOURCES/resol_adv_diff_2D-sept2009.f90

Timestamp:

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

Author:

aquiquet

Message:

Small modifications for gfortran enabled compilations

File:

• trunk/SOURCES/resol_adv_diff_2D-sept2009.f90 (modified) (1 diff)

trunk/SOURCES/resol_adv_diff_2D-sept2009.f90

@@ -143 +143 @@
 !$OMP WORKSHARE
 ! calcul de bdx et hdx
-hdx(:,:)=dx1*(vieuxH(:,:)-eoshift(vieuxH(:,:),shift=-1,boundary=0.,dim=1))
-hdy(:,:)=dx1*(vieuxH(:,:)-eoshift(vieuxH(:,:),shift=-1,boundary=0.,dim=2))
-bdx(:,:)=dx1*(B(:,:)-eoshift(B(:,:),shift=-1,boundary=0.,dim=1))
-bdy(:,:)=dx1*(B(:,:)-eoshift(B(:,:),shift=-1,boundary=0.,dim=2))
+hdx(:,:)=dx1*(vieuxH(:,:)-eoshift(vieuxH(:,:),shift=-1,boundary=0d0,dim=1))
+hdy(:,:)=dx1*(vieuxH(:,:)-eoshift(vieuxH(:,:),shift=-1,boundary=0d0,dim=2))
+bdx(:,:)=dx1*(B(:,:)-eoshift(B(:,:),shift=-1,boundary=0d0,dim=1))
+bdy(:,:)=dx1*(B(:,:)-eoshift(B(:,:),shift=-1,boundary=0d0,dim=2))