Changeset 3531 for LMDZ6/trunk/libf/phylmd/acama_gwd_rando_m.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/acama_gwd_rando_m.F90 (modified) (3 diffs, 1 prop)

LMDZ6/trunk/libf/phylmd/acama_gwd_rando_m.F90

@@ +1 @@
+!
+! $Id$
+!
 module ACAMA_GWD_rando_m
 
@@ -120 +123 @@
   !$OMP THREADPRIVATE(firstcall,gwd_reproductibilite_mpiomp)
 
-    CHARACTER (LEN=20) :: modname='flott_gwd_rando'
+    CHARACTER (LEN=20) :: modname='acama_gwd_rando_m'
     CHARACTER (LEN=80) :: abort_message
 
@@ -208 +211 @@
 
     IF(DELTAT < DTIME)THEN
-       PRINT *, 'flott_gwd_rando: deltat < dtime!'
-       STOP 1
+!       PRINT *, 'flott_gwd_rando: deltat < dtime!'
+!       STOP 1
+       abort_message=' deltat < dtime! '
+       CALL abort_physic(modname,abort_message,1)
     ENDIF
 
     IF (KLEV < NW) THEN
-       PRINT *, 'flott_gwd_rando: you will have problem with random numbers'
-       STOP 1
+!       PRINT *, 'flott_gwd_rando: you will have problem with random numbers'
+!       STOP 1
+       abort_message=' you will have problem with random numbers'
+       CALL abort_physic(modname,abort_message,1)
     ENDIF