| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1359 |
TRBFLX |
_RL AHS (irun), HS(irun) |
|
./pkg/fizhi/fizhi_turb.F |
1567 |
TRBFLX |
HS(I) = 0.5 * ADZ1(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1580 |
TRBFLX |
DZ3(I,NLEV) = ALPHA * HS(I) |
|
./pkg/fizhi/fizhi_turb.F |
1675 |
TRBFLX |
AHS(I) = 1. / HS(I) |
|
./pkg/fizhi/fizhi_turb.F |
1764 |
TRBFLX |
5 IWATER,HS,AHS, |
|
./pkg/sphere/sphere.F |
155 |
SHC2GRID |
REAL HS (NLONLMT) |
|
./pkg/sphere/sphere.F |
182 |
SHC2GRID |
CALL SHC2ZONE( LMAX, SHC, XLAT1, XLAT2, HS, HN, P ) |
|
./pkg/sphere/sphere.F |
183 |
SHC2GRID |
CALL FSC2DAT( NLON, HS ) |
|
./pkg/sphere/sphere.F |
209 |
SHC4GRID |
REAL HS (NLONLMT) |
|
./pkg/sphere/sphere.F |
241 |
SHC4GRID |
CALL FSC4DAT(NLON,HS) |
|
./pkg/sphere/sphere.F |
245 |
SHC4GRID |
CALL SHC4ZONE(LMAX,SHC,XLAT1,XLAT2,HS,HN,P) |
|
./pkg/sphere/sphere.F |
297 |
SHC2ZONE |
SUBROUTINE SHC2ZONE(LMAX,SHC,XLAT1,XLAT2,HS,HN,P) |
|
./pkg/sphere/sphere.F |
305 |
SHC2ZONE |
REAL HS(1+LMAX+LMAX) ! OUTPUT |
|
./pkg/sphere/sphere.F |
367 |
SHC2ZONE |
HS(1) = A |
|
./pkg/sphere/sphere.F |
370 |
SHC2ZONE |
HS(M+M ) = A |
|
./pkg/sphere/sphere.F |
371 |
SHC2ZONE |
HS(M+M+1) = B |
|
./pkg/sphere/sphere.F |
382 |
SHC4ZONE |
SUBROUTINE SHC4ZONE(LMAX,SHC,XLAT1,XLAT2,HS,HN,P) |
|
./pkg/sphere/sphere.F |
394 |
SHC4ZONE |
REAL HS(1+LMAX+LMAX) |
|
./pkg/sphere/sphere.F |
438 |
SHC4ZONE |
CE = HS(J)+HN(J) |
|
./pkg/sphere/sphere.F |
439 |
SHC4ZONE |
CO = HS(J)-HN(J) |
|
./pkg/sphere/sphere.F |
440 |
SHC4ZONE |
SE = HS(J)+HN(JP) |
|
./pkg/sphere/sphere.F |
441 |
SHC4ZONE |
SO = HS(J)-HN(JP) |