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/qminimum_loc.F

    r4384 r4469  
    212212                   write(*,*) 'q(i,k-1,iqIsoPha(ixt,iq_vap))=',
    213213     :                   q(i,k-1,iqIsoPha(ixt,iq_vap))
    214                    stop
     214                CALL abort_gcm("qminimum_loc","stopped",1)
    215215                endif
    216216              endif
     
    237237                   write(*,*) 'q(i,k-1,iqIsoPha(ixt,iq_vap))=',
    238238     :                   q(i,k-1,iqIsoPha(ixt,iq_vap))
    239                    stop
     239                   CALL abort_gcm("qminimum_loc","stopped",1)
    240240                endif
    241241              endif
Note: See TracChangeset for help on using the changeset viewer.