Changeset 953 for codes/icosagcm/trunk/src/base/abort.F90

Timestamp:

07/15/19 12:29:31 (5 years ago)

Author:

adurocher

Message:

trunk : GPU implementation with OpenACC ( merge from glcp.idris.fr )

File:

• codes/icosagcm/trunk/src/base/abort.F90 (modified) (1 diff)

codes/icosagcm/trunk/src/base/abort.F90

@@ -17 +17 @@
     !$omp end single
   end subroutine
+
+  !!!Abort execution when openacc is on
+  subroutine abort_acc( message )
+    use mpi_mod
+    implicit none
+    character(len=*), optional, intent(in) :: message  
+#ifdef _OPENACC
+    call dynamico_abort( "Not tested with OpenACC ! " // message )
+#endif
+  end subroutine
 end module