diff --git a/src/field_routines.f90 b/src/field_routines.f90 index 0cfdb509..fd9e5bc0 100644 --- a/src/field_routines.f90 +++ b/src/field_routines.f90 @@ -22267,7 +22267,7 @@ SUBROUTINE FIELD_SCALINGS_CALCULATE(FIELD,ERR,ERROR,*) nu1=PART_DERIV_S1 ni2=3 nu2=PART_DERIV_S3 - ELSE IF(partial_derivative_idx==PART_DERIV_S1_S2) THEN + ELSE IF(partial_derivative_idx==PART_DERIV_S2_S3) THEN ni1=2 nu1=PART_DERIV_S2 ni2=3