$ IF (ok_new_lscp) THEN $ CALL icefrac_lscp(klon,temp(:,k),iflag_ice_thermo,distcltop(:,k),temp_cltop(:,k),icefrac_optics(:,k),dzfice(:,k)) $ ELSE $ CALL icefrac_lsc(klon,temp(:,k),pplay(:,k)/paprs(:,1),icefrac_optics(:,k)) $ ENDIF
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | klon | |||
| integer, | intent(in) | :: | klev | |||
| real, | intent(in) | :: | paprs(klon,klev+1) | |||
| real, | intent(in) | :: | pplay(klon,klev) | |||
| real, | intent(in) | :: | temp(klon,klev) | |||
| real, | intent(in) | :: | radocond(klon,klev) | |||
| real, | intent(in) | :: | picefra(klon,klev) | |||
| real, | intent(inout) | :: | pclc(klon,klev) | |||
| real, | intent(out) | :: | pcltau(klon,klev) | |||
| real, | intent(out) | :: | pclemi(klon,klev) | |||
| real, | intent(out) | :: | pch(klon) | |||
| real, | intent(out) | :: | pcl(klon) | |||
| real, | intent(out) | :: | pcm(klon) | |||
| real, | intent(out) | :: | pct(klon) | |||
| real, | intent(out) | :: | radocondwp(klon) | |||
| real, | intent(out) | :: | xflwp(klon) | |||
| real, | intent(out) | :: | xfiwp(klon) | |||
| real, | intent(out) | :: | xflwc(klon,klev) | |||
| real, | intent(out) | :: | xfiwc(klon,klev) | |||
| real, | intent(in) | :: | mass_solu_aero(klon,klev) | |||
| real, | intent(in) | :: | mass_solu_aero_pi(klon,klev) | |||
| real, | intent(out) | :: | pcldtaupi(klon,klev) | |||
| real, | intent(out) | :: | distcltop(klon,klev) | |||
| real, | intent(out) | :: | temp_cltop(klon,klev) | |||
| real, | intent(out) | :: | re(klon,klev) | |||
| real, | intent(out) | :: | fl(klon,klev) | |||
| real, | intent(out) | :: | reliq(klon,klev) | |||
| real, | intent(out) | :: | reice(klon,klev) | |||
| real, | intent(out) | :: | reliq_pi(klon,klev) | |||
| real, | intent(out) | :: | reice_pi(klon,klev) | |||
| real, | intent(out) | :: | scdnc(klon,klev) | |||
| real, | intent(out) | :: | cldncl(klon) | |||
| real, | intent(out) | :: | reffclwtop(klon) | |||
| real, | intent(out) | :: | lcc(klon) | |||
| real, | intent(out) | :: | reffclws(klon,klev) | |||
| real, | intent(out) | :: | reffclwc(klon,klev) | |||
| real, | intent(out) | :: | cldnvi(klon) | |||
| real, | intent(out) | :: | lcc3d(klon,klev) | |||
| real, | intent(out) | :: | lcc3dcon(klon,klev) | |||
| real, | intent(out) | :: | lcc3dstra(klon,klev) | |||
| real, | intent(out) | :: | icc3dcon(klon,klev) | |||
| real, | intent(out) | :: | icc3dstra(klon,klev) | |||
| real, | intent(inout) | :: | icefrac_optics(klon,klev) | |||
| real, | intent(in) | :: | dNovrN(klon) | |||
| logical, | intent(in) | :: | ptconv(klon,klev) | |||
| real, | intent(in) | :: | rnebcon(klon,klev) | |||
| real, | intent(in) | :: | ccwcon(klon,klev) |