Commit 601945e0 authored by Robin Hilgers's avatar Robin Hilgers

Include some switches in XML per default.

parent d72993ba
......@@ -182,9 +182,9 @@ CONTAINS
END IF
IF (l_nocoOpt .OR. l_explicit) THEN
160 FORMAT(' <nocoParams l_ss="', l1, '" l_mperp="', l1, '" l_constr="', l1, &
160 FORMAT(' <nocoParams l_ss="', l1, '" l_mperp="', l1,'" l_mtNocoPot="', l1,'" l_alignMT="', l1, '" l_constr="', l1, &
'" mix_b="', f0.8, '">')
WRITE (fileNum, 160) noco%l_ss, noco%l_mperp, noco%l_constr, noco%mix_b
WRITE (fileNum, 160) noco%l_ss, noco%l_mperp, noco%l_mtNocoPot,noco%l_alignMT,noco%l_constr, noco%mix_b
162 FORMAT(' <qss>', f0.10, ' ', f0.10, ' ', f0.10, '</qss>')
WRITE (fileNum, 162) noco%qss_inp
WRITE (fileNum, '(a)') ' </nocoParams>'
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment