1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
AUthor: Alastair McKinstry <mckinstry@debian.org>
Description: Fix compile error on gfortran 7.2 with different sized-strings
Last-Updated: 2017-12-13
Forwarded: no
--- a/src/modcdfnames_CMIP6.h90
+++ b/src/modcdfnames_CMIP6.h90
@@ -166,11 +166,11 @@
INTEGER(KIND=4) :: nn_sqdvar = 4
INTEGER(KIND=4), PRIVATE :: ji
CHARACTER(LEN=15), DIMENSION(jp_sqdvarmax) :: cn_sqdvar = &
- & (/'uo','vo','wo','zos',(' ', ji=jp_sqdvarmax-5,jp_sqdvarmax) /)
+ & (/'uo ','vo ','wo ','zos',(' ', ji=jp_sqdvarmax-5,jp_sqdvarmax) /)
! variables eligible for 3rd moment computation when performing cdfmoy
INTEGER(KIND=4), PARAMETER :: jp_cubvarmax=10
INTEGER(KIND=4) :: nn_cubvar = 2
CHARACTER(LEN=15), DIMENSION(jp_cubvarmax) :: cn_cubvar = &
- & (/'zos','thetao',(' ', ji=3,jp_cubvarmax) /)
+ & (/'zos ','thetao',(' ', ji=3,jp_cubvarmax) /)
|
