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

LMDZ6/trunk/libf/phylmd/phyaqua_mod.F90

@@ -112 +112 @@
     REAL paire
 
+    ! Local
+    CHARACTER (LEN=20) :: modname='phyaqua'
+    CHARACTER (LEN=80) :: abort_message
+
 
     ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -128 +132 @@
     IF (klon/=nlon) THEN
       WRITE (*, *) 'iniaqua: klon=', klon, ' nlon=', nlon
-      STOP 'probleme de dimensions dans iniaqua'
+      abort_message= 'probleme de dimensions dans iniaqua'
+      CALL abort_physic(modname,abort_message,1)
     END IF
     CALL phys_state_var_init(read_climoz)
@@ -812 +817 @@
     PARAMETER (nlat_max=72)
     REAL x_anom_sst(nlat_max)
-
-    IF (klon/=nlon) STOP 'probleme de dimensions dans iniaqua'
+    CHARACTER (LEN=20) :: modname='profil_sst'
+    CHARACTER (LEN=80) :: abort_message
+
+    IF (klon/=nlon) THEN
+       abort_message='probleme de dimensions dans profil_sst'
+       CALL abort_physic(modname,abort_message,1)
+    ENDIF
     WRITE (*, *) ' profil_sst: type_profil=', type_profil
     DO i = 1, 360