Searched refs:tmpfrz (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 | 569 REAL(KIND=r8) :: tmpfrz local
1241 tmpfrz = nnuccc(i,k)
1243 tmpfrz = 0._r8
1245 …dum = ((-nnucct(i,k)-tmpfrz-nnudep(i,k)-nsacwi(i,k))*lcldm(i,k)+(nprci(i,k)+ nprai…
1248 …ratio = (ni(i,k)/deltat+nnuccd(i,k)+ (nnucct(i,k)+tmpfrz+nnudep(i,k)+nsacwi(i,k…
1389 tmpfrz = nnuccc(i,k)
1391 tmpfrz = 0._r8
1393 …nitend(i,k) = nitend(i,k)+ nnuccd(i,k)+ (nnucct(i,k)+tmpfrz+nnudep(i,k)+nsacwi(i,k…
|