Searched refs:qitend (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 | 722 qitend = 0._r8
1339 …qitend(i,k) = qitend(i,k)+ (mnuccc(i,k)+mnucct(i,k)+mnudep(i,k)+msacwi(i,k))*lcldm…
1467 dumi(i,k) = (qi(i,k)+qitend(i,k)*deltat)/icldm(i,k)
1533 dumi(i,k) = (qi(i,k)+qitend(i,k)*deltat)
1564 qitend(i,k) = qitend(i,k)-faltndi/nstep
1582 qitend(i,k) = qitend(i,k)-faltndi/nstep
1714 dumi(i,k) = max(qi(i,k)+qitend(i,k)*deltat,0._r8)
1779 qitend(i,k) = qitend(i,k)+dum*dumr(i,k)/deltat
1828 qitend(i,k) = qitend(i,k)+dum*dumc(i,k)/deltat
1867 qitend(i,k) = qitend(i,k)+dum*dum1
[all …]
|
| /dports/math/giacxcas/giac-1.6.0/src/ |
| H A D | gausspol.cc | 4065 index_t::iterator qit=qi.begin(),qitend=qi.end(); in has_constant_variables_gcd() local
4066 for (;qit!=qitend;++qit){ in has_constant_variables_gcd()
|