Home
last modified time | relevance | path

Searched refs:xxls_squared (Results 1 – 1 of 1) sorted by relevance

/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/CAM5_mg2_pgi/src/
H A Dmicro_mg2_0.F90179 REAL(KIND=r8) :: xxls_squared variable
217 READ(UNIT=kgen_unit) xxls_squared
1140 … dum = (q(i,k)-qvi(i,k))/(1._r8 + xxls_squared*qvi(i,k)/(cpp*rv*t(i,k)**2))/deltat
1309 dum = (qtmp-qvn)/(1._r8 + xxls_squared*qvn/(cpp*rv*ttmp**2))