17 lines
598 B
C
17 lines
598 B
C
! used for the stomatal optimization block
|
|
integer maxdimobs
|
|
parameter(maxdimobs=200)
|
|
|
|
double precision xpco2i(maxdimobs),pco2s(maxdimobs),
|
|
& rehulfsurf(maxdimobs),gammas(maxdimobs),pres_air(maxdimobs),
|
|
& assim_net(maxdimobs),gswmeas(maxdimobs),pvapordef_s(maxdimobs),
|
|
& bmin(10),bmax(10)
|
|
|
|
common /stomvariables/xpco2i,pco2s,rehulfsurf,gammas,
|
|
& pres_air,assim_net,gswmeas,pvapordef_s,bmin,bmax
|
|
|
|
integer istommodel,nobs
|
|
common /stomindices/istommodel,nobs
|
|
|
|
!-------- End of list of common block variables ------------------
|