896 lines
31 KiB
FortranFixed
896 lines
31 KiB
FortranFixed
subroutine LeafGasPrintToFiles(isitmassbased,indexunit,
|
|
&ic3c4cam)
|
|
implicit none
|
|
integer isitmassbased,indexunit(20),paramunit,compareunit,
|
|
&stomwuecicaoutunit,stomcompunit,wuecicacompunit,fluorescenceunit,
|
|
&fluoresparamunit,aciempfitunit,alightempfitunit,ic3c4cam
|
|
character *25,
|
|
& sitevars(50),unitsitevars(50),
|
|
& paramsvar(0:50),unitparamsvar(0:50),
|
|
& stomwuecica(200),unitstomwuecica(200),
|
|
& univcomvars(50),unitunivcomvars(50),
|
|
& univsumvars(50),unitunivsumvars(50),
|
|
& ACichars(50),unitACichars(50),
|
|
& ALightchars(50),unitALightchars(50),
|
|
&cterm1,cterm2
|
|
integer i
|
|
|
|
!$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
|
|
paramunit=indexunit(1)
|
|
compareunit=indexunit(2)
|
|
stomwuecicaoutunit=indexunit(3)
|
|
stomcompunit=indexunit(4)
|
|
wuecicacompunit=indexunit(5)
|
|
fluorescenceunit=indexunit(6)
|
|
fluoresparamunit=indexunit(7)
|
|
aciempfitunit=indexunit(8)
|
|
alightempfitunit=indexunit(9)
|
|
|
|
!Fit for Amax_ACi and Asat_ALight
|
|
ACichars(1)='CurveID'
|
|
ACichars(2)='ACicurveNo'
|
|
ACichars(3)='CiatZeroAnet'
|
|
ACichars(4)='der_atCi'
|
|
ACichars(5)='Amax_ACi'
|
|
ACichars(6)='ACiIntercept'
|
|
ACichars(7)='der_atInterceptCi'
|
|
ACichars(8)='der_atACiend'
|
|
ACichars(9)='PhiPSIImax_ACi'
|
|
ACichars(10)='PhiPSIICiIntercept'
|
|
ACichars(11)='der_atInterceptCi'
|
|
ACichars(12)='der_atPhiPSIIendCi'
|
|
ACichars(13)='ACiMaxCurvature'
|
|
ACichars(14)='CO2i_ACiMaxcurva'
|
|
ACichars(15)='PhiPSIIMaxCurvatCi'
|
|
ACichars(16)='CO2i_PhiPSIIMaxCur'
|
|
ACichars(17)='CaatZeroAnet'
|
|
ACichars(18)='der_atCa'
|
|
ACichars(19)='Amax_ACa'
|
|
ACichars(20)='ACaIntercept'
|
|
ACichars(21)='der_atInterceptCa'
|
|
ACichars(22)='der_ACaat400ppm'
|
|
ACichars(23)='anet_ACaat400ppm'
|
|
ACichars(24)='PhiPSIImax_ACa'
|
|
ACichars(25)='PhiPSIICaIntercept'
|
|
ACichars(26)='der_atInterceptCa'
|
|
ACichars(27)='der_atPhiPSIIendCa'
|
|
ACichars(28)='ACaMaxCurvature'
|
|
ACichars(29)='CO2a_ACaMaxcurva'
|
|
ACichars(30)='PhiPSIIMaxCurvatCa'
|
|
ACichars(31)='CO2a_PhiPSIIMaxCur'
|
|
ACichars(32)='AveLeafTemp'
|
|
ACichars(33)='AvePAR'
|
|
ACichars(34)='AvepO2i'
|
|
|
|
unitACichars(1)='NA'
|
|
unitACichars(2)='NA'
|
|
unitACichars(3)='Pa'
|
|
unitACichars(4)='umolm-2s-1Pa-1'
|
|
unitACichars(5)='umolm-2s-1'
|
|
unitACichars(6)='umolm-2s-1'
|
|
unitACichars(7)='umolm-2s-1Pa-1'
|
|
unitACichars(8)='umolm-2s-1Pa-1'
|
|
unitACichars(9)='NA'
|
|
unitACichars(10)='NA'
|
|
unitACichars(11)='Pa-1'
|
|
unitACichars(12)='Pa-1'
|
|
unitACichars(13)='X1000'
|
|
unitACichars(14)='Pa'
|
|
unitACichars(15)='X1000'
|
|
unitACichars(16)='Pa'
|
|
unitACichars(17)='Pa'
|
|
unitACichars(18)='umolm-2s-1Pa-1'
|
|
unitACichars(19)='umolm-2s-1'
|
|
unitACichars(20)='umolm-2s-1'
|
|
unitACichars(21)='umolm-2s-1Pa-1'
|
|
unitACichars(22)='umolm-2s-1Pa-1'
|
|
unitACichars(23)='umolm-2s-1'
|
|
unitACichars(24)='NA'
|
|
unitACichars(25)='NA'
|
|
unitACichars(26)='Pa-1'
|
|
unitACichars(27)='Pa-1'
|
|
unitACichars(28)='X1000'
|
|
unitACichars(29)='Pa'
|
|
unitACichars(30)='X1000'
|
|
unitACichars(31)='Pa'
|
|
unitACichars(32)='oC'
|
|
unitACichars(33)='umolm-2s-1'
|
|
unitACichars(34)='Pa'
|
|
if(isitmassbased.eq.1)then
|
|
unitACichars(4)='umolkg-1s-1Pa-1'
|
|
unitACichars(5)='umolkg-1s-1'
|
|
unitACichars(6)='umolkg-1s-1'
|
|
unitACichars(7)='umolkg-1s-1Pa-1'
|
|
unitACichars(8)='umolkg-1s-1Pa-1'
|
|
unitACichars(18)='umolkg-1s-1Pa-1'
|
|
unitACichars(19)='umolkg-1s-1'
|
|
unitACichars(20)='umolkg-1s-1'
|
|
unitACichars(21)='umolkg-1s-1Pa-1'
|
|
unitACichars(22)='umolkg-1s-1Pa-1'
|
|
unitACichars(23)='umolkg-1s-1'
|
|
unitACichars(33)='umolkg-1s-1'
|
|
endif
|
|
|
|
ALightchars(1)='CurveID'
|
|
ALightchars(2)='ALightcurveNo'
|
|
ALightchars(3)='PARatZeroAnet'
|
|
ALightchars(4)='der_atPAR'
|
|
ALightchars(5)='Asat_ALight'
|
|
ALightchars(6)='ALightIntercept'
|
|
ALightchars(7)='der_atIntercept'
|
|
ALightchars(8)='der_atPARend'
|
|
ALightchars(9)='PhiPSIILightIntercept'
|
|
ALightchars(10)='der_atIntercept'
|
|
ALightchars(11)='ExcessLightFactor'
|
|
ALightchars(12)='der_atPAR1000'
|
|
ALightchars(13)='ALightMaxCurvature'
|
|
ALightchars(14)='PAR_MaxCurvature'
|
|
ALightchars(15)='PhiPSIIALightMaxCur'
|
|
ALightchars(16)='PAR_PhiPSIIMaxCurva'
|
|
ALightchars(17)='AveLeafTemp'
|
|
ALightchars(18)='AvepCO2ambient'
|
|
ALightchars(19)='AvepO2i'
|
|
|
|
unitALightchars(1)='NA'
|
|
unitALightchars(2)='NA'
|
|
unitALightchars(3)='umolm-2s-1'
|
|
unitALightchars(4)='umol/umol'
|
|
unitALightchars(5)='umolm-2s-1'
|
|
unitALightchars(6)='umolm-2s-1'
|
|
unitALightchars(7)='umol/umol'
|
|
unitALightchars(8)='umol/umol'
|
|
unitALightchars(9)='NA'
|
|
unitALightchars(10)='umol-1m2s'
|
|
unitALightchars(11)='NA'
|
|
unitALightchars(12)='umol-1m2s'
|
|
unitALightchars(13)='X1000'
|
|
unitALightchars(14)='umolm-2s-1'
|
|
unitALightchars(15)='X1000'
|
|
unitALightchars(16)='umolm-2s-1'
|
|
unitALightchars(17)='oC'
|
|
unitALightchars(18)='Pa'
|
|
unitALightchars(19)='Pa'
|
|
if(isitmassbased.eq.1)then
|
|
unitALightchars(3)='umolkg-1s-1'
|
|
unitALightchars(5)='umolkg-1s-1'
|
|
unitALightchars(6)='umolkg-1s-1'
|
|
unitALightchars(10)='umol-1kgs'
|
|
unitALightchars(12)='umol-1kgs'
|
|
unitALightchars(14)='umolkg-1s-1'
|
|
unitALightchars(16)='umolkg-1s-1'
|
|
endif
|
|
|
|
univcomvars(1)='CurveID'
|
|
univcomvars(2)='FitRwp|Rch|ha?'
|
|
univcomvars(3)='Fitha_Vcmax|Jmax|Tpu?'
|
|
univcomvars(4)='FitGamma*|ha?'
|
|
univcomvars(5)='FitKc|ha?'
|
|
univcomvars(6)='FitKo|ha?'
|
|
univcomvars(7)='FitRd|ha?'
|
|
univcomvars(8)='FitAlpha?'
|
|
univcomvars(9)='FitbetaPSII?'
|
|
univcomvars(10)='CO2i_obs'
|
|
univcomvars(11)='CO2i_Pred'
|
|
univcomvars(12)='CO2c'
|
|
univcomvars(13)='Anet_Obs'
|
|
univcomvars(14)='Anet_Pred'
|
|
univcomvars(15)='LimitState'
|
|
univcomvars(16)='RecycRate'
|
|
univcomvars(17)='CO2S'
|
|
univcomvars(18)='Pres_O2'
|
|
univcomvars(19)='Pres_H2O'
|
|
univcomvars(20)='Pres_Air'
|
|
univcomvars(21)='VPDL'
|
|
univcomvars(22)='PARi'
|
|
univcomvars(23)='LeafTemp'
|
|
univcomvars(24)='ChamberAirTemp'
|
|
univcomvars(25)='Trmmol'
|
|
univcomvars(26)='StomatalCond_H2O'
|
|
univcomvars(27)='ChlFlPHIPSII_Obs'
|
|
univcomvars(28)='ChlFlPHIPSII_Pred'
|
|
univcomvars(29)='CO2i_Pred_ChlFl'
|
|
univcomvars(30)='Anet_Pred_ChlFl'
|
|
univcomvars(31)='CO2c_CO2i_ChlFl'
|
|
univcomvars(32)='CO2c_Anet_ChlFl'
|
|
|
|
univcomvars(33)='fo_pam'
|
|
univcomvars(34)='fm_pam'
|
|
univcomvars(35)='fs_pam'
|
|
univcomvars(36)='pam_measlight'
|
|
univcomvars(37)='yield_ps2'
|
|
univcomvars(38)='yield_npq'
|
|
univcomvars(39)='qlake'
|
|
univcomvars(40)='qpuddle'
|
|
univcomvars(41)='kps2_norm'
|
|
univcomvars(42)='knpq_norm'
|
|
|
|
unitunivcomvars(1)='NA'
|
|
unitunivcomvars(2)='1=No2=Yes'
|
|
unitunivcomvars(3)='1=No2=Yes'
|
|
unitunivcomvars(4)='1=No2=Yes'
|
|
unitunivcomvars(5)='1=No2=Yes'
|
|
unitunivcomvars(6)='1=No2=Yes'
|
|
unitunivcomvars(7)='1=No2=Yes'
|
|
unitunivcomvars(8)='1=No2=Yes'
|
|
unitunivcomvars(9)='1=No2=Yes'
|
|
unitunivcomvars(10)='Pa'
|
|
unitunivcomvars(11)='Pa'
|
|
unitunivcomvars(12)='Pa'
|
|
unitunivcomvars(13)='umolm-2s-1'
|
|
unitunivcomvars(14)='umolm-2s-1'
|
|
unitunivcomvars(15)='Rubis1RUBP2TPU3'
|
|
unitunivcomvars(16)='%'
|
|
unitunivcomvars(17)='Pa'
|
|
unitunivcomvars(18)='KPa'
|
|
unitunivcomvars(19)='KPa'
|
|
unitunivcomvars(20)='KPa'
|
|
unitunivcomvars(21)='KPa'
|
|
unitunivcomvars(22)='umolm-2s-1'
|
|
unitunivcomvars(23)='oC'
|
|
unitunivcomvars(24)='oC'
|
|
unitunivcomvars(25)='mmolm-2s-1'
|
|
unitunivcomvars(26)='molm-2s-1'
|
|
unitunivcomvars(27)='NA'
|
|
unitunivcomvars(28)='NA'
|
|
unitunivcomvars(29)='Pa'
|
|
unitunivcomvars(30)='umolm-2s-1'
|
|
unitunivcomvars(31)='Pa'
|
|
unitunivcomvars(32)='Pa'
|
|
|
|
unitunivcomvars(33)='ArbitUnit'
|
|
unitunivcomvars(34)='ArbitUnit'
|
|
unitunivcomvars(35)='ArbitUnit'
|
|
unitunivcomvars(36)='umolm-2s-1'
|
|
unitunivcomvars(37)='0-1'
|
|
unitunivcomvars(38)='0-1'
|
|
unitunivcomvars(39)='0-1'
|
|
unitunivcomvars(40)='0-1'
|
|
unitunivcomvars(41)='kps2/(kf+kd)'
|
|
unitunivcomvars(42)='knpq/(kf+fd)'
|
|
|
|
if(isitmassbased.eq.1)then
|
|
unitunivcomvars(13)='umolkg-1s-1'
|
|
unitunivcomvars(14)='umolkg-1s-1'
|
|
unitunivcomvars(22)='umolkg-1s-1'
|
|
unitunivcomvars(25)='mmolkg-1s-1'
|
|
unitunivcomvars(26)='molkg-1s-1'
|
|
unitunivcomvars(30)='molkg-1s-1'
|
|
unitunivcomvars(36)='umolkg-1s-1'
|
|
endif
|
|
|
|
write(compareunit,'(1000A)')(trim(univcomvars(i)),',',
|
|
&i=1,31),trim(univcomvars(32))
|
|
write(compareunit,'(1000A)')(trim(unitunivcomvars(i)),
|
|
&',',i=1,31),trim(unitunivcomvars(32))
|
|
|
|
paramsvar(0)='LimitState'
|
|
paramsvar(1)='Vcmax25'
|
|
paramsvar(2)='Jmax25'
|
|
paramsvar(3)='Rdlight25'
|
|
paramsvar(4)='Resistwp25'
|
|
paramsvar(5)='Resistch25'
|
|
paramsvar(6)='tpu25'
|
|
paramsvar(7)='gamma*25'
|
|
paramsvar(8)='fkc25'
|
|
paramsvar(9)='fko25'
|
|
paramsvar(10)='alpha'
|
|
paramsvar(11)='ha_vcmax'
|
|
paramsvar(12)='hd_vcmax'
|
|
paramsvar(13)='sv_vcmax'
|
|
paramsvar(14)='ha_jmax'
|
|
paramsvar(15)='hd_jmax'
|
|
paramsvar(16)='sv_jmax'
|
|
paramsvar(17)='ha_tpu'
|
|
paramsvar(18)='hd_tpu'
|
|
paramsvar(19)='sv_tpu'
|
|
paramsvar(20)='ha_gmeso'
|
|
paramsvar(21)='hd_gmeso'
|
|
paramsvar(22)='sv_gmeso'
|
|
paramsvar(23)='ha_darkresp'
|
|
paramsvar(24)='ha_stargamma'
|
|
paramsvar(25)='ha_kc'
|
|
paramsvar(26)='ha_ko'
|
|
paramsvar(27)='phifactor'
|
|
paramsvar(28)='thetafactor'
|
|
paramsvar(29)='betaPSII'
|
|
paramsvar(30)='numrubisco'
|
|
paramsvar(31)='numrubp'
|
|
paramsvar(32)='numtpu'
|
|
paramsvar(33)='NumSamplePoints'
|
|
paramsvar(34)='SumSquare'
|
|
paramsvar(35)='Rdlight'
|
|
paramsvar(36)='Resistwp'
|
|
paramsvar(37)='Resistch'
|
|
paramsvar(38)='gamma*'
|
|
paramsvar(39)='co2iRubismax25'
|
|
paramsvar(40)='co2iRuBpmax25'
|
|
paramsvar(41)='anetRubismax25'
|
|
paramsvar(42)='anetRuBpmax25'
|
|
|
|
unitparamsvar(0)='Occurrence'
|
|
unitparamsvar(1)='umolm-2s-1'
|
|
unitparamsvar(2)='umolm-2s-1'
|
|
unitparamsvar(3)='umolm-2s-1'
|
|
unitparamsvar(4)='Pasm2umol-1'
|
|
unitparamsvar(5)='Pasm2umol-1'
|
|
unitparamsvar(6)='umolm-2s-1'
|
|
unitparamsvar(7)='Pa'
|
|
unitparamsvar(8)='Pa'
|
|
unitparamsvar(9)='Pa'
|
|
unitparamsvar(10)='0_1'
|
|
unitparamsvar(11)='kJmol-1'
|
|
unitparamsvar(12)='kJmol-1'
|
|
unitparamsvar(13)='KJmol-1K-1'
|
|
unitparamsvar(14)='kJmol-1'
|
|
unitparamsvar(15)='kJmol-1'
|
|
unitparamsvar(16)='KJmol-1K-1'
|
|
unitparamsvar(17)='kJmol-1'
|
|
unitparamsvar(18)='kJmol-1'
|
|
unitparamsvar(19)='KJmol-1K-1'
|
|
unitparamsvar(20)='kJmol-1'
|
|
unitparamsvar(21)='kJmol-1'
|
|
unitparamsvar(22)='KJmol-1K-1'
|
|
unitparamsvar(23)='kJmol-1'
|
|
unitparamsvar(24)='kJmol-1'
|
|
unitparamsvar(25)='kJmol-1'
|
|
unitparamsvar(26)='kJmol-1'
|
|
unitparamsvar(27)='NA'
|
|
unitparamsvar(28)='NA'
|
|
unitparamsvar(29)='NA'
|
|
unitparamsvar(30)='rubispoints'
|
|
unitparamsvar(31)='rubppoints'
|
|
unitparamsvar(32)='tpupoints'
|
|
unitparamsvar(33)='<=rubis+rubp+tpu'
|
|
unitparamsvar(34)='NA'
|
|
unitparamsvar(35)='umolm-2s-1'
|
|
unitparamsvar(36)='Pasm2umol-1'
|
|
unitparamsvar(37)='Pasm2umol-1'
|
|
unitparamsvar(38)='Pa'
|
|
unitparamsvar(39)='Pa'
|
|
unitparamsvar(40)='Pa'
|
|
unitparamsvar(41)='umolm-2s-1'
|
|
unitparamsvar(42)='umolm-2s-1'
|
|
|
|
if(isitmassbased.eq.1)then
|
|
unitparamsvar(1)='umolkg-1s-1'
|
|
unitparamsvar(2)='umolkg-1s-1'
|
|
unitparamsvar(3)='umolkg-1s-1'
|
|
unitparamsvar(4)='Paskgumol-1'
|
|
unitparamsvar(5)='Paskgumol-1'
|
|
unitparamsvar(6)='umolkg-1s-1'
|
|
unitparamsvar(35)='umolkg-1s-1'
|
|
unitparamsvar(36)='Paskgumol-1'
|
|
unitparamsvar(37)='Paskgumol-1'
|
|
unitparamsvar(41)='umolkg-1s-1'
|
|
unitparamsvar(42)='umolkg-1s-1'
|
|
endif
|
|
|
|
sitevars(1)='siteID'
|
|
sitevars(2)='Latitude'
|
|
sitevars(3)='Longitude'
|
|
sitevars(4)='Elevation'
|
|
sitevars(5)='yearsampled'
|
|
sitevars(6)='sampledoy'
|
|
sitevars(7)='GrowingSeasonStart'
|
|
sitevars(8)='GrowingSeasonEnd'
|
|
sitevars(9)='standage'
|
|
sitevars(10)='CanopyHeight'
|
|
sitevars(11)='LeafAreaIndex'
|
|
sitevars(12)='species'
|
|
sitevars(13)='avetimeresolution'
|
|
sitevars(14)='avetimesampled'
|
|
sitevars(15)='SampleHeight'
|
|
sitevars(16)='Needleage'
|
|
sitevars(17)='specificLAI'
|
|
sitevars(18)='nitrogencontent'
|
|
sitevars(19)='carboncontent'
|
|
sitevars(20)='phosphoruscontent'
|
|
sitevars(21)='woodporosity'
|
|
sitevars(22)='sapwooddensity'
|
|
sitevars(23)='leafratio'
|
|
|
|
unitsitevars(1)='NA'
|
|
unitsitevars(2)='DegNorthPositive'
|
|
unitsitevars(3)='DegEastPositive'
|
|
unitsitevars(4)='m'
|
|
unitsitevars(5)='Year'
|
|
unitsitevars(6)='DayofYear'
|
|
unitsitevars(7)='DayofYear'
|
|
unitsitevars(8)='DayofYear'
|
|
unitsitevars(9)='years'
|
|
unitsitevars(10)='m'
|
|
unitsitevars(11)='m2m-2'
|
|
unitsitevars(12)='species'
|
|
unitsitevars(13)='minutes'
|
|
unitsitevars(14)='HourFraction'
|
|
unitsitevars(15)='m'
|
|
unitsitevars(16)='days'
|
|
unitsitevars(17)='cm2g-1'
|
|
unitsitevars(18)='%'
|
|
unitsitevars(19)='%'
|
|
unitsitevars(20)='%'
|
|
unitsitevars(21)='ring/diffuse'
|
|
unitsitevars(22)='g/cm3'
|
|
unitsitevars(23)='Unitless'
|
|
if(ic3c4cam.eq.1)then
|
|
write(paramunit,'(2000A)')(trim(univcomvars(i)),',',i=1,9),
|
|
&(trim(paramsvar(i)),',',i=0,34),(trim(paramsvar(i)),',',i=39,42),
|
|
&(trim(sitevars(i)),',',i=1,22),trim(sitevars(23))
|
|
write(paramunit,'(2000A)')(trim(unitunivcomvars(i)),',',i=1,9),
|
|
&(trim(unitparamsvar(i)),',',i=0,34),
|
|
&(trim(unitparamsvar(i)),',',i=39,42),
|
|
&(trim(unitsitevars(i)),',',i=1,22),trim(unitsitevars(23))
|
|
endif
|
|
if(ic3c4cam.eq.2)then
|
|
write(paramunit,'(2000A)')trim(univcomvars(1)),',',
|
|
&'Model,Vcmax25,c4aparslope,c4kp25,rdlight25,',
|
|
&(trim(paramsvar(i)),',',i=30,34),
|
|
&(trim(sitevars(i)),',',i=1,22),trim(sitevars(23))
|
|
write(paramunit,'(2000A)')trim(unitunivcomvars(1)),',',
|
|
&'NA,umolm-2s-1,CO2/photon,umolm-2s-1,umolm-2s-1,',
|
|
&(trim(unitparamsvar(i)),',',i=30,34),
|
|
&(trim(unitsitevars(i)),',',i=1,22),trim(unitsitevars(23))
|
|
endif
|
|
write(fluorescenceunit,'(1000A)')trim(univcomvars(1)),',',
|
|
&(trim(univcomvars(i)),',',i=10,14),
|
|
&(trim(univcomvars(i)),',',i=17,27),
|
|
&(trim(paramsvar(i)),',',i=3,5),trim(paramsvar(7)),',',
|
|
&trim(paramsvar(29)),',',trim(paramsvar(34)),',',
|
|
&trim(paramsvar(23)),',',(trim(paramsvar(i)),',',i=36,37),
|
|
&trim(paramsvar(24)),',',(trim(univcomvars(i)),',',i=33,41),
|
|
&trim(univcomvars(42))
|
|
write(fluorescenceunit,'(1000A)')trim(unitunivcomvars(1)),',',
|
|
&(trim(unitunivcomvars(i)),',',i=10,14),
|
|
&(trim(unitunivcomvars(i)),',',i=17,27),
|
|
&(trim(unitparamsvar(i)),',',i=3,5),trim(unitparamsvar(7)),',',
|
|
&trim(unitparamsvar(29)),',',trim(unitparamsvar(34)),',',
|
|
&trim(unitparamsvar(23)),',',(trim(unitparamsvar(i)),',',i=36,37),
|
|
&trim(unitparamsvar(24)),',',(trim(unitunivcomvars(i)),',',
|
|
&i=33,41),trim(unitunivcomvars(42))
|
|
|
|
cterm1='Flu.Anet.SumSqure'
|
|
cterm2='Flu.Electron.SumS'
|
|
write(fluoresparamunit,'(1000A)')trim(univcomvars(1)),',',
|
|
&trim(paramsvar(2)),',',trim(paramsvar(3)),',',
|
|
&trim(paramsvar(3)),'/0rch,',trim(paramsvar(4)),',',
|
|
&trim(paramsvar(4)),'/0rch,',trim(paramsvar(5)),',',
|
|
&trim(paramsvar(7)),',',trim(paramsvar(7)),'/0rch,',
|
|
&(trim(paramsvar(i)),',',i=27,29),trim(paramsvar(29)),'/0rch,',
|
|
&'fo_dark,fm_dark,resp_dark,temp_dark,',trim(cterm1),',',
|
|
&trim(cterm2)
|
|
write(fluoresparamunit,'(1000A)')trim(unitunivcomvars(1)),',',
|
|
&trim(unitparamsvar(2)),',',trim(unitparamsvar(3)),',',
|
|
&trim(unitparamsvar(3)),',',trim(unitparamsvar(4)),',',
|
|
&trim(unitparamsvar(4)),',',trim(unitparamsvar(5)),',',
|
|
&trim(unitparamsvar(7)),',',trim(unitparamsvar(7)),',',
|
|
&(trim(unitparamsvar(i)),',',i=27,29),trim(unitparamsvar(29)),',',
|
|
&'ArbitUnit,ArbitUnit,',trim(unitparamsvar(3)),',oC,',
|
|
&trim(cterm1),',',trim(cterm2)
|
|
|
|
write(aciempfitunit,'(2000A)')(trim(ACichars(i)),',',i=1,34),
|
|
&(trim(sitevars(i)),',',i=1,22),trim(sitevars(23))
|
|
write(aciempfitunit,'(2000A)')(trim(unitACichars(i)),',',i=1,34),
|
|
&(trim(unitsitevars(i)),',',i=1,22),trim(unitsitevars(23))
|
|
|
|
write(alightempfitunit,'(2000A)')
|
|
&(trim(ALightchars(i)),',',i=1,19),
|
|
&(trim(sitevars(i)),',',i=1,22),trim(sitevars(23))
|
|
write(alightempfitunit,'(2000A)')
|
|
&(trim(unitALightchars(i)),',',i=1,19),
|
|
&(trim(unitsitevars(i)),',',i=1,22),trim(unitsitevars(23))
|
|
!------------------------------------------------
|
|
!$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
|
|
!Stomatal conductance, water use efficiency and ci/ca
|
|
stomwuecica(1)='curveno'
|
|
stomwuecica(2)='curvename'
|
|
stomwuecica(3)='gswmeas_stom'
|
|
stomwuecica(4)='gswCO2sLin'
|
|
stomwuecica(5)='gswCO2iLin'
|
|
stomwuecica(6)='gswCO2iBall'
|
|
stomwuecica(7)='gswCO2sRay'
|
|
stomwuecica(8)='gswCO2iRay'
|
|
stomwuecica(9)='gswDewar'
|
|
stomwuecica(10)='CO2i'
|
|
stomwuecica(11)='CO2s'
|
|
stomwuecica(12)='RH'
|
|
stomwuecica(13)='gammas'
|
|
stomwuecica(14)='vpd_surf'
|
|
stomwuecica(15)='Pres_air'
|
|
stomwuecica(16)='Anet_Meas'
|
|
|
|
unitstomwuecica(1)='NA'
|
|
unitstomwuecica(2)='NA'
|
|
unitstomwuecica(3)='molm-2s-1'
|
|
unitstomwuecica(4)='molm-2s-1'
|
|
unitstomwuecica(5)='molm-2s-1'
|
|
unitstomwuecica(6)='molm-2s-1'
|
|
unitstomwuecica(7)='molm-2s-1'
|
|
unitstomwuecica(8)='molm-2s-1'
|
|
unitstomwuecica(9)='molm-2s-1'
|
|
unitstomwuecica(10)='ppm'
|
|
unitstomwuecica(11)='ppm'
|
|
unitstomwuecica(12)='0-1'
|
|
unitstomwuecica(13)='ppm'
|
|
unitstomwuecica(14)='Pa'
|
|
unitstomwuecica(15)='Pa'
|
|
unitstomwuecica(16)='umolm-2s-1'
|
|
if(isitmassbased.eq.1)then
|
|
unitstomwuecica(3)='molkg-1s-1'
|
|
unitstomwuecica(4)='molkg-1s-1'
|
|
unitstomwuecica(5)='molkg-1s-1'
|
|
unitstomwuecica(6)='molkg-1s-1'
|
|
unitstomwuecica(7)='molkg-1s-1'
|
|
unitstomwuecica(8)='molkg-1s-1'
|
|
unitstomwuecica(9)='molkg-1s-1'
|
|
unitstomwuecica(16)='umolkg-1s-1'
|
|
endif
|
|
|
|
write(stomcompunit,'(100A)')(trim(stomwuecica(i)),',',
|
|
&i=1,15),trim(stomwuecica(16))
|
|
write(stomcompunit,'(100A)')(trim(unitstomwuecica(i)),',',
|
|
&i=1,15),trim(unitstomwuecica(16))
|
|
!------------------------------------------------------------
|
|
stomwuecica(1)='curveno'
|
|
stomwuecica(2)='curvename'
|
|
stomwuecica(3)='co2ambient'
|
|
stomwuecica(4)='vpdl'
|
|
stomwuecica(5)='WUEmeasured'
|
|
stomwuecica(6)='WUEmodeled'
|
|
stomwuecica(7)='cicameasured'
|
|
stomwuecica(8)='cicamodeled'
|
|
stomwuecica(9)='IntrinsicWUE'
|
|
stomwuecica(10)='IntWUEModel'
|
|
stomwuecica(11)='cccimeasured1'
|
|
stomwuecica(12)='cccimodeled1'
|
|
stomwuecica(13)='cccimeasured2'
|
|
stomwuecica(14)='cccimodeled2'
|
|
stomwuecica(15)='cccimeasured3'
|
|
stomwuecica(16)='cccimodeled3'
|
|
stomwuecica(17)='cccimeasured4'
|
|
stomwuecica(18)='cccimodeled4'
|
|
stomwuecica(19)='recycmeasured1'
|
|
stomwuecica(20)='recycmodeled1'
|
|
stomwuecica(21)='recycmeasured2'
|
|
stomwuecica(22)='recycmodeled2'
|
|
stomwuecica(23)='recycmeasured3'
|
|
stomwuecica(24)='recycmodeled3'
|
|
stomwuecica(25)='recycmeasured4'
|
|
stomwuecica(26)='recycmodeled4'
|
|
stomwuecica(27)='recycmeasured5'
|
|
stomwuecica(28)='recycmodeled5'
|
|
stomwuecica(29)='recycmeasured6'
|
|
stomwuecica(30)='recycmodeled6'
|
|
|
|
unitstomwuecica(1)='NA'
|
|
unitstomwuecica(2)='NA'
|
|
unitstomwuecica(3)='ppm'
|
|
unitstomwuecica(4)='Pa'
|
|
unitstomwuecica(5)='umolmmol-1'
|
|
unitstomwuecica(6)='umolmmol-1'
|
|
unitstomwuecica(7)='NA'
|
|
unitstomwuecica(8)='NA'
|
|
unitstomwuecica(9)='umolmol-1'
|
|
unitstomwuecica(10)='umolmol-1'
|
|
unitstomwuecica(11)='NA'
|
|
unitstomwuecica(12)='NA'
|
|
unitstomwuecica(13)='NA'
|
|
unitstomwuecica(14)='NA'
|
|
unitstomwuecica(15)='NA'
|
|
unitstomwuecica(16)='NA'
|
|
unitstomwuecica(17)='NA'
|
|
unitstomwuecica(18)='NA'
|
|
unitstomwuecica(19)='NA'
|
|
unitstomwuecica(20)='NA'
|
|
unitstomwuecica(21)='NA'
|
|
unitstomwuecica(22)='NA'
|
|
unitstomwuecica(23)='NA'
|
|
unitstomwuecica(24)='NA'
|
|
unitstomwuecica(25)='NA'
|
|
unitstomwuecica(26)='NA'
|
|
unitstomwuecica(27)='NA'
|
|
unitstomwuecica(28)='NA'
|
|
unitstomwuecica(29)='NA'
|
|
unitstomwuecica(30)='NA'
|
|
|
|
write(wuecicacompunit,'(200A)')(trim(stomwuecica(i)),',',
|
|
&i=1,29),trim(stomwuecica(30))
|
|
write(wuecicacompunit,'(200A)')(trim(unitstomwuecica(i)),',',
|
|
&i=1,29),trim(stomwuecica(30))
|
|
|
|
stomwuecica(1)='curveno'
|
|
stomwuecica(2)='curvename'
|
|
stomwuecica(3)='TotPoints'
|
|
stomwuecica(4)='gswCO2ithresl'
|
|
stomwuecica(5)='CO2AmbCurrent'
|
|
stomwuecica(6)='vpdl_ref'
|
|
stomwuecica(7)='Ballg0CO2sLin'
|
|
stomwuecica(8)='BallmCO2sLin'
|
|
stomwuecica(9)='BallrsqsLin'
|
|
stomwuecica(10)='Ballg0CO2iLin'
|
|
stomwuecica(11)='BallmCO2iLin'
|
|
stomwuecica(12)='BallrsqiLin'
|
|
stomwuecica(13)='Ballg0CO2s'
|
|
stomwuecica(14)='BallmCO2s'
|
|
stomwuecica(15)='Ballrsqs'
|
|
stomwuecica(16)='Rayg0CO2s'
|
|
stomwuecica(17)='RaymCO2s'
|
|
stomwuecica(18)='Rayd0CO2s'
|
|
stomwuecica(19)='RayrsqCO2s'
|
|
stomwuecica(20)='Belindag0CO2s'
|
|
stomwuecica(21)='Belindag1CO2s'
|
|
stomwuecica(22)='Belindad0CO2s'
|
|
stomwuecica(23)='BelindarsqCO2s'
|
|
stomwuecica(24)='Dewarg0CO2i'
|
|
stomwuecica(25)='DewarmCO2i'
|
|
stomwuecica(26)='Deward0CO2i'
|
|
stomwuecica(27)='DewarrsqCO2i'
|
|
stomwuecica(28)='WUEref'
|
|
stomwuecica(29)='der_WUEref'
|
|
stomwuecica(30)='rsqwue'
|
|
stomwuecica(31)='wuefit1'
|
|
stomwuecica(32)='wuefit2'
|
|
stomwuecica(33)='wuefit3'
|
|
stomwuecica(34)='wuefit4'
|
|
stomwuecica(35)='wuefit5'
|
|
stomwuecica(36)='IntrWUEref'
|
|
stomwuecica(37)='Intrder_WUEref'
|
|
stomwuecica(38)='Intrrsqwue'
|
|
stomwuecica(39)='Intrwuefit1'
|
|
stomwuecica(40)='Intrwuefit2'
|
|
stomwuecica(41)='Intrwuefit3'
|
|
stomwuecica(42)='Intrwuefit4'
|
|
stomwuecica(43)='Intrwuefit5'
|
|
stomwuecica(44)='CiCa-1Ref'
|
|
stomwuecica(45)='der_CiCa-1Ref'
|
|
stomwuecica(46)='rsqCiCa-1'
|
|
stomwuecica(47)='CiCa-1Fit1'
|
|
stomwuecica(48)='CiCa-1Fit2'
|
|
stomwuecica(49)='CiCa-1Fit3'
|
|
stomwuecica(50)='CiCa-1Fit4'
|
|
stomwuecica(51)='CiCa-1Fit5'
|
|
stomwuecica(52)='MeanLfTemp'
|
|
stomwuecica(53)='MeanAirTemp'
|
|
stomwuecica(54)='MeanVPDL'
|
|
stomwuecica(55)='MeanPARi'
|
|
stomwuecica(56)='CcCi-1Ref'
|
|
stomwuecica(57)='der_CcCi-1Ref'
|
|
stomwuecica(58)='rsqCcCi-1'
|
|
stomwuecica(59)='CcCi-1Fit1'
|
|
stomwuecica(60)='CcCi-1Fit2'
|
|
stomwuecica(61)='CcCi-1Fit3'
|
|
stomwuecica(62)='CcCi-1Fit4'
|
|
stomwuecica(63)='CcCi-1Fit5'
|
|
stomwuecica(64)='CcCi-1Fit6'
|
|
stomwuecica(65)='CcCi-2Ref'
|
|
stomwuecica(66)='der_CcCi-2Ref'
|
|
stomwuecica(67)='rsqCcCi-2'
|
|
stomwuecica(68)='CcCi-2Fit1'
|
|
stomwuecica(69)='CcCi-2Fit2'
|
|
stomwuecica(70)='CcCi-2Fit3'
|
|
stomwuecica(71)='CcCi-2Fit4'
|
|
stomwuecica(72)='CcCi-2Fit5'
|
|
stomwuecica(73)='CcCi-2Fit6'
|
|
stomwuecica(74)='CcCi-3Ref'
|
|
stomwuecica(75)='der_CcCi-3Ref'
|
|
stomwuecica(76)='rsqCcCi-3'
|
|
stomwuecica(77)='CcCi-3Fit1'
|
|
stomwuecica(78)='CcCi-3Fit2'
|
|
stomwuecica(79)='CcCi-3Fit3'
|
|
stomwuecica(80)='CcCi-3Fit4'
|
|
stomwuecica(81)='CcCi-3Fit5'
|
|
stomwuecica(82)='CcCi-3Fit6'
|
|
stomwuecica(83)='CcCi-4Ref'
|
|
stomwuecica(84)='der_CcCi-4Ref'
|
|
stomwuecica(85)='rsqCcCi-4'
|
|
stomwuecica(86)='CcCi-4Fit1'
|
|
stomwuecica(87)='CcCi-4Fit2'
|
|
stomwuecica(88)='CcCi-4Fit3'
|
|
stomwuecica(89)='CcCi-4Fit4'
|
|
stomwuecica(90)='CcCi-4Fit5'
|
|
stomwuecica(91)='CcCi-4Fit6'
|
|
stomwuecica(92)='Recyc-1Ref'
|
|
stomwuecica(93)='der_Recyc-1Ref'
|
|
stomwuecica(94)='rsqRecyc-1'
|
|
stomwuecica(95)='Recyc-1Fit1'
|
|
stomwuecica(96)='Recyc-1Fit2'
|
|
stomwuecica(97)='Recyc-1Fit3'
|
|
stomwuecica(98)='Recyc-1Fit4'
|
|
stomwuecica(99)='Recyc-1Fit5'
|
|
stomwuecica(100)='Recyc-2Ref'
|
|
stomwuecica(101)='der_Recyc-2Ref'
|
|
stomwuecica(102)='rsqRecyc-2'
|
|
stomwuecica(103)='Recyc-2Fit1'
|
|
stomwuecica(104)='Recyc-2Fit2'
|
|
stomwuecica(105)='Recyc-2Fit3'
|
|
stomwuecica(106)='Recyc-2Fit4'
|
|
stomwuecica(107)='Recyc-2Fit5'
|
|
stomwuecica(108)='Recyc-3Ref'
|
|
stomwuecica(109)='der_Recyc-3Ref'
|
|
stomwuecica(110)='rsqRecyc-3'
|
|
stomwuecica(111)='Recyc-3Fit1'
|
|
stomwuecica(112)='Recyc-3Fit2'
|
|
stomwuecica(113)='Recyc-3Fit3'
|
|
stomwuecica(114)='Recyc-3Fit4'
|
|
stomwuecica(115)='Recyc-3Fit5'
|
|
stomwuecica(116)='Recyc-4Ref'
|
|
stomwuecica(117)='der_Recyc-4Ref'
|
|
stomwuecica(118)='rsqRecyc-4'
|
|
stomwuecica(119)='Recyc-4Fit1'
|
|
stomwuecica(120)='Recyc-4Fit2'
|
|
stomwuecica(121)='Recyc-4Fit3'
|
|
stomwuecica(122)='Recyc-4Fit4'
|
|
stomwuecica(123)='Recyc-4Fit5'
|
|
stomwuecica(124)='Recyc-5Ref'
|
|
stomwuecica(125)='der_Recyc-5Ref'
|
|
stomwuecica(126)='rsqRecyc-5'
|
|
stomwuecica(127)='Recyc-5Fit1'
|
|
stomwuecica(128)='Recyc-5Fit2'
|
|
stomwuecica(129)='Recyc-5Fit3'
|
|
stomwuecica(130)='Recyc-5Fit4'
|
|
stomwuecica(131)='Recyc-5Fit5'
|
|
stomwuecica(132)='Recyc-6Ref'
|
|
stomwuecica(133)='der_Recyc-6Ref'
|
|
stomwuecica(134)='rsqRecyc-6'
|
|
stomwuecica(135)='Recyc-6Fit1'
|
|
stomwuecica(136)='Recyc-6Fit2'
|
|
stomwuecica(137)='Recyc-6Fit3'
|
|
stomwuecica(138)='Recyc-6Fit4'
|
|
stomwuecica(139)='Recyc-6Fit5'
|
|
|
|
unitstomwuecica(1)='NA'
|
|
unitstomwuecica(2)='NA'
|
|
unitstomwuecica(3)='NA'
|
|
unitstomwuecica(4)='ppm'
|
|
unitstomwuecica(5)='ppm'
|
|
unitstomwuecica(6)='PA'
|
|
unitstomwuecica(7)='molm-2s-1'
|
|
unitstomwuecica(8)='NA'
|
|
unitstomwuecica(9)='NA'
|
|
unitstomwuecica(10)='molm-2s-1'
|
|
unitstomwuecica(11)='NA'
|
|
unitstomwuecica(12)='NA'
|
|
unitstomwuecica(13)='molm-2s-1'
|
|
unitstomwuecica(14)='NA'
|
|
unitstomwuecica(15)='NA'
|
|
unitstomwuecica(16)='molm-2s-1'
|
|
unitstomwuecica(17)='NA'
|
|
unitstomwuecica(18)='Pa'
|
|
unitstomwuecica(19)='NA'
|
|
unitstomwuecica(20)='molm-2s-1'
|
|
unitstomwuecica(21)='(kPa)^0.5'
|
|
unitstomwuecica(22)='Pa'
|
|
unitstomwuecica(23)='NA'
|
|
unitstomwuecica(24)='molm-2s-1'
|
|
unitstomwuecica(25)='NA'
|
|
unitstomwuecica(26)='Pa'
|
|
unitstomwuecica(27)='NA'
|
|
unitstomwuecica(28)='umolmmol-1'
|
|
unitstomwuecica(29)='umolmmol-1ppm-1'
|
|
unitstomwuecica(30)='NA'
|
|
unitstomwuecica(31)='NA'
|
|
unitstomwuecica(32)='NA'
|
|
unitstomwuecica(33)='NA'
|
|
unitstomwuecica(34)='NA'
|
|
unitstomwuecica(35)='NA'
|
|
unitstomwuecica(36)='umolmol-1ppm-1'
|
|
unitstomwuecica(37)='umolmol-1ppm-1'
|
|
unitstomwuecica(38)='NA'
|
|
unitstomwuecica(39)='NA'
|
|
unitstomwuecica(40)='NA'
|
|
unitstomwuecica(41)='NA'
|
|
unitstomwuecica(42)='NA'
|
|
unitstomwuecica(43)='NA'
|
|
unitstomwuecica(44)='NA'
|
|
unitstomwuecica(45)='ppm-1'
|
|
unitstomwuecica(46)='NA'
|
|
unitstomwuecica(47)='NA'
|
|
unitstomwuecica(48)='NA'
|
|
unitstomwuecica(49)='NA'
|
|
unitstomwuecica(50)='NA'
|
|
unitstomwuecica(51)='NA'
|
|
unitstomwuecica(52)='oC'
|
|
unitstomwuecica(53)='oC'
|
|
unitstomwuecica(54)='Pa'
|
|
unitstomwuecica(55)='umolm-2s-1'
|
|
unitstomwuecica(56)='NA'
|
|
unitstomwuecica(57)='ppm-1'
|
|
unitstomwuecica(58)='NA'
|
|
unitstomwuecica(59)='NA'
|
|
unitstomwuecica(60)='NA'
|
|
unitstomwuecica(61)='NA'
|
|
unitstomwuecica(62)='NA'
|
|
unitstomwuecica(63)='NA'
|
|
unitstomwuecica(64)='NA'
|
|
unitstomwuecica(65)='NA'
|
|
unitstomwuecica(66)='ppm-1'
|
|
unitstomwuecica(67)='NA'
|
|
unitstomwuecica(68)='NA'
|
|
unitstomwuecica(69)='NA'
|
|
unitstomwuecica(70)='NA'
|
|
unitstomwuecica(71)='NA'
|
|
unitstomwuecica(72)='NA'
|
|
unitstomwuecica(73)='NA'
|
|
unitstomwuecica(74)='NA'
|
|
unitstomwuecica(75)='ppm-1'
|
|
unitstomwuecica(76)='NA'
|
|
unitstomwuecica(77)='NA'
|
|
unitstomwuecica(78)='NA'
|
|
unitstomwuecica(79)='NA'
|
|
unitstomwuecica(80)='NA'
|
|
unitstomwuecica(81)='NA'
|
|
unitstomwuecica(82)='NA'
|
|
unitstomwuecica(83)='NA'
|
|
unitstomwuecica(84)='ppm-1'
|
|
unitstomwuecica(85)='NA'
|
|
unitstomwuecica(86)='NA'
|
|
unitstomwuecica(87)='NA'
|
|
unitstomwuecica(88)='NA'
|
|
unitstomwuecica(89)='NA'
|
|
unitstomwuecica(90)='NA'
|
|
unitstomwuecica(91)='NA'
|
|
unitstomwuecica(92)='NA'
|
|
unitstomwuecica(93)='NA'
|
|
unitstomwuecica(94)='NA'
|
|
unitstomwuecica(95)='NA'
|
|
unitstomwuecica(96)='NA'
|
|
unitstomwuecica(97)='NA'
|
|
unitstomwuecica(98)='NA'
|
|
unitstomwuecica(99)='NA'
|
|
unitstomwuecica(100)='NA'
|
|
unitstomwuecica(101)='NA'
|
|
unitstomwuecica(102)='NA'
|
|
unitstomwuecica(103)='NA'
|
|
unitstomwuecica(104)='NA'
|
|
unitstomwuecica(105)='NA'
|
|
unitstomwuecica(106)='NA'
|
|
unitstomwuecica(107)='NA'
|
|
unitstomwuecica(108)='NA'
|
|
unitstomwuecica(109)='NA'
|
|
unitstomwuecica(110)='NA'
|
|
unitstomwuecica(111)='NA'
|
|
unitstomwuecica(112)='NA'
|
|
unitstomwuecica(113)='NA'
|
|
unitstomwuecica(114)='NA'
|
|
unitstomwuecica(115)='NA'
|
|
unitstomwuecica(116)='NA'
|
|
unitstomwuecica(117)='NA'
|
|
unitstomwuecica(118)='NA'
|
|
unitstomwuecica(119)='NA'
|
|
unitstomwuecica(120)='NA'
|
|
unitstomwuecica(121)='NA'
|
|
unitstomwuecica(122)='NA'
|
|
unitstomwuecica(123)='NA'
|
|
unitstomwuecica(124)='NA'
|
|
unitstomwuecica(125)='NA'
|
|
unitstomwuecica(126)='NA'
|
|
unitstomwuecica(127)='NA'
|
|
unitstomwuecica(128)='NA'
|
|
unitstomwuecica(129)='NA'
|
|
unitstomwuecica(130)='NA'
|
|
unitstomwuecica(131)='NA'
|
|
unitstomwuecica(132)='NA'
|
|
unitstomwuecica(133)='NA'
|
|
unitstomwuecica(134)='NA'
|
|
unitstomwuecica(135)='NA'
|
|
unitstomwuecica(136)='NA'
|
|
unitstomwuecica(137)='NA'
|
|
unitstomwuecica(138)='NA'
|
|
unitstomwuecica(139)='NA'
|
|
if(isitmassbased.eq.1)then
|
|
unitstomwuecica(7)='molkg-1s-1'
|
|
unitstomwuecica(10)='molkg-1s-1'
|
|
unitstomwuecica(13)='molkg-1s-1'
|
|
unitstomwuecica(16)='molkg-1s-1'
|
|
unitstomwuecica(20)='molkg-1s-1'
|
|
unitstomwuecica(24)='molkg-1s-1'
|
|
unitstomwuecica(55)='umolkg-1s-1'
|
|
endif
|
|
|
|
write(stomwuecicaoutunit,'(2000A)')(trim(stomwuecica(i)),',',
|
|
&i=1,139),(trim(sitevars(i)),',',i=1,22),trim(sitevars(23))
|
|
write(stomwuecicaoutunit,'(2000A)')(trim(unitstomwuecica(i)),
|
|
&',',i=1,139),(trim(unitsitevars(i)),',',i=1,22),
|
|
&trim(unitsitevars(23))
|
|
return
|
|
end
|