Index | Rundeck: P1SoM40 | Created: Mon May 20 03:30:15 EDT 2024 |
qsimp | Module: BIOPHYSICS | File: canopyspitters.f |
Author :
Version:
Declaration:
subroutine qsimp(xlim, crp, psp, gb, s, sg, sr, si)
- xlim :
real*8, intent(in)
- crp :
type(canraddrv)
- psp :
type(psdrvtype)
- gb :
real*8, intent(in)
- s :
real*8, intent(out)
- sg :
real*8, intent(out)
- sr :
real*8, intent(out)
- si :
real*8, intent(out)
- maxit :
integer, parameter
- Initial Value
= 6
- errlim :
real*8, parameter
- Initial Value
= 0.1d0
- it :
integer
- layers :
integer
- a :
real*8
- b :
real*8
- ost :
real*8
- os :
real*8
- st :
real*8
- error :
real*8
- ac :
real*8
- bc :
real*8
- ostg :
real*8
- osg :
real*8
- stg :
real*8
- ostr :
real*8
- osr :
real*8
- str :
real*8
- osti :
real*8
- osi :
real*8
- sti :
real*8