diff --git a/f77src/blk10.h b/f77src/blk10.h index 0783328..fc5a011 100644 --- a/f77src/blk10.h +++ b/f77src/blk10.h @@ -1,9 +1,9 @@ - COMMON/BLK10/PARG(JY,JX),PARR(JY,JX),FLWM(60,3,JD,JV,JH) - 2,FLWHM(60,3,JD,JV,JH),QRM(60,2,JV,JH),QSM(60,2,JV,JH) - 3,VOLWM(60,0:JZ,JY,JX),VOLWHM(60,JZ,JY,JX),VOLPM(60,0:JZ,JY,JX) - 4,HYSM(60,JZ,JY,JX),FILM(60,0:JZ,JY,JX),QRV(60,2,JV,JH) - 5,VOLGM(60,JY,JX),DFGS(60,0:JZ,JY,JX),ROXSK(60,0:JZ,JY,JX) - 6,FLWRM(60,JY,JX),FLPM(60,JZ,JY,JX),FINHM(60,JZ,JY,JX) - 7,THETPM(60,0:JZ,JY,JX),TORT(60,0:JZ,JY,JX),TORTH(60,JZ,JY,JX) - 8,FLQRM(60,JY,JX),FLQSM(60,JY,JX),FLQHM(60,JY,JX) - 9,FLQWM(60,JS,JY,JX),VHCPWM(60,JS,JY,JX) + COMMON/BLK10/PARG(JY,JX),PARR(JY,JX),FLWM(60,3,JD,JV,JH) & + &,FLWHM(60,3,JD,JV,JH),QRM(60,2,JV,JH),QSM(60,2,JV,JH) & + &,VOLWM(60,0:JZ,JY,JX),VOLWHM(60,JZ,JY,JX),VOLPM(60,0:JZ,JY,JX) & + &,HYSM(60,JZ,JY,JX),FILM(60,0:JZ,JY,JX),QRV(60,2,JV,JH) & + &,VOLGM(60,JY,JX),DFGS(60,0:JZ,JY,JX),ROXSK(60,0:JZ,JY,JX) & + &,FLWRM(60,JY,JX),FLPM(60,JZ,JY,JX),FINHM(60,JZ,JY,JX) & + &,THETPM(60,0:JZ,JY,JX),TORT(60,0:JZ,JY,JX),TORTH(60,JZ,JY,JX) & + &,FLQRM(60,JY,JX),FLQSM(60,JY,JX),FLQHM(60,JY,JX) & + &,FLQWM(60,JS,JY,JX),VHCPWM(60,JS,JY,JX) diff --git a/f77src/blk11a.h b/f77src/blk11a.h index 900c0b1..d6c8aee 100644 --- a/f77src/blk11a.h +++ b/f77src/blk11a.h @@ -1,27 +1,27 @@ - COMMON/BLK11A/BARE(JY,JX),CVRD(JY,JX),TCS(0:JZ,JY,JX) - 2,TKS(0:JZ,JY,JX),TCW(JS,JY,JX),TKW(JS,JY,JX),RAC(JY,JX) - 3,TSMX(0:JZ,JY,JX),TSMN(0:JZ,JY,JX),VHCP(0:JZ,JY,JX) - 4,VHCPW(JS,JY,JX),VOLW(0:JZ,JY,JX),VOLI(0:JZ,JY,JX) - 5,VOLP(0:JZ,JY,JX),VOLWH(JZ,JY,JX),VOLT(0:JZ,JY,JX) - 6,VOLTI(0:JZ,JY,JX),VOLR(JY,JX),VOLWG(JY,JX),TVOLWC(JY,JX) - 7,VOLSSL(JS,JY,JX),VOLWSL(JS,JY,JX),VOLISL(JS,JY,JX) - 8,VOLSL(JS,JY,JX),VOLSS(JY,JX),VOLWS(JY,JX),VOLIS(JY,JX) - 9,VOLS(JY,JX),THETW(0:JZ,JY,JX),THETI(0:JZ,JY,JX) - 1,THETP(0:JZ,JY,JX),PSISM(0:JZ,JY,JX),PSIST(JZ,JY,JX) - 2,RSCS(JZ,JY,JX),VOLA(0:JZ,JY,JX),VOLAH(JZ,JY,JX) - 3,CNDH(JZ,JY,JX),CNDU(JZ,JY,JX),VOLWD(JY,JX) - 4,VHCM(0:JZ,JY,JX),VOLWX(0:JZ,JY,JX),STC(JZ,JY,JX) - 5,DTC(JZ,JY,JX),HCND(3,100,JZ,JY,JX),FINH(JZ,JY,JX) - 6,FLWV(JZ,JY,JX),THAW(JZ,JY,JX),HTHAW(JZ,JY,JX) - 7,THAWH(JZ,JY,JX),VOLIH(JZ,JY,JX),DENSS(JS,JY,JX) - 8,DPTHS(JY,JX),DLYRS(JS,JY,JX),XFLWW(JS,JY,JX),XFLWS(JS,JY,JX) - 9,XFLWI(JS,JY,JX),XHFLWW(JS,JY,JX),XWFLXS(JS,JY,JX) - 1,XWFLXI(JS,JY,JX),XTHAWW(JS,JY,JX),FLWR(JY,JX),XW - 2,HFLWR(JY,JX),TFLWC(JY,JX),THRMG(JY,JX),HEATI(JY,JX) - 3,HEATE(JY,JX),HEATS(JY,JX),HEATV(JY,JX),HEATH(JY,JX) - 4,TEVAPG(JY,JX),HYST(JZ,JY,JX),VHCPWX(JY,JX),VHCPRX(JY,JX) - 5,VHCPNX(JY,JX),VOLWRX(JY,JX),CDPTHS(0:JS,JY,JX) - 7,CGSGL(JZ,JY,JX),CLSGL(0:JZ,JY,JX),OGSGL(JZ,JY,JX) - 8,OLSGL(0:JZ,JY,JX),ZGSGL(JZ,JY,JX),CHSGL(JZ,JY,JX) - 9,CQSGL(0:JZ,JY,JX),VOLSI(JS,JY,JX) - 1,THETWZ(0:JZ,JY,JX),THETIZ(0:JZ,JY,JX) + COMMON/BLK11A/BARE(JY,JX),CVRD(JY,JX),TCS(0:JZ,JY,JX) & + &,TKS(0:JZ,JY,JX),TCW(JS,JY,JX),TKW(JS,JY,JX),RAC(JY,JX) & + &,TSMX(0:JZ,JY,JX),TSMN(0:JZ,JY,JX),VHCP(0:JZ,JY,JX) & + &,VHCPW(JS,JY,JX),VOLW(0:JZ,JY,JX),VOLI(0:JZ,JY,JX) & + &,VOLP(0:JZ,JY,JX),VOLWH(JZ,JY,JX),VOLT(0:JZ,JY,JX) & + &,VOLTI(0:JZ,JY,JX),VOLR(JY,JX),VOLWG(JY,JX),TVOLWC(JY,JX) & + &,VOLSSL(JS,JY,JX),VOLWSL(JS,JY,JX),VOLISL(JS,JY,JX) & + &,VOLSL(JS,JY,JX),VOLSS(JY,JX),VOLWS(JY,JX),VOLIS(JY,JX) & + &,VOLS(JY,JX),THETW(0:JZ,JY,JX),THETI(0:JZ,JY,JX) & + &,THETP(0:JZ,JY,JX),PSISM(0:JZ,JY,JX),PSIST(JZ,JY,JX) & + &,RSCS(JZ,JY,JX),VOLA(0:JZ,JY,JX),VOLAH(JZ,JY,JX) & + &,CNDH(JZ,JY,JX),CNDU(JZ,JY,JX),VOLWD(JY,JX) & + &,VHCM(0:JZ,JY,JX),VOLWX(0:JZ,JY,JX),STC(JZ,JY,JX) & + &,DTC(JZ,JY,JX),HCND(3,100,JZ,JY,JX),FINH(JZ,JY,JX) & + &,FLWV(JZ,JY,JX),THAW(JZ,JY,JX),HTHAW(JZ,JY,JX) & + &,THAWH(JZ,JY,JX),VOLIH(JZ,JY,JX),DENSS(JS,JY,JX) & + &,DPTHS(JY,JX),DLYRS(JS,JY,JX),XFLWW(JS,JY,JX),XFLWS(JS,JY,JX) & + &,XFLWI(JS,JY,JX),XHFLWW(JS,JY,JX),XWFLXS(JS,JY,JX) & + &,XWFLXI(JS,JY,JX),XTHAWW(JS,JY,JX),FLWR(JY,JX),XW & + &,HFLWR(JY,JX),TFLWC(JY,JX),THRMG(JY,JX),HEATI(JY,JX) & + &,HEATE(JY,JX),HEATS(JY,JX),HEATV(JY,JX),HEATH(JY,JX) & + &,TEVAPG(JY,JX),HYST(JZ,JY,JX),VHCPWX(JY,JX),VHCPRX(JY,JX) & + &,VHCPNX(JY,JX),VOLWRX(JY,JX),CDPTHS(0:JS,JY,JX) & + &,CGSGL(JZ,JY,JX),CLSGL(0:JZ,JY,JX),OGSGL(JZ,JY,JX) & + &,OLSGL(0:JZ,JY,JX),ZGSGL(JZ,JY,JX),CHSGL(JZ,JY,JX) & + &,CQSGL(0:JZ,JY,JX),VOLSI(JS,JY,JX) & + &,THETWZ(0:JZ,JY,JX),THETIZ(0:JZ,JY,JX) diff --git a/f77src/blk11b.h b/f77src/blk11b.h index e91e2e7..98366c0 100644 --- a/f77src/blk11b.h +++ b/f77src/blk11b.h @@ -1,13 +1,13 @@ - COMMON/BLK11B/ZLSGL(0:JZ,JY,JX),ZHSGL(JZ,JY,JX),ZNSGL(0:JZ,JY,JX) - 2,ZOSGL(0:JZ,JY,JX),POSGL(0:JZ,JY,JX),OCSGL(0:JZ,JY,JX) - 3,ONSGL(0:JZ,JY,JX),OPSGL(0:JZ,JY,JX),OASGL(0:JZ,JY,JX) - 4,Z2SGL(JZ,JY,JX),ZVSGL(0:JZ,JY,JX) - 5,WGSGL(JZ,JY,JX),WGSGW(JS,JY,JX),WGSGR(JY,JX),WGSGA(JY,JX) - 6,SCO2L(0:JZ,JY,JX),SOXYL(0:JZ,JY,JX),SCH4L(0:JZ,JY,JX) - 7,SN2OL(0:JZ,JY,JX),SN2GL(0:JZ,JY,JX),SNH3L(0:JZ,JY,JX) - 8,SH2GL(0:JZ,JY,JX),PSISE(0:JZ,JY,JX),PSISA(JZ,JY,JX) - 9,PSISO(JZ,JY,JX),PSISH(JZ,JY,JX),THETX,THETPI,DENSI,DENSJ - 1,THETY(0:JZ,JY,JX),FCR(JY,JX),VOLQ(0:JZ,JY,JX) - 2,TFNQ(0:JZ,JY,JX),HGSGL(JZ,JY,JX),HLSGL(0:JZ,JY,JX) - 3,THAWR(JY,JX),HTHAWR(JY,JX),FLSW(JY,JX),FLSWH(JY,JX) - 4,HFLSW(JY,JX),FLSWR(JY,JX),HFLSWR(JY,JX) + COMMON/BLK11B/ZLSGL(0:JZ,JY,JX),ZHSGL(JZ,JY,JX),ZNSGL(0:JZ,JY,JX) & + &,ZOSGL(0:JZ,JY,JX),POSGL(0:JZ,JY,JX),OCSGL(0:JZ,JY,JX) & + &,ONSGL(0:JZ,JY,JX),OPSGL(0:JZ,JY,JX),OASGL(0:JZ,JY,JX) & + &,Z2SGL(JZ,JY,JX),ZVSGL(0:JZ,JY,JX) & + &,WGSGL(JZ,JY,JX),WGSGW(JS,JY,JX),WGSGR(JY,JX),WGSGA(JY,JX) & + &,SCO2L(0:JZ,JY,JX),SOXYL(0:JZ,JY,JX),SCH4L(0:JZ,JY,JX) & + &,SN2OL(0:JZ,JY,JX),SN2GL(0:JZ,JY,JX),SNH3L(0:JZ,JY,JX) & + &,SH2GL(0:JZ,JY,JX),PSISE(0:JZ,JY,JX),PSISA(JZ,JY,JX) & + &,PSISO(JZ,JY,JX),PSISH(JZ,JY,JX),THETX,THETPI,DENSI,DENSJ & + &,THETY(0:JZ,JY,JX),FCR(JY,JX),VOLQ(0:JZ,JY,JX) & + &,TFNQ(0:JZ,JY,JX),HGSGL(JZ,JY,JX),HLSGL(0:JZ,JY,JX) & + &,THAWR(JY,JX),HTHAWR(JY,JX),FLSW(JY,JX),FLSWH(JY,JX) & + &,HFLSW(JY,JX),FLSWR(JY,JX),HFLSWR(JY,JX) diff --git a/f77src/blk12a.h b/f77src/blk12a.h index 897f4fd..8c42e0d 100644 --- a/f77src/blk12a.h +++ b/f77src/blk12a.h @@ -1,21 +1,21 @@ - COMMON/BLK12A/WSTR(JP,JY,JX),OSTR(JP,JY,JX) - 2,RAD1(JP,JY,JX),THRM1(JP,JY,JX) - 3,EFLXC(JP,JY,JX),SFLXC(JP,JY,JX),HFLXC(JP,JY,JX),ENGYX(JP,JY,JX) - 4,VHCPC(JP,JY,JX),PSILT(JP,JY,JX),PSILG(JP,JY,JX),PSILO(JP,JY,JX) - 5,RC(JP,JY,JX),RA(JP,JY,JX),EP(JP,JY,JX),EVAPC(JP,JY,JX) - 6,UPWTR(2,JZ,JP,JY,JX),PSIRT(2,JZ,JP,JY,JX) - 7,PSIRO(2,JZ,JP,JY,JX),PSIRG(2,JZ,JP,JY,JX),CO2A(2,JZ,JP,JY,JX) - 8,OXYA(2,JZ,JP,JY,JX),CH4A(2,JZ,JP,JY,JX),Z2OA(2,JZ,JP,JY,JX) - 9,ZH3A(2,JZ,JP,JY,JX),CO2P(2,JZ,JP,JY,JX),OXYP(2,JZ,JP,JY,JX) - 1,CH4P(2,JZ,JP,JY,JX),Z2OP(2,JZ,JP,JY,JX),ZH3P(2,JZ,JP,JY,JX) - 2,ROXYP(2,JZ,JP,JY,JX),RCOFLA(2,JZ,JP,JY,JX),ROXFLA(2,JZ,JP,JY,JX) - 3,RCHFLA(2,JZ,JP,JY,JX),RN2FLA(2,JZ,JP,JY,JX),RNHFLA(2,JZ,JP,JY,JX) - 4,RCODFA(2,JZ,JP,JY,JX),ROXDFA(2,JZ,JP,JY,JX),RCHDFA(2,JZ,JP,JY,JX) - 5,RN2DFA(2,JZ,JP,JY,JX),RNHDFA(2,JZ,JP,JY,JX),RCO2S(2,JZ,JP,JY,JX) - 6,RUPOXS(2,JZ,JP,JY,JX),RUPCHS(2,JZ,JP,JY,JX),RUPN2S(2,JZ,JP,JY,JX) - 7,RUPN3S(2,JZ,JP,JY,JX),RUPN3B(2,JZ,JP,JY,JX),RCO2P(2,JZ,JP,JY,JX) - 8,RUPOXP(2,JZ,JP,JY,JX),RCO2M(2,JZ,JP,JY,JX),RCO2A(2,JZ,JP,JY,JX) - 9,UPOMC(JP,JY,JX),UPOMN(JP,JY,JX),UPOMP(JP,JY,JX),UPNH4(JP,JY,JX) - 1,UPNO3(JP,JY,JX),UPH2P(JP,JY,JX),UPH1P(JP,JY,JX),UPNF(JP,JY,JX) - 2,RCO2Z(JP,JY,JX),ROXYZ(JP,JY,JX),RCH4Z(JP,JY,JX),RN2OZ(JP,JY,JX) - + COMMON/BLK12A/WSTR(JP,JY,JX),OSTR(JP,JY,JX) & + &,RAD1(JP,JY,JX),THRM1(JP,JY,JX) & + &,EFLXC(JP,JY,JX),SFLXC(JP,JY,JX),HFLXC(JP,JY,JX),ENGYX(JP,JY,JX) & + &,VHCPC(JP,JY,JX),PSILT(JP,JY,JX),PSILG(JP,JY,JX),PSILO(JP,JY,JX) & + &,RC(JP,JY,JX),RA(JP,JY,JX),EP(JP,JY,JX),EVAPC(JP,JY,JX) & + &,UPWTR(2,JZ,JP,JY,JX),PSIRT(2,JZ,JP,JY,JX) & + &,PSIRO(2,JZ,JP,JY,JX),PSIRG(2,JZ,JP,JY,JX),CO2A(2,JZ,JP,JY,JX) & + &,OXYA(2,JZ,JP,JY,JX),CH4A(2,JZ,JP,JY,JX),Z2OA(2,JZ,JP,JY,JX) & + &,ZH3A(2,JZ,JP,JY,JX),CO2P(2,JZ,JP,JY,JX),OXYP(2,JZ,JP,JY,JX) & + &,CH4P(2,JZ,JP,JY,JX),Z2OP(2,JZ,JP,JY,JX),ZH3P(2,JZ,JP,JY,JX) & + &,ROXYP(2,JZ,JP,JY,JX),RCOFLA(2,JZ,JP,JY,JX),ROXFLA(2,JZ,JP,JY,JX) & + &,RCHFLA(2,JZ,JP,JY,JX),RN2FLA(2,JZ,JP,JY,JX),RNHFLA(2,JZ,JP,JY,JX)& + &,RCODFA(2,JZ,JP,JY,JX),ROXDFA(2,JZ,JP,JY,JX),RCHDFA(2,JZ,JP,JY,JX)& + &,RN2DFA(2,JZ,JP,JY,JX),RNHDFA(2,JZ,JP,JY,JX),RCO2S(2,JZ,JP,JY,JX) & + &,RUPOXS(2,JZ,JP,JY,JX),RUPCHS(2,JZ,JP,JY,JX),RUPN2S(2,JZ,JP,JY,JX)& + &,RUPN3S(2,JZ,JP,JY,JX),RUPN3B(2,JZ,JP,JY,JX),RCO2P(2,JZ,JP,JY,JX) & + &,RUPOXP(2,JZ,JP,JY,JX),RCO2M(2,JZ,JP,JY,JX),RCO2A(2,JZ,JP,JY,JX) & + &,UPOMC(JP,JY,JX),UPOMN(JP,JY,JX),UPOMP(JP,JY,JX),UPNH4(JP,JY,JX) & + &,UPNO3(JP,JY,JX),UPH2P(JP,JY,JX),UPH1P(JP,JY,JX),UPNF(JP,JY,JX) & + &,RCO2Z(JP,JY,JX),ROXYZ(JP,JY,JX),RCH4Z(JP,JY,JX),RN2OZ(JP,JY,JX) + diff --git a/f77src/blk12b.h b/f77src/blk12b.h index 56cbdad..ea765a7 100644 --- a/f77src/blk12b.h +++ b/f77src/blk12b.h @@ -1,18 +1,18 @@ - COMMON/BLK12B/RUPNH4(2,JZ,JP,JY,JX),RUPNHB(2,JZ,JP,JY,JX) - 2,RUPNO3(2,JZ,JP,JY,JX),RUPNOB(2,JZ,JP,JY,JX),RUPH2P(2,JZ,JP,JY,JX) - 3,RUPH2B(2,JZ,JP,JY,JX),RUONH4(2,JZ,JP,JY,JX),RUONHB(2,JZ,JP,JY,JX) - 4,RUONO3(2,JZ,JP,JY,JX),RUONOB(2,JZ,JP,JY,JX),RUOH2P(2,JZ,JP,JY,JX) - 5,RUOH2B(2,JZ,JP,JY,JX),RUCNH4(2,JZ,JP,JY,JX),RUCNHB(2,JZ,JP,JY,JX) - 6,RUCNO3(2,JZ,JP,JY,JX),RUCNOB(2,JZ,JP,JY,JX),RUCH2P(2,JZ,JP,JY,JX) - 7,RUCH2B(2,JZ,JP,JY,JX),RUPNF(JZ,JP,JY,JX),RUPHGS(2,JZ,JP,JY,JX) - 8,RUPH1P(2,JZ,JP,JY,JX),RUOH1P(2,JZ,JP,JY,JX),RUCH1P(2,JZ,JP,JY,JX) - 9,RUPH1B(2,JZ,JP,JY,JX),RUOH1B(2,JZ,JP,JY,JX),RUCH1B(2,JZ,JP,JY,JX) - 1,VOLWP(JP,JY,JX),RCO2N(2,JZ,JP,JY,JX),RDFOMC(2,0:4,JZ,JP,JY,JX) - 2,RDFOMN(2,0:4,JZ,JP,JY,JX),RDFOMP(2,0:4,JZ,JP,JY,JX) - 4,RUNNHP(2,JZ,JP,JY,JX),RUNNOP(2,JZ,JP,JY,JX),RUPPOP(2,JZ,JP,JY,JX) - 5,RUNNBP(2,JZ,JP,JY,JX),RUNNXP(2,JZ,JP,JY,JX),RUPPBP(2,JZ,JP,JY,JX) - 6,RNH3Z(JP,JY,JX),RNH3B(JC,JP,JY,JX),WFR(2,JZ,JP,JY,JX) - 7,RHGFLA(2,JZ,JP,JY,JX),RHGDFA(2,JZ,JP,JY,JX),H2GA(2,JZ,JP,JY,JX) - 8,H2GP(2,JZ,JP,JY,JX),RH2GZ(JP,JY,JX),RUPP1P(2,JZ,JP,JY,JX) - 9,RUPP1B(2,JZ,JP,JY,JX) - + COMMON/BLK12B/RUPNH4(2,JZ,JP,JY,JX),RUPNHB(2,JZ,JP,JY,JX) & + &,RUPNO3(2,JZ,JP,JY,JX),RUPNOB(2,JZ,JP,JY,JX),RUPH2P(2,JZ,JP,JY,JX)& + &,RUPH2B(2,JZ,JP,JY,JX),RUONH4(2,JZ,JP,JY,JX),RUONHB(2,JZ,JP,JY,JX)& + &,RUONO3(2,JZ,JP,JY,JX),RUONOB(2,JZ,JP,JY,JX),RUOH2P(2,JZ,JP,JY,JX)& + &,RUOH2B(2,JZ,JP,JY,JX),RUCNH4(2,JZ,JP,JY,JX),RUCNHB(2,JZ,JP,JY,JX)& + &,RUCNO3(2,JZ,JP,JY,JX),RUCNOB(2,JZ,JP,JY,JX),RUCH2P(2,JZ,JP,JY,JX)& + &,RUCH2B(2,JZ,JP,JY,JX),RUPNF(JZ,JP,JY,JX),RUPHGS(2,JZ,JP,JY,JX) & + &,RUPH1P(2,JZ,JP,JY,JX),RUOH1P(2,JZ,JP,JY,JX),RUCH1P(2,JZ,JP,JY,JX)& + &,RUPH1B(2,JZ,JP,JY,JX),RUOH1B(2,JZ,JP,JY,JX),RUCH1B(2,JZ,JP,JY,JX)& + &,VOLWP(JP,JY,JX),RCO2N(2,JZ,JP,JY,JX),RDFOMC(2,0:4,JZ,JP,JY,JX) & + &,RDFOMN(2,0:4,JZ,JP,JY,JX),RDFOMP(2,0:4,JZ,JP,JY,JX) & + &,RUNNHP(2,JZ,JP,JY,JX),RUNNOP(2,JZ,JP,JY,JX),RUPPOP(2,JZ,JP,JY,JX)& + &,RUNNBP(2,JZ,JP,JY,JX),RUNNXP(2,JZ,JP,JY,JX),RUPPBP(2,JZ,JP,JY,JX)& + &,RNH3Z(JP,JY,JX),RNH3B(JC,JP,JY,JX),WFR(2,JZ,JP,JY,JX) & + &,RHGFLA(2,JZ,JP,JY,JX),RHGDFA(2,JZ,JP,JY,JX),H2GA(2,JZ,JP,JY,JX) & + &,H2GP(2,JZ,JP,JY,JX),RH2GZ(JP,JY,JX),RUPP1P(2,JZ,JP,JY,JX) & + &,RUPP1B(2,JZ,JP,JY,JX) + diff --git a/f77src/blk13a.h b/f77src/blk13a.h index 269a96b..a464417 100644 --- a/f77src/blk13a.h +++ b/f77src/blk13a.h @@ -1,25 +1,25 @@ - COMMON/BLK13A/ORGC(0:JZ,JY,JX),OMC(3,7,0:5,0:JZ,JY,JX) - 2,OMN(3,7,0:5,0:JZ,JY,JX),OMP(3,7,0:5,0:JZ,JY,JX) - 3,ORC(2,0:4,0:JZ,JY,JX),ORN(2,0:4,0:JZ,JY,JX),ORP(2,0:4,0:JZ,JY,JX) - 4,OQC(0:4,0:JZ,JY,JX),OQN(0:4,0:JZ,JY,JX),OQP(0:4,0:JZ,JY,JX) - 5,OQA(0:4,0:JZ,JY,JX),OQCH(0:4,0:JZ,JY,JX),OQNH(0:4,0:JZ,JY,JX) - 6,OQPH(0:4,0:JZ,JY,JX),OQAH(0:4,0:JZ,JY,JX),OHC(0:4,0:JZ,JY,JX) - 7,OHN(0:4,0:JZ,JY,JX),OHP(0:4,0:JZ,JY,JX),OSC(4,0:4,0:JZ,JY,JX) - 8,OSN(4,0:4,0:JZ,JY,JX),OSP(4,0:4,0:JZ,JY,JX),OHA(0:4,0:JZ,JY,JX) - 9,ZNH4FA(0:JZ,JY,JX),ZNH3FA(0:JZ,JY,JX),ZNHUFA(0:JZ,JY,JX) - 1,ZNO3FA(0:JZ,JY,JX),ZNH4FB(0:JZ,JY,JX),ZNH3FB(0:JZ,JY,JX) - 2,ZNHUFB(0:JZ,JY,JX),ZNO3FB(0:JZ,JY,JX),ZNO2B(0:JZ,JY,JX) - 3,ZNH4S(0:JZ,JY,JX),ZNH3S(0:JZ,JY,JX),ZNO3S(0:JZ,JY,JX) - 4,H2PO4(0:JZ,JY,JX),ZNH4B(0:JZ,JY,JX),ZNH3B(0:JZ,JY,JX) - 5,ZNO3B(0:JZ,JY,JX),H2POB(0:JZ,JY,JX),ZNO2S(0:JZ,JY,JX) - 6,ZNH3G(JZ,JY,JX),Z2GG(JZ,JY,JX),Z2GS(0:JZ,JY,JX),Z2OG(JZ,JY,JX) - 7,Z2OS(0:JZ,JY,JX),ZNH4SH(JZ,JY,JX),ZNH3SH(JZ,JY,JX) - 8,ZNO3SH(JZ,JY,JX),H2PO4H(JZ,JY,JX),ZNH4BH(JZ,JY,JX) - 9,ZNH3BH(JZ,JY,JX),ZNO3BH(JZ,JY,JX),H2POBH(JZ,JY,JX) - 1,ZNO2SH(JZ,JY,JX),Z2GSH(JZ,JY,JX),Z2OSH(JZ,JY,JX) - 2,ZNO2BH(JZ,JY,JX),RC0(0:5,JY,JX),ORGCX(0:JZ,JY,JX) - 3,TOQCK(0:JZ,JY,JX),ORGN(0:JZ,JY,JX),ORGR(0:JZ,JY,JX) - 4,ZNFNI(0:JZ,JY,JX),ZNFN0(0:JZ,JY,JX) - 5,ZNHUI(0:JZ,JY,JX),ZNHU0(0:JZ,JY,JX),H1PO4(0:JZ,JY,JX) - 6,H1POB(0:JZ,JY,JX),H1PO4H(JZ,JY,JX),H1POBH(JZ,JY,JX) - + COMMON/BLK13A/ORGC(0:JZ,JY,JX),OMC(3,7,0:5,0:JZ,JY,JX) & + &,OMN(3,7,0:5,0:JZ,JY,JX),OMP(3,7,0:5,0:JZ,JY,JX) & + &,ORC(2,0:4,0:JZ,JY,JX),ORN(2,0:4,0:JZ,JY,JX),ORP(2,0:4,0:JZ,JY,JX)& + &,OQC(0:4,0:JZ,JY,JX),OQN(0:4,0:JZ,JY,JX),OQP(0:4,0:JZ,JY,JX) & + &,OQA(0:4,0:JZ,JY,JX),OQCH(0:4,0:JZ,JY,JX),OQNH(0:4,0:JZ,JY,JX) & + &,OQPH(0:4,0:JZ,JY,JX),OQAH(0:4,0:JZ,JY,JX),OHC(0:4,0:JZ,JY,JX) & + &,OHN(0:4,0:JZ,JY,JX),OHP(0:4,0:JZ,JY,JX),OSC(4,0:4,0:JZ,JY,JX) & + &,OSN(4,0:4,0:JZ,JY,JX),OSP(4,0:4,0:JZ,JY,JX),OHA(0:4,0:JZ,JY,JX) & + &,ZNH4FA(0:JZ,JY,JX),ZNH3FA(0:JZ,JY,JX),ZNHUFA(0:JZ,JY,JX) & + &,ZNO3FA(0:JZ,JY,JX),ZNH4FB(0:JZ,JY,JX),ZNH3FB(0:JZ,JY,JX) & + &,ZNHUFB(0:JZ,JY,JX),ZNO3FB(0:JZ,JY,JX),ZNO2B(0:JZ,JY,JX) & + &,ZNH4S(0:JZ,JY,JX),ZNH3S(0:JZ,JY,JX),ZNO3S(0:JZ,JY,JX) & + &,H2PO4(0:JZ,JY,JX),ZNH4B(0:JZ,JY,JX),ZNH3B(0:JZ,JY,JX) & + &,ZNO3B(0:JZ,JY,JX),H2POB(0:JZ,JY,JX),ZNO2S(0:JZ,JY,JX) & + &,ZNH3G(JZ,JY,JX),Z2GG(JZ,JY,JX),Z2GS(0:JZ,JY,JX),Z2OG(JZ,JY,JX) & + &,Z2OS(0:JZ,JY,JX),ZNH4SH(JZ,JY,JX),ZNH3SH(JZ,JY,JX) & + &,ZNO3SH(JZ,JY,JX),H2PO4H(JZ,JY,JX),ZNH4BH(JZ,JY,JX) & + &,ZNH3BH(JZ,JY,JX),ZNO3BH(JZ,JY,JX),H2POBH(JZ,JY,JX) & + &,ZNO2SH(JZ,JY,JX),Z2GSH(JZ,JY,JX),Z2OSH(JZ,JY,JX) & + &,ZNO2BH(JZ,JY,JX),RC0(0:5,JY,JX),ORGCX(0:JZ,JY,JX) & + &,TOQCK(0:JZ,JY,JX),ORGN(0:JZ,JY,JX),ORGR(0:JZ,JY,JX) & + &,ZNFNI(0:JZ,JY,JX),ZNFN0(0:JZ,JY,JX) & + &,ZNHUI(0:JZ,JY,JX),ZNHU0(0:JZ,JY,JX),H1PO4(0:JZ,JY,JX) & + &,H1POB(0:JZ,JY,JX),H1PO4H(JZ,JY,JX),H1POBH(JZ,JY,JX) + diff --git a/f77src/blk13b.h b/f77src/blk13b.h index 6f7be61..cf01cff 100644 --- a/f77src/blk13b.h +++ b/f77src/blk13b.h @@ -1,25 +1,25 @@ - COMMON/BLK13B/XNO2S(0:JZ,JY,JX),CNH4S(0:JZ,JY,JX) - 2,CNH3S(0:JZ,JY,JX),CNO3S(0:JZ,JY,JX),CPO4S(JZ,JY,JX) - 3,CNH4B(0:JZ,JY,JX),CNH3B(0:JZ,JY,JX),CNO3B(0:JZ,JY,JX) - 4,CPO4B(0:JZ,JY,JX),CNO2S(0:JZ,JY,JX),CNH3G(0:JZ,JY,JX) - 5,CZ2GG(0:JZ,JY,JX),CZ2GS(0:JZ,JY,JX),CZ2OG(0:JZ,JY,JX) - 6,CZ2OS(0:JZ,JY,JX),OXYG(JZ,JY,JX),OXYS(0:JZ,JY,JX) - 7,OXYSH(JZ,JY,JX),CO2G(JZ,JY,JX),CO2S(0:JZ,JY,JX) - 8,CO2SH(JZ,JY,JX),CH4G(JZ,JY,JX),CH4S(0:JZ,JY,JX) - 9,CH4SH(JZ,JY,JX),COXYG(0:JZ,JY,JX),CCH4G(0:JZ,JY,JX) - 1,COXYS(0:JZ,JY,JX),CCO2G(0:JZ,JY,JX),CCO2S(0:JZ,JY,JX) - 2,CCH4S(0:JZ,JY,JX),RUPOXO(0:JZ,JY,JX),RCO2O(0:JZ,JY,JX) - 3,RCH4O(0:JZ,JY,JX),RH2GO(0:JZ,JY,JX),RN2G(0:JZ,JY,JX) - 4,RN2O(0:JZ,JY,JX),CH2P4(0:JZ,JY,JX),CH2P4B(0:JZ,JY,JX) - 5,XCODFG(0:JZ,JY,JX),XCHDFG(0:JZ,JY,JX),XOXDFG(0:JZ,JY,JX) - 6,XNGDFG(0:JZ,JY,JX),XN2DFG(0:JZ,JY,JX),XN3DFG(0:JZ,JY,JX) - 7,XNBDFG(0:JZ,JY,JX) ,XHGDFG(0:JZ,JY,JX),XCODFS(JY,JX) - 8,XCHDFS(JY,JX),XOXDFS(JY,JX),XNGDFS(JY,JX),XN2DFS(JY,JX) - 8,XN3DFS(JY,JX),XNBDFS(JY,JX),XHGDFS(JY,JX),RCO2F(0:JZ,JY,JX) - 9,ROXYS(7,0:5,0:JZ,JY,JX),H2GS(0:JZ,JY,JX),CH2GS(0:JZ,JY,JX) - 1,RCH4L(0:JZ,JY,JX),ROXYF(0:JZ,JY,JX),ROXYL(0:JZ,JY,JX) - 2,RCH4F(0:JZ,JY,JX),CH1P4(0:JZ,JY,JX),CH1P4B(0:JZ,JY,JX) - 3,CNO2B(0:JZ,JY,JX),XNO2B(0:JZ,JY,JX) - 4,OSA(4,0:4,0:JZ,JY,JX) - 5,ROQCS(7,0:4,0:JZ,JY,JX),ROQAS(7,0:4,0:JZ,JY,JX) - + COMMON/BLK13B/XNO2S(0:JZ,JY,JX),CNH4S(0:JZ,JY,JX) & + &,CNH3S(0:JZ,JY,JX),CNO3S(0:JZ,JY,JX),CPO4S(JZ,JY,JX) & + &,CNH4B(0:JZ,JY,JX),CNH3B(0:JZ,JY,JX),CNO3B(0:JZ,JY,JX) & + &,CPO4B(0:JZ,JY,JX),CNO2S(0:JZ,JY,JX),CNH3G(0:JZ,JY,JX) & + &,CZ2GG(0:JZ,JY,JX),CZ2GS(0:JZ,JY,JX),CZ2OG(0:JZ,JY,JX) & + &,CZ2OS(0:JZ,JY,JX),OXYG(JZ,JY,JX),OXYS(0:JZ,JY,JX) & + &,OXYSH(JZ,JY,JX),CO2G(JZ,JY,JX),CO2S(0:JZ,JY,JX) & + &,CO2SH(JZ,JY,JX),CH4G(JZ,JY,JX),CH4S(0:JZ,JY,JX) & + &,CH4SH(JZ,JY,JX),COXYG(0:JZ,JY,JX),CCH4G(0:JZ,JY,JX) & + &,COXYS(0:JZ,JY,JX),CCO2G(0:JZ,JY,JX),CCO2S(0:JZ,JY,JX) & + &,CCH4S(0:JZ,JY,JX),RUPOXO(0:JZ,JY,JX),RCO2O(0:JZ,JY,JX) & + &,RCH4O(0:JZ,JY,JX),RH2GO(0:JZ,JY,JX),RN2G(0:JZ,JY,JX) & + &,RN2O(0:JZ,JY,JX),CH2P4(0:JZ,JY,JX),CH2P4B(0:JZ,JY,JX) & + &,XCODFG(0:JZ,JY,JX),XCHDFG(0:JZ,JY,JX),XOXDFG(0:JZ,JY,JX) & + &,XNGDFG(0:JZ,JY,JX),XN2DFG(0:JZ,JY,JX),XN3DFG(0:JZ,JY,JX) & + &,XNBDFG(0:JZ,JY,JX) ,XHGDFG(0:JZ,JY,JX),XCODFS(JY,JX) & + &,XCHDFS(JY,JX),XOXDFS(JY,JX),XNGDFS(JY,JX),XN2DFS(JY,JX) & + &,XN3DFS(JY,JX),XNBDFS(JY,JX),XHGDFS(JY,JX),RCO2F(0:JZ,JY,JX) & + &,ROXYS(7,0:5,0:JZ,JY,JX),H2GS(0:JZ,JY,JX),CH2GS(0:JZ,JY,JX) & + &,RCH4L(0:JZ,JY,JX),ROXYF(0:JZ,JY,JX),ROXYL(0:JZ,JY,JX) & + &,RCH4F(0:JZ,JY,JX),CH1P4(0:JZ,JY,JX),CH1P4B(0:JZ,JY,JX) & + &,CNO2B(0:JZ,JY,JX),XNO2B(0:JZ,JY,JX) & + &,OSA(4,0:4,0:JZ,JY,JX) & + &,ROQCS(7,0:4,0:JZ,JY,JX),ROQAS(7,0:4,0:JZ,JY,JX) + diff --git a/f77src/blk13c.h b/f77src/blk13c.h index 68cee7e..aaefe3e 100644 --- a/f77src/blk13c.h +++ b/f77src/blk13c.h @@ -1,27 +1,27 @@ - COMMON/BLK13C/CFOSC(4,0:4,0:JZ,JY,JX),CNOSC(4,0:4,0:JZ,JY,JX) - 2,CPOSC(4,0:4,0:JZ,JY,JX),XOQCS(0:4,0:JZ,JY,JX) - 3,XOQNS(0:4,0:JZ,JY,JX),XOQPS(0:4,0:JZ,JY,JX),XOQAS(0:4,0:JZ,JY,JX) - 4,CNOMC(3,7,0:5),CPOMC(3,7,0:5),XNH4S(0:JZ,JY,JX),XNO3S(0:JZ,JY,JX) - 5,XH2PS(0:JZ,JY,JX),XNH4B(0:JZ,JY,JX),XNO3B(0:JZ,JY,JX) - 6,XN2GS(0:JZ,JY,JX),XH2BS(0:JZ,JY,JX),VLNH4(0:JZ,JY,JX) - 7,VLNHB(0:JZ,JY,JX),VLNO3(0:JZ,JY,JX),VLNOB(0:JZ,JY,JX) - 8,VLPO4(0:JZ,JY,JX),VLPOB(0:JZ,JY,JX),WDNHB(JZ,JY,JX) - 9,DPNHB(JZ,JY,JX),WDNOB(JZ,JY,JX),DPNOB(JZ,JY,JX),WDPOB(JZ,JY,JX) - 1,DPPOB(JZ,JY,JX),DPNH4(JY,JX),DPNO3(JY,JX),DPPO4(JY,JX) - 2,FL(2),RINHO(7,0:5,0:JZ,JY,JX),RINOO(7,0:5,0:JZ,JY,JX) - 3,RIPOO(7,0:5,0:JZ,JY,JX),RINHOR(7,0:5,JY,JX) - 4,RIPOOR(7,0:5,JY,JX),H2GG(JZ,JY,JX),RINOOR(7,0:5,JY,JX) - 5,CH2GG(0:JZ,JY,JX),XCODFR(JY,JX),XCHDFR(JY,JX),XOXDFR(JY,JX) - 6,XNGDFR(JY,JX),XN2DFR(JY,JX),XN3DFR(JY,JX),XHGDFR(JY,JX) - 7,XCOBBL(JZ,JY,JX),XCHBBL(JZ,JY,JX),XOXBBL(JZ,JY,JX) - 8,XNGBBL(JZ,JY,JX),XN2BBL(JZ,JY,JX),XN3BBL(JZ,JY,JX) - 9,XNBBBL(JZ,JY,JX),XHGBBL(JZ,JY,JX),XH1PS(0:JZ,JY,JX) - 1,RVMX4(7,0:5,0:JZ,JY,JX),RVMX3(7,0:5,0:JZ,JY,JX) - 2,RVMX2(7,0:5,0:JZ,JY,JX),RVMB4(7,0:5,0:JZ,JY,JX) - 3,RVMB3(7,0:5,0:JZ,JY,JX),RVMB2(7,0:5,0:JZ,JY,JX) - 4,RVMX1(7,0:5,0:JZ,JY,JX),CFOMC(2,JZ,JY,JX) - 5,EPOC(0:JZ,JY,JX),EHUM(0:JZ,JY,JX),XH1BS(0:JZ,JY,JX) - 6,H2GSH(JZ,JY,JX),RVMXC(0:JZ,JY,JX),RVMBC(0:JZ,JY,JX) - 7,RINHB(7,0:5,0:JZ,JY,JX),RINOB(7,0:5,0:JZ,JY,JX) - 8,RIPBO(7,0:5,0:JZ,JY,JX),RIPO1(7,0:5,0:JZ,JY,JX) - 9,RIPB1(7,0:5,0:JZ,JY,JX),RIPO1R(7,0:5,JY,JX),XZHYS(0:JZ,JY,JX) + COMMON/BLK13C/CFOSC(4,0:4,0:JZ,JY,JX),CNOSC(4,0:4,0:JZ,JY,JX) & + &,CPOSC(4,0:4,0:JZ,JY,JX),XOQCS(0:4,0:JZ,JY,JX) & + &,XOQNS(0:4,0:JZ,JY,JX),XOQPS(0:4,0:JZ,JY,JX),XOQAS(0:4,0:JZ,JY,JX)& + &,CNOMC(3,7,0:5),CPOMC(3,7,0:5),XNH4S(0:JZ,JY,JX),XNO3S(0:JZ,JY,JX)& + &,XH2PS(0:JZ,JY,JX),XNH4B(0:JZ,JY,JX),XNO3B(0:JZ,JY,JX) & + &,XN2GS(0:JZ,JY,JX),XH2BS(0:JZ,JY,JX),VLNH4(0:JZ,JY,JX) & + &,VLNHB(0:JZ,JY,JX),VLNO3(0:JZ,JY,JX),VLNOB(0:JZ,JY,JX) & + &,VLPO4(0:JZ,JY,JX),VLPOB(0:JZ,JY,JX),WDNHB(JZ,JY,JX) & + &,DPNHB(JZ,JY,JX),WDNOB(JZ,JY,JX),DPNOB(JZ,JY,JX),WDPOB(JZ,JY,JX) & + &,DPPOB(JZ,JY,JX),DPNH4(JY,JX),DPNO3(JY,JX),DPPO4(JY,JX) & + &,FL(2),RINHO(7,0:5,0:JZ,JY,JX),RINOO(7,0:5,0:JZ,JY,JX) & + &,RIPOO(7,0:5,0:JZ,JY,JX),RINHOR(7,0:5,JY,JX) & + &,RIPOOR(7,0:5,JY,JX),H2GG(JZ,JY,JX),RINOOR(7,0:5,JY,JX) & + &,CH2GG(0:JZ,JY,JX),XCODFR(JY,JX),XCHDFR(JY,JX),XOXDFR(JY,JX) & + &,XNGDFR(JY,JX),XN2DFR(JY,JX),XN3DFR(JY,JX),XHGDFR(JY,JX) & + &,XCOBBL(JZ,JY,JX),XCHBBL(JZ,JY,JX),XOXBBL(JZ,JY,JX) & + &,XNGBBL(JZ,JY,JX),XN2BBL(JZ,JY,JX),XN3BBL(JZ,JY,JX) & + &,XNBBBL(JZ,JY,JX),XHGBBL(JZ,JY,JX),XH1PS(0:JZ,JY,JX) & + &,RVMX4(7,0:5,0:JZ,JY,JX),RVMX3(7,0:5,0:JZ,JY,JX) & + &,RVMX2(7,0:5,0:JZ,JY,JX),RVMB4(7,0:5,0:JZ,JY,JX) & + &,RVMB3(7,0:5,0:JZ,JY,JX),RVMB2(7,0:5,0:JZ,JY,JX) & + &,RVMX1(7,0:5,0:JZ,JY,JX),CFOMC(2,JZ,JY,JX) & + &,EPOC(0:JZ,JY,JX),EHUM(0:JZ,JY,JX),XH1BS(0:JZ,JY,JX) & + &,H2GSH(JZ,JY,JX),RVMXC(0:JZ,JY,JX),RVMBC(0:JZ,JY,JX) & + &,RINHB(7,0:5,0:JZ,JY,JX),RINOB(7,0:5,0:JZ,JY,JX) & + &,RIPBO(7,0:5,0:JZ,JY,JX),RIPO1(7,0:5,0:JZ,JY,JX) & + &,RIPB1(7,0:5,0:JZ,JY,JX),RIPO1R(7,0:5,JY,JX),XZHYS(0:JZ,JY,JX) diff --git a/f77src/blk13d.h b/f77src/blk13d.h index e938301..4d8254a 100644 --- a/f77src/blk13d.h +++ b/f77src/blk13d.h @@ -1,2 +1,2 @@ - COMMON/BLK13D/COQC(0:4,0:JZ,JY,JX),COQA(0:4,0:JZ,JY,JX) - 2,FOSRH(0:4,0:JZ,JY,JX) + COMMON/BLK13D/COQC(0:4,0:JZ,JY,JX),COQA(0:4,0:JZ,JY,JX) & + &,FOSRH(0:4,0:JZ,JY,JX) diff --git a/f77src/blk14.h b/f77src/blk14.h index 90114a2..ead5da2 100644 --- a/f77src/blk14.h +++ b/f77src/blk14.h @@ -1,11 +1,11 @@ - COMMON/BLK14/CARBN(JP,JY,JX),TCUPTK(JP,JY,JX),TCSNC(JP,JY,JX) - 2,TZUPTK(JP,JY,JX),TZSNC(JP,JY,JX),TPUPTK(JP,JY,JX),TPSNC(JP,JY,JX) - 3,TZUPFX(JP,JY,JX),TCO2T(JP,JY,JX),BALC(JP,JY,JX),BALN(JP,JY,JX) - 4,BALP(JP,JY,JX),HCSNC(JP,JY,JX),HZSNC(JP,JY,JX),HPSNC(JP,JY,JX) - 5,HCUPTK(JP,JY,JX),HZUPTK(JP,JY,JX),HPUPTK(JP,JY,JX),ZNPP(JP,JY,JX) - 6,TCSN0(JP,JY,JX),CTRAN(JP,JY,JX),RNH3C(JP,JY,JX),RSETC(JP,JY,JX) - 7,RSETN(JP,JY,JX),RSETP(JP,JY,JX),HVSTC(JP,JY,JX),HVSTN(JP,JY,JX) - 8,HVSTP(JP,JY,JX),THVSTC(JP,JY,JX),THVSTN(JP,JY,JX),TNH3C(JP,JY,JX) - 9,THVSTP(JP,JY,JX),TCO2A(JP,JY,JX),VCO2F(JP,JY,JX),VCH4F(JP,JY,JX) - 1,VOXYF(JP,JY,JX),VNH3F(JP,JY,JX),VN2OF(JP,JY,JX),VPO4F(JP,JY,JX) - 2,TZSN0(JP,JY,JX),TPSN0(JP,JY,JX) + COMMON/BLK14/CARBN(JP,JY,JX),TCUPTK(JP,JY,JX),TCSNC(JP,JY,JX) & + &,TZUPTK(JP,JY,JX),TZSNC(JP,JY,JX),TPUPTK(JP,JY,JX),TPSNC(JP,JY,JX)& + &,TZUPFX(JP,JY,JX),TCO2T(JP,JY,JX),BALC(JP,JY,JX),BALN(JP,JY,JX) & + &,BALP(JP,JY,JX),HCSNC(JP,JY,JX),HZSNC(JP,JY,JX),HPSNC(JP,JY,JX) & + &,HCUPTK(JP,JY,JX),HZUPTK(JP,JY,JX),HPUPTK(JP,JY,JX),ZNPP(JP,JY,JX)& + &,TCSN0(JP,JY,JX),CTRAN(JP,JY,JX),RNH3C(JP,JY,JX),RSETC(JP,JY,JX) & + &,RSETN(JP,JY,JX),RSETP(JP,JY,JX),HVSTC(JP,JY,JX),HVSTN(JP,JY,JX) & + &,HVSTP(JP,JY,JX),THVSTC(JP,JY,JX),THVSTN(JP,JY,JX),TNH3C(JP,JY,JX)& + &,THVSTP(JP,JY,JX),TCO2A(JP,JY,JX),VCO2F(JP,JY,JX),VCH4F(JP,JY,JX) & + &,VOXYF(JP,JY,JX),VNH3F(JP,JY,JX),VN2OF(JP,JY,JX),VPO4F(JP,JY,JX) & + &,TZSN0(JP,JY,JX),TPSN0(JP,JY,JX) diff --git a/f77src/blk15a.h b/f77src/blk15a.h index 5f1ad33..b7516f9 100644 --- a/f77src/blk15a.h +++ b/f77src/blk15a.h @@ -1,26 +1,26 @@ - COMMON/BLK15A/QR(2,JV,JH),HQR(2,JV,JH),QS(2,JV,JH),QW(2,JV,JH) - 2,QI(2,JV,JH),HQS(2,JV,JH),FLW(3,JD,JV,JH) - 2,FLWH(3,JD,JV,JH),HFLW(3,JD,JV,JH),XCOFLS(3,0:JD,JV,JH) - 3,XCHFLS(3,0:JD,JV,JH),XOXFLS(3,0:JD,JV,JH),XNGFLS(3,0:JD,JV,JH) - 4,XN2FLS(3,0:JD,JV,JH),XHGFLS(3,0:JD,JV,JH),XN4FLW(3,0:JD,JV,JH) - 5,XN3FLW(3,0:JD,JV,JH),XNOFLW(3,0:JD,JV,JH),XH2PFS(3,0:JD,JV,JH) - 6,XNXFLS(3,0:JD,JV,JH),XN4FLB(3,JD,JV,JH),XN3FLB(3,JD,JV,JH) - 7,XNOFLB(3,JD,JV,JH),XH2BFB(3,JD,JV,JH),XNXFLB(3,JD,JV,JH) - 8,XOCFLS(0:4,3,0:JD,JV,JH),XONFLS(0:4,3,0:JD,JV,JH) - 9,XCHFLG(3,0:JD,JV,JH),XOAFLS(0:4,3,0:JD,JV,JH) - 1,XCOFLG(3,JD,JV,JH),XOPFLS(0:4,3,0:JD,JV,JH) - 2,XOXFLG(3,JD,JV,JH),XNGFLG(3,JD,JV,JH),XHGFLG(3,JD,JV,JH) - 3,XN2FLG(3,JD,JV,JH),XN3FLG(3,JD,JV,JH),XCOQRS(2,JV,JH) - 4,XCHQRS(2,JV,JH),XOXQRS(2,JV,JH),XNGQRS(2,JV,JH) - R,XN2QRS(2,JV,JH),XHGQRS(2,JV,JH),XN4QRW(2,JV,JH) - 6,XN3QRW(2,JV,JH),XNOQRW(2,JV,JH),XNXQRS(2,JV,JH) - 7,XP4QRW(2,JV,JH),XP1QRW(2,JV,JH),XCOQSS(2,JV,JH) - 3,XCHQSS(2,JV,JH),XOXQSS(2,JV,JH),XNGQSS(2,JV,JH) - 4,XN2QSS(2,JV,JH),XN4QSS(2,JV,JH),XN3QSS(2,JV,JH) - 5,XNOQSS(2,JV,JH),XP4QSS(2,JV,JH),XP1QSS(2,JV,JH) - 6,XOCQRS(0:4,2,JV,JH),XONQRS(0:4,2,JV,JH),XOPQRS(0:4,2,JV,JH) - 7,XOAQRS(0:4,2,JV,JH),FLQRQ(JY,JX),FLQRI(JY,JX) - 8,FLQGQ(JY,JX),FLQGI(JY,JX) - 9,XH1PFS(3,0:JD,JV,JH),XH1BFB(3,0:JD,JV,JH) - 1,FLWNU(JY,JX),FLWXNU(JY,JX),FLWHNU(JY,JX),HFLWNU(JY,JX) - + COMMON/BLK15A/QR(2,JV,JH),HQR(2,JV,JH),QS(2,JV,JH),QW(2,JV,JH) & + &,QI(2,JV,JH),HQS(2,JV,JH),FLW(3,JD,JV,JH) & + &,FLWH(3,JD,JV,JH),HFLW(3,JD,JV,JH),XCOFLS(3,0:JD,JV,JH) & + &,XCHFLS(3,0:JD,JV,JH),XOXFLS(3,0:JD,JV,JH),XNGFLS(3,0:JD,JV,JH) & + &,XN2FLS(3,0:JD,JV,JH),XHGFLS(3,0:JD,JV,JH),XN4FLW(3,0:JD,JV,JH) & + &,XN3FLW(3,0:JD,JV,JH),XNOFLW(3,0:JD,JV,JH),XH2PFS(3,0:JD,JV,JH) & + &,XNXFLS(3,0:JD,JV,JH),XN4FLB(3,JD,JV,JH),XN3FLB(3,JD,JV,JH) & + &,XNOFLB(3,JD,JV,JH),XH2BFB(3,JD,JV,JH),XNXFLB(3,JD,JV,JH) & + &,XOCFLS(0:4,3,0:JD,JV,JH),XONFLS(0:4,3,0:JD,JV,JH) & + &,XCHFLG(3,0:JD,JV,JH),XOAFLS(0:4,3,0:JD,JV,JH) & + &,XCOFLG(3,JD,JV,JH),XOPFLS(0:4,3,0:JD,JV,JH) & + &,XOXFLG(3,JD,JV,JH),XNGFLG(3,JD,JV,JH),XHGFLG(3,JD,JV,JH) & + &,XN2FLG(3,JD,JV,JH),XN3FLG(3,JD,JV,JH),XCOQRS(2,JV,JH) & + &,XCHQRS(2,JV,JH),XOXQRS(2,JV,JH),XNGQRS(2,JV,JH) & + &,XN2QRS(2,JV,JH),XHGQRS(2,JV,JH),XN4QRW(2,JV,JH) & + &,XN3QRW(2,JV,JH),XNOQRW(2,JV,JH),XNXQRS(2,JV,JH) & + &,XP4QRW(2,JV,JH),XP1QRW(2,JV,JH),XCOQSS(2,JV,JH) & + &,XCHQSS(2,JV,JH),XOXQSS(2,JV,JH),XNGQSS(2,JV,JH) & + &,XN2QSS(2,JV,JH),XN4QSS(2,JV,JH),XN3QSS(2,JV,JH) & + &,XNOQSS(2,JV,JH),XP4QSS(2,JV,JH),XP1QSS(2,JV,JH) & + &,XOCQRS(0:4,2,JV,JH),XONQRS(0:4,2,JV,JH),XOPQRS(0:4,2,JV,JH) & + &,XOAQRS(0:4,2,JV,JH),FLQRQ(JY,JX),FLQRI(JY,JX) & + &,FLQGQ(JY,JX),FLQGI(JY,JX) & + &,XH1PFS(3,0:JD,JV,JH),XH1BFB(3,0:JD,JV,JH) & + &,FLWNU(JY,JX),FLWXNU(JY,JX),FLWHNU(JY,JX),HFLWNU(JY,JX) + diff --git a/f77src/blk15b.h b/f77src/blk15b.h index 2d08955..c59c585 100644 --- a/f77src/blk15b.h +++ b/f77src/blk15b.h @@ -1,9 +1,9 @@ - COMMON/BLK15B/XCOFHS(3,JD,JV,JH),XCHFHS(3,JD,JV,JH) - 2,XOXFHS(3,JD,JV,JH),XNGFHS(3,JD,JV,JH),XN2FHS(3,JD,JV,JH) - 3,XHGFHS(3,JD,JV,JH),XN4FHW(3,JD,JV,JH),XN3FHW(3,JD,JV,JH) - 4,XNOFHW(3,JD,JV,JH),XH2PHS(3,JD,JV,JH),XNXFHS(3,JD,JV,JH) - 5,XN4FHB(3,JD,JV,JH),XN3FHB(3,JD,JV,JH),XNOFHB(3,JD,JV,JH) - 6,XNXFHB(3,0:JD,JV,JH),XH2BHB(3,JD,JV,JH),XOCFHS(0:4,3,JD,JV,JH) - 7,XONFHS(0:4,3,JD,JV,JH),XOPFHS(0:4,3,JD,JV,JH) - 8,XOAFHS(0:4,3,JD,JV,JH),FLWX(3,JD,JV,JH) - 9,XH1PHS(3,JD,JV,JH),XH1BHB(3,JD,JV,JH) + COMMON/BLK15B/XCOFHS(3,JD,JV,JH),XCHFHS(3,JD,JV,JH) & + &,XOXFHS(3,JD,JV,JH),XNGFHS(3,JD,JV,JH),XN2FHS(3,JD,JV,JH) & + &,XHGFHS(3,JD,JV,JH),XN4FHW(3,JD,JV,JH),XN3FHW(3,JD,JV,JH) & + &,XNOFHW(3,JD,JV,JH),XH2PHS(3,JD,JV,JH),XNXFHS(3,JD,JV,JH) & + &,XN4FHB(3,JD,JV,JH),XN3FHB(3,JD,JV,JH),XNOFHB(3,JD,JV,JH) & + &,XNXFHB(3,0:JD,JV,JH),XH2BHB(3,JD,JV,JH),XOCFHS(0:4,3,JD,JV,JH) & + &,XONFHS(0:4,3,JD,JV,JH),XOPFHS(0:4,3,JD,JV,JH) & + &,XOAFHS(0:4,3,JD,JV,JH),FLWX(3,JD,JV,JH) & + &,XH1PHS(3,JD,JV,JH),XH1BHB(3,JD,JV,JH) diff --git a/f77src/blk16.h b/f77src/blk16.h index 3576c29..fb08541 100644 --- a/f77src/blk16.h +++ b/f77src/blk16.h @@ -1,20 +1,20 @@ - COMMON/BLK16/VOLWSO,HEATSO,OXYGSO,TLRSDC,TLRSDN,TLRSDP - 2,TLORGC,TLORGN,TLORGP,TLNH4,TLNO3,TLPO4,TBALC,TBALN,TBALP - 3,CRAIN,HEATIN,OXYGIN,TORGF,TORGN,TORGP,CO2GIN,ZN2GIN,VOLWOU - 4,CEVAP,CRUN,HEATOU,OXYGOU,TCOU,TZOU,TPOU,TZIN,TPIN,XCSN,XZSN,XPSN - 5,TLCO2G,TLN2G,HCO2G(JY,JX),HCH4G(JY,JX),HOXYG(JY,JX),HN2OG(JY,JX) - 6,HNH3G(JY,JX),URAIQ(JY,JX),TOMT(JY,JX),TONT(JY,JX),TOPT(JY,JX) - 7,URSDC(JY,JX),UORGC(JY,JX),UORGF(JY,JX),UXCSN(JY,JX),UCO2S(JY,JX) - 8,UDOCQ(JY,JX),UDOCD(JY,JX),TNBP(JY,JX),UEVAP(JY,JX),URAIN(JY,JX) - 9,URUN(JY,JX),UVOLW(JY,JX),UVOLO(JY,JX),URSDN(JY,JX),UORGN(JY,JX) - 1,UFERTN(JY,JX),UXZSN(JY,JX),UNH4(JY,JX),UNO3(JY,JX),UPO4(JY,JX) - 2,UDONQ(JY,JX),UDOND(JY,JX),UDOPQ(JY,JX),UDOPD(JY,JX),UPP4(JY,JX) - 3,UN2GS(JY,JX),URSDP(JY,JX),UORGP(JY,JX),UFERTP(JY,JX),UH2GG(JY,JX) - 4,UXPSN(JY,JX),HN2GG(JY,JX),UN2GG(JY,JX),UION(JY,JX),UIONOU(JY,JX) - 5,UCO2G(JY,JX),UCH4G(JY,JX),UOXYG(JY,JX),UNH3G(JY,JX),UN2OG(JY,JX) - 6,UCO2F(JY,JX),UCH4F(JY,JX),UOXYF(JY,JX),UNH3F(JY,JX),UN2OF(JY,JX) - 7,UPO4F(JY,JX),UDRAIN(JY,JX),ZDRAIN(JY,JX),PDRAIN(JY,JX) - 8,UCOP(JY,JX),USEDOU(JY,JX),PPT(JY,JX),UDICQ(JY,JX),UDICD(JY,JX) - 9,UDINQ(JY,JX),UDIND(JY,JX),UDIPQ(JY,JX),UDIPD(JY,JX),HVOLO(JY,JX) - 1,WTSTGT(JY,JX),TION,TIONIN,TIONOU,TSEDSO,TSEDOU - 2,TLH2G,H2GIN,H2GOU + COMMON/BLK16/VOLWSO,HEATSO,OXYGSO,TLRSDC,TLRSDN,TLRSDP & + &,TLORGC,TLORGN,TLORGP,TLNH4,TLNO3,TLPO4,TBALC,TBALN,TBALP & + &,CRAIN,HEATIN,OXYGIN,TORGF,TORGN,TORGP,CO2GIN,ZN2GIN,VOLWOU & + &,CEVAP,CRUN,HEATOU,OXYGOU,TCOU,TZOU,TPOU,TZIN,TPIN,XCSN,XZSN,XPSN & + &,TLCO2G,TLN2G,HCO2G(JY,JX),HCH4G(JY,JX),HOXYG(JY,JX),HN2OG(JY,JX) & + &,HNH3G(JY,JX),URAIQ(JY,JX),TOMT(JY,JX),TONT(JY,JX),TOPT(JY,JX) & + &,URSDC(JY,JX),UORGC(JY,JX),UORGF(JY,JX),UXCSN(JY,JX),UCO2S(JY,JX) & + &,UDOCQ(JY,JX),UDOCD(JY,JX),TNBP(JY,JX),UEVAP(JY,JX),URAIN(JY,JX) & + &,URUN(JY,JX),UVOLW(JY,JX),UVOLO(JY,JX),URSDN(JY,JX),UORGN(JY,JX) & + &,UFERTN(JY,JX),UXZSN(JY,JX),UNH4(JY,JX),UNO3(JY,JX),UPO4(JY,JX) & + &,UDONQ(JY,JX),UDOND(JY,JX),UDOPQ(JY,JX),UDOPD(JY,JX),UPP4(JY,JX) & + &,UN2GS(JY,JX),URSDP(JY,JX),UORGP(JY,JX),UFERTP(JY,JX),UH2GG(JY,JX)& + &,UXPSN(JY,JX),HN2GG(JY,JX),UN2GG(JY,JX),UION(JY,JX),UIONOU(JY,JX) & + &,UCO2G(JY,JX),UCH4G(JY,JX),UOXYG(JY,JX),UNH3G(JY,JX),UN2OG(JY,JX) & + &,UCO2F(JY,JX),UCH4F(JY,JX),UOXYF(JY,JX),UNH3F(JY,JX),UN2OF(JY,JX) & + &,UPO4F(JY,JX),UDRAIN(JY,JX),ZDRAIN(JY,JX),PDRAIN(JY,JX) & + &,UCOP(JY,JX),USEDOU(JY,JX),PPT(JY,JX),UDICQ(JY,JX),UDICD(JY,JX) & + &,UDINQ(JY,JX),UDIND(JY,JX),UDIPQ(JY,JX),UDIPD(JY,JX),HVOLO(JY,JX) & + &,WTSTGT(JY,JX),TION,TIONIN,TIONOU,TSEDSO,TSEDOU & + &,TLH2G,H2GIN,H2GOU diff --git a/f77src/blk18a.h b/f77src/blk18a.h index 9d2ac75..0c654be 100644 --- a/f77src/blk18a.h +++ b/f77src/blk18a.h @@ -1,17 +1,17 @@ - COMMON/BLK18/ARLFC(JY,JX),ARSTC(JY,JX),TEVAPP(JY,JX),TEVAPC(JY,JX) - 2,TENGYC(JY,JX),THFLXC(JY,JX),TUPWTR(0:JZ,JY,JX),TUPHT(0:JZ,JY,JX) - 3,TVOLWP(JY,JX),TCOFLA(JZ,JY,JX),TOXFLA(JZ,JY,JX),TCHFLA(JZ,JY,JX) - 4,TN2FLA(JZ,JY,JX),TNHFLA(JZ,JY,JX),TLCO2P(JZ,JY,JX),GPP(JY,JX) - 5,TLOXYP(JZ,JY,JX),TLCH4P(JZ,JY,JX),TLN2OP(JZ,JY,JX),RECO(JY,JX) - 6,TLNH3P(JZ,JY,JX),TCO2S(JZ,JY,JX),TUPOXS(JZ,JY,JX) - 7,TUPCHS(JZ,JY,JX),TUPN2S(JZ,JY,JX),TUPN3S(JZ,JY,JX) - 8,TUPNH4(JZ,JY,JX),TUPNO3(JZ,JY,JX),TUPH2P(JZ,JY,JX) - 9,TUPN3B(JZ,JY,JX),TUPNHB(JZ,JY,JX),TUPNOB(JZ,JY,JX) - 1,TUPH2B(JZ,JY,JX),TUPNF(JZ,JY,JX),CSNT(4,0:1,0:JZ,JY,JX) - 2,ZSNT(4,0:1,0:JZ,JY,JX),PSNT(4,0:1,0:JZ,JY,JX) - 3,TDFOMC(0:4,JZ,JY,JX),TDFOMN(0:4,JZ,JY,JX),TDFOMP(0:4,JZ,JY,JX) - 4,TCO2Z(JY,JX),TOXYZ(JY,JX),TCH4Z(JY,JX),TN2OZ(JY,JX),TNH3Z(JY,JX) - 5,TCO2P(JZ,JY,JX),TUPOXP(JZ,JY,JX),THRMC(JY,JX),TCNET(JY,JX) - 6,ZCSNC(JY,JX),ZZSNC(JY,JX),ZPSNC(JY,JX),WGLFT(JC,JY,JX) - 7,ARLFT(JC,JY,JX),ARSTT(JC,JY,JX),ARLSS(JY,JX),RTDNT(JZ,JY,JX) - 6,TCCAN(JY,JX),TUPH1P(JZ,JY,JX),TUPH1B(JZ,JY,JX) + COMMON/BLK18/ARLFC(JY,JX),ARSTC(JY,JX),TEVAPP(JY,JX),TEVAPC(JY,JX)& + &,TENGYC(JY,JX),THFLXC(JY,JX),TUPWTR(0:JZ,JY,JX),TUPHT(0:JZ,JY,JX) & + &,TVOLWP(JY,JX),TCOFLA(JZ,JY,JX),TOXFLA(JZ,JY,JX),TCHFLA(JZ,JY,JX) & + &,TN2FLA(JZ,JY,JX),TNHFLA(JZ,JY,JX),TLCO2P(JZ,JY,JX),GPP(JY,JX) & + &,TLOXYP(JZ,JY,JX),TLCH4P(JZ,JY,JX),TLN2OP(JZ,JY,JX),RECO(JY,JX) & + &,TLNH3P(JZ,JY,JX),TCO2S(JZ,JY,JX),TUPOXS(JZ,JY,JX) & + &,TUPCHS(JZ,JY,JX),TUPN2S(JZ,JY,JX),TUPN3S(JZ,JY,JX) & + &,TUPNH4(JZ,JY,JX),TUPNO3(JZ,JY,JX),TUPH2P(JZ,JY,JX) & + &,TUPN3B(JZ,JY,JX),TUPNHB(JZ,JY,JX),TUPNOB(JZ,JY,JX) & + &,TUPH2B(JZ,JY,JX),TUPNF(JZ,JY,JX),CSNT(4,0:1,0:JZ,JY,JX) & + &,ZSNT(4,0:1,0:JZ,JY,JX),PSNT(4,0:1,0:JZ,JY,JX) & + &,TDFOMC(0:4,JZ,JY,JX),TDFOMN(0:4,JZ,JY,JX),TDFOMP(0:4,JZ,JY,JX) & + &,TCO2Z(JY,JX),TOXYZ(JY,JX),TCH4Z(JY,JX),TN2OZ(JY,JX),TNH3Z(JY,JX) & + &,TCO2P(JZ,JY,JX),TUPOXP(JZ,JY,JX),THRMC(JY,JX),TCNET(JY,JX) & + &,ZCSNC(JY,JX),ZZSNC(JY,JX),ZPSNC(JY,JX),WGLFT(JC,JY,JX) & + &,ARLFT(JC,JY,JX),ARSTT(JC,JY,JX),ARLSS(JY,JX),RTDNT(JZ,JY,JX) & + &,TCCAN(JY,JX),TUPH1P(JZ,JY,JX),TUPH1B(JZ,JY,JX) diff --git a/f77src/blk18b.h b/f77src/blk18b.h index 0ac286d..f05f224 100644 --- a/f77src/blk18b.h +++ b/f77src/blk18b.h @@ -1,15 +1,15 @@ - COMMON/BLK18B/ROXYX(0:JZ,JY,JX),ROXYY(0:JZ,JY,JX) - 2,RNH4X(0:JZ,JY,JX),RNH4Y(0:JZ,JY,JX),RNO3X(0:JZ,JY,JX) - 3,RNO3Y(0:JZ,JY,JX),RNO2X(0:JZ,JY,JX),RNO2Y(0:JZ,JY,JX) - 4,RPO4X(0:JZ,JY,JX),RPO4Y(0:JZ,JY,JX),RN2OX(0:JZ,JY,JX) - 5,RN2OY(0:JZ,JY,JX),RNHBX(0:JZ,JY,JX),RNHBY(0:JZ,JY,JX) - 6,RN3BX(0:JZ,JY,JX),RN3BY(0:JZ,JY,JX),RN2BX(0:JZ,JY,JX) - 7,RN2BY(0:JZ,JY,JX),RPOBX(0:JZ,JY,JX),RPOBY(0:JZ,JY,JX) - 8,ROQCX(0:4,0:JZ,JY,JX),ROQCY(0:4,0:JZ,JY,JX),ROQAX(0:4,0:JZ,JY,JX) - 9,ROQAY(0:4,0:JZ,JY,JX),TH2GZ(JY,JX),TUPHGS(JZ,JY,JX) - 1,THGFLA(JZ,JY,JX),TLH2GP(JZ,JY,JX),TCAN(JY,JX),TRN(JY,JX) - 2,TLE(JY,JX),TSH(JY,JX),TGH(JY,JX),TGPP(JY,JX),TRAU(JY,JX) - 3,TNPP(JY,JX),THRE(JY,JX),XHVSTC(JY,JX),XHVSTN(JY,JX) - 4,XHVSTP(JY,JX),RP14X(0:JZ,JY,JX),RP14Y(0:JZ,JY,JX) - 5,RP1BX(0:JZ,JY,JX),RP1BY(0:JZ,JY,JX),IFLGT(JY,JX) - 6,TRINH4(JY,JX),TRIPO4(JY,JX) + COMMON/BLK18B/ROXYX(0:JZ,JY,JX),ROXYY(0:JZ,JY,JX) & + &,RNH4X(0:JZ,JY,JX),RNH4Y(0:JZ,JY,JX),RNO3X(0:JZ,JY,JX) & + &,RNO3Y(0:JZ,JY,JX),RNO2X(0:JZ,JY,JX),RNO2Y(0:JZ,JY,JX) & + &,RPO4X(0:JZ,JY,JX),RPO4Y(0:JZ,JY,JX),RN2OX(0:JZ,JY,JX) & + &,RN2OY(0:JZ,JY,JX),RNHBX(0:JZ,JY,JX),RNHBY(0:JZ,JY,JX) & + &,RN3BX(0:JZ,JY,JX),RN3BY(0:JZ,JY,JX),RN2BX(0:JZ,JY,JX) & + &,RN2BY(0:JZ,JY,JX),RPOBX(0:JZ,JY,JX),RPOBY(0:JZ,JY,JX) & + &,ROQCX(0:4,0:JZ,JY,JX),ROQCY(0:4,0:JZ,JY,JX),ROQAX(0:4,0:JZ,JY,JX)& + &,ROQAY(0:4,0:JZ,JY,JX),TH2GZ(JY,JX),TUPHGS(JZ,JY,JX) & + &,THGFLA(JZ,JY,JX),TLH2GP(JZ,JY,JX),TCAN(JY,JX),TRN(JY,JX) & + &,TLE(JY,JX),TSH(JY,JX),TGH(JY,JX),TGPP(JY,JX),TRAU(JY,JX) & + &,TNPP(JY,JX),THRE(JY,JX),XHVSTC(JY,JX),XHVSTN(JY,JX) & + &,XHVSTP(JY,JX),RP14X(0:JZ,JY,JX),RP14Y(0:JZ,JY,JX) & + &,RP1BX(0:JZ,JY,JX),RP1BY(0:JZ,JY,JX),IFLGT(JY,JX) & + &,TRINH4(JY,JX),TRIPO4(JY,JX) diff --git a/f77src/blk19a.h b/f77src/blk19a.h index 4e1cd56..9b87634 100644 --- a/f77src/blk19a.h +++ b/f77src/blk19a.h @@ -1,23 +1,23 @@ - COMMON/BLK19A/ZAL(0:JZ,JY,JX),ZFE(0:JZ,JY,JX),ZHY(0:JZ,JY,JX) - 2,ZCA(0:JZ,JY,JX),ZMG(0:JZ,JY,JX),ZNA(0:JZ,JY,JX),ZKA(0:JZ,JY,JX) - 3,ZOH(0:JZ,JY,JX),ZSO4(0:JZ,JY,JX),ZCL(0:JZ,JY,JX),ZCO3(0:JZ,JY,JX) - 4,ZHCO3(0:JZ,JY,JX),ZALOH1(0:JZ,JY,JX),ZALOH2(0:JZ,JY,JX) - 5,ZALOH3(0:JZ,JY,JX),ZALOH4(0:JZ,JY,JX),ZALS(0:JZ,JY,JX) - 6,ZFEOH1(0:JZ,JY,JX),ZFEOH2(0:JZ,JY,JX),ZFEOH3(0:JZ,JY,JX) - 7,ZFEOH4(0:JZ,JY,JX),ZFES(0:JZ,JY,JX),ZCAO(0:JZ,JY,JX) - 8,ZCAC(0:JZ,JY,JX),ZCAH(0:JZ,JY,JX),ZCAS(0:JZ,JY,JX) - 9,ZMGO(0:JZ,JY,JX),ZMGC(0:JZ,JY,JX),ZMGH(0:JZ,JY,JX) - 1,ZMGS(0:JZ,JY,JX),ZNAC(0:JZ,JY,JX) - 1,ZNAS(0:JZ,JY,JX),ZKAS(0:JZ,JY,JX),H0PO4(0:JZ,JY,JX) - 2,H3PO4(0:JZ,JY,JX),ZFE1P(0:JZ,JY,JX) - 3,ZFE2P(0:JZ,JY,JX),ZCA0P(0:JZ,JY,JX),ZCA1P(0:JZ,JY,JX) - 4,ZCA2P(0:JZ,JY,JX),ZMG1P(0:JZ,JY,JX),H0POB(JZ,JY,JX) - 5,H3POB(JZ,JY,JX),ZFE1PB(JZ,JY,JX),ZFE2PB(JZ,JY,JX) - 6,ZCA0PB(JZ,JY,JX),ZCA1PB(JZ,JY,JX),ZCA2PB(JZ,JY,JX) - 7,ZMG1PB(JZ,JY,JX),XN4(0:JZ,JY,JX),XNB(0:JZ,JY,JX) - 8,XHY(JZ,JY,JX),XAL(JZ,JY,JX),XCA(JZ,JY,JX),XMG(JZ,JY,JX) - 9,XNA(JZ,JY,JX),XKA(JZ,JY,JX),XHC(JZ,JY,JX),XALO2(JZ,JY,JX) - 1,XOH0(0:JZ,JY,JX),XOH1(0:JZ,JY,JX),XOH2(0:JZ,JY,JX) - 2,XH1P(0:JZ,JY,JX),XH2P(0:JZ,JY,JX),XOH0B(0:JZ,JY,JX) - 3,XFE(JZ,JY,JX),XFEO2(JZ,JY,JX) - + COMMON/BLK19A/ZAL(0:JZ,JY,JX),ZFE(0:JZ,JY,JX),ZHY(0:JZ,JY,JX) & + &,ZCA(0:JZ,JY,JX),ZMG(0:JZ,JY,JX),ZNA(0:JZ,JY,JX),ZKA(0:JZ,JY,JX) & + &,ZOH(0:JZ,JY,JX),ZSO4(0:JZ,JY,JX),ZCL(0:JZ,JY,JX),ZCO3(0:JZ,JY,JX)& + &,ZHCO3(0:JZ,JY,JX),ZALOH1(0:JZ,JY,JX),ZALOH2(0:JZ,JY,JX) & + &,ZALOH3(0:JZ,JY,JX),ZALOH4(0:JZ,JY,JX),ZALS(0:JZ,JY,JX) & + &,ZFEOH1(0:JZ,JY,JX),ZFEOH2(0:JZ,JY,JX),ZFEOH3(0:JZ,JY,JX) & + &,ZFEOH4(0:JZ,JY,JX),ZFES(0:JZ,JY,JX),ZCAO(0:JZ,JY,JX) & + &,ZCAC(0:JZ,JY,JX),ZCAH(0:JZ,JY,JX),ZCAS(0:JZ,JY,JX) & + &,ZMGO(0:JZ,JY,JX),ZMGC(0:JZ,JY,JX),ZMGH(0:JZ,JY,JX) & + &,ZMGS(0:JZ,JY,JX),ZNAC(0:JZ,JY,JX) & + &,ZNAS(0:JZ,JY,JX),ZKAS(0:JZ,JY,JX),H0PO4(0:JZ,JY,JX) & + &,H3PO4(0:JZ,JY,JX),ZFE1P(0:JZ,JY,JX) & + &,ZFE2P(0:JZ,JY,JX),ZCA0P(0:JZ,JY,JX),ZCA1P(0:JZ,JY,JX) & + &,ZCA2P(0:JZ,JY,JX),ZMG1P(0:JZ,JY,JX),H0POB(JZ,JY,JX) & + &,H3POB(JZ,JY,JX),ZFE1PB(JZ,JY,JX),ZFE2PB(JZ,JY,JX) & + &,ZCA0PB(JZ,JY,JX),ZCA1PB(JZ,JY,JX),ZCA2PB(JZ,JY,JX) & + &,ZMG1PB(JZ,JY,JX),XN4(0:JZ,JY,JX),XNB(0:JZ,JY,JX) & + &,XHY(JZ,JY,JX),XAL(JZ,JY,JX),XCA(JZ,JY,JX),XMG(JZ,JY,JX) & + &,XNA(JZ,JY,JX),XKA(JZ,JY,JX),XHC(JZ,JY,JX),XALO2(JZ,JY,JX) & + &,XOH0(0:JZ,JY,JX),XOH1(0:JZ,JY,JX),XOH2(0:JZ,JY,JX) & + &,XH1P(0:JZ,JY,JX),XH2P(0:JZ,JY,JX),XOH0B(0:JZ,JY,JX) & + &,XFE(JZ,JY,JX),XFEO2(JZ,JY,JX) + diff --git a/f77src/blk19b.h b/f77src/blk19b.h index e1de431..19e4cb0 100644 --- a/f77src/blk19b.h +++ b/f77src/blk19b.h @@ -1,19 +1,19 @@ - COMMON/BLK19B/XOH1B(0:JZ,JY,JX),XOH2B(0:JZ,JY,JX) - 1,XH1PB(0:JZ,JY,JX),XH2PB(0:JZ,JY,JX) - 1,PALOH(JZ,JY,JX),PFEOH(JZ,JY,JX),PCACO(JZ,JY,JX) - 2,PCASO(JZ,JY,JX),PALPO(0:JZ,JY,JX),PFEPO(0:JZ,JY,JX) - 3,PCAPD(0:JZ,JY,JX),PCAPH(0:JZ,JY,JX),PCAPM(0:JZ,JY,JX) - 4,PALPB(0:JZ,JY,JX),PFEPB(0:JZ,JY,JX),PCPDB(0:JZ,JY,JX) - 5,PCPMB(0:JZ,JY,JX),ECND(JZ,JY,JX),CSTR(JZ,JY,JX) - 6,CION(JZ,JY,JX),XCEC(JZ,JY,JX),XAEC(JZ,JY,JX),ALSGL(JZ,JY,JX) - 7,FESGL(JZ,JY,JX),HYSGL(JZ,JY,JX),CASGL(JZ,JY,JX),GMSGL(JZ,JY,JX) - 8,ANSGL(JZ,JY,JX),AKSGL(JZ,JY,JX),OHSGL(JZ,JY,JX),C3SGL(JZ,JY,JX) - 9,HCSGL(JZ,JY,JX),SOSGL(JZ,JY,JX),CLSXL(JZ,JY,JX),ZALH(JZ,JY,JX) - 1,ZFEH(JZ,JY,JX),ZHYH(JZ,JY,JX),ZCCH(JZ,JY,JX),ZMAH(JZ,JY,JX) - 2,ZNAH(JZ,JY,JX),ZKAH(JZ,JY,JX),ZOHH(JZ,JY,JX),ZSO4H(JZ,JY,JX) - 3,ZCLH(JZ,JY,JX),ZCO3H(JZ,JY,JX),ZHCO3H(JZ,JY,JX),ZALO1H(JZ,JY,JX) - 4,ZALO2H(JZ,JY,JX),ZALO3H(JZ,JY,JX),ZALO4H(JZ,JY,JX) - 5,ZALSH(JZ,JY,JX),ZFEO1H(JZ,JY,JX),ZFEO2H(JZ,JY,JX) - 6,ZFEO3H(JZ,JY,JX),ZFEO4H(JZ,JY,JX),ZFESH(JZ,JY,JX) - 7,ZCAOH(JZ,JY,JX),ZCACH(JZ,JY,JX),ZCAHH(JZ,JY,JX),ZCASH(JZ,JY,JX) - 8,PCPHB(0:JZ,JY,JX) + COMMON/BLK19B/XOH1B(0:JZ,JY,JX),XOH2B(0:JZ,JY,JX) & + &,XH1PB(0:JZ,JY,JX),XH2PB(0:JZ,JY,JX) & + &,PALOH(JZ,JY,JX),PFEOH(JZ,JY,JX),PCACO(JZ,JY,JX) & + &,PCASO(JZ,JY,JX),PALPO(0:JZ,JY,JX),PFEPO(0:JZ,JY,JX) & + &,PCAPD(0:JZ,JY,JX),PCAPH(0:JZ,JY,JX),PCAPM(0:JZ,JY,JX) & + &,PALPB(0:JZ,JY,JX),PFEPB(0:JZ,JY,JX),PCPDB(0:JZ,JY,JX) & + &,PCPMB(0:JZ,JY,JX),ECND(JZ,JY,JX),CSTR(JZ,JY,JX) & + &,CION(JZ,JY,JX),XCEC(JZ,JY,JX),XAEC(JZ,JY,JX),ALSGL(JZ,JY,JX) & + &,FESGL(JZ,JY,JX),HYSGL(JZ,JY,JX),CASGL(JZ,JY,JX),GMSGL(JZ,JY,JX) & + &,ANSGL(JZ,JY,JX),AKSGL(JZ,JY,JX),OHSGL(JZ,JY,JX),C3SGL(JZ,JY,JX) & + &,HCSGL(JZ,JY,JX),SOSGL(JZ,JY,JX),CLSXL(JZ,JY,JX),ZALH(JZ,JY,JX) & + &,ZFEH(JZ,JY,JX),ZHYH(JZ,JY,JX),ZCCH(JZ,JY,JX),ZMAH(JZ,JY,JX) & + &,ZNAH(JZ,JY,JX),ZKAH(JZ,JY,JX),ZOHH(JZ,JY,JX),ZSO4H(JZ,JY,JX) & + &,ZCLH(JZ,JY,JX),ZCO3H(JZ,JY,JX),ZHCO3H(JZ,JY,JX),ZALO1H(JZ,JY,JX) & + &,ZALO2H(JZ,JY,JX),ZALO3H(JZ,JY,JX),ZALO4H(JZ,JY,JX) & + &,ZALSH(JZ,JY,JX),ZFEO1H(JZ,JY,JX),ZFEO2H(JZ,JY,JX) & + &,ZFEO3H(JZ,JY,JX),ZFEO4H(JZ,JY,JX),ZFESH(JZ,JY,JX) & + &,ZCAOH(JZ,JY,JX),ZCACH(JZ,JY,JX),ZCAHH(JZ,JY,JX),ZCASH(JZ,JY,JX) & + &,PCPHB(0:JZ,JY,JX) diff --git a/f77src/blk19c.h b/f77src/blk19c.h index 8f91a6a..8495995 100644 --- a/f77src/blk19c.h +++ b/f77src/blk19c.h @@ -1,9 +1,9 @@ - COMMON/BLK19C/ZMGOH(JZ,JY,JX),ZMGCH(JZ,JY,JX),ZMGHH(JZ,JY,JX) - 2,ZMGSH(JZ,JY,JX),ZNACH(JZ,JY,JX),ZNASH(JZ,JY,JX),ZKASH(JZ,JY,JX) - 3,H0PO4H(JZ,JY,JX),H3PO4H(JZ,JY,JX) - 4,ZFE1PH(JZ,JY,JX),ZFE2PH(JZ,JY,JX),ZCA0PH(JZ,JY,JX) - 5,ZCA1PH(JZ,JY,JX),ZCA2PH(JZ,JY,JX),ZMG1PH(JZ,JY,JX) - 6,H0POBH(JZ,JY,JX),H3POBH(JZ,JY,JX) - 7,ZFE1BH(JZ,JY,JX),ZFE2BH(JZ,JY,JX),ZCA0BH(JZ,JY,JX) - 8,ZCA1BH(JZ,JY,JX),ZCA2BH(JZ,JY,JX),ZMG1BH(JZ,JY,JX) - + COMMON/BLK19C/ZMGOH(JZ,JY,JX),ZMGCH(JZ,JY,JX),ZMGHH(JZ,JY,JX) & + &,ZMGSH(JZ,JY,JX),ZNACH(JZ,JY,JX),ZNASH(JZ,JY,JX),ZKASH(JZ,JY,JX) & + &,H0PO4H(JZ,JY,JX),H3PO4H(JZ,JY,JX) & + &,ZFE1PH(JZ,JY,JX),ZFE2PH(JZ,JY,JX),ZCA0PH(JZ,JY,JX) & + &,ZCA1PH(JZ,JY,JX),ZCA2PH(JZ,JY,JX),ZMG1PH(JZ,JY,JX) & + &,H0POBH(JZ,JY,JX),H3POBH(JZ,JY,JX) & + &,ZFE1BH(JZ,JY,JX),ZFE2BH(JZ,JY,JX),ZCA0BH(JZ,JY,JX) & + &,ZCA1BH(JZ,JY,JX),ZCA2BH(JZ,JY,JX),ZMG1BH(JZ,JY,JX) + diff --git a/f77src/blk19d.h b/f77src/blk19d.h index 661cb6d..f5934b3 100644 --- a/f77src/blk19d.h +++ b/f77src/blk19d.h @@ -1,18 +1,18 @@ - COMMON/BLK19D/CO2W(JS,JY,JX),CH4W(JS,JY,JX),OXYW(JS,JY,JX) - 2,ZN2W(JS,JY,JX),ZNGW(JS,JY,JX),ZN4W(JS,JY,JX),ZN3W(JS,JY,JX) - 3,ZNOW(JS,JY,JX),Z1PW(JS,JY,JX),ZHPW(JS,JY,JX) - 4,ZALW(JS,JY,JX),ZFEW(JS,JY,JX) - 4,ZHYW(JS,JY,JX),ZCAW(JS,JY,JX),ZMGW(JS,JY,JX),ZNAW(JS,JY,JX) - 5,ZKAW(JS,JY,JX),ZOHW(JS,JY,JX),ZSO4W(JS,JY,JX),ZCLW(JS,JY,JX) - 6,ZCO3W(JS,JY,JX),ZHCO3W(JS,JY,JX),ZALH1W(JS,JY,JX) - 7,ZALH2W(JS,JY,JX),ZALH3W(JS,JY,JX),ZALH4W(JS,JY,JX) - 8,ZALSW(JS,JY,JX),ZFEH1W(JS,JY,JX),ZFEH2W(JS,JY,JX) - 9,ZFEH3W(JS,JY,JX),ZFEH4W(JS,JY,JX),ZFESW(JS,JY,JX) - 1,ZCAOW(JS,JY,JX),ZCACW(JS,JY,JX),ZCAHW(JS,JY,JX) - 2,ZCASW(JS,JY,JX),ZMGOW(JS,JY,JX),ZMGCW(JS,JY,JX) - 3,ZMGHW(JS,JY,JX),ZMGSW(JS,JY,JX),ZNACW(JS,JY,JX) - 4,ZNASW(JS,JY,JX),ZKASW(JS,JY,JX),H0PO4W(JS,JY,JX) - 5,H3PO4W(JS,JY,JX),ZFE1PW(JS,JY,JX),ZFE2PW(JS,JY,JX) - 6,ZCA0PW(JS,JY,JX),ZCA1PW(JS,JY,JX),ZCA2PW(JS,JY,JX) - 7,ZMG1PW(JS,JY,JX) - + COMMON/BLK19D/CO2W(JS,JY,JX),CH4W(JS,JY,JX),OXYW(JS,JY,JX) & + &,ZN2W(JS,JY,JX),ZNGW(JS,JY,JX),ZN4W(JS,JY,JX),ZN3W(JS,JY,JX) & + &,ZNOW(JS,JY,JX),Z1PW(JS,JY,JX),ZHPW(JS,JY,JX) & + &,ZALW(JS,JY,JX),ZFEW(JS,JY,JX) & + &,ZHYW(JS,JY,JX),ZCAW(JS,JY,JX),ZMGW(JS,JY,JX),ZNAW(JS,JY,JX) & + &,ZKAW(JS,JY,JX),ZOHW(JS,JY,JX),ZSO4W(JS,JY,JX),ZCLW(JS,JY,JX) & + &,ZCO3W(JS,JY,JX),ZHCO3W(JS,JY,JX),ZALH1W(JS,JY,JX) & + &,ZALH2W(JS,JY,JX),ZALH3W(JS,JY,JX),ZALH4W(JS,JY,JX) & + &,ZALSW(JS,JY,JX),ZFEH1W(JS,JY,JX),ZFEH2W(JS,JY,JX) & + &,ZFEH3W(JS,JY,JX),ZFEH4W(JS,JY,JX),ZFESW(JS,JY,JX) & + &,ZCAOW(JS,JY,JX),ZCACW(JS,JY,JX),ZCAHW(JS,JY,JX) & + &,ZCASW(JS,JY,JX),ZMGOW(JS,JY,JX),ZMGCW(JS,JY,JX) & + &,ZMGHW(JS,JY,JX),ZMGSW(JS,JY,JX),ZNACW(JS,JY,JX) & + &,ZNASW(JS,JY,JX),ZKASW(JS,JY,JX),H0PO4W(JS,JY,JX) & + &,H3PO4W(JS,JY,JX),ZFE1PW(JS,JY,JX),ZFE2PW(JS,JY,JX) & + &,ZCA0PW(JS,JY,JX),ZCA1PW(JS,JY,JX),ZCA2PW(JS,JY,JX) & + &,ZMG1PW(JS,JY,JX) + diff --git a/f77src/blk1cp.h b/f77src/blk1cp.h index 3dcb034..54fc912 100644 --- a/f77src/blk1cp.h +++ b/f77src/blk1cp.h @@ -1,19 +1,19 @@ - COMMON/BLK1CP/WTSHT(JP,JY,JX),WTLF(JP,JY,JX),WTSHE(JP,JY,JX) - 2,WTSTK(JP,JY,JX),WVSTK(JP,JY,JX),WTRSV(JP,JY,JX),WTHSK(JP,JY,JX) - 3,WTEAR(JP,JY,JX),WTGR(JP,JY,JX),WTLS(JP,JY,JX),WVSTKB(JC,JP,JY,JX) - 4,CPOOL(JC,JP,JY,JX),WTLSB(JC,JP,JY,JX),WTSHTB(JC,JP,JY,JX) - 5,WTLFB(JC,JP,JY,JX),WTSHEB(JC,JP,JY,JX),WTSTKB(JC,JP,JY,JX) - 6,WTRSVB(JC,JP,JY,JX),WTHSKB(JC,JP,JY,JX),WTEARB(JC,JP,JY,JX) - 7,WTGRB(JC,JP,JY,JX),WTRTA(JP,JY,JX),WGLF(0:25,JC,JP,JY,JX) - 8,WGSHE(0:25,JC,JP,JY,JX),WGNODE(0:25,JC,JP,JY,JX) - 9,HTSTZ(JP,JY,JX),ARLF(0:25,JC,JP,JY,JX),HTSHE(0:25,JC,JP,JY,JX) - 1,HTNODE(0:25,JC,JP,JY,JX),ARLFB(JC,JP,JY,JX),CCPLNP(JP,JY,JX) - 2,GRNOB(JC,JP,JY,JX),GRNXB(JC,JP,JY,JX),GRNO(JP,JY,JX) - 3,GRWTB(JC,JP,JY,JX),ARLFV(JZ,JP,JY,JX),WGLFL(JZ,0:25,JC,JP,JY,JX) - 4,ARLFL(JZ,0:25,JC,JP,JY,JX),WSLF(0:25,JC,JP,JY,JX) - 5,WSSHE(0:25,JC,JP,JY,JX),CSNC(4,0:1,0:JZ,JP,JY,JX),CNET(JP,JY,JX) - 6,PP(JP,JY,JX),WGLFV(JZ,JP,JY,JX) - 7,CPOOLP(JP,JY,JX),CCPOLP(JP,JY,JX),CCPOLB(JC,JP,JY,JX) - 8,ARSTV(JZ,JP,JY,JX),WTSTDG(4,JP,JY,JX),WTSTG(JP,JY,JX) - 9,CPOLNB(JC,JP,JY,JX),CPOLNP(JP,JY,JX),HTNODX(0:25,JC,JP,JY,JX) - 1,WTNDB(JC,JP,JY,JX) + COMMON/BLK1CP/WTSHT(JP,JY,JX),WTLF(JP,JY,JX),WTSHE(JP,JY,JX) & + &,WTSTK(JP,JY,JX),WVSTK(JP,JY,JX),WTRSV(JP,JY,JX),WTHSK(JP,JY,JX) & + &,WTEAR(JP,JY,JX),WTGR(JP,JY,JX),WTLS(JP,JY,JX),WVSTKB(JC,JP,JY,JX)& + &,CPOOL(JC,JP,JY,JX),WTLSB(JC,JP,JY,JX),WTSHTB(JC,JP,JY,JX) & + &,WTLFB(JC,JP,JY,JX),WTSHEB(JC,JP,JY,JX),WTSTKB(JC,JP,JY,JX) & + &,WTRSVB(JC,JP,JY,JX),WTHSKB(JC,JP,JY,JX),WTEARB(JC,JP,JY,JX) & + &,WTGRB(JC,JP,JY,JX),WTRTA(JP,JY,JX),WGLF(0:25,JC,JP,JY,JX) & + &,WGSHE(0:25,JC,JP,JY,JX),WGNODE(0:25,JC,JP,JY,JX) & + &,HTSTZ(JP,JY,JX),ARLF(0:25,JC,JP,JY,JX),HTSHE(0:25,JC,JP,JY,JX) & + &,HTNODE(0:25,JC,JP,JY,JX),ARLFB(JC,JP,JY,JX),CCPLNP(JP,JY,JX) & + &,GRNOB(JC,JP,JY,JX),GRNXB(JC,JP,JY,JX),GRNO(JP,JY,JX) & + &,GRWTB(JC,JP,JY,JX),ARLFV(JZ,JP,JY,JX),WGLFL(JZ,0:25,JC,JP,JY,JX) & + &,ARLFL(JZ,0:25,JC,JP,JY,JX),WSLF(0:25,JC,JP,JY,JX) & + &,WSSHE(0:25,JC,JP,JY,JX),CSNC(4,0:1,0:JZ,JP,JY,JX),CNET(JP,JY,JX) & + &,PP(JP,JY,JX),WGLFV(JZ,JP,JY,JX) & + &,CPOOLP(JP,JY,JX),CCPOLP(JP,JY,JX),CCPOLB(JC,JP,JY,JX) & + &,ARSTV(JZ,JP,JY,JX),WTSTDG(4,JP,JY,JX),WTSTG(JP,JY,JX) & + &,CPOLNB(JC,JP,JY,JX),CPOLNP(JP,JY,JX),HTNODX(0:25,JC,JP,JY,JX) & + &,WTNDB(JC,JP,JY,JX) diff --git a/f77src/blk1cr.h b/f77src/blk1cr.h index 898a1aa..9dec6d5 100644 --- a/f77src/blk1cr.h +++ b/f77src/blk1cr.h @@ -1,12 +1,12 @@ - COMMON/BLK1CR/WTRT(JP,JY,JX),WTRTS(JP,JY,JX),WSRTL(2,JZ,JP,JY,JX) - 2,WTRT1(2,JZ,JC,JP,JY,JX),WTRT2(2,JZ,JC,JP,JY,JX) - 3,WTRTD(2,JZ,JP,JY,JX),RTLGP(2,JZ,JP,JY,JX),RTLG1(2,JZ,JC,JP,JY,JX) - 4,RTLG2(2,JZ,JC,JP,JY,JX),RTDNP(2,JZ,JP,JY,JX),RTN1(2,JZ,JP,JY,JX) - 5,RTNL(2,JZ,JP,JY,JX),RTN2(2,JZ,JC,JP,JY,JX),RTLGA(2,JZ,JP,JY,JX) - 6,RTARP(2,JZ,JP,JY,JX),RTVLW(2,JZ,JP,JY,JX),RRAD1(2,JZ,JP,JY,JX) - 7,RTVLP(2,JZ,JP,JY,JX),RTDP1(2,JZ,JP,JY,JX),RRAD2(2,JZ,JP,JY,JX) - 8,RTLG1X(2,JP,JY,JX),RTLG2X(2,JP,JY,JX),WTRVC(JP,JY,JX) - 9,WTRVX(JP,JY,JX),WTNDL(JZ,JP,JY,JX),WTND(JP,JY,JX),WTRVN(JP,JY,JX) - 1,WTRVP(JP,JY,JX),WTRTL(2,JZ,JP,JY,JX),CPOOLR(2,JZ,JP,JY,JX) - 2,CCPOLR(2,JZ,JP,JY,JX),RTWT1(2,JC,JP,JY,JX),HTCTL(JP,JY,JX) - 3,CWSRTL(2,JZ,JP,JY,JX),CPOOLN(JZ,JP,JY,JX) + COMMON/BLK1CR/WTRT(JP,JY,JX),WTRTS(JP,JY,JX),WSRTL(2,JZ,JP,JY,JX) & + &,WTRT1(2,JZ,JC,JP,JY,JX),WTRT2(2,JZ,JC,JP,JY,JX) & + &,WTRTD(2,JZ,JP,JY,JX),RTLGP(2,JZ,JP,JY,JX),RTLG1(2,JZ,JC,JP,JY,JX)& + &,RTLG2(2,JZ,JC,JP,JY,JX),RTDNP(2,JZ,JP,JY,JX),RTN1(2,JZ,JP,JY,JX) & + &,RTNL(2,JZ,JP,JY,JX),RTN2(2,JZ,JC,JP,JY,JX),RTLGA(2,JZ,JP,JY,JX) & + &,RTARP(2,JZ,JP,JY,JX),RTVLW(2,JZ,JP,JY,JX),RRAD1(2,JZ,JP,JY,JX) & + &,RTVLP(2,JZ,JP,JY,JX),RTDP1(2,JZ,JP,JY,JX),RRAD2(2,JZ,JP,JY,JX) & + &,RTLG1X(2,JP,JY,JX),RTLG2X(2,JP,JY,JX),WTRVC(JP,JY,JX) & + &,WTRVX(JP,JY,JX),WTNDL(JZ,JP,JY,JX),WTND(JP,JY,JX),WTRVN(JP,JY,JX)& + &,WTRVP(JP,JY,JX),WTRTL(2,JZ,JP,JY,JX),CPOOLR(2,JZ,JP,JY,JX) & + &,CCPOLR(2,JZ,JP,JY,JX),RTWT1(2,JC,JP,JY,JX),HTCTL(JP,JY,JX) & + &,CWSRTL(2,JZ,JP,JY,JX),CPOOLN(JZ,JP,JY,JX) diff --git a/f77src/blk1g.h b/f77src/blk1g.h index 599b8b2..74202c8 100644 --- a/f77src/blk1g.h +++ b/f77src/blk1g.h @@ -1,18 +1,18 @@ - COMMON/BLK1G/O2I(JP,JY,JX),CO2I(JP,JY,JX),DCO2(JP,JY,JX) - 2,CO2Q(JP,JY,JX),CO2L(JP,JY,JX),O2L(JP,JY,JX),SCO2(JP,JY,JX) - 3,SO2(JP,JY,JX),XKCO2L(JP,JY,JX),XKCO2O(JP,JY,JX),TFN3(JP,JY,JX) - 4,TFN4(JZ,JP,JY,JX),SURFB(4,JZ,JC,JP,JY,JX),TCC(JP,JY,JX) - 5,TCG(JP,JY,JX),TKC(JP,JY,JX),ARSTK(JZ,JC,JP,JY,JX),TKG(JP,JY,JX) - 6,DTKC(JP,JY,JX),CFOPC(0:5,4,JP,JY,JX) - 7,DMVL(2,JP,JY,JX),RRAD1X(2,JP,JY,JX),RRAD2X(2,JP,JY,JX) - 8,RTAR1X(2,JP,JY,JX),RTAR2X(2,JP,JY,JX),FLWC(JP,JY,JX) - 9,VOLWC(JP,JY,JX),PARDIF(4,4,JZ,JP,JY,JX),PAR(4,4,JZ,JP,JY,JX) - 1,RADC(JP,JY,JX),RADP(JP,JY,JX),FRADP(JP,JY,JX),FDBK(JC,JP,JY,JX) - 2,SURF(4,JZ,25,JC,JP,JY,JX),SURFX(4,JZ,25,JC,JP,JY,JX) - 3,VCGRO(25,JC,JP,JY,JX),VGRO(25,JC,JP,JY,JX),COMPL(25,JC,JP,JY,JX) - 4,ETGRO(25,JC,JP,JY,JX),CBXN(25,JC,JP,JY,JX),FMOL(JP,JY,JX) - 5,CPOOL3(25,JC,JP,JY,JX),CO2B(25,JC,JP,JY,JX),FDBK4(25,JC,JP,JY,JX) - 6,VCGR4(25,JC,JP,JY,JX),VGRO4(25,JC,JP,JY,JX),ETGR4(25,JC,JP,JY,JX) - 7,CBXN4(25,JC,JP,JY,JX),CPOOL4(25,JC,JP,JY,JX),HCOB(25,JC,JP,JY,JX) - 8,ARLFP(JP,JY,JX),ARSTP(JP,JY,JX),ARLFS(JP,JY,JX),ZC(JP,JY,JX) - 9,FDBKX(JC,JP,JY,JX),CHILL(JP,JY,JX) + COMMON/BLK1G/O2I(JP,JY,JX),CO2I(JP,JY,JX),DCO2(JP,JY,JX) & + &,CO2Q(JP,JY,JX),CO2L(JP,JY,JX),O2L(JP,JY,JX),SCO2(JP,JY,JX) & + &,SO2(JP,JY,JX),XKCO2L(JP,JY,JX),XKCO2O(JP,JY,JX),TFN3(JP,JY,JX) & + &,TFN4(JZ,JP,JY,JX),SURFB(4,JZ,JC,JP,JY,JX),TCC(JP,JY,JX) & + &,TCG(JP,JY,JX),TKC(JP,JY,JX),ARSTK(JZ,JC,JP,JY,JX),TKG(JP,JY,JX) & + &,DTKC(JP,JY,JX),CFOPC(0:5,4,JP,JY,JX) & + &,DMVL(2,JP,JY,JX),RRAD1X(2,JP,JY,JX),RRAD2X(2,JP,JY,JX) & + &,RTAR1X(2,JP,JY,JX),RTAR2X(2,JP,JY,JX),FLWC(JP,JY,JX) & + &,VOLWC(JP,JY,JX),PARDIF(4,4,JZ,JP,JY,JX),PAR(4,4,JZ,JP,JY,JX) & + &,RADC(JP,JY,JX),RADP(JP,JY,JX),FRADP(JP,JY,JX),FDBK(JC,JP,JY,JX) & + &,SURF(4,JZ,25,JC,JP,JY,JX),SURFX(4,JZ,25,JC,JP,JY,JX) & + &,VCGRO(25,JC,JP,JY,JX),VGRO(25,JC,JP,JY,JX),COMPL(25,JC,JP,JY,JX) & + &,ETGRO(25,JC,JP,JY,JX),CBXN(25,JC,JP,JY,JX),FMOL(JP,JY,JX) & + &,CPOOL3(25,JC,JP,JY,JX),CO2B(25,JC,JP,JY,JX),FDBK4(25,JC,JP,JY,JX)& + &,VCGR4(25,JC,JP,JY,JX),VGRO4(25,JC,JP,JY,JX),ETGR4(25,JC,JP,JY,JX)& + &,CBXN4(25,JC,JP,JY,JX),CPOOL4(25,JC,JP,JY,JX),HCOB(25,JC,JP,JY,JX)& + &,ARLFP(JP,JY,JX),ARSTP(JP,JY,JX),ARLFS(JP,JY,JX),ZC(JP,JY,JX) & + &,FDBKX(JC,JP,JY,JX),CHILL(JP,JY,JX) diff --git a/f77src/blk1n.h b/f77src/blk1n.h index 6fa432b..db6484d 100644 --- a/f77src/blk1n.h +++ b/f77src/blk1n.h @@ -1,15 +1,15 @@ - COMMON/BLK1N/WTSHN(JP,JY,JX),ZPOOLP(JP,JY,JX),WTLFN(JP,JY,JX) - 2,WTSHEN(JP,JY,JX),WTSTKN(JP,JY,JX),WTRSVN(JP,JY,JX) - 3,WTHSKN(JP,JY,JX),WTEARN(JP,JY,JX),WTGRNN(JP,JY,JX) - 4,WTSHTN(JC,JP,JY,JX),WTLFBN(JC,JP,JY,JX),WTSHBN(JC,JP,JY,JX) - 5,WTSTBN(JC,JP,JY,JX),WTRSBN(JC,JP,JY,JX),WTHSBN(JC,JP,JY,JX) - 6,WTEABN(JC,JP,JY,JX),WTGRBN(JC,JP,JY,JX),ZPOOL(JC,JP,JY,JX) - 7,WGLFN(0:25,JC,JP,JY,JX),WGSHN(0:25,JC,JP,JY,JX) - 8,WGNODN(0:25,JC,JP,JY,JX),WGLFLN(JZ,0:25,JC,JP,JY,JX) - 9,ZPOOLR(2,JZ,JP,JY,JX),CZPOLR(2,JZ,JP,JY,JX),ZPOOLN(JZ,JP,JY,JX) - 1,ZSNC(4,0:1,0:JZ,JP,JY,JX),CFOPN(0:5,4,JP,JY,JX),WTRTN(JP,JY,JX) - 2,WTRT1N(2,JZ,JC,JP,JY,JX),WTRT2N(2,JZ,JC,JP,JY,JX),WTNDN(JP,JY,JX) - 3,WTNDLN(JZ,JP,JY,JX),CZPOLP(JP,JY,JX),CZPOLB(JC,JP,JY,JX) - 4,RTWT1N(2,JC,JP,JY,JX),WTSTDN(4,JP,JY,JX) - 5,WTSTGN(JP,JY,JX),ZPOLNB(JC,JP,JY,JX),ZPOLNP(JP,JY,JX) - 6,WTNDBN(JC,JP,JY,JX) + COMMON/BLK1N/WTSHN(JP,JY,JX),ZPOOLP(JP,JY,JX),WTLFN(JP,JY,JX) & + &,WTSHEN(JP,JY,JX),WTSTKN(JP,JY,JX),WTRSVN(JP,JY,JX) & + &,WTHSKN(JP,JY,JX),WTEARN(JP,JY,JX),WTGRNN(JP,JY,JX) & + &,WTSHTN(JC,JP,JY,JX),WTLFBN(JC,JP,JY,JX),WTSHBN(JC,JP,JY,JX) & + &,WTSTBN(JC,JP,JY,JX),WTRSBN(JC,JP,JY,JX),WTHSBN(JC,JP,JY,JX) & + &,WTEABN(JC,JP,JY,JX),WTGRBN(JC,JP,JY,JX),ZPOOL(JC,JP,JY,JX) & + &,WGLFN(0:25,JC,JP,JY,JX),WGSHN(0:25,JC,JP,JY,JX) & + &,WGNODN(0:25,JC,JP,JY,JX),WGLFLN(JZ,0:25,JC,JP,JY,JX) & + &,ZPOOLR(2,JZ,JP,JY,JX),CZPOLR(2,JZ,JP,JY,JX),ZPOOLN(JZ,JP,JY,JX) & + &,ZSNC(4,0:1,0:JZ,JP,JY,JX),CFOPN(0:5,4,JP,JY,JX),WTRTN(JP,JY,JX) & + &,WTRT1N(2,JZ,JC,JP,JY,JX),WTRT2N(2,JZ,JC,JP,JY,JX),WTNDN(JP,JY,JX)& + &,WTNDLN(JZ,JP,JY,JX),CZPOLP(JP,JY,JX),CZPOLB(JC,JP,JY,JX) & + &,RTWT1N(2,JC,JP,JY,JX),WTSTDN(4,JP,JY,JX) & + &,WTSTGN(JP,JY,JX),ZPOLNB(JC,JP,JY,JX),ZPOLNP(JP,JY,JX) & + &,WTNDBN(JC,JP,JY,JX) diff --git a/f77src/blk1p.h b/f77src/blk1p.h index 4228f32..f90a296 100644 --- a/f77src/blk1p.h +++ b/f77src/blk1p.h @@ -1,14 +1,14 @@ - COMMON/BLK1P/WTSHP(JP,JY,JX),PPOOLP(JP,JY,JX),WTLFP(JP,JY,JX) - 2,WTSHEP(JP,JY,JX),WTSTKP(JP,JY,JX),WTRSVP(JP,JY,JX) - 3,WTHSKP(JP,JY,JX),WTEARP(JP,JY,JX),WTGRNP(JP,JY,JX) - 4,WTSHTP(JC,JP,JY,JX),WTLFBP(JC,JP,JY,JX),WTSHBP(JC,JP,JY,JX) - 5,WTSTBP(JC,JP,JY,JX),WTRSBP(JC,JP,JY,JX),WTHSBP(JC,JP,JY,JX) - 6,WTEABP(JC,JP,JY,JX),WTGRBP(JC,JP,JY,JX),PPOOL(JC,JP,JY,JX) - 7,WGLFP(0:25,JC,JP,JY,JX),WGSHP(0:25,JC,JP,JY,JX) - 8,WGNODP(0:25,JC,JP,JY,JX),WGLFLP(JZ,0:25,JC,JP,JY,JX) - 9,PPOOLR(2,JZ,JP,JY,JX),CPPOLR(2,JZ,JP,JY,JX),PPOOLN(JZ,JP,JY,JX) - 1,PSNC(4,0:1,0:JZ,JP,JY,JX),CFOPP(0:5,4,JP,JY,JX),WTRTP(JP,JY,JX) - 2,WTRT1P(2,JZ,JC,JP,JY,JX),WTRT2P(2,JZ,JC,JP,JY,JX),WTNDP(JP,JY,JX) - 3,WTNDLP(JZ,JP,JY,JX),CPPOLP(JP,JY,JX),CPPOLB(JC,JP,JY,JX) - 4,RTWT1P(2,JC,JP,JY,JX),WTSTDP(4,JP,JY,JX),WTSTGP(JP,JY,JX) - 5,PPOLNB(JC,JP,JY,JX),PPOLNP(JP,JY,JX),WTNDBP(JC,JP,JY,JX) + COMMON/BLK1P/WTSHP(JP,JY,JX),PPOOLP(JP,JY,JX),WTLFP(JP,JY,JX) & + &,WTSHEP(JP,JY,JX),WTSTKP(JP,JY,JX),WTRSVP(JP,JY,JX) & + &,WTHSKP(JP,JY,JX),WTEARP(JP,JY,JX),WTGRNP(JP,JY,JX) & + &,WTSHTP(JC,JP,JY,JX),WTLFBP(JC,JP,JY,JX),WTSHBP(JC,JP,JY,JX) & + &,WTSTBP(JC,JP,JY,JX),WTRSBP(JC,JP,JY,JX),WTHSBP(JC,JP,JY,JX) & + &,WTEABP(JC,JP,JY,JX),WTGRBP(JC,JP,JY,JX),PPOOL(JC,JP,JY,JX) & + &,WGLFP(0:25,JC,JP,JY,JX),WGSHP(0:25,JC,JP,JY,JX) & + &,WGNODP(0:25,JC,JP,JY,JX),WGLFLP(JZ,0:25,JC,JP,JY,JX) & + &,PPOOLR(2,JZ,JP,JY,JX),CPPOLR(2,JZ,JP,JY,JX),PPOOLN(JZ,JP,JY,JX) & + &,PSNC(4,0:1,0:JZ,JP,JY,JX),CFOPP(0:5,4,JP,JY,JX),WTRTP(JP,JY,JX) & + &,WTRT1P(2,JZ,JC,JP,JY,JX),WTRT2P(2,JZ,JC,JP,JY,JX),WTNDP(JP,JY,JX)& + &,WTNDLP(JZ,JP,JY,JX),CPPOLP(JP,JY,JX),CPPOLB(JC,JP,JY,JX) & + &,RTWT1P(2,JC,JP,JY,JX),WTSTDP(4,JP,JY,JX),WTSTGP(JP,JY,JX) & + &,PPOLNB(JC,JP,JY,JX),PPOLNP(JP,JY,JX),WTNDBP(JC,JP,JY,JX) diff --git a/f77src/blk1s.h b/f77src/blk1s.h index 61ed38f..74860db 100644 --- a/f77src/blk1s.h +++ b/f77src/blk1s.h @@ -1,7 +1,7 @@ - COMMON/BLK1S/RCZLX(JC,JP,JY,JX),RCPLX(JC,JP,JY,JX) - 2,RCCLX(JC,JP,JY,JX),WGLFX(JC,JP,JY,JX) - 3,WGLFNX(JC,JP,JY,JX),WGLFPX(JC,JP,JY,JX),ARLFZ(JC,JP,JY,JX) - 4,RCZSX(JC,JP,JY,JX),RCPSX(JC,JP,JY,JX),RCCSX(JC,JP,JY,JX) - 5,WGSHEX(JC,JP,JY,JX),WGSHNX(JC,JP,JY,JX) - 6,WGSHPX(JC,JP,JY,JX),HTSHEX(JC,JP,JY,JX) - 7,WTSTXB(JC,JP,JY,JX),WTSTXN(JC,JP,JY,JX),WTSTXP(JC,JP,JY,JX) + COMMON/BLK1S/RCZLX(JC,JP,JY,JX),RCPLX(JC,JP,JY,JX) & + &,RCCLX(JC,JP,JY,JX),WGLFX(JC,JP,JY,JX) & + &,WGLFNX(JC,JP,JY,JX),WGLFPX(JC,JP,JY,JX),ARLFZ(JC,JP,JY,JX) & + &,RCZSX(JC,JP,JY,JX),RCPSX(JC,JP,JY,JX),RCCSX(JC,JP,JY,JX) & + &,WGSHEX(JC,JP,JY,JX),WGSHNX(JC,JP,JY,JX) & + &,WGSHPX(JC,JP,JY,JX),HTSHEX(JC,JP,JY,JX) & + &,WTSTXB(JC,JP,JY,JX),WTSTXN(JC,JP,JY,JX),WTSTXP(JC,JP,JY,JX) diff --git a/f77src/blk20a.h b/f77src/blk20a.h index 4517fa6..55d3536 100644 --- a/f77src/blk20a.h +++ b/f77src/blk20a.h @@ -1,25 +1,25 @@ - COMMON/BLK20A/XQRAL(2,JV,JH),XQRFE(2,JV,JH),XQRHY(2,JV,JH) - 2,XQRCA(2,JV,JH),XQRMG(2,JV,JH),XQRNA(2,JV,JH),XQRKA(2,JV,JH) - 3,XQROH(2,JV,JH),XQRSO(2,JV,JH),XQRCL(2,JV,JH),XQRC3(2,JV,JH) - 4,XQRHC(2,JV,JH),XQRAL1(2,JV,JH),XQRAL2(2,JV,JH),XQRAL3(2,JV,JH) - 5,XQRAL4(2,JV,JH),XQRALS(2,JV,JH),XQRFE1(2,JV,JH),XQRFE2(2,JV,JH) - 6,XQRFE3(2,JV,JH),XQRFE4(2,JV,JH),XQRFES(2,JV,JH),XQRCAO(2,JV,JH) - 7,XQRCAC(2,JV,JH),XQRCAH(2,JV,JH),XQRCAS(2,JV,JH),XQRMGO(2,JV,JH) - 8,XQRMGC(2,JV,JH),XQRMGH(2,JV,JH),XQRMGS(2,JV,JH),XQRNAC(2,JV,JH) - 9,XQRNAS(2,JV,JH),XQRKAS(2,JV,JH),XQRH0P(2,JV,JH) - 1,XQRH3P(2,JV,JH),XQRF1P(2,JV,JH),XQRF2P(2,JV,JH),XQRC0P(2,JV,JH) - 2,XQRC1P(2,JV,JH),XQRC2P(2,JV,JH),XQRM1P(2,JV,JH),XQRH0B(2,JV,JH) - 3,XQRH1B(2,JV,JH),XQRH3B(2,JV,JH),XQRF1B(2,JV,JH),XQRF2B(2,JV,JH) - 4,XQRC0B(2,JV,JH),XQRC1B(2,JV,JH),XQRC2B(2,JV,JH),XQRM1B(2,JV,JH) - 1,XQSAL(2,JV,JH),XQSFE(2,JV,JH),XQSHY(2,JV,JH) - 2,XQSCA(2,JV,JH),XQSMG(2,JV,JH),XQSNA(2,JV,JH),XQSKA(2,JV,JH) - 3,XQSOH(2,JV,JH),XQSSO(2,JV,JH),XQSCL(2,JV,JH),XQSC3(2,JV,JH) - 4,XQSHC(2,JV,JH),XQSAL1(2,JV,JH),XQSAL2(2,JV,JH),XQSAL3(2,JV,JH) - 5,XQSAL4(2,JV,JH),XQSALS(2,JV,JH),XQSFE1(2,JV,JH),XQSFE2(2,JV,JH) - 6,XQSFE3(2,JV,JH),XQSFE4(2,JV,JH),XQSFES(2,JV,JH),XQSCAO(2,JV,JH) - 7,XQSCAC(2,JV,JH),XQSCAH(2,JV,JH),XQSCAS(2,JV,JH),XQSMGO(2,JV,JH) - 8,XQSMGC(2,JV,JH),XQSMGH(2,JV,JH),XQSMGS(2,JV,JH),XQSNAC(2,JV,JH) - 9,XQSNAS(2,JV,JH),XQSKAS(2,JV,JH),XQSH0P(2,JV,JH),XQSH1P(2,JV,JH) - 1,XQSH3P(2,JV,JH),XQSF1P(2,JV,JH),XQSF2P(2,JV,JH),XQSC0P(2,JV,JH) - 2,XQSC1P(2,JV,JH),XQSC2P(2,JV,JH),XQSM1P(2,JV,JH) - + COMMON/BLK20A/XQRAL(2,JV,JH),XQRFE(2,JV,JH),XQRHY(2,JV,JH) & + &,XQRCA(2,JV,JH),XQRMG(2,JV,JH),XQRNA(2,JV,JH),XQRKA(2,JV,JH) & + &,XQROH(2,JV,JH),XQRSO(2,JV,JH),XQRCL(2,JV,JH),XQRC3(2,JV,JH) & + &,XQRHC(2,JV,JH),XQRAL1(2,JV,JH),XQRAL2(2,JV,JH),XQRAL3(2,JV,JH) & + &,XQRAL4(2,JV,JH),XQRALS(2,JV,JH),XQRFE1(2,JV,JH),XQRFE2(2,JV,JH) & + &,XQRFE3(2,JV,JH),XQRFE4(2,JV,JH),XQRFES(2,JV,JH),XQRCAO(2,JV,JH) & + &,XQRCAC(2,JV,JH),XQRCAH(2,JV,JH),XQRCAS(2,JV,JH),XQRMGO(2,JV,JH) & + &,XQRMGC(2,JV,JH),XQRMGH(2,JV,JH),XQRMGS(2,JV,JH),XQRNAC(2,JV,JH) & + &,XQRNAS(2,JV,JH),XQRKAS(2,JV,JH),XQRH0P(2,JV,JH) & + &,XQRH3P(2,JV,JH),XQRF1P(2,JV,JH),XQRF2P(2,JV,JH),XQRC0P(2,JV,JH) & + &,XQRC1P(2,JV,JH),XQRC2P(2,JV,JH),XQRM1P(2,JV,JH),XQRH0B(2,JV,JH) & + &,XQRH1B(2,JV,JH),XQRH3B(2,JV,JH),XQRF1B(2,JV,JH),XQRF2B(2,JV,JH) & + &,XQRC0B(2,JV,JH),XQRC1B(2,JV,JH),XQRC2B(2,JV,JH),XQRM1B(2,JV,JH) & + &,XQSAL(2,JV,JH),XQSFE(2,JV,JH),XQSHY(2,JV,JH) & + &,XQSCA(2,JV,JH),XQSMG(2,JV,JH),XQSNA(2,JV,JH),XQSKA(2,JV,JH) & + &,XQSOH(2,JV,JH),XQSSO(2,JV,JH),XQSCL(2,JV,JH),XQSC3(2,JV,JH) & + &,XQSHC(2,JV,JH),XQSAL1(2,JV,JH),XQSAL2(2,JV,JH),XQSAL3(2,JV,JH) & + &,XQSAL4(2,JV,JH),XQSALS(2,JV,JH),XQSFE1(2,JV,JH),XQSFE2(2,JV,JH) & + &,XQSFE3(2,JV,JH),XQSFE4(2,JV,JH),XQSFES(2,JV,JH),XQSCAO(2,JV,JH) & + &,XQSCAC(2,JV,JH),XQSCAH(2,JV,JH),XQSCAS(2,JV,JH),XQSMGO(2,JV,JH) & + &,XQSMGC(2,JV,JH),XQSMGH(2,JV,JH),XQSMGS(2,JV,JH),XQSNAC(2,JV,JH) & + &,XQSNAS(2,JV,JH),XQSKAS(2,JV,JH),XQSH0P(2,JV,JH),XQSH1P(2,JV,JH) & + &,XQSH3P(2,JV,JH),XQSF1P(2,JV,JH),XQSF2P(2,JV,JH),XQSC0P(2,JV,JH) & + &,XQSC1P(2,JV,JH),XQSC2P(2,JV,JH),XQSM1P(2,JV,JH) + diff --git a/f77src/blk20b.h b/f77src/blk20b.h index 99d0e08..c7e1b2c 100644 --- a/f77src/blk20b.h +++ b/f77src/blk20b.h @@ -1,18 +1,18 @@ - COMMON/BLK20B/XALFLS(3,0:JD,JV,JH),XFEFLS(3,0:JD,JV,JH) - 1,XHYFLS(3,0:JD,JV,JH),XCAFLS(3,0:JD,JV,JH),XMGFLS(3,0:JD,JV,JH) - 2,XNAFLS(3,0:JD,JV,JH),XKAFLS(3,0:JD,JV,JH),XOHFLS(3,0:JD,JV,JH) - 3,XSOFLS(3,0:JD,JV,JH),XCLFLS(3,0:JD,JV,JH),XC3FLS(3,0:JD,JV,JH) - 4,XHCFLS(3,0:JD,JV,JH),XAL1FS(3,0:JD,JV,JH),XAL2FS(3,0:JD,JV,JH) - 5,XAL3FS(3,0:JD,JV,JH),XAL4FS(3,0:JD,JV,JH),XALSFS(3,0:JD,JV,JH) - 6,XFE1FS(3,0:JD,JV,JH),XFE2FS(3,0:JD,JV,JH) - 7,XFE3FS(3,0:JD,JV,JH),XFE4FS(3,0:JD,JV,JH),XFESFS(3,0:JD,JV,JH) - 8,XCAOFS(3,0:JD,JV,JH),XCACFS(3,0:JD,JV,JH),XCAHFS(3,0:JD,JV,JH) - 9,XCASFS(3,0:JD,JV,JH),XMGOFS(3,0:JD,JV,JH),XMGCFS(3,0:JD,JV,JH) - 1,XMGHFS(3,0:JD,JV,JH),XMGSFS(3,0:JD,JV,JH),XNACFS(3,0:JD,JV,JH) - 2,XNASFS(3,0:JD,JV,JH),XKASFS(3,0:JD,JV,JH),XH0PFS(3,0:JD,JV,JH) - 3,XH3PFS(3,0:JD,JV,JH),XF1PFS(3,0:JD,JV,JH) - 4,XF2PFS(3,0:JD,JV,JH),XC0PFS(3,0:JD,JV,JH),XC1PFS(3,0:JD,JV,JH) - 5,XC2PFS(3,0:JD,JV,JH),XM1PFS(3,0:JD,JV,JH),XH0BFB(3,0:JD,JV,JH) - 6,XH3BFB(3,0:JD,JV,JH),XF1BFB(3,0:JD,JV,JH) - 7,XF2BFB(3,0:JD,JV,JH),XC0BFB(3,0:JD,JV,JH),XC1BFB(3,0:JD,JV,JH) - 8,XC2BFB(3,0:JD,JV,JH),XM1BFB(3,0:JD,JV,JH) + COMMON/BLK20B/XALFLS(3,0:JD,JV,JH),XFEFLS(3,0:JD,JV,JH) & + &,XHYFLS(3,0:JD,JV,JH),XCAFLS(3,0:JD,JV,JH),XMGFLS(3,0:JD,JV,JH) & + &,XNAFLS(3,0:JD,JV,JH),XKAFLS(3,0:JD,JV,JH),XOHFLS(3,0:JD,JV,JH) & + &,XSOFLS(3,0:JD,JV,JH),XCLFLS(3,0:JD,JV,JH),XC3FLS(3,0:JD,JV,JH) & + &,XHCFLS(3,0:JD,JV,JH),XAL1FS(3,0:JD,JV,JH),XAL2FS(3,0:JD,JV,JH) & + &,XAL3FS(3,0:JD,JV,JH),XAL4FS(3,0:JD,JV,JH),XALSFS(3,0:JD,JV,JH) & + &,XFE1FS(3,0:JD,JV,JH),XFE2FS(3,0:JD,JV,JH) & + &,XFE3FS(3,0:JD,JV,JH),XFE4FS(3,0:JD,JV,JH),XFESFS(3,0:JD,JV,JH) & + &,XCAOFS(3,0:JD,JV,JH),XCACFS(3,0:JD,JV,JH),XCAHFS(3,0:JD,JV,JH) & + &,XCASFS(3,0:JD,JV,JH),XMGOFS(3,0:JD,JV,JH),XMGCFS(3,0:JD,JV,JH) & + &,XMGHFS(3,0:JD,JV,JH),XMGSFS(3,0:JD,JV,JH),XNACFS(3,0:JD,JV,JH) & + &,XNASFS(3,0:JD,JV,JH),XKASFS(3,0:JD,JV,JH),XH0PFS(3,0:JD,JV,JH) & + &,XH3PFS(3,0:JD,JV,JH),XF1PFS(3,0:JD,JV,JH) & + &,XF2PFS(3,0:JD,JV,JH),XC0PFS(3,0:JD,JV,JH),XC1PFS(3,0:JD,JV,JH) & + &,XC2PFS(3,0:JD,JV,JH),XM1PFS(3,0:JD,JV,JH),XH0BFB(3,0:JD,JV,JH) & + &,XH3BFB(3,0:JD,JV,JH),XF1BFB(3,0:JD,JV,JH) & + &,XF2BFB(3,0:JD,JV,JH),XC0BFB(3,0:JD,JV,JH),XC1BFB(3,0:JD,JV,JH) & + &,XC2BFB(3,0:JD,JV,JH),XM1BFB(3,0:JD,JV,JH) diff --git a/f77src/blk20c.h b/f77src/blk20c.h index 0681608..8d30bc2 100644 --- a/f77src/blk20c.h +++ b/f77src/blk20c.h @@ -1,18 +1,18 @@ - COMMON/BLK20C/XALFHS(3,JD,JV,JH),XFEFHS(3,JD,JV,JH) - 1,XHYFHS(3,JD,JV,JH),XCAFHS(3,JD,JV,JH),XMGFHS(3,JD,JV,JH) - 2,XNAFHS(3,JD,JV,JH),XKAFHS(3,JD,JV,JH),XOHFHS(3,JD,JV,JH) - 3,XSOFHS(3,JD,JV,JH),XCLFHS(3,JD,JV,JH),XC3FHS(3,JD,JV,JH) - 4,XHCFHS(3,JD,JV,JH),XAL1HS(3,JD,JV,JH),XAL2HS(3,JD,JV,JH) - 5,XAL3HS(3,JD,JV,JH),XAL4HS(3,JD,JV,JH),XALSHS(3,JD,JV,JH) - 6,XFE1HS(3,JD,JV,JH),XFE2HS(3,JD,JV,JH) - 7,XFE3HS(3,JD,JV,JH),XFE4HS(3,JD,JV,JH),XFESHS(3,JD,JV,JH) - 8,XCAOHS(3,JD,JV,JH),XCACHS(3,JD,JV,JH),XCAHHS(3,JD,JV,JH) - 9,XCASHS(3,JD,JV,JH),XMGOHS(3,JD,JV,JH),XMGCHS(3,JD,JV,JH) - 1,XMGHHS(3,JD,JV,JH),XMGSHS(3,JD,JV,JH),XNACHS(3,JD,JV,JH) - 2,XNASHS(3,JD,JV,JH),XKASHS(3,JD,JV,JH),XH0PHS(3,JD,JV,JH) - 3,XH3PHS(3,JD,JV,JH),XF1PHS(3,JD,JV,JH) - 4,XF2PHS(3,JD,JV,JH),XC0PHS(3,JD,JV,JH),XC1PHS(3,JD,JV,JH) - 5,XC2PHS(3,JD,JV,JH),XM1PHS(3,JD,JV,JH),XH0BHB(3,JD,JV,JH) - 6,XH3BHB(3,JD,JV,JH),XF1BHB(3,JD,JV,JH) - 7,XF2BHB(3,JD,JV,JH),XC0BHB(3,JD,JV,JH),XC1BHB(3,JD,JV,JH) - 8,XC2BHB(3,JD,JV,JH),XM1BHB(3,JD,JV,JH) + COMMON/BLK20C/XALFHS(3,JD,JV,JH),XFEFHS(3,JD,JV,JH) & + &,XHYFHS(3,JD,JV,JH),XCAFHS(3,JD,JV,JH),XMGFHS(3,JD,JV,JH) & + &,XNAFHS(3,JD,JV,JH),XKAFHS(3,JD,JV,JH),XOHFHS(3,JD,JV,JH) & + &,XSOFHS(3,JD,JV,JH),XCLFHS(3,JD,JV,JH),XC3FHS(3,JD,JV,JH) & + &,XHCFHS(3,JD,JV,JH),XAL1HS(3,JD,JV,JH),XAL2HS(3,JD,JV,JH) & + &,XAL3HS(3,JD,JV,JH),XAL4HS(3,JD,JV,JH),XALSHS(3,JD,JV,JH) & + &,XFE1HS(3,JD,JV,JH),XFE2HS(3,JD,JV,JH) & + &,XFE3HS(3,JD,JV,JH),XFE4HS(3,JD,JV,JH),XFESHS(3,JD,JV,JH) & + &,XCAOHS(3,JD,JV,JH),XCACHS(3,JD,JV,JH),XCAHHS(3,JD,JV,JH) & + &,XCASHS(3,JD,JV,JH),XMGOHS(3,JD,JV,JH),XMGCHS(3,JD,JV,JH) & + &,XMGHHS(3,JD,JV,JH),XMGSHS(3,JD,JV,JH),XNACHS(3,JD,JV,JH) & + &,XNASHS(3,JD,JV,JH),XKASHS(3,JD,JV,JH),XH0PHS(3,JD,JV,JH) & + &,XH3PHS(3,JD,JV,JH),XF1PHS(3,JD,JV,JH) & + &,XF2PHS(3,JD,JV,JH),XC0PHS(3,JD,JV,JH),XC1PHS(3,JD,JV,JH) & + &,XC2PHS(3,JD,JV,JH),XM1PHS(3,JD,JV,JH),XH0BHB(3,JD,JV,JH) & + &,XH3BHB(3,JD,JV,JH),XF1BHB(3,JD,JV,JH) & + &,XF2BHB(3,JD,JV,JH),XC0BHB(3,JD,JV,JH),XC1BHB(3,JD,JV,JH) & + &,XC2BHB(3,JD,JV,JH),XM1BHB(3,JD,JV,JH) diff --git a/f77src/blk20d.h b/f77src/blk20d.h index 162d081..f4bf066 100644 --- a/f77src/blk20d.h +++ b/f77src/blk20d.h @@ -1,19 +1,19 @@ - COMMON/BLK20D/XOCFXS(0:4,JZ,JY,JX),XONFXS(0:4,JZ,JY,JX) - 2,XOPFXS(0:4,JZ,JY,JX),XOAFXS(0:4,JZ,JY,JX),XCOFXS(JZ,JY,JX) - 3,XCHFXS(JZ,JY,JX),XOXFXS(JZ,JY,JX),XHGFXS(JZ,JY,JX) - 4,XNGFXS(JZ,JY,JX),XN2FXS(JZ,JY,JX),XN4FXW(JZ,JY,JX) - 5,XN3FXW(JZ,JY,JX),XNOFXW(JZ,JY,JX),XH2PXS(JZ,JY,JX) - 6,XN4FXB(JZ,JY,JX),XN3FXB(JZ,JY,JX),XNOFXB(JZ,JY,JX) - 7,XH2BXB(JZ,JY,JX),XNXFXS(JZ,JY,JX),XALFXS(JZ,JY,JX) - 8,XFEFXS(JZ,JY,JX),XHYFXS(JZ,JY,JX),XCAFXS(JZ,JY,JX) - 9,XMGFXS(JZ,JY,JX),XNAFXS(JZ,JY,JX),XKAFXS(JZ,JY,JX) - 1,XOHFXS(JZ,JY,JX),XSOFXS(JZ,JY,JX),XCLFXS(JZ,JY,JX) - 2,XC3FXS(JZ,JY,JX),XHCFXS(JZ,JY,JX),XAL1XS(JZ,JY,JX) - 3,XAL2XS(JZ,JY,JX),XAL3XS(JZ,JY,JX),XAL4XS(JZ,JY,JX) - 4,XALSXS(JZ,JY,JX),XFE1XS(JZ,JY,JX),XFE2XS(JZ,JY,JX) - 5,XFE3XS(JZ,JY,JX),XFE4XS(JZ,JY,JX),XFESXS(JZ,JY,JX) - 6,XCAOXS(JZ,JY,JX),XCACXS(JZ,JY,JX) - 7,XCAHXS(JZ,JY,JX),XCASXS(JZ,JY,JX),XMGOXS(JZ,JY,JX) - 8,XMGCXS(JZ,JY,JX),XMGHXS(JZ,JY,JX),XMGSXS(JZ,JY,JX) - 9,XNACXS(JZ,JY,JX),XNASXS(JZ,JY,JX),XKASXS(JZ,JY,JX) - 1,XH1PXS(JZ,JY,JX),XH1BXB(JZ,JY,JX) + COMMON/BLK20D/XOCFXS(0:4,JZ,JY,JX),XONFXS(0:4,JZ,JY,JX) & + &,XOPFXS(0:4,JZ,JY,JX),XOAFXS(0:4,JZ,JY,JX),XCOFXS(JZ,JY,JX) & + &,XCHFXS(JZ,JY,JX),XOXFXS(JZ,JY,JX),XHGFXS(JZ,JY,JX) & + &,XNGFXS(JZ,JY,JX),XN2FXS(JZ,JY,JX),XN4FXW(JZ,JY,JX) & + &,XN3FXW(JZ,JY,JX),XNOFXW(JZ,JY,JX),XH2PXS(JZ,JY,JX) & + &,XN4FXB(JZ,JY,JX),XN3FXB(JZ,JY,JX),XNOFXB(JZ,JY,JX) & + &,XH2BXB(JZ,JY,JX),XNXFXS(JZ,JY,JX),XALFXS(JZ,JY,JX) & + &,XFEFXS(JZ,JY,JX),XHYFXS(JZ,JY,JX),XCAFXS(JZ,JY,JX) & + &,XMGFXS(JZ,JY,JX),XNAFXS(JZ,JY,JX),XKAFXS(JZ,JY,JX) & + &,XOHFXS(JZ,JY,JX),XSOFXS(JZ,JY,JX),XCLFXS(JZ,JY,JX) & + &,XC3FXS(JZ,JY,JX),XHCFXS(JZ,JY,JX),XAL1XS(JZ,JY,JX) & + &,XAL2XS(JZ,JY,JX),XAL3XS(JZ,JY,JX),XAL4XS(JZ,JY,JX) & + &,XALSXS(JZ,JY,JX),XFE1XS(JZ,JY,JX),XFE2XS(JZ,JY,JX) & + &,XFE3XS(JZ,JY,JX),XFE4XS(JZ,JY,JX),XFESXS(JZ,JY,JX) & + &,XCAOXS(JZ,JY,JX),XCACXS(JZ,JY,JX) & + &,XCAHXS(JZ,JY,JX),XCASXS(JZ,JY,JX),XMGOXS(JZ,JY,JX) & + &,XMGCXS(JZ,JY,JX),XMGHXS(JZ,JY,JX),XMGSXS(JZ,JY,JX) & + &,XNACXS(JZ,JY,JX),XNASXS(JZ,JY,JX),XKASXS(JZ,JY,JX) & + &,XH1PXS(JZ,JY,JX),XH1BXB(JZ,JY,JX) diff --git a/f77src/blk20e.h b/f77src/blk20e.h index 8868d91..20ae063 100644 --- a/f77src/blk20e.h +++ b/f77src/blk20e.h @@ -1,7 +1,7 @@ - COMMON/BLK20E/XH0PXS(JZ,JY,JX) - 2,XH3PXS(JZ,JY,JX),XF1PXS(JZ,JY,JX),XF2PXS(JZ,JY,JX) - 3,XC0PXS(JZ,JY,JX),XC1PXS(JZ,JY,JX),XC2PXS(JZ,JY,JX) - 4,XM1PXS(JZ,JY,JX),XH0BXB(JZ,JY,JX) - 5,XH3BXB(JZ,JY,JX),XF1BXB(JZ,JY,JX),XF2BXB(JZ,JY,JX) - 6,XC0BXB(JZ,JY,JX),XC1BXB(JZ,JY,JX),XC2BXB(JZ,JY,JX) - 7,XM1BXB(JZ,JY,JX),XNXFXB(JZ,JY,JX) + COMMON/BLK20E/XH0PXS(JZ,JY,JX) & + &,XH3PXS(JZ,JY,JX),XF1PXS(JZ,JY,JX),XF2PXS(JZ,JY,JX) & + &,XC0PXS(JZ,JY,JX),XC1PXS(JZ,JY,JX),XC2PXS(JZ,JY,JX) & + &,XM1PXS(JZ,JY,JX),XH0BXB(JZ,JY,JX) & + &,XH3BXB(JZ,JY,JX),XF1BXB(JZ,JY,JX),XF2BXB(JZ,JY,JX) & + &,XC0BXB(JZ,JY,JX),XC1BXB(JZ,JY,JX),XC2BXB(JZ,JY,JX) & + &,XM1BXB(JZ,JY,JX),XNXFXB(JZ,JY,JX) diff --git a/f77src/blk20f.h b/f77src/blk20f.h index b1bf395..05ffe04 100644 --- a/f77src/blk20f.h +++ b/f77src/blk20f.h @@ -1,19 +1,19 @@ - COMMON/BLK20F/XSANER(2,JV,JH),XSILER(2,JV,JH),XCLAER(2,JV,JH) - 2,XCECER(2,JV,JH),XAECER(2,JV,JH),XNH4ER(2,JV,JH),XNH3ER(2,JV,JH) - 3,XNHUER(2,JV,JH),XNO3ER(2,JV,JH),XNH4EB(2,JV,JH),XNH3EB(2,JV,JH) - 4,XNHUEB(2,JV,JH),XNO3EB(2,JV,JH),XN4ER(2,JV,JH),XNBER(2,JV,JH) - 5,XHYER(2,JV,JH),XALER(2,JV,JH),XCAER(2,JV,JH),XMGER(2,JV,JH) - 6,XNAER(2,JV,JH),XKAER(2,JV,JH),XHCER(2,JV,JH),XAL2ER(2,JV,JH) - 7,XOH0ER(2,JV,JH),XOH1ER(2,JV,JH),XOH2ER(2,JV,JH),XH1PER(2,JV,JH) - 8,XH2PER(2,JV,JH),XOH0EB(2,JV,JH),XOH1EB(2,JV,JH),XOH2EB(2,JV,JH) - 9,XH1PEB(2,JV,JH),XH2PEB(2,JV,JH),PALOER(2,JV,JH),PFEOER(2,JV,JH) - 1,PCACER(2,JV,JH),PCASER(2,JV,JH),PALPER(2,JV,JH),PFEPER(2,JV,JH) - 2,PCPDER(2,JV,JH),PCPHER(2,JV,JH),PCPMER(2,JV,JH),PALPEB(2,JV,JH) - 3,PFEPEB(2,JV,JH),PCPDEB(2,JV,JH),PCPHEB(2,JV,JH),PCPMEB(2,JV,JH) - 4,OMCER(3,7,0:5,2,JV,JH),OMNER(3,7,0:5,2,JV,JH) - 5,ORCER(2,0:4,2,JV,JH),ORNER(2,0:4,2,JV,JH),ORPER(2,0:4,2,JV,JH) - 6,OHCER(0:4,2,JV,JH),OHNER(0:4,2,JV,JH),OHPER(0:4,2,JV,JH) - 7,OHAER(0:4,2,JV,JH),OSCER(4,0:4,2,JV,JH),OSAER(4,0:4,2,JV,JH) - 8,OSNER(4,0:4,2,JV,JH),OSPER(4,0:4,2,JV,JH),OMPER(3,7,0:5,2,JV,JH) - 9,XSEDER(2,JV,JH),XDTSED(JY,JX),XFEER(2,JV,JH),XFE2ER(2,JV,JH) - + COMMON/BLK20F/XSANER(2,JV,JH),XSILER(2,JV,JH),XCLAER(2,JV,JH) & + &,XCECER(2,JV,JH),XAECER(2,JV,JH),XNH4ER(2,JV,JH),XNH3ER(2,JV,JH) & + &,XNHUER(2,JV,JH),XNO3ER(2,JV,JH),XNH4EB(2,JV,JH),XNH3EB(2,JV,JH) & + &,XNHUEB(2,JV,JH),XNO3EB(2,JV,JH),XN4ER(2,JV,JH),XNBER(2,JV,JH) & + &,XHYER(2,JV,JH),XALER(2,JV,JH),XCAER(2,JV,JH),XMGER(2,JV,JH) & + &,XNAER(2,JV,JH),XKAER(2,JV,JH),XHCER(2,JV,JH),XAL2ER(2,JV,JH) & + &,XOH0ER(2,JV,JH),XOH1ER(2,JV,JH),XOH2ER(2,JV,JH),XH1PER(2,JV,JH) & + &,XH2PER(2,JV,JH),XOH0EB(2,JV,JH),XOH1EB(2,JV,JH),XOH2EB(2,JV,JH) & + &,XH1PEB(2,JV,JH),XH2PEB(2,JV,JH),PALOER(2,JV,JH),PFEOER(2,JV,JH) & + &,PCACER(2,JV,JH),PCASER(2,JV,JH),PALPER(2,JV,JH),PFEPER(2,JV,JH) & + &,PCPDER(2,JV,JH),PCPHER(2,JV,JH),PCPMER(2,JV,JH),PALPEB(2,JV,JH) & + &,PFEPEB(2,JV,JH),PCPDEB(2,JV,JH),PCPHEB(2,JV,JH),PCPMEB(2,JV,JH) & + &,OMCER(3,7,0:5,2,JV,JH),OMNER(3,7,0:5,2,JV,JH) & + &,ORCER(2,0:4,2,JV,JH),ORNER(2,0:4,2,JV,JH),ORPER(2,0:4,2,JV,JH) & + &,OHCER(0:4,2,JV,JH),OHNER(0:4,2,JV,JH),OHPER(0:4,2,JV,JH) & + &,OHAER(0:4,2,JV,JH),OSCER(4,0:4,2,JV,JH),OSAER(4,0:4,2,JV,JH) & + &,OSNER(4,0:4,2,JV,JH),OSPER(4,0:4,2,JV,JH),OMPER(3,7,0:5,2,JV,JH) & + &,XSEDER(2,JV,JH),XDTSED(JY,JX),XFEER(2,JV,JH),XFE2ER(2,JV,JH) + diff --git a/f77src/blk21a.h b/f77src/blk21a.h index d507d84..47d3d1b 100644 --- a/f77src/blk21a.h +++ b/f77src/blk21a.h @@ -1,20 +1,20 @@ - COMMON/BLK21A/TRN4S(0:JZ,JY,JX),TRN3S(0:JZ,JY,JX),TRN4B(JZ,JY,JX) - 2,TRNO3(0:JZ,JY,JX),TRN3B(JZ,JY,JX),TRNOB(JZ,JY,JX),TRAL(JZ,JY,JX) - 3,TRFE(JZ,JY,JX),TRHY(JZ,JY,JX),TRCA(JZ,JY,JX),TRMG(JZ,JY,JX) - 4,TRNA(JZ,JY,JX),TRKA(JZ,JY,JX),TROH(JZ,JY,JX),TRSO4(JZ,JY,JX) - 5,TRCO3(JZ,JY,JX),TRHCO(JZ,JY,JX),TRCO2(JZ,JY,JX),TRH2O(0:JZ,JY,JX) - 6,TRAL1(JZ,JY,JX),TRAL2(JZ,JY,JX),TRAL3(JZ,JY,JX),TRAL4(JZ,JY,JX) - 7,TRALS(JZ,JY,JX),TRFE1(JZ,JY,JX),TRFE2(JZ,JY,JX),TRFE3(JZ,JY,JX) - 8,TRFE4(JZ,JY,JX),TRFES(JZ,JY,JX),TRCAO(JZ,JY,JX),TRCAC(JZ,JY,JX) - 9,TRCAH(JZ,JY,JX),TRCAS(JZ,JY,JX),TRMGO(JZ,JY,JX),TRMGC(JZ,JY,JX) - 1,TRMGH(JZ,JY,JX),TRMGS(JZ,JY,JX),TRNAC(JZ,JY,JX),TRNAS(JZ,JY,JX) - 2,TRH0P(JZ,JY,JX),TRH1P(0:JZ,JY,JX),TRH2P(0:JZ,JY,JX) - 3,TRH3P(JZ,JY,JX),TRF1P(JZ,JY,JX),TRF2P(JZ,JY,JX),TRC0P(JZ,JY,JX) - 4,TRC1P(JZ,JY,JX),TRC2P(JZ,JY,JX),TRM1P(JZ,JY,JX),TRH0B(JZ,JY,JX) - 5,TRH1B(JZ,JY,JX),TRH2B(JZ,JY,JX),TRH3B(JZ,JY,JX),TRF1B(JZ,JY,JX) - 6,TRF2B(JZ,JY,JX),TRC0B(JZ,JY,JX),TRC1B(JZ,JY,JX),TRC2B(JZ,JY,JX) - 7,TRM1B(JZ,JY,JX),TRXN4(0:JZ,JY,JX),TRXNB(JZ,JY,JX),TRXHY(JZ,JY,JX) - 8,TRXAL(JZ,JY,JX),TRXCA(JZ,JY,JX),TRXMG(JZ,JY,JX),TRXNA(JZ,JY,JX) - 9,TRXKA(JZ,JY,JX),TRXHC(JZ,JY,JX),TRXAL2(JZ,JY,JX),TRKAS(JZ,JY,JX) - 1,TRXFE(JZ,JY,JX),TRXFE2(JZ,JY,JX) - + COMMON/BLK21A/TRN4S(0:JZ,JY,JX),TRN3S(0:JZ,JY,JX),TRN4B(JZ,JY,JX) & + &,TRNO3(0:JZ,JY,JX),TRN3B(JZ,JY,JX),TRNOB(JZ,JY,JX),TRAL(JZ,JY,JX) & + &,TRFE(JZ,JY,JX),TRHY(JZ,JY,JX),TRCA(JZ,JY,JX),TRMG(JZ,JY,JX) & + &,TRNA(JZ,JY,JX),TRKA(JZ,JY,JX),TROH(JZ,JY,JX),TRSO4(JZ,JY,JX) & + &,TRCO3(JZ,JY,JX),TRHCO(JZ,JY,JX),TRCO2(JZ,JY,JX),TRH2O(0:JZ,JY,JX)& + &,TRAL1(JZ,JY,JX),TRAL2(JZ,JY,JX),TRAL3(JZ,JY,JX),TRAL4(JZ,JY,JX) & + &,TRALS(JZ,JY,JX),TRFE1(JZ,JY,JX),TRFE2(JZ,JY,JX),TRFE3(JZ,JY,JX) & + &,TRFE4(JZ,JY,JX),TRFES(JZ,JY,JX),TRCAO(JZ,JY,JX),TRCAC(JZ,JY,JX) & + &,TRCAH(JZ,JY,JX),TRCAS(JZ,JY,JX),TRMGO(JZ,JY,JX),TRMGC(JZ,JY,JX) & + &,TRMGH(JZ,JY,JX),TRMGS(JZ,JY,JX),TRNAC(JZ,JY,JX),TRNAS(JZ,JY,JX) & + &,TRH0P(JZ,JY,JX),TRH1P(0:JZ,JY,JX),TRH2P(0:JZ,JY,JX) & + &,TRH3P(JZ,JY,JX),TRF1P(JZ,JY,JX),TRF2P(JZ,JY,JX),TRC0P(JZ,JY,JX) & + &,TRC1P(JZ,JY,JX),TRC2P(JZ,JY,JX),TRM1P(JZ,JY,JX),TRH0B(JZ,JY,JX) & + &,TRH1B(JZ,JY,JX),TRH2B(JZ,JY,JX),TRH3B(JZ,JY,JX),TRF1B(JZ,JY,JX) & + &,TRF2B(JZ,JY,JX),TRC0B(JZ,JY,JX),TRC1B(JZ,JY,JX),TRC2B(JZ,JY,JX) & + &,TRM1B(JZ,JY,JX),TRXN4(0:JZ,JY,JX),TRXNB(JZ,JY,JX),TRXHY(JZ,JY,JX)& + &,TRXAL(JZ,JY,JX),TRXCA(JZ,JY,JX),TRXMG(JZ,JY,JX),TRXNA(JZ,JY,JX) & + &,TRXKA(JZ,JY,JX),TRXHC(JZ,JY,JX),TRXAL2(JZ,JY,JX),TRKAS(JZ,JY,JX) & + &,TRXFE(JZ,JY,JX),TRXFE2(JZ,JY,JX) + diff --git a/f77src/blk21b.h b/f77src/blk21b.h index f508d86..2eb7ba2 100644 --- a/f77src/blk21b.h +++ b/f77src/blk21b.h @@ -1,10 +1,10 @@ - COMMON/BLK21B/TRXH0(0:JZ,JY,JX),TRXH1(0:JZ,JY,JX) - 2,TRXH2(0:JZ,JY,JX),TRX1P(0:JZ,JY,JX),TRX2P(0:JZ,JY,JX) - 3,TRBH0(JZ,JY,JX),TRBH1(JZ,JY,JX),TRBH2(JZ,JY,JX),TRB1P(JZ,JY,JX) - 4,TRB2P(JZ,JY,JX),TRALOH(JZ,JY,JX),TRFEOH(JZ,JY,JX) - 5,TRCACO(JZ,JY,JX),TRCASO(JZ,JY,JX),TRALPO(0:JZ,JY,JX) - 6,TRFEPO(0:JZ,JY,JX),TRCAPD(0:JZ,JY,JX),TRCAPH(0:JZ,JY,JX) - 7,TRCAPM(0:JZ,JY,JX),TRALPB(JZ,JY,JX),TRFEPB(JZ,JY,JX) - 8,TRCPDB(JZ,JY,JX),TRCPHB(JZ,JY,JX),TRCPMB(JZ,JY,JX) - 1,TBCO2(JZ,JY,JX),TBION(0:JZ,JY,JX) - 2,TRNO2(0:JZ,JY,JX),TRN2B(JZ,JY,JX),TRN3G(0:JZ,JY,JX) + COMMON/BLK21B/TRXH0(0:JZ,JY,JX),TRXH1(0:JZ,JY,JX) & + &,TRXH2(0:JZ,JY,JX),TRX1P(0:JZ,JY,JX),TRX2P(0:JZ,JY,JX) & + &,TRBH0(JZ,JY,JX),TRBH1(JZ,JY,JX),TRBH2(JZ,JY,JX),TRB1P(JZ,JY,JX) & + &,TRB2P(JZ,JY,JX),TRALOH(JZ,JY,JX),TRFEOH(JZ,JY,JX) & + &,TRCACO(JZ,JY,JX),TRCASO(JZ,JY,JX),TRALPO(0:JZ,JY,JX) & + &,TRFEPO(0:JZ,JY,JX),TRCAPD(0:JZ,JY,JX),TRCAPH(0:JZ,JY,JX) & + &,TRCAPM(0:JZ,JY,JX),TRALPB(JZ,JY,JX),TRFEPB(JZ,JY,JX) & + &,TRCPDB(JZ,JY,JX),TRCPHB(JZ,JY,JX),TRCPMB(JZ,JY,JX) & + &,TBCO2(JZ,JY,JX),TBION(0:JZ,JY,JX) & + &,TRNO2(0:JZ,JY,JX),TRN2B(JZ,JY,JX),TRN3G(0:JZ,JY,JX) diff --git a/f77src/blk22a.h b/f77src/blk22a.h index c3d7916..ff7dde4 100644 --- a/f77src/blk22a.h +++ b/f77src/blk22a.h @@ -1,20 +1,20 @@ - COMMON/BLK22A/FLU(JZ,JY,JX),HWFLU(JZ,JY,JX),RCOFLU(JZ,JY,JX) - 2,RCHFLU(JZ,JY,JX),ROXFLU(JZ,JY,JX),RNGFLU(JZ,JY,JX) - 3,RN2FLU(JZ,JY,JX),RN4FLU(JZ,JY,JX),RN3FLU(JZ,JY,JX) - 4,RNOFLU(JZ,JY,JX),RH2PFU(JZ,JY,JX),RN4FBU(JZ,JY,JX) - 5,RN3FBU(JZ,JY,JX),RNOFBU(JZ,JY,JX),RH2BBU(JZ,JY,JX) - 6,RALFLU(JZ,JY,JX),RFEFLU(JZ,JY,JX),RHYFLU(JZ,JY,JX) - 7,RCAFLU(JZ,JY,JX),RMGFLU(JZ,JY,JX),RNAFLU(JZ,JY,JX) - 8,RKAFLU(JZ,JY,JX),ROHFLU(JZ,JY,JX),RSOFLU(JZ,JY,JX) - 9,RCLFLU(JZ,JY,JX),RC3FLU(JZ,JY,JX),RHCFLU(JZ,JY,JX) - 1,RAL1FU(JZ,JY,JX),RAL2FU(JZ,JY,JX),RAL3FU(JZ,JY,JX) - 2,RAL4FU(JZ,JY,JX),RALSFU(JZ,JY,JX),RFE1FU(JZ,JY,JX) - 3,RFE2FU(JZ,JY,JX),RFE3FU(JZ,JY,JX),RFE4FU(JZ,JY,JX) - 4,RFESFU(JZ,JY,JX),RCAOFU(JZ,JY,JX),RCACFU(JZ,JY,JX) - 5,RCAHFU(JZ,JY,JX),RCASFU(JZ,JY,JX),RMGOFU(JZ,JY,JX) - 6,RMGCFU(JZ,JY,JX),RMGHFU(JZ,JY,JX),RMGSFU(JZ,JY,JX) - 7,RNACFU(JZ,JY,JX),RNASFU(JZ,JY,JX),RKASFU(JZ,JY,JX) - 8,RH0PFU(JZ,JY,JX),RH1PFU(JZ,JY,JX),RH3PFU(JZ,JY,JX) - 9,RF1PFU(JZ,JY,JX),RF2PFU(JZ,JY,JX),RC0PFU(JZ,JY,JX) - 1,RC1PFU(JZ,JY,JX),RHGFLU(JZ,JY,JX),RH1BBU(JZ,JY,JX) - \ No newline at end of file + COMMON/BLK22A/FLU(JZ,JY,JX),HWFLU(JZ,JY,JX),RCOFLU(JZ,JY,JX) & + &,RCHFLU(JZ,JY,JX),ROXFLU(JZ,JY,JX),RNGFLU(JZ,JY,JX) & + &,RN2FLU(JZ,JY,JX),RN4FLU(JZ,JY,JX),RN3FLU(JZ,JY,JX) & + &,RNOFLU(JZ,JY,JX),RH2PFU(JZ,JY,JX),RN4FBU(JZ,JY,JX) & + &,RN3FBU(JZ,JY,JX),RNOFBU(JZ,JY,JX),RH2BBU(JZ,JY,JX) & + &,RALFLU(JZ,JY,JX),RFEFLU(JZ,JY,JX),RHYFLU(JZ,JY,JX) & + &,RCAFLU(JZ,JY,JX),RMGFLU(JZ,JY,JX),RNAFLU(JZ,JY,JX) & + &,RKAFLU(JZ,JY,JX),ROHFLU(JZ,JY,JX),RSOFLU(JZ,JY,JX) & + &,RCLFLU(JZ,JY,JX),RC3FLU(JZ,JY,JX),RHCFLU(JZ,JY,JX) & + &,RAL1FU(JZ,JY,JX),RAL2FU(JZ,JY,JX),RAL3FU(JZ,JY,JX) & + &,RAL4FU(JZ,JY,JX),RALSFU(JZ,JY,JX),RFE1FU(JZ,JY,JX) & + &,RFE2FU(JZ,JY,JX),RFE3FU(JZ,JY,JX),RFE4FU(JZ,JY,JX) & + &,RFESFU(JZ,JY,JX),RCAOFU(JZ,JY,JX),RCACFU(JZ,JY,JX) & + &,RCAHFU(JZ,JY,JX),RCASFU(JZ,JY,JX),RMGOFU(JZ,JY,JX) & + &,RMGCFU(JZ,JY,JX),RMGHFU(JZ,JY,JX),RMGSFU(JZ,JY,JX) & + &,RNACFU(JZ,JY,JX),RNASFU(JZ,JY,JX),RKASFU(JZ,JY,JX) & + &,RH0PFU(JZ,JY,JX),RH1PFU(JZ,JY,JX),RH3PFU(JZ,JY,JX) & + &,RF1PFU(JZ,JY,JX),RF2PFU(JZ,JY,JX),RC0PFU(JZ,JY,JX) & + &,RC1PFU(JZ,JY,JX),RHGFLU(JZ,JY,JX),RH1BBU(JZ,JY,JX) + diff --git a/f77src/blk22b.h b/f77src/blk22b.h index ba43d8d..46ebca6 100644 --- a/f77src/blk22b.h +++ b/f77src/blk22b.h @@ -1,18 +1,18 @@ - COMMON/BLK22B/RC2PFU(JZ,JY,JX),RM1PFU(JZ,JY,JX) - 2,RH0BBU(JZ,JY,JX),RH3BBU(JZ,JY,JX) - 3,RF1BBU(JZ,JY,JX),RF2BBU(JZ,JY,JX),RC0BBU(JZ,JY,JX) - 4,RC1BBU(JZ,JY,JX),RC2BBU(JZ,JY,JX),RM1BBU(JZ,JY,JX) - 5,XCOBLS(JS,JY,JX),XCHBLS(JS,JY,JX),XOXBLS(JS,JY,JX) - 6,XNGBLS(JS,JY,JX),XN2BLS(JS,JY,JX),XN4BLW(JS,JY,JX) - 7,XN3BLW(JS,JY,JX),XNOBLW(JS,JY,JX),XH1PBS(JS,JY,JX) - 8,XH2PBS(JS,JY,JX),XALBLS(JS,JY,JX),XFEBLS(JS,JY,JX) - 9,XHYBLS(JS,JY,JX),XCABLS(JS,JY,JX),XMGBLS(JS,JY,JX) - 1,XNABLS(JS,JY,JX),XKABLS(JS,JY,JX),XOHBLS(JS,JY,JX) - 2,XSOBLS(JS,JY,JX),XCLBLS(JS,JY,JX),XC3BLS(JS,JY,JX) - 3,XHCBLS(JS,JY,JX),XAL1BS(JS,JY,JX),XAL2BS(JS,JY,JX) - 4,XAL3BS(JS,JY,JX),XAL4BS(JS,JY,JX),XALSBS(JS,JY,JX) - 5,XFE1BS(JS,JY,JX),XFE2BS(JS,JY,JX),XFE3BS(JS,JY,JX) - 6,XFE4BS(JS,JY,JX),XFESBS(JS,JY,JX),XCAOBS(JS,JY,JX) - 7,XCACBS(JS,JY,JX),XCAHBS(JS,JY,JX),XCASBS(JS,JY,JX) - 8,XMGOBS(JS,JY,JX),XMGCBS(JS,JY,JX),XHGBLS(JS,JY,JX) - + COMMON/BLK22B/RC2PFU(JZ,JY,JX),RM1PFU(JZ,JY,JX) & + &,RH0BBU(JZ,JY,JX),RH3BBU(JZ,JY,JX) & + &,RF1BBU(JZ,JY,JX),RF2BBU(JZ,JY,JX),RC0BBU(JZ,JY,JX) & + &,RC1BBU(JZ,JY,JX),RC2BBU(JZ,JY,JX),RM1BBU(JZ,JY,JX) & + &,XCOBLS(JS,JY,JX),XCHBLS(JS,JY,JX),XOXBLS(JS,JY,JX) & + &,XNGBLS(JS,JY,JX),XN2BLS(JS,JY,JX),XN4BLW(JS,JY,JX) & + &,XN3BLW(JS,JY,JX),XNOBLW(JS,JY,JX),XH1PBS(JS,JY,JX) & + &,XH2PBS(JS,JY,JX),XALBLS(JS,JY,JX),XFEBLS(JS,JY,JX) & + &,XHYBLS(JS,JY,JX),XCABLS(JS,JY,JX),XMGBLS(JS,JY,JX) & + &,XNABLS(JS,JY,JX),XKABLS(JS,JY,JX),XOHBLS(JS,JY,JX) & + &,XSOBLS(JS,JY,JX),XCLBLS(JS,JY,JX),XC3BLS(JS,JY,JX) & + &,XHCBLS(JS,JY,JX),XAL1BS(JS,JY,JX),XAL2BS(JS,JY,JX) & + &,XAL3BS(JS,JY,JX),XAL4BS(JS,JY,JX),XALSBS(JS,JY,JX) & + &,XFE1BS(JS,JY,JX),XFE2BS(JS,JY,JX),XFE3BS(JS,JY,JX) & + &,XFE4BS(JS,JY,JX),XFESBS(JS,JY,JX),XCAOBS(JS,JY,JX) & + &,XCACBS(JS,JY,JX),XCAHBS(JS,JY,JX),XCASBS(JS,JY,JX) & + &,XMGOBS(JS,JY,JX),XMGCBS(JS,JY,JX),XHGBLS(JS,JY,JX) + diff --git a/f77src/blk22c.h b/f77src/blk22c.h index dba7e26..ce1db1d 100644 --- a/f77src/blk22c.h +++ b/f77src/blk22c.h @@ -1,6 +1,6 @@ - COMMON/BLK22C/XMGHBS(JS,JY,JX),XMGSBS(JS,JY,JX) - 2,XNACBS(JS,JY,JX),XNASBS(JS,JY,JX),XKASBS(JS,JY,JX) - 3,XH0PBS(JS,JY,JX),XH3PBS(JS,JY,JX),XF1PBS(JS,JY,JX) - 4,XF2PBS(JS,JY,JX),XC0PBS(JS,JY,JX),XC1PBS(JS,JY,JX) - 5,XC2PBS(JS,JY,JX),XM1PBS(JS,JY,JX) - + COMMON/BLK22C/XMGHBS(JS,JY,JX),XMGSBS(JS,JY,JX) & + &,XNACBS(JS,JY,JX),XNASBS(JS,JY,JX),XKASBS(JS,JY,JX) & + &,XH0PBS(JS,JY,JX),XH3PBS(JS,JY,JX),XF1PBS(JS,JY,JX) & + &,XF2PBS(JS,JY,JX),XC0PBS(JS,JY,JX),XC1PBS(JS,JY,JX) & + &,XC2PBS(JS,JY,JX),XM1PBS(JS,JY,JX) + diff --git a/f77src/blk2a.h b/f77src/blk2a.h index 27e5116..962705f 100644 --- a/f77src/blk2a.h +++ b/f77src/blk2a.h @@ -1,30 +1,30 @@ - COMMON/BLK2A/TMPX(366),TMPN(366),SRAD(366),RAIN(366),WIND(366) - 2,DWPT(2,366),TMPH(24,366),SRADH(24,366),RAINH(24,366) - 3,WINDH(24,366),DWPTH(24,366),TCA(JY,JX),TKA(JY,JX),UA(JY,JX) - 4,VPA(JY,JX),VPK(JY,JX),DYLN(JY,JX),DYLX(JY,JX),ALTZ(JY,JX) - 5,PRECU(JY,JX),PRECR(JY,JX),PRECW(JY,JX),PRECI(JY,JX) - 6,PRECQ(JY,JX),PRECA(JY,JX),GSIN(JY,JX),GCOS(JY,JX),GAZI(JY,JX) - 7,OMEGAG(4,JY,JX),SL(2,JY,JX),ASP(JY,JX),ZS(JY,JX),ZD(JY,JX) - 8,ZR(JY,JX),ZM(JY,JX),Z0(JY,JX),ALT(JY,JX) - 9,RAB(JY,JX),RIB(JY,JX),THS(JY,JX),DTBLI(JY,JX),TRAD(JY,JX) - 1,TAMX(JY,JX),TAMN(JY,JX),HUDX(JY,JX),HUDN(JY,JX),TWIND(JY,JX) - 2,TRAI(JY,JX),THSX(JY,JX),OFFSET(JY,JX),DH(JY,JX) - 3,DV(JY,JX),PRECD(JY,JX),PRECB(JY,JX),DDRGI(JY,JX) - 4,FERT(20,366,JY,JX),FDPTH(366,JY,JX),RRIG(24,366,JY,JX) - 5,WDPTH(366,JY,JX),DCORP(366,JY,JX),CO2EI(JY,JX),CCO2EI(JY,JX) - 6,OXYE(JY,JX),COXYE(JY,JX),Z2OE(JY,JX),CZ2OE(JY,JX),Z2GE(JY,JX) - 7,CZ2GE(JY,JX),ZNH3E(JY,JX),CNH3E(JY,JX),CH4E(JY,JX),CCH4E(JY,JX) - 8,H2GE(JY,JX),CH2GE(JY,JX),DPTHT(JY,JX),ALTIG,ALTI(JY,JX) - 9,ZNOON(JY,JX),VAP,VAPS,DTBLX(JY,JX),CO2E(JY,JX),CCO2E(JY,JX) - 1,RADS(JY,JX),RADY(JY,JX),RAPS(JY,JX),RAPY(JY,JX),SSIN(JY,JX) - 2,SSINN(JY,JX),SCOS,SAZI,TYSIN,RCHGNU(JY,JX),RCHGEU(JY,JX) - 3,RCHGSU(JY,JX),RCHGWU(JY,JX),RCHGNT(JY,JX),RCHGET(JY,JX) - 4,RCHGST(JY,JX),RCHGWT(JY,JX),RCHQN(JY,JX),RCHQE(JY,JX) - 5,RCHQS(JY,JX),RCHQW(JY,JX),RCHGD(JY,JX),DTBLG(JY,JX) - 6,DPTHA(JY,JX),ROWN(JY,JX),ROWO(JY,JX),ROWP(JY,JX),ROWI(366,JY,JX) - 7,FIRRA(JY,JX),CIRRA(JY,JX),DIRRA(2,JY,JX),XWTHR(24,366) - 8,DTBLZ(JY,JX),TLEX(JY,JX),TSHX(JY,JX),TLEC(JY,JX) - 9,TSHC(JY,JX),DPTHSK(JY,JX),TKSD(JY,JX),TCNDG - 1,DDRG(JY,JX),ATCAI(JY,JX),RAD(JY,JX),RAP(JY,JX) - 2,IPRC(JY,JX),ITILL(366,JY,JX),IIRRA(4,JY,JX),IRCHG(2,2,JY,JX) - 3,ATCA(JY,JX),ATCS(JY,JX),ATKA(JY,JX),ATKS(JY,JX) + COMMON/BLK2A/TMPX(366),TMPN(366),SRAD(366),RAIN(366),WIND(366) & + &,DWPT(2,366),TMPH(24,366),SRADH(24,366),RAINH(24,366) & + &,WINDH(24,366),DWPTH(24,366),TCA(JY,JX),TKA(JY,JX),UA(JY,JX) & + &,VPA(JY,JX),VPK(JY,JX),DYLN(JY,JX),DYLX(JY,JX),ALTZ(JY,JX) & + &,PRECU(JY,JX),PRECR(JY,JX),PRECW(JY,JX),PRECI(JY,JX) & + &,PRECQ(JY,JX),PRECA(JY,JX),GSIN(JY,JX),GCOS(JY,JX),GAZI(JY,JX) & + &,OMEGAG(4,JY,JX),SL(2,JY,JX),ASP(JY,JX),ZS(JY,JX),ZD(JY,JX) & + &,ZR(JY,JX),ZM(JY,JX),Z0(JY,JX),ALT(JY,JX) & + &,RAB(JY,JX),RIB(JY,JX),THS(JY,JX),DTBLI(JY,JX),TRAD(JY,JX) & + &,TAMX(JY,JX),TAMN(JY,JX),HUDX(JY,JX),HUDN(JY,JX),TWIND(JY,JX) & + &,TRAI(JY,JX),THSX(JY,JX),OFFSET(JY,JX),DH(JY,JX) & + &,DV(JY,JX),PRECD(JY,JX),PRECB(JY,JX),DDRGI(JY,JX) & + &,FERT(20,366,JY,JX),FDPTH(366,JY,JX),RRIG(24,366,JY,JX) & + &,WDPTH(366,JY,JX),DCORP(366,JY,JX),CO2EI(JY,JX),CCO2EI(JY,JX) & + &,OXYE(JY,JX),COXYE(JY,JX),Z2OE(JY,JX),CZ2OE(JY,JX),Z2GE(JY,JX) & + &,CZ2GE(JY,JX),ZNH3E(JY,JX),CNH3E(JY,JX),CH4E(JY,JX),CCH4E(JY,JX) & + &,H2GE(JY,JX),CH2GE(JY,JX),DPTHT(JY,JX),ALTIG,ALTI(JY,JX) & + &,ZNOON(JY,JX),VAP,VAPS,DTBLX(JY,JX),CO2E(JY,JX),CCO2E(JY,JX) & + &,RADS(JY,JX),RADY(JY,JX),RAPS(JY,JX),RAPY(JY,JX),SSIN(JY,JX) & + &,SSINN(JY,JX),SCOS,SAZI,TYSIN,RCHGNU(JY,JX),RCHGEU(JY,JX) & + &,RCHGSU(JY,JX),RCHGWU(JY,JX),RCHGNT(JY,JX),RCHGET(JY,JX) & + &,RCHGST(JY,JX),RCHGWT(JY,JX),RCHQN(JY,JX),RCHQE(JY,JX) & + &,RCHQS(JY,JX),RCHQW(JY,JX),RCHGD(JY,JX),DTBLG(JY,JX) & + &,DPTHA(JY,JX),ROWN(JY,JX),ROWO(JY,JX),ROWP(JY,JX),ROWI(366,JY,JX) & + &,FIRRA(JY,JX),CIRRA(JY,JX),DIRRA(2,JY,JX),XWTHR(24,366) & + &,DTBLZ(JY,JX),TLEX(JY,JX),TSHX(JY,JX),TLEC(JY,JX) & + &,TSHC(JY,JX),DPTHSK(JY,JX),TKSD(JY,JX),TCNDG & + &,DDRG(JY,JX),ATCAI(JY,JX),RAD(JY,JX),RAP(JY,JX) & + &,IPRC(JY,JX),ITILL(366,JY,JX),IIRRA(4,JY,JX),IRCHG(2,2,JY,JX) & + &,ATCA(JY,JX),ATCS(JY,JX),ATKA(JY,JX),ATKS(JY,JX) diff --git a/f77src/blk2b.h b/f77src/blk2b.h index 53dfd99..ec80aef 100644 --- a/f77src/blk2b.h +++ b/f77src/blk2b.h @@ -1,27 +1,27 @@ - COMMON/BLK2B/PHR(JY,JX),CN4RI(JY,JX),CNORI(JY,JX),CN4R(JY,JX) - 2,CN3R(JY,JX),CNOR(JY,JX),CPOR(JY,JX),CALR(JY,JX),CFER(JY,JX) - 3,CHYR(JY,JX),CCAR(JY,JX),CMGR(JY,JX),CNAR(JY,JX),CKAR(JY,JX) - 4,COHR(JY,JX),CSOR(JY,JX),CCLR(JY,JX),CC3R(JY,JX),CHCR(JY,JX) - 5,CCHR(JY,JX),CAL1R(JY,JX),CAL2R(JY,JX),CAL3R(JY,JX),CAL4R(JY,JX) - 6,CALSR(JY,JX),CFE1R(JY,JX),CFE2R(JY,JX),CFE3R(JY,JX),CFE4R(JY,JX) - 7,CFESR(JY,JX),CCAOR(JY,JX),CCACR(JY,JX),CCAHR(JY,JX),CCASR(JY,JX) - 8,CMGOR(JY,JX),CMGCR(JY,JX),CMGHR(JY,JX),CMGSR(JY,JX),CNACR(JY,JX) - 9,CNASR(JY,JX),CKASR(JY,JX),CH0PR(JY,JX),CH1PR(JY,JX),CH3PR(JY,JX) - 1,CF1PR(JY,JX),CF2PR(JY,JX),CC0PR(JY,JX),CC1PR(JY,JX),CC2PR(JY,JX) - 2,CM1PR(JY,JX),CCOR(JY,JX),COXR(JY,JX),CNNR(JY,JX),CN2R(JY,JX) - 6,PHQ(366,JY,JX),CN4Q(366,JY,JX),CN3Q(366,JY,JX),CNOQ(366,JY,JX) - 7,CPOQ(366,JY,JX),CALQ(366,JY,JX),CFEQ(366,JY,JX),CHYQ(366,JY,JX) - 8,CCAQ(366,JY,JX),CMGQ(366,JY,JX),CNAQ(366,JY,JX),CKAQ(366,JY,JX) - 9,COHQ(366,JY,JX),CSOQ(366,JY,JX),CCLQ(366,JY,JX),CC3Q(366,JY,JX) - 1,CHCQ(366,JY,JX),CAL1Q(366,JY,JX),CAL2Q(366,JY,JX) - 2,CAL3Q(366,JY,JX),CAL4Q(366,JY,JX),CALSQ(366,JY,JX) - 3,CFE1Q(366,JY,JX),CFE2Q(366,JY,JX),CFE3Q(366,JY,JX) - 4,CFE4Q(366,JY,JX),CFESQ(366,JY,JX),CCAOQ(366,JY,JX) - 5,CCACQ(366,JY,JX),CCAHQ(366,JY,JX),CCASQ(366,JY,JX) - 6,CMGOQ(366,JY,JX),CMGCQ(366,JY,JX),CMGHQ(366,JY,JX) - 7,CMGSQ(366,JY,JX),CNACQ(366,JY,JX),CNASQ(366,JY,JX) - 8,CKASQ(366,JY,JX),CH0PQ(366,JY,JX),CH1PQ(366,JY,JX) - 9,CH3PQ(366,JY,JX),CF1PQ(366,JY,JX),CF2PQ(366,JY,JX) - 1,CC0PQ(366,JY,JX),CC1PQ(366,JY,JX),CC2PQ(366,JY,JX) - 2,CM1PQ(366,JY,JX),CSTRQ(366,JY,JX),DENS0(JY,JX) - 3,CSTRR(JY,JX) + COMMON/BLK2B/PHR(JY,JX),CN4RI(JY,JX),CNORI(JY,JX),CN4R(JY,JX) & + &,CN3R(JY,JX),CNOR(JY,JX),CPOR(JY,JX),CALR(JY,JX),CFER(JY,JX) & + &,CHYR(JY,JX),CCAR(JY,JX),CMGR(JY,JX),CNAR(JY,JX),CKAR(JY,JX) & + &,COHR(JY,JX),CSOR(JY,JX),CCLR(JY,JX),CC3R(JY,JX),CHCR(JY,JX) & + &,CCHR(JY,JX),CAL1R(JY,JX),CAL2R(JY,JX),CAL3R(JY,JX),CAL4R(JY,JX) & + &,CALSR(JY,JX),CFE1R(JY,JX),CFE2R(JY,JX),CFE3R(JY,JX),CFE4R(JY,JX) & + &,CFESR(JY,JX),CCAOR(JY,JX),CCACR(JY,JX),CCAHR(JY,JX),CCASR(JY,JX) & + &,CMGOR(JY,JX),CMGCR(JY,JX),CMGHR(JY,JX),CMGSR(JY,JX),CNACR(JY,JX) & + &,CNASR(JY,JX),CKASR(JY,JX),CH0PR(JY,JX),CH1PR(JY,JX),CH3PR(JY,JX) & + &,CF1PR(JY,JX),CF2PR(JY,JX),CC0PR(JY,JX),CC1PR(JY,JX),CC2PR(JY,JX) & + &,CM1PR(JY,JX),CCOR(JY,JX),COXR(JY,JX),CNNR(JY,JX),CN2R(JY,JX) & + &,PHQ(366,JY,JX),CN4Q(366,JY,JX),CN3Q(366,JY,JX),CNOQ(366,JY,JX) & + &,CPOQ(366,JY,JX),CALQ(366,JY,JX),CFEQ(366,JY,JX),CHYQ(366,JY,JX) & + &,CCAQ(366,JY,JX),CMGQ(366,JY,JX),CNAQ(366,JY,JX),CKAQ(366,JY,JX) & + &,COHQ(366,JY,JX),CSOQ(366,JY,JX),CCLQ(366,JY,JX),CC3Q(366,JY,JX) & + &,CHCQ(366,JY,JX),CAL1Q(366,JY,JX),CAL2Q(366,JY,JX) & + &,CAL3Q(366,JY,JX),CAL4Q(366,JY,JX),CALSQ(366,JY,JX) & + &,CFE1Q(366,JY,JX),CFE2Q(366,JY,JX),CFE3Q(366,JY,JX) & + &,CFE4Q(366,JY,JX),CFESQ(366,JY,JX),CCAOQ(366,JY,JX) & + &,CCACQ(366,JY,JX),CCAHQ(366,JY,JX),CCASQ(366,JY,JX) & + &,CMGOQ(366,JY,JX),CMGCQ(366,JY,JX),CMGHQ(366,JY,JX) & + &,CMGSQ(366,JY,JX),CNACQ(366,JY,JX),CNASQ(366,JY,JX) & + &,CKASQ(366,JY,JX),CH0PQ(366,JY,JX),CH1PQ(366,JY,JX) & + &,CH3PQ(366,JY,JX),CF1PQ(366,JY,JX),CF2PQ(366,JY,JX) & + &,CC0PQ(366,JY,JX),CC1PQ(366,JY,JX),CC2PQ(366,JY,JX) & + &,CM1PQ(366,JY,JX),CSTRQ(366,JY,JX),DENS0(JY,JX) & + &,CSTRR(JY,JX) diff --git a/f77src/blk2c.h b/f77src/blk2c.h index 4f5261e..a39f340 100644 --- a/f77src/blk2c.h +++ b/f77src/blk2c.h @@ -1,15 +1,15 @@ - COMMON/BLK2C/CCOQ(JY,JX),CCHQ(JY,JX),COXQ(JY,JX),CNNQ(JY,JX) - 2,CN2Q(JY,JX),COCU(0:4,JZ,JY,JX),CONU(0:4,JZ,JY,JX) - 3,COAU(0:4,JZ,JY,JX),CN4U(JZ,JY,JX),CN3U(JZ,JY,JX),CNOU(JZ,JY,JX) - 4,CH2PU(JZ,JY,JX),CNZU(JZ,JY,JX),CALU(JZ,JY,JX),CFEU(JZ,JY,JX) - 5,CHYU(JZ,JY,JX),CCAU(JZ,JY,JX),CMGU(JZ,JY,JX),CNAU(JZ,JY,JX) - 6,CKAU(JZ,JY,JX),COHU(JZ,JY,JX),CSOU(JZ,JY,JX),CCLU(JZ,JY,JX) - 7,CC3U(JZ,JY,JX),CHCU(JZ,JY,JX),CAL1U(JZ,JY,JX),CAL2U(JZ,JY,JX) - 8,CAL3U(JZ,JY,JX),CAL4U(JZ,JY,JX),CALSU(JZ,JY,JX),CFE1U(JZ,JY,JX) - 9,CFE2U(JZ,JY,JX),CFE3U(JZ,JY,JX),CFE4U(JZ,JY,JX),CFESU(JZ,JY,JX) - 1,CCAOU(JZ,JY,JX),CCACU(JZ,JY,JX),CCAHU(JZ,JY,JX),CCASU(JZ,JY,JX) - 2,CMGOU(JZ,JY,JX),CMGCU(JZ,JY,JX),CMGHU(JZ,JY,JX),CMGSU(JZ,JY,JX) - 3,CNACU(JZ,JY,JX),CNASU(JZ,JY,JX),CKASU(JZ,JY,JX),CH0PU(JZ,JY,JX) - 4,CH1PU(JZ,JY,JX),CH3PU(JZ,JY,JX),CF1PU(JZ,JY,JX),CF2PU(JZ,JY,JX) - 5,CC0PU(JZ,JY,JX),CC1PU(JZ,JY,JX),CC2PU(JZ,JY,JX),CM1PU(JZ,JY,JX) - 6,COPU(0:4,JZ,JY,JX),CCOU,CCHU,COXU,CNNU,CN2U,BKRS(0:2) + COMMON/BLK2C/CCOQ(JY,JX),CCHQ(JY,JX),COXQ(JY,JX),CNNQ(JY,JX) & + &,CN2Q(JY,JX),COCU(0:4,JZ,JY,JX),CONU(0:4,JZ,JY,JX) & + &,COAU(0:4,JZ,JY,JX),CN4U(JZ,JY,JX),CN3U(JZ,JY,JX),CNOU(JZ,JY,JX) & + &,CH2PU(JZ,JY,JX),CNZU(JZ,JY,JX),CALU(JZ,JY,JX),CFEU(JZ,JY,JX) & + &,CHYU(JZ,JY,JX),CCAU(JZ,JY,JX),CMGU(JZ,JY,JX),CNAU(JZ,JY,JX) & + &,CKAU(JZ,JY,JX),COHU(JZ,JY,JX),CSOU(JZ,JY,JX),CCLU(JZ,JY,JX) & + &,CC3U(JZ,JY,JX),CHCU(JZ,JY,JX),CAL1U(JZ,JY,JX),CAL2U(JZ,JY,JX) & + &,CAL3U(JZ,JY,JX),CAL4U(JZ,JY,JX),CALSU(JZ,JY,JX),CFE1U(JZ,JY,JX) & + &,CFE2U(JZ,JY,JX),CFE3U(JZ,JY,JX),CFE4U(JZ,JY,JX),CFESU(JZ,JY,JX) & + &,CCAOU(JZ,JY,JX),CCACU(JZ,JY,JX),CCAHU(JZ,JY,JX),CCASU(JZ,JY,JX) & + &,CMGOU(JZ,JY,JX),CMGCU(JZ,JY,JX),CMGHU(JZ,JY,JX),CMGSU(JZ,JY,JX) & + &,CNACU(JZ,JY,JX),CNASU(JZ,JY,JX),CKASU(JZ,JY,JX),CH0PU(JZ,JY,JX) & + &,CH1PU(JZ,JY,JX),CH3PU(JZ,JY,JX),CF1PU(JZ,JY,JX),CF2PU(JZ,JY,JX) & + &,CC0PU(JZ,JY,JX),CC1PU(JZ,JY,JX),CC2PU(JZ,JY,JX),CM1PU(JZ,JY,JX) & + &,COPU(0:4,JZ,JY,JX),CCOU,CCHU,COXU,CNNU,CN2U,BKRS(0:2) diff --git a/f77src/blk3.h b/f77src/blk3.h index badce73..a3b8fc4 100644 --- a/f77src/blk3.h +++ b/f77src/blk3.h @@ -1,15 +1,15 @@ - COMMON/BLK3/GROUP(JC,JP,JY,JX),GSTGI(JC,JP,JY,JX) - 2,PSILZ(JP,JY,JX),VSTG(JC,JP,JY,JX),VSTGX(JC,JP,JY,JX) - 3,DGSTGI(JC,JP,JY,JX),DGSTGF(JC,JP,JY,JX),PSTG(JC,JP,JY,JX) - 4,PSTGI(JC,JP,JY,JX),GSTGF(JC,JP,JY,JX),PSTGF(JC,JP,JY,JX) - 5,TGSTGI(JC,JP,JY,JX),TGSTGF(JC,JP,JY,JX),FLG4(JC,JP,JY,JX) - 6,VRNS(JC,JP,JY,JX),VRNF(JC,JP,JY,JX),ATRP(JC,JP,JY,JX) - 7,FLGZ(JC,JP,JY,JX),VRNY(JC,JP,JY,JX),VRNZ(JC,JP,JY,JX) - 8,NBR(JP,JY,JX),NB1(JP,JY,JX),NRT(JP,JY,JX),KVSTGN(JC,JP,JY,JX) - 9,IDAY(10,JC,JP,JY,JX),NBT(JP,JY,JX),NBTB(JC,JP,JY,JX) - 1,NINR(JC,JP,JY,JX),KLEAF(JC,JP,JY,JX) - 2,IDTHR(JP,JY,JX),IFLGR(JC,JP,JY,JX),IFLGQ(JC,JP,JY,JX) - 3,IFLGG(JC,JP,JY,JX),IDTHP(JP,JY,JX),KVSTG(JC,JP,JY,JX) - 4,IDTHB(JC,JP,JY,JX),NIX(JP,JY,JX),NI(JP,JY,JX),NG(JP,JY,JX) - 5,IFLGP(JC,JP,JY,JX),IFLGA(JC,JP,JY,JX),IFLGE(JC,JP,JY,JX) - 6,IFLGF(JC,JP,JY,JX),IFLGD(JC,JP,JY,JX),KLEAFX(JC,JP,JY,JX) + COMMON/BLK3/GROUP(JC,JP,JY,JX),GSTGI(JC,JP,JY,JX) & + &,PSILZ(JP,JY,JX),VSTG(JC,JP,JY,JX),VSTGX(JC,JP,JY,JX) & + &,DGSTGI(JC,JP,JY,JX),DGSTGF(JC,JP,JY,JX),PSTG(JC,JP,JY,JX) & + &,PSTGI(JC,JP,JY,JX),GSTGF(JC,JP,JY,JX),PSTGF(JC,JP,JY,JX) & + &,TGSTGI(JC,JP,JY,JX),TGSTGF(JC,JP,JY,JX),FLG4(JC,JP,JY,JX) & + &,VRNS(JC,JP,JY,JX),VRNF(JC,JP,JY,JX),ATRP(JC,JP,JY,JX) & + &,FLGZ(JC,JP,JY,JX),VRNY(JC,JP,JY,JX),VRNZ(JC,JP,JY,JX) & + &,NBR(JP,JY,JX),NB1(JP,JY,JX),NRT(JP,JY,JX),KVSTGN(JC,JP,JY,JX) & + &,IDAY(10,JC,JP,JY,JX),NBT(JP,JY,JX),NBTB(JC,JP,JY,JX) & + &,NINR(JC,JP,JY,JX),KLEAF(JC,JP,JY,JX) & + &,IDTHR(JP,JY,JX),IFLGR(JC,JP,JY,JX),IFLGQ(JC,JP,JY,JX) & + &,IFLGG(JC,JP,JY,JX),IDTHP(JP,JY,JX),KVSTG(JC,JP,JY,JX) & + &,IDTHB(JC,JP,JY,JX),NIX(JP,JY,JX),NI(JP,JY,JX),NG(JP,JY,JX) & + &,IFLGP(JC,JP,JY,JX),IFLGA(JC,JP,JY,JX),IFLGE(JC,JP,JY,JX) & + &,IFLGF(JC,JP,JY,JX),IFLGD(JC,JP,JY,JX),KLEAFX(JC,JP,JY,JX) diff --git a/f77src/blk5.h b/f77src/blk5.h index 12d36db..21c7a23 100644 --- a/f77src/blk5.h +++ b/f77src/blk5.h @@ -1,5 +1,5 @@ - COMMON/BLK5/BETA(4,4),OMEGA(4,4,4),BETX(4,4),IALBY(4,4,4) - 3,OMEGX(4,4,4),ZSIN(4),ZCOS(4) - 5,TAU0(16,JY,JX),TAUS(16,JY,JX),FRADG(JY,JX),RADG(JY,JX) - 6,THRMCX(JY,JX),THRMGX(JY,JX),ARLFX(JY,JX),ARSTX(JY,JX) - 7,CNETX(JY,JX),ZT(JY,JX),ZL(0:JC,JY,JX) + COMMON/BLK5/BETA(4,4),OMEGA(4,4,4),BETX(4,4),IALBY(4,4,4) & + &,OMEGX(4,4,4),ZSIN(4),ZCOS(4) & + &,TAU0(16,JY,JX),TAUS(16,JY,JX),FRADG(JY,JX),RADG(JY,JX) & + &,THRMCX(JY,JX),THRMGX(JY,JX),ARLFX(JY,JX),ARSTX(JY,JX) & + &,CNETX(JY,JX),ZT(JY,JX),ZL(0:JC,JY,JX) diff --git a/f77src/blk6.h b/f77src/blk6.h index 71179f4..a705746 100644 --- a/f77src/blk6.h +++ b/f77src/blk6.h @@ -1,2 +1,2 @@ - COMMON/BLK6/AZI,RMAX,DEC,TAVG1,TAVG2,TAVG3,AMP1,AMP2,AMP3 - 2,VAVG1,VAVG2,VAVG3,VMP1,VMP2,VMP3 + COMMON/BLK6/AZI,RMAX,DEC,TAVG1,TAVG2,TAVG3,AMP1,AMP2,AMP3 & + &,VAVG1,VAVG2,VAVG3,VMP1,VMP2,VMP3 diff --git a/f77src/blk8a.h b/f77src/blk8a.h index 9f3b603..01f09b5 100644 --- a/f77src/blk8a.h +++ b/f77src/blk8a.h @@ -1,19 +1,19 @@ - COMMON/BLK8A/PSIFC(JY,JX),PSIWP(JY,JX),FMPR(0:JZ,JY,JX) - 1,ALBS(JY,JX),CDPTH(0:JZ,JY,JX),ROCK(JZ,JY,JX),TSED(JY,JX) - 2,BKDS(0:JZ,JY,JX),FC(JZ,JY,JX),WP(JZ,JY,JX),SCNV(JZ,JY,JX) - 3,SCNH(JZ,JY,JX),CSAND(JZ,JY,JX),CSILT(JZ,JY,JX),CCLAY(JZ,JY,JX) - 4,FHOL(JZ,JY,JX),PHOL(JZ,JY,JX),DHOL(JZ,JY,JX),HRAD(JZ,JY,JX) - 5,BKDSI(JZ,JY,JX),PH(0:JZ,JY,JX),CEC(JZ,JY,JX),AEC(JZ,JY,JX) - 6,CORGC(0:JZ,JY,JX),CORGR(JZ,JY,JX),CORGN(JZ,JY,JX),CORGP(JZ,JY,JX) - 7,CNH4(JZ,JY,JX),CNO3(JZ,JY,JX),CPO4(JZ,JY,JX),CAL(JZ,JY,JX) - 8,CFE(JZ,JY,JX),CCA(JZ,JY,JX),CMG(JZ,JY,JX),CNA(JZ,JY,JX) - 9,CKA(JZ,JY,JX),CSO4(JZ,JY,JX),CCL(JZ,JY,JX),CALOH(JZ,JY,JX) - 1,CFEOH(JZ,JY,JX),CCACO(JZ,JY,JX),CCASO(JZ,JY,JX),CALPO(JZ,JY,JX) - 2,CFEPO(JZ,JY,JX),CCAPD(JZ,JY,JX),CCAPH(JZ,JY,JX),SED(JY,JX) - 3,GKC4(JZ,JY,JX),GKCH(JZ,JY,JX),GKCA(JZ,JY,JX),GKCM(JZ,JY,JX) - 4,GKCN(JZ,JY,JX),GKCK(JZ,JY,JX),THW(JZ,JY,JX),THI(JZ,JY,JX) - 5,RSC(0:2,0:JZ,JY,JX),RSN(0:2,0:JZ,JY,JX),RSP(0:2,0:JZ,JY,JX) - 6,CNOFC(4,0:2),CPOFC(4,0:2),DETS(JY,JX),COHS(JY,JX),CER(JY,JX) - 7,XER(JY,JX),SLOPE(3,JY,JX),CDPTHI(JY,JX) - 8,NU(JY,JX),NUI(JY,JX),NJ(JY,JX),NK(JY,JX),NLI(JV,JH),NL(JV,JH) - 9,ISOILR(JY,JX),NW(JY,JX),NHOL(JZ,JY,JX),NUM(JY,JX) + COMMON/BLK8A/PSIFC(JY,JX),PSIWP(JY,JX),FMPR(0:JZ,JY,JX) & + &,ALBS(JY,JX),CDPTH(0:JZ,JY,JX),ROCK(JZ,JY,JX),TSED(JY,JX) & + &,BKDS(0:JZ,JY,JX),FC(JZ,JY,JX),WP(JZ,JY,JX),SCNV(JZ,JY,JX) & + &,SCNH(JZ,JY,JX),CSAND(JZ,JY,JX),CSILT(JZ,JY,JX),CCLAY(JZ,JY,JX) & + &,FHOL(JZ,JY,JX),PHOL(JZ,JY,JX),DHOL(JZ,JY,JX),HRAD(JZ,JY,JX) & + &,BKDSI(JZ,JY,JX),PH(0:JZ,JY,JX),CEC(JZ,JY,JX),AEC(JZ,JY,JX) & + &,CORGC(0:JZ,JY,JX),CORGR(JZ,JY,JX),CORGN(JZ,JY,JX),CORGP(JZ,JY,JX)& + &,CNH4(JZ,JY,JX),CNO3(JZ,JY,JX),CPO4(JZ,JY,JX),CAL(JZ,JY,JX) & + &,CFE(JZ,JY,JX),CCA(JZ,JY,JX),CMG(JZ,JY,JX),CNA(JZ,JY,JX) & + &,CKA(JZ,JY,JX),CSO4(JZ,JY,JX),CCL(JZ,JY,JX),CALOH(JZ,JY,JX) & + &,CFEOH(JZ,JY,JX),CCACO(JZ,JY,JX),CCASO(JZ,JY,JX),CALPO(JZ,JY,JX) & + &,CFEPO(JZ,JY,JX),CCAPD(JZ,JY,JX),CCAPH(JZ,JY,JX),SED(JY,JX) & + &,GKC4(JZ,JY,JX),GKCH(JZ,JY,JX),GKCA(JZ,JY,JX),GKCM(JZ,JY,JX) & + &,GKCN(JZ,JY,JX),GKCK(JZ,JY,JX),THW(JZ,JY,JX),THI(JZ,JY,JX) & + &,RSC(0:2,0:JZ,JY,JX),RSN(0:2,0:JZ,JY,JX),RSP(0:2,0:JZ,JY,JX) & + &,CNOFC(4,0:2),CPOFC(4,0:2),DETS(JY,JX),COHS(JY,JX),CER(JY,JX) & + &,XER(JY,JX),SLOPE(3,JY,JX),CDPTHI(JY,JX) & + &,NU(JY,JX),NUI(JY,JX),NJ(JY,JX),NK(JY,JX),NLI(JV,JH),NL(JV,JH) & + &,ISOILR(JY,JX),NW(JY,JX),NHOL(JZ,JY,JX),NUM(JY,JX) diff --git a/f77src/blk8b.h b/f77src/blk8b.h index a6bd579..eb4e020 100644 --- a/f77src/blk8b.h +++ b/f77src/blk8b.h @@ -1,12 +1,12 @@ - COMMON/BLK8B/ALBX(JY,JX),DPTH(JZ,JY,JX),DLYR(3,0:JZ,JY,JX) - 2,POROS(0:JZ,JY,JX),PSL(JZ,JY,JX),FCL(JZ,JY,JX) - 3,WPL(JZ,JY,JX),PSD(JZ,JY,JX),FCD(JZ,JY,JX),ZD50(JY,JX) - 4,VOLX(0:JZ,JY,JX),BKVL(0:JZ,JY,JX),SRP(JZ,JY,JX),FORGC,FVLWB,FCH4F - 5,CNRH(0:4),CPRH(0:4),DIST(3,JD,JV,JH),XDPTH(3,JZ,JY,JX) - 6,POROQ(0:JZ,JY,JX),TFND(0:JZ,JY,JX),FCI,WPI - 7,PSIMS(JY,JX),PSIMX(JY,JX),PSIMN(JY,JX),PSISD(JY,JX),PSIMD(JY,JX) - 8,SAND(JZ,JY,JX),SILT(JZ,JY,JX),CLAY(JZ,JY,JX),CDPTHZ(0:JZ,JY,JX) - 9,DPTHZ(JZ,JY,JX),AREA(3,0:JZ,JY,JX),DISP(3,JD,JV,JH),OXKM,PSIHY - 1,VOLXI(0:JZ,JY,JX),DLYRI(3,0:JZ,JY,JX),OMCI(3,0:4),OMCF(7),OMCA(7) - 2,VOLAI(0:JZ,JY,JX),IUTYP(JY,JX),IXTYP(2,JY,JX) - 3,IYTYP(0:2,366,JY,JX) + COMMON/BLK8B/ALBX(JY,JX),DPTH(JZ,JY,JX),DLYR(3,0:JZ,JY,JX) & + &,POROS(0:JZ,JY,JX),PSL(JZ,JY,JX),FCL(JZ,JY,JX) & + &,WPL(JZ,JY,JX),PSD(JZ,JY,JX),FCD(JZ,JY,JX),ZD50(JY,JX) & + &,VOLX(0:JZ,JY,JX),BKVL(0:JZ,JY,JX),SRP(JZ,JY,JX),FORGC,FVLWB,FCH4F& + &,CNRH(0:4),CPRH(0:4),DIST(3,JD,JV,JH),XDPTH(3,JZ,JY,JX) & + &,POROQ(0:JZ,JY,JX),TFND(0:JZ,JY,JX),FCI,WPI & + &,PSIMS(JY,JX),PSIMX(JY,JX),PSIMN(JY,JX),PSISD(JY,JX),PSIMD(JY,JX) & + &,SAND(JZ,JY,JX),SILT(JZ,JY,JX),CLAY(JZ,JY,JX),CDPTHZ(0:JZ,JY,JX) & + &,DPTHZ(JZ,JY,JX),AREA(3,0:JZ,JY,JX),DISP(3,JD,JV,JH),OXKM,PSIHY & + &,VOLXI(0:JZ,JY,JX),DLYRI(3,0:JZ,JY,JX),OMCI(3,0:4),OMCF(7),OMCA(7)& + &,VOLAI(0:JZ,JY,JX),IUTYP(JY,JX),IXTYP(2,JY,JX) & + &,IYTYP(0:2,366,JY,JX) diff --git a/f77src/blk9a.h b/f77src/blk9a.h index 0e717d3..4b82f98 100644 --- a/f77src/blk9a.h +++ b/f77src/blk9a.h @@ -1,19 +1,19 @@ - COMMON/BLK9A/VCMX(JP,JY,JX),VOMX(JP,JY,JX),VCMX4(JP,JY,JX) - 2,XKCO2(JP,JY,JX),XKO2(JP,JY,JX),XKCO24(JP,JY,JX) - 3,RUBP(JP,JY,JX),PEPC(JP,JY,JX),ETMX(JP,JY,JX),CHL(JP,JY,JX) - 4,CHL4(JP,JY,JX),XRNI(JP,JY,JX),XRLA(JP,JY,JX),CTC(JP,JY,JX) - 5,FCO2(JP,JY,JX),WDLF(JP,JY,JX),PB(JP,JY,JX),SLA1(JP,JY,JX) - 6,SSL1(JP,JY,JX),SNL1(JP,JY,JX),VRNL(JC,JP,JY,JX),HTC(JP,JY,JX) - 7,SSTX(JP,JY,JX),FNOD(JP,JY,JX),DMLF(JP,JY,JX),DMSHE(JP,JY,JX) - 8,DMSTK(JP,JY,JX),DMRSV(JP,JY,JX),DMHSK(JP,JY,JX),DMEAR(JP,JY,JX) - 9,DMGR(JP,JY,JX),DMRT(JP,JY,JX),DMND(JP,JY,JX),RSMX(JP,JY,JX) - 1,RCMX(JP,JY,JX),RSMH(JP,JY,JX),CNLF(JP,JY,JX),CNSHE(JP,JY,JX) - 2,CNSTK(JP,JY,JX),CNRSV(JP,JY,JX),CNHSK(JP,JY,JX),CNEAR(JP,JY,JX) - 3,CNGR(JP,JY,JX),CNRT(JP,JY,JX),CNND(JP,JY,JX),CPLF(JP,JY,JX) - 4,CPSHE(JP,JY,JX),CPSTK(JP,JY,JX),CPRSV(JP,JY,JX),CPHSK(JP,JY,JX) - 5,CPEAR(JP,JY,JX),CPGR(JP,JY,JX),CPRT(JP,JY,JX),CPND(JP,JY,JX) - 6,CLASS(4,JP,JY,JX),CF(JP,JY,JX),XDL(JP,JY,JX),XPPD(JP,JY,JX) - 7,CFI(JP,JY,JX),XTLI(JP,JY,JX),OSMO(JP,JY,JX),RCS(JP,JY,JX) - 8,STMX(JP,JY,JX),SDMX(JP,JY,JX),GRMX(JP,JY,JX),PPZ(JP,JY,JX) - 9,GRDM(JP,JY,JX),GFILL(JP,JY,JX),SDPTHI(JP,JY,JX),VRNX(JC,JP,JY,JX) - 1,CFX(JP,JY,JX) + COMMON/BLK9A/VCMX(JP,JY,JX),VOMX(JP,JY,JX),VCMX4(JP,JY,JX) & + &,XKCO2(JP,JY,JX),XKO2(JP,JY,JX),XKCO24(JP,JY,JX) & + &,RUBP(JP,JY,JX),PEPC(JP,JY,JX),ETMX(JP,JY,JX),CHL(JP,JY,JX) & + &,CHL4(JP,JY,JX),XRNI(JP,JY,JX),XRLA(JP,JY,JX),CTC(JP,JY,JX) & + &,FCO2(JP,JY,JX),WDLF(JP,JY,JX),PB(JP,JY,JX),SLA1(JP,JY,JX) & + &,SSL1(JP,JY,JX),SNL1(JP,JY,JX),VRNL(JC,JP,JY,JX),HTC(JP,JY,JX) & + &,SSTX(JP,JY,JX),FNOD(JP,JY,JX),DMLF(JP,JY,JX),DMSHE(JP,JY,JX) & + &,DMSTK(JP,JY,JX),DMRSV(JP,JY,JX),DMHSK(JP,JY,JX),DMEAR(JP,JY,JX) & + &,DMGR(JP,JY,JX),DMRT(JP,JY,JX),DMND(JP,JY,JX),RSMX(JP,JY,JX) & + &,RCMX(JP,JY,JX),RSMH(JP,JY,JX),CNLF(JP,JY,JX),CNSHE(JP,JY,JX) & + &,CNSTK(JP,JY,JX),CNRSV(JP,JY,JX),CNHSK(JP,JY,JX),CNEAR(JP,JY,JX) & + &,CNGR(JP,JY,JX),CNRT(JP,JY,JX),CNND(JP,JY,JX),CPLF(JP,JY,JX) & + &,CPSHE(JP,JY,JX),CPSTK(JP,JY,JX),CPRSV(JP,JY,JX),CPHSK(JP,JY,JX) & + &,CPEAR(JP,JY,JX),CPGR(JP,JY,JX),CPRT(JP,JY,JX),CPND(JP,JY,JX) & + &,CLASS(4,JP,JY,JX),CF(JP,JY,JX),XDL(JP,JY,JX),XPPD(JP,JY,JX) & + &,CFI(JP,JY,JX),XTLI(JP,JY,JX),OSMO(JP,JY,JX),RCS(JP,JY,JX) & + &,STMX(JP,JY,JX),SDMX(JP,JY,JX),GRMX(JP,JY,JX),PPZ(JP,JY,JX) & + &,GRDM(JP,JY,JX),GFILL(JP,JY,JX),SDPTHI(JP,JY,JX),VRNX(JC,JP,JY,JX)& + &,CFX(JP,JY,JX) diff --git a/f77src/blk9b.h b/f77src/blk9b.h index e6d1d54..ca9ad52 100644 --- a/f77src/blk9b.h +++ b/f77src/blk9b.h @@ -1,12 +1,12 @@ - COMMON/BLK9B/OFFST(JP,JY,JX),RRAD1M(2,JP,JY,JX),RRAD2M(2,JP,JY,JX) - 2,TCZ(JP,JY,JX),PORT(2,JP,JY,JX),PR(JP,JY,JX),RSRR(2,JP,JY,JX) - 3,RSRA(2,JP,JY,JX),PTSHT(JP,JY,JX),UPMXZH(2,JP,JY,JX) - 4,UPKMZH(2,JP,JY,JX),UPMNZH(2,JP,JY,JX),UPMXZO(2,JP,JY,JX) - 5,UPKMZO(2,JP,JY,JX),UPMNZO(2,JP,JY,JX),UPMXPO(2,JP,JY,JX) - 6,UPKMPO(2,JP,JY,JX),UPMNPO(2,JP,JY,JX),RRADP(2,JP,JY,JX) - 7,CNRTS(JP,JY,JX),CPRTS(JP,JY,JX),ALBR(JP,JY,JX),ALBP(JP,JY,JX) - 8,TAUR(JP,JY,JX),TAUP(JP,JY,JX),ABSR(JP,JY,JX),ABSP(JP,JY,JX) - 9,TCX(JP,JY,JX),ZTYPI(JP,JY,JX),TCZD,TCXD - 1,ZTYP(JP,JY,JX),ICTYP(JP,JY,JX),IGTYP(JP,JY,JX),ISTYP(JP,JY,JX) - 2,IDTYP(JP,JY,JX),NNOD(JP,JY,JX),INTYP(JP,JY,JX),IWTYP(JP,JY,JX) - 3,IPTYP(JP,JY,JX),IBTYP(JP,JY,JX),IRTYP(JP,JY,JX),MY(JP,JY,JX) + COMMON/BLK9B/OFFST(JP,JY,JX),RRAD1M(2,JP,JY,JX),RRAD2M(2,JP,JY,JX)& + &,TCZ(JP,JY,JX),PORT(2,JP,JY,JX),PR(JP,JY,JX),RSRR(2,JP,JY,JX) & + &,RSRA(2,JP,JY,JX),PTSHT(JP,JY,JX),UPMXZH(2,JP,JY,JX) & + &,UPKMZH(2,JP,JY,JX),UPMNZH(2,JP,JY,JX),UPMXZO(2,JP,JY,JX) & + &,UPKMZO(2,JP,JY,JX),UPMNZO(2,JP,JY,JX),UPMXPO(2,JP,JY,JX) & + &,UPKMPO(2,JP,JY,JX),UPMNPO(2,JP,JY,JX),RRADP(2,JP,JY,JX) & + &,CNRTS(JP,JY,JX),CPRTS(JP,JY,JX),ALBR(JP,JY,JX),ALBP(JP,JY,JX) & + &,TAUR(JP,JY,JX),TAUP(JP,JY,JX),ABSR(JP,JY,JX),ABSP(JP,JY,JX) & + &,TCX(JP,JY,JX),ZTYPI(JP,JY,JX),TCZD,TCXD & + &,ZTYP(JP,JY,JX),ICTYP(JP,JY,JX),IGTYP(JP,JY,JX),ISTYP(JP,JY,JX) & + &,IDTYP(JP,JY,JX),NNOD(JP,JY,JX),INTYP(JP,JY,JX),IWTYP(JP,JY,JX) & + &,IPTYP(JP,JY,JX),IBTYP(JP,JY,JX),IRTYP(JP,JY,JX),MY(JP,JY,JX) diff --git a/f77src/blk9c.h b/f77src/blk9c.h index 1dc1b83..bbe2013 100644 --- a/f77src/blk9c.h +++ b/f77src/blk9c.h @@ -1,11 +1,11 @@ - COMMON/BLK9C/HVST(05,366,JY,JX),GROUPI(JP,JY,JX),PPI(JP,JY,JX) - 2,GROUPX(JP,JY,JX),RTFQ(JP,JY,JX) - 3,SDPTH(JP,JY,JX),SDVL(JP,JY,JX),SDLG(JP,JY,JX) - 4,SDAR(JP,JY,JX),ANGBR(JP,JY,JX),ANGSH(JP,JY,JX),CNWS(JP,JY,JX) - 5,CPWS(JP,JY,JX),CWSRT(JP,JY,JX),WTSTDI(JP,JY,JX),PPX(JP,JY,JX) - 6,THIN(05,366,JY,JX),EHVST(2,4,05,366,JY,JX),PORTX(2,JP,JY,JX) - 7,IYR0(JP,JY,JX),IYRH(JP,JY,JX),IDAY0(JP,JY,JX),IDAYH(JP,JY,JX) - 8,IHVST(05,366,JY,JX),JHVST(05,366,JY,JX) - 9,IDTH(JP,JY,JX),IYRX(JP,JY,JX),IDAYX(JP,JY,JX),IYRY(JP,JY,JX) - 1,IDAYY(JP,JY,JX) - + COMMON/BLK9C/HVST(05,366,JY,JX),GROUPI(JP,JY,JX),PPI(JP,JY,JX) & + &,GROUPX(JP,JY,JX),RTFQ(JP,JY,JX) & + &,SDPTH(JP,JY,JX),SDVL(JP,JY,JX),SDLG(JP,JY,JX) & + &,SDAR(JP,JY,JX),ANGBR(JP,JY,JX),ANGSH(JP,JY,JX),CNWS(JP,JY,JX) & + &,CPWS(JP,JY,JX),CWSRT(JP,JY,JX),WTSTDI(JP,JY,JX),PPX(JP,JY,JX) & + &,THIN(05,366,JY,JX),EHVST(2,4,05,366,JY,JX),PORTX(2,JP,JY,JX) & + &,IYR0(JP,JY,JX),IYRH(JP,JY,JX),IDAY0(JP,JY,JX),IDAYH(JP,JY,JX) & + &,IHVST(05,366,JY,JX),JHVST(05,366,JY,JX) & + &,IDTH(JP,JY,JX),IYRX(JP,JY,JX),IDAYX(JP,JY,JX),IYRY(JP,JY,JX) & + &,IDAYY(JP,JY,JX) + diff --git a/f77src/blkc.h b/f77src/blkc.h index 991dbf5..24865c0 100644 --- a/f77src/blkc.h +++ b/f77src/blkc.h @@ -1,14 +1,14 @@ - COMMON/BLKC/DRAD(12),DTMPX(12),DTMPN(12),DHUM(12),DPREC(12) - 2,DIRRI(12),DWIND(12),DCO2E(12),DCN4R(12),DCNOR(12),TDIRI(JY,JX,12) - 3,TDTPX(JY,JX,12),TDTPN(JY,JX,12),TDRAD(JY,JX,12),TDHUM(JY,JX,12) - 4,TDPRC(JY,JX,12),TDWND(JY,JX,12),TDCO2(JY,JX,12),TDCN4(JY,JX,12) - 5,TDCNO(JY,JX,12),TAREA,XDIM,XCORP(JY,JX),ZERO,ZERO2,ZEROS(JY,JX) - 6,ZEROP(JP,JY,JX),ZEROQ(JP,JY,JX),ZEROL(JP,JY,JX),XH(3,0:JZ,JY,JX) - 7,XHS(JY,JX),XNPH,XNPT,XNPG,XNPR,XNPD,ALAT(JY,JX),DOY,DYLM(JY,JX) - 8,XNPS,XNPY,XNPZ,XNPQ,XNPV,ZEROS2(JY,JX),IFLGV(JY,JX) - 8,IGO,IFLGS(JY,JX),IFNHB(JY,JX),IFNOB(JY,JX),IFPOB(JY,JX) - 9,IWTHR(2),IDAYR,IYRC,IYRR,NYR,ITERM,IFIN,ISALTG - 1,IERSNG,NCN(JY,JX),NPX,NPY,NPH,NPT,NPG,ICLM,IMNG,IFLGW - 2,NPR,NPS,JOUT,IOUT,KOUT,IOLD,ILAST,IRUN,IBEGIN,ISTART,IEND - 3,ISOIL(0:4,JZ,JY,JX),LYRX,LYRC,LSG(JZ,JY,JX),NP(JY,JX) - 4,NP0(JY,JX),IFLGI(JP,JY,JX),IFLGC(JP,JY,JX),IETYP(JY,JX) + COMMON/BLKC/DRAD(12),DTMPX(12),DTMPN(12),DHUM(12),DPREC(12) & + &,DIRRI(12),DWIND(12),DCO2E(12),DCN4R(12),DCNOR(12),TDIRI(JY,JX,12)& + &,TDTPX(JY,JX,12),TDTPN(JY,JX,12),TDRAD(JY,JX,12),TDHUM(JY,JX,12) & + &,TDPRC(JY,JX,12),TDWND(JY,JX,12),TDCO2(JY,JX,12),TDCN4(JY,JX,12) & + &,TDCNO(JY,JX,12),TAREA,XDIM,XCORP(JY,JX),ZERO,ZERO2,ZEROS(JY,JX) & + &,ZEROP(JP,JY,JX),ZEROQ(JP,JY,JX),ZEROL(JP,JY,JX),XH(3,0:JZ,JY,JX) & + &,XHS(JY,JX),XNPH,XNPT,XNPG,XNPR,XNPD,ALAT(JY,JX),DOY,DYLM(JY,JX) & + &,XNPS,XNPY,XNPZ,XNPQ,XNPV,ZEROS2(JY,JX),IFLGV(JY,JX) & + &,IGO,IFLGS(JY,JX),IFNHB(JY,JX),IFNOB(JY,JX),IFPOB(JY,JX) & + &,IWTHR(2),IDAYR,IYRC,IYRR,NYR,ITERM,IFIN,ISALTG & + &,IERSNG,NCN(JY,JX),NPX,NPY,NPH,NPT,NPG,ICLM,IMNG,IFLGW & + &,NPR,NPS,JOUT,IOUT,KOUT,IOLD,ILAST,IRUN,IBEGIN,ISTART,IEND & + &,ISOIL(0:4,JZ,JY,JX),LYRX,LYRC,LSG(JZ,JY,JX),NP(JY,JX) & + &,NP0(JY,JX),IFLGI(JP,JY,JX),IFLGC(JP,JY,JX),IETYP(JY,JX) diff --git a/f77src/filec.h b/f77src/filec.h index df317a6..ae97769 100644 --- a/f77src/filec.h +++ b/f77src/filec.h @@ -1,2 +1,2 @@ - COMMON/FILEC/DATA,DATAC,DATAP,DATAM,DATAX,DATAY,DATAZ - 2,OUTS,OUTP,OUTFILS,OUTFILP,CHOICE,CDATE,PREFIX + COMMON/FILEC/DATA,DATAC,DATAP,DATAM,DATAX,DATAY,DATAZ & + &,OUTS,OUTP,OUTFILS,OUTFILP,CHOICE,CDATE,PREFIX diff --git a/f77src/parameters.h b/f77src/parameters.h index b1f28a9..302d37f 100644 --- a/f77src/parameters.h +++ b/f77src/parameters.h @@ -1,2 +1,2 @@ - PARAMETER(JX=10,JY=10,JZ=20,JH=JX+1,JV=JY+1,JD=JZ+1 - 2,JP=5,JC=10,JS=5) + PARAMETER(JX=10,JY=10,JZ=20,JH=JX+1,JV=JY+1,JD=JZ+1 & + &,JP=5,JC=10,JS=5)