Changeset 3605 for LMDZ6/branches/Ocean_skin/libf/phylmd/mod_synchro_omp.F90

Timestamp:

Nov 21, 2019, 4:43:45 PM (5 years ago)

Author:

lguez

Message:

Merge revisions 3427:3600 of trunk into branch Ocean_skin

Location:

LMDZ6/branches/Ocean_skin

Files:

• . (modified) (1 prop)
• libf/phylmd/mod_synchro_omp.F90 (modified) (3 diffs, 1 prop)

LMDZ6/branches/Ocean_skin/libf/phylmd/mod_synchro_omp.F90

@@ +1 @@
+!
+! $Id$
+!
 MODULE mod_synchro_omp
 
@@ -21 +24 @@
   IMPLICIT NONE
   LOGICAL :: out
+  CHARACTER (LEN=20) :: modname='synchro_omp'
+  CHARACTER (LEN=80) :: abort_message
   
     out=.FALSE.
@@ -46 +51 @@
 
     IF (exit_omp/=0) THEN
-      STOP 'synchro_omp'
+       abort_message='synchro_omp'
+       CALL abort_physic(modname,abort_message,1)
     ENDIF