| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1434 |
TRBFLX |
SUBROUTINE TRBFLX (NN,TH,THV,SH,U,V,QQ,PL,PLE,PLK,PLKE,DPSTR, |
|
./pkg/fizhi/fizhi_turb.F |
1485 |
TRBFLX |
_RL TH(irun,NLEV+1),THV(irun,NLEV+1),SH(irun,NLEV+1) |
|
./pkg/fizhi/fizhi_turb.F |
1978 |
TRBFLX |
DSH(I,NLEV) = SH(I,NLEV)-SH(I,NLEVP1) |
|
./pkg/fizhi/fizhi_turb.F |
1979 |
TRBFLX |
SBAR(I,NLEV) = AA(I,NLEV) * (SH(I,NLEV) - SHSAT(I,NLEV)) |
|
./pkg/fizhi/fizhi_turb.F |
1995 |
TRBFLX |
BETAT(I,NLEV) = 1. + VIRTCON*SH(I,NLEV) - VRT1CON*SHL(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1998 |
TRBFLX |
BETAL(I,NLEV) = (1.+VIRTCON*SH(I,NLEV)-TWO*VRT1CON*SHL(I,NLEV)) |
|
./pkg/fizhi/fizhi_turb.F |
2014 |
TRBFLX |
3 SH(1,NLEV),SH(1,NLEVP1),PLK(1,NLEV), |
|
./pkg/fizhi/fizhi_turb.F |
2078 |
TRBFLX |
DSH(I,L) = ( SH(I,L)-SH(I,L+1) ) * ADZ2(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2100 |
TRBFLX |
SBAR(I,L) = AA(I,L) * (SH(I,L) - SHSAT(I,L)) |
|
./pkg/fizhi/fizhi_turb.F |
2166 |
TRBFLX |
BETAT(I,L) = 1. + VIRTCON * SH(I,L) - VRT1CON * SHL(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2169 |
TRBFLX |
BETAL(I,L) = ( 1. + VIRTCON*SH(I,L) - TWO*VRT1CON*SHL(I,L) ) |
|
./pkg/fizhi/fizhi_turb.F |
2583 |
TRBFLX |
CALL TRBDIF(SH,DELSH,RHOKDZ,FLXFAC,DTHL,DELTHL,NLEV, |
|
./pkg/my82/my82_calc.F |
107 |
MY82_CALC |
SH(I,J,K) = SHtmp |
|
./pkg/my82/my82_calc.F |
111 |
MY82_CALC |
& b1*(SH(I,J,K)*GH(I,J) + SM(I,J,K)*GM(I,J)) ) |
|
./pkg/my82/my82_calc.F |
161 |
MY82_CALC |
MYdiffKr(I,J,K,bi,bj) = MYhbl(I,J,bi,bj)*tkel*SH(I,J,K) |
|
./pkg/my82/my82_calc.F |
65 |
MY82_CALC |
_RL SH(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/my82/my82_calc.F |
84 |
MY82_CALC |
SH(I,J,K) = 0. _d 0 |