calcdustemission Subroutine

public subroutine calcdustemission(debutphy, nsurfwind, zu10m, zv10m, wstar, ale_bl, ale_wake, param_wstarBL, param_wstarWAKE, wind10ms, probu, emisbin)

Uses

  • proc~~calcdustemission~2~~UsesGraph proc~calcdustemission~2 calcdustemission module~infotrac_phy~2 infotrac_phy proc~calcdustemission~2->module~infotrac_phy~2 module~dimphy~3 dimphy proc~calcdustemission~2->module~dimphy~3 module~strings_mod strings_mod module~infotrac_phy~2->module~strings_mod module~readtracfiles_mod readTracFiles_mod module~infotrac_phy~2->module~readtracfiles_mod iso_fortran_env iso_fortran_env module~strings_mod->iso_fortran_env module~readtracfiles_mod->module~strings_mod module~ioipsl_getin_p_mod ioipsl_getin_p_mod module~readtracfiles_mod->module~ioipsl_getin_p_mod module~ioipsl_getin_p_mod->module~strings_mod module~mod_phys_lmdz_transfert_para mod_phys_lmdz_transfert_para module~ioipsl_getin_p_mod->module~mod_phys_lmdz_transfert_para module~mod_phys_lmdz_para mod_phys_lmdz_para module~ioipsl_getin_p_mod->module~mod_phys_lmdz_para ioipsl ioipsl module~ioipsl_getin_p_mod->ioipsl module~mod_phys_lmdz_omp_transfert mod_phys_lmdz_omp_transfert module~mod_phys_lmdz_transfert_para->module~mod_phys_lmdz_omp_transfert module~mod_phys_lmdz_mpi_transfert mod_phys_lmdz_mpi_transfert module~mod_phys_lmdz_transfert_para->module~mod_phys_lmdz_mpi_transfert module~mod_phys_lmdz_para->module~mod_phys_lmdz_transfert_para module~mod_phys_lmdz_omp_data mod_phys_lmdz_omp_data module~mod_phys_lmdz_para->module~mod_phys_lmdz_omp_data module~mod_phys_lmdz_mpi_data mod_phys_lmdz_mpi_data module~mod_phys_lmdz_para->module~mod_phys_lmdz_mpi_data module~lmdz_mpi lmdz_mpi module~mod_phys_lmdz_mpi_data->module~lmdz_mpi module~lmdz_cppkeys_wrapper lmdz_cppkeys_wrapper module~mod_phys_lmdz_mpi_data->module~lmdz_cppkeys_wrapper module~lmdz_cppkeys_wrapper->iso_fortran_env netcdf netcdf module~lmdz_cppkeys_wrapper->netcdf

,'zwstar=sqrt(2.(',flag_wstarBL,'ale_bl+0.01(',flag_wstar,'-100)*ale_wake))'

print *,k,i,fluxdust(k,i)

print *,k,j,emisbin(k,j)

Arguments

Type IntentOptional Attributes Name
logical, intent(in) :: debutphy
integer, intent(in) :: nsurfwind
real, intent(in), DIMENSION(klon) :: zu10m
real, intent(in), DIMENSION(klon) :: zv10m
real, intent(in), DIMENSION(klon) :: wstar
real, intent(in), DIMENSION(klon) :: ale_bl
real, intent(in), DIMENSION(klon) :: ale_wake
real, intent(in), DIMENSION(klon) :: param_wstarBL
real, intent(in), DIMENSION(klon) :: param_wstarWAKE
real, intent(in), DIMENSION(klon,nsurfwind) :: wind10ms
real, intent(in), DIMENSION(klon,nsurfwind) :: probu
real, DIMENSION(klon,nbins) :: emisbin

!$OMP THREADPRIVATE(wind10ms) !$OMP THREADPRIVATE(wind10cm)

Calls

proc~~calcdustemission~2~~CallsGraph proc~calcdustemission~2 calcdustemission proc~def_copyncl~2 def_copyncl proc~calcdustemission~2->proc~def_copyncl~2 proc~def_dichotomy~2 def_dichotomy proc~def_copyncl~2->proc~def_dichotomy~2

Called by

proc~~calcdustemission~2~~CalledByGraph proc~calcdustemission~2 calcdustemission proc~dustemission~2 dustemission proc~dustemission~2->proc~calcdustemission~2

Contents