Changeset 5231 for LMDZ6/branches/Amaury_dev/libf/phylmd/pbl_surface_mod.F90

Timestamp:

Sep 25, 2024, 1:34:49 PM (3 weeks ago)

Author:

abarral

Message:

Merge r5217

Location:

LMDZ6/branches/Amaury_dev

Files:

• . (modified) (1 prop)
• libf/phylmd/pbl_surface_mod.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/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(:,:,:)
@@ -2252 +2252 @@
       ELSE IF (iflag_split >= 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
 
@@ -2735 +2735 @@
       IF (iflag_split >= 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