Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed

  • 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!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Note: See TracChangeset for help on using the changeset viewer.