Ignore:
Timestamp:
Aug 13, 2025, 7:53:49 PM (6 days 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/suaer_corrk.F90

    r3723 r3893  
    405405               write(*,*)' http://www.lmd.jussieu.fr/',&
    406406               '~lmdz/planets/generic/datagcm/'
    407                CALL ABORT
     407               CALL abort_physic("suaer_corrk", "Unable to read file",1)
    408408            ENDIF
    409409
    … …  
    425425               endwhile = .true.
    426426            CASE DEFAULT reading1_seq ! ----------------------------
    427                WRITE(*,*) 'readoptprop: ',&
    428                'Error while loading optical properties.'
    429                CALL ABORT
     427               CALL abort_physic("suaer_corrk","Error while loading optical properties",1)
    430428            END SELECT reading1_seq ! ==============================
    431429         ENDIF
    … …  
    507505         endwhile = .true.
    508506      CASE DEFAULT reading2_seq ! ----------------------------
    509          WRITE(*,*) 'readoptprop: ',&
    510          'Error while loading optical properties.'
    511          CALL ABORT
     507         CALL abort_physic("suaer_corrk","Error while loading optical properties",1)
    512508      END SELECT reading2_seq   ! ==============================
    513509      ENDIF
Note: See TracChangeset for help on using the changeset viewer.