File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_turb.F |
1541 |
TRBFLX |
_RL DZ3(irun,nlev), TEMP(irun,nlev) |
./pkg/fizhi/fizhi_turb.F |
1798 |
TRBFLX |
TEMP(I,L) = VK * ADZ1(I,L) |
./pkg/fizhi/fizhi_turb.F |
1802 |
TRBFLX |
VKZE(I,NLEVM1) = TEMP(I,NLEV) |
./pkg/fizhi/fizhi_turb.F |
1808 |
TRBFLX |
VKZE(I,L) = VKZE(I,LP1) + TEMP(I,LP1) |
./pkg/fizhi/fizhi_turb.F |
1816 |
TRBFLX |
VKZM(I,L) = VKZE(I,L) - 0.5 * TEMP(I,L+1) |
./pkg/fizhi/fizhi_turb.F |
1844 |
TRBFLX |
TEMP(I,L) = PLKE(I,L+1) * ADZ2(I,L) |
./pkg/fizhi/fizhi_turb.F |
1845 |
TRBFLX |
RHODZ2(I,L) = TEMP(I,L) * RHODZ2(I,L) |
./pkg/fizhi/fizhi_turb.F |
1849 |
TRBFLX |
TEMP(I,L) = PLK(I,L+1) * ADZ1(I,L+1) |
./pkg/fizhi/fizhi_turb.F |
1850 |
TRBFLX |
RHODZ1(I,L) = TEMP(I,L) * RHODZ1(I,L) |
./pkg/fizhi/fizhi_turb.F |
2136 |
TRBFLX |
TEMP(I,L) = SQRT(SSDEV(I,L)) |
./pkg/fizhi/fizhi_turb.F |
2137 |
TRBFLX |
SVAR(I,L) = (1./2.) * (SVAR(I,L) + TEMP(I,L)) |
./pkg/fizhi/fizhi_turb.F |
2361 |
TRBFLX |
TEMP(I,L) = Q(I,L) / QE(I,L) |
./pkg/fizhi/fizhi_turb.F |
2362 |
TRBFLX |
KH(I,L) = TEMP(I,L) * KH(I,L) |
./pkg/fizhi/fizhi_turb.F |
2363 |
TRBFLX |
KM(I,L) = TEMP(I,L) * KM(I,L) |
./pkg/fizhi/fizhi_turb.F |
2365 |
TRBFLX |
TEMP(I,L) = 0.01 * QQE(I,L) |
./pkg/fizhi/fizhi_turb.F |
2367 |
TRBFLX |
1 ( QQ(I,L) .LE. TEMP(I,L) )) THEN |
./pkg/fizhi/fizhi_turb.F |
2368 |
TRBFLX |
QQ(I,L) = TEMP(I,L) |
./pkg/fizhi/fizhi_turb.F |
2397 |
TRBFLX |
TEMP(I,L) = QQE(I,L) * P3(I,L) |
./pkg/fizhi/fizhi_turb.F |
2412 |
TRBFLX |
1 ( XQ(I,L) .LT. TEMP(I,L) ) ) |
./pkg/fizhi/fizhi_turb.F |
2415 |
TRBFLX |
4 ( XQ(I,L) .GT. TEMP(I,L) ) ) ) |
./pkg/fizhi/fizhi_turb.F |
2544 |
TRBFLX |
TEMP(I,L) = RHOZPK(I,L) * KH(I,L) |
./pkg/fizhi/fizhi_turb.F |
2551 |
TRBFLX |
CALL TRBDIF(TH,DELTH,TEMP,FLXFPK,DTHS,DELTHS,NLEV,2,0. _d 0,irun) |
./pkg/fizhi/fizhi_turb.F |
3530 |
PSI |
_RL PSI2(irun),TEMP(irun) |
./pkg/fizhi/fizhi_turb.F |
3722 |
PSI |
TEMP(I) = ARG1(I) + CM5 * ARG0(I) |
./pkg/fizhi/fizhi_turb.F |
3738 |
PSI |
PSI2(I) = TEMP(I) + CM6 * ARG1(I) |
./pkg/fizhi/fizhi_turb.F |
3767 |
PSI |
TEMP(I) = TEMP(I) + CM8 |
./pkg/fizhi/fizhi_turb.F |
3770 |
PSI |
PSI2(I) = TEMP(I) + ARG0(I) * ARG1(I) |
./pkg/fizhi/fizhi_turb.F |
4999 |
ZCSUB |
_RL AA(IRUN,5),TEMP(IRUN) |
./pkg/fizhi/fizhi_turb.F |
5069 |
ZCSUB |
TEMP(I) = AA(I,1) / VUSTAR(I) |
./pkg/fizhi/fizhi_turb.F |
5070 |
ZCSUB |
VZSEA(I) = VZSEA(I) + TEMP(I) |
./pkg/fizhi/fizhi_turb.F |
5080 |
ZCSUB |
VDZSEA(I) = VDZSEA(I) * VUSTAR(I) - TEMP(I) |