jyg fin
jyg le 27/04/2012 zlcl(ig)=0.
jyg le 27/04/2012 s_max(ig)=s2(ig)*log(n2(ig)) if (n2(ig) .lt. 1) s_max(ig)=0. fin jyg ! fin nrlmd le 10/04/2012
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | ngrid | |||
| integer, | intent(in) | :: | nlay | |||
| real, | intent(in) | :: | ptimestep | |||
| real, | intent(in) | :: | pplay(ngrid,nlay) | |||
| real, | intent(in) | :: | pplev(ngrid,nlay+1) | |||
| real, | intent(in), | dimension(ngrid,nlay+1) | :: | fm0 | ||
| real, | intent(in), | dimension(ngrid,nlay) | :: | entr0 | ||
| integer, | intent(in), | dimension(ngrid) | :: | lmax | ||
| real, | intent(in), | dimension(ngrid,nlay+1,nbsrf) | :: | pbl_tke | ||
| real, | intent(in), | dimension(ngrid,nbsrf) | :: | pctsrf | ||
| real, | intent(in), | dimension(ngrid,nlay) | :: | omega | ||
| real, | intent(in), | dimension(ngrid) | :: | airephy | ||
| real, | intent(in), | dimension(ngrid,nlay+1) | :: | zw2 | ||
| real, | intent(in), | dimension(ngrid,nlay+1) | :: | fraca | ||
| real, | intent(in), | dimension(ngrid) | :: | pcon | ||
| real, | intent(in), | dimension(ngrid,nlay) | :: | rhobarz | ||
| real, | intent(in), | dimension(ngrid,nlay) | :: | wth3 | ||
| real, | intent(in), | dimension(ngrid) | :: | wmax_sec | ||
| integer, | intent(in), | dimension(ngrid) | :: | lalim | ||
| real, | intent(in), | dimension(ngrid,nlay+1) | :: | fm | ||
| real, | intent(in), | dimension(ngrid,nlay) | :: | alim_star | ||
| real, | intent(in), | dimension(ngrid) | :: | zmax | ||
| real, | intent(in), | dimension(ngrid) | :: | zcong | ||
| real, | intent(out), | dimension(ngrid) | :: | ale_bl | ||
| real, | intent(out), | dimension(ngrid) | :: | alp_bl | ||
| integer, | intent(out), | dimension(ngrid) | :: | lalim_conv | ||
| real, | intent(out), | dimension(ngrid,nlay) | :: | wght_th | ||
| real, | intent(out), | dimension(ngrid) | :: | zlcl | ||
| real, | intent(out), | dimension(ngrid) | :: | fraca0 | ||
| real, | intent(out), | dimension(ngrid) | :: | w0 | ||
| real, | intent(out), | dimension(ngrid) | :: | w_conv | ||
| real, | intent(out), | dimension(ngrid) | :: | therm_tke_max0 | ||
| real, | intent(out), | dimension(ngrid) | :: | env_tke_max0 | ||
| real, | intent(out), | dimension(ngrid) | :: | n2 | ||
| real, | intent(out), | dimension(ngrid) | :: | s2 | ||
| real, | intent(out), | dimension(ngrid) | :: | strig | ||
| real, | intent(out), | dimension(ngrid) | :: | ale_bl_stat | ||
| real, | intent(out), | dimension(ngrid,nlay) | :: | therm_tke_max | ||
| real, | intent(out), | dimension(ngrid,nlay) | :: | env_tke_max | ||
| real, | intent(out), | dimension(ngrid) | :: | alp_bl_det | ||
| real, | intent(out), | dimension(ngrid) | :: | alp_bl_fluct_m | ||
| real, | intent(out), | dimension(ngrid) | :: | alp_bl_fluct_tke | ||
| real, | intent(out), | dimension(ngrid) | :: | alp_bl_conv | ||
| real, | intent(out), | dimension(ngrid) | :: | alp_bl_stat |