cloud_optics_prop Subroutine

public subroutine cloud_optics_prop(klon, klev, paprs, pplay, temp, radocond, picefra, pclc, pcltau, pclemi, pch, pcl, pcm, pct, radocondwp, xflwp, xfiwp, xflwc, xfiwc, mass_solu_aero, mass_solu_aero_pi, pcldtaupi, distcltop, temp_cltop, re, fl, reliq, reice, reliq_pi, reice_pi, scdnc, cldncl, reffclwtop, lcc, reffclws, reffclwc, cldnvi, lcc3d, lcc3dcon, lcc3dstra, icc3dcon, icc3dstra, icefrac_optics, dNovrN, ptconv, rnebcon, ccwcon)

Uses

  • proc~~cloud_optics_prop~2~~UsesGraph proc~cloud_optics_prop~2 cloud_optics_prop module~lmdz_cloud_optics_prop_ini~2 lmdz_cloud_optics_prop_ini proc~cloud_optics_prop~2->module~lmdz_cloud_optics_prop_ini~2

$ 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

Arguments

Type IntentOptional 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)

Contents