| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
467 |
SWRIO |
dtsw (i,L) = alf*( flux (i,L)-flux (i,L+1) )/pk(i,L) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
472 |
SWRIO |
call PASTE ( dtsw , dtradsw ,istrip,im*jm,lm,nn ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
84 |
SWRIO |
_RL dtsw(istrip,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
466 |
SWRIO |
dtsw (i,L) = alf*( flux (i,L)-flux (i,L+1) )/pk(i,L) |
|
./pkg/fizhi/fizhi_swrad.F |
471 |
SWRIO |
call PASTE ( dtsw , dtradsw ,istrip,im*jm,lm,nn ) |
|
./pkg/fizhi/fizhi_swrad.F |
84 |
SWRIO |
_RL dtsw(istrip,lm) |