Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

.h files update #10

Open
wants to merge 2 commits into
base: master
Choose a base branch
from
Open

.h files update #10

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
8a6c282
.h files updated
GeorgeTsikas Dec 22, 2020
63fb368
Merge pull request #1 from GeorgeTsikas/GeorgeTsikas-patch-2
GeorgeTsikas Dec 22, 2020
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
18 changes: 9 additions & 9 deletions f77src/blk10.h
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -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)
54 changes: 27 additions & 27 deletions f77src/blk11a.h
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -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)
26 changes: 13 additions & 13 deletions f77src/blk11b.h
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -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)
42 changes: 21 additions & 21 deletions f77src/blk12a.h
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -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)

36 changes: 18 additions & 18 deletions f77src/blk12b.h
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -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)

50 changes: 25 additions & 25 deletions f77src/blk13a.h
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -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)

50 changes: 25 additions & 25 deletions f77src/blk13b.h
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -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)

Loading