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

Updates for gfortran 11

Browse Source
This commit is contained in:
James Kolpack
2022-09-16 14:05:42 +00:00
parent 230d1e7050
commit 561e715efd
4 changed files with 59 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files
leafres/testarea/C4SetUpLeafGasFit.f
+2 -1
View File
@@ -723,7 +723,8 @@
&fvector,gvector,sumsquare) &fvector,gvector,sumsquare)
call properties_surffunc(5,beta,starco2i(i),der_starco2i(i), call properties_surffunc(5,beta,starco2i(i),der_starco2i(i),
&Amax_ACi(i),ACiinter(i),der_ACiinter(i), &Amax_ACi(i),ACiinter(i),der_ACiinter(i),
&ACipco2i(nACiPoints(i):nACiPoints(i),i:i),der_ACiend(i),term, &ACipco2i(nACiPoints(i),i),der_ACiend(i),term,
! &ACipco2i(nACiPoints(i):nACiPoints(i),i:i),der_ACiend(i),term,
&ACipco2i(1:1,i:i),ACipco2i(nACiPoints(i):nACiPoints(i),i:i), &ACipco2i(1:1,i:i),ACipco2i(nACiPoints(i):nACiPoints(i),i:i),
&ACimaxcurvature(i),ACimaxcurvpco2i(i)) &ACimaxcurvature(i),ACimaxcurvpco2i(i))
if(n.ge.5)then if(n.ge.5)then
leafres/testarea/LeafGasPISCAL_single.f
+10 -10
View File
@@ -23,8 +23,8 @@
! Set input / output directory ! Set input / output directory
parameter(datapath= parameter(datapath=
! &'../input/', &'../input/',
&'/home/l2g/jimei/', ! &'/home/l2g/jimei/',
! &'/home/l2g/ngeetropics/gamboa/curves/', ! &'/home/l2g/ngeetropics/gamboa/curves/',
! &'/home/l2g/ngeetropics/metropolitano/curves/', ! &'/home/l2g/ngeetropics/metropolitano/curves/',
! &'/home/l2g/ngeetropics/fortsherman/curves/', ! &'/home/l2g/ngeetropics/fortsherman/curves/',
@@ -62,8 +62,8 @@
! & '/home/l2g/dataassim/leaf/data/dweston/inputs/', ! & '/home/l2g/dataassim/leaf/data/dweston/inputs/',
! & '/home/l2g/GEMSiS/curves/', ! & '/home/l2g/GEMSiS/curves/',
& outpath= & outpath=
! &'../output/fitresult/touser/', &'../output/fitresult/touser/',
&'/home/l2g/jimei/', ! &'/home/l2g/jimei/',
! &'/home/l2g/ngeetropics/gamboa/results/', ! &'/home/l2g/ngeetropics/gamboa/results/',
! &'/home/l2g/ngeetropics/metropolitano/results/', ! &'/home/l2g/ngeetropics/metropolitano/results/',
! &'/home/l2g/ngeetropics/fortsherman/results/', ! &'/home/l2g/ngeetropics/fortsherman/results/',
@@ -106,16 +106,16 @@
! &storein='/home/l2g/leafweb/users/curves/', ! &storein='/home/l2g/leafweb/users/curves/',
! &storeout='/home/l2g/leafweb/users/results/', ! &storeout='/home/l2g/leafweb/users/results/',
! &storein='../output/clninput/', &storein='../output/clninput/',
! &storeout='../output/fitresult/nottouser/', &storeout='../output/fitresult/nottouser/',
&storein='/home/l2g/jimei/', ! &storein='/home/l2g/jimei/',
&storeout='/home/l2g/jimei/', ! &storeout='/home/l2g/jimei/',
! &storein='/home/l2g/dataassim/leaf/data/ellsworth/outputs/', ! &storein='/home/l2g/dataassim/leaf/data/ellsworth/outputs/',
! &storeout='/home/l2g/dataassim/leaf/data/ellsworth/outputs/', ! &storeout='/home/l2g/dataassim/leaf/data/ellsworth/outputs/',
! & AllACiFiles='../piscal.cfg') &AllACiFiles='../piscal.cfg')
&AllACiFiles='/home/l2g/jimei/piscal.cfg') ! &AllACiFiles='/home/l2g/jimei/piscal.cfg')
!---------------End of variable declaration---------------- !---------------End of variable declaration----------------
ierr(1)=-1 ierr(1)=-1
ierr(2)=-1 ierr(2)=-1
leafres/testarea/SetUpLeafGasFit.f
+2 -1
View File
@@ -724,7 +724,8 @@
&fvector,gvector,sumsquare) &fvector,gvector,sumsquare)
call properties_surffunc(5,beta,starco2i(i),der_starco2i(i), call properties_surffunc(5,beta,starco2i(i),der_starco2i(i),
&Amax_ACi(i),ACiinter(i),der_ACiinter(i), &Amax_ACi(i),ACiinter(i),der_ACiinter(i),
&ACipco2i(nACiPoints(i):nACiPoints(i),i:i),der_ACiend(i),term, &ACipco2i(nACiPoints(i),i),der_ACiend(i),term,
! &ACipco2i(nACiPoints(i):nACiPoints(i),i:i),der_ACiend(i),term,
&ACipco2i(1:1,i:i),ACipco2i(nACiPoints(i):nACiPoints(i),i:i), &ACipco2i(1:1,i:i),ACipco2i(nACiPoints(i):nACiPoints(i),i:i),
&ACimaxcurvature(i),ACimaxcurvpco2i(i)) &ACimaxcurvature(i),ACimaxcurvpco2i(i))
if(n.ge.5)then if(n.ge.5)then
leafres/testrun/Makefile
+12 -10
View File
@@ -3,19 +3,17 @@
ALL = piscal ALL = piscal
# compiler options # compiler options
FF = mpif90 #FF = mpif90
FF = gfortran
#FOPTS = -g -C #FOPTS = -g -C
FOPTS = -g FOPTS = -g
#Base directory VPATH =/home/l2g/leafres/testarea:\
BASEDIR = ../.. /home/l2g/dataassim/math/optimization:\
/home/l2g/dataassim/math/othersupmath:\
VPATH =$(BASEDIR)/leafres/testarea:\ /home/l2g/dataassim/math/algebra:\
$(BASEDIR)/dataassim/math/optimization:\ /home/l2g/dataassim/math/specialfuncs:\
$(BASEDIR)/dataassim/math/othersupmath:\ /home/l2g/dataassim/math/nonlinsystems/
$(BASEDIR)/dataassim/math/algebra:\
$(BASEDIR)/dataassim/math/specialfuncs:\
$(BASEDIR)/dataassim/math/nonlinsystems/
# Define objects # Define objects
@@ -37,3 +35,7 @@ $(ALL): $(OBJS)
depend: depend:
/usr/bin/X11/makedepend -- $(CFLAGS) -- $(SRCS) /usr/bin/X11/makedepend -- $(CFLAGS) -- $(SRCS)
clean:
rm -f *.o