| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
488 |
SWRIO |
tstrip(i) = 1.0 - flux(i,lm+1)/ |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
490 |
SWRIO |
if( tstrip(i).lt.0.0 ) tstrip(i) = undef |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
492 |
SWRIO |
tstrip(i) = undef |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
495 |
SWRIO |
call PASTE ( tstrip,albedo,istrip,im*jm,1,nn ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
91 |
SWRIO |
_RL tstrip (istrip) |
|
./pkg/fizhi/fizhi_swrad.F |
487 |
SWRIO |
tstrip(i) = 1.0 - flux(i,lm+1)/ |
|
./pkg/fizhi/fizhi_swrad.F |
489 |
SWRIO |
if( tstrip(i).lt.0.0 ) tstrip(i) = undef |
|
./pkg/fizhi/fizhi_swrad.F |
491 |
SWRIO |
tstrip(i) = undef |
|
./pkg/fizhi/fizhi_swrad.F |
494 |
SWRIO |
call PASTE ( tstrip,albedo,istrip,im*jm,1,nn ) |
|
./pkg/fizhi/fizhi_swrad.F |
91 |
SWRIO |
_RL tstrip (istrip) |