| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
170 |
LWRIO |
TZL(I,lm) = ( 2*tzl(i,lm)+tsurf(i) )/3.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
175 |
LWRIO |
call OPTHK ( tzl,pl,ple,cldlz,clro,clmo,lwi,istrip,1,lm,tauc ) |
|
./pkg/fizhi/fizhi_lwrad.F |
213 |
LWRIO |
call IRRAD ( istrip,1,1,lm,ple,tzl,shzl,ozl,tsurf,co2, |
|
./pkg/fizhi/fizhi_swrad.F |
422 |
SWRIO |
CALL STRIP ( tdry, tzl ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_swrad.F |
438 |
SWRIO |
alf = min( max((tzl(i,l)-253.15)/20.,0. _d 0) ,1. _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
461 |
SWRIO |
call SORAD ( istrip,1,1,lm,ple,tzl,qzl,ozl,co2, |