Changeset 5217


Ignore:
Timestamp:
Sep 23, 2024, 2:14:55 PM (3 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
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/calltherm.F90

    r4843 r5217  
    234234#ifdef ISO
    235235      if (.not.new_thermcell) then
    236            CALL abort_gcm('calltherm 234','isos pas prevus ici',1)
     236           CALL abort_physic('calltherm 234','isos pas prevus ici',1)
    237237      endif
    238238#ifdef ISOVERIF

  • LMDZ6/trunk/libf/phylmd/fonte_neige_mod.F90

    r5022 r5217  
    170170    IF (error /= 0) THEN
    171171       abort_message='Pb allocation run_off_lic'
    172        CALL abort_gcm(modname,abort_message,1)
     172       CALL abort_physic(modname,abort_message,1)
    173173    ENDIF   
    174174   
    … …  
    191191    IF (error /= 0) THEN
    192192       abort_message='Pb allocation xtrun_off_ter'
    193        CALL abort_gcm(modname,abort_message,1)
     193       CALL abort_physic(modname,abort_message,1)
    194194    ENDIF
    195195    xtrun_off_ter(:,:) = 0.
    … …  
    198198    IF (error /= 0) THEN
    199199       abort_message='Pb allocation xtrun_off_lic'
    200        CALL abort_gcm(modname,abort_message,1)
     200       CALL abort_physic(modname,abort_message,1)
    201201    ENDIF
    202202    xtrun_off_lic(:,:) = 0.
    … …  
    205205    IF (error /= 0) THEN
    206206       abort_message='Pb allocation fxtfonte_global'
    207        CALL abort_gcm(modname,abort_message,1)
     207       CALL abort_physic(modname,abort_message,1)
    208208    ENDIF
    209209    fxtfonte_global(:,:,:) = 0.0
    … …  
    212212    IF (error /= 0) THEN
    213213       abort_message='Pb allocation fxtcalving_global'
    214        CALL abort_gcm(modname,abort_message,1)
     214       CALL abort_physic(modname,abort_message,1)
    215215    ENDIF
    216216    fxtcalving_global(:,:,:) = 0.0
    … …  
    219219    IF (error /= 0) THEN
    220220       abort_message='Pb allocation xtrunofflic_global'
    221        CALL abort_gcm(modname,abort_message,1)
     221       CALL abort_physic(modname,abort_message,1)
    222222    ENDIF
    223223    xtrunofflic_global(:,:) = 0.0

  • LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90

    r5171 r5217  
    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(:,:,:)
    … …  
    22652265       ELSE IF (iflag_split .ge. 1) THEN
    22662266#ifdef ISO
    2267         call abort_gcm('pbl_surface_mod 2149','isos pas encore dans iflag_split=1',1)
     2267        call abort_physic('pbl_surface_mod 2149','isos pas encore dans iflag_split=1',1)
    22682268#endif
    22692269
    … …  
    27492749       IF (iflag_split .GE. 1) THEN
    27502750#ifdef ISO
    2751         call abort_gcm('pbl_surface_mod 2607','isos pas encore dans iflag_split=1',1)
     2751        call abort_physic('pbl_surface_mod 2607','isos pas encore dans iflag_split=1',1)
    27522752#endif
    27532753!

  • LMDZ6/trunk/libf/phylmd/surf_land_mod.F90

    r5022 r5217  
    229229
    230230#ifdef ISO
    231       CALL abort_gcm('surf_land_mod 220','isos pas prevus dans orchidee',1)
     231      CALL abort_physic('surf_land_mod 220','isos pas prevus dans orchidee',1)
    232232#endif
    233233       ! temporary for keeping same results using lwdown_m instead of lwdown

  • LMDZ6/trunk/libf/phylmd/surf_landice_mod.F90

    r5196 r5217  
    268268
    269269#ifdef ISO
    270         CALL abort_gcm('surf_landice 235','isotopes pas dans INLANDSIS',1)
     270        CALL abort_physic('surf_landice 235','isotopes pas dans INLANDSIS',1)
    271271#endif
    272272

  • LMDZ6/trunk/libf/phylmdiso/cv3_routines.F90

    r4776 r5217  
    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
    … …  
    39813981    IF (cvflag_prec_eject) THEN
    39823982#ifdef ISO
    3983       CALL abort_gcm('cv3_routines 4037','isos pas prevus ici',1)
     3983      CALL abort_physic('cv3_routines 4037','isos pas prevus ici',1)
    39843984#endif
    39853985!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  • LMDZ6/trunk/libf/phylmdiso/limit_read_mod.F90

    r5084 r5217  
    517517             IF ((iso_HTO.gt.0).and.(ok_prod_nucl_tritium)) THEN
    518518               ierr = NF90_INQ_VARID(nid, 'TUOCE', nvarid)
    519                IF (ierr /= NF90_NOERR) CALL abort_gcm(modname,'Le champ <TUOCE> est absent',1)
     519               IF (ierr /= NF90_NOERR) CALL abort_physic(modname,'Le champ <TUOCE> est absent',1)
    520520
    521521               ierr = NF90_GET_VAR(nid,nvarid,tuoce_glo,start,epais)
    522                IF (ierr /= NF90_NOERR) CALL abort_gcm(modname,'Lecture echouee pour <TUOCE>',1)
     522               IF (ierr /= NF90_NOERR) CALL abort_physic(modname,'Lecture echouee pour <TUOCE>',1)
    523523             END IF
    524524#ifdef ISOVERIF

  • LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

    r5209 r5217  
    17761776#ifdef ISO
    17771777    write(*,*) 'physiq 1846a: ok_isotopes,ntraciso,niso=',niso>0,ntraciso,niso
    1778     IF(niso  <= 0) CALL abort_gcm('physiq 1756','options iso incompatibles',1)
     1778    IF(niso  <= 0) CALL abort_physic('physiq 1756','options iso incompatibles',1)
    17791779#ifdef ISOTRAC
    1780     IF(nzone <= 0) CALL abort_gcm('physiq 1758','options isotrac incompatibles',1)
     1780    IF(nzone <= 0) CALL abort_physic('physiq 1758','options isotrac incompatibles',1)
    17811781#else
    1782     IF(nzone  > 0) CALL abort_gcm('physiq 1762','options isotrac incompatibles',1)
     1782    IF(nzone  > 0) CALL abort_physic('physiq 1762','options isotrac incompatibles',1)
    17831783#endif
    17841784#else
    1785     if(niso   > 0) CALL abort_gcm('physiq 1772','options iso incompatibles',1)
     1785    if(niso   > 0) CALL abort_physic('physiq 1772','options iso incompatibles',1)
    17861786#endif
    17871787
    … …  
    36753675    ELSE IF (iflag_con.EQ.2) THEN
    36763676#ifdef ISO
    3677       CALL abort_gcm('physiq 2770','isos pas prevus ici',1)
     3677      CALL abort_physic('physiq 2770','isos pas prevus ici',1)
    36783678#endif
    36793679       CALL conflx(phys_tstep, paprs, pplay, t_seri, q_seri, &
    … …  
    70127012    IF (mass_fixer) THEN
    70137013#ifdef ISO
    7014       CALL abort_gcm('physiq 6936','isos pas prevus dans le mass fixer',1)
     7014      CALL abort_physic('physiq 6936','isos pas prevus dans le mass fixer',1)
    70157015      ! Camille Risi mai 2024: on attend d'avoir la 4e dimension qui rendra tout plus simple.
    70167016#endif
Note: See TracChangeset for help on using the changeset viewer.