This routine will read the aersosol from file.
Read a year data with get_aero_fromfile depending on aer_type : - actuel : read year 1980 - preind : read natural data - scenario : read one or two years and do eventually linare time interpolation
Return pointer, pt_out, to the year read or result from interpolation
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=7), | intent(in) | :: | name_aero | |||
| character(len=*), | intent(in) | :: | type | |||
| character(len=8), | intent(in) | :: | filename | |||
| integer, | intent(in) | :: | iyr_in | |||
| integer, | intent(out) | :: | klev_src | |||
| real, | POINTER, DIMENSION(:) | :: | pt_ap | |||
| real, | POINTER, DIMENSION(:) | :: | pt_b | |||
| real, | POINTER, DIMENSION(:,:,:) | :: | pt_out | |||
| real, | intent(out), | DIMENSION(klon,12) | :: | psurf | ||
| real, | intent(out), | DIMENSION(klon,12) | :: | load |