Searched refs:nprci (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 | 474 elemental SUBROUTINE ice_autoconversion(t, qiic, lami, n0i, dcs, prci, nprci) argument
481 REAL(KIND=r8), intent(out) :: nprci local
491 nprci = n0i/(lami*ac_time)*exp(-d_rat)
496 prci = m_ip * nprci * (((d_rat + 3._r8)*d_rat + 6._r8)*d_rat + 6._r8)
499 nprci = 0._r8
|
| H A D | micro_mg2_0.F90 | 495 REAL(KIND=r8) :: nprci(mgncol,nlev) ! number concentration local
957 … CALL ice_autoconversion(t(:,k), qiic(:,k), lami(:,k), n0i(:,k), dcs, prci(:,k), nprci(:,k))
962 nprci(:,k) = tnd_nsnow(:,k) / cldm(:,k)
1245 …dum = ((-nnucct(i,k)-tmpfrz-nnudep(i,k)-nsacwi(i,k))*lcldm(i,k)+(nprci(i,k)+ nprai…
1249 …dm(i,k)+ nnuccri(i,k)*precip_frac(i,k))/ ((nprci(i,k)+nprai(&
1251 nprci(i,k) = nprci(i,k)*ratio
1274 … dum = ((-nsagg(i,k)-nsubs(i,k)-nnuccr(i,k))*precip_frac(i,k)-nprci(i,k)*icldm(i,k))*deltat
1276 …ratio = (ns(i,k)/deltat+nnuccr(i,k)* precip_frac(i,k)+nprci(i,k)*icldm(i,k))/preci…
1394 …*lcldm(i,k)+(nsubi(i,k)-nprci(i,k)- nprai(i,k))*icldm(i,k)+nnuccri(i,k)*precip_fra…
1396 …= nstend(i,k)+(nsubs(i,k)+ nsagg(i,k)+nnuccr(i,k))*precip_frac(i,k)+nprci(i,k)*icldm(&
|