| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
508 |
MOISTIO |
1, UL(num,1,1),ntracedim,ntracex,TH(num,NLTOP),SHL(num,NLTOP) |
|
./pkg/fizhi/fizhi_moist.F |
528 |
MOISTIO |
CVQ (I,L) = (SHL(I,L) - saveq (i,l)) |
|
./pkg/fizhi/fizhi_moist.F |
541 |
MOISTIO |
SHL(I,L) = saveq (i,l) + cvq (i,l) |
|
./pkg/fizhi/fizhi_moist.F |
619 |
MOISTIO |
CALL STRIP ( shgather,SHL,im*jm,ISTRIP,lm,NN) |
|
./pkg/fizhi/fizhi_moist.F |
623 |
MOISTIO |
SHL(I,L) = SHL(I,L) + CVQ(I,L)*tmstp/SP(I) |
|
./pkg/fizhi/fizhi_moist.F |
626 |
MOISTIO |
saveq (I,L) = SHL(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
630 |
MOISTIO |
CALL RNEVP (NN,ISTRIP,lm,TL,SHL,PCPEN,PL,CLFRAC,SP,DP,PLKE, |
|
./pkg/fizhi/fizhi_moist.F |
641 |
MOISTIO |
TMP1(I,L) = sp(i) * (SHL(I,L)-saveq(I,L)) * tminv |
|
./pkg/fizhi/fizhi_moist.F |
658 |
MOISTIO |
TMP1(I,L) = (SHL(I,L)-saveq(I,L)) * 1000. * sday * tminv |
|
./pkg/fizhi/fizhi_turb.F |
1508 |
TRBFLX |
_RL SHL(irun,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1825 |
TRBFLX |
SHL(I,NLEV) = FCC(I,NLEV) * SBAR(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1828 |
TRBFLX |
1 SHL(I,NLEV) = SHL(I,NLEV)+RSQ2PI*SVAR(I,NLEV)*EXP(-ARG(I,NLEV)) |
|
./pkg/fizhi/fizhi_turb.F |
1829 |
TRBFLX |
BETAT(I,NLEV) = 1. + VIRTCON*SH(I,NLEV) - VRT1CON*SHL(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1831 |
TRBFLX |
1 ( TH(I,NLEV) + CLH * SHL(I,NLEV) * (1./plk(i,nlev)) ) |
|
./pkg/fizhi/fizhi_turb.F |
1832 |
TRBFLX |
BETAL(I,NLEV) = (1.+VIRTCON*SH(I,NLEV)-TWO*VRT1CON*SHL(I,NLEV)) |
|
./pkg/fizhi/fizhi_turb.F |
1935 |
TRBFLX |
SHL(I,1) = FCC(I,1) * SBAR(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
1938 |
TRBFLX |
1 SHL(I,1) = SHL(I,1)+RSQ2PI*SVAR(I,1)*EXP(-ARG(I,1)) |
|
./pkg/fizhi/fizhi_turb.F |
1939 |
TRBFLX |
BETAT(I,1) = 1. + VIRTCON * SH(I,1) - VRT1CON * SHL(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
1941 |
TRBFLX |
1 ( TH(I,1) + (CLH/plk(I,1)) * SHL(I,1) ) |
|
./pkg/fizhi/fizhi_turb.F |
1942 |
TRBFLX |
BETAL(I,1) = ( 1. + VIRTCON*SH(I,1) - TWO*VRT1CON*SHL(I,1) ) |