Changeset 5217 for LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90

Timestamp:

Sep 23, 2024, 2:14:55 PM (5 weeks ago)

Author:

Ehouarn Millour

Message:

Replace "abort_gcm" in physics with "abort_physic"
to ensure clean dynamics-physics separation.
EM

File:

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

LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90

@@ -226 +226 @@
 
     ALLOCATE(xtsnow(niso,klon,nbsrf), stat=ierr)
-    IF (ierr /= 0) CALL abort_gcm('pbl_surface_init', 'pb in allocation',1)
+    IF (ierr /= 0) CALL abort_physic('pbl_surface_init', 'pb in allocation',1)
 
     ALLOCATE(Rland_ice(niso,klon), stat=ierr)
-    IF (ierr /= 0) CALL abort_gcm('pbl_surface_init', 'pb in allocation',1)
+    IF (ierr /= 0) CALL abort_physic('pbl_surface_init', 'pb in allocation',1)
 
     ALLOCATE(Roce(niso,klon), stat=ierr)
-    IF (ierr /= 0) CALL abort_gcm('pbl_surface_init', 'pb in allocation',1)
+    IF (ierr /= 0) CALL abort_physic('pbl_surface_init', 'pb in allocation',1)
 
     xtsnow(:,:,:)  = xtsnow_rst(:,:,:)
@@ -2265 +2265 @@
        ELSE IF (iflag_split .ge. 1) THEN
 #ifdef ISO
-        call abort_gcm('pbl_surface_mod 2149','isos pas encore dans iflag_split=1',1)
+        call abort_physic('pbl_surface_mod 2149','isos pas encore dans iflag_split=1',1)
 #endif
 
@@ -2749 +2749 @@
        IF (iflag_split .GE. 1) THEN
 #ifdef ISO
-        call abort_gcm('pbl_surface_mod 2607','isos pas encore dans iflag_split=1',1)
+        call abort_physic('pbl_surface_mod 2607','isos pas encore dans iflag_split=1',1)
 #endif
 !