Finish making error tracing consistent

Ben-Mertz · May 17, 2021 · 008d34a · 008d34a
1 parent c88f272
commit 008d34a
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/Controllers.f90 b/src/Controllers.f90
@@ -129,10 +129,10 @@ SUBROUTINE PitchControl(avrSWAP, CntrPar, LocalVar, objInst, DebugVar, ErrVar)
         avrSWAP(44) = LocalVar%PitCom(3)    ! "
         avrSWAP(45) = LocalVar%PitCom(1)    ! Use the command angle of blade 1 if using collective pitch
 
-        ! Error Catching
-        IF (ErrVar%aviFAIL == -1) THEN
-            ErrVar%ErrMsg = 'PitchControl:'//TRIM(ErrVar%ErrMsg)
-        END IF
+        ! Add RoutineName to error message
+        IF (ErrVar%aviFAIL < 0) THEN
+            ErrVar%ErrMsg = RoutineName//':'//TRIM(ErrVar%ErrMsg)
+        ENDIF
 
     END SUBROUTINE PitchControl
 !-------------------------------------------------------------------------------------------------------------------------------