1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
Description: Fixes for gfortran-10 transition
Promote some arrays from REAL(4) to REAL(8) to agree with interfaces
Author: Alastair McKinstry <mckinstry@debian.org>
Last-Updated: 2020-04-23
Forwarded: no
Index: flexpart-9.02/readwind_gfs.f90
===================================================================
--- flexpart-9.02.orig/readwind_gfs.f90
+++ flexpart-9.02/readwind_gfs.f90
@@ -95,7 +95,7 @@ subroutine readwind(indj,n,uuh,vvh,wwh)
real(kind=4) :: xaux,yaux,xaux0,yaux0
real(kind=8) :: xauxin,yauxin
real,parameter :: eps=1.e-4
- real(kind=4) :: ewss(0:nxmax-1,0:nymax-1),nsss(0:nxmax-1,0:nymax-1)
+ real(kind=8) :: ewss(0:nxmax-1,0:nymax-1),nsss(0:nxmax-1,0:nymax-1)
real :: plev1,hlev1,ff10m,fflev1
logical :: hflswitch,strswitch
Index: flexpart-9.02/readwind.f90
===================================================================
--- flexpart-9.02.orig/readwind.f90
+++ flexpart-9.02/readwind.f90
@@ -74,9 +74,9 @@ subroutine readwind(indj,n,uuh,vvh,wwh)
integer :: gotGrid
!HSO end
- real(kind=4) :: uuh(0:nxmax-1,0:nymax-1,nuvzmax)
- real(kind=4) :: vvh(0:nxmax-1,0:nymax-1,nuvzmax)
- real(kind=4) :: wwh(0:nxmax-1,0:nymax-1,nwzmax)
+ real(kind=8) :: uuh(0:nxmax-1,0:nymax-1,nuvzmax)
+ real(kind=8) :: vvh(0:nxmax-1,0:nymax-1,nuvzmax)
+ real(kind=8) :: wwh(0:nxmax-1,0:nymax-1,nwzmax)
integer :: indj,i,j,k,n,levdiff2,ifield,iumax,iwmax
! VARIABLES AND ARRAYS NEEDED FOR GRIB DECODING
@@ -92,7 +92,7 @@ subroutine readwind(indj,n,uuh,vvh,wwh)
real(kind=4) :: xaux,yaux,xaux0,yaux0
real(kind=8) :: xauxin,yauxin
real,parameter :: eps=1.e-4
- real(kind=4) :: nsss(0:nxmax-1,0:nymax-1),ewss(0:nxmax-1,0:nymax-1)
+ real(kind=8) :: nsss(0:nxmax-1,0:nymax-1),ewss(0:nxmax-1,0:nymax-1)
real :: plev1,pmean,tv,fu,hlev1,ff10m,fflev1
logical :: hflswitch,strswitch
|
