Searched refs:nsubi (Results 1 – 1 of 1) sorted by relevance
| /dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/CAM5_mg2_pgi/src/ |
| H A D | micro_mg2_0.F90 | 504 REAL(KIND=r8) :: nsubi(mgncol,nlev) ! cloud ice local
1086 nsubi(:,k) = vap_dep(:,k) / qi(:,k) * ni(:,k) / icldm(:,k)
1088 nsubi(:,k) = 0._r8
1246 … -nsubi(i,k))*icldm(i,k)-nnuccri(i,k)*precip_frac(i,k)- nnuccd(i,k))*deltat
1250 i,k)-nsubi(i,k))*icldm(i,k))*omsm
1253 nsubi(i,k) = nsubi(i,k)*ratio
1394 …*lcldm(i,k)+(nsubi(i,k)-nprci(i,k)- nprai(i,k))*icldm(i,k)+nnuccri(i,k)*precip_fra…
|