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