gfortran -O2 -ffree-line-length-none -I/opt/local/include -c /Users/hkershaw/DART/issues/issue_1051/DART/models/clm/dart_to_clm.f90
/Users/hkershaw/DART/issues/issue_1051/DART/models/clm/dart_to_clm.f90:706:83:
706 | zisno_po(ilevel,icolumn) = sum(dzsno_po(ilevel:nlevsno,icolumn))*-1.0_r8
| 1
Warning: Extension: Unary operator following arithmetic operator (use parentheses) at (1)
standard requires parentheses:
zisno_po(ilevel,icolumn) = sum(dzsno_po(ilevel:nlevsno,icolumn))*(-1.0_r8)
or I think you could just - the sum:
zisno_po(ilevel,icolumn) = -sum(dzsno_po(ilevel:nlevsno,icolumn))
standard requires parentheses:
zisno_po(ilevel,icolumn) = sum(dzsno_po(ilevel:nlevsno,icolumn))*(-1.0_r8)or I think you could just
-the sum:zisno_po(ilevel,icolumn) = -sum(dzsno_po(ilevel:nlevsno,icolumn))