Changeset 2426 for trunk/LMDZ.COMMON/libf/dyn3d_common
- Timestamp:
- Nov 3, 2020, 3:49:37 PM (4 years ago)
- Location:
- trunk/LMDZ.COMMON/libf/dyn3d_common
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.COMMON/libf/dyn3d_common/disvert.F90
r1442 r2426 393 393 ELSE IF(SIGN(f1,f4)/=f1) THEN; x2=xx; f2=f4 394 394 ELSE IF(SIGN(f2,f4)/=f2) THEN; x1=xx; f1=f4 395 ELSE; CALL abort_gcm("ridders",'Algorithm failed (which is odd...' )395 ELSE; CALL abort_gcm("ridders",'Algorithm failed (which is odd...',1) 396 396 END IF 397 397 IF(ABS(10.*LOG(ABS(x2-x1)))<=1E-5) EXIT !--- ERROR ON SIG <= 0.01m -
trunk/LMDZ.COMMON/libf/dyn3d_common/dynredem.F90
r1850 r2426 242 242 243 243 ! Define variables that will be stored later: 244 WRITE(unites,"('days since ',i4,'-',i2.2,'-',i2.2,' 00:00:00')") ,&244 WRITE(unites,"('days since ',i4,'-',i2.2,'-',i2.2,' 00:00:00')") & 245 245 yyears0,mmois0,jjour0 246 246 IF (start_file_type.eq."earth") THEN
Note: See TracChangeset
for help on using the changeset viewer.