- Timestamp:
- Sep 7, 2023, 1:07:27 PM (9 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/ecrad/radiation_ecckd_interface.F90
r4489 r4677 52 52 end if 53 53 54 allocate(config%i_band_from_g_sw (config%n_g_sw)) 54 if (allocated(config%i_band_from_g_sw)) deallocate(config%i_band_from_g_sw) 55 allocate(config%i_band_from_g_sw(config%n_g_sw)) 56 if (allocated(config%i_band_from_reordered_g_sw)) deallocate(config%i_band_from_reordered_g_sw) 55 57 allocate(config%i_band_from_reordered_g_sw(config%n_g_sw)) 56 allocate(config%i_g_from_reordered_g_sw (config%n_g_sw)) 58 if (allocated(config%i_g_from_reordered_g_sw)) deallocate(config%i_g_from_reordered_g_sw) 59 allocate(config%i_g_from_reordered_g_sw(config%n_g_sw)) 57 60 58 61 if (config%do_cloud_aerosol_per_sw_g_point) then … … 91 94 end if 92 95 96 if (allocated(config%i_band_from_g_lw)) deallocate(config%i_band_from_g_lw) 93 97 allocate(config%i_band_from_g_lw (config%n_g_lw)) 98 if (allocated(config%i_band_from_reordered_g_lw)) deallocate(config%i_band_from_reordered_g_lw) 94 99 allocate(config%i_band_from_reordered_g_lw(config%n_g_lw)) 100 if (allocated(config%i_g_from_reordered_g_lw)) deallocate(config%i_g_from_reordered_g_lw) 95 101 allocate(config%i_g_from_reordered_g_lw (config%n_g_lw)) 96 102
Note: See TracChangeset
for help on using the changeset viewer.