Searched refs:mnucct (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 | 462 REAL(KIND=r8) :: mnucct(mgncol,nlev) ! mass mixing ratio local
1019 qcic(:,k), ncic(:,k), relvar(:,k), mnucct(:,k), nnucct(:,k))
1032 mnucct(:,k) = nnucct(:,k)*mi0l
1039 mnucct(:,k) = 0._r8
1047 mnucct(:,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…
1112 mnucct(i,k) = mnucct(i,k)*ratio
1227 …io = (qi(i,k)/deltat+vap_dep(i,k)+berg(i,k)+mnuccd(i,k)+ (mnuccc(i,k)+mnucct(i,&
1334 …+mnucct(i,k)+msacwi(i,k))*lcldm(i,k)+(mnuccr(i,k)+ pracs(i,k)+mnuccri(i,k))*precip_fr…
1339 …qitend(i,k) = qitend(i,k)+ (mnuccc(i,k)+mnucct(i,k)+mnudep(i,k)+msacwi(i,k))*lcldm…
[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
554 REAL(KIND=r8), intent(out) :: mnucct(:) ! MMR local
584 …mnucct(i) = dum * contact_factor * pi/3._r8*rhow*rising_factorial(pgam(i)+2._r8, 3)/l…
587 mnucct(i) = 0._r8
|