Changeset 4257 for LMDZ6/trunk/libf/dyn3d_common/disvert.F90
- Timestamp:
- Sep 20, 2022, 4:09:49 PM (2 years ago)
- File:
-
- 1 edited
-
LMDZ6/trunk/libf/dyn3d_common/disvert.F90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3d_common/disvert.F90
r4228 r4257 400 400 ELSE IF(SIGN(f1,f4)/=f1) THEN; x2=xx; f2=f4 401 401 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) 403 403 END IF 404 404 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.
