- Timestamp:
- Sep 7, 2023, 1:07:27 PM (9 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/ecrad/radiation_general_cloud_optics.F90
r4489 r4677 75 75 ! Allocate structures 76 76 if (config%do_sw) then 77 if (allocated(config%cloud_optics_sw)) deallocate(config%cloud_optics_sw) 77 78 allocate(config%cloud_optics_sw(config%n_cloud_types)) 78 79 end if 79 80 80 81 if (config%do_lw) then 82 if (allocated(config%cloud_optics_lw)) deallocate(config%cloud_optics_lw) 81 83 allocate(config%cloud_optics_lw(config%n_cloud_types)) 82 84 end if
Note: See TracChangeset
for help on using the changeset viewer.