Skip to content

Commit da4f6c2

Browse files
committed
little bugfix in fields_average.f90
1 parent 1c78cab commit da4f6c2

1 file changed

Lines changed: 1 addition & 1 deletion

File tree

src/fields_average.f90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -385,7 +385,7 @@ subroutine fields_average(simtime,tscheme,nAve,l_stop_time, &
385385

386386
if ( l_mag ) then
387387
call lo2r_one%transp_lm2r(aj_ave_LMloc, aj_ave_Rloc)
388-
call lo2r_one%transp_lm2r(aj_ave_LMloc, b_ave_Rloc)
388+
call lo2r_one%transp_lm2r(b_ave_LMloc, b_ave_Rloc)
389389
call lo2r_one%transp_lm2r(db_ave_LMloc, db_ave_Rloc)
390390
end if
391391

0 commit comments

Comments
 (0)