Commit 30a3f7ef authored by Gregor Michalicek's avatar Gregor Michalicek

Fixed incorrect force contribution A21

The error was due to an unintended swapping of
tdu with tud in write_tlmplm.
parent b97c83d0
......@@ -45,8 +45,8 @@ CONTAINS
ENDIF
td_stored%tuu(:,:,jspin) = td%tuu(:,:,ispin)
td_stored%tud(:,:,jspin) = td%tdu(:,:,ispin)
td_stored%tdu(:,:,jspin) = td%tud(:,:,ispin)
td_stored%tud(:,:,jspin) = td%tud(:,:,ispin)
td_stored%tdu(:,:,jspin) = td%tdu(:,:,ispin)
td_stored%tdd(:,:,jspin) = td%tdd(:,:,ispin)
td_stored%tdulo(:,:,:,jspin) = td%tdulo(:,:,:,ispin)
......
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