!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | ngrid | |||
| integer, | intent(in) | :: | nlay | |||
| real, | intent(in) | :: | ptimestep | |||
| real, | intent(in), | dimension(ngrid,nlay) | :: | masse | ||
| integer, | intent(in), | dimension(ngrid) | :: | lalim | ||
| integer, | intent(in), | dimension(ngrid) | :: | lmax | ||
| real, | intent(in), | dimension(ngrid,nlay) | :: | alim_star | ||
| real, | intent(in), | dimension(ngrid,nlay) | :: | entr_star | ||
| real, | intent(in), | dimension(ngrid,nlay) | :: | detr_star | ||
| real, | intent(in), | dimension(ngrid) | :: | f | ||
| real, | intent(in), | dimension(ngrid,nlay) | :: | rhobarz | ||
| real, | intent(in), | dimension(ngrid,nlay+1) | :: | zlev | ||
| real, | intent(in), | dimension(ngrid,nlay+1) | :: | zw2 | ||
| real, | intent(out), | dimension(ngrid,nlay+1) | :: | fm | ||
| real, | intent(out), | dimension(ngrid,nlay) | :: | entr | ||
| real, | intent(out), | dimension(ngrid,nlay) | :: | detr | ||
| real, | intent(in), | dimension(ngrid,nlay) | :: | zqla | ||
| integer, | intent(in) | :: | lev_out | |||
| integer, | intent(in) | :: | lunout1 | |||
| integer | :: | igout |