<html xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:st1="urn:schemas-microsoft-com:office:smarttags" xmlns="http://www.w3.org/TR/REC-html40"
xmlns:ns1="" xmlns:ns0="urn:schemas-microsoft-com:office:smarttags">
<head>
<meta http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<meta name=Generator content="Microsoft Word 11 (filtered medium)">
<o:SmartTagType namespaceuri="urn:schemas-microsoft-com:office:smarttags"
name="place"/>
<o:SmartTagType namespaceuri="urn:schemas-microsoft-com:office:smarttags"
name="metricconverter"/>
<!--[if !mso]>
<style>
st1\:*{behavior:url(#default#ieooui) }
</style>
<![endif]-->
<style>
<!--
/* Font Definitions */
@font-face
{font-family:Courier;
panose-1:2 7 4 9 2 2 5 2 4 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman";}
a:link, span.MsoHyperlink
{color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{color:purple;
text-decoration:underline;}
p.MsoAutoSig, li.MsoAutoSig, div.MsoAutoSig
{mso-margin-top-alt:auto;
margin-right:0cm;
mso-margin-bottom-alt:auto;
margin-left:0cm;
font-size:12.0pt;
font-family:"Times New Roman";}
span.EmailStyle17
{mso-style-type:personal-compose;
font-family:Arial;
color:windowtext;}
@page Section1
{size:595.3pt 841.9pt;
margin:70.85pt 70.85pt 70.85pt 70.85pt;}
div.Section1
{page:Section1;}
-->
</style>
</head>
<body lang=FR link=blue vlink=purple>
<div class=Section1>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>Hello dear wrf users,<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-GB style='font-size:
10.0pt;font-family:Arial'>I’ve got an F90 syntax error while compiling <b><span
style='font-weight:bold'>WRF 3.1.1</span></b> with the <b><span
style='font-weight:bold'>grib2</span></b> option on a <b><span
style='font-weight:bold'>x86_64 GNU/Linux</span></b> machine using the <b><span
style='font-weight:bold'>gfortran</span></b> compiler<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-GB style='font-size:
10.0pt;font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-GB style='font-size:
10.0pt;font-family:Arial'>It compiles OK with the ifort compiler.<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-GB style='font-size:
10.0pt;font-family:Arial'>It is a known error with gfortran : when you try to
define an allocatable variable inside a TYPE definition.<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-GB style='font-size:
10.0pt;font-family:Arial'>I had a look at the io_grib2. file but it looks quite
hard to modify in a simple way the fortran source to get rid of the error<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-GB style='font-size:
10.0pt;font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-GB style='font-size:
10.0pt;font-family:Arial'>Did anybody have the same problem and fixed it?<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-GB style='font-size:
10.0pt;font-family:Arial'> - Using another version of gfortran?<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-GB style='font-size:
10.0pt;font-family:Arial'> - Modifying the io_grib2.F file?<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-GB style='font-size:
10.0pt;font-family:Arial'> - Through other means???<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-GB style='font-size:
10.0pt;font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-GB style='font-size:
10.0pt;font-family:Arial'>Thanks a lot <o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-GB style='font-size:
10.0pt;font-family:Arial'>---------------------------------------------------------------------------------------------------------------------------------------------------<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-GB style='font-size:
10.0pt;font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><b><u><font size=2 face=Arial><span lang=EN-GB
style='font-size:10.0pt;font-family:Arial;font-weight:bold'>Here is the
configuration/version obtained with the gfortran –v instruction:<o:p></o:p></span></font></u></b></p>
<p class=MsoNormal><font size=2 face=Courier><span lang=EN-GB style='font-size:
10.0pt;font-family:Courier'>Target: x86_64-redhat-linux5E<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Courier><span lang=EN-GB style='font-size:
10.0pt;font-family:Courier'>Configured with: ../configure --prefix=/usr
--mandir=/usr/share/man --infodir=/usr/share/info --enable-shared
--enable-threads=posix --enable-checking=release --with-system-zlib
--enable-__cxa_atexit --disable-libunwind-exceptions --with-gxx-include-dir=/usr/include/c++/3.4.3
--enable-libgcj-multifile --enable-languages=c,c++,java,f95
--enable-java-awt=gtk --disable-dssi
--with-java-home=/usr/lib/jvm/java-1.4.2-gcj-1.4.2.0/jre --with-cpu=generic
--host=x86_64-redhat-linux5E<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Courier><span lang=EN-GB style='font-size:
10.0pt;font-family:Courier'>Thread model: posix<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Courier><span lang=EN-GB style='font-size:
10.0pt;font-family:Courier'>gcc version 4.1.2 20080704 (Red Hat 4.1.2-44)<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Courier><span lang=EN-GB style='font-size:
10.0pt;font-family:Courier'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-GB style='font-size:
10.0pt;font-family:Arial'>---------------------------------------------------------------------------------------------------------------------------------------------------<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-GB style='font-size:
10.0pt;font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><b><u><font size=2 face=Arial><span lang=EN-GB
style='font-size:10.0pt;font-family:Arial;font-weight:bold'>Here is the
extraction from compilation listing :<o:p></o:p></span></font></u></b></p>
<p class=MsoNormal><font size=2 face=Courier><span lang=EN-GB style='font-size:
10.0pt;font-family:Courier'>gfortran -I. -w -ffree-form
-ffree-line-length-none -fconvert=big-endian -frecord-marker=4 -<st1:place
w:st="on">I.</st1:place> -Ig2lib -Ibacio-1.3 -I../io_grib_share -c
grib2tbls_types.f90<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Courier><span lang=EN-GB style='font-size:
10.0pt;font-family:Courier'>rm -f io_grib2.o<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Courier><span lang=EN-GB style='font-size:
10.0pt;font-family:Courier'>/lib/cpp -C -P -traditional -I. -Ig2lib
-Ibacio-1.3 -I../io_grib_share io_grib2.F > io_grib2.f90<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Courier><span lang=EN-GB style='font-size:
10.0pt;font-family:Courier'>gfortran -I. -w -ffree-form
-ffree-line-length-none -fconvert=big-endian -frecord-marker=4 -<st1:place
w:st="on">I.</st1:place> -Ig2lib -Ibacio-1.3 -I../io_grib_share -c
io_grib2.f90<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Courier><span lang=EN-GB style='font-size:
10.0pt;font-family:Courier'> In file io_grib2.f90:78<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Courier><span lang=EN-GB style='font-size:
10.0pt;font-family:Courier'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Courier><span lang=EN-GB style='font-size:
10.0pt;font-family:Courier'> character (DateStrLen),
dimension(:),allocatable :: Times(:)<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Courier><span lang=EN-GB style='font-size:
10.0pt;font-family:Courier'>
1<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Courier><span lang=EN-GB style='font-size:
10.0pt;font-family:Courier'>Error: Attribute at (1) is not allowed in a TYPE
definition<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Courier><span lang=EN-GB style='font-size:
10.0pt;font-family:Courier'> In file io_grib2.f90:109<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Courier><span lang=EN-GB style='font-size:
10.0pt;font-family:Courier'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Courier><span lang=EN-GB style='font-size:
10.0pt;font-family:Courier'>make[4]: [io_grib2.o] Error 1 (ignored)<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-GB style='font-size:
10.0pt;font-family:Arial'>---------------------------------------------------------------------------------------------------------------------------------------------------<o:p></o:p></span></font></p>
<p class=MsoNormal><b><u><font size=2 face=Arial><span lang=EN-GB
style='font-size:10.0pt;font-family:Arial;font-weight:bold'>Io_grib2.f90
extract :<o:p></o:p></span></font></u></b></p>
<p class=MsoNormal><font size=2 face=Courier><span lang=EN-GB style='font-size:
10.0pt;font-family:Courier'> TYPE :: HandleVar<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Courier><span lang=EN-GB style='font-size:
10.0pt;font-family:Courier'> character, dimension(:), pointer ::
fileindex(:)<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Courier><span lang=EN-GB style='font-size:
10.0pt;font-family:Courier'> integer ::
CurrentTime<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Courier><span lang=EN-GB style='font-size:
10.0pt;font-family:Courier'> integer ::
NumberTimes<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Courier><span lang=EN-GB style='font-size:
10.0pt;font-family:Courier'> integer ::
sizeAllocated = 0<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Courier><span lang=EN-GB style='font-size:
10.0pt;font-family:Courier'> logical :: write
= .FALSE.<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Courier><span lang=EN-GB style='font-size:
10.0pt;font-family:Courier'> character (DateStrLen),
dimension(:),allocatable :: Times(:) !!!!!!!!!!!!!! here is the problem !!<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Courier><span lang=EN-GB style='font-size:
10.0pt;font-family:Courier'> logical ::
committed, opened, used<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Courier><span lang=EN-GB style='font-size:
10.0pt;font-family:Courier'> character*128 ::
DataFile<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Courier><span lang=EN-GB style='font-size:
10.0pt;font-family:Courier'> integer ::
FileFd<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Courier><span lang=EN-GB style='font-size:
10.0pt;font-family:Courier'> integer ::
FileStatus<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Courier><span lang=EN-GB style='font-size:
10.0pt;font-family:Courier'> integer ::
recnum<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Courier><span lang=EN-GB style='font-size:
10.0pt;font-family:Courier'> real ::
last_scalar_time_written<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Courier><span lang=EN-GB style='font-size:
10.0pt;font-family:Courier'> ENDTYPE<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Courier><span lang=EN-GB style='font-size:
10.0pt;font-family:Courier'> TYPE (HandleVar), dimension(maxFileHandles),SAVE
:: fileinfo<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-GB style='font-size:
10.0pt;font-family:Arial'>---------------------------------------------------------------------------------------------------------------------------------------------------<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-GB style='font-size:
10.0pt;font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-GB style='font-size:
10.0pt;font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-GB style='font-size:
10.0pt;font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>Best regards</span></font><o:p></o:p></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'> <o:p></o:p></span></font></p>
<p class=MsoAutoSig style='margin:0cm;margin-bottom:.0001pt'><b><i><font
size=2 color="#3366ff" face=Arial><span style='font-size:10.0pt;font-family:
Arial;color:#3366FF;font-weight:bold;font-style:italic'>Thierry HEDDE</span></font></i></b><b><font
color="#33cccc" face=Arial><span style='font-family:Arial;color:#33CCCC;
font-weight:bold'><o:p></o:p></span></font></b></p>
<p class=MsoAutoSig style='margin:0cm;margin-bottom:.0001pt'><b><i><font
size=2 color="#3366ff" face=Arial><span style='font-size:10.0pt;font-family:
Arial;color:#3366FF;font-weight:bold;font-style:italic'>Laboratoire de
Modélisation des Transferts dans l'Environnement</span></font></i></b><b><font
color="#33cccc" face=Arial><span style='font-family:Arial;color:#33CCCC;
font-weight:bold'><o:p></o:p></span></font></b></p>
<p class=MsoAutoSig style='margin:0cm;margin-bottom:.0001pt'><b><font size=2
color="#33cccc" face=Arial><span style='font-size:10.0pt;font-family:Arial;
color:#33CCCC;font-weight:bold'>CEA/CADARACHE<o:p></o:p></span></font></b></p>
<p class=MsoAutoSig style='margin:0cm;margin-bottom:.0001pt'><b><font size=2
color="#33cccc" face=Arial><span style='font-size:10.0pt;font-family:Arial;
color:#33CCCC;font-weight:bold'>DEN/DTN/SMTM/LMTE</span></font></b><b><font
color="#33cccc" face=Arial><span style='font-family:Arial;color:#33CCCC;
font-weight:bold'><o:p></o:p></span></font></b></p>
<p class=MsoAutoSig style='margin:0cm;margin-bottom:.0001pt'><b><font size=2
color="#33cccc" face=Arial><span style='font-size:10.0pt;font-family:Arial;
color:#33CCCC;font-weight:bold'>Bât. 307 Pièce 69</span></font></b><o:p></o:p></p>
<p class=MsoAutoSig style='margin:0cm;margin-bottom:.0001pt'><b><font size=2
face=Arial><span style='font-size:10.0pt;font-family:Arial;font-weight:bold'><ns0:metricconverter
w:insAuthor="CEA" w:insDate="2009-10-01T15:41:00Z" w:endInsAuthor="CEA"
w:endInsDate="2009-10-01T15:41:00Z" ns1:ProductID="13108 ST"><font
color="#33cccc"><span style='color:#33CCCC'>13108 ST</span></font></ns0:metricconverter><font
color="#33cccc"><span style='color:#33CCCC'> PAUL LEZ DURANCE CEDEX</span></font></span></font></b><o:p></o:p></p>
<p class=MsoAutoSig style='margin:0cm;margin-bottom:.0001pt'><b><font size=2
color="#33cccc" face=Arial><span style='font-size:10.0pt;font-family:Arial;
color:#33CCCC;font-weight:bold'>FRANCE</span></font></b><o:p></o:p></p>
<p class=MsoAutoSig style='margin:0cm;margin-bottom:.0001pt'><font size=3
face="Times New Roman"><span style='font-size:12.0pt'> </span></font><b><font
size=2 color="#33cccc" face=Arial><span style='font-size:10.0pt;font-family:
Arial;color:#33CCCC;font-weight:bold'><o:p></o:p></span></font></b></p>
<p class=MsoAutoSig style='margin:0cm;margin-bottom:.0001pt'><b><i><font
size=2 color="#33cccc" face=Arial><span style='font-size:10.0pt;font-family:
Arial;color:#33CCCC;font-weight:bold;font-style:italic'>Tél : 0(0 33)4 42 25 38
41</span></font></i></b><o:p></o:p></p>
<p class=MsoAutoSig style='margin:0cm;margin-bottom:.0001pt'><b><i><font
size=2 color="#33cccc" face=Arial><span style='font-size:10.0pt;font-family:
Arial;color:#33CCCC;font-weight:bold;font-style:italic'>Secr : 0(0 33)4 42
25 70 10</span></font></i></b><o:p></o:p></p>
<p class=MsoAutoSig style='margin:0cm;margin-bottom:.0001pt'><b><font size=2
color="#33cccc" face=Arial><span style='font-size:10.0pt;font-family:Arial;
color:#33CCCC;font-weight:bold'>Fax : 0<em><i><font face=Arial><span
style='font-family:Arial'>(0 33)</span></font></i></em>4 42 25 62 72</span></font></b><o:p></o:p></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'><o:p> </o:p></span></font></p>
</div>
</body>
</html>