Ignore:
Timestamp:
Aug 13, 2025, 7:53:49 PM (8 months ago)
Author:
gmilcareck
Message:

Remove all "call abort" and "stop" statement in LMDZ.GENERIC and replacing them by call abort_physic().

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/libf/phystd/condense_co2.F90

    r2972 r3893  
    156156            print*,'In condens_cloud but no CO2 ice tracer, exiting.'
    157157            print*,'Still need generalisation to arbitrary species!'
    158             stop
     158            call abort_physic("condense_co2", "no CO2 ice tracer in condens_cloud",1)
    159159         endif
    160160
    … …  
    369369            write(116,*) 0.0, pplev(1,1), 0.0, 0.0
    370370            close(116)
    371             call abort
     371            call abort_physic("condense_co2", "1D: CO2 condensation at the surface not allowed", 1)
    372372         endif
    373373
    … …  
    416416               PRINT*,'Ps = ',pplev(ig,1)
    417417               PRINT*,'d Ps = ',pdpsrfc(ig)
    418                STOP
     418               call abort_physic("condense_co2", "Condensing more than total mass", 1)
    419419            ENDIF
    420420         END IF
Note: See TracChangeset for help on using the changeset viewer.