| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
540 |
OPTHK |
subroutine OPTHK ( tl,pl,ple,lz,cf,cfm,lwi,im,jm,lm,tau ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
577 |
OPTHK |
_RL lz(im,jm,lm) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
611 |
OPTHK |
tauice = max( 0.0002 _d 0, 0.002*min(500*lz(i,j,L)*1000, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
619 |
OPTHK |
tauh2o = max( 0.0020 _d 0, 0.200*min(200*lz(i,j,L)*1000, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
624 |
OPTHK |
if( lz(i,j,L).eq.0.0 ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
629 |
OPTHK |
tauh2o = max( 0.0020 _d 0, 0.120*min( 20*lz(i,j,L)*1000, |
|
./pkg/fizhi/fizhi_swrad.F |
539 |
OPTHK |
subroutine OPTHK ( tl,pl,ple,lz,cf,cfm,lwi,im,jm,lm,tau ) |
|
./pkg/fizhi/fizhi_swrad.F |
576 |
OPTHK |
_RL lz(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
610 |
OPTHK |
tauice = max( 0.0002 _d 0, 0.002*min(500*lz(i,j,L)*1000, |
|
./pkg/fizhi/fizhi_swrad.F |
618 |
OPTHK |
tauh2o = max( 0.0020 _d 0, 0.200*min(200*lz(i,j,L)*1000, |
|
./pkg/fizhi/fizhi_swrad.F |
623 |
OPTHK |
if( lz(i,j,L).eq.0.0 ) then |
|
./pkg/fizhi/fizhi_swrad.F |
628 |
OPTHK |
tauh2o = max( 0.0020 _d 0, 0.120*min( 20*lz(i,j,L)*1000, |