Changeset 3531 for LMDZ6/trunk/libf/phylmd/tracco2i_mod.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/tracco2i_mod.F90 (modified) (5 diffs)

LMDZ6/trunk/libf/phylmd/tracco2i_mod.F90

@@ -161 +161 @@
     LOGICAL, PARAMETER :: readco2ff=.TRUE., readco2bb=.FALSE. 
 
+    CHARACTER (len = 20) :: modname = 'tracco2i.co2_emissions'
+    CHARACTER (len = 80) :: abort_message
+
     IF (debutphy) THEN 
 
@@ -182 +185 @@
         n_glo = size(vector)
         IF (n_glo.NE.klon_glo) THEN
-           PRINT *,'sflx_lmdz_co2_ff: le nombre de points n est pas egal a klon_glo'
-           STOP
+           abort_message='sflx_lmdz_co2_ff: le nombre de points n est pas egal a klon_glo'
+           CALL abort_physic(modname,abort_message,1)
         ENDIF
 
@@ -190 +193 @@
         n_month = size(time)
         IF (n_month.NE.12) THEN
-           PRINT *,'sflx_lmdz_co2_ff: le nombre de month n est pas egal a 12'
-           STOP
+           abort_message='sflx_lmdz_co2_ff: le nombre de month n est pas egal a 12'
+           CALL abort_physic(modname,abort_message,1)
         ENDIF
 
@@ -214 +217 @@
       n_glo = size(vector)
       IF (n_glo.NE.klon_glo) THEN
-         PRINT *,'sflx_lmdz_co2_bb: le nombre de points n est pas egal a klon_glo'
-         STOP
+         abort_message='sflx_lmdz_co2_bb: le nombre de points n est pas egal a klon_glo'
+         CALL abort_physic(modname,abort_message,1)
       ENDIF
 
@@ -222 +225 @@
       n_month = size(time)
       IF (n_month.NE.12) THEN
-         PRINT *,'sflx_lmdz_co2_bb: le nombre de month n est pas egal a 12'
-         STOP
+         abort_message='sflx_lmdz_co2_bb: le nombre de month n est pas egal a 12'
+         CALL abort_physic(modname,abort_message,1)
       ENDIF