Changeset 5217 for LMDZ6/trunk/libf/phylmd

Timestamp:

Sep 23, 2024, 2:14:55 PM (9 months ago)

Author:

Ehouarn Millour

Message:

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

Location:

LMDZ6/trunk/libf/phylmd

Files:

• calltherm.F90 (modified) (1 diff)
• fonte_neige_mod.F90 (modified) (6 diffs)
• pbl_surface_mod.F90 (modified) (3 diffs)
• surf_land_mod.F90 (modified) (1 diff)
• surf_landice_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/calltherm.F90

@@ -234 +234 @@
 #ifdef ISO
       if (.not.new_thermcell) then
-           CALL abort_gcm('calltherm 234','isos pas prevus ici',1)
+           CALL abort_physic('calltherm 234','isos pas prevus ici',1)
       endif
 #ifdef ISOVERIF

LMDZ6/trunk/libf/phylmd/fonte_neige_mod.F90

@@ -170 +170 @@
     IF (error /= 0) THEN
        abort_message='Pb allocation run_off_lic'
-       CALL abort_gcm(modname,abort_message,1)
+       CALL abort_physic(modname,abort_message,1)
     ENDIF    
     
@@ -191 +191 @@
     IF (error /= 0) THEN
        abort_message='Pb allocation xtrun_off_ter'
-       CALL abort_gcm(modname,abort_message,1)
+       CALL abort_physic(modname,abort_message,1)
     ENDIF
     xtrun_off_ter(:,:) = 0.
@@ -198 +198 @@
     IF (error /= 0) THEN
        abort_message='Pb allocation xtrun_off_lic'
-       CALL abort_gcm(modname,abort_message,1)
+       CALL abort_physic(modname,abort_message,1)
     ENDIF
     xtrun_off_lic(:,:) = 0.
@@ -205 +205 @@
     IF (error /= 0) THEN
        abort_message='Pb allocation fxtfonte_global'
-       CALL abort_gcm(modname,abort_message,1)
+       CALL abort_physic(modname,abort_message,1)
     ENDIF
     fxtfonte_global(:,:,:) = 0.0
@@ -212 +212 @@
     IF (error /= 0) THEN
        abort_message='Pb allocation fxtcalving_global'
-       CALL abort_gcm(modname,abort_message,1)
+       CALL abort_physic(modname,abort_message,1)
     ENDIF
     fxtcalving_global(:,:,:) = 0.0
@@ -219 +219 @@
     IF (error /= 0) THEN
        abort_message='Pb allocation xtrunofflic_global'
-       CALL abort_gcm(modname,abort_message,1)
+       CALL abort_physic(modname,abort_message,1)
     ENDIF
     xtrunofflic_global(:,:) = 0.0

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
 !

LMDZ6/trunk/libf/phylmd/surf_land_mod.F90

@@ -229 +229 @@
 
 #ifdef ISO
-      CALL abort_gcm('surf_land_mod 220','isos pas prevus dans orchidee',1)
+      CALL abort_physic('surf_land_mod 220','isos pas prevus dans orchidee',1)
 #endif
        ! temporary for keeping same results using lwdown_m instead of lwdown

LMDZ6/trunk/libf/phylmd/surf_landice_mod.F90

@@ -268 +268 @@
 
 #ifdef ISO
-        CALL abort_gcm('surf_landice 235','isotopes pas dans INLANDSIS',1)
+        CALL abort_physic('surf_landice 235','isotopes pas dans INLANDSIS',1)
 #endif