Index | Rundeck: P1SoM40 | Created: Mon May 20 03:30:15 EDT 2024 |
prescr_veg_albedo | Module: ENT_PRESCR_VEG | File: ent_GISSveg.f |
Author :
Version:
Declaration:
subroutine prescr_veg_albedo(hemi, pft, jday, albedo)
- pftlike :
- iv, plant functional type
- hemi :
integer, intent(in)
- pft :
integer, intent(in)
- jday :
integer, intent(in)
- albedo :
real*8, intent(out), dimension(N_BANDS)
- season :
real*8, parameter, dimension(4)
- julian day for start of season (used for veg albedo calc)
Initial Value= (/ 15.00, 105.0, 196.0, 288.0/)
- nv :
integer, parameter
- Initial Value
= N_COVERTYPES
- albvnd :
real*8, parameter, dimension(NV, 4, 6)
- veg alb by veg type, season and band
Initial Value= RESHAPE( (/ .500,.067,.089,.089,.078,.100,.067,.061,.089,.000,.200,.089, .500,.062,.100,.100,.073,.055,.067,.061,.100,.000,.200,.100, .500,.085,.091,.139,.085,.058,.083,.061,.091,.000,.200,.091, .500,.080,.090,.111,.064,.055,.061,.061,.090,.000,.200,.090, .500,.200,.267,.267,.233,.300,.200,.183,.267,.000,.200,.267, .500,.206,.350,.300,.241,.218,.200,.183,.350,.000,.200,.350, .500,.297,.364,.417,.297,.288,.250,.183,.364,.000,.200,.364, .500,.255,.315,.333,.204,.218,.183,.183,.315,.000,.200,.315, .500,.200,.267,.267,.233,.300,.200,.183,.267,.000,.200,.267, .500,.206,.350,.300,.241,.218,.200,.183,.350,.000,.200,.350, .500,.297,.364,.417,.297,.288,.250,.183,.364,.000,.200,.364, .500,.255,.315,.333,.204,.218,.183,.183,.315,.000,.200,.315, .500,.080,.107,.107,.093,.120,.080,.073,.107,.000,.200,.107, .500,.082,.140,.120,.096,.083,.080,.073,.140,.000,.200,.140, .500,.119,.145,.167,.119,.115,.100,.073,.145,.000,.200,.145, .500,.102,.126,.132,.081,.087,.073,.073,.126,.000,.200,.126, .500,.100,.133,.133,.116,.150,.100,.091,.133,.000,.200,.133, .500,.103,.175,.150,.120,.109,.100,.091,.175,.000,.200,.175, .500,.148,.182,.208,.148,.144,.125,.091,.182,.000,.200,.182, .500,.127,.157,.166,.102,.109,.091,.091,.157,.000,.200,.157, .500,.020,.027,.027,.023,.030,.020,.018,.027,.000,.200,.027, .500,.021,.035,.030,.024,.022,.020,.018,.035,.000,.200,.035, .500,.030,.036,.042,.030,.029,.025,.018,.036,.000,.200,.036, .500,.026,.032,.033,.020,.022,.018,.018,.032,.000,.200,.032 /),(/NV,4,6/) )
- k :
integer
- kh1 :
integer
- kh2 :
integer
- l :
integer
- seasn1 :
real*8
- seasn2 :
real*8
- wt2 :
real*8
- wt1 :
real*8