| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_utils.F |
46 |
NO PROCEDURE |
AARG=ABS(ARG) |
|
./pkg/fizhi/fizhi_utils.F |
55 |
NO PROCEDURE |
IF ( ARG .LT. 0.0 ) ERRF = -ERRF |
|
./pkg/fizhi/fizhi_turb.F |
1510 |
TRBFLX |
_RL ARG(irun,NLEV),XXZETA(irun),QBYU(irun) |
|
./pkg/fizhi/fizhi_turb.F |
1826 |
TRBFLX |
ARG(I,NLEV) = (1./2.)*Q1M(I,NLEV)*Q1M(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1827 |
TRBFLX |
IF(ARG(I,NLEV).LE.ARGMAX) |
|
./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 |
1936 |
TRBFLX |
ARG(I,1) = (1./2.)*Q1M(I,1)*Q1M(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
1937 |
TRBFLX |
IF(ARG(I,1).LE.ARGMAX) |
|
./pkg/fizhi/fizhi_turb.F |
1938 |
TRBFLX |
1 SHL(I,1) = SHL(I,1)+RSQ2PI*SVAR(I,1)*EXP(-ARG(I,1)) |