- 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.F90
r4584 r4743 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.