readaerosol_mod Module


Used by

  • module~~readaerosol_mod~~UsedByGraph module~readaerosol_mod readaerosol_mod proc~readaerosol_interp readaerosol_interp proc~readaerosol_interp->module~readaerosol_mod proc~physiq physiq proc~physiq->module~readaerosol_mod proc~physiq~2 physiq proc~physiq~2->module~readaerosol_mod proc~readaerosol_interp~2 readaerosol_interp proc~readaerosol_interp~2->module~readaerosol_mod

Contents

Variables

Subroutines


Variables

Type Visibility Attributes Name Initial
real, public, SAVE :: not_valid = -333.
integer, public, SAVE :: nbp_lon_src
integer, public, SAVE :: nbp_lat_src
real, public, ALLOCATABLE, SAVE :: psurf_interp(:,:)

Subroutines

public subroutine readaerosol(name_aero, type, filename, iyr_in, klev_src, pt_ap, pt_b, pt_out, psurf, load)

This routine will read the aersosol from file.

Read more…

Arguments

Type IntentOptional 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

public subroutine init_aero_fromfile(flag_aerosol, aerosol_couple)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: flag_aerosol
logical, intent(in) :: aerosol_couple

public subroutine get_aero_fromfile(varname, cyr, filename, klev_src, pt_ap, pt_b, pt_year, psurf_out, load_out)

Read 12 month aerosol from file and distribute to local process on physical grid. Vertical levels, klev_src, may differ from model levels if new file format.

Read more…

Arguments

Type IntentOptional Attributes Name
character(len=7), intent(in) :: varname
character(len=4), intent(in) :: cyr
character(len=8), intent(in) :: filename
integer, intent(out) :: klev_src
real, POINTER, DIMENSION(:) :: pt_ap
real, POINTER, DIMENSION(:) :: pt_b
real, POINTER, DIMENSION(:,:,:) :: pt_year
real, intent(out), DIMENSION(klon,12) :: psurf_out
real, intent(out), DIMENSION(klon,12) :: load_out

public subroutine check_err(status, text)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: status
character(len=*), intent(in), optional :: text