| File |
Line number |
Procedure |
Code |
|
./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 |
1315 |
TRBFLX |
_RL TH(irun,NLEV+1),THV(irun,NLEV+1),SH(irun,NLEV+1) |
|
./pkg/fizhi/fizhi_turb.F |
1726 |
TRBFLX |
DSH(I,NLEV) = SH(I,NLEV)-SH(I,NLEVP1) |
|
./pkg/fizhi/fizhi_turb.F |
1727 |
TRBFLX |
SBAR(I,NLEV) = AA(I,NLEV) * (SH(I,NLEV) - SHSAT(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 |
1746 |
TRBFLX |
BETAL(I,NLEV) = (1.+VIRTCON*SH(I,NLEV)-TWO*VRT1CON*SHL(I,NLEV)) |
|
./pkg/fizhi/fizhi_turb.F |
1762 |
TRBFLX |
3 SH(1,NLEV),SH(1,NLEVP1),PLK(1,NLEV), |
|
./pkg/fizhi/fizhi_turb.F |
1814 |
TRBFLX |
DSH(I,L) = ( SH(I,L)-SH(I,L+1) ) * ADZ2(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1829 |
TRBFLX |
SBAR(I,L) = AA(I,L) * (SH(I,L) - SHSAT(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 |
1867 |
TRBFLX |
BETAL(I,L) = ( 1. + VIRTCON*SH(I,L) - TWO*VRT1CON*SHL(I,L) ) |
|
./pkg/fizhi/fizhi_turb.F |
2171 |
TRBFLX |
CALL TRBDIF(SH,DELSH,RHOKDZ,FLXFAC,DTHL,DELTHL,NLEV, |
|
./pkg/my82/my82_calc.F |
111 |
MY82_CALC |
SH(I,J,K) = SHtmp |
|
./pkg/my82/my82_calc.F |
115 |
MY82_CALC |
& b1*(SH(I,J,K)*GH(I,J) + SM(I,J,K)*GM(I,J)) ) |
|
./pkg/my82/my82_calc.F |
165 |
MY82_CALC |
MYdiffKr(I,J,K,bi,bj) = MYhbl(I,J,bi,bj)*tkel*SH(I,J,K) |
|
./pkg/my82/my82_calc.F |
69 |
MY82_CALC |
_RL SH(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/my82/my82_calc.F |
88 |
MY82_CALC |
SH(I,J,K) = 0. _d 0 |