(iflag_clos_bl .LT. 3)
! correct formula (jyg) ! (1.-max(sign(1.,x-1.e-3),0.))(-0.5x(1.-x/3.(1.-0.25x))) !!! bug introduced by mistake (jyg) ! (1.-max(sign(1.,x-1.e-3),0.))(1.-0.5x(1.-x/3.(1.-0.25x))) !!! initial correct formula (jyg)
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real, | intent(in) | :: | dtime | |||
| integer, | intent(in), | DIMENSION(klon) | :: | lmax_th | ||
| real, | intent(in), | DIMENSION(klon,klev) | :: | t_seri | ||
| real, | intent(in), | DIMENSION(klon) | :: | cell_area | ||
| real, | intent(in), | DIMENSION(klon) | :: | cin | ||
| real, | intent(in), | DIMENSION(klon) | :: | s2 | ||
| real, | intent(in), | DIMENSION(klon) | :: | n2 | ||
| real, | intent(in), | DIMENSION(klon) | :: | strig | ||
| real, | intent(inout), | DIMENSION(klon) | :: | ale_bl_trig | ||
| real, | intent(in), | DIMENSION(klon) | :: | ale_bl_stat | ||
| real, | intent(inout), | DIMENSION(klon) | :: | ale_bl | ||
| real, | intent(inout), | DIMENSION(klon) | :: | alp_bl | ||
| real, | intent(inout), | DIMENSION(klon) | :: | alp_bl_stat | ||
| real, | intent(inout), | DIMENSION(klon) | :: | proba_notrig | ||
| real, | intent(out), | DIMENSION(klon) | :: | random_notrig | ||
| real, | intent(out), | DIMENSION(klon) | :: | birth_rate |