Changeset 4257


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

Bug fix: add missing argument ierr

Location:
LMDZ6/trunk/libf
Files:
2 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           

  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/limit_netcdf.F90

    r3803 r4257  
    492492      !--- DROPPED FOR BCS DATA (FRACTIONS CAN BE HIGHER THAN 1)
    493493      IF(ll.AND.ix_sic/=1.AND.mode=='SIC') &
    494         CALL abort_physic(mode,'unrealistic '//TRIM(mode)//' found: '//TRIM(str))
     494        CALL abort_physic(mode,'unrealistic '//TRIM(mode)//' found: '//TRIM(str), 1)
    495495
    496496    END IF
Note: See TracChangeset for help on using the changeset viewer.