Searched refs:nnuccc (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 | 505 …al SUBROUTINE immersion_freezing(microp_uniform, t, pgam, lamc, qcic, ncic, relvar, mnuccc, nnuccc) argument
519 REAL(KIND=r8), intent(out) :: nnuccc ! Number local
528 …nnuccc = pi/6._r8*ncic*rising_factorial(pgam+1._r8, 3)* bimm*(exp(aimm*(tmelt - t))-1._r…
529 … mnuccc = dum * nnuccc * pi/6._r8*rhow* rising_factorial(pgam+4._r8, 3)/lamc**3
532 nnuccc = 0._r8
|
| H A D | micro_mg2_0.F90 | 460 REAL(KIND=r8) :: nnuccc(mgncol,nlev) ! number concentration local
1008 mnuccc(:,k), nnuccc(:,k))
1012 WHERE ( nnuccc(:,k)*lcldm(:,k).gt.nnuccd(:,k) )
1015 nnuccc(:,k) = nnuccd(:,k)/lcldm(:,k)
1029 nnuccc(:,k) = frzimm(:,k)*1.0e6_r8/rho(:,k)
1030 mnuccc(:,k) = nnuccc(:,k)*mi0l
1036 nnuccc(:,k) = 0._r8
1046 nnuccc(:,k) = 0._r8
1162 nnuccc(i,k) = nnuccc(i,k)*ratio
1241 tmpfrz = nnuccc(i,k)
[all …]
|