Searched refs:nacon (Results 1 – 2 of 2) sorted by relevance
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/CAM5_mg2_pgi/src/ |
H A D | micro_mg_utils.F90 | 539 …pure SUBROUTINE contact_freezing(microp_uniform, t, p, rndst, nacon, pgam, lamc, qcic, ncic, relva… argument 544 REAL(KIND=r8), intent(in) :: nacon(:,:) ! Number (for multiple dust bins) local 583 …contact_factor = dot_product(ndfaer,nacon(i,:)*tcnt) * pi * ncic(i) * (pgam(i) + 1._r…
|
H A D | micro_mg2_0.F90 | 228 …pdel, cldn, liqcldf, icecldf, qcsinksum_rate1ord, naai, npccn, rndst, nacon, tlat, qvlat, qctend, … argument 293 …REAL(KIND=r8), intent(in) :: nacon(:,:,:) ! number in each dust bin, for contact freezing (from m… local 1018 …CALL contact_freezing(microp_uniform, t(:,k), p(:,k), rndst(:,k,:), nacon(:,k,:), pgam(:,k), lamc(…
|