Changeset 4677 for LMDZ6/trunk/libf/phylmd/ecrad/radiation_ecckd.F90
- 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.F90
r4489 r4677 147 147 this%d_log_pressure = log(pressure_lut(2)) - this%log_pressure1 148 148 call file%get('temperature', temperature_full) 149 if (allocated(this%temperature1)) deallocate(this%temperature1) 149 150 allocate(this%temperature1(this%npress)); 150 151 this%temperature1 = temperature_full(:,1) … … 179 180 ! Read gases 180 181 call file%get('n_gases', this%ngas) 182 if (allocated(this%single_gas)) deallocate(this%single_gas) 181 183 allocate(this%single_gas(this%ngas)) 182 184 call file%get_global_attribute('constituent_id', constituent_id)
Note: See TracChangeset
for help on using the changeset viewer.