Searched refs:nsagg (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 | 597 elemental SUBROUTINE snow_self_aggregation(t, rho, asn, rhosn, qsic, nsic, nsagg) argument
606 REAL(KIND=r8), intent(out) :: nsagg local
608 …nsagg = -1108._r8*eii/(4._r8*720._r8*rhosn)*asn*qsic*nsic*rho* ((qsic/nsic)*(1._r8/(rhosn…
611 nsagg = 0._r8
|
| H A D | micro_mg2_0.F90 | 475 REAL(KIND=r8) :: nsagg(mgncol,nlev) ! number concentration local
1052 … CALL snow_self_aggregation(t(:,k), rho(:,k), asn(:,k), rhosn, qsic(:,k), nsic(:,k), nsagg(:,k))
1274 … dum = ((-nsagg(i,k)-nsubs(i,k)-nnuccr(i,k))*precip_frac(i,k)-nprci(i,k)*icldm(i,k))*deltat
1277 i,k)/ (-nsubs(i,k)-nsagg(i,k))*omsm
1279 nsagg(i,k) = nsagg(i,k)*ratio
1396 …nstend(i,k) = nstend(i,k)+(nsubs(i,k)+ nsagg(i,k)+nnuccr(i,k))*precip_frac(i,k)+nprci…
|