Ignore:
Timestamp:
Sep 20, 2022, 4:09:49 PM (2 years ago)
Author:
lguez
Message:

Bug fix: add missing argument ierr

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3d_common/disvert.F90

    r4228 r4257  
    400400      ELSE IF(SIGN(f1,f4)/=f1) THEN; x2=xx; f2=f4
    401401      ELSE IF(SIGN(f2,f4)/=f2) THEN; x1=xx; f1=f4
    402       ELSE; CALL abort_gcm("ridders",'Algorithm failed (which is odd...')
     402      ELSE; CALL abort_gcm("ridders",'Algorithm failed (which is odd...', 1)
    403403      END IF
    404404      IF(ABS(10.*LOG(ABS(x2-x1)))<=1E-5) EXIT       !--- ERROR ON SIG <= 0.01m           
Note: See TracChangeset for help on using the changeset viewer.