- Timestamp:
- Jul 19, 2024, 7:54:50 PM (2 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/eq_regions_mod.F90
r5082 r5086 353 353 do k = 2, n 354 354 w = w * (x - k) 355 end do355 END DO 356 356 else 357 357 w = 1 358 358 do k = 0, -n - 1 359 359 y = y * (x + k) 360 end do360 END DO 361 361 end if 362 362 gamma_res = w / y
Note: See TracChangeset
for help on using the changeset viewer.