Initial commit
This commit is contained in:
@@ -0,0 +1,297 @@
|
||||
!Photosynthetic, Internal and Stomatal Conductance Analyses of Leaves (PISCAL)
|
||||
!
|
||||
!Created by: Lianhong Gu
|
||||
! Environmental Sciences Dvision
|
||||
! Oak Ridge National Laboratory
|
||||
! Oak Ridge, TN 37831
|
||||
! lianhong-gu@ornl.gov
|
||||
!with support from Department of Energy Office of Science, Biological
|
||||
!and Environmental Research Program
|
||||
!
|
||||
!PISCAL first created 10 July 2008
|
||||
!Paralle PISCAL 20 Feb 2013
|
||||
!Updated 24 Jan 1014
|
||||
!()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()
|
||||
program main
|
||||
implicit none
|
||||
integer dataunit,spareunit,ierr(2),runvalues(8),ipos1,ipos2,
|
||||
&ntotfiles,noutputfiles,i,j,k,indexunit(20)
|
||||
character rundate*8,runtime*10,runzone*5,longchar*5000
|
||||
character*100 datapath,outpath,storein,storeout,
|
||||
&ACidata(8000)
|
||||
character*50 AllACiFiles,outputfile(20)
|
||||
|
||||
! Set input / output directory
|
||||
parameter(datapath=
|
||||
! &'/home/l2g/ngeetropics/gamboa/curves/',
|
||||
! &'/home/l2g/ngeetropics/metropolitano/curves/',
|
||||
! &'/home/l2g/ngeetropics/fortsherman/curves/',
|
||||
! &'/home/l2g/ngeetropics/kelsey/curves/',
|
||||
& '/home/l2g/SingleLeafModel/ACiSimulation/hybrid/',
|
||||
! &'/home/l2g/leafres/hybriddata/dwestonpoplus/data3/',
|
||||
! &'/home/l2g/leafres/hybriddata/cernusak/2014data/',
|
||||
! &'/home/l2g/leafres/hybriddata/hanjimei/',
|
||||
! &'/home/l2g/junk/',
|
||||
! & '/home/l2g/leafres/hybriddata/Berner/',
|
||||
! & '/home/l2g/leafres/hybriddata/huidafeng/',
|
||||
! &'/home/l2g/leafres/hybriddata/dwestonpoplus/data_Pn_tree_1_195_v2/
|
||||
! &'/home/l2g/SingleLeafModel/ACiSimulation/hybrid/',
|
||||
! & '/home/l2g/dataassim/leaf/data/moflux/2008/inputs/',
|
||||
! & '/home/l2g/leafres/hybriddata/sphagnum/2014data1/',
|
||||
! & '/home/l2g/dataassim/leaf/data/moflux/2010/inputs/',
|
||||
!for moflux data, 2004-2008 requires correction of Ci. Other years do not
|
||||
! & '/home/l2g/dataassim/leaf/data/LawData/inputs/',
|
||||
! & '/home/l2g/dataassim/leaf/data/dweston/inputs/',
|
||||
! & '/home/l2g/dataassim/leaf/data/johnbaker/inputs/',
|
||||
! & '/home/l2g/dataassim/leaf/data/martins/inputs/',
|
||||
! & '/home/l2g/dataassim/leaf/data/benzi/inputs/',
|
||||
! & '/home/l2g/dataassim/leaf/data/loos/inputs/',
|
||||
! & '/home/l2g/dataassim/leaf/data/ellsworth/inputs/',
|
||||
|
||||
! & '/home/l2g/dataassim/leaf/data/fromleafweb/inputs/',
|
||||
! & '/home/l2g/SingleLeafModel/ACiSimulation/testkco/',
|
||||
! & '/home/l2g/SingleLeafModel/ACiSimulation/rwprch/',
|
||||
! & '/home/l2g/dataassim/leaf/data/panama/sept2012/inputs/',
|
||||
! &'/home/l2g/dataassim/leaf/data/williams/inputs/',
|
||||
! & '/home/l2g/dataassim/leaf/test/',
|
||||
! & '/home/l2g/SingleLeafModel/ACiSimulation/Martins/',
|
||||
! & '/home/l2g/SingleLeafModel/ACiSimulation/collantes/',
|
||||
! & '/home/l2g/dataassim/leaf/data/dweston/inputs/',
|
||||
! & '/home/l2g/GEMSiS/curves/',
|
||||
& outpath=
|
||||
! &'/home/l2g/ngeetropics/gamboa/results/',
|
||||
! &'/home/l2g/ngeetropics/metropolitano/results/',
|
||||
! &'/home/l2g/ngeetropics/fortsherman/results/',
|
||||
! &'/home/l2g/ngeetropics/kelsey/results/',
|
||||
! &'/home/l2g/leafres/hybriddata/dwestonpoplus/data3/',
|
||||
! & '/home/l2g/SingleLeafModel/ACiSimulation/wenting/',
|
||||
! &'/home/l2g/leafres/testdata/',
|
||||
! &'/home/l2g/leafres/hybriddata/hanjimei/',
|
||||
!
|
||||
! & '/home/l2g/leafres/hybriddata/Berner/',
|
||||
& '/home/l2g/SingleLeafModel/ACiSimulation/hybrid/',
|
||||
! & '/home/l2g/leafres/hybriddata/huidafeng/',
|
||||
! &'/home/l2g/leafres/hybriddata/dwestonpoplus/data_Pn_tree_1_195_v2/
|
||||
! &',
|
||||
! & '/home/l2g/dataassim/leaf/data/moflux/2008/outputs/',
|
||||
! & '/home/l2g/dataassim/leaf/data/moflux/2012/outputs/',
|
||||
! & '/home/l2g/dataassim/leaf/data/LawData/outputs/',
|
||||
! & '/home/l2g/dataassim/leaf/data/dweston/outputs/',
|
||||
! & '/home/l2g/dataassim/leaf/data/johnbaker/outputs/',
|
||||
! & '/home/l2g/dataassim/leaf/data/martins/outputs/',
|
||||
! & '/home/l2g/dataassim/leaf/data/benzi/outputs/',
|
||||
! & '/home/l2g/dataassim/leaf/data/loos/outputs/',
|
||||
! & '/home/l2g/dataassim/leaf/data/ellsworth/outputs/',
|
||||
! &'/home/l2g/leafres/hybriddata/sphagnum/2014results1/',
|
||||
! &'/home/l2g/junk/',
|
||||
! & '/home/l2g/SingleLeafModel/ACiSimulation/testkco/',
|
||||
! & '/home/l2g/SingleLeafModel/ACiSimulation/rwprch/results/',
|
||||
! & '/home/l2g/dataassim/leaf/data/panama/sept2012/outputs/',
|
||||
! &'/home/l2g/dataassim/leaf/data/panama/sept2012/outputs/rwprch/',
|
||||
! & '/home/l2g/mpitest/',
|
||||
! &'/home/l2g/dataassim/leaf/data/williams/outputs/',
|
||||
! & '/home/l2g/dataassim/leaf/data/fromleafweb/outputs/withpad/',
|
||||
! & '/home/l2g/dataassim/leaf/test/',
|
||||
! & '/home/l2g/SingleLeafModel/ACiSimulation/collantes/',
|
||||
! & '/home/l2g/SingleLeafModel/ACiSimulation/Martins/',
|
||||
! & '/home/l2g/dataassim/leaf/data/dweston/outputs/',
|
||||
! & '/home/l2g/GEMSiS/results/',
|
||||
! &storein='/home/l2g/leafweb/users/curves/',
|
||||
! &storeout='/home/l2g/leafweb/users/results/',
|
||||
|
||||
&storein='/home/l2g/leafres/testdata/',
|
||||
&storeout='/home/l2g/leafres/testdata/',
|
||||
! &storein='/home/l2g/junk/',
|
||||
! &storeout='/home/l2g/junk/',
|
||||
! &storein='/home/l2g/dataassim/leaf/data/ellsworth/outputs/',
|
||||
! &storeout='/home/l2g/dataassim/leaf/data/ellsworth/outputs/',
|
||||
|
||||
& AllACiFiles='AllLeafGasFiles')
|
||||
!---------------End of variable declaration----------------
|
||||
ierr(1)=-1
|
||||
ierr(2)=-1
|
||||
outputfile(1)='leafgasparameters.csv'
|
||||
outputfile(2)='leafgascomparison.csv'
|
||||
outputfile(3)='stomwuecicaparameters.csv'
|
||||
outputfile(4)='stomcomparison.csv'
|
||||
outputfile(5)='wuecicacomparison.csv'
|
||||
outputfile(6)='fluorescencefit.csv'
|
||||
outputfile(7)='fluoresparameters.csv'
|
||||
outputfile(8)='aciempfitparameters.csv'
|
||||
outputfile(9)='alightempfitparameters.csv'
|
||||
outputfile(10)='warningmessage'
|
||||
outputfile(11)='errormessage'
|
||||
noutputfiles=11
|
||||
do i=1,noutputfiles
|
||||
indexunit(i)=i+9
|
||||
enddo
|
||||
do i=1,noutputfiles-1
|
||||
open(unit=indexunit(i),file=trim(outpath)//trim(outputfile(i)))
|
||||
enddo
|
||||
!read A/Ci curve names stored in AllACiFiles
|
||||
dataunit=1
|
||||
spareunit=3
|
||||
open(unit=dataunit,status='scratch')
|
||||
open(unit=spareunit,file=trim(datapath)//trim(AllACiFiles))
|
||||
read(spareunit,fmt=300,err=40,end=40)longchar
|
||||
rewind(spareunit)
|
||||
2 read(spareunit,fmt=300,err=40,end=5)longchar
|
||||
3 k=index(longchar,char(13))
|
||||
if(k.gt.0)then
|
||||
!DOS text format, convert it to unix format
|
||||
longchar(k:k+len(char(10))-1)=char(10)
|
||||
goto 3
|
||||
endif
|
||||
write(dataunit,310)trim(longchar)
|
||||
goto 2
|
||||
5 close(spareunit)
|
||||
rewind(dataunit)
|
||||
ntotfiles=1
|
||||
10 read(dataunit,fmt=300,end=20)longchar
|
||||
i=len(longchar)
|
||||
j=0
|
||||
15 j=j+1
|
||||
if(ichar(longchar(j:j)).ge.33.and.ichar(longchar(j:j)).le.127)then
|
||||
ipos1=j
|
||||
else
|
||||
if(j.ge.i)goto 10
|
||||
goto 15
|
||||
endif
|
||||
j=i+1
|
||||
16 j=j-1
|
||||
if(ichar(longchar(j:j)).ge.33.and.ichar(longchar(j:j)).le.127)then
|
||||
ipos2=j
|
||||
else
|
||||
if(j.le.1)goto 10
|
||||
goto 16
|
||||
endif
|
||||
ACidata(ntotfiles)=longchar(ipos1:ipos2)
|
||||
ntotfiles=ntotfiles+1
|
||||
goto 10
|
||||
20 ntotfiles=ntotfiles-1
|
||||
close(dataunit)
|
||||
call ToLeafGasOptimization(ntotfiles,ACidata,dataunit,spareunit,
|
||||
&datapath,indexunit,ierr)
|
||||
40 do i=1,noutputfiles-1
|
||||
close(indexunit(i))
|
||||
enddo
|
||||
if(ierr(1).ne.0)then
|
||||
i=indexunit(noutputfiles)
|
||||
open(unit=i,file=trim(outpath)//trim(outputfile(noutputfiles)))
|
||||
if(ierr(1).eq.-1)then
|
||||
close(spareunit)
|
||||
write(i,*)
|
||||
&'No data files to analyze or incorrect file name format'
|
||||
else
|
||||
write(i,*)'Input data error in ',trim(ACidata(ierr(2)))
|
||||
write(i,*)
|
||||
&'Please resubmit the data after correcting the following error:'
|
||||
endif
|
||||
if(ierr(1).eq.1)then
|
||||
write(i,*)'Photosynthesis (umol/m2/s) out of range'
|
||||
endif
|
||||
if(ierr(1).eq.2)then
|
||||
write(i,*)'Intercellular CO2(ppm) out of range'
|
||||
endif
|
||||
if(ierr(1).eq.3)then
|
||||
write(i,*)'Leaf temperature (oC) out of range'
|
||||
endif
|
||||
if(ierr(1).eq.4)then
|
||||
write(i,*)'Chamber PAR (umol/m2/s) out of range'
|
||||
endif
|
||||
if(ierr(1).eq.5)then
|
||||
write(i,*)'Atmospheric pressure (Pa) out of range'
|
||||
endif
|
||||
if(ierr(1).eq.13)then
|
||||
write(i,*)'Check line 13 for data entry error'
|
||||
endif
|
||||
if(ierr(1).eq.14)then
|
||||
write(i,*)'Specified chloroplastic CO2 compensation point',
|
||||
&'(Pa) out of range'
|
||||
endif
|
||||
if(ierr(1).eq.15)then
|
||||
write(i,*)'Specified Michaelis-Menten constant for the',
|
||||
&'carboxylase (Kc) out of range'
|
||||
endif
|
||||
if(ierr(1).eq.16)then
|
||||
write(i,*)'Specified Michaelis-Menten constant for the',
|
||||
&'oxygenase (Ko) out of range'
|
||||
endif
|
||||
if(ierr(1).eq.17)then
|
||||
write(i,*)'Specified fraction of nonreturned glycolate',
|
||||
&'carbon(alpha) out of range 0~1'
|
||||
endif
|
||||
if(ierr(1).eq.18)then
|
||||
write(i,*)'Specified dark respiration rate Rd out of range >0'
|
||||
endif
|
||||
if(ierr(1).eq.19)then
|
||||
write(i,*)'Specified internal (mesophyll) conductance gi out',
|
||||
&'of range >0'
|
||||
endif
|
||||
if(ierr(1).eq.34)then
|
||||
write(i,*)'Check Column 33 or 34. Mixing area- and mass-based
|
||||
&measurements is not allowed'
|
||||
endif
|
||||
if(ierr(1).eq.36)then
|
||||
write(i,*)'Check line 16 for data entry error'
|
||||
endif
|
||||
if(ierr(1).eq.39)then
|
||||
write(i,*)
|
||||
&'Check the main body of data for data entry error, starting from
|
||||
&line 19'
|
||||
endif
|
||||
if(ierr(1).eq.40)then
|
||||
write(i,*)
|
||||
&'Data file format cannot be recognized'
|
||||
endif
|
||||
|
||||
close(i)
|
||||
endif
|
||||
do j=1,noutputfiles
|
||||
open(unit=2,file=trim(outpath)//trim(outputfile(j)))
|
||||
read(2,*,end=70)
|
||||
if(j.le.(noutputfiles-2))then
|
||||
read(2,*,end=70)
|
||||
read(2,*,end=70)
|
||||
endif
|
||||
close(2)
|
||||
goto 80
|
||||
70 close(2,status='delete')
|
||||
80 enddo
|
||||
!----------------------------------------------------------
|
||||
!intercept the data
|
||||
goto 450
|
||||
399 call date_and_time(rundate,runtime,runzone,runvalues)
|
||||
do i=1,ntotfiles
|
||||
open(unit=1,file=trim(datapath)//trim(ACidata(i)))
|
||||
open(unit=2,file=
|
||||
&trim(storein)//rundate//runtime(1:6)//trim(ACidata(i)))
|
||||
400 read(1,fmt=300,end=410)longchar
|
||||
write(2,310)trim(longchar)
|
||||
goto 400
|
||||
410 close(1)
|
||||
close(2)
|
||||
enddo
|
||||
do i=1,6
|
||||
k=0
|
||||
open(unit=1,file=trim(outpath)//trim(outputfile(i)))
|
||||
open(unit=2,file=
|
||||
&trim(storeout)//rundate//runtime(1:6)//trim(outputfile(i)))
|
||||
420 read(1,fmt=300,end=430)longchar
|
||||
write(2,310)trim(longchar)
|
||||
k=1
|
||||
goto 420
|
||||
430 if(k.eq.1)then
|
||||
close(1)
|
||||
close(2)
|
||||
else
|
||||
close(1,status='delete')
|
||||
close(2,status='delete')
|
||||
endif
|
||||
enddo
|
||||
450 continue
|
||||
!----------------------------------------------------------
|
||||
300 format(a5000)
|
||||
310 format(a)
|
||||
end
|
||||
!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
|
||||
Reference in New Issue
Block a user