Searched refs:mnuccc (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 | 459 REAL(KIND=r8) :: mnuccc(mgncol,nlev) ! mass mixing ratio local
1008 mnuccc(:,k), nnuccc(:,k))
1014 mnuccc(:,k) = mnuccc(:,k)*(nnuccd(:,k)/(nnuccc(:,k)*lcldm(:,k)))
1030 mnuccc(:,k) = nnuccc(:,k)*mi0l
1037 mnuccc(:,k) = 0._r8
1045 mnuccc(:,k) = 0._r8
1107 …ratio = qc(i,k)/deltat/((prc(i,k)+pra(i,k)+mnuccc(i,k)+mnucct(i,k)+ msacwi(i,k)+ps…
1111 mnuccc(i,k) = mnuccc(i,k)*ratio
1227 …io = (qi(i,k)/deltat+vap_dep(i,k)+berg(i,k)+mnuccd(i,k)+ (mnuccc(i,k)+mnucct(i,&
1333 …m(i,k)+mnuccd(i,k)+mnudep(i,k)*lcldm(i,k))*xxls+ ((bergs(i,k)+psacws(i,k)+mnuccc(i,k)&
[all …]
|
| H A D | micro_mg_utils.F90 | 505 …al SUBROUTINE immersion_freezing(microp_uniform, t, pgam, lamc, qcic, ncic, relvar, mnuccc, nnuccc) argument
518 REAL(KIND=r8), intent(out) :: mnuccc ! MMR local
529 … mnuccc = dum * nnuccc * pi/6._r8*rhow* rising_factorial(pgam+4._r8, 3)/lamc**3
531 mnuccc = 0._r8
|