| Symbol | Description | Uses |
| dtswc | 3 |
| File | Line number | Procedure | Code |
| ./pkg/fizhi/fizhi_swrad.F | 475 | SWRIO |
dtswc(i,L) = alf*( fluxclr(i,L)-fluxclr(i,L+1) )/pk(i,L) |
| ./pkg/fizhi/fizhi_swrad.F | 480 | SWRIO |
call PASTE ( dtswc, dtswclr ,istrip,im*jm,lm,nn ) |
| ./pkg/fizhi/fizhi_swrad.F | 85 | SWRIO |
_RL dtswc(istrip,lm) |