Initial commit
This commit is contained in:
@@ -0,0 +1,884 @@
|
||||
subroutine LeafGasPrintToFiles(isitmassbased,indexunit)
|
||||
implicit none
|
||||
integer isitmassbased,indexunit(20),paramunit,compareunit,
|
||||
&stomwuecicaoutunit,stomcompunit,wuecicacompunit,fluorescenceunit,
|
||||
&fluoresparamunit,aciempfitunit,alightempfitunit
|
||||
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'
|
||||
|
||||
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))
|
||||
|
||||
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
|
||||
Reference in New Issue
Block a user