| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
547 |
OPTHK |
subroutine OPTHK ( tl,pl,ple,lz,cf,cfm,lwi,im,jm,lm,tau ) |
|
./pkg/fizhi/fizhi_swrad.F |
584 |
OPTHK |
_RL lz(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
618 |
OPTHK |
tauice = max( 0.0002 _d 0, 0.002*min(500*lz(i,j,L)*1000, |
|
./pkg/fizhi/fizhi_swrad.F |
626 |
OPTHK |
tauh2o = max( 0.0020 _d 0, 0.200*min(200*lz(i,j,L)*1000, |
|
./pkg/fizhi/fizhi_swrad.F |
631 |
OPTHK |
if( lz(i,j,L).eq.0.0 ) then |
|
./pkg/fizhi/fizhi_swrad.F |
636 |
OPTHK |
tauh2o = max( 0.0020 _d 0, 0.120*min( 20*lz(i,j,L)*1000, |