Add correctness check (based on average angle diff) to sph vector reg…

…rid unit test.
esmf-org · Aug 10, 2023 · fa1a428 · fa1a428
1 parent 6e4838f
commit fa1a428
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Infrastructure/Field/tests/ESMF_FieldRegridUTest.F90 b/src/Infrastructure/Field/tests/ESMF_FieldRegridUTest.F90
@@ -45702,7 +45702,9 @@ subroutine test_sph_vec_blnr_csG_to_llG(rc)
      write(*,*) "Avg magnitude difference=",totGlobal(2)/totGlobal(3)
   endif
 
-
+
+  ! Fail if average angle error bigger than produced by vector regrid
+  if (totGlobal(1)/totGlobal(3) > 2.0E-3) correct=.false.