Searched refs:accre_enhan (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 | 760 …BROUTINE accrete_cloud_water_rain(microp_uniform, qric, qcic, ncic, relvar, accre_enhan, pra, npra) argument 769 REAL(KIND=r8), intent(in) :: accre_enhan local 776 pra_coef = accre_enhan * var_coef(relvar, 1.15_r8)
|
H A D | micro_mg2_0.F90 | 227 …end(mgncol, nlev, deltatin, t, q, qcn, qin, ncn, nin, qrn, qsn, nrn, nsn, relvar, accre_enhan, p, & argument 279 REAL(KIND=r8), intent(in) :: accre_enhan(:,:) ! optional accretion local 1064 …ud_water_rain(microp_uniform, qric(:,k), qcic(:,k), ncic(:,k), relvar(:,k), accre_enhan(:,k), pra(&
|