File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_moist.F |
105 |
MOISTIO |
_RL TL(ISTRIP,lm) , SHL(ISTRIP,lm) |
./pkg/fizhi/fizhi_moist.F |
360 |
MOISTIO |
CALL STRIP ( shgather, SHL ,im*jm,ISTRIP,lm,NN ) |
./pkg/fizhi/fizhi_moist.F |
418 |
MOISTIO |
TMP1(I,3) = TMP1(I,3) + (PLE(I,L+1)-PLE(I,L))*SHL(I,L)/sp(i) |
./pkg/fizhi/fizhi_moist.F |
424 |
MOISTIO |
SHL(I,NSUBCL) = TMP1(I,3)*TMP1(I,4) |
./pkg/fizhi/fizhi_moist.F |
482 |
MOISTIO |
rh = SHL(I,NSUBCL) / tmp2(i,3) |
./pkg/fizhi/fizhi_moist.F |
532 |
MOISTIO |
1, UL(num,1,1),ntracedim,ntracex,TH(num,NLTOP),SHL(num,NLTOP) |
./pkg/fizhi/fizhi_moist.F |
552 |
MOISTIO |
CVQ (I,L) = (SHL(I,L) - saveq (i,l)) |
./pkg/fizhi/fizhi_moist.F |
565 |
MOISTIO |
SHL(I,L) = saveq (i,l) + cvq (i,l) |
./pkg/fizhi/fizhi_moist.F |
643 |
MOISTIO |
CALL STRIP ( shgather,SHL,im*jm,ISTRIP,lm,NN) |
./pkg/fizhi/fizhi_moist.F |
647 |
MOISTIO |
SHL(I,L) = SHL(I,L) + CVQ(I,L)*tmstp/SP(I) |
./pkg/fizhi/fizhi_moist.F |
650 |
MOISTIO |
saveq (I,L) = SHL(I,L) |
./pkg/fizhi/fizhi_moist.F |
654 |
MOISTIO |
CALL RNEVP (NN,ISTRIP,lm,TL,SHL,PCPEN,PL,CLFRAC,SP,DP,PLKE, |
./pkg/fizhi/fizhi_moist.F |
665 |
MOISTIO |
TMP1(I,L) = sp(i) * (SHL(I,L)-saveq(I,L)) * tminv |
./pkg/fizhi/fizhi_moist.F |
682 |
MOISTIO |
TMP1(I,L) = (SHL(I,L)-saveq(I,L)) * 1000. * sday * tminv |
./pkg/fizhi/fizhi_turb.F |
1399 |
TRBFLX |
_RL SHL(irun,NLEV) |
./pkg/fizhi/fizhi_turb.F |
1739 |
TRBFLX |
SHL(I,NLEV) = FCC(I,NLEV) * SBAR(I,NLEV) |
./pkg/fizhi/fizhi_turb.F |
1742 |
TRBFLX |
1 SHL(I,NLEV) = SHL(I,NLEV)+RSQ2PI*SVAR(I,NLEV)*EXP(-ARG(I,NLEV)) |
./pkg/fizhi/fizhi_turb.F |
1743 |
TRBFLX |
BETAT(I,NLEV) = 1. + VIRTCON*SH(I,NLEV) - VRT1CON*SHL(I,NLEV) |
./pkg/fizhi/fizhi_turb.F |
1745 |
TRBFLX |
1 ( TH(I,NLEV) + CLH * SHL(I,NLEV) * (1./plk(i,nlev)) ) |
./pkg/fizhi/fizhi_turb.F |
1746 |
TRBFLX |
BETAL(I,NLEV) = (1.+VIRTCON*SH(I,NLEV)-TWO*VRT1CON*SHL(I,NLEV)) |
./pkg/fizhi/fizhi_turb.F |
1860 |
TRBFLX |
SHL(I,L) = FCC(I,L) * SBAR(I,L) |
./pkg/fizhi/fizhi_turb.F |
1863 |
TRBFLX |
1 SHL(I,L) = SHL(I,L)+RSQ2PI*SVAR(I,L)*EXP(-ARG(I,L)) |
./pkg/fizhi/fizhi_turb.F |
1864 |
TRBFLX |
BETAT(I,L) = 1. + VIRTCON * SH(I,L) - VRT1CON * SHL(I,L) |
./pkg/fizhi/fizhi_turb.F |
1866 |
TRBFLX |
1 ( TH(I,L) + (CLH/plk(I,L)) * SHL(I,L) ) |
./pkg/fizhi/fizhi_turb.F |
1867 |
TRBFLX |
BETAL(I,L) = ( 1. + VIRTCON*SH(I,L) - TWO*VRT1CON*SHL(I,L) ) |