Changeset 4074 for trunk/LMDZ.COMMON/libf/evolution/slopes.F90
- Timestamp:
- Feb 17, 2026, 2:45:53 PM (13 days ago)
- File:
-
- 1 edited
-
trunk/LMDZ.COMMON/libf/evolution/slopes.F90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.COMMON/libf/evolution/slopes.F90
r4065 r4074 59 59 if (.not. allocated(def_slope_mean)) allocate(def_slope_mean(nslope)) 60 60 if (.not. allocated(subslope_dist)) allocate(subslope_dist(ngrid,nslope)) 61 def_slope_mean(:) = 0._dp 62 subslope_dist(:,:) = 1._dp 61 63 62 64 END SUBROUTINE ini_slopes
Note: See TracChangeset
for help on using the changeset viewer.
