Changeset 4074 for trunk/LMDZ.COMMON/libf/evolution/orbit.F90
- Timestamp:
- Feb 17, 2026, 2:45:53 PM (11 days ago)
- File:
-
- 1 edited
-
trunk/LMDZ.COMMON/libf/evolution/orbit.F90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.COMMON/libf/evolution/orbit.F90
r4071 r4074 283 283 if (.not. allocated(ecc_lask)) allocate(ecc_lask(n)) 284 284 if (.not. allocated(lsp_lask)) allocate(lsp_lask(n)) 285 year_lask(:) = 0._dp 286 obl_lask(:) = 0._dp 287 ecc_lask(:) = 0._dp 288 lsp_lask(:) = 0._dp 285 289 286 290 END SUBROUTINE ini_orbit
Note: See TracChangeset
for help on using the changeset viewer.
