File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_turb.F |
1371 |
TRBFLX |
_RL DZ3(irun,nlev), TEMP(irun,nlev) |
./pkg/fizhi/fizhi_turb.F |
1587 |
TRBFLX |
TEMP(I,L) = VK * ADZ1(I,L) |
./pkg/fizhi/fizhi_turb.F |
1591 |
TRBFLX |
VKZE(I,NLEVM1) = TEMP(I,NLEV) |
./pkg/fizhi/fizhi_turb.F |
1597 |
TRBFLX |
VKZE(I,L) = VKZE(I,LP1) + TEMP(I,LP1) |
./pkg/fizhi/fizhi_turb.F |
1602 |
TRBFLX |
VKZM(I,L) = VKZE(I,L) - 0.5 * TEMP(I,L+1) |
./pkg/fizhi/fizhi_turb.F |
1619 |
TRBFLX |
TEMP(I,L) = PLKE(I,L+1) * ADZ2(I,L) |
./pkg/fizhi/fizhi_turb.F |
1620 |
TRBFLX |
RHODZ2(I,L) = TEMP(I,L) * RHODZ2(I,L) |
./pkg/fizhi/fizhi_turb.F |
1624 |
TRBFLX |
TEMP(I,L) = PLK(I,L+1) * ADZ1(I,L+1) |
./pkg/fizhi/fizhi_turb.F |
1625 |
TRBFLX |
RHODZ1(I,L) = TEMP(I,L) * RHODZ1(I,L) |
./pkg/fizhi/fizhi_turb.F |
1851 |
TRBFLX |
TEMP(I,L) = SQRT(SSDEV(I,L)) |
./pkg/fizhi/fizhi_turb.F |
1852 |
TRBFLX |
SVAR(I,L) = (1./2.) * (SVAR(I,L) + TEMP(I,L)) |
./pkg/fizhi/fizhi_turb.F |
1996 |
TRBFLX |
TEMP(I,L) = Q(I,L) / QE(I,L) |
./pkg/fizhi/fizhi_turb.F |
1997 |
TRBFLX |
KH(I,L) = TEMP(I,L) * KH(I,L) |
./pkg/fizhi/fizhi_turb.F |
1998 |
TRBFLX |
KM(I,L) = TEMP(I,L) * KM(I,L) |
./pkg/fizhi/fizhi_turb.F |
2000 |
TRBFLX |
TEMP(I,L) = 0.01 * QQE(I,L) |
./pkg/fizhi/fizhi_turb.F |
2002 |
TRBFLX |
1 ( QQ(I,L) .LE. TEMP(I,L) )) THEN |
./pkg/fizhi/fizhi_turb.F |
2003 |
TRBFLX |
QQ(I,L) = TEMP(I,L) |
./pkg/fizhi/fizhi_turb.F |
2027 |
TRBFLX |
TEMP(I,L) = QQE(I,L) * P3(I,L) |
./pkg/fizhi/fizhi_turb.F |
2034 |
TRBFLX |
1 ( XQ(I,L) .LT. TEMP(I,L) ) ) |
./pkg/fizhi/fizhi_turb.F |
2037 |
TRBFLX |
4 ( XQ(I,L) .GT. TEMP(I,L) ) ) ) |
./pkg/fizhi/fizhi_turb.F |
2138 |
TRBFLX |
TEMP(I,L) = RHOZPK(I,L) * KH(I,L) |
./pkg/fizhi/fizhi_turb.F |
2145 |
TRBFLX |
CALL TRBDIF(TH,DELTH,TEMP,FLXFPK,DTHS,DELTHS,NLEV,2,0. _d 0,irun) |
./pkg/fizhi/fizhi_turb.F |
3078 |
PSI |
_RL PSI2(irun),TEMP(irun) |
./pkg/fizhi/fizhi_turb.F |
3270 |
PSI |
TEMP(I) = ARG1(I) + CM5 * ARG0(I) |
./pkg/fizhi/fizhi_turb.F |
3286 |
PSI |
PSI2(I) = TEMP(I) + CM6 * ARG1(I) |
./pkg/fizhi/fizhi_turb.F |
3315 |
PSI |
TEMP(I) = TEMP(I) + CM8 |
./pkg/fizhi/fizhi_turb.F |
3318 |
PSI |
PSI2(I) = TEMP(I) + ARG0(I) * ARG1(I) |
./pkg/fizhi/fizhi_turb.F |
4432 |
ZCSUB |
_RL AA(IRUN,5),TEMP(IRUN) |
./pkg/fizhi/fizhi_turb.F |
4502 |
ZCSUB |
TEMP(I) = AA(I,1) / VUSTAR(I) |
./pkg/fizhi/fizhi_turb.F |
4503 |
ZCSUB |
VZSEA(I) = VZSEA(I) + TEMP(I) |
./pkg/fizhi/fizhi_turb.F |
4513 |
ZCSUB |
VDZSEA(I) = VDZSEA(I) * VUSTAR(I) - TEMP(I) |