| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
106 |
MOISTIO |
_RL PL(ISTRIP,lm) , PLK(ISTRIP,lm) |
|
./pkg/fizhi/fizhi_moist.F |
2366 |
RNEVP |
1 PLK,TH,TEMP1,TEMP2,TEMP3,ITMP1,ITMP2,RCON,RLAR,CLSBTH,tmscl, |
|
./pkg/fizhi/fizhi_moist.F |
2375 |
RNEVP |
. RCON(IRUN),RLAR(IRUN),DP(IRUN,NLAY),PLK(IRUN,NLAY),TH(IRUN,NLAY), |
|
./pkg/fizhi/fizhi_moist.F |
354 |
MOISTIO |
CALL STRIP ( pkzgather, PLK ,im*jm,ISTRIP,lm,NN ) |
|
./pkg/fizhi/fizhi_moist.F |
648 |
MOISTIO |
TL(I,L) = TH(I,L)*PLK(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
655 |
MOISTIO |
. PLK,TH,TMP1,TMP2,TMP3,ITMP1,ITMP2,PCNET,PRECIP, |
|
./pkg/fizhi/fizhi_moist.F |
670 |
MOISTIO |
TMP1(I,L) = sp(i) * ((TL(I,L)/PLK(I,L))-saveth(i,l)) * tminv |
|
./pkg/fizhi/fizhi_moist.F |
677 |
MOISTIO |
TMP1(I,L) = ((TL(I,L)/PLK(I,L))-saveth(i,l))*plk(i,l)*sday*tminv |
|
./pkg/fizhi/fizhi_turb.F |
1267 |
TRBFLX |
SUBROUTINE TRBFLX (NN,TH,THV,SH,U,V,QQ,PL,PLE,PLK,PLKE,DPSTR, |
|
./pkg/fizhi/fizhi_turb.F |
1317 |
TRBFLX |
_RL PL(irun,NLEV),PLE(irun,NLEV+1),PLK(irun,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1624 |
TRBFLX |
TEMP(I,L) = PLK(I,L+1) * ADZ1(I,L+1) |
|
./pkg/fizhi/fizhi_turb.F |
1635 |
TRBFLX |
FLXFPK(I,L) = FLXFPK(I,L) * PLK(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1647 |
TRBFLX |
FLXFAC(I,L) = FLXFPK(I,L) * PLK(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1681 |
TRBFLX |
DPK(I,L) = ( PLK(I,L+1)-PLK(I,L) ) * ADZ2(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1717 |
TRBFLX |
TL(I,NLEV) = TH(I,NLEV)*PLK(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1762 |
TRBFLX |
3 SH(1,NLEV),SH(1,NLEVP1),PLK(1,NLEV), |
|
./pkg/fizhi/fizhi_turb.F |
1815 |
TRBFLX |
TL(I,L) = TH(I,L)*PLK(I,L) |