Ignore:
Timestamp:
Aug 13, 2025, 7:53:49 PM (4 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/aeronostd/writediagspecUV.F

    r3725 r3893  
    108108           write(*,*) "   firstnom string not long enough!!"
    109109           write(*,*) "   increase its size to at least ",len_trim(nom)
    110            stop
     110           call abort_physic("writediagspecUV",
     111     &          "firstnom string not long enough",1)
    111112         endif
    112113
    … …  
    307308              write(*,*) "***** with ",nom
    308309              write(*,*) 'ierr=', ierr
    309              call abort
     310             call abort_physic("writediagspecUV","PUT_VAR problem", 1)
    310311           endif
    311312
Note: See TracChangeset for help on using the changeset viewer.