New changes from l2g

w

leafres/testarea/LeafGasFit_Stom.f

@@ -596,8 +596,8 @@
       do j=1,npoints
         write(unitwuecicacomp,380)curveno,trim(curvename),co2a_ppm(j),
      &vpdl(j),wue(j),wuemod(j),cicameas(j),cicamod(j),wue_intrin(j),
-     &wue_intrinmod(j),((cccimeas(k,j),cccimod(k,j)),k=1,4),
-     &((co2recycleratio(k,j),recycmod(k,j)),k=1,6)
+     &wue_intrinmod(j),(cccimeas(k,j),cccimod(k,j),k=1,4),
+     &(co2recycleratio(k,j),recycmod(k,j),k=1,6)
       enddo
       write(unitparamsout,390)curveno,trim(curvename),npoints_stom,
      &co2threshold,co2current,vpdl_ref,ballintersurf,ballslopesurf,
@@ -608,10 +608,10 @@
      &dewarrsqgsw,wueref,der_wueref,rsqwue,(alfit(i),i=1,5),
      &wueref_intrin,der_wueref_intrin,rsqwue_intrin,(blfit(i),i=1,5),
      &cicaref,der_cicaref,rsqcica,(cicafit(i),i=1,5),
-     &avetleaf,avetair,avevpdl,avepari,((ccciref(i),der_ccciref(i),
-     &rsqccci(i),(cccifit(i,j),j=1,6)),i=1,4),
-     &((recycref(i),der_recycref(i),
-     &rsqrecyc(i),(recycfit(i,j),j=1,5)),i=1,6),
+     &avetleaf,avetair,avevpdl,avepari,(ccciref(i),der_ccciref(i),
+     &rsqccci(i),(cccifit(i,j),j=1,6),i=1,4),
+     &(recycref(i),der_recycref(i),
+     &rsqrecyc(i),(recycfit(i,j),j=1,5),i=1,6),
 !     
      &trim(siteID),Latitude,Longitude,Elevation,yearsampled,
      &sampledoy,GrowingSeasonStart,GrowingSeasonEnd,