Hello,
I am trying to compile RSM on NCAR Bluefire machine with the ZM2 scheme. I am getting the error messages below during the compilation of "zm_conv_driver.f".
Thank you in advance for your help,
Julia
1501-510 Compilation successful for file zm_conv.f.
sed '/<paramodel.h>/{G;s/$/#undef MP/;}' zm_conv_driver.F | sed '/<define.h>/{G;s/$/#undef MP/;}' >TEMP.F
/usr/ccs/lib/cpp -P -I../.. -I../include TEMP.F >zm_conv_driver.i
sed '/^ *$/d' zm_conv_driver.i >zm_conv_driver.f ; rm zm_conv_driver.i TEMP.F
xlf95_r -O3 -qarch=auto -qstrict -qrealsize=8 -qnosave -qmaxmem=-1 -qfixed=132 -c zm_conv_driver.f
"zm_conv_driver.f", line 196.7: 1516-025 (S) Too few subscripts specified for array state%q.
"zm_conv_driver.f", line 196.32: 1516-025 (S) Too few subscripts specified for array state%q.
"zm_conv_driver.f", line 197.20: 1516-025 (S) Too few subscripts specified for array ptend%q.
"zm_conv_driver.f", line 235.24: 1516-025 (S) Too few subscripts specified for array state%q.
"zm_conv_driver.f", line 235.40: 1516-025 (S) Too few subscripts specified for array ptend%q.
- zm_conv_driver === End of Compilation 1 ===
1501-511 Compilation failed for file zm_conv_driver.f.
make: The error code from the last command is 1.
Stop.
make: The error code from the last command is 8.
Stop.
make: The error code from the last command is 8.
Stop.
Hi Julia,
This is a compiler dependent bug. Please amend 6 parts by adding third dimension to "q" variable as below. I also committed the fixed code to cvs server. Thanks for your report.
Kei
=
diff -r1.2 zm_conv_driver.F205,206c205,206
< state%q(1:imx2,1:pver) = state%q(1:imx2,1:pver)
< 1 + ptend%q(1:imx2,1:pver) * dt2
---
- state%q(1:imx2,1:pver,1) = state%q(1:imx2,1:pver,1)
- 1 + ptend%q(1:imx2,1:pver,1) * dt2
247c247< q1(i,k) = state%q(i,kk) + ptend%q(i,kk) * dt2
---
- q1(i,k) = state%q(i,kk,1) + ptend%q(i,kk,1) * dt2
301c301< $ ptend%s(i,k)*rcp,ptend%q(i,k)
---