alpale_wk_mod Module


Contents

Subroutines


Subroutines

public subroutine alpale_wk_first(cell_area)

Arguments

Type IntentOptional Attributes Name
real, intent(in), DIMENSION(klon) :: cell_area

public subroutine alpale_wk(dtime, cell_area, zoccur, sigmaw, wdens, fip, fip_cond)

print ,'alpale_wk: wkrad(1), cellrad(1) ', wkrad(1), cellrad(1) proba_gf(:) = exp(-wdens(:)rpimax(wkrad(:)-cellrad(:),0.)2) - & ! Formules exp(-wdens(:)rpi(wkrad(:)+cellrad(:))2) ! fausses ! print ,'alpale_wk: proba_gf(1), fip(1), ', proba_gf(1), fip(1) print *,'alpale_wk: wkrad(1), cellrad(1), proba_gf(1), fip(1), fip_cond(1) ', & wkrad(1), cellrad(1), proba_gf(1), fip(1), fip_cond(1)

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: dtime
real, intent(in), DIMENSION(klon) :: cell_area
integer, intent(in), DIMENSION(klon) :: zoccur
real, intent(in), DIMENSION(klon) :: sigmaw
real, intent(in), DIMENSION(klon) :: wdens
real, intent(in), DIMENSION(klon) :: fip
real, intent(out), DIMENSION(klon) :: fip_cond