Commit 4d88e29c authored by Markus Pahlow's avatar Markus Pahlow

add indices for rfesed and rbfe

parent c4600751
......@@ -813,8 +813,8 @@
endif
rremife(i,k,j) = rremife(i,k,j) + bfe
# if defined O_npzd_iron_diagnostics
rfesed = fesed
rbfe = bfe
rfesed(i,k,j) = fesed
rbfe(i,k,j) = bfe
# endif
# endif
expo = expo - sgb*expo
......@@ -896,8 +896,8 @@ c & bdeni = sgbdfac*bdeni
endif
rremife(i,k,j) = rremife(i,k,j) + bfe
# if defined O_npzd_iron_diagnostics
rfesed = fesed
rbfe = bfe
rfesed(i,k,j) = fesed
rbfe(i,k,j) = bfe
# endif
# endif
expo = 0.
......
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