| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
457 |
SWRIO |
. flux,fluxclr,fdirir,fdifir,dirpar,difpar, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
468 |
SWRIO |
dtswc(i,L) = alf*( fluxclr(i,L)-fluxclr(i,L+1) )/pk(i,L) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
476 |
SWRIO |
call PASTE ( fluxclr(1,1),osrclr,istrip,im*jm,1,nn ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
479 |
SWRIO |
call PASTE ( fluxclr(1,lm+1),swgclr,istrip,im*jm,1,nn ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
83 |
SWRIO |
_RL fluxclr(istrip,lm+1) |
|
./pkg/fizhi/fizhi_swrad.F |
456 |
SWRIO |
. flux,fluxclr,fdirir,fdifir,dirpar,difpar, |
|
./pkg/fizhi/fizhi_swrad.F |
467 |
SWRIO |
dtswc(i,L) = alf*( fluxclr(i,L)-fluxclr(i,L+1) )/pk(i,L) |
|
./pkg/fizhi/fizhi_swrad.F |
475 |
SWRIO |
call PASTE ( fluxclr(1,1),osrclr,istrip,im*jm,1,nn ) |
|
./pkg/fizhi/fizhi_swrad.F |
478 |
SWRIO |
call PASTE ( fluxclr(1,lm+1),swgclr,istrip,im*jm,1,nn ) |
|
./pkg/fizhi/fizhi_swrad.F |
83 |
SWRIO |
_RL fluxclr(istrip,lm+1) |