Kolpack-Software-Consulting/piscal
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

New changes from l2g

Browse Source 
w
This commit is contained in:
James Kolpack
2022-09-12 16:40:28 +00:00
parent 78eb7147d0
commit d713d4f61a
110 changed files with 87672 additions and 1098 deletions
Download Patch File Download Diff File Expand all files Collapse all files
leafres/testarea/LeafGasPrintToFiles.f
+26 -15
View File
@@ -1,8 +1,9 @@
subroutine LeafGasPrintToFiles(isitmassbased,indexunit)
subroutine LeafGasPrintToFiles(isitmassbased,indexunit,
&ic3c4cam)
implicit none
integer isitmassbased,indexunit(20),paramunit,compareunit,
&stomwuecicaoutunit,stomcompunit,wuecicacompunit,fluorescenceunit,
&fluoresparamunit,aciempfitunit,alightempfitunit
&fluoresparamunit,aciempfitunit,alightempfitunit,ic3c4cam
character *25,
& sitevars(50),unitsitevars(50),
& paramsvar(0:50),unitparamsvar(0:50),
@@ -363,7 +364,7 @@
unitparamsvar(41)='umolkg-1s-1'
unitparamsvar(42)='umolkg-1s-1'
endif
sitevars(1)='siteID'
sitevars(2)='Latitude'
sitevars(3)='Longitude'
@@ -411,15 +412,25 @@
unitsitevars(21)='ring/diffuse'
unitsitevars(22)='g/cm3'
unitsitevars(23)='Unitless'
write(paramunit,'(2000A)')(trim(univcomvars(i)),',',i=1,9),
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),
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),
@@ -514,9 +525,9 @@
unitstomwuecica(16)='umolkg-1s-1'
endif
write(stomcompunit,'(100A)')((trim(stomwuecica(i)),','),
write(stomcompunit,'(100A)')(trim(stomwuecica(i)),',',
&i=1,15),trim(stomwuecica(16))
write(stomcompunit,'(100A)')((trim(unitstomwuecica(i)),','),
write(stomcompunit,'(100A)')(trim(unitstomwuecica(i)),',',
&i=1,15),trim(unitstomwuecica(16))
!------------------------------------------------------------
stomwuecica(1)='curveno'
@@ -581,9 +592,9 @@
unitstomwuecica(29)='NA'
unitstomwuecica(30)='NA'
write(wuecicacompunit,'(200A)')((trim(stomwuecica(i)),','),
write(wuecicacompunit,'(200A)')(trim(stomwuecica(i)),',',
&i=1,29),trim(stomwuecica(30))
write(wuecicacompunit,'(200A)')((trim(unitstomwuecica(i)),','),
write(wuecicacompunit,'(200A)')(trim(unitstomwuecica(i)),',',
&i=1,29),trim(stomwuecica(30))
stomwuecica(1)='curveno'
@@ -875,10 +886,10 @@
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),
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