Searched refs:nnucct (Results 1 – 2 of 2) sorted by relevance
| /dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/CAM5_mg2_pgi/src/ |
| H A D | micro_mg2_0.F90 | 463 REAL(KIND=r8) :: nnucct(mgncol,nlev) ! number concentration local
1019 qcic(:,k), ncic(:,k), relvar(:,k), mnucct(:,k), nnucct(:,k))
1031 nnucct(:,k) = frzcnt(:,k)*1.0e6_r8/rho(:,k)
1032 mnucct(:,k) = nnucct(:,k)*mi0l
1038 nnucct(:,k) = 0._r8
1048 nnucct(:,k) = 0._r8
1156 …dum = (nprc1(i,k)+npra(i,k)+nnuccc(i,k)+nnucct(i,k)+ npsacws(i,k)-nsubc(i,k))*lcldm(i…
1163 nnucct(i,k) = nnucct(i,k)*ratio
1245 …dum = ((-nnucct(i,k)-tmpfrz-nnudep(i,k)-nsacwi(i,k))*lcldm(i,k)+(nprci(i,k)+ nprai…
1248 …ratio = (ni(i,k)/deltat+nnuccd(i,k)+ (nnucct(i,k)+tmpfrz+nnudep(i,k)+nsacwi(i,k…
[all …]
|
| H A D | micro_mg_utils.F90 | 539 …ontact_freezing(microp_uniform, t, p, rndst, nacon, pgam, lamc, qcic, ncic, relvar, mnucct, nnucct) argument
555 REAL(KIND=r8), intent(out) :: nnucct(:) ! Number local
585 nnucct(i) = dum1 * 2._r8 * contact_factor
588 nnucct(i) = 0._r8
|