Searched refs:nnuccri (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 | 489 REAL(KIND=r8) :: nnuccri(mgncol,nlev) ! number concentration local
1168 nnuccri(i,k) = 0._r8
1173 nnuccri(i,k) = nnuccr(i,k)
1207 …dum = ((-nsubr(i,k)+npracs(i,k)+nnuccr(i,k)+nnuccri(i,k)-nragg(i,k))*precip_frac(i,k)- …
1211 +nnuccr(i,k)+nnuccri(i,k)-nragg(i,k))*omsm
1216 nnuccri(i,k) = nnuccri(i,k)*ratio
1246 … -nsubi(i,k))*icldm(i,k)-nnuccri(i,k)*precip_frac(i,k)- nnuccd(i,k))*deltat
1249 …*lcldm(i,k)+ nnuccri(i,k)*precip_frac(i,k))/ ((nprci(i,k)+np…
1394 …cldm(i,k)+(nsubi(i,k)-nprci(i,k)- nprai(i,k))*icldm(i,k)+nnuccri(i,k)*precip_frac(…
1399 -nnuccri(i,k)+nragg(i,k))*precip_frac(i,k)
|