- Timestamp:
- Oct 30, 2023, 5:37:00 PM (7 months ago)
- Location:
- LMDZ6/branches/Portage_acc
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Portage_acc
- Property svn:mergeinfo changed
-
LMDZ6/branches/Portage_acc/libf/phylmd/ecrad/radiation_ecckd_interface.F90
r4584 r4743 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.