Ignore:
Timestamp:
Sep 25, 2024, 1:34:49 PM (2 months ago)
Author:
abarral
Message:

Merge r5217

Location:
LMDZ6/branches/Amaury_dev
Files:
9 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/branches/Amaury_dev

  • LMDZ6/branches/Amaury_dev/libf/phylmd/calltherm.F90

    r5158 r5231  
    236236#ifdef ISO
    237237      IF (.NOT.new_thermcell) THEN
    238            CALL abort_gcm('calltherm 234','isos pas prevus ici',1)
     238           CALL abort_physic('calltherm 234','isos pas prevus ici',1)
    239239      endif
    240240#ifdef ISOVERIF
  • LMDZ6/branches/Amaury_dev/libf/phylmd/fonte_neige_mod.F90

    r5153 r5231  
    148148
    149149    USE infotrac_phy, ONLY: niso
     150    USE lmdz_abort_physic, ONLY: abort_physic
    150151#ifdef ISOVERIF
    151152    USE isotopes_mod, ONLY: iso_eau,iso_HDO
     
    172173    IF (error /= 0) THEN
    173174       abort_message='Pb allocation run_off_lic'
    174        CALL abort_gcm(modname,abort_message,1)
     175       CALL abort_physic(modname,abort_message,1)
    175176    ENDIF   
    176177   
     
    193194    IF (error /= 0) THEN
    194195       abort_message='Pb allocation xtrun_off_ter'
    195        CALL abort_gcm(modname,abort_message,1)
     196       CALL abort_physic(modname,abort_message,1)
    196197    ENDIF
    197198    xtrun_off_ter(:,:) = 0.
     
    200201    IF (error /= 0) THEN
    201202       abort_message='Pb allocation xtrun_off_lic'
    202        CALL abort_gcm(modname,abort_message,1)
     203       CALL abort_physic(modname,abort_message,1)
    203204    ENDIF
    204205    xtrun_off_lic(:,:) = 0.
     
    207208    IF (error /= 0) THEN
    208209       abort_message='Pb allocation fxtfonte_global'
    209        CALL abort_gcm(modname,abort_message,1)
     210       CALL abort_physic(modname,abort_message,1)
    210211    ENDIF
    211212    fxtfonte_global(:,:,:) = 0.0
     
    214215    IF (error /= 0) THEN
    215216       abort_message='Pb allocation fxtcalving_global'
    216        CALL abort_gcm(modname,abort_message,1)
     217       CALL abort_physic(modname,abort_message,1)
    217218    ENDIF
    218219    fxtcalving_global(:,:,:) = 0.0
     
    221222    IF (error /= 0) THEN
    222223       abort_message='Pb allocation xtrunofflic_global'
    223        CALL abort_gcm(modname,abort_message,1)
     224       CALL abort_physic(modname,abort_message,1)
    224225    ENDIF
    225226    xtrunofflic_global(:,:) = 0.0
  • LMDZ6/branches/Amaury_dev/libf/phylmd/pbl_surface_mod.F90

    r5179 r5231  
    226226
    227227    ALLOCATE(xtsnow(niso,klon,nbsrf), stat=ierr)
    228     IF (ierr /= 0) CALL abort_gcm('pbl_surface_init', 'pb in allocation',1)
     228    IF (ierr /= 0) CALL abort_physic('pbl_surface_init', 'pb in allocation',1)
    229229
    230230    ALLOCATE(Rland_ice(niso,klon), stat=ierr)
    231     IF (ierr /= 0) CALL abort_gcm('pbl_surface_init', 'pb in allocation',1)
     231    IF (ierr /= 0) CALL abort_physic('pbl_surface_init', 'pb in allocation',1)
    232232
    233233    ALLOCATE(Roce(niso,klon), stat=ierr)
    234     IF (ierr /= 0) CALL abort_gcm('pbl_surface_init', 'pb in allocation',1)
     234    IF (ierr /= 0) CALL abort_physic('pbl_surface_init', 'pb in allocation',1)
    235235
    236236    xtsnow(:,:,:)  = xtsnow_rst(:,:,:)
     
    22522252      ELSE IF (iflag_split >= 1) THEN
    22532253#ifdef ISO
    2254         CALL abort_gcm('pbl_surface_mod 2149','isos pas encore dans iflag_split=1',1)
     2254        CALL abort_physic('pbl_surface_mod 2149','isos pas encore dans iflag_split=1',1)
    22552255#endif
    22562256
     
    27352735      IF (iflag_split >= 1) THEN
    27362736#ifdef ISO
    2737         CALL abort_gcm('pbl_surface_mod 2607','isos pas encore dans iflag_split=1',1)
     2737        CALL abort_physic('pbl_surface_mod 2607','isos pas encore dans iflag_split=1',1)
    27382738#endif
    27392739
  • LMDZ6/branches/Amaury_dev/libf/phylmd/surf_land_mod.F90

    r5158 r5231  
    7373#endif
    7474
    75     USE lmdz_print_control, ONLY: lunout
     75  USE lmdz_print_control, ONLY: lunout
    7676  USE lmdz_clesphys
    7777  USE lmdz_dimpft, ONLY: nvm_lmdz
    7878  USE lmdz_yomcst
     79  USE lmdz_abort_physic, ONLY: abort_physic
    7980
    8081    INCLUDE "dimsoil.h"
     
    229230
    230231#ifdef ISO
    231       CALL abort_gcm('surf_land_mod 220','isos pas prevus dans orchidee',1)
     232      CALL abort_physic('surf_land_mod 220','isos pas prevus dans orchidee',1)
    232233#endif
    233234       ! temporary for keeping same results using lwdown_m instead of lwdown
  • LMDZ6/branches/Amaury_dev/libf/phylmd/surf_landice_mod.F90

    r5221 r5231  
    265265
    266266#ifdef ISO
    267         CALL abort_gcm('surf_landice 235','isotopes pas dans INLANDSIS',1)
     267        CALL abort_physic('surf_landice 235','isotopes pas dans INLANDSIS',1)
    268268#endif
    269269
  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/cv3_routines.F90

    r5160 r5231  
    16941694  IF (icvflag_Tpa == 2) THEN
    16951695#ifdef ISO
    1696         CALL abort_gcm('cv3_routines 1813','isos pas prevus ici',1)
     1696        CALL abort_physic('cv3_routines 1813','isos pas prevus ici',1)
    16971697#endif
    16981698
     
    18081808
    18091809#ifdef ISO
    1810         CALL abort_gcm('cv3_routines 1813','isos pas prevus ici',1)
     1810        CALL abort_physic('cv3_routines 1813','isos pas prevus ici',1)
    18111811#endif
    18121812    DO k = minorig + 1, nl
     
    39773977    IF (cvflag_prec_eject) THEN
    39783978#ifdef ISO
    3979       CALL abort_gcm('cv3_routines 4037','isos pas prevus ici',1)
     3979      CALL abort_physic('cv3_routines 4037','isos pas prevus ici',1)
    39803980#endif
    39813981!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/limit_read_mod.F90

    r5158 r5231  
    518518             IF ((iso_HTO.gt.0).AND.(ok_prod_nucl_tritium)) THEN
    519519               ierr = nf90_inq_varid(nid, 'TUOCE', nvarid)
    520                IF (ierr /= nf90_noerr) CALL abort_gcm(modname,'Le champ <TUOCE> est absent',1)
     520               IF (ierr /= nf90_noerr) CALL abort_physic(modname,'Le champ <TUOCE> est absent',1)
    521521
    522522               ierr = nf90_get_var(nid,nvarid,tuoce_glo,start,epais)
    523                IF (ierr /= nf90_noerr) CALL abort_gcm(modname,'Lecture echouee pour <TUOCE>',1)
     523               IF (ierr /= nf90_noerr) CALL abort_physic(modname,'Lecture echouee pour <TUOCE>',1)
    524524             END IF
    525525#ifdef ISOVERIF
  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/physiq_mod.F90

    r5226 r5231  
    17451745#ifdef ISO
    17461746    WRITE(*,*) 'physiq 1846a: ok_isotopes,ntraciso,niso=',niso>0,ntraciso,niso
    1747     IF(niso  <= 0) CALL abort_gcm('physiq 1756','options iso incompatibles',1)
     1747    IF(niso  <= 0) CALL abort_physic('physiq 1756','options iso incompatibles',1)
    17481748#ifdef ISOTRAC
    1749     IF(nzone <= 0) CALL abort_gcm('physiq 1758','options isotrac incompatibles',1)
     1749    IF(nzone <= 0) CALL abort_physic('physiq 1758','options isotrac incompatibles',1)
    17501750#else
    1751     IF(nzone  > 0) CALL abort_gcm('physiq 1762','options isotrac incompatibles',1)
     1751    IF(nzone  > 0) CALL abort_physic('physiq 1762','options isotrac incompatibles',1)
    17521752#endif
    17531753#else
    1754     IF(niso   > 0) CALL abort_gcm('physiq 1772','options iso incompatibles',1)
     1754    IF(niso   > 0) CALL abort_physic('physiq 1772','options iso incompatibles',1)
    17551755#endif
    17561756
     
    36313631    ELSE IF (iflag_con==2) THEN
    36323632#ifdef ISO
    3633       CALL abort_gcm('physiq 2770','isos pas prevus ici',1)
     3633      CALL abort_physic('physiq 2770','isos pas prevus ici',1)
    36343634#endif
    36353635       CALL conflx(phys_tstep, paprs, pplay, t_seri, q_seri, &
     
    69516951    IF (mass_fixer) THEN
    69526952#ifdef ISO
    6953       CALL abort_gcm('physiq 6936','isos pas prevus dans le mass fixer',1)
     6953      CALL abort_physic('physiq 6936','isos pas prevus dans le mass fixer',1)
    69546954      ! Camille Risi mai 2024: on attend d'avoir la 4e dimension qui rendra tout plus simple.
    69556955#endif
Note: See TracChangeset for help on using the changeset viewer.