Ignore:
Timestamp:
Mar 10, 2023, 5:52:00 PM (16 months ago)
Author:
Laurent Fairhead
Message:

Replaced STOP instructions by calls to abort_gcm for a cleaner exit

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3dmem/parallel_lmdz.F90

    r3995 r4469  
    676676        else
    677677           write(lunout,*)ij 
    678         stop 'erreur dans Gather_Field'
     678        CALL abort_gcm("parallel_lmdz","erreur dans Gather_Field",1)
    679679        endif
    680680       
    … …  
    690690              Recv_count(i)=(min(jj_end_para(i),jjm)-jj_begin_para(i)+1)*ll*iip1
    691691            else
    692               stop 'erreur dans Gather_Field'
     692              CALL abort_gcm("parallel_lmdz","erreur dans Gather_Field",1)
    693693            endif
    694694                   
Note: See TracChangeset for help on using the changeset viewer.