Index | Rundeck: E6TomaF40 | Created: Fri May 17 03:30:39 EDT 2024 |
biofit | Module: | File: TRDRYDEP.f |
Author : Y.H. Wang
Version: ?
Declaration:
real*8 function biofit(coeff1, xlai1, suncos1, cfrac1)
- npoly : used from tracers_drydep
- kk :
integer, parameter
- number of terms
Initial Value= 4
- nd :
integer, parameter, dimension(KK)
- scaling factor for each variable
Initial Value= (/0,55,20,11/)
- x0 :
real*8, parameter, dimension(KK)
- maximum for each variable
Initial Value= (/0.,11.,1.,1./)
- coeff1 :
real*8, dimension(npoly), intent(in)
- drydep "coefficients" of fit?
- realterm :
real*8, dimension(npoly)
- ?
- term :
real*8, dimension(kk), real, dimension(K)
- ?
Initial Value= TERM(K1)
- xlai1 :
real*8, intent(in)
- local copy of leaf area index
- suncos1 :
real*8, intent(in)
- local copy of cosine of solar zenith angle
- cfrac1 :
real*8, intent(in)
- local copy of the cloud fraction
- i :
integer
- loop index
- k3 :
integer
- loop index
- k2 :
integer
- loop index
- k1 :
integer
- loop index
- k :
integer
- loop index
- xlow :
real*8
- minimum for each variable