Changeset 3531 for LMDZ6/trunk/libf/phylmd/create_etat0_limit_unstruct.F90

Timestamp:

Jun 6, 2019, 5:08:45 PM (5 years ago)

Author:

Laurent Fairhead

Message:

Replaced STOP statements by a call to abort_physic in phylmd as per ticket #86
Still some work to be done in phylmd subdirectories

File:

• LMDZ6/trunk/libf/phylmd/create_etat0_limit_unstruct.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/create_etat0_limit_unstruct.F90

@@ -65 +65 @@
   IMPLICIT NONE
       INTEGER :: iflag_phys
-      INTEGER :: ierr 
+      INTEGER :: ierr
+      CHARACTER (LEN=20) :: modname='create_etat0_limit_unstruct'
+      CHARACTER (LEN=80) :: abort_message
+     
       IF (grid_type==unstructured) THEN
   
@@ -83 +86 @@
                 CALL MPI_Finalize(ierr)
 #endif
-                WRITE(lunout,*)   'create_etat0_limit_unstruct, Initial state file are created, all is fine' 
-                STOP 0
+                abort_message='create_etat0_limit_unstruct, Initial state file are created, all is fine' 
+                CALL abort_physic(modname,abort_message,0)
               ENDIF
 !$OMP BARRIER
-              STOP 'create_etat0_limit_unstruct, Initial state file are created, all is fine' 
+              abort_message='create_etat0_limit_unstruct, Initial state file are created, all is fine'              CALL abort_physic(modname,abort_message,0)
           ENDIF 
         ELSE
@@ -102 +105 @@
               ENDIF
 !$OMP BARRIER
-              WRITE(lunout,*)   'create_etat0_limit_unstruct, Initial state file are created, all is fine' 
-              STOP 0
+              abort_message='create_etat0_limit_unstruct, Initial state file are created, all is fine' 
+              CALL abort_physic(modname,abort_message,0)
           ENDIF
         ENDIF