| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
1123 |
TIME2FREQ2 |
DO I=15,48 |
|
./pkg/fizhi/fizhi_clockstuff.F |
1124 |
TIME2FREQ2 |
MNDY(I) = MNDY(I-12) + 365 |
|
./pkg/fizhi/fizhi_clockstuff.F |
347 |
GET_TIME |
DO I=15,48 |
|
./pkg/fizhi/fizhi_clockstuff.F |
349 |
GET_TIME |
MNDY(I) = MNDY(I-12) + 365 |
|
./pkg/fizhi/fizhi_clockstuff.F |
476 |
INTERP_TIME |
DO I=15,48 |
|
./pkg/fizhi/fizhi_clockstuff.F |
477 |
INTERP_TIME |
MNDY(I) = MNDY(I-12) + 365 |
|
./pkg/fizhi/fizhi_clockstuff.F |
622 |
TIC_TIME |
DO I=15,48 |
|
./pkg/fizhi/fizhi_clockstuff.F |
623 |
TIC_TIME |
MNDY(I) = MNDY(I-12) + 365 |
|
./pkg/fizhi/fizhi_clockstuff.F |
696 |
TIC_TIME |
DO I=15,48 |
|
./pkg/fizhi/fizhi_clockstuff.F |
697 |
TIC_TIME |
MNDY(I) = MNDY(I-12) + 365 |
|
./pkg/fizhi/fizhi_clockstuff.F |
936 |
ASTRO |
DO 100 I=15,48 |
|
./pkg/fizhi/fizhi_clockstuff.F |
937 |
ASTRO |
MNDY(I) = MNDY(I-12) + 365 |
|
./pkg/fizhi/fizhi_clockstuff.F |
984 |
ASTRO |
DO I = 1,IRUN |
|
./pkg/fizhi/fizhi_clockstuff.F |
986 |
ASTRO |
HC = COS( FAC+ALON(I)*DG2RD ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
987 |
ASTRO |
SJ = SIN(ALAT(I)*DG2RD) |
|
./pkg/fizhi/fizhi_clockstuff.F |
990 |
ASTRO |
COSZ(I) = SJ*ZS + CJ*ZC*HC |
|
./pkg/fizhi/fizhi_clockstuff.F |
991 |
ASTRO |
IF( COSZ(I).LT.ZERO ) COSZ(I) = ZERO |
|
./pkg/fizhi/fizhi_lwrad.F |
145 |
LWRIO |
DO I = 1,ISTRIP |
|
./pkg/fizhi/fizhi_lwrad.F |
146 |
LWRIO |
ADELPL(I,L) = convrt / ( ple(I,L+1)-ple(I,L) ) |
|
./pkg/fizhi/fizhi_lwrad.F |
154 |
LWRIO |
DO I = 1,ISTRIP |
|
./pkg/fizhi/fizhi_lwrad.F |
155 |
LWRIO |
CLRO(I,L) = min( 1.0 _d 0,clro(i,L) ) |
|
./pkg/fizhi/fizhi_lwrad.F |
156 |
LWRIO |
CLMO(I,L) = min( 1.0 _d 0,clmo(i,L) ) |
|
./pkg/fizhi/fizhi_lwrad.F |
164 |
LWRIO |
DO I = 1,ISTRIP |
|
./pkg/fizhi/fizhi_lwrad.F |
165 |
LWRIO |
TZL(I,L) = TZL(I,L)*pk(I,L) |
|
./pkg/fizhi/fizhi_lwrad.F |
168 |
LWRIO |
DO I = 1,ISTRIP |
|
./pkg/fizhi/fizhi_lwrad.F |
170 |
LWRIO |
TZL(I,lm) = ( 2*tzl(i,lm)+tsurf(i) )/3.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
236 |
LWRIO |
DO I = 1,ISTRIP |
|
./pkg/fizhi/fizhi_lwrad.F |
263 |
LWRIO |
DO I = 1,ISTRIP |
|
./pkg/fizhi/fizhi_lwrad.F |
264 |
LWRIO |
DTRAD (I,L) = ple(i,lm+1) * DTRAD (I,L)/pk(I,L) |
|
./pkg/fizhi/fizhi_lwrad.F |
265 |
LWRIO |
DTRADC(I,L) = ple(i,lm+1) * DTRADC(I,L)/pk(I,L) |
|
./pkg/fizhi/fizhi_lwrad.F |
266 |
LWRIO |
dtdtg(I,L) = ple(i,lm+1) * dtdtg (I,L)/pk(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
1236 |
RAS |
do I = 1,LENC |
|
./pkg/fizhi/fizhi_moist.F |
1271 |
RAS |
DO I=1,ncrnd |
|
./pkg/fizhi/fizhi_moist.F |
1272 |
RAS |
IRND(I) = (RND(I)-0.0005)*(KCR-KRMIN+1) |
|
./pkg/fizhi/fizhi_moist.F |
1273 |
RAS |
IRND(I) = IRND(I) + KRMIN |
|
./pkg/fizhi/fizhi_moist.F |
1340 |
RAS |
DO I=1,LENC |
|
./pkg/fizhi/fizhi_moist.F |
1341 |
RAS |
thbef(I,L) = POI(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
1342 |
RAS |
POI(I,L) = POI(I,L) + TCU(I,L) * DT * rhfrac(i) |
|
./pkg/fizhi/fizhi_moist.F |
1343 |
RAS |
QOI(I,L) = QOI(I,L) + QCU(I,L) * DT * rhfrac(i) |
|
./pkg/fizhi/fizhi_moist.F |
1348 |
RAS |
DO I=1,LENC |
|
./pkg/fizhi/fizhi_moist.F |
1349 |
RAS |
UOI(I,L+nltop-1,NT)=UOI(I,L+nltop-1,NT)+UCU(I,L,NT)*DT*rhfrac(i) |
|
./pkg/fizhi/fizhi_moist.F |
1353 |
RAS |
DO I=1,LENC |
|
./pkg/fizhi/fizhi_moist.F |
1354 |
RAS |
rains(I,ib) = rains(I,ib) + PCU(I)*dt * rhfrac(i) |
|
./pkg/fizhi/fizhi_moist.F |
1365 |
RAS |
temp = TCU(I,L) * DT * rhfrac(i) |
|
./pkg/fizhi/fizhi_moist.F |
1690 |
CLOUD |
DO 2030 I=1,LENC |
|
./pkg/fizhi/fizhi_moist.F |
1691 |
CLOUD |
PRH(I,L) = (PRJ(I,L+1)*PRS(I,L+1) - PRJ(I,L)*PRS(I,L)) |
|
./pkg/fizhi/fizhi_moist.F |
1692 |
CLOUD |
* / ((PRS(I,L+1)-PRS(I,L)) * RKAPP1) |
|
./pkg/fizhi/fizhi_moist.F |
1697 |
CLOUD |
DO 2060 I=1,LENC |
|
./pkg/fizhi/fizhi_moist.F |
1698 |
CLOUD |
TX5(I) = POI(I,L) * PRH(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
1699 |
CLOUD |
TX1(I) = (PRS(I,L) + PRS(I,L+1)) * 0.5 |
|
./pkg/fizhi/fizhi_moist.F |
1700 |
CLOUD |
TX3(I) = TX5(I) |
|
./pkg/fizhi/fizhi_moist.F |
1701 |
CLOUD |
CALL QSAT(TX3(I), TX1(I), TX2(I), TX4(I), .TRUE.) |
|
./pkg/fizhi/fizhi_moist.F |
1702 |
CLOUD |
ALF(I,L) = TX2(I) - TX4(I) * TX5(I) |
|
./pkg/fizhi/fizhi_moist.F |
1703 |
CLOUD |
BET(I,L) = TX4(I) * PRH(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
1704 |
CLOUD |
GAM(I,L) = 1.0 / ((1.0 + TX4(I)*ALBCP) * PRH(I,L)) |
|
./pkg/fizhi/fizhi_moist.F |
1705 |
CLOUD |
PRI(I,L) = (CP/CMB2PA) / (PRS(I,L+1) - PRS(I,L)) |
|
./pkg/fizhi/fizhi_moist.F |
1713 |
CLOUD |
DO 10 I=1,lng |
|
./pkg/fizhi/fizhi_moist.F |
1714 |
CLOUD |
TCU(I,L) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
1715 |
CLOUD |
QCU(I,L) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
1716 |
CLOUD |
CMASS(I,L) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
1721 |
CLOUD |
do I=1,LENC |
|
./pkg/fizhi/fizhi_moist.F |
1722 |
CLOUD |
ucu(I,L,nt) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
1727 |
CLOUD |
DO 30 I=1,LENC |
|
./pkg/fizhi/fizhi_moist.F |
1728 |
CLOUD |
TX1(I) = PRJ(I,K+1) * POI(I,K) |
|
./pkg/fizhi/fizhi_moist.F |
1729 |
CLOUD |
QS1(I) = ALF(I,K) + BET(I,K)*POI(I,K) |
|
./pkg/fizhi/fizhi_moist.F |
1730 |
CLOUD |
QOL(I,K) = MIN(QS1(I)*RHMAX,QOI(I,K)) |
|
./pkg/fizhi/fizhi_moist.F |
1732 |
CLOUD |
HOL(I,K) = TX1(I)*CP + QOL(I,K)*ALHL |
|
./pkg/fizhi/fizhi_moist.F |
1733 |
CLOUD |
ETA(I,K) = ZERO |
|
./pkg/fizhi/fizhi_moist.F |
1734 |
CLOUD |
TX2(I) = (PRJ(I,K+1) - PRJ(I,K)) * POI(I,K) * CP |
|
./pkg/fizhi/fizhi_moist.F |
1739 |
CLOUD |
DO 50 I=1,LENC |
|
./pkg/fizhi/fizhi_moist.F |
1740 |
CLOUD |
QS1(I) = ALF(I,L) + BET(I,L)*POI(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
1741 |
CLOUD |
QOL(I,L) = MIN(QS1(I)*RHMAX,QOI(I,L)) |
|
./pkg/fizhi/fizhi_moist.F |
1743 |
CLOUD |
TEM1 = TX2(I) + PRJ(I,L+1) * POI(I,L) * CP |
|
./pkg/fizhi/fizhi_moist.F |
1744 |
CLOUD |
HOL(I,L) = TEM1 + QOL(I,L )* ALHL |
|
./pkg/fizhi/fizhi_moist.F |
1745 |
CLOUD |
HST(I,L) = TEM1 + QS1(I) * ALHL |
|
./pkg/fizhi/fizhi_moist.F |
1747 |
CLOUD |
TX1(I) = (PRJ(I,L+1) - PRJ(I,L)) * POI(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
1748 |
CLOUD |
ETA(I,L) = ETA(I,L+1) + TX1(I)*CPBG |
|
./pkg/fizhi/fizhi_moist.F |
1749 |
CLOUD |
TX2(I) = TX2(I) + TX1(I)*CP |
|
./pkg/fizhi/fizhi_moist.F |
1756 |
CLOUD |
DO 70 I=1,LENC |
|
./pkg/fizhi/fizhi_moist.F |
1757 |
CLOUD |
HOL(I,IC) = TX2(I) |
|
./pkg/fizhi/fizhi_moist.F |
1758 |
CLOUD |
QS1(I) = ALF(I,IC) + BET(I,IC)*POI(I,IC) |
|
./pkg/fizhi/fizhi_moist.F |
1759 |
CLOUD |
QOL(I,IC) = MIN(QS1(I)*RHMAX,QOI(I,IC)) |
|
./pkg/fizhi/fizhi_moist.F |
1761 |
CLOUD |
TEM1 = TX2(I) + PRJ(I,IC1) * POI(I,IC) * CP |
|
./pkg/fizhi/fizhi_moist.F |
1762 |
CLOUD |
HOL(I,IC) = TEM1 + QOL(I,IC) * ALHL |
|
./pkg/fizhi/fizhi_moist.F |
1763 |
CLOUD |
HST(I,IC) = TEM1 + QS1(I) * ALHL |
|
./pkg/fizhi/fizhi_moist.F |
1765 |
CLOUD |
TX3(I ) = (PRJ(I,IC1) - PRH(I,IC)) * POI(I,IC) |
|
./pkg/fizhi/fizhi_moist.F |
1766 |
CLOUD |
ETA(I,IC) = ETA(I,IC1) + CPBG * TX3(I) |
|
./pkg/fizhi/fizhi_moist.F |
1769 |
CLOUD |
DO 130 I=1,LENC |
|
./pkg/fizhi/fizhi_moist.F |
1770 |
CLOUD |
TX2(I) = HOL(I,K) - HST(I,IC) |
|
./pkg/fizhi/fizhi_moist.F |
1771 |
CLOUD |
TX1(I) = ZERO |
|
./pkg/fizhi/fizhi_moist.F |
1778 |
CLOUD |
DO 160 I=1,LENC |
|
./pkg/fizhi/fizhi_moist.F |
1779 |
CLOUD |
TX1(I) = TX1(I) + (HST(I,IC) - HOL(I,L)) * (ETA(I,L) - ETA(I,L+1)) |
|
./pkg/fizhi/fizhi_moist.F |
1785 |
CLOUD |
DO 195 I=1,LENC |
|
./pkg/fizhi/fizhi_moist.F |
1786 |
CLOUD |
IF (TX1(I) .GT. ZERO .AND. TX2(I) .GT. ZERO |
|
./pkg/fizhi/fizhi_moist.F |
1789 |
CLOUD |
IA(LEN1) = I |
|
./pkg/fizhi/fizhi_moist.F |
1790 |
CLOUD |
ALM(LEN1) = TX2(I) / TX1(I) |
|
./pkg/fizhi/fizhi_moist.F |
1796 |
CLOUD |
DO 196 I=1,LENC |
|
./pkg/fizhi/fizhi_moist.F |
1797 |
CLOUD |
IF (TX2(I) .LE. 0.0 .AND. (HOL(I,K) .GT. HST(I,IC1)) |
|
./pkg/fizhi/fizhi_moist.F |
1800 |
CLOUD |
IA(LEN2) = I |
|
./pkg/fizhi/fizhi_moist.F |
1812 |
CLOUD |
DO I = 1,LENC |
|
./pkg/fizhi/fizhi_moist.F |
1813 |
CLOUD |
HST(I,L) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
1814 |
CLOUD |
QOL(I,L) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
1817 |
CLOUD |
DO 5020 I=1,LENC |
|
./pkg/fizhi/fizhi_moist.F |
1818 |
CLOUD |
PCU(I) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
1826 |
CLOUD |
DO 250 I=1,LEN2 |
|
./pkg/fizhi/fizhi_moist.F |
1827 |
CLOUD |
ETA(I,K) = 1.0 |
|
./pkg/fizhi/fizhi_moist.F |
1828 |
CLOUD |
II = IA(I) |
|
./pkg/fizhi/fizhi_moist.F |
1829 |
CLOUD |
TX2(I) = 0.5 * (PRS(II,IC) + PRS(II,IC1)) |
|
./pkg/fizhi/fizhi_moist.F |
1830 |
CLOUD |
TX4(I) = PRS(II,K) |
|
./pkg/fizhi/fizhi_moist.F |
1833 |
CLOUD |
DO 252 I=LEN11,LEN2 |
|
./pkg/fizhi/fizhi_moist.F |
1834 |
CLOUD |
WFN(I) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
1835 |
CLOUD |
II = IA(I) |
|
./pkg/fizhi/fizhi_moist.F |
1837 |
CLOUD |
TX6(I) = (HST(II,IC1)-HOL(II,K))/(HST(II,IC1)-HST(II,IC)) |
|
./pkg/fizhi/fizhi_moist.F |
1839 |
CLOUD |
TX6(I) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
1841 |
CLOUD |
TX2(I) = 0.5 * (PRS(II,IC1)+PRS(II,IC1+1)) * (1.0-TX6(I)) |
|
./pkg/fizhi/fizhi_moist.F |
1842 |
CLOUD |
* + TX2(I) * TX6(I) |
|
./pkg/fizhi/fizhi_moist.F |
1848 |
CLOUD |
DO 255 I=1,LEN2 |
|
./pkg/fizhi/fizhi_moist.F |
1849 |
CLOUD |
TX1(I) = ETA(IA(I),L) |
|
./pkg/fizhi/fizhi_moist.F |
1851 |
CLOUD |
DO 260 I=1,LEN2 |
|
./pkg/fizhi/fizhi_moist.F |
1852 |
CLOUD |
ETA(I,L) = 1.0 + ALM(I) * TX1(I) |
|
./pkg/fizhi/fizhi_moist.F |
1858 |
CLOUD |
DO 270 I=1,LEN1 |
|
./pkg/fizhi/fizhi_moist.F |
1859 |
CLOUD |
II = IA(I) |
|
./pkg/fizhi/fizhi_moist.F |
1860 |
CLOUD |
WFN(I) = - GAM(II,IC) * (PRJ(II,IC1) - PRH(II,IC)) |
|
./pkg/fizhi/fizhi_moist.F |
1861 |
CLOUD |
* * HST(II,IC) * ETA(I,IC1) |
|
./pkg/fizhi/fizhi_moist.F |
1865 |
CLOUD |
DO 290 I=1,LEN2 |
|
./pkg/fizhi/fizhi_moist.F |
1866 |
CLOUD |
II = IA(I) |
|
./pkg/fizhi/fizhi_moist.F |
1867 |
CLOUD |
TX1(I) = HOL(II,K) |
|
./pkg/fizhi/fizhi_moist.F |
1873 |
CLOUD |
DO 380 I=1,LEN2 |
|
./pkg/fizhi/fizhi_moist.F |
1874 |
CLOUD |
II = IA(I) |
|
./pkg/fizhi/fizhi_moist.F |
1875 |
CLOUD |
TEM = TX1(I) + (ETA(I,L) - ETA(I,L+1)) * HOL(II,L) |
|
./pkg/fizhi/fizhi_moist.F |
1877 |
CLOUD |
PCU(I) = PRJ(II,L+1) - PRH(II,L) |
|
./pkg/fizhi/fizhi_moist.F |
1878 |
CLOUD |
TEM1 = ETA(I,L+1) * PCU(I) |
|
./pkg/fizhi/fizhi_moist.F |
1879 |
CLOUD |
TX1(I) = TX1(I)*PCU(I) |
|
./pkg/fizhi/fizhi_moist.F |
1881 |
CLOUD |
PCU(I) = PRH(II,L) - PRJ(II,L) |
|
./pkg/fizhi/fizhi_moist.F |
1882 |
CLOUD |
TEM1 = (TEM1 + ETA(I,L) * PCU(I)) * HST(II,L) |
|
./pkg/fizhi/fizhi_moist.F |
1883 |
CLOUD |
TX1(I) = TX1(I) + TEM*PCU(I) |
|
./pkg/fizhi/fizhi_moist.F |
1885 |
CLOUD |
WFN(I) = WFN(I) + (TX1(I) - TEM1) * GAM(II,L) |
|
./pkg/fizhi/fizhi_moist.F |
1886 |
CLOUD |
TX1(I) = TEM |
|
./pkg/fizhi/fizhi_moist.F |
1892 |
CLOUD |
DO 512 I=1,LEN1 |
|
./pkg/fizhi/fizhi_moist.F |
1893 |
CLOUD |
II = IA(I) |
|
./pkg/fizhi/fizhi_moist.F |
1894 |
CLOUD |
WFN(I) = WFN(I) + TX1(I) * GAM(II,IC)*(PRJ(II,IC1)-PRH(II,IC)) |
|
./pkg/fizhi/fizhi_moist.F |
1895 |
CLOUD |
* - TX3(I) |
|
./pkg/fizhi/fizhi_moist.F |
1896 |
CLOUD |
IF (WFN(I) .GT. 0.0) THEN |
|
./pkg/fizhi/fizhi_moist.F |
1898 |
CLOUD |
I1(LENA) = IA(I) |
|
./pkg/fizhi/fizhi_moist.F |
1899 |
CLOUD |
I2(LENA) = I |
|
./pkg/fizhi/fizhi_moist.F |
1900 |
CLOUD |
TX1(LENA) = WFN(I) |
|
./pkg/fizhi/fizhi_moist.F |
1901 |
CLOUD |
TX2(LENA) = QS1(IA(I)) |
|
./pkg/fizhi/fizhi_moist.F |
1907 |
CLOUD |
DO 515 I=LEN11,LEN2 |
|
./pkg/fizhi/fizhi_moist.F |
1908 |
CLOUD |
WFN(I) = WFN(I) - TX3(I) |
|
./pkg/fizhi/fizhi_moist.F |
1909 |
CLOUD |
IF (WFN(I) .GT. 0.0 .AND. TX6(I) .GT. 0.0) THEN |
|
./pkg/fizhi/fizhi_moist.F |
1911 |
CLOUD |
I1(LENB) = IA(I) |
|
./pkg/fizhi/fizhi_moist.F |
1912 |
CLOUD |
I2(LENB) = I |
|
./pkg/fizhi/fizhi_moist.F |
1913 |
CLOUD |
TX1(LENB) = WFN(I) |
|
./pkg/fizhi/fizhi_moist.F |
1914 |
CLOUD |
TX2(LENB) = QS1(IA(I)) |
|
./pkg/fizhi/fizhi_moist.F |
1915 |
CLOUD |
TX4(LENB) = TX6(I) |
|
./pkg/fizhi/fizhi_moist.F |
1925 |
CLOUD |
DO I = 1,LENC |
|
./pkg/fizhi/fizhi_moist.F |
1926 |
CLOUD |
HST(I,L) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
1927 |
CLOUD |
QOL(I,L) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
1930 |
CLOUD |
DO 5040 I=1,LENC |
|
./pkg/fizhi/fizhi_moist.F |
1931 |
CLOUD |
PCU(I) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
1937 |
CLOUD |
DO 516 I=1,LENB |
|
./pkg/fizhi/fizhi_moist.F |
1938 |
CLOUD |
WFN(I) = TX1(I) |
|
./pkg/fizhi/fizhi_moist.F |
1939 |
CLOUD |
QS1(I) = TX2(I) |
|
./pkg/fizhi/fizhi_moist.F |
1943 |
CLOUD |
DO 517 I=1,LENB |
|
./pkg/fizhi/fizhi_moist.F |
1944 |
CLOUD |
TX1(I) = ETA(I2(I),L) |
|
./pkg/fizhi/fizhi_moist.F |
1946 |
CLOUD |
DO 520 I=1,LENB |
|
./pkg/fizhi/fizhi_moist.F |
1947 |
CLOUD |
ETA(I,L) = TX1(I) |
|
./pkg/fizhi/fizhi_moist.F |
1952 |
CLOUD |
DO 510 I=1,LENA |
|
./pkg/fizhi/fizhi_moist.F |
1953 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
1954 |
CLOUD |
TX8(I) = HST(II,IC) - HOL(II,IC) |
|
./pkg/fizhi/fizhi_moist.F |
1956 |
CLOUD |
DO 530 I=LENA1,LENB |
|
./pkg/fizhi/fizhi_moist.F |
1957 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
1958 |
CLOUD |
TX6(I) = TX4(I) |
|
./pkg/fizhi/fizhi_moist.F |
1959 |
CLOUD |
TEM = TX6(I) * (HOL(II,IC)-HOL(II,IC1)) + HOL(II,IC1) |
|
./pkg/fizhi/fizhi_moist.F |
1960 |
CLOUD |
TX8(I) = HOL(II,K) - TEM |
|
./pkg/fizhi/fizhi_moist.F |
1962 |
CLOUD |
TEM1 = TX6(I) * (QOL(II,IC)-QOL(II,IC1)) + QOL(II,IC1) |
|
./pkg/fizhi/fizhi_moist.F |
1963 |
CLOUD |
TX5(I) = TEM - TEM1 * ALHL |
|
./pkg/fizhi/fizhi_moist.F |
1964 |
CLOUD |
QS1(I) = TEM1 + TX8(I)*(ONE/ALHL) |
|
./pkg/fizhi/fizhi_moist.F |
1965 |
CLOUD |
TX3(I) = HOL(II,IC) |
|
./pkg/fizhi/fizhi_moist.F |
1969 |
CLOUD |
DO 620 I=1,LENB |
|
./pkg/fizhi/fizhi_moist.F |
1970 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
1971 |
CLOUD |
WLQ(I) = QOL(II,K) - QS1(I) * ETA(I,IC) |
|
./pkg/fizhi/fizhi_moist.F |
1972 |
CLOUD |
TX7(I) = HOL(II,K) |
|
./pkg/fizhi/fizhi_moist.F |
1975 |
CLOUD |
DO 621 I=1,LENB |
|
./pkg/fizhi/fizhi_moist.F |
1976 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
1977 |
CLOUD |
UHT(I,NT) = UOI(II,K+nltop-1,NT)-UOI(II,IC+nltop-1,NT) * ETA(I,IC) |
|
./pkg/fizhi/fizhi_moist.F |
1982 |
CLOUD |
DO 630 I=1,LENB |
|
./pkg/fizhi/fizhi_moist.F |
1983 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
1984 |
CLOUD |
TEM = ETA(I,L) - ETA(I,L+1) |
|
./pkg/fizhi/fizhi_moist.F |
1985 |
CLOUD |
WLQ(I) = WLQ(I) + TEM * QOL(II,L) |
|
./pkg/fizhi/fizhi_moist.F |
1990 |
CLOUD |
DO I=1,LENB |
|
./pkg/fizhi/fizhi_moist.F |
1991 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
1992 |
CLOUD |
TEM = ETA(I,L) - ETA(I,L+1) |
|
./pkg/fizhi/fizhi_moist.F |
1993 |
CLOUD |
UHT(I,NT) = UHT(I,NT) + TEM * UOI(II,L+nltop-1,NT) |
|
./pkg/fizhi/fizhi_moist.F |
2000 |
CLOUD |
DO 690 I=1,LENB |
|
./pkg/fizhi/fizhi_moist.F |
2001 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2004 |
CLOUD |
HOL(I,K) = TEM * (PRJ(II,K)-PRH(II,KM1))*PRH(II,K)*PRI(II,K) |
|
./pkg/fizhi/fizhi_moist.F |
2005 |
CLOUD |
HOL(I,KM1) = TEM * (PRH(II,K)-PRJ(II,K))*PRH(II,KM1)*PRI(II,KM1) |
|
./pkg/fizhi/fizhi_moist.F |
2006 |
CLOUD |
AKM(I) = ZERO |
|
./pkg/fizhi/fizhi_moist.F |
2007 |
CLOUD |
TX2(I) = 0.5 * (PRS(II,IC) + PRS(II,IC1)) |
|
./pkg/fizhi/fizhi_moist.F |
2012 |
CLOUD |
DO 750 I=1,LENB |
|
./pkg/fizhi/fizhi_moist.F |
2013 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2014 |
CLOUD |
TEM = (POI(II,L-1) - POI(II,L)) * ETA(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
2017 |
CLOUD |
HOL(I,L) = TEM * (PRJ(II,L)-PRH(II,L-1)) * PRH(II,L) |
|
./pkg/fizhi/fizhi_moist.F |
2018 |
CLOUD |
* * PRI(II,L) + HOL(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
2019 |
CLOUD |
HOL(I,L-1) = TEM * (PRH(II,L)-PRJ(II,L)) * PRH(II,L-1) |
|
./pkg/fizhi/fizhi_moist.F |
2022 |
CLOUD |
AKM(I) = AKM(I) - HOL(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
2023 |
CLOUD |
* * (ETA(I,L) * (PRH(II,L)-PRJ(II,L)) + |
|
./pkg/fizhi/fizhi_moist.F |
2024 |
CLOUD |
* ETA(I,L+1) * (PRJ(II,L+1)-PRH(II,L))) / PRH(II,L) |
|
./pkg/fizhi/fizhi_moist.F |
2031 |
CLOUD |
DO 770 I=1,LENB |
|
./pkg/fizhi/fizhi_moist.F |
2032 |
CLOUD |
TX2(I) = (ONE - TX1(I)) * WLQ(I) |
|
./pkg/fizhi/fizhi_moist.F |
2033 |
CLOUD |
WLQ(I) = TX1(I) * WLQ(I) |
|
./pkg/fizhi/fizhi_moist.F |
2035 |
CLOUD |
TX1(I) = HOL(I,IC) |
|
./pkg/fizhi/fizhi_moist.F |
2037 |
CLOUD |
DO 790 I=LENA1, LENB |
|
./pkg/fizhi/fizhi_moist.F |
2038 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2039 |
CLOUD |
TX1(I) = TX1(I) + (TX5(I)-TX3(I)+QOL(II,IC)*ALHL)*(PRI(II,IC)/CP) |
|
./pkg/fizhi/fizhi_moist.F |
2042 |
CLOUD |
DO 800 I=1,LENB |
|
./pkg/fizhi/fizhi_moist.F |
2043 |
CLOUD |
HOL(I,IC) = TX1(I) - TX2(I) * ALBCP * PRI(I1(I),IC) |
|
./pkg/fizhi/fizhi_moist.F |
2047 |
CLOUD |
DO 810 I=1,LENA |
|
./pkg/fizhi/fizhi_moist.F |
2048 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2049 |
CLOUD |
AKM(I) = AKM(I) - ETA(I,IC1) * (PRJ(II,IC1) - PRH(II,IC)) |
|
./pkg/fizhi/fizhi_moist.F |
2050 |
CLOUD |
* * TX1(I) / PRH(II,IC) |
|
./pkg/fizhi/fizhi_moist.F |
2056 |
CLOUD |
DO 830 I=1,LENB |
|
./pkg/fizhi/fizhi_moist.F |
2057 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2058 |
CLOUD |
TX3(I) = QOL(II,KM1) - QOL(II,K) |
|
./pkg/fizhi/fizhi_moist.F |
2059 |
CLOUD |
GMH(I,K) = HOL(I,K) + TX3(I) * PRI(II,K) * (ALBCP) |
|
./pkg/fizhi/fizhi_moist.F |
2061 |
CLOUD |
AKM(I) = AKM(I) + GAM(II,KM1)*(PRJ(II,K)-PRH(II,KM1)) |
|
./pkg/fizhi/fizhi_moist.F |
2062 |
CLOUD |
* * GMH(I,K) |
|
./pkg/fizhi/fizhi_moist.F |
2063 |
CLOUD |
TX3(I) = zero |
|
./pkg/fizhi/fizhi_moist.F |
2068 |
CLOUD |
DO 840 I=1,LENB |
|
./pkg/fizhi/fizhi_moist.F |
2069 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2070 |
CLOUD |
TX2(I) = TX3(I) |
|
./pkg/fizhi/fizhi_moist.F |
2071 |
CLOUD |
TX3(I) = (QOL(II,L-1) - QOL(II,L)) * ETA(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
2072 |
CLOUD |
TX2(I) = TX2(I) + TX3(I) |
|
./pkg/fizhi/fizhi_moist.F |
2074 |
CLOUD |
GMH(I,L) = HOL(I,L) + TX2(I) * PRI(II,L) * (ALBCP*HALF) |
|
./pkg/fizhi/fizhi_moist.F |
2079 |
CLOUD |
DO 850 I=LENA1,LENB |
|
./pkg/fizhi/fizhi_moist.F |
2080 |
CLOUD |
TX3(I) = TX3(I) + TWOBAL |
|
./pkg/fizhi/fizhi_moist.F |
2081 |
CLOUD |
* * (TX7(I) - TX8(I) - TX5(I) - QOL(I1(I),IC)*ALHL) |
|
./pkg/fizhi/fizhi_moist.F |
2083 |
CLOUD |
DO 860 I=1,LENB |
|
./pkg/fizhi/fizhi_moist.F |
2084 |
CLOUD |
GMH(I,IC) = TX1(I) + PRI(I1(I),IC) * ONEBCP |
|
./pkg/fizhi/fizhi_moist.F |
2085 |
CLOUD |
* * (TX3(I)*(ALHL*HALF) + ETA(I,IC) * TX8(I)) |
|
./pkg/fizhi/fizhi_moist.F |
2091 |
CLOUD |
DO 870 I=1,LENB |
|
./pkg/fizhi/fizhi_moist.F |
2092 |
CLOUD |
TX1(I) = GMH(I,K) |
|
./pkg/fizhi/fizhi_moist.F |
2095 |
CLOUD |
DO 880 I=1,LENB |
|
./pkg/fizhi/fizhi_moist.F |
2096 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2097 |
CLOUD |
TX1(I) = TX1(I) + (ETA(I,L) - ETA(I,L+1)) * GMH(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
2098 |
CLOUD |
TX2(I) = GAM(II,L-1) * (PRJ(II,L) - PRH(II,L-1)) |
|
./pkg/fizhi/fizhi_moist.F |
2102 |
CLOUD |
DO 890 I=LENA1,LENB |
|
./pkg/fizhi/fizhi_moist.F |
2103 |
CLOUD |
TX2(I) = ZERO |
|
./pkg/fizhi/fizhi_moist.F |
2106 |
CLOUD |
DO 900 I=1,LENB |
|
./pkg/fizhi/fizhi_moist.F |
2107 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2108 |
CLOUD |
AKM(I) = AKM(I) + TX1(I) * |
|
./pkg/fizhi/fizhi_moist.F |
2109 |
CLOUD |
* (TX2(I) + GAM(II,L)*(PRH(II,L)-PRJ(II,L))) |
|
./pkg/fizhi/fizhi_moist.F |
2114 |
CLOUD |
DO 920 I=LENA1,LENB |
|
./pkg/fizhi/fizhi_moist.F |
2115 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2116 |
CLOUD |
TX2(I) = 0.5 * (PRS(II,IC) + PRS(II,IC1)) |
|
./pkg/fizhi/fizhi_moist.F |
2117 |
CLOUD |
* + 0.5*(PRS(II,IC+2) - PRS(II,IC)) * (ONE-TX6(I)) |
|
./pkg/fizhi/fizhi_moist.F |
2119 |
CLOUD |
TX1(I) = PRS(II,IC1) |
|
./pkg/fizhi/fizhi_moist.F |
2120 |
CLOUD |
TX5(I) = 0.5 * (PRS(II,IC1) + PRS(II,IC+2)) |
|
./pkg/fizhi/fizhi_moist.F |
2122 |
CLOUD |
IF ((TX2(I) .GE. TX1(I)) .AND. (TX2(I) .LT. TX5(I))) THEN |
|
./pkg/fizhi/fizhi_moist.F |
2123 |
CLOUD |
TX6(I) = ONE - (TX2(I) - TX1(I)) / (TX5(I) - TX1(I)) |
|
./pkg/fizhi/fizhi_moist.F |
2126 |
CLOUD |
HOL(I,IC1) = HOL(I,IC1) + HOL(I,IC) * TEM |
|
./pkg/fizhi/fizhi_moist.F |
2127 |
CLOUD |
HOL(I,IC) = ZERO |
|
./pkg/fizhi/fizhi_moist.F |
2129 |
CLOUD |
GMH(I,IC1) = GMH(I,IC1) + GMH(I,IC) * TEM |
|
./pkg/fizhi/fizhi_moist.F |
2130 |
CLOUD |
GMH(I,IC) = ZERO |
|
./pkg/fizhi/fizhi_moist.F |
2131 |
CLOUD |
ELSEIF (TX2(I) .LT. TX1(I)) THEN |
|
./pkg/fizhi/fizhi_moist.F |
2132 |
CLOUD |
TX6(I) = 1.0 |
|
./pkg/fizhi/fizhi_moist.F |
2134 |
CLOUD |
TX6(I) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
2139 |
CLOUD |
DO I=1,LENC |
|
./pkg/fizhi/fizhi_moist.F |
2140 |
CLOUD |
PCU(I) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
2143 |
CLOUD |
DO 970 I=1,LENB |
|
./pkg/fizhi/fizhi_moist.F |
2144 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2145 |
CLOUD |
IF (AKM(I) .LT. ZERO .AND. WLQ(I) .GE. 0.0) THEN |
|
./pkg/fizhi/fizhi_moist.F |
2146 |
CLOUD |
WFN(I) = - TX6(I) * WFN(I) * RASALF / AKM(I) |
|
./pkg/fizhi/fizhi_moist.F |
2148 |
CLOUD |
WFN(I) = ZERO |
|
./pkg/fizhi/fizhi_moist.F |
2151 |
CLOUD |
WFN(I) = MIN(WFN(I), TEM) |
|
./pkg/fizhi/fizhi_moist.F |
2161 |
CLOUD |
PCU(II) = WLQ(I) * WFN(I) * ONEBG |
|
./pkg/fizhi/fizhi_moist.F |
2165 |
CLOUD |
TX4(I) = WFN(I) * (1.0/ALHL) |
|
./pkg/fizhi/fizhi_moist.F |
2166 |
CLOUD |
TX5(I) = WFN(I) * ONEBCP |
|
./pkg/fizhi/fizhi_moist.F |
2172 |
CLOUD |
DO I=1,LENB |
|
./pkg/fizhi/fizhi_moist.F |
2173 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2175 |
CLOUD |
CMASS(II,L) = ETA(I,L+1) * WFN(I) * ONEBG |
|
./pkg/fizhi/fizhi_moist.F |
2177 |
CLOUD |
CMASS(II,L) = WFN(I) * ONEBG |
|
./pkg/fizhi/fizhi_moist.F |
2193 |
CLOUD |
DO 980 I=1,LENB |
|
./pkg/fizhi/fizhi_moist.F |
2194 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2195 |
CLOUD |
TEM = (GMH(I,L) - HOL(I,L)) * TX4(I) |
|
./pkg/fizhi/fizhi_moist.F |
2196 |
CLOUD |
TEM1 = HOL(I,L) * TX5(I) |
|
./pkg/fizhi/fizhi_moist.F |
2216 |
CLOUD |
DO 995 I=1,LENB |
|
./pkg/fizhi/fizhi_moist.F |
2217 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2218 |
CLOUD |
TEM = half*TX5(I) * PRI(II,K) |
|
./pkg/fizhi/fizhi_moist.F |
2219 |
CLOUD |
TX1(I) = ( UOI(II,KM1+nltop-1,nt) - UOI(II,K+nltop-1,nt)) |
|
./pkg/fizhi/fizhi_moist.F |
2220 |
CLOUD |
ucu(II,K,nt) = TEM * TX1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2226 |
CLOUD |
DO 1010 I=1,LENB |
|
./pkg/fizhi/fizhi_moist.F |
2227 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2228 |
CLOUD |
TEM = half*TX5(I) * PRI(II,L) |
|
./pkg/fizhi/fizhi_moist.F |
2229 |
CLOUD |
TEM1 = TX1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2230 |
CLOUD |
TX1(I) = (UOI(II,L-1+nltop-1,nt)-UOI(II,L+nltop-1,nt)) * ETA(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
2231 |
CLOUD |
TX3(I) = (TX1(I) + TEM1) * TEM |
|
./pkg/fizhi/fizhi_moist.F |
2233 |
CLOUD |
DO 1020 I=1,LENB |
|
./pkg/fizhi/fizhi_moist.F |
2234 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2235 |
CLOUD |
ucu(II,L,nt) = TX3(I) |
|
./pkg/fizhi/fizhi_moist.F |
2238 |
CLOUD |
DO 1030 I=1,LENB |
|
./pkg/fizhi/fizhi_moist.F |
2239 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2240 |
CLOUD |
IF (TX6(I) .GE. 1.0) THEN |
|
./pkg/fizhi/fizhi_moist.F |
2241 |
CLOUD |
TEM = half*TX5(I) * PRI(II,IC) |
|
./pkg/fizhi/fizhi_moist.F |
2245 |
CLOUD |
TX1(I) = (TX1(I) + UHT(I,nt) + UHT(I,nt)) * TEM |
|
./pkg/fizhi/fizhi_moist.F |
2247 |
CLOUD |
DO 1040 I=1,LENB |
|
./pkg/fizhi/fizhi_moist.F |
2248 |
CLOUD |
II = I1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2249 |
CLOUD |
ucu(II,IC,nt) = TX1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2281 |
RNCL |
DO 10 I=1,lng |
|
./pkg/fizhi/fizhi_moist.F |
2292 |
RNCL |
CLF(I) = CUCLD |
|
./pkg/fizhi/fizhi_moist.F |
2300 |
RNCL |
IF (PL(I) .GE. P4 .AND. PL(I) .LE. P6) THEN |
|
./pkg/fizhi/fizhi_moist.F |
2301 |
RNCL |
CLF(I) = (P6-PL(I))*CFAC |
|
./pkg/fizhi/fizhi_moist.F |
2302 |
RNCL |
ELSEIF (PL(I) .GT. P6 ) THEN |
|
./pkg/fizhi/fizhi_moist.F |
2303 |
RNCL |
CLF(I) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
2432 |
RNEVP |
DO I = 1,IRUN |
|
./pkg/fizhi/fizhi_moist.F |
2433 |
RNEVP |
RLAR(I) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
2452 |
RNEVP |
DO I = 1,IRUN |
|
./pkg/fizhi/fizhi_moist.F |
2453 |
RNEVP |
TEMP2(I,L) = PL(I,L)*ZP001 |
|
./pkg/fizhi/fizhi_moist.F |
2454 |
RNEVP |
TEMP2(I,L) = SQRT(TEMP2(I,L)) |
|
./pkg/fizhi/fizhi_moist.F |
2461 |
RNEVP |
DO I = 1,IRUN |
|
./pkg/fizhi/fizhi_moist.F |
2462 |
RNEVP |
TEMP3(I,L) = GRAVITY*ZP01 / DP(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
2470 |
RNEVP |
DO I = 1,IRUN |
|
./pkg/fizhi/fizhi_moist.F |
2471 |
RNEVP |
TEMP1(I,3) = TL(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
2472 |
RNEVP |
TEMP1(I,4) = QL(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
2479 |
RNEVP |
DO I = 1,IRUN |
|
./pkg/fizhi/fizhi_moist.F |
2481 |
RNEVP |
TEMP1(I,5)=TEMP1(I,2)-TEMP1(I,4) |
|
./pkg/fizhi/fizhi_moist.F |
2482 |
RNEVP |
TEMP1(I,6)=TEMP1(I,6)*ELOCP |
|
./pkg/fizhi/fizhi_moist.F |
2483 |
RNEVP |
TEMP1(I,5)=TEMP1(I,5)/(ONE+TEMP1(I,6)) |
|
./pkg/fizhi/fizhi_moist.F |
2484 |
RNEVP |
TEMP1(I,4)=TEMP1(I,4)+TEMP1(I,5)*RELAX |
|
./pkg/fizhi/fizhi_moist.F |
2485 |
RNEVP |
TEMP1(I,3)=TEMP1(I,3)-TEMP1(I,5)*ELOCP*RELAX |
|
./pkg/fizhi/fizhi_moist.F |
2489 |
RNEVP |
DO I = 1,IRUN |
|
./pkg/fizhi/fizhi_moist.F |
2490 |
RNEVP |
EVP9(I,L) = (TEMP1(I,4) - QL(I,L))/TEMP3(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
2505 |
RNEVP |
DO 20 I=1,IRUN |
|
./pkg/fizhi/fizhi_moist.F |
2511 |
RNEVP |
iceevap(I) = EVP9(I,L)*fracice |
|
./pkg/fizhi/fizhi_moist.F |
2513 |
RNEVP |
EVP9(I,L)=EVP9(I,L)-iceevap(I) |
|
./pkg/fizhi/fizhi_moist.F |
2519 |
RNEVP |
exparg = ZM1P04*tmscl*((water(i)*RPHF*TEMP2(I,L))**ZP578) |
|
./pkg/fizhi/fizhi_moist.F |
2521 |
RNEVP |
watevap(I) = EVP9(I,L)*AREARAT*fracwat |
|
./pkg/fizhi/fizhi_moist.F |
2522 |
RNEVP |
IF(watevap(I).GE.water(i)) watevap(I) = water(i) |
|
./pkg/fizhi/fizhi_moist.F |
2523 |
RNEVP |
EVP9(I,L)=EVP9(I,L)-watevap(I) |
|
./pkg/fizhi/fizhi_moist.F |
2527 |
RNEVP |
QL(I,L) = QL(I,L)+(iceevap(i)+watevap(i))*TEMP3(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
2528 |
RNEVP |
TL(I,L) = TL(I,L)-(iceevap(i)+watevap(i))*TEMP3(I,L)*ELOCP |
|
./pkg/fizhi/fizhi_moist.F |
2543 |
RNEVP |
DO I = 1,IRUN |
|
./pkg/fizhi/fizhi_moist.F |
2559 |
RNEVP |
if( pl(i,L).ge.10.0 ) CLSBTH(I,L) = fact |
|
./pkg/fizhi/fizhi_moist.F |
2560 |
RNEVP |
RLAR(I) = RLAR(I)-rainmax(I) |
|
./pkg/fizhi/fizhi_moist.F |
2561 |
RNEVP |
QL(I,L) = QL(I,L)+rainmax(I)*TEMP3(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
2562 |
RNEVP |
TL(I,L) = TL(I,L)-rainmax(I)*TEMP3(I,L)*ELOCP |
|
./pkg/fizhi/fizhi_moist.F |
2568 |
RNEVP |
DO I=1,IRUN |
|
./pkg/fizhi/fizhi_moist.F |
2569 |
RNEVP |
IF((RLAR(I).GT.0.0).AND.(rainmax(I).GT.0.0))THEN |
|
./pkg/fizhi/fizhi_moist.F |
2570 |
RNEVP |
RPOW=(RLAR(I)*RPHF*TEMP2(I,L))**ZP578 |
|
./pkg/fizhi/fizhi_moist.F |
2573 |
RNEVP |
TEMP1(I,7) = rainmax(I)*AREARAT |
|
./pkg/fizhi/fizhi_moist.F |
2574 |
RNEVP |
IF(TEMP1(I,7).GE.RLAR(I)) TEMP1(I,7) = RLAR(I) |
|
./pkg/fizhi/fizhi_moist.F |
2575 |
RNEVP |
RLAR(I) = RLAR(I)-TEMP1(I,7) |
|
./pkg/fizhi/fizhi_moist.F |
2576 |
RNEVP |
QL(I,L) = QL(I,L)+TEMP1(I,7)*TEMP3(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
2577 |
RNEVP |
TL(I,L) = TL(I,L)-TEMP1(I,7)*TEMP3(I,L)*ELOCP |
|
./pkg/fizhi/fizhi_moist.F |
372 |
MOISTIO |
DO I = 1,ISTRIP |
|
./pkg/fizhi/fizhi_moist.F |
373 |
MOISTIO |
TH(I,L) = TH(I,L) * P0KAPPA |
|
./pkg/fizhi/fizhi_moist.F |
374 |
MOISTIO |
CLMAXO(I,L) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
375 |
MOISTIO |
CLBOTH(I,L) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
376 |
MOISTIO |
cldmas(I,L) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
377 |
MOISTIO |
detrain(I,L) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
409 |
MOISTIO |
DO 600 I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
410 |
MOISTIO |
TMP1(I,2) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
411 |
MOISTIO |
TMP1(I,3) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
416 |
MOISTIO |
DO 602 I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
417 |
MOISTIO |
TMP1(I,2) = TMP1(I,2) + (PLE(I,L+1)-PLE(I,L))*TH (I,L)/sp(i) |
|
./pkg/fizhi/fizhi_moist.F |
418 |
MOISTIO |
TMP1(I,3) = TMP1(I,3) + (PLE(I,L+1)-PLE(I,L))*SHL(I,L)/sp(i) |
|
./pkg/fizhi/fizhi_moist.F |
421 |
MOISTIO |
DO 603 I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
422 |
MOISTIO |
TMP1(I,4) = 1. / ( (PLE(I,lm+1)-PLE(I,NSUBCL))/sp(I) ) |
|
./pkg/fizhi/fizhi_moist.F |
423 |
MOISTIO |
TH(I,NSUBCL) = TMP1(I,2)*TMP1(I,4) |
|
./pkg/fizhi/fizhi_moist.F |
424 |
MOISTIO |
SHL(I,NSUBCL) = TMP1(I,3)*TMP1(I,4) |
|
./pkg/fizhi/fizhi_moist.F |
435 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
436 |
MOISTIO |
TMP1(I,2) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
439 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
440 |
MOISTIO |
TMP1(I,2) = TMP1(I,2)+(PLE(I,L+1)-PLE(I,L))*UL(I,L,NT)/sp(i) |
|
./pkg/fizhi/fizhi_moist.F |
443 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
444 |
MOISTIO |
UL(I,NSUBCL,NT) = TMP1(I,2)*TMP1(I,4) |
|
./pkg/fizhi/fizhi_moist.F |
452 |
MOISTIO |
DO 112 I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
453 |
MOISTIO |
TMP4(I,L) = PLE(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
456 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
457 |
MOISTIO |
TMP5(I,1) = PTOPKAP / P0KAPPA |
|
./pkg/fizhi/fizhi_moist.F |
460 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
461 |
MOISTIO |
TMP5(I,L) = PLKE(I,L)*P0KINV |
|
./pkg/fizhi/fizhi_moist.F |
464 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
465 |
MOISTIO |
TMP4(I,lm+1) = PLE (I,lm+1) |
|
./pkg/fizhi/fizhi_moist.F |
466 |
MOISTIO |
TMP5(I,lm+1) = PLKE(I,lm+1)*P0KINV |
|
./pkg/fizhi/fizhi_moist.F |
468 |
MOISTIO |
DO 113 I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
469 |
MOISTIO |
TMP4(I,NSUBCL+1) = PLE (I,lm+1) |
|
./pkg/fizhi/fizhi_moist.F |
470 |
MOISTIO |
TMP5(I,NSUBCL+1) = PLKE(I,lm+1)*P0KINV |
|
./pkg/fizhi/fizhi_moist.F |
482 |
MOISTIO |
rh = SHL(I,NSUBCL) / tmp2(i,3) |
|
./pkg/fizhi/fizhi_moist.F |
541 |
MOISTIO |
do I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
550 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
551 |
MOISTIO |
CVTH(I,L) = (TH (I,L) - saveth(i,l)) |
|
./pkg/fizhi/fizhi_moist.F |
552 |
MOISTIO |
CVQ (I,L) = (SHL(I,L) - saveq (i,l)) |
|
./pkg/fizhi/fizhi_moist.F |
556 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
557 |
MOISTIO |
CVTH(I,L) = cvth(i,nsubcl) |
|
./pkg/fizhi/fizhi_moist.F |
558 |
MOISTIO |
CVQ (I,L) = cvq (i,nsubcl) |
|
./pkg/fizhi/fizhi_moist.F |
563 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
564 |
MOISTIO |
TH (I,L) = saveth(i,l) + cvth(i,l) |
|
./pkg/fizhi/fizhi_moist.F |
565 |
MOISTIO |
SHL(I,L) = saveq (i,l) + cvq (i,l) |
|
./pkg/fizhi/fizhi_moist.F |
569 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
570 |
MOISTIO |
CVTH(I,L) = CVTH(I,L) *P0KINV*SP(I)*tminv |
|
./pkg/fizhi/fizhi_moist.F |
571 |
MOISTIO |
CVQ (I,L) = CVQ (I,L) *SP(I)*tminv |
|
./pkg/fizhi/fizhi_moist.F |
579 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
580 |
MOISTIO |
CVU(I,L,nt) = ( UL(I,L,nt)-saveu(i,l,nt) )*sp(i)*tminv |
|
./pkg/fizhi/fizhi_moist.F |
584 |
MOISTIO |
DO I=num,num+nindeces(nsubcl)-1 |
|
./pkg/fizhi/fizhi_moist.F |
645 |
MOISTIO |
DO I=1,ISTRIP |
|
./pkg/fizhi/fizhi_moist.F |
646 |
MOISTIO |
TH(I,L) = TH(I,L) + CVTH(I,L)*tmstp/SP(I) |
|
./pkg/fizhi/fizhi_moist.F |
647 |
MOISTIO |
SHL(I,L) = SHL(I,L) + CVQ(I,L)*tmstp/SP(I) |
|
./pkg/fizhi/fizhi_moist.F |
648 |
MOISTIO |
TL(I,L) = TH(I,L)*PLK(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
649 |
MOISTIO |
saveth(I,L) = th(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
650 |
MOISTIO |
saveq (I,L) = SHL(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
664 |
MOISTIO |
DO I =1,ISTRIP |
|
./pkg/fizhi/fizhi_moist.F |
665 |
MOISTIO |
TMP1(I,L) = sp(i) * (SHL(I,L)-saveq(I,L)) * tminv |
|
./pkg/fizhi/fizhi_moist.F |
669 |
MOISTIO |
DO I =1,ISTRIP |
|
./pkg/fizhi/fizhi_moist.F |
670 |
MOISTIO |
TMP1(I,L) = sp(i) * ((TL(I,L)/PLK(I,L))-saveth(i,l)) * tminv |
|
./pkg/fizhi/fizhi_moist.F |
676 |
MOISTIO |
DO I =1,ISTRIP |
|
./pkg/fizhi/fizhi_moist.F |
677 |
MOISTIO |
TMP1(I,L) = ((TL(I,L)/PLK(I,L))-saveth(i,l))*plk(i,l)*sday*tminv |
|
./pkg/fizhi/fizhi_moist.F |
681 |
MOISTIO |
DO I =1,ISTRIP |
|
./pkg/fizhi/fizhi_moist.F |
682 |
MOISTIO |
TMP1(I,L) = (SHL(I,L)-saveq(I,L)) * 1000. * sday * tminv |
|
./pkg/fizhi/fizhi_moist.F |
728 |
MOISTIO |
prep(i) = PRECIP(I) + PCNET(I) |
|
./pkg/fizhi/fizhi_moist.F |
729 |
MOISTIO |
tmp1(i,1) = PRECIP(I) |
|
./pkg/fizhi/fizhi_moist.F |
981 |
MOISTIO |
tmpdiag(i,j) = (lsp_new(I,j) + snow_new(I,j) + conv_new(i,j)) |
|
./pkg/fizhi/fizhi_swrad.F |
152 |
SWRIO |
zenith(I,j) = TEMP1(I,j) + TEMP2(I,j) |
|
./pkg/fizhi/fizhi_swrad.F |
153 |
SWRIO |
IF( zenith(I,j) .GT. 0.0 ) THEN |
|
./pkg/fizhi/fizhi_swrad.F |
154 |
SWRIO |
zenith(I,j) = (2./3.)*( zenith(I,j)-TEMP2(I,j)*TEMP1(I,j) |
|
./pkg/fizhi/fizhi_swrad.F |
155 |
SWRIO |
. / zenith(I,j) ) |
|
./pkg/fizhi/fizhi_turb.F |
1666 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1667 |
TRBFLX |
wu(I,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1668 |
TRBFLX |
wv(I,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1669 |
TRBFLX |
eu(I,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1670 |
TRBFLX |
et(I,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1675 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1676 |
TRBFLX |
XLDIAG(I,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1681 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1682 |
TRBFLX |
FREQDG(I,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1685 |
TRBFLX |
do I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1688 |
TRBFLX |
do I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1691 |
TRBFLX |
do I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1694 |
TRBFLX |
do I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1697 |
TRBFLX |
do I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1703 |
TRBFLX |
do I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1706 |
TRBFLX |
do I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1709 |
TRBFLX |
do I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1712 |
TRBFLX |
do I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1715 |
TRBFLX |
do I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1718 |
TRBFLX |
do I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1721 |
TRBFLX |
do I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1724 |
TRBFLX |
do I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1734 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1735 |
TRBFLX |
XLSAVE(I,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1736 |
TRBFLX |
KHSAVE(I,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1739 |
TRBFLX |
DO I = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1740 |
TRBFLX |
CTSAVE(I) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1741 |
TRBFLX |
XXSAVE(I) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1742 |
TRBFLX |
YYSAVE(I) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1743 |
TRBFLX |
ZETASAVE(I) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1755 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1756 |
TRBFLX |
ADZ1(I,L) = (CP/GRAV)*(PLKE(I,L+1)-PLKE(I,L)) |
|
./pkg/fizhi/fizhi_turb.F |
1757 |
TRBFLX |
ADZ1(I,L) = THV(I,L) * ADZ1(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1758 |
TRBFLX |
DZ1TMP(I,L) = ADZ1(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1765 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1766 |
TRBFLX |
ADZ2(I,L) = 0.5 * (ADZ1(I,L)+ADZ1(I,L+1)) |
|
./pkg/fizhi/fizhi_turb.F |
1771 |
TRBFLX |
DO 9042 I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1772 |
TRBFLX |
HS(I) = 0.5 * ADZ1(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1776 |
TRBFLX |
DO 9044 I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1777 |
TRBFLX |
DZ3(I,1) = HALPHA * ADZ1(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
1783 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1784 |
TRBFLX |
DZ3(I,L) = ALPHA * ADZ1(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1787 |
TRBFLX |
DO 9048 I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1788 |
TRBFLX |
DZ3(I,NLEV) = ALPHA * HS(I) |
|
./pkg/fizhi/fizhi_turb.F |
1797 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1798 |
TRBFLX |
TEMP(I,L) = VK * ADZ1(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1801 |
TRBFLX |
DO 9052 I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1802 |
TRBFLX |
VKZE(I,NLEVM1) = TEMP(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1807 |
TRBFLX |
DO 9054 I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1808 |
TRBFLX |
VKZE(I,L) = VKZE(I,LP1) + TEMP(I,LP1) |
|
./pkg/fizhi/fizhi_turb.F |
1815 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1816 |
TRBFLX |
VKZM(I,L) = VKZE(I,L) - 0.5 * TEMP(I,L+1) |
|
./pkg/fizhi/fizhi_turb.F |
1823 |
TRBFLX |
DO 9058 I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1824 |
TRBFLX |
FAC1 = DPSTR(I,L) / ( DPSTR(I,L) + DPSTR(I,LP1) ) |
|
./pkg/fizhi/fizhi_turb.F |
1826 |
TRBFLX |
RHODZ2(I,L) = FAC1 * THV(I,LP1) |
|
./pkg/fizhi/fizhi_turb.F |
1827 |
TRBFLX |
RHODZ2(I,L) = RHODZ2(I,L) + FAC2 * THV(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1842 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1843 |
TRBFLX |
RHODZ2(I,L) = (RGAS*0.01) * RHODZ2(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1844 |
TRBFLX |
TEMP(I,L) = PLKE(I,L+1) * ADZ2(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1845 |
TRBFLX |
RHODZ2(I,L) = TEMP(I,L) * RHODZ2(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1846 |
TRBFLX |
RHODZ2(I,L) = PLE(I,L+1) / RHODZ2(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1847 |
TRBFLX |
RHOZPK(I,L) = RHODZ2(I,L) * PLKE(I,L+1) |
|
./pkg/fizhi/fizhi_turb.F |
1848 |
TRBFLX |
RHODZ1(I,L) = (RGAS*0.01) * THV(I,L+1) |
|
./pkg/fizhi/fizhi_turb.F |
1849 |
TRBFLX |
TEMP(I,L) = PLK(I,L+1) * ADZ1(I,L+1) |
|
./pkg/fizhi/fizhi_turb.F |
1850 |
TRBFLX |
RHODZ1(I,L) = TEMP(I,L) * RHODZ1(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1851 |
TRBFLX |
RHODZ1(I,L) = PL(I,L+1) / RHODZ1(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1863 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1864 |
TRBFLX |
FLXFPK(I,L) = PLE(I,L+1) - PLE(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1865 |
TRBFLX |
FLXFPK(I,L) = FLXFPK(I,L) * PLK(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1866 |
TRBFLX |
FLXFPK(I,L) = (GRAV*DTAU*0.01) / FLXFPK(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1869 |
TRBFLX |
DO 9064 I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1870 |
TRBFLX |
FLXFPK(I,NLEVP1) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1872 |
TRBFLX |
DO 9066 I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1873 |
TRBFLX |
IF (IWATER(I).EQ.0 ) FLXFPK(I,NLEVP1) = 1. / PLKE(I,NLEVP1) |
|
./pkg/fizhi/fizhi_turb.F |
1879 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1880 |
TRBFLX |
FLXFAC(I,L) = FLXFPK(I,L) * PLK(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1883 |
TRBFLX |
DO 9070 I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1884 |
TRBFLX |
FLXFAC(I,NLEVP1) = FLXFPK(I,NLEVP1) |
|
./pkg/fizhi/fizhi_turb.F |
1886 |
TRBFLX |
DO 9074 I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1887 |
TRBFLX |
FLXFPK(I,NLEVP1) = CP * FLXFPK(I,NLEVP1) |
|
./pkg/fizhi/fizhi_turb.F |
1896 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1897 |
TRBFLX |
FLXFCE(I,L) = PL(I,L+1) - PL(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1898 |
TRBFLX |
FLXFCE(I,L) = (GRAV*DTAU*0.01) / FLXFCE(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1907 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1908 |
TRBFLX |
ADZ1(I,L) = 1. / ADZ1(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1915 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1916 |
TRBFLX |
ADZ2(I,L) = 1. / ADZ2(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1919 |
TRBFLX |
DO 9088 I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1920 |
TRBFLX |
AHS(I) = 1. / HS(I) |
|
./pkg/fizhi/fizhi_turb.F |
1928 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1929 |
TRBFLX |
DPK(I,L) = ( PLK(I,L+1)-PLK(I,L) ) * ADZ2(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1932 |
TRBFLX |
DO 9092 I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1933 |
TRBFLX |
DPK(I,NLEV) = GBYCP / THV(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1942 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1943 |
TRBFLX |
Q(I,L) = 2. * QQ(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1944 |
TRBFLX |
Q(I,L) = SQRT( Q(I,L) ) |
|
./pkg/fizhi/fizhi_turb.F |
1960 |
TRBFLX |
DO I = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1961 |
TRBFLX |
CT(I) = CTSAVE(I) |
|
./pkg/fizhi/fizhi_turb.F |
1962 |
TRBFLX |
XX(I) = XXSAVE(I) |
|
./pkg/fizhi/fizhi_turb.F |
1963 |
TRBFLX |
YY(I) = YYSAVE(I) |
|
./pkg/fizhi/fizhi_turb.F |
1964 |
TRBFLX |
ZETA(I) = ZETASAVE(I) |
|
./pkg/fizhi/fizhi_turb.F |
1968 |
TRBFLX |
DO I = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1969 |
TRBFLX |
TL(I,NLEV) = TH(I,NLEV)*PLK(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1973 |
TRBFLX |
DO I = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
1974 |
TRBFLX |
BB(I,NLEV) = FACEPS*SHSAT(I,NLEV)/(TL(I,NLEV)*TL(I,NLEV)) |
|
./pkg/fizhi/fizhi_turb.F |
1975 |
TRBFLX |
AA(I,NLEV) = 1. / (1. + CLH * BB(I,NLEV) ) |
|
./pkg/fizhi/fizhi_turb.F |
1976 |
TRBFLX |
BB(I,NLEV) = BB(I,NLEV) * AA(I,NLEV) * plk(I,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1977 |
TRBFLX |
DTH(I,NLEV) = TH(I,NLEV)-TH(I,NLEVP1) |
|
./pkg/fizhi/fizhi_turb.F |
1978 |
TRBFLX |
DSH(I,NLEV) = SH(I,NLEV)-SH(I,NLEVP1) |
|
./pkg/fizhi/fizhi_turb.F |
1979 |
TRBFLX |
SBAR(I,NLEV) = AA(I,NLEV) * (SH(I,NLEV) - SHSAT(I,NLEV)) |
|
./pkg/fizhi/fizhi_turb.F |
1980 |
TRBFLX |
SSDEV(I,NLEV)=CT(I)*(AA(I,NLEV)*DSH(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1981 |
TRBFLX |
1 -BB(I,NLEV)*DTH(I,NLEV)) |
|
./pkg/fizhi/fizhi_turb.F |
1982 |
TRBFLX |
XXZETA(I) = XX(I)-ZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
1983 |
TRBFLX |
IF(XXZETA(I).LT.0.1*XX(I)) XXZETA(I)=0.1*XX(I) |
|
./pkg/fizhi/fizhi_turb.F |
1984 |
TRBFLX |
IF(XXZETA(I).LE.0.) XXZETA(I)=0.1 |
|
./pkg/fizhi/fizhi_turb.F |
1985 |
TRBFLX |
QBYU(I) =QBUSTR * XXZETA(I) ** ONETHRD |
|
./pkg/fizhi/fizhi_turb.F |
1986 |
TRBFLX |
SSDEV(I,NLEV) = B2*YY(I)*SSDEV(I,NLEV)*SSDEV(I,NLEV)/QBYU(I) |
|
./pkg/fizhi/fizhi_turb.F |
1987 |
TRBFLX |
SVAR(I,NLEV) = SQRT(SSDEV(I,NLEV)) |
|
./pkg/fizhi/fizhi_turb.F |
1988 |
TRBFLX |
IF ( SVAR(I,NLEV).LT.Z1PEM25) SVAR(I,NLEV) = Z1PEM25 |
|
./pkg/fizhi/fizhi_turb.F |
1989 |
TRBFLX |
Q1M(I,NLEV) = SBAR(I,NLEV) / SVAR(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1990 |
TRBFLX |
FCC(I,NLEV) = (1./2.) * ( 1. + ERRF( P5SR*Q1M(I,NLEV) ) ) |
|
./pkg/fizhi/fizhi_turb.F |
1991 |
TRBFLX |
SHL(I,NLEV) = FCC(I,NLEV) * SBAR(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1992 |
TRBFLX |
ARG(I,NLEV) = (1./2.)*Q1M(I,NLEV)*Q1M(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1993 |
TRBFLX |
IF(ARG(I,NLEV).LE.ARGMAX) |
|
./pkg/fizhi/fizhi_turb.F |
1994 |
TRBFLX |
1 SHL(I,NLEV) = SHL(I,NLEV)+RSQ2PI*SVAR(I,NLEV)*EXP(-ARG(I,NLEV)) |
|
./pkg/fizhi/fizhi_turb.F |
1995 |
TRBFLX |
BETAT(I,NLEV) = 1. + VIRTCON*SH(I,NLEV) - VRT1CON*SHL(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1996 |
TRBFLX |
BETAW(I,NLEV) = VIRTCON * |
|
./pkg/fizhi/fizhi_turb.F |
1997 |
TRBFLX |
1 ( TH(I,NLEV) + CLH * SHL(I,NLEV) * (1./plk(i,nlev)) ) |
|
./pkg/fizhi/fizhi_turb.F |
1998 |
TRBFLX |
BETAL(I,NLEV) = (1.+VIRTCON*SH(I,NLEV)-TWO*VRT1CON*SHL(I,NLEV)) |
|
./pkg/fizhi/fizhi_turb.F |
1999 |
TRBFLX |
1 * (1./plk(i,nlev)) * CLH - VRT1CON * TH(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
2000 |
TRBFLX |
BETAT1(I,NLEV) = BETAT(I,NLEV) - BB(I,NLEV)*FCC(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
2001 |
TRBFLX |
1 * BETAL(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
2002 |
TRBFLX |
BETAW1(I,NLEV) = BETAW(I,NLEV) + AA(I,NLEV) * FCC(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
2003 |
TRBFLX |
1 * BETAL(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
2004 |
TRBFLX |
DTHV(I,NLEV) = BETAT1(I,NLEV)*DTH(I,NLEV) + |
|
./pkg/fizhi/fizhi_turb.F |
2005 |
TRBFLX |
1 BETAW1(I,NLEV)*DSH(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
2006 |
TRBFLX |
THV(I,NLEVP1) = THV(I,NLEV) - DTHV(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
2037 |
TRBFLX |
DO 9098 I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2038 |
TRBFLX |
Q(I,NLEV) = QBUSTR * USTAR(I) |
|
./pkg/fizhi/fizhi_turb.F |
2039 |
TRBFLX |
QQ(I,NLEV) = 0.5 * Q(I,NLEV) * Q(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
2050 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2051 |
TRBFLX |
DU(I,L) = ( U(I,L)- U(I,L+1) ) * ADZ2(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2052 |
TRBFLX |
DV(I,L) = ( V(I,L)- V(I,L+1) ) * ADZ2(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2064 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2065 |
TRBFLX |
XL(I,L) = XLSAVE(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2076 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2077 |
TRBFLX |
DTH(I,L) = ( TH(I,L)-TH(I,L+1) ) * ADZ2(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2078 |
TRBFLX |
DSH(I,L) = ( SH(I,L)-SH(I,L+1) ) * ADZ2(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2079 |
TRBFLX |
TL(I,L) = TH(I,L)*PLK(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2083 |
TRBFLX |
DO I = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2095 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2096 |
TRBFLX |
BB(I,L) = FACEPS*SHSAT(I,L)/(TL(I,L)*TL(I,L)) |
|
./pkg/fizhi/fizhi_turb.F |
2097 |
TRBFLX |
AA(I,L) = 1. / (1. + CLH * BB(I,L) ) |
|
./pkg/fizhi/fizhi_turb.F |
2099 |
TRBFLX |
BB(I,L) = BB(I,L) * AA(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2100 |
TRBFLX |
SBAR(I,L) = AA(I,L) * (SH(I,L) - SHSAT(I,L)) |
|
./pkg/fizhi/fizhi_turb.F |
2103 |
TRBFLX |
DO I = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2105 |
TRBFLX |
SSDEV(I,1) = XL(I,1)*(AA(I,1)*DSH(I,1)- |
|
./pkg/fizhi/fizhi_turb.F |
2106 |
TRBFLX |
1 BB(I,1)*plke(I,2)*DTH(I,1)) |
|
./pkg/fizhi/fizhi_turb.F |
2107 |
TRBFLX |
SSDEV(I,1) = B2 * KHSAVE(I,1) * SSDEV(I,1) * SSDEV(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
2108 |
TRBFLX |
SVAR(I,1) = SQRT(SSDEV(I,1)) |
|
./pkg/fizhi/fizhi_turb.F |
2109 |
TRBFLX |
IF ( SVAR(I,1).LT.Z1PEM25) SVAR(I,1) = Z1PEM25 |
|
./pkg/fizhi/fizhi_turb.F |
2126 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2128 |
TRBFLX |
SSDEV(I,L) = XL(I,L-1)*(AA(I,L)*DSH(I,L-1)- |
|
./pkg/fizhi/fizhi_turb.F |
2129 |
TRBFLX |
1 BB(I,L)*plke(I,L)*DTH(I,L-1)) |
|
./pkg/fizhi/fizhi_turb.F |
2130 |
TRBFLX |
SSDEV(I,L) = B2 * KHSAVE(I,L-1) * SSDEV(I,L-1) * SSDEV(I,L-1) |
|
./pkg/fizhi/fizhi_turb.F |
2131 |
TRBFLX |
SVAR(I,L) = SQRT(SSDEV(I,L)) |
|
./pkg/fizhi/fizhi_turb.F |
2133 |
TRBFLX |
SSDEV(I,L) = XL(I,L)*(AA(I,L)*DSH(I,L)- |
|
./pkg/fizhi/fizhi_turb.F |
2134 |
TRBFLX |
1 BB(I,L)*plke(I,L+1)*DTH(I,L)) |
|
./pkg/fizhi/fizhi_turb.F |
2135 |
TRBFLX |
SSDEV(I,L) = B2 * KHSAVE(I,L) * SSDEV(I,L) * SSDEV(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2136 |
TRBFLX |
TEMP(I,L) = SQRT(SSDEV(I,L)) |
|
./pkg/fizhi/fizhi_turb.F |
2137 |
TRBFLX |
SVAR(I,L) = (1./2.) * (SVAR(I,L) + TEMP(I,L)) |
|
./pkg/fizhi/fizhi_turb.F |
2138 |
TRBFLX |
IF ( SVAR(I,L).LT.Z1PEM25) SVAR(I,L) = Z1PEM25 |
|
./pkg/fizhi/fizhi_turb.F |
2159 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2160 |
TRBFLX |
Q1M(I,L) = SBAR(I,L) / SVAR(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2161 |
TRBFLX |
FCC(I,L) = (1./2.) * ( 1. + ERRF( P5SR*Q1M(I,L) ) ) |
|
./pkg/fizhi/fizhi_turb.F |
2162 |
TRBFLX |
SHL(I,L) = FCC(I,L) * SBAR(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2163 |
TRBFLX |
ARG(I,L) = (1./2.)*Q1M(I,L)*Q1M(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2164 |
TRBFLX |
IF(ARG(I,L).LE.ARGMAX) |
|
./pkg/fizhi/fizhi_turb.F |
2165 |
TRBFLX |
1 SHL(I,L) = SHL(I,L)+RSQ2PI*SVAR(I,L)*EXP(-ARG(I,L)) |
|
./pkg/fizhi/fizhi_turb.F |
2166 |
TRBFLX |
BETAT(I,L) = 1. + VIRTCON * SH(I,L) - VRT1CON * SHL(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2167 |
TRBFLX |
BETAW(I,L) = VIRTCON * |
|
./pkg/fizhi/fizhi_turb.F |
2168 |
TRBFLX |
1 ( TH(I,L) + (CLH/plk(I,L)) * SHL(I,L) ) |
|
./pkg/fizhi/fizhi_turb.F |
2169 |
TRBFLX |
BETAL(I,L) = ( 1. + VIRTCON*SH(I,L) - TWO*VRT1CON*SHL(I,L) ) |
|
./pkg/fizhi/fizhi_turb.F |
2170 |
TRBFLX |
1 * (CLH/plke(I,L+1)) - VRT1CON * TH(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2172 |
TRBFLX |
BETAT1(I,L) = BETAT(I,L) - |
|
./pkg/fizhi/fizhi_turb.F |
2173 |
TRBFLX |
1 BB(I,L)*plk(i,L) * FCC(I,L) * BETAL(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2174 |
TRBFLX |
BETAW1(I,L) = BETAW(I,L) + AA(I,L) * FCC(I,L) * BETAL(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2182 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2183 |
TRBFLX |
DTHV(I,L) = (1./2.)*((BETAT1(I,L)+BETAT1(I,L+1))*DTH(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2184 |
TRBFLX |
1 + (BETAW1(I,L)+BETAW1(I,L+1))*DSH(I,L)) |
|
./pkg/fizhi/fizhi_turb.F |
2190 |
TRBFLX |
DO 9102 I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2191 |
TRBFLX |
DU(I,NLEV) = CU(I)*XX(I)*AHS(I)*RVK |
|
./pkg/fizhi/fizhi_turb.F |
2192 |
TRBFLX |
DV(I,NLEV) = V(I,NLEV) * DU(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
2193 |
TRBFLX |
DU(I,NLEV) = U(I,NLEV) * DU(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
2194 |
TRBFLX |
DTHV(I,NLEV) = CT(I) * YY(I) * |
|
./pkg/fizhi/fizhi_turb.F |
2195 |
TRBFLX |
1 ((THV(I,NLEV)-THV(I,NLEVP1)) * RVK)* AHS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2207 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2208 |
TRBFLX |
STRT(I,L) = CP * DTHV(I,L) * DPK(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2209 |
TRBFLX |
DW2(I,L) = DU(I,L) * DU(I,L) + DV(I,L) * DV(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2210 |
TRBFLX |
IF ( DW2(I,L) .LE. 1.e-4 ) DW2(I,L) = 1.e-4 |
|
./pkg/fizhi/fizhi_turb.F |
2211 |
TRBFLX |
RI(I,L) = STRT(I,L) / DW2(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2221 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2222 |
TRBFLX |
SRI(I,L) = RI(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2225 |
TRBFLX |
DO 9108 I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2226 |
TRBFLX |
SRI(I,NLEV) = RIB(I) |
|
./pkg/fizhi/fizhi_turb.F |
2228 |
TRBFLX |
DO 9110 I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2229 |
TRBFLX |
SWINDS(I) = WS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2257 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2258 |
TRBFLX |
KH(I,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
2259 |
TRBFLX |
KM(I,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
2260 |
TRBFLX |
QQE(I,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
2261 |
TRBFLX |
QE(I,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
2262 |
TRBFLX |
P3(I,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
2263 |
TRBFLX |
IBITSTB(I,L) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
2264 |
TRBFLX |
IF ( QQ(I,L) .GT. 1.e-8 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2265 |
TRBFLX |
INTQ(I,L) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
2267 |
TRBFLX |
INTQ(I,L) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
2269 |
TRBFLX |
IF ( QQ(I,L).LE.1.e-8 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2270 |
TRBFLX |
QQ(I,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
2271 |
TRBFLX |
Q(I,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
2278 |
TRBFLX |
DO 9116 I = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2279 |
TRBFLX |
IF ( QQ(I,LMINQ).GT.1.e-8 ) IBIT = IBIT + 1 |
|
./pkg/fizhi/fizhi_turb.F |
2309 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2310 |
TRBFLX |
QQ(I,L) = QQE(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2311 |
TRBFLX |
Q(I,L) = QE(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2334 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2335 |
TRBFLX |
IF ( (IBITSTB(I,L).EQ.1) .AND. |
|
./pkg/fizhi/fizhi_turb.F |
2336 |
TRBFLX |
1 ( Q(I,L) .LE. QE(I,L) ) ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2337 |
TRBFLX |
IBITSTB(I,L) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
2339 |
TRBFLX |
IBITSTB(I,L) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
2359 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2360 |
TRBFLX |
IF(IBITSTB(I,L).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2361 |
TRBFLX |
TEMP(I,L) = Q(I,L) / QE(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2362 |
TRBFLX |
KH(I,L) = TEMP(I,L) * KH(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2363 |
TRBFLX |
KM(I,L) = TEMP(I,L) * KM(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2365 |
TRBFLX |
TEMP(I,L) = 0.01 * QQE(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2366 |
TRBFLX |
IF((IBITSTB(I,L).EQ.1) .AND. |
|
./pkg/fizhi/fizhi_turb.F |
2367 |
TRBFLX |
1 ( QQ(I,L) .LE. TEMP(I,L) )) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2368 |
TRBFLX |
QQ(I,L) = TEMP(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2369 |
TRBFLX |
Q(I,L) = 0.1 * QE(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2371 |
TRBFLX |
IF(IBITSTB(I,L).EQ.1 ) P3(I,L) = (2.*B3) * |
|
./pkg/fizhi/fizhi_turb.F |
2372 |
TRBFLX |
1 ( QE(I,L) - Q(I,L) ) |
|
./pkg/fizhi/fizhi_turb.F |
2395 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2396 |
TRBFLX |
P3(I,L) = P3(I,L) * DTAU / XL(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2397 |
TRBFLX |
TEMP(I,L) = QQE(I,L) * P3(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2398 |
TRBFLX |
XQ(I,L) = QQE(I,L) - QQ(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2410 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2411 |
TRBFLX |
IF( ( (IBITSTB(I,L).EQ.1) .AND. |
|
./pkg/fizhi/fizhi_turb.F |
2412 |
TRBFLX |
1 ( XQ(I,L) .LT. TEMP(I,L) ) ) |
|
./pkg/fizhi/fizhi_turb.F |
2414 |
TRBFLX |
3 ( (IBITSTB(I,L).EQ.0) .AND. |
|
./pkg/fizhi/fizhi_turb.F |
2415 |
TRBFLX |
4 ( XQ(I,L) .GT. TEMP(I,L) ) ) ) |
|
./pkg/fizhi/fizhi_turb.F |
2416 |
TRBFLX |
5 P3(I,L) = XQ(I,L) / QQE(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2424 |
TRBFLX |
DO 9118 I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2425 |
TRBFLX |
RIBIN(I) = RIB(I) |
|
./pkg/fizhi/fizhi_turb.F |
2426 |
TRBFLX |
CUIN(I) = CU(I) |
|
./pkg/fizhi/fizhi_turb.F |
2427 |
TRBFLX |
CTIN(I) = CT(I) |
|
./pkg/fizhi/fizhi_turb.F |
2428 |
TRBFLX |
USTARIN(I) = USTAR(I) |
|
./pkg/fizhi/fizhi_turb.F |
2429 |
TRBFLX |
RHOSIN(I) = RHODZ2(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
2430 |
TRBFLX |
Z0IN(I) = Z0(I) |
|
./pkg/fizhi/fizhi_turb.F |
2431 |
TRBFLX |
ZETAIN(I) = ZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
2438 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2439 |
TRBFLX |
RIINIT(I,L) = RI(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2440 |
TRBFLX |
QQINIT(I,L) = QQ(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2466 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2467 |
TRBFLX |
RHOKDZ(I,L) = RHODZ1(I,L) * QXLM(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2479 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2480 |
TRBFLX |
KHSAVE(I,L) = KH(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2494 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2495 |
TRBFLX |
KM(I,L) = KMBG |
|
./pkg/fizhi/fizhi_turb.F |
2496 |
TRBFLX |
KH(I,L) = KHBG |
|
./pkg/fizhi/fizhi_turb.F |
2511 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2512 |
TRBFLX |
Q(I,L) = 2. * QQ(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2513 |
TRBFLX |
Q(I,L) = SQRT(Q(I,L)) |
|
./pkg/fizhi/fizhi_turb.F |
2514 |
TRBFLX |
XQ(I,L)= XL(I,L) * Q(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2515 |
TRBFLX |
KM(I,L)=XQ(I,L)*KM(I,L)+KMBG |
|
./pkg/fizhi/fizhi_turb.F |
2516 |
TRBFLX |
KH(I,L)=XQ(I,L)*KH(I,L)+KHBG |
|
./pkg/fizhi/fizhi_turb.F |
2543 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2544 |
TRBFLX |
TEMP(I,L) = RHOZPK(I,L) * KH(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2545 |
TRBFLX |
DELTH(I,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
2548 |
TRBFLX |
DO 9132 I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2549 |
TRBFLX |
DELTH(I,NLEVP1) = 1. |
|
./pkg/fizhi/fizhi_turb.F |
2574 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2575 |
TRBFLX |
RHOKDZ(I,L) = RHODZ2(I,L) * KH(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2576 |
TRBFLX |
DELSH(I,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
2579 |
TRBFLX |
DO 9140 I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2580 |
TRBFLX |
DELSH(I,NLEVP1) = 1. |
|
./pkg/fizhi/fizhi_turb.F |
2621 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2622 |
TRBFLX |
RHOKDZ(I,L) = RHODZ2(I,L) * KM(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2634 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2635 |
TRBFLX |
WU(I,L) = WU(I,L) + RHOKDZ(I,L) * ( U(I,L+1) - U(I,L) ) |
|
./pkg/fizhi/fizhi_turb.F |
2636 |
TRBFLX |
WV(I,L) = WV(I,L) + RHOKDZ(I,L) * ( V(I,L+1) - V(I,L) ) |
|
./pkg/fizhi/fizhi_turb.F |
2648 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2649 |
TRBFLX |
IF ( QQ(I,L) .GT. QQMIN ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2650 |
TRBFLX |
IBITSTB(I,L) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
2652 |
TRBFLX |
IBITSTB(I,L) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
2654 |
TRBFLX |
IF( IBITSTB(I,L).EQ.1 ) FREQDG(I,L) = FREQDG(I,L) + aitr |
|
./pkg/fizhi/fizhi_turb.F |
2663 |
TRBFLX |
DO I = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2664 |
TRBFLX |
IF ( (qq(i,l).gt.qqcolmax(I)).and.(levpbl(i).eq.nlev))then |
|
./pkg/fizhi/fizhi_turb.F |
2666 |
TRBFLX |
qqcolmin(i) = 0.1*qqcolmax(I) |
|
./pkg/fizhi/fizhi_turb.F |
2675 |
TRBFLX |
pbldpth(I) = pbldpth(I) + ( (PLE(I,nlev+1)-PLE(I,Lp+2)) + |
|
./pkg/fizhi/fizhi_turb.F |
2679 |
TRBFLX |
pbldpth(I) = pbldpth(I) + ( (PLE(I,nlev+1)-PLE(I,2)) + |
|
./pkg/fizhi/fizhi_turb.F |
2697 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2698 |
TRBFLX |
EU(I,L) = EU(I,L) + AITR*KM(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2699 |
TRBFLX |
ET(I,L) = ET(I,L) + AITR*KH(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2702 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2703 |
TRBFLX |
scu(I) = scu(I) + AITR*cu(I) |
|
./pkg/fizhi/fizhi_turb.F |
2705 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2706 |
TRBFLX |
sct(I) = sct(I) + AITR*ct(I) |
|
./pkg/fizhi/fizhi_turb.F |
2713 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2714 |
TRBFLX |
XLDIAG(I,L) = XLDIAG(I,L) + AITR*XL(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2727 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2728 |
TRBFLX |
XLSAVE(I,L) = XL(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2731 |
TRBFLX |
DO I = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2732 |
TRBFLX |
CTSAVE(I) = CT(I) |
|
./pkg/fizhi/fizhi_turb.F |
2733 |
TRBFLX |
XXSAVE(I) = XX(I) |
|
./pkg/fizhi/fizhi_turb.F |
2734 |
TRBFLX |
YYSAVE(I) = YY(I) |
|
./pkg/fizhi/fizhi_turb.F |
2735 |
TRBFLX |
ZETASAVE(I) = ZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
2746 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2747 |
TRBFLX |
turbfcc(I,L) = turbfcc(I,L) + fcc(I,L) * aitr |
|
./pkg/fizhi/fizhi_turb.F |
2748 |
TRBFLX |
qliq(I,L) = qliq(I,L) + shl(I,L) * aitr |
|
./pkg/fizhi/fizhi_turb.F |
2760 |
TRBFLX |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
2761 |
TRBFLX |
WU(I,L) = WU(I,L) * AITR |
|
./pkg/fizhi/fizhi_turb.F |
2762 |
TRBFLX |
WV(I,L) = WV(I,L) * AITR |
|
./pkg/fizhi/fizhi_turb.F |
2878 |
SFCFLX |
DO 9000 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
2879 |
SFCFLX |
VWS(I) = VUS(I) * VUS(I) + VVS(I) * VVS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2880 |
SFCFLX |
IF ( VWS(I) .LE. 1.e-4) VWS(I) = 1.e-4 |
|
./pkg/fizhi/fizhi_turb.F |
2881 |
SFCFLX |
VRIB(I) = ( CP * (VPKE(I)-VPK(I)) ) * |
|
./pkg/fizhi/fizhi_turb.F |
2882 |
SFCFLX |
1 (VTHV1(I) - VTHV2(I)) / VWS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2883 |
SFCFLX |
VWS(I) = SQRT( VWS(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
2892 |
SFCFLX |
DO 9002 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
2893 |
SFCFLX |
IF (IVWATER(I).EQ.1) IWATER = IWATER + 1 |
|
./pkg/fizhi/fizhi_turb.F |
2899 |
SFCFLX |
DO 9004 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
2900 |
SFCFLX |
IF (IVWATER(I).EQ.1) VZ0(I) = 0.0003 |
|
./pkg/fizhi/fizhi_turb.F |
2910 |
SFCFLX |
DO 9006 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
2911 |
SFCFLX |
VHZ(I) = VHS(I) / VZ0(I) |
|
./pkg/fizhi/fizhi_turb.F |
2912 |
SFCFLX |
VPSIM(I) = LOG( VHZ(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
2913 |
SFCFLX |
VAPSIM(I) = 1. / VPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
2914 |
SFCFLX |
VCU(I) = VK * VAPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
2915 |
SFCFLX |
VUSTAR(I) = VCU(I) * VWS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2917 |
SFCFLX |
VPSIG(I) = VH0(I) * VUSTAR(I) - USTH0S |
|
./pkg/fizhi/fizhi_turb.F |
2918 |
SFCFLX |
if(VPSIG(I).lt.0.) VPSIG(I) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
2919 |
SFCFLX |
VPSIG(I) = SQRT( VPSIG(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
2920 |
SFCFLX |
VPSIG(I) = BMDL * VPSIG(I) |
|
./pkg/fizhi/fizhi_turb.F |
2921 |
SFCFLX |
VPSIHG(I) = VPSIM(I) + VPSIG(I) |
|
./pkg/fizhi/fizhi_turb.F |
2927 |
SFCFLX |
DO 9008 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
2928 |
SFCFLX |
VTEMP(I) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
2940 |
SFCFLX |
DO 9010 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
2941 |
SFCFLX |
IF ( IVWATER(I).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2942 |
SFCFLX |
VCU(I) = VCU(I) * (1. - VDPSIM(I)*VAPSIM(I)) |
|
./pkg/fizhi/fizhi_turb.F |
2943 |
SFCFLX |
VZ0(I) = VZ0(I) + VDZ0(I) |
|
./pkg/fizhi/fizhi_turb.F |
2945 |
SFCFLX |
IF ( IVWATER(I).EQ.1) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2946 |
SFCFLX |
IF ( VZ0(I) .LE. Z0MIN ) VZ0(I) = Z0MIN |
|
./pkg/fizhi/fizhi_turb.F |
2948 |
SFCFLX |
VPSIG(I) = VH0(I) * VCU(I) * VWS(I) - USTH0S |
|
./pkg/fizhi/fizhi_turb.F |
2949 |
SFCFLX |
if(VPSIG(I).lt.0.) VPSIG(I) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
2950 |
SFCFLX |
VPSIG(I) = SQRT( VPSIG(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
2951 |
SFCFLX |
VPSIG(I) = BMDL * VPSIG(I) |
|
./pkg/fizhi/fizhi_turb.F |
2952 |
SFCFLX |
VPSIHG(I) = VPSIM(I) + VDPSIH(I) + VPSIG(I) |
|
./pkg/fizhi/fizhi_turb.F |
2959 |
SFCFLX |
DO 9012 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
2960 |
SFCFLX |
VZETA(I) = VK2 * VRIB(I) / (VCU(I) * VCU(I) * VPSIHG(I)) |
|
./pkg/fizhi/fizhi_turb.F |
2965 |
SFCFLX |
DO 9014 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
2966 |
SFCFLX |
VZH(I) = VZ0(I) * VAHS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2971 |
SFCFLX |
DO 9016 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
2972 |
SFCFLX |
VCU(I) = VK / VPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
2973 |
SFCFLX |
VPSIG(I) = VH0(I) * VCU(I) * VWS(I) - USTH0S |
|
./pkg/fizhi/fizhi_turb.F |
2974 |
SFCFLX |
if(VPSIG(I).lt.0.) VPSIG(I) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
2975 |
SFCFLX |
VPSIG(I) = SQRT(VPSIG(I)) |
|
./pkg/fizhi/fizhi_turb.F |
2976 |
SFCFLX |
VPSIG(I) = BMDL * VPSIG(I) |
|
./pkg/fizhi/fizhi_turb.F |
2977 |
SFCFLX |
VPSIHG(I) = VPSIM(I) + VPSIG(I) |
|
./pkg/fizhi/fizhi_turb.F |
2978 |
SFCFLX |
VZETA(I) = VK2 * VRIB(I) / (VCU(I) * VCU(I) * VPSIHG(I)) |
|
./pkg/fizhi/fizhi_turb.F |
2983 |
SFCFLX |
DO 9018 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
2984 |
SFCFLX |
IF (IVWATER(I).EQ.1) VUSTAR(I) = VCU(I) * VWS(I) |
|
./pkg/fizhi/fizhi_turb.F |
2987 |
SFCFLX |
DO 9020 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
2988 |
SFCFLX |
IF (IVWATER(I).EQ.1 ) then |
|
./pkg/fizhi/fizhi_turb.F |
2989 |
SFCFLX |
VZ0(I) = VTEMP(I) |
|
./pkg/fizhi/fizhi_turb.F |
2990 |
SFCFLX |
IF ( VZ0(I) .LE. Z0MIN ) VZ0(I) = Z0MIN |
|
./pkg/fizhi/fizhi_turb.F |
3013 |
SFCFLX |
DO 9022 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
3014 |
SFCFLX |
VZETA(I) = VZETA(I) + VZETAL(I) * VDZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
3015 |
SFCFLX |
IF (IVBITRIB(I).EQ.1 )VZETA(I) = |
|
./pkg/fizhi/fizhi_turb.F |
3016 |
SFCFLX |
1 VPSIM(I) * VPSIM(I) * VRIB(I) * VCT(I) * RVK |
|
./pkg/fizhi/fizhi_turb.F |
3020 |
SFCFLX |
DO 9024 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
3021 |
SFCFLX |
IF (IVWATER(I).EQ.1 ) then |
|
./pkg/fizhi/fizhi_turb.F |
3022 |
SFCFLX |
VZ0(I) = VZ0(I) + VZ0L(I) * VDZ0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3023 |
SFCFLX |
IF (VZ0(I) .LE. Z0MIN ) VZ0(I) = Z0MIN |
|
./pkg/fizhi/fizhi_turb.F |
3035 |
SFCFLX |
DO 9026 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
3036 |
SFCFLX |
VZH(I) = VZ0(I) * VAHS(I) |
|
./pkg/fizhi/fizhi_turb.F |
3041 |
SFCFLX |
DO 9028 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
3042 |
SFCFLX |
VCU(I) = VK / VPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
3043 |
SFCFLX |
VUSTAR(I) = VCU(I) * VWS(I) |
|
./pkg/fizhi/fizhi_turb.F |
3045 |
SFCFLX |
VPSIG(I) = VH0(I) * VUSTAR(I) - USTH0S |
|
./pkg/fizhi/fizhi_turb.F |
3046 |
SFCFLX |
if(VPSIG(I).lt.0.) VPSIG(I) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
3047 |
SFCFLX |
VPSIG(I) = SQRT(VPSIG(I)) |
|
./pkg/fizhi/fizhi_turb.F |
3048 |
SFCFLX |
VPSIG(I) = BMDL * VPSIG(I) |
|
./pkg/fizhi/fizhi_turb.F |
3049 |
SFCFLX |
VPSIHG(I) = VPSIH(I) + VPSIG(I) |
|
./pkg/fizhi/fizhi_turb.F |
3053 |
SFCFLX |
VAPSIM(I) = VCU(I) * RVK |
|
./pkg/fizhi/fizhi_turb.F |
3054 |
SFCFLX |
VAPSIHG(I) = 1. / VPSIHG(I) |
|
./pkg/fizhi/fizhi_turb.F |
3055 |
SFCFLX |
VRIB1(I) = VAPSIM(I) * VAPSIM(I) * VPSIHG(I) * VZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
3076 |
SFCFLX |
DO 9030 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
3077 |
SFCFLX |
VZETAL(I) = VZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
3078 |
SFCFLX |
VZ0L(I) = VZ0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3082 |
SFCFLX |
DO 9032 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
3083 |
SFCFLX |
VZETA(I) = VZETA(I) * ( 1. + VDZETA(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3084 |
SFCFLX |
IF (IVBITRIB(I).EQ.1 ) VZETA(I) = |
|
./pkg/fizhi/fizhi_turb.F |
3085 |
SFCFLX |
1 VPSIM(I) * VPSIM(I) * VRIB(I) * VAPSIHG(I) |
|
./pkg/fizhi/fizhi_turb.F |
3089 |
SFCFLX |
DO 9034 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
3090 |
SFCFLX |
IF (IVWATER(I).EQ.1 ) then |
|
./pkg/fizhi/fizhi_turb.F |
3091 |
SFCFLX |
VZ0(I) = VZ0(I) * ( 1. + VDZ0(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3092 |
SFCFLX |
IF (VZ0(I) .LE. Z0MIN ) VZ0(I) = Z0MIN |
|
./pkg/fizhi/fizhi_turb.F |
3099 |
SFCFLX |
DO 9036 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
3100 |
SFCFLX |
VPSIM(I) = VPSIM(I) + VDPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
3101 |
SFCFLX |
VCU(I) = VK / VPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
3102 |
SFCFLX |
VUSTAR(I) = VCU(I) * VWS(I) |
|
./pkg/fizhi/fizhi_turb.F |
3104 |
SFCFLX |
VPSIG(I) = VH0(I) * VUSTAR(I) - USTH0S |
|
./pkg/fizhi/fizhi_turb.F |
3105 |
SFCFLX |
if(VPSIG(I).lt.0.) VPSIG(I) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
3106 |
SFCFLX |
VPSIG(I) = SQRT(VPSIG(I)) |
|
./pkg/fizhi/fizhi_turb.F |
3107 |
SFCFLX |
VPSIG(I) = BMDL * VPSIG(I) |
|
./pkg/fizhi/fizhi_turb.F |
3108 |
SFCFLX |
VPSIHG(I) = VPSIH(I) + VDPSIH(I) + VPSIG(I) |
|
./pkg/fizhi/fizhi_turb.F |
3109 |
SFCFLX |
VCT(I) = VK / VPSIHG(I) |
|
./pkg/fizhi/fizhi_turb.F |
3116 |
SFCFLX |
DO 9038 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
3117 |
SFCFLX |
VRIB1(I) = VRIB(I) |
|
./pkg/fizhi/fizhi_turb.F |
3118 |
SFCFLX |
VWS1(I) = VWS(I) |
|
./pkg/fizhi/fizhi_turb.F |
3127 |
SFCFLX |
DO I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
3128 |
SFCFLX |
VTEMP(I) = 10. * VAHS(I) * VZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
3129 |
SFCFLX |
VZH(I) = VZ0(I) * 0.1 |
|
./pkg/fizhi/fizhi_turb.F |
3134 |
SFCFLX |
DO I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
3135 |
SFCFLX |
VTEMP(I) = ( VPSIH2(I) + VPSIG(I) ) / VPSIHG(I) |
|
./pkg/fizhi/fizhi_turb.F |
3136 |
SFCFLX |
VRHO(I) = VPKE(I)*( VTH2(I) + VTEMP(I) * (VTH1(I)-VTH2(I)) ) |
|
./pkg/fizhi/fizhi_turb.F |
3137 |
SFCFLX |
VRHO(I) = VPE(I)*100. / ( RGAS * VRHO(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3182 |
SFCFLX |
DO 9044 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
3183 |
SFCFLX |
VRHOZPK(I) = VRHO(I) * VPKE(I) |
|
./pkg/fizhi/fizhi_turb.F |
3184 |
SFCFLX |
VKH(I) = VUSTAR(I) * VCT(I) |
|
./pkg/fizhi/fizhi_turb.F |
3185 |
SFCFLX |
VKM(I) = VUSTAR(I) * VCU(I) |
|
./pkg/fizhi/fizhi_turb.F |
3404 |
PHI |
DO 9000 I = 1,N |
|
./pkg/fizhi/fizhi_turb.F |
3405 |
PHI |
IF(Z(I).GE.0.15)IBIT1 = IBIT1 + 1 |
|
./pkg/fizhi/fizhi_turb.F |
3406 |
PHI |
IF(Z(I).GT.2. )IBIT2 = IBIT2 + 1 |
|
./pkg/fizhi/fizhi_turb.F |
3411 |
PHI |
DO 9002 I = 1,N |
|
./pkg/fizhi/fizhi_turb.F |
3412 |
PHI |
ZSTAR(I) = 100. * Z(I) - 14. |
|
./pkg/fizhi/fizhi_turb.F |
3416 |
PHI |
DO 9004 I = 1,N |
|
./pkg/fizhi/fizhi_turb.F |
3417 |
PHI |
TEMP1(I) = Z(I)*0.5 |
|
./pkg/fizhi/fizhi_turb.F |
3418 |
PHI |
IF( Z(I) .LE. 2. )TEMP1(I) = 1. |
|
./pkg/fizhi/fizhi_turb.F |
3419 |
PHI |
TEMP1(I) = LOG10(TEMP1(I)) |
|
./pkg/fizhi/fizhi_turb.F |
3420 |
PHI |
TEMP1(I) = (TEMP1(I) + 9.3) * 20. |
|
./pkg/fizhi/fizhi_turb.F |
3421 |
PHI |
IF( Z(I) .GT. 2. ) ZSTAR(I) = TEMP1(I) |
|
./pkg/fizhi/fizhi_turb.F |
3422 |
PHI |
IF( Z(I).GT.1.78e10 ) ZSTAR(I) = 384.9999 |
|
./pkg/fizhi/fizhi_turb.F |
3427 |
PHI |
DO 9006 I = 1,N |
|
./pkg/fizhi/fizhi_turb.F |
3428 |
PHI |
I1(I) = ZSTAR(I) |
|
./pkg/fizhi/fizhi_turb.F |
3429 |
PHI |
I2(I) = I1(I) + 1 |
|
./pkg/fizhi/fizhi_turb.F |
3430 |
PHI |
TEMP1(I) = ZSTAR(I) - I1(I) |
|
./pkg/fizhi/fizhi_turb.F |
3435 |
PHI |
DO 9008 I = 1,N |
|
./pkg/fizhi/fizhi_turb.F |
3437 |
PHI |
E1(I) = PHIM0( I1(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3438 |
PHI |
E2(I) = PHIM0( I2(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3439 |
PHI |
PHIM(I) = TEMP1(I) * ( E2(I)-E1(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3440 |
PHI |
PHIM(I) = PHIM(I) + E1(I) |
|
./pkg/fizhi/fizhi_turb.F |
3447 |
PHI |
DO 9010 I = 1,N |
|
./pkg/fizhi/fizhi_turb.F |
3449 |
PHI |
E1(I) = PHIH0( I1(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3450 |
PHI |
E2(I) = PHIH0( I2(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3451 |
PHI |
PHIH(I) = TEMP1(I) * ( E2(I)-E1(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3452 |
PHI |
PHIH(I) = PHIH(I) + E1(I) |
|
./pkg/fizhi/fizhi_turb.F |
3459 |
PHI |
DO 9012 I = 1,N |
|
./pkg/fizhi/fizhi_turb.F |
3460 |
PHI |
ZSTAR(I) = -Z(I) |
|
./pkg/fizhi/fizhi_turb.F |
3464 |
PHI |
DO 9014 I = 1,N |
|
./pkg/fizhi/fizhi_turb.F |
3465 |
PHI |
IF( Z(I) .LT. 0.15 ) PHIM(I) = 1. + ZSTAR(I) |
|
./pkg/fizhi/fizhi_turb.F |
3466 |
PHI |
2 *(0.25+ZSTAR(I)*(0.09375+ZSTAR(I)* |
|
./pkg/fizhi/fizhi_turb.F |
3467 |
PHI |
3 (0.03125+0.00732422 * ZSTAR(I)))) |
|
./pkg/fizhi/fizhi_turb.F |
3472 |
PHI |
DO 9016 I = 1,N |
|
./pkg/fizhi/fizhi_turb.F |
3473 |
PHI |
IF( Z(I) .LT. 0.15 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3474 |
PHI |
PHIH(I) =1.+ Z(I) * (0.5+ZSTAR(I)*(0.375+ZSTAR(I)* |
|
./pkg/fizhi/fizhi_turb.F |
3475 |
PHI |
1 (0.5+ZSTAR(I)*(0.8203125+ZSTAR(I)* |
|
./pkg/fizhi/fizhi_turb.F |
3476 |
PHI |
2 (1.5+2.93262*ZSTAR(I)))))) |
|
./pkg/fizhi/fizhi_turb.F |
3477 |
PHI |
PHIH(I) = 1. / PHIH(I) |
|
./pkg/fizhi/fizhi_turb.F |
3543 |
PSI |
DO 9000 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
3544 |
PSI |
VPSIM(I) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
3545 |
PSI |
VPSIH(I) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
3546 |
PSI |
VX(I) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
3547 |
PSI |
VXS(I) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
3548 |
PSI |
VY(I) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
3549 |
PSI |
VYS(I) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
3550 |
PSI |
ZZ0(I) = VZH(I)*VZZ(I) |
|
./pkg/fizhi/fizhi_turb.F |
3553 |
PSI |
DO 9122 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
3554 |
PSI |
IF(VZZ(I).LE.-1.e-7)IBIT = IBIT + 1 |
|
./pkg/fizhi/fizhi_turb.F |
3556 |
PSI |
DO 9022 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
3557 |
PSI |
IF(VZZ(I).LE.-1.e-7)THEN |
|
./pkg/fizhi/fizhi_turb.F |
3558 |
PSI |
INTSTB(I) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
3560 |
PSI |
INTSTB(I) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3571 |
PSI |
DO 9002 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
3572 |
PSI |
IF (INTSTB(I).EQ.1)THEN |
|
./pkg/fizhi/fizhi_turb.F |
3574 |
PSI |
Z(indx) = VZZ(I) |
|
./pkg/fizhi/fizhi_turb.F |
3575 |
PSI |
Z0(indx) = ZZ0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3579 |
PSI |
DO 9004 I = 1,IBIT |
|
./pkg/fizhi/fizhi_turb.F |
3580 |
PSI |
Z(I) = -18. * Z(I) |
|
./pkg/fizhi/fizhi_turb.F |
3581 |
PSI |
Z0(I) = -18. * Z0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3593 |
PSI |
DO 9006 I = 1,IBIT |
|
./pkg/fizhi/fizhi_turb.F |
3594 |
PSI |
ARG1(I) = 1. - X1(I) |
|
./pkg/fizhi/fizhi_turb.F |
3595 |
PSI |
IF ( Z(I) .LT. 0.013 ) ARG1(I) = |
|
./pkg/fizhi/fizhi_turb.F |
3596 |
PSI |
1 Z(I) * ( 0.25 - 0.09375 * Z(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3598 |
PSI |
ARG0(I) = 1. - X0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3599 |
PSI |
IF ( Z0(I) .LT. 0.013 ) ARG0(I) = |
|
./pkg/fizhi/fizhi_turb.F |
3600 |
PSI |
1 Z0(I) * ( 0.25 - 0.09375 * Z0(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3602 |
PSI |
ARG1(I) = ARG1(I) * ( 1.+X0(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3603 |
PSI |
ARG0(I) = ARG0(I) * ( 1.+X1(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3604 |
PSI |
DX(I) = X1(I) - X0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3605 |
PSI |
ARG1(I) = ARG1(I) / ARG0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3606 |
PSI |
ARG0(I) = -DX(I) / ( 1. + X1(I)*X0(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3607 |
PSI |
ARG0(I) = ATAN( ARG0(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3608 |
PSI |
ARG1(I) = LOG( ARG1(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3609 |
PSI |
PSI2(I) = 2. * ARG0(I) + ARG1(I) |
|
./pkg/fizhi/fizhi_turb.F |
3610 |
PSI |
PSI2(I) = PSI2(I) + DX(I) |
|
./pkg/fizhi/fizhi_turb.F |
3614 |
PSI |
DO 9008 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
3615 |
PSI |
IF( INTSTB(I).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3617 |
PSI |
VPSIM(I) = PSI2(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3618 |
PSI |
VX(I) = X1(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3619 |
PSI |
VXS(I) = X0(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3630 |
PSI |
DO 9010 I = 1,IBIT |
|
./pkg/fizhi/fizhi_turb.F |
3631 |
PSI |
ARG1(I) = 1. - Y1(I) |
|
./pkg/fizhi/fizhi_turb.F |
3632 |
PSI |
IF( Z(I) .LT. 0.0065 ) ARG1(I) = |
|
./pkg/fizhi/fizhi_turb.F |
3633 |
PSI |
1 Z(I) * ( 0.5 - 0.625 * Z(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3635 |
PSI |
ARG0(I) = 1. - Y0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3636 |
PSI |
IF( Z0(I) .LT. 0.0065 ) ARG0(I) = |
|
./pkg/fizhi/fizhi_turb.F |
3637 |
PSI |
1 Z0(I) * ( 0.5 - 0.625 * Z0(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3639 |
PSI |
ARG1(I) = ARG1(I) * ( 1. + Y0(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3640 |
PSI |
ARG0(I) = ARG0(I) * ( 1. + Y1(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3641 |
PSI |
ARG1(I) = ARG1(I) / ARG0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3642 |
PSI |
PSI2(I) = LOG( ARG1(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3643 |
PSI |
PSI2(I) = PSI2(I) - Y1(I) + Y0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3647 |
PSI |
DO 9012 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
3648 |
PSI |
IF( INTSTB(I).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3650 |
PSI |
VPSIH(I) = PSI2(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3651 |
PSI |
VY(I) = Y1(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3652 |
PSI |
VYS(I) = Y0(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3662 |
PSI |
DO 9114 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
3663 |
PSI |
IF(VZZ(I).GT.-1.e-7)THEN |
|
./pkg/fizhi/fizhi_turb.F |
3667 |
PSI |
DO 9014 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
3668 |
PSI |
IF(VZZ(I).GT.-1.e-7)THEN |
|
./pkg/fizhi/fizhi_turb.F |
3669 |
PSI |
INTSTB(I) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
3671 |
PSI |
INTSTB(I) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3679 |
PSI |
DO 9016 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
3680 |
PSI |
IF (INTSTB(I).EQ.1)THEN |
|
./pkg/fizhi/fizhi_turb.F |
3682 |
PSI |
Z(indx) = VZZ(I) |
|
./pkg/fizhi/fizhi_turb.F |
3683 |
PSI |
Z0(indx) = ZZ0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3684 |
PSI |
ARG1(indx) = VZH(I) |
|
./pkg/fizhi/fizhi_turb.F |
3691 |
PSI |
DO 9018 I = 1,IBIT |
|
./pkg/fizhi/fizhi_turb.F |
3692 |
PSI |
HZ(I) = 1. / ARG1(I) |
|
./pkg/fizhi/fizhi_turb.F |
3693 |
PSI |
Z1(I) = Z(I) |
|
./pkg/fizhi/fizhi_turb.F |
3694 |
PSI |
Z2(I) = ZWM |
|
./pkg/fizhi/fizhi_turb.F |
3696 |
PSI |
IF ( Z(I) .GT. ZWM ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3697 |
PSI |
Z1(I) = ZWM |
|
./pkg/fizhi/fizhi_turb.F |
3698 |
PSI |
Z2(I) = Z(I) |
|
./pkg/fizhi/fizhi_turb.F |
3701 |
PSI |
IF ( Z0(I) .GT. Z0M ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3702 |
PSI |
Z0(I) = Z0M |
|
./pkg/fizhi/fizhi_turb.F |
3703 |
PSI |
INTZ0(I) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
3705 |
PSI |
INTZ0(I) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3708 |
PSI |
X1NUM(I) = 1. + 5. * Z1(I) |
|
./pkg/fizhi/fizhi_turb.F |
3709 |
PSI |
X0NUM(I) = 1. + 5. * Z0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3710 |
PSI |
X1DEN(I) = 1. / (1. + CM1 * (X1NUM(I) * Z1(I)) ) |
|
./pkg/fizhi/fizhi_turb.F |
3711 |
PSI |
X0DEN(I) = 1. + CM1 * (X0NUM(I) * Z0(I)) |
|
./pkg/fizhi/fizhi_turb.F |
3713 |
PSI |
IF ( (INTZ0(I).EQ.1) .OR. (Z(I).GT.ZWM) ) |
|
./pkg/fizhi/fizhi_turb.F |
3714 |
PSI |
1 HZ(I) = Z1(I) / Z0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3715 |
PSI |
ARG1(I) = HZ(I)*HZ(I)*X0DEN(I)*X1DEN(I) |
|
./pkg/fizhi/fizhi_turb.F |
3716 |
PSI |
ARG1(I) = LOG( ARG1(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3717 |
PSI |
ARG1(I) = 0.5 * ARG1(I) |
|
./pkg/fizhi/fizhi_turb.F |
3718 |
PSI |
ARG0(I) = (Z1(I) + 0.1) * (Z0(I) + 0.1) |
|
./pkg/fizhi/fizhi_turb.F |
3719 |
PSI |
ARG0(I) = CM3 + ARG0(I) * CM4 |
|
./pkg/fizhi/fizhi_turb.F |
3720 |
PSI |
ARG0(I) = ( Z1(I) - Z0(I) ) / ARG0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3721 |
PSI |
ARG0(I) = ATAN( ARG0(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3722 |
PSI |
TEMP(I) = ARG1(I) + CM5 * ARG0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3724 |
PSI |
X0(I) = X0NUM(I) / X0DEN(I) |
|
./pkg/fizhi/fizhi_turb.F |
3725 |
PSI |
IF ( INTZ0(I).EQ.1 ) X0(I) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
3726 |
PSI |
Z2ZWM(I) = Z2(I) * RZWM |
|
./pkg/fizhi/fizhi_turb.F |
3735 |
PSI |
DO 9020 I = 1,IBIT |
|
./pkg/fizhi/fizhi_turb.F |
3736 |
PSI |
X1(I) = X1NUM(I) * X1DEN(I) |
|
./pkg/fizhi/fizhi_turb.F |
3737 |
PSI |
ARG1(I) = LOG( Z2ZWM(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3738 |
PSI |
PSI2(I) = TEMP(I) + CM6 * ARG1(I) |
|
./pkg/fizhi/fizhi_turb.F |
3742 |
PSI |
DO 9030 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
3743 |
PSI |
IF( INTSTB(I).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3745 |
PSI |
VPSIM(I) = PSI2(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3746 |
PSI |
VX(I) = X1(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3747 |
PSI |
VXS(I) = X0(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3758 |
PSI |
DO 9024 I = 1,IBIT |
|
./pkg/fizhi/fizhi_turb.F |
3759 |
PSI |
Y1DEN(I) = 1. + CM1 * ( X1NUM(I) * Z(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3760 |
PSI |
Y1(I) = X1NUM(I) / Y1DEN(I) |
|
./pkg/fizhi/fizhi_turb.F |
3761 |
PSI |
ARG1(I) = CM7 * Z2ZWM(I) / ( CM2 + Z2(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3762 |
PSI |
ARG0(I) = 6. |
|
./pkg/fizhi/fizhi_turb.F |
3763 |
PSI |
IF ( Z2(I) .GT. ZCM ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3764 |
PSI |
Y1(I) = YCM |
|
./pkg/fizhi/fizhi_turb.F |
3765 |
PSI |
ARG1(I) = Z2(I) * RZCM |
|
./pkg/fizhi/fizhi_turb.F |
3766 |
PSI |
ARG0(I) = YCM |
|
./pkg/fizhi/fizhi_turb.F |
3767 |
PSI |
TEMP(I) = TEMP(I) + CM8 |
|
./pkg/fizhi/fizhi_turb.F |
3769 |
PSI |
ARG1(I) = LOG( ARG1(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3770 |
PSI |
PSI2(I) = TEMP(I) + ARG0(I) * ARG1(I) |
|
./pkg/fizhi/fizhi_turb.F |
3774 |
PSI |
DO 9026 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
3775 |
PSI |
IF( INTSTB(I).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3777 |
PSI |
VPSIH(I) = PSI2(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3778 |
PSI |
VY(I) = Y1(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3779 |
PSI |
VYS(I) = X0(indx) |
|
./pkg/fizhi/fizhi_turb.F |
3878 |
TRBLEN |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
3879 |
TRBLEN |
STBFCN(I,L) = STRT(I,L) - RICR * DW2(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
3880 |
TRBLEN |
INT1(I,L) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3881 |
TRBLEN |
IF( STBFCN(I,L).LE.0. ) INT1(I,L) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
3890 |
TRBLEN |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
3891 |
TRBLEN |
INT2(I,L) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3892 |
TRBLEN |
IF( (INT1(I,L).EQ.1) .NEQV. (INT1(I,L+1).EQ.1) ) INT2(I,L) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
3898 |
TRBLEN |
DO 30 I=1,irun |
|
./pkg/fizhi/fizhi_turb.F |
3899 |
TRBLEN |
IBIT = IBIT + INT1(I,LMIN) |
|
./pkg/fizhi/fizhi_turb.F |
3911 |
TRBLEN |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
3912 |
TRBLEN |
XL0(I,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
3915 |
TRBLEN |
DO 70 I=1,irun |
|
./pkg/fizhi/fizhi_turb.F |
3916 |
TRBLEN |
XL0(I,NLEV) = DZ3(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
3937 |
TRBLEN |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
3938 |
TRBLEN |
INT2(I,L) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3939 |
TRBLEN |
IF ( INT1(I,L).EQ.1 .OR. INT1(I,L+1).EQ.1 ) INT2(I,L) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
3940 |
TRBLEN |
IF ( INT2(I,L).EQ.1 ) |
|
./pkg/fizhi/fizhi_turb.F |
3941 |
TRBLEN |
. XL0(I,L) = (0.5+DZITRP(I,L)) * DZ3(I,L+1) |
|
./pkg/fizhi/fizhi_turb.F |
3944 |
TRBLEN |
DO 90 I=1,irun |
|
./pkg/fizhi/fizhi_turb.F |
3945 |
TRBLEN |
INT2(I,NLEVM1) = INT1(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
3954 |
TRBLEN |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
3955 |
TRBLEN |
IF ( INT2(I,L).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3956 |
TRBLEN |
XL0(I,L+1) = XL0(I,L+1) + ( (0.5-DZITRP(I,L)) * DZ3(I,L+1) ) |
|
./pkg/fizhi/fizhi_turb.F |
3961 |
TRBLEN |
DO 110 I=1,irun |
|
./pkg/fizhi/fizhi_turb.F |
3962 |
TRBLEN |
IF( INT1(I,1).EQ.1 ) XL0(I,1) = XL0(I,1) + DZ3(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3970 |
TRBLEN |
DO 120 I = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
3971 |
TRBLEN |
IF( INT1(I,LM1).EQ.1 ) XL0(I,L) = XL0(I,L) + XL0(I,LM1) |
|
./pkg/fizhi/fizhi_turb.F |
3976 |
TRBLEN |
DO 130 I = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
3977 |
TRBLEN |
IF( INT1(I,NLEVM1).EQ.1 .AND. INT1(I,NLEV).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3978 |
TRBLEN |
XL0(I,NLEV) = XL0(I,NLEV) + XL0(I,NLEVM1) |
|
./pkg/fizhi/fizhi_turb.F |
3986 |
TRBLEN |
DO 140 I = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
3987 |
TRBLEN |
IF( INT1(I,LP1).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3988 |
TRBLEN |
IF( INT1(I,L) .EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3989 |
TRBLEN |
XL0(I,L) = XL0(I,LP1) |
|
./pkg/fizhi/fizhi_turb.F |
3991 |
TRBLEN |
XL0(I,L) = XL0(I,L) + XL0(I,LP1) |
|
./pkg/fizhi/fizhi_turb.F |
4002 |
TRBLEN |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
4003 |
TRBLEN |
IF ( XL0(I,L).LT.XL0CNV ) XL0(I,L) = XL0CNV |
|
./pkg/fizhi/fizhi_turb.F |
4019 |
TRBLEN |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
4020 |
TRBLEN |
INT2(I,L) = 1 - INT1(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4038 |
TRBLEN |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
4039 |
TRBLEN |
IF( INT1(I,L).EQ.0 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4040 |
TRBLEN |
XL0(I,L) = Q(I,L) / XL0(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4041 |
TRBLEN |
XL0(I,L) = XL0(I,L) * XL0(I,L) + 1.0E-20 |
|
./pkg/fizhi/fizhi_turb.F |
4042 |
TRBLEN |
XL0(I,L) = STBFCN(I,L) + XL0(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4043 |
TRBLEN |
XL0(I,L) = SQRT( XL0(I,L) ) |
|
./pkg/fizhi/fizhi_turb.F |
4044 |
TRBLEN |
XL0(I,L) = Q(I,L) / XL0(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4046 |
TRBLEN |
INT2(I,L) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
4047 |
TRBLEN |
IF( XL0(I,L).LT.XL0MIN ) INT2(I,L) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
4059 |
TRBLEN |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
4060 |
TRBLEN |
INT2(I,L) = 1 - INT1(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4061 |
TRBLEN |
IF ( INT2(I,L).EQ.1 ) XL0(I,L) = XL0MIN |
|
./pkg/fizhi/fizhi_turb.F |
4069 |
TRBLEN |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
4070 |
TRBLEN |
IF ( INT2(I,L).EQ.1 ) XL0(I,L) = XL0MIN |
|
./pkg/fizhi/fizhi_turb.F |
4084 |
TRBLEN |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
4085 |
TRBLEN |
XL(I,L) = XL0(I,L) * VKZE(I,L) / ( XL0(I,L)+VKZE(I,L) ) |
|
./pkg/fizhi/fizhi_turb.F |
4105 |
TRBLEN |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
4106 |
TRBLEN |
Q1(I,L) = Q(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4107 |
TRBLEN |
INT1(I,L) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
4108 |
TRBLEN |
IF ( Q(I,L).LE.Q(I,L+1) ) INT1(I,L) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
4109 |
TRBLEN |
IF ( INT1(I,L).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4110 |
TRBLEN |
XL0(I,L) = XL0(I,L+1) |
|
./pkg/fizhi/fizhi_turb.F |
4111 |
TRBLEN |
Q1(I,L) = Q(I,L+1) |
|
./pkg/fizhi/fizhi_turb.F |
4122 |
TRBLEN |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
4123 |
TRBLEN |
QXLM(I,L) = XL0(I,L)*VKZM(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4124 |
TRBLEN |
. / ( XL0(I,L)+VKZM(I,L) ) |
|
./pkg/fizhi/fizhi_turb.F |
4125 |
TRBLEN |
QXLM(I,L) = CLMT53 * Q1(I,L)*QXLM(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4180 |
TRBITP |
integer I,L |
|
./pkg/fizhi/fizhi_turb.F |
4192 |
TRBITP |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
4193 |
TRBITP |
DZITRP(I,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
4220 |
TRBITP |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
4221 |
TRBITP |
IF ( INTCHG(I,L).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4222 |
TRBITP |
DDD(I,L) = ( CP *(DTHV(I,L+1)*DPK(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4223 |
TRBITP |
. + DTHV(I,L)*DPK(I,L+1)) ) |
|
./pkg/fizhi/fizhi_turb.F |
4224 |
TRBITP |
. - ( (2.*RICR) * ( DU(I,L+1)* DU(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4225 |
TRBITP |
. + DV(I,L+1)* DV(I,L)) ) |
|
./pkg/fizhi/fizhi_turb.F |
4226 |
TRBITP |
AAA(I,L) = STBFCN(I,L) + STBFCN(I,L+1) |
|
./pkg/fizhi/fizhi_turb.F |
4227 |
TRBITP |
BBB(I,L) = STBFCN(I,L) - STBFCN(I,L+1) |
|
./pkg/fizhi/fizhi_turb.F |
4228 |
TRBITP |
CCC(I,L) = 1. / BBB(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4229 |
TRBITP |
DZITRP(I,L) = AAA(I,L) * CCC(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4230 |
TRBITP |
AAA(I,L) = AAA(I,L) - DDD(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4231 |
TRBITP |
DDD(I,L) = ( DDD(I,L) * DDD(I,L) ) |
|
./pkg/fizhi/fizhi_turb.F |
4232 |
TRBITP |
. - 4. * (STBFCN(I,L+1) * STBFCN(I,L) ) |
|
./pkg/fizhi/fizhi_turb.F |
4233 |
TRBITP |
DDD(I,L) = DDD(I,L)*CCC(I,L)*CCC(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4234 |
TRBITP |
DDD(I,L) = SQRT( DDD(I,L) ) |
|
./pkg/fizhi/fizhi_turb.F |
4237 |
TRBITP |
IF( INTCHG(I,L).EQ.1 .AND. AAA(I,L).NE.0. ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4238 |
TRBITP |
DZITRP(I,L) = ( BBB(I,L)*(1.-DDD(I,L)) ) / AAA(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4241 |
TRBITP |
DZITRP(I,L) = 0.5 * DZITRP(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4317 |
TRBL20 |
DO 10 I=1,ISTNLV |
|
./pkg/fizhi/fizhi_turb.F |
4318 |
TRBL20 |
EE(I,1) = D1HALF * RI(I,1) + D2HALF |
|
./pkg/fizhi/fizhi_turb.F |
4319 |
TRBL20 |
RF(I,1) = EE(I,1)* EE(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
4320 |
TRBL20 |
RF(I,1) = RF(I,1)- D3*RI(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
4321 |
TRBL20 |
RF(I,1) = SQRT( RF(I,1) ) |
|
./pkg/fizhi/fizhi_turb.F |
4322 |
TRBL20 |
RF(I,1) = EE(I,1) - RF(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
4324 |
TRBL20 |
IF( RI(I,1).LE.1.e-4 .AND. RI(I,1).GE.-1.e-4 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4325 |
TRBL20 |
RF(I,1) = D3B2*RI(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
4333 |
TRBL20 |
IF( RI(I,1).LT.RICR .AND. RF(I,1).LT.RFC ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4334 |
TRBL20 |
ZKH(I,1) = ( RFC-RF(I,1) ) / (1.-RF(I,1)) |
|
./pkg/fizhi/fizhi_turb.F |
4335 |
TRBL20 |
ZKM(I,1) = CM * (RF1-RF(I,1)) |
|
./pkg/fizhi/fizhi_turb.F |
4336 |
TRBL20 |
ZKM(I,1) = ZKH(I,1)*ZKM(I,1) / (RF2-RF(I,1)) |
|
./pkg/fizhi/fizhi_turb.F |
4337 |
TRBL20 |
ZKH(I,1) = CH *ZKH(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
4338 |
TRBL20 |
QE(I,1) = ZKM(I,1)*DW2(I,1) - ZKH(I,1)*STRT(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
4341 |
TRBL20 |
IF( QE(I,1).LT.1.e-14 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4342 |
TRBL20 |
INTSTB(I,1) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
4343 |
TRBL20 |
QE(I,1) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
4345 |
TRBL20 |
INTSTB(I,1) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
4346 |
TRBL20 |
QE(I,1) = B1*QE(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
4347 |
TRBL20 |
QE(I,1) = SQRT( QE(I,1) ) |
|
./pkg/fizhi/fizhi_turb.F |
4348 |
TRBL20 |
QE(I,1) = XL(I,1)*QE(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
4350 |
TRBL20 |
QQE(I,1) = 0.5 * QE(I,1) * QE(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
4422 |
TRBL25 |
DO 10 I=1,ISTNLV |
|
./pkg/fizhi/fizhi_turb.F |
4423 |
TRBL25 |
IF( INTQ(I,1).EQ.1 .AND. INTSTB(I,1).EQ.0 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4424 |
TRBL25 |
XQ(I,1) = XL(I,1) / Q(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
4425 |
TRBL25 |
XQ(I,1) = XQ(I,1) * XQ(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
4426 |
TRBL25 |
STRT(I,1) = XQ(I,1) * STRT(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
4427 |
TRBL25 |
DW2(I,1) = XQ(I,1) * DW2(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
4428 |
TRBL25 |
F2(I,1) = 1.+FF2 * STRT(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
4429 |
TRBL25 |
F3(I,1) = 1.+FF3 * STRT(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
4430 |
TRBL25 |
F4(I,1) = 1.+FF4 * STRT(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
4431 |
TRBL25 |
ZKH(I,1) = (F4(I,1) * F2(I,1)) |
|
./pkg/fizhi/fizhi_turb.F |
4432 |
TRBL25 |
. + A4 * (F3(I,1) * DW2(I,1)) |
|
./pkg/fizhi/fizhi_turb.F |
4433 |
TRBL25 |
ZKH(I,1) = (F2(I,1) + A3*DW2(I,1)) |
|
./pkg/fizhi/fizhi_turb.F |
4434 |
TRBL25 |
. / ZKH(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
4435 |
TRBL25 |
ZKM(I,1) = A1 * (F3(I,1)*ZKH(I,1)+A5) |
|
./pkg/fizhi/fizhi_turb.F |
4436 |
TRBL25 |
. / F2(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
4437 |
TRBL25 |
ZKH(I,1) = A2 * ZKH(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
4438 |
TRBL25 |
P3(I,1) = ZKH(I,1)*STRT(I,1) + B3 |
|
./pkg/fizhi/fizhi_turb.F |
4439 |
TRBL25 |
P3(I,1) = 2. * ( ZKM(I,1)*DW2(I,1) - P3(I,1) ) |
|
./pkg/fizhi/fizhi_turb.F |
4440 |
TRBL25 |
P3(I,1) = P3(I,1)*Q(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
446 |
TURBIO |
do I =1,nchptot |
|
./pkg/fizhi/fizhi_turb.F |
447 |
TURBIO |
utility(I) = pmsc(i) + ptop |
|
./pkg/fizhi/fizhi_turb.F |
4496 |
TRBDIF |
integer I,L |
|
./pkg/fizhi/fizhi_turb.F |
4508 |
TRBDIF |
DO 10 I=1,irun |
|
./pkg/fizhi/fizhi_turb.F |
4509 |
TRBDIF |
CC(I,1) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
4515 |
TRBDIF |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
4516 |
TRBDIF |
CC(I,L+1) = RHOKDZ(I,L) * FLXFAC(I,L+1) |
|
./pkg/fizhi/fizhi_turb.F |
4524 |
TRBDIF |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
4525 |
TRBDIF |
BB(I,L) = RHOKDZ(I,L) * FLXFAC(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4526 |
TRBDIF |
AA(I,L) = 1. + CC(I,L) + BB(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4536 |
TRBDIF |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
4537 |
TRBDIF |
AA(I,L) = AA(I,L) - XX2(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4548 |
TRBDIF |
DO 50 I=1,irun |
|
./pkg/fizhi/fizhi_turb.F |
4549 |
TRBDIF |
DXX1G(I) = CC(I,NLEVP1) * ( XX1(I,NLEV)-XX1(I,NLEVP1) ) |
|
./pkg/fizhi/fizhi_turb.F |
4554 |
TRBDIF |
DO 60 I=1,irun |
|
./pkg/fizhi/fizhi_turb.F |
4555 |
TRBDIF |
DXX2G(I) = CC(I,NLEVP1) * ( XX2(I,NLEV)-XX2(I,NLEVP1) ) |
|
./pkg/fizhi/fizhi_turb.F |
4569 |
TRBDIF |
DO I =1,irun |
|
./pkg/fizhi/fizhi_turb.F |
4570 |
TRBDIF |
IF ( XX1(I,L).LT.EPSL ) XX1(I,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
4586 |
VTRI0 |
DO 9000 I = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
4587 |
VTRI0 |
A(I,1) = 1. / A(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
4592 |
VTRI0 |
DO 9002 I = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
4593 |
VTRI0 |
C(I,L) = C(I,L) * A(I,LM1) |
|
./pkg/fizhi/fizhi_turb.F |
4594 |
VTRI0 |
A(I,L) = 1. / ( A(I,L) - B(I,LM1) * C(I,L) ) |
|
./pkg/fizhi/fizhi_turb.F |
4595 |
VTRI0 |
F(I,L) = F(I,L) + F(I,LM1) * C(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4600 |
VTRI0 |
DO 9004 I = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
4601 |
VTRI0 |
Y(I,L) = (F(I,L) + B(I,L) * Y(I,L+1)) * A(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4617 |
VTRI1 |
DO 9000 I = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
4618 |
VTRI1 |
Y(I,L) = B(I,L) * Y(I,L+1) * A(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4635 |
VTRI2 |
DO 9000 I = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
4636 |
VTRI2 |
F(I,L) = F(I,L) + F(I,L-1) * C(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4641 |
VTRI2 |
DO 9002 I = 1,irun |
|
./pkg/fizhi/fizhi_turb.F |
4642 |
VTRI2 |
Y(I,L) = (F(I,L) + B(I,L) * Y(I,L+1)) * A(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4738 |
LINADJ |
DO 9000 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
4739 |
LINADJ |
IF (IWATER(I).EQ.1) VX0PSIM(I) = VAPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
4743 |
LINADJ |
DO 9002 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
4744 |
LINADJ |
VX0PSIM(I) = VX0(I) * VAPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
4749 |
LINADJ |
DO 9004 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
4750 |
LINADJ |
VDZ0(I) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
4751 |
LINADJ |
VG(I) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
4752 |
LINADJ |
VG0(I) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
4753 |
LINADJ |
VR1MG0(I) = 1. |
|
./pkg/fizhi/fizhi_turb.F |
4759 |
LINADJ |
DO 9006 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
4760 |
LINADJ |
IF ( IWATER(I).EQ.1) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4761 |
LINADJ |
VAZ0(I) = 1. / VZ1(I) |
|
./pkg/fizhi/fizhi_turb.F |
4762 |
LINADJ |
VG(I) = VDZSEA(I) * VAZ0(I) |
|
./pkg/fizhi/fizhi_turb.F |
4763 |
LINADJ |
VG0(I) = VX0PSIM(I) * VG(I) |
|
./pkg/fizhi/fizhi_turb.F |
4764 |
LINADJ |
VR1MG0(I) = 1. / ( 1. - VG0(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
4765 |
LINADJ |
VDZ0(I) = ( VZ2(I) - VZ1(I) ) * VR1MG0(I) |
|
./pkg/fizhi/fizhi_turb.F |
4772 |
LINADJ |
DO 9008 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
4773 |
LINADJ |
IF (IWATER(I).EQ.1) VDZ0(I) = VDZ0(I) * VAZ0(I) |
|
./pkg/fizhi/fizhi_turb.F |
4780 |
LINADJ |
DO 9010 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
4781 |
LINADJ |
VXNUM1(I) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
4782 |
LINADJ |
IF (VRIB1(I).EQ.0.) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4783 |
LINADJ |
INTRIB(I) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
4785 |
LINADJ |
INTRIB(I) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
4787 |
LINADJ |
IF ( INTRIB(I).EQ.0 ) VXNUM1(I) = 1. / VRIB1(I) |
|
./pkg/fizhi/fizhi_turb.F |
4788 |
LINADJ |
VPSIGB2(I) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
4789 |
LINADJ |
if(vpsig(i).gt.0.)VPSIGB2(I) = |
|
./pkg/fizhi/fizhi_turb.F |
4791 |
LINADJ |
VDX(I) = VX(I) - VX0(I) |
|
./pkg/fizhi/fizhi_turb.F |
4792 |
LINADJ |
VDXPSIM(I) = VDX(I) * VAPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
4793 |
LINADJ |
VDY(I) = VY(I) - VY0(I) |
|
./pkg/fizhi/fizhi_turb.F |
4794 |
LINADJ |
VXNUM3(I) = - VPSIGB2(I) |
|
./pkg/fizhi/fizhi_turb.F |
4798 |
LINADJ |
IF (IWATER(I).EQ.1) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4799 |
LINADJ |
VDXPSIM(I) = VDXPSIM(I) * VR1MG0(I) |
|
./pkg/fizhi/fizhi_turb.F |
4800 |
LINADJ |
VXNUM3(I) = VXNUM3(I) + VG(I) * ( VY0(I) - VPSIGB2(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
4801 |
LINADJ |
VXNUM2(I) = VY0(I) - VPSIGB2(I) - VX0PSIM(I) * VPSIGB2(I) |
|
./pkg/fizhi/fizhi_turb.F |
4802 |
LINADJ |
VXNUM2(I) = (VXNUM2(I) * VAPSIHG(I)) - 2. * VX0PSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
4803 |
LINADJ |
VXNUM2(I) = VXNUM2(I) * VDZ0(I) |
|
./pkg/fizhi/fizhi_turb.F |
4807 |
LINADJ |
VDEN(I) = VDY(I) + VDXPSIM(I) * VXNUM3(I) |
|
./pkg/fizhi/fizhi_turb.F |
4808 |
LINADJ |
VDEN(I) = ( 1. + VDEN(I) * VAPSIHG(I) ) - 2. * VDXPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
4813 |
LINADJ |
DO 9012 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
4814 |
LINADJ |
VAWS1(I) = VR1MG0(I) / VWS1(I) |
|
./pkg/fizhi/fizhi_turb.F |
4815 |
LINADJ |
VXNUM3(I) = VXNUM3(I) * VAPSIHG(I) |
|
./pkg/fizhi/fizhi_turb.F |
4819 |
LINADJ |
IF(IWATER(I).EQ.1) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4820 |
LINADJ |
VXNUM3(I) = VXNUM3(I) - 2. * VG0(I) |
|
./pkg/fizhi/fizhi_turb.F |
4821 |
LINADJ |
VXNUM3(I) = VAWS1(I) * VXNUM3(I) |
|
./pkg/fizhi/fizhi_turb.F |
4830 |
LINADJ |
DO 9014 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
4831 |
LINADJ |
VXNUM(I) = VRIB2(I) - VRIB1(I) |
|
./pkg/fizhi/fizhi_turb.F |
4832 |
LINADJ |
IF( (VX0(I).GT.XX0MAX).AND.(VXNUM(I).GE.0.) )VXNUM(I) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
4833 |
LINADJ |
VXNUM(I) = VXNUM1(I) * VXNUM(I) |
|
./pkg/fizhi/fizhi_turb.F |
4838 |
LINADJ |
DO 9016 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
4839 |
LINADJ |
VDZETA1(I) = VDZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
4840 |
LINADJ |
VXNUM(I) = VXNUM(I) + VXNUM3(I) * ( VWS2(I) - VWS1(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
4845 |
LINADJ |
DO 9018 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
4846 |
LINADJ |
VDZETA1(I) = VXNUM(I) |
|
./pkg/fizhi/fizhi_turb.F |
4847 |
LINADJ |
IF(LWATER.AND.(IWATER(I).EQ.1)) VXNUM(I) = VXNUM(I) + VXNUM2(I) |
|
./pkg/fizhi/fizhi_turb.F |
4848 |
LINADJ |
IF ( VDEN(I) .LT.0.1 ) VDEN(I) = 0.1 |
|
./pkg/fizhi/fizhi_turb.F |
4853 |
LINADJ |
DO 9020 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
4854 |
LINADJ |
VDZETA(I) = VXNUM(I) / VDEN(I) |
|
./pkg/fizhi/fizhi_turb.F |
4858 |
LINADJ |
DO 9022 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
4859 |
LINADJ |
IF ( (VRIB2(I).EQ.0.) .OR. (VDZETA(I).LE.-1.) ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4860 |
LINADJ |
VINT1(I) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
4862 |
LINADJ |
VINT1(I) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
4864 |
LINADJ |
IF ( VINT1(I).EQ.1 ) VDZETA(I) = VDZETA1(I) |
|
./pkg/fizhi/fizhi_turb.F |
4868 |
LINADJ |
DO 9024 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
4869 |
LINADJ |
VDZETA2(I) = VDZETA(I) + VDZETA1(I) |
|
./pkg/fizhi/fizhi_turb.F |
4870 |
LINADJ |
IF ( (VRIB2(I).EQ.0.) .OR. (VDZETA2(I).LE.-1.) ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4871 |
LINADJ |
VINT1(I) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
4873 |
LINADJ |
VINT1(I) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
4875 |
LINADJ |
IF(VINT1(I).EQ.1)VDZETA(I)=VXNUM1(I)*VRIB2(I) - 1. - VDZETA1(I) |
|
./pkg/fizhi/fizhi_turb.F |
4883 |
LINADJ |
DO 9026 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
4884 |
LINADJ |
IF( IWATER(I).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4885 |
LINADJ |
VZCOEF2(I) = VG(I) * VDXPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
4886 |
LINADJ |
VDZ0(I) = VDZ0(I) - VZCOEF2(I) * VDZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
4892 |
LINADJ |
DO 9028 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
4893 |
LINADJ |
IF(IWATER(I).EQ.1) VZCOEF1(I) = VG(I) * VAWS1(I) |
|
./pkg/fizhi/fizhi_turb.F |
4898 |
LINADJ |
DO 9030 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
4899 |
LINADJ |
IF (IWATER(I).EQ.1) VDZ0(I) = |
|
./pkg/fizhi/fizhi_turb.F |
4900 |
LINADJ |
1 VZCOEF1(I) * ( VWS2(I) - VWS1(I) ) - VZCOEF2(I) * VDZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
4907 |
LINADJ |
DO 9032 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
4908 |
LINADJ |
IF (IWATER(I).EQ.1) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4909 |
LINADJ |
VDPSIM(I) = - VDZ0(I) * VAZ0(I) |
|
./pkg/fizhi/fizhi_turb.F |
4910 |
LINADJ |
VDPSIH(I) = VDPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
4916 |
LINADJ |
DO 9034 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
4917 |
LINADJ |
VDPSIM(I) = VDX(I) * VDZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
4918 |
LINADJ |
VDPSIH(I) = VDY(I) * VDZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
4920 |
LINADJ |
IF (IWATER(I).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4921 |
LINADJ |
VDPSIM(I) = VDPSIM(I) - VX0(I) * VDZ0(I) |
|
./pkg/fizhi/fizhi_turb.F |
4922 |
LINADJ |
VDPSIH(I) = VDPSIH(I) - VY0(I) * VDZ0(I) |
|
./pkg/fizhi/fizhi_turb.F |
4931 |
LINADJ |
DO 9036 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
4932 |
LINADJ |
VDPSIMC(I) = -0.9 - VDPSIM(I) * VAPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
4933 |
LINADJ |
VDPSIHC(I) = -0.9 * VPSIH(I) - VDPSIH(I) |
|
./pkg/fizhi/fizhi_turb.F |
4934 |
LINADJ |
IF ( VDPSIMC(I).GT.0. ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4935 |
LINADJ |
VINT1(I) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
4937 |
LINADJ |
VINT1(I) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
4939 |
LINADJ |
IF ( VDPSIHC(I).GT.0. ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4940 |
LINADJ |
VINT2(I) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
4942 |
LINADJ |
VINT2(I) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
4944 |
LINADJ |
VDZETA1(I) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
4945 |
LINADJ |
IF(VINT1(I).EQ.1) VDZETA1(I) = VDPSIMC(I) / VDXPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
4946 |
LINADJ |
IF((VINT1(I).EQ.1).OR.(VINT2(I).EQ.1)) VTEMPLIN(I) = |
|
./pkg/fizhi/fizhi_turb.F |
4947 |
LINADJ |
1 VDY(I) + VY0(I) * VG(I) * VDXPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
4948 |
LINADJ |
IF (VINT2(I).EQ.1) then |
|
./pkg/fizhi/fizhi_turb.F |
4949 |
LINADJ |
VDZETA2(I) = VDPSIHC(I) / VTEMPLIN(I) |
|
./pkg/fizhi/fizhi_turb.F |
4950 |
LINADJ |
IF ( VDZETA2(I).LT.VDZETA1(I) ) VDZETA1(I) = VDZETA2(I) |
|
./pkg/fizhi/fizhi_turb.F |
4952 |
LINADJ |
IF((VINT1(I).EQ.1).OR.(VINT2(I).EQ.1)) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4953 |
LINADJ |
VDZETA(I) = VDZETA1(I) + VDZETA(I) |
|
./pkg/fizhi/fizhi_turb.F |
4954 |
LINADJ |
VDPSIM(I) = VDPSIM(I) + VDX(I) * VR1MG0(I) * VDZETA1(I) |
|
./pkg/fizhi/fizhi_turb.F |
4955 |
LINADJ |
VDPSIH(I) = VDPSIH(I) + VTEMPLIN(I) * VDZETA1(I) |
|
./pkg/fizhi/fizhi_turb.F |
4956 |
LINADJ |
IF ( IWATER(I).EQ.1 ) |
|
./pkg/fizhi/fizhi_turb.F |
4957 |
LINADJ |
1 VDZ0(I) = VDZ0(I) - VG(I) * VDXPSIM(I) * VDZETA1(I) |
|
./pkg/fizhi/fizhi_turb.F |
5016 |
ZCSUB |
DO 9000 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
5017 |
ZCSUB |
IF(VUSTAR(I) .LT. 1.e-6)THEN |
|
./pkg/fizhi/fizhi_turb.F |
5018 |
ZCSUB |
INT3(I) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
5020 |
ZCSUB |
INT3(I) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
5023 |
ZCSUB |
DO 9002 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
5024 |
ZCSUB |
IF(INT3(I).EQ.1) VUSTAR(I) = 1.e-6 |
|
./pkg/fizhi/fizhi_turb.F |
5031 |
ZCSUB |
DO 9004 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
5032 |
ZCSUB |
IF( (VUSTAR(I) .GT. USTMX1) .AND. (IWATER(I).EQ.1) ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
5033 |
ZCSUB |
INT4(I) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
5035 |
ZCSUB |
INT4(I) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
5038 |
ZCSUB |
DO 9006 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
5039 |
ZCSUB |
IF(VUSTAR(I) .GT. USTMX2) THEN |
|
./pkg/fizhi/fizhi_turb.F |
5040 |
ZCSUB |
INT3(I) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
5042 |
ZCSUB |
INT3(I) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
5045 |
ZCSUB |
DO 9008 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
5046 |
ZCSUB |
IF(VUSTAR(I) .GE. USTMX3) THEN |
|
./pkg/fizhi/fizhi_turb.F |
5047 |
ZCSUB |
INT2(I) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
5049 |
ZCSUB |
INT2(I) = 0 |
|
./pkg/fizhi/fizhi_turb.F |
5054 |
ZCSUB |
DO 9010 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
5055 |
ZCSUB |
AA(I,K) = AA1(K) |
|
./pkg/fizhi/fizhi_turb.F |
5056 |
ZCSUB |
IF( INT2(I).EQ.1 ) AA(I,K) = AA2(K) |
|
./pkg/fizhi/fizhi_turb.F |
5057 |
ZCSUB |
IF( INT3(I).EQ.1 ) AA(I,K) = AA3(K) |
|
./pkg/fizhi/fizhi_turb.F |
5058 |
ZCSUB |
IF( INT4(I).EQ.1 ) AA(I,K) = AA4(K) |
|
./pkg/fizhi/fizhi_turb.F |
5066 |
ZCSUB |
DO 9012 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
5067 |
ZCSUB |
VDZSEA(I) = ( AA(I,4) + AA(I,5) * VUSTAR(I) ) * VUSTAR(I) |
|
./pkg/fizhi/fizhi_turb.F |
5068 |
ZCSUB |
VZSEA(I) = AA(I,2) + ( AA(I,3) + VDZSEA(I) ) * VUSTAR(I) |
|
./pkg/fizhi/fizhi_turb.F |
5069 |
ZCSUB |
TEMP(I) = AA(I,1) / VUSTAR(I) |
|
./pkg/fizhi/fizhi_turb.F |
5070 |
ZCSUB |
VZSEA(I) = VZSEA(I) + TEMP(I) |
|
./pkg/fizhi/fizhi_turb.F |
5078 |
ZCSUB |
DO 9014 I = 1,IRUN |
|
./pkg/fizhi/fizhi_turb.F |
5079 |
ZCSUB |
VDZSEA(I) = 3. * VDZSEA(I) -(AA(I,4)*VUSTAR(I) - AA(I,3)) |
|
./pkg/fizhi/fizhi_turb.F |
5080 |
ZCSUB |
VDZSEA(I) = VDZSEA(I) * VUSTAR(I) - TEMP(I) |
|
./pkg/fizhi/fizhi_utils.F |
102 |
STRIPINT |
DO 100 I=1,Lena |
|
./pkg/fizhi/fizhi_utils.F |
103 |
STRIPINT |
B(I,J) = A(I+OFFSET-1,J) |
|
./pkg/fizhi/fizhi_utils.F |
107 |
STRIPINT |
DO 300 I=1,Lena |
|
./pkg/fizhi/fizhi_utils.F |
108 |
STRIPINT |
B(I,J) = A(I+OFFSET-1,J) |
|
./pkg/fizhi/fizhi_utils.F |
110 |
STRIPINT |
DO 400 I=1,IB-Lena |
|
./pkg/fizhi/fizhi_utils.F |
111 |
STRIPINT |
B(Lena+I,J) = A(Lena+OFFSET-1,J) |
|
./pkg/fizhi/fizhi_utils.F |
130 |
PASTE |
DO 100 I=1,Lena |
|
./pkg/fizhi/fizhi_utils.F |
131 |
PASTE |
A(I+OFFSET-1,J) = B(I,J) |
|
./pkg/fizhi/fizhi_utils.F |
148 |
PSTBMP |
DO 100 I=1,Lena |
|
./pkg/fizhi/fizhi_utils.F |
149 |
PSTBMP |
A(I+OFFSET-1,J) = A(I+OFFSET-1,J) + B(I,J) |
|
./pkg/fizhi/fizhi_utils.F |
167 |
STRINT |
DO 100 I=1,Lena |
|
./pkg/fizhi/fizhi_utils.F |
168 |
STRINT |
B(I,J) = A(I+OFFSET-1,J) |
|
./pkg/fizhi/fizhi_utils.F |
172 |
STRINT |
DO 300 I=1,Lena |
|
./pkg/fizhi/fizhi_utils.F |
173 |
STRINT |
B(I,J) = A(I+OFFSET-1,J) |
|
./pkg/fizhi/fizhi_utils.F |
175 |
STRINT |
DO 400 I=1,IB-Lena |
|
./pkg/fizhi/fizhi_utils.F |
176 |
STRINT |
B(Lena+I,J) = A(Lena+OFFSET-1,J) |
|
./pkg/fizhi/fizhi_utils.F |
663 |
GRD2MSC |
DO I=1,NCHP |
|
./pkg/fizhi/fizhi_utils.F |
665 |
GRD2MSC |
B(I) = A(IGRD(I)) |
|
./pkg/fizhi/fizhi_utils.F |
690 |
MSC2GRD |
DO I=1,IM*JM |
|
./pkg/fizhi/fizhi_utils.F |
692 |
MSC2GRD |
VT1(I) = ZERO |
|
./pkg/fizhi/fizhi_utils.F |
695 |
MSC2GRD |
DO I=1,NCHP |
|
./pkg/fizhi/fizhi_utils.F |
697 |
MSC2GRD |
VT1(IGRD(I)) = VT1(IGRD(I)) + B(I)*CHFR(I) |
|
./pkg/fizhi/fizhi_utils.F |
700 |
MSC2GRD |
DO I=1,IM*JM |
|
./pkg/fizhi/fizhi_utils.F |
702 |
MSC2GRD |
A(I) = A(I)*(ONE-FRACG(I)) + VT1(I) |
|
./pkg/fizhi/fizhi_utils.F |
73 |
STRIP |
DO 100 I=1,Lena |
|
./pkg/fizhi/fizhi_utils.F |
74 |
STRIP |
B(I,J) = A(I+OFFSET-1,J) |
|
./pkg/fizhi/fizhi_utils.F |
78 |
STRIP |
DO 300 I=1,Lena |
|
./pkg/fizhi/fizhi_utils.F |
79 |
STRIP |
B(I,J) = A(I+OFFSET-1,J) |
|
./pkg/fizhi/fizhi_utils.F |
81 |
STRIP |
DO 400 I=1,IB-Lena |
|
./pkg/fizhi/fizhi_utils.F |
82 |
STRIP |
B(Lena+I,J) = A(Lena+OFFSET-1,J) |
|
./pkg/fizhi/getcon.F |
151 |
NO PROCEDURE |
DO 10 I=1,MAXCON |
|
./pkg/fizhi/getcon.F |
152 |
NO PROCEDURE |
IF(NAME.EQ.ANAME(I)) THEN |
|
./pkg/fizhi/getcon.F |
153 |
NO PROCEDURE |
GETCON = ACON(I) |
|
./pkg/fizhi/getcon.F |
25 |
NO PROCEDURE |
integer I |
|
./pkg/fizhi/slprs.F |
67 |
SLPRS |
TM(I) = TM(I) * (PLE(I,LM+1)/1000.)**AK + BETA*PHIS(I)/(TWO*G) |
|
./pkg/fizhi/slprs.F |
69 |
SLPRS |
TM(I) = THZ(I,LM)*(PLE(I,LM+1)/1000.)**AK + BETA*PHIS(I)/(TWO*G) |
|
./pkg/fizhi/slprs.F |
72 |
SLPRS |
SLP(I) = PHIS(I) / ( R*TM(I) ) |
|
./pkg/fizhi/slprs.F |
73 |
SLPRS |
SLP(I) = PLE(I,LM+1) * EXP( SLP(I) ) |
|
./pkg/fizhi/update_chemistry_exports.F |
322 |
INTERP_OZ |
DO 34 I=1,IRUN |
|
./pkg/fizhi/update_chemistry_exports.F |
333 |
INTERP_OZ |
slope(i) = ( XLAT(I) -ozlats(jlat-1) ) |
|
./pkg/fizhi/update_chemistry_exports.F |
343 |
INTERP_OZ |
QPR1(I) = ozone(jlatm,k) |
|
./pkg/fizhi/update_chemistry_exports.F |
344 |
INTERP_OZ |
QPR2(I) = ozone(jlatp,k) |
|
./pkg/fizhi/update_chemistry_exports.F |
347 |
INTERP_OZ |
DO 38 I=1,IRUN |
|
./pkg/fizhi/update_chemistry_exports.F |
359 |
INTERP_OZ |
DO 44 I = 1,IRUN |
|
./pkg/fizhi/update_chemistry_exports.F |
361 |
INTERP_OZ |
IF( ozlevs(L1).GT.PLEVS(I,L2) ) THEN |
|
./pkg/fizhi/update_chemistry_exports.F |
375 |
INTERP_OZ |
PR1(I) = ozlevs (LM) |
|
./pkg/fizhi/update_chemistry_exports.F |
376 |
INTERP_OZ |
PR2(I) = ozlevs (LP) |
|
./pkg/fizhi/update_chemistry_exports.F |
377 |
INTERP_OZ |
QPR1(I) = O3INT1(I,LM) |
|
./pkg/fizhi/update_chemistry_exports.F |
378 |
INTERP_OZ |
QPR2(I) = O3INT1(I,LP) |
|
./pkg/fizhi/update_chemistry_exports.F |
381 |
INTERP_OZ |
DO 48 I=1,IRUN |
|
./pkg/fizhi/update_chemistry_exports.F |
382 |
INTERP_OZ |
SLOPE(I) = ( QPR1(I)-QPR2(I) ) |
|
./pkg/fizhi/update_chemistry_exports.F |
383 |
INTERP_OZ |
. / ( PR1(I)- PR2(I) ) |
|
./pkg/fizhi/update_chemistry_exports.F |
384 |
INTERP_OZ |
ozrad(I,L2) = QPR2(I) + ( PLEVS(I,L2)-PR2(I) )*SLOPE(I) |
|
./pkg/fizhi/update_chemistry_exports.F |
398 |
INTERP_OZ |
DO 60 I=1,IRUN |
|
./pkg/fizhi/update_chemistry_exports.F |
401 |
INTERP_OZ |
ozrad (I,L2) = ozrad(I,L2) * VOLTOMAS |
|
./pkg/fizhi/update_earth_exports.F |
228 |
SIBALB |
INTEGER I, LAI |
|
./pkg/fizhi/update_earth_exports.F |
243 |
SIBALB |
DATA (ALVDR (I, 1, 1), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
247 |
SIBALB |
DATA (ALVDR (I, 2, 1), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
251 |
SIBALB |
DATA (ALVDR (I, 1, 2), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
255 |
SIBALB |
DATA (ALVDR (I, 2, 2), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
259 |
SIBALB |
DATA (ALVDR (I, 1, 3), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
263 |
SIBALB |
DATA (ALVDR (I, 2, 3), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
267 |
SIBALB |
DATA (ALVDR (I, 1, 4), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
272 |
SIBALB |
DATA (ALVDR (I, 2, 4), I = 1, 14) /14*0.1637/ |
|
./pkg/fizhi/update_earth_exports.F |
275 |
SIBALB |
DATA (ALVDR (I, 1, 5), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
279 |
SIBALB |
DATA (ALVDR (I, 2, 5), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
283 |
SIBALB |
DATA (ALVDR (I, 1, 6), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
287 |
SIBALB |
DATA (ALVDR (I, 2, 6), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
292 |
SIBALB |
DATA (ALVDR (I, 1, 7), I = 1, 14) /14*ALVDRS/ |
|
./pkg/fizhi/update_earth_exports.F |
293 |
SIBALB |
DATA (ALVDR (I, 2, 7), I = 1, 14) /14*ALVDRS/ |
|
./pkg/fizhi/update_earth_exports.F |
296 |
SIBALB |
DATA (ALVDR (I, 1, 8), I = 1, 14) /14*ALVDRDL/ |
|
./pkg/fizhi/update_earth_exports.F |
297 |
SIBALB |
DATA (ALVDR (I, 2, 8), I = 1, 14) /14*ALVDRDL/ |
|
./pkg/fizhi/update_earth_exports.F |
300 |
SIBALB |
DATA (ALVDR (I, 1, 9), I = 1, 14) /14*ALVDRI/ |
|
./pkg/fizhi/update_earth_exports.F |
301 |
SIBALB |
DATA (ALVDR (I, 2, 9), I = 1, 14) /14*ALVDRI/ |
|
./pkg/fizhi/update_earth_exports.F |
304 |
SIBALB |
DATA (ALVDR (I, 1, 10), I = 1, 14) /14*ALVDRDD/ |
|
./pkg/fizhi/update_earth_exports.F |
305 |
SIBALB |
DATA (ALVDR (I, 2, 10), I = 1, 14) /14*ALVDRDD/ |
|
./pkg/fizhi/update_earth_exports.F |
308 |
SIBALB |
DATA (BTVDR (I, 1, 1), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
312 |
SIBALB |
DATA (BTVDR (I, 2, 1), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
316 |
SIBALB |
DATA (BTVDR (I, 1, 2), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
320 |
SIBALB |
DATA (BTVDR (I, 2, 2), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
324 |
SIBALB |
DATA (BTVDR (I, 1, 3), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
328 |
SIBALB |
DATA (BTVDR (I, 2, 3), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
332 |
SIBALB |
DATA (BTVDR (I, 1, 4), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
336 |
SIBALB |
DATA (BTVDR (I, 2, 4), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
340 |
SIBALB |
DATA (BTVDR (I, 1, 5), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
345 |
SIBALB |
DATA (BTVDR (I, 2, 5), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
350 |
SIBALB |
DATA (BTVDR (I, 1, 6), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
355 |
SIBALB |
DATA (BTVDR (I, 2, 6), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
360 |
SIBALB |
DATA (BTVDR (I, 1, 7), I = 1, 14) /14*0./ |
|
./pkg/fizhi/update_earth_exports.F |
361 |
SIBALB |
DATA (BTVDR (I, 2, 7), I = 1, 14) /14*0./ |
|
./pkg/fizhi/update_earth_exports.F |
363 |
SIBALB |
DATA (BTVDR (I, 1, 8), I = 1, 14) /14*0./ |
|
./pkg/fizhi/update_earth_exports.F |
364 |
SIBALB |
DATA (BTVDR (I, 2, 8), I = 1, 14) /14*0./ |
|
./pkg/fizhi/update_earth_exports.F |
366 |
SIBALB |
DATA (BTVDR (I, 1, 9), I = 1, 14) /14*0./ |
|
./pkg/fizhi/update_earth_exports.F |
367 |
SIBALB |
DATA (BTVDR (I, 2, 9), I = 1, 14) /14*0./ |
|
./pkg/fizhi/update_earth_exports.F |
369 |
SIBALB |
DATA (BTVDR (I, 1, 10), I = 1, 14) /14*0./ |
|
./pkg/fizhi/update_earth_exports.F |
370 |
SIBALB |
DATA (BTVDR (I, 2, 10), I = 1, 14) /14*0./ |
|
./pkg/fizhi/update_earth_exports.F |
374 |
SIBALB |
DATA (GMVDR (I, 1, 1), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
378 |
SIBALB |
DATA (GMVDR (I, 2, 1), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
382 |
SIBALB |
DATA (GMVDR (I, 1, 2), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
386 |
SIBALB |
DATA (GMVDR (I, 2, 2), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
390 |
SIBALB |
DATA (GMVDR (I, 1, 3), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
394 |
SIBALB |
DATA (GMVDR (I, 2, 3), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
398 |
SIBALB |
DATA (GMVDR (I, 1, 4), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
402 |
SIBALB |
DATA (GMVDR (I, 2, 4), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
406 |
SIBALB |
DATA (GMVDR (I, 1, 5), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
411 |
SIBALB |
DATA (GMVDR (I, 2, 5), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
416 |
SIBALB |
DATA (GMVDR (I, 1, 6), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
421 |
SIBALB |
DATA (GMVDR (I, 2, 6), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
426 |
SIBALB |
DATA (GMVDR (I, 1, 7), I = 1, 14) /14*1./ |
|
./pkg/fizhi/update_earth_exports.F |
427 |
SIBALB |
DATA (GMVDR (I, 2, 7), I = 1, 14) /14*1./ |
|
./pkg/fizhi/update_earth_exports.F |
429 |
SIBALB |
DATA (GMVDR (I, 1, 8), I = 1, 14) /14*1./ |
|
./pkg/fizhi/update_earth_exports.F |
430 |
SIBALB |
DATA (GMVDR (I, 2, 8), I = 1, 14) /14*1./ |
|
./pkg/fizhi/update_earth_exports.F |
432 |
SIBALB |
DATA (GMVDR (I, 1, 9), I = 1, 14) /14*1./ |
|
./pkg/fizhi/update_earth_exports.F |
433 |
SIBALB |
DATA (GMVDR (I, 2, 9), I = 1, 14) /14*1./ |
|
./pkg/fizhi/update_earth_exports.F |
435 |
SIBALB |
DATA (GMVDR (I, 1, 10), I = 1, 14) /14*1./ |
|
./pkg/fizhi/update_earth_exports.F |
436 |
SIBALB |
DATA (GMVDR (I, 2, 10), I = 1, 14) /14*1./ |
|
./pkg/fizhi/update_earth_exports.F |
441 |
SIBALB |
DATA (ALIDR (I, 1, 1), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
445 |
SIBALB |
DATA (ALIDR (I, 2, 1), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
447 |
SIBALB |
DATA (ALIDR (I, 1, 2), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
449 |
SIBALB |
DATA (ALIDR (I, 2, 2), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
451 |
SIBALB |
DATA (ALIDR (I, 1, 3), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
453 |
SIBALB |
DATA (ALIDR (I, 2, 3), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
457 |
SIBALB |
DATA (ALIDR (I, 1, 4), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
461 |
SIBALB |
DATA (ALIDR (I, 2, 4), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
465 |
SIBALB |
DATA (ALIDR (I, 1, 5), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
467 |
SIBALB |
DATA (ALIDR (I, 2, 5), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
471 |
SIBALB |
DATA (ALIDR (I, 1, 6), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
473 |
SIBALB |
DATA (ALIDR (I, 2, 6), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
478 |
SIBALB |
DATA (ALIDR (I, 1, 7), I = 1, 14) /14*ALIDRS/ |
|
./pkg/fizhi/update_earth_exports.F |
479 |
SIBALB |
DATA (ALIDR (I, 2, 7), I = 1, 14) /14*ALIDRS/ |
|
./pkg/fizhi/update_earth_exports.F |
481 |
SIBALB |
DATA (ALIDR (I, 1, 8), I = 1, 14) /14*ALIDRDL/ |
|
./pkg/fizhi/update_earth_exports.F |
482 |
SIBALB |
DATA (ALIDR (I, 2, 8), I = 1, 14) /14*ALIDRDL/ |
|
./pkg/fizhi/update_earth_exports.F |
484 |
SIBALB |
DATA (ALIDR (I, 1, 9), I = 1, 14) /14*ALIDRI/ |
|
./pkg/fizhi/update_earth_exports.F |
485 |
SIBALB |
DATA (ALIDR (I, 2, 9), I = 1, 14) /14*ALIDRI/ |
|
./pkg/fizhi/update_earth_exports.F |
487 |
SIBALB |
DATA (ALIDR (I, 1, 10), I = 1, 14) /14*ALIDRDD/ |
|
./pkg/fizhi/update_earth_exports.F |
488 |
SIBALB |
DATA (ALIDR (I, 2, 10), I = 1, 14) /14*ALIDRDD/ |
|
./pkg/fizhi/update_earth_exports.F |
492 |
SIBALB |
DATA (BTIDR (I, 1, 1), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
496 |
SIBALB |
DATA (BTIDR (I, 2, 1), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
500 |
SIBALB |
DATA (BTIDR (I, 1, 2), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
504 |
SIBALB |
DATA (BTIDR (I, 2, 2), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
508 |
SIBALB |
DATA (BTIDR (I, 1, 3), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
512 |
SIBALB |
DATA (BTIDR (I, 2, 3), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
516 |
SIBALB |
DATA (BTIDR (I, 1, 4), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
520 |
SIBALB |
DATA (BTIDR (I, 2, 4), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
524 |
SIBALB |
DATA (BTIDR (I, 1, 5), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
529 |
SIBALB |
DATA (BTIDR (I, 2, 5), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
534 |
SIBALB |
DATA (BTIDR (I, 1, 6), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
539 |
SIBALB |
DATA (BTIDR (I, 2, 6), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
545 |
SIBALB |
DATA (BTIDR (I, 1, 7), I = 1, 14) /14*0./ |
|
./pkg/fizhi/update_earth_exports.F |
546 |
SIBALB |
DATA (BTIDR (I, 2, 7), I = 1, 14) /14*0./ |
|
./pkg/fizhi/update_earth_exports.F |
548 |
SIBALB |
DATA (BTIDR (I, 1, 8), I = 1, 14) /14*0./ |
|
./pkg/fizhi/update_earth_exports.F |
549 |
SIBALB |
DATA (BTIDR (I, 2, 8), I = 1, 14) /14*0./ |
|
./pkg/fizhi/update_earth_exports.F |
551 |
SIBALB |
DATA (BTIDR (I, 1, 9), I = 1, 14) /14*0./ |
|
./pkg/fizhi/update_earth_exports.F |
552 |
SIBALB |
DATA (BTIDR (I, 2, 9), I = 1, 14) /14*0./ |
|
./pkg/fizhi/update_earth_exports.F |
554 |
SIBALB |
DATA (BTIDR (I, 1, 10), I = 1, 14) /14*0./ |
|
./pkg/fizhi/update_earth_exports.F |
555 |
SIBALB |
DATA (BTIDR (I, 2, 10), I = 1, 14) /14*0./ |
|
./pkg/fizhi/update_earth_exports.F |
559 |
SIBALB |
DATA (GMIDR (I, 1, 1), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
563 |
SIBALB |
DATA (GMIDR (I, 2, 1), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
567 |
SIBALB |
DATA (GMIDR (I, 1, 2), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
571 |
SIBALB |
DATA (GMIDR (I, 2, 2), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
575 |
SIBALB |
DATA (GMIDR (I, 1, 3), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
579 |
SIBALB |
DATA (GMIDR (I, 2, 3), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
583 |
SIBALB |
DATA (GMIDR (I, 1, 4), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
587 |
SIBALB |
DATA (GMIDR (I, 2, 4), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
591 |
SIBALB |
DATA (GMIDR (I, 1, 5), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
596 |
SIBALB |
DATA (GMIDR (I, 2, 5), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
601 |
SIBALB |
DATA (GMIDR (I, 1, 6), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
606 |
SIBALB |
DATA (GMIDR (I, 2, 6), I = 1, 14) |
|
./pkg/fizhi/update_earth_exports.F |
611 |
SIBALB |
DATA (GMIDR (I, 1, 7), I = 1, 14) /14*1./ |
|
./pkg/fizhi/update_earth_exports.F |
612 |
SIBALB |
DATA (GMIDR (I, 2, 7), I = 1, 14) /14*1./ |
|
./pkg/fizhi/update_earth_exports.F |
614 |
SIBALB |
DATA (GMIDR (I, 1, 8), I = 1, 14) /14*1./ |
|
./pkg/fizhi/update_earth_exports.F |
615 |
SIBALB |
DATA (GMIDR (I, 2, 8), I = 1, 14) /14*1./ |
|
./pkg/fizhi/update_earth_exports.F |
617 |
SIBALB |
DATA (GMIDR (I, 1, 9), I = 1, 14) /14*1./ |
|
./pkg/fizhi/update_earth_exports.F |
618 |
SIBALB |
DATA (GMIDR (I, 2, 9), I = 1, 14) /14*1./ |
|
./pkg/fizhi/update_earth_exports.F |
620 |
SIBALB |
DATA (GMIDR (I, 1, 10), I = 1, 14) /14*1./ |
|
./pkg/fizhi/update_earth_exports.F |
621 |
SIBALB |
DATA (GMIDR (I, 2, 10), I = 1, 14) /14*1./ |
|
./pkg/fizhi/update_earth_exports.F |
647 |
SIBALB |
DO 100 I=1,IRUN |
|
./pkg/fizhi/update_earth_exports.F |
648 |
SIBALB |
ALA = MIN (MAX (ZERO, VLAI(I)), ALATRM) |
|
./pkg/fizhi/update_earth_exports.F |
651 |
SIBALB |
DY = (VGRN(I)- GRN(1)) * (ONE/(GRN(2) - GRN(1))) |
|
./pkg/fizhi/update_earth_exports.F |
653 |
SIBALB |
ALPHA = COEFF (ALVDR (1, 1, ITYP (I)), NLAI, LAI ,DX, DY) |
|
./pkg/fizhi/update_earth_exports.F |
654 |
SIBALB |
BETA = COEFF (BTVDR (1, 1, ITYP (I)), NLAI, LAI ,DX, DY) |
|
./pkg/fizhi/update_earth_exports.F |
655 |
SIBALB |
GAMMA = COEFF (GMVDR (1, 1, ITYP (I)), NLAI, LAI ,DX, DY) |
|
./pkg/fizhi/update_earth_exports.F |
657 |
SIBALB |
AVISDR(I) = ALPHA - ZTH(I)*BETA / (GAMMA+ZTH(I)) |
|
./pkg/fizhi/update_earth_exports.F |
658 |
SIBALB |
AVISDF(I) = ALPHA-BETA |
|
./pkg/fizhi/update_earth_exports.F |
661 |
SIBALB |
ALPHA = COEFF (ALIDR (1, 1, ITYP (I)), NLAI, LAI ,DX, DY) |
|
./pkg/fizhi/update_earth_exports.F |
662 |
SIBALB |
BETA = COEFF (BTIDR (1, 1, ITYP (I)), NLAI, LAI ,DX, DY) |
|
./pkg/fizhi/update_earth_exports.F |
663 |
SIBALB |
GAMMA = COEFF (GMIDR (1, 1, ITYP (I)), NLAI, LAI ,DX, DY) |
|
./pkg/fizhi/update_earth_exports.F |
665 |
SIBALB |
ANIRDR(I) = ALPHA - ZTH(I)*BETA / (GAMMA+ZTH(I)) |
|
./pkg/fizhi/update_earth_exports.F |
666 |
SIBALB |
ANIRDF(I) = ALPHA-BETA |
|
./pkg/fizhi/update_earth_exports.F |
669 |
SIBALB |
IF (SNW (I) .GT. ZERO) THEN |
|
./pkg/fizhi/update_earth_exports.F |
670 |
SIBALB |
FAC = SNW(I) / (SNW(I) + SNWMID(ITYP(I))) |
|
./pkg/fizhi/update_earth_exports.F |
672 |
SIBALB |
AVISDR(I) = AVISDR(I) + (SNWALB(1,ITYP(I)) - AVISDR(I)) * FAC |
|
./pkg/fizhi/update_earth_exports.F |
673 |
SIBALB |
ANIRDR(I) = ANIRDR(I) + (SNWALB(2,ITYP(I)) - ANIRDR(I)) * FAC |
|
./pkg/fizhi/update_earth_exports.F |
674 |
SIBALB |
AVISDF(I) = AVISDF(I) + (SNWALB(3,ITYP(I)) - AVISDF(I)) * FAC |
|
./pkg/fizhi/update_earth_exports.F |
675 |
SIBALB |
ANIRDF(I) = ANIRDF(I) + (SNWALB(4,ITYP(I)) - ANIRDF(I)) * FAC |
|
./pkg/fizhi/update_earth_exports.F |
792 |
GETLGR |
DO 220 I=1,NCHPS |
|
./pkg/fizhi/update_earth_exports.F |
794 |
GETLGR |
IF(ALAT(I,bi,bj).GT.0.) THEN |
|
./pkg/fizhi/update_earth_exports.F |
802 |
GETLGR |
ALAI(I,bi,bj) = VGLA(KK2,ITYP(I,bi,bj))*FAC+ |
|
./pkg/fizhi/update_earth_exports.F |
803 |
GETLGR |
& VGLA(KK1,ITYP(I,bi,bj))*(ONE-FAC) |
|
./pkg/fizhi/update_earth_exports.F |
804 |
GETLGR |
AGRN(I,bi,bj) = VGGR(KK2,ITYP(I,bi,bj))*FAC+ |
|
./pkg/fizhi/update_earth_exports.F |
805 |
GETLGR |
& VGGR(KK1,ITYP(I,bi,bj))*(ONE-FAC) |
|
./pkg/fizhi/update_earth_exports.F |
878 |
GETALB |
DO I=1,IM |
|
./pkg/fizhi/update_earth_exports.F |
880 |
GETALB |
ALBOC(I,J) = A0 + (A1 + (A2 + A3*cosz(I,J))*cosz(I,J))*cosz(I,J) |
|
./pkg/fizhi/update_earth_exports.F |
881 |
GETALB |
ALBVR(I,J,bi,bj) = ALBSI*FRACI(I,J) + ALBOC(I,J)*(ONE-FRACI(I,J)) |
|
./pkg/fizhi/update_earth_exports.F |
882 |
GETALB |
ALBNR(I,J,bi,bj) = ALBVR(I,J,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
883 |
GETALB |
ALBVF(I,J,bi,bj) = ALBSI * FRACI(I,J) + OCNALB * (ONE-FRACI(I,J)) |
|
./pkg/fizhi/update_earth_exports.F |
884 |
GETALB |
ALBNF(I,J,bi,bj) = ALBVF(I,J,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
899 |
GETALB |
DO I=1,IM |
|
./pkg/fizhi/update_earth_exports.F |
907 |
GETALB |
DO I=1,IM |
|
./pkg/fizhi/update_earth_exports.F |
912 |
GETALB |
DO I=1,IM |
|
./pkg/fizhi/update_earth_exports.F |
919 |
GETALB |
DO I=1,IM |
|
./pkg/fizhi/update_earth_exports.F |
924 |
GETALB |
DO I=1,IM |
|
./pkg/fizhi/update_earth_exports.F |
931 |
GETALB |
DO I=1,IM |
|
./pkg/fizhi/update_earth_exports.F |
936 |
GETALB |
DO I=1,IM |
|
./pkg/fizhi/update_earth_exports.F |
943 |
GETALB |
DO I=1,IM |
|
./pkg/flt/exch2_send_put_vec.F |
151 |
EXCH2_RL_SEND_PUT_VEC |
DO I=1,myd1 |
|
./pkg/flt/exch2_send_put_vec.F |
152 |
EXCH2_RL_SEND_PUT_VEC |
bufRec(I,sBi,sBj,sDir) = array(I,bi,bj,dir) |
|
./pkg/flt/exch2_send_put_vec.F |
68 |
EXCH2_RL_SEND_PUT_VEC |
INTEGER I,J,sBi,sBj, nN, thisTile, tgT, tgN, dir, sDir |
|
./pkg/flt/exch_send_put_vec.F |
141 |
EXCH_RL_SEND_PUT_VEC_X |
DO I=1,myd1 |
|
./pkg/flt/exch_send_put_vec.F |
142 |
EXCH_RL_SEND_PUT_VEC_X |
bufRecE(I,biW,bjW) = arrayW(I,bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
179 |
EXCH_RL_SEND_PUT_VEC_X |
DO I=1,myd1 |
|
./pkg/flt/exch_send_put_vec.F |
180 |
EXCH_RL_SEND_PUT_VEC_X |
bufRecW(I,biE,bjE) = arrayE(I,bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
283 |
EXCH_RL_SEND_PUT_VEC_Y |
INTEGER I |
|
./pkg/flt/exch_send_put_vec.F |
354 |
EXCH_RL_SEND_PUT_VEC_Y |
DO I=1,myd1 |
|
./pkg/flt/exch_send_put_vec.F |
355 |
EXCH_RL_SEND_PUT_VEC_Y |
bufRecN(I,biS,bjS) = arrayS(I,bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
383 |
EXCH_RL_SEND_PUT_VEC_Y |
DO I=1,myd1 |
|
./pkg/flt/exch_send_put_vec.F |
384 |
EXCH_RL_SEND_PUT_VEC_Y |
bufRecS(I,biN,bjN) = arrayN(I,bi,bj) |
|
./pkg/flt/exch_send_put_vec.F |
62 |
EXCH_RL_SEND_PUT_VEC_X |
INTEGER I |
|
./pkg/gchem/gchem_add_tendency.F |
60 |
GCHEM_ADD_TENDENCY |
gPtr(I,J,K,bi,bj,iTracer) = gPtr(I,J,K,bi,bj,iTracer) |
|
./pkg/gchem/gchem_add_tendency.F |
61 |
GCHEM_ADD_TENDENCY |
& + gchemTendency(I,J,K,bi,bj,iTracer) |
|
./pkg/gchem/gchem_calc_tendency.F |
66 |
GCHEM_CALC_TENDENCY |
DO I = 1-Olx, sNx+Olx |
|
./pkg/gchem/gchem_calc_tendency.F |
67 |
GCHEM_CALC_TENDENCY |
gchemTendency(I,J,K,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_grad_y.F |
60 |
GAD_GRAD_Y |
dTdy(I,1-Oly)=0. |
|
./pkg/ggl90/ggl90_init_varia.F |
25 |
GGL90_INIT_VARIA |
INTEGER I, J, K |
|
./pkg/ggl90/ggl90_init_varia.F |
39 |
GGL90_INIT_VARIA |
DO I=1-Olx,sNx+Olx |
|
./pkg/ggl90/ggl90_init_varia.F |
40 |
GGL90_INIT_VARIA |
GGL90viscArU(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
41 |
GGL90_INIT_VARIA |
GGL90viscArV(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
42 |
GGL90_INIT_VARIA |
GGL90diffKr(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
44 |
GGL90_INIT_VARIA |
GGL90TKE(I,J,K,bi,bj)=GGL90TKEmin*maskC(I,J,K,bi,bj) |
|
./pkg/ggl90/ggl90_init_varia.F |
72 |
GGL90_INIT_VARIA |
DO I=1-OLx,sNx+OLx |
|
./pkg/ggl90/ggl90_init_varia.F |
73 |
GGL90_INIT_VARIA |
GGL90TKE(I,J,K,bi,bj) = MAX(GGL90TKE(I,J,K,bi,bj), |
|
./pkg/ggl90/ggl90_init_varia.F |
74 |
GGL90_INIT_VARIA |
& GGL90TKEmin)*maskC(I,J,K,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
54 |
GMREDI_RTRANSPORT |
INTEGER I, J |
|
./pkg/gmredi/gmredi_xtransport.F |
50 |
GMREDI_XTRANSPORT |
INTEGER I, J |
|
./pkg/gmredi/gmredi_ytransport.F |
50 |
GMREDI_YTRANSPORT |
INTEGER I, J |
|
./pkg/grdchk/grdchk_loc.F |
218 |
GRDCHK_LOC |
jtmp = OB_Jn(I,bi,bj) |
|
./pkg/grdchk/grdchk_loc.F |
226 |
GRDCHK_LOC |
jtmp = OB_Js(I,bi,bj) |
|
./pkg/icefront/icefront_init_fixed.F |
29 |
ICEFRONT_INIT_FIXED |
INTEGER I, J, K, bi, bj |
|
./pkg/icefront/icefront_init_fixed.F |
49 |
ICEFRONT_INIT_FIXED |
DO I = 1-OLx, sNx+OLx |
|
./pkg/icefront/icefront_init_fixed.F |
50 |
ICEFRONT_INIT_FIXED |
R_icefront(I,J,bi,bj) = ABS(R_icefront(I,J,bi,bj)) |
|
./pkg/icefront/icefront_init_fixed.F |
59 |
ICEFRONT_INIT_FIXED |
DO I = 1-OLx, sNx+OLx |
|
./pkg/icefront/icefront_init_fixed.F |
62 |
ICEFRONT_INIT_FIXED |
IF ( R_icefront(I,J,bi,bj) .GT. ABS(rF(K))) |
|
./pkg/icefront/icefront_init_fixed.F |
63 |
ICEFRONT_INIT_FIXED |
& K_icefront(I,J,bi,bj) = K |
|
./pkg/icefront/icefront_init_fixed.F |
75 |
ICEFRONT_INIT_FIXED |
DO I = 1, sNx |
|
./pkg/icefront/icefront_init_fixed.F |
77 |
ICEFRONT_INIT_FIXED |
IF (ICEFRONTlength(I,J,bi,bj) .GT. 0. _d 0) THEN |
|
./pkg/icefront/icefront_init_fixed.F |
79 |
ICEFRONT_INIT_FIXED |
IsInterface=Isinterface + K_icefront(I,J,bi,bj) |
|
./pkg/icefront/icefront_init_varia.F |
34 |
ICEFRONT_INIT_VARIA |
INTEGER I, J, K, bi, bj |
|
./pkg/icefront/icefront_init_varia.F |
40 |
ICEFRONT_INIT_VARIA |
DO I = 1, OLx |
|
./pkg/icefront/icefront_sgrunoff_read.F |
36 |
SGRUNOFF_READ |
INTEGER bi,bj,I,J,K |
|
./pkg/icefront/icefront_sgrunoff_read.F |
47 |
SGRUNOFF_READ |
DO I = 1-Olx,sNx+Olx |
|
./pkg/icefront/icefront_sgrunoff_read.F |
48 |
SGRUNOFF_READ |
K = kLowC(I,J,bi,bj) |
|
./pkg/icefront/icefront_sgrunoff_read.F |
49 |
SGRUNOFF_READ |
addmass(I,J,K,bi,bj) = |
|
./pkg/icefront/icefront_sgrunoff_read.F |
50 |
SGRUNOFF_READ |
& addmass(I,J,K,bi,bj) + SGrunoff(I,J,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
100 |
ICEFRONT_THERMODYNAMICS |
DO I = 1, sNx |
|
./pkg/icefront/icefront_thermodynamics.F |
102 |
ICEFRONT_THERMODYNAMICS |
IF( ICEFRONTlength(I,J,bi,bj) .GT. 0. _d 0 |
|
./pkg/icefront/icefront_thermodynamics.F |
103 |
ICEFRONT_THERMODYNAMICS |
& .AND. K .LE. K_icefront(I,J,bi,bj) ) THEN |
|
./pkg/icefront/icefront_thermodynamics.F |
107 |
ICEFRONT_THERMODYNAMICS |
tLoc = theta(I,J,K,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
108 |
ICEFRONT_THERMODYNAMICS |
sLoc = MAX(salt(I,J,K,bi,bj), 0. _d 0) |
|
./pkg/icefront/icefront_thermodynamics.F |
115 |
ICEFRONT_THERMODYNAMICS |
IF ( K .EQ. K_icefront(I,J,bi,bj)) THEN |
|
./pkg/icefront/icefront_thermodynamics.F |
116 |
ICEFRONT_THERMODYNAMICS |
pLoc = 0.5*(ABS(R_icefront(I,J,bi,bj))+ABS(rF(K))) |
|
./pkg/icefront/icefront_thermodynamics.F |
119 |
ICEFRONT_THERMODYNAMICS |
& (R_icefront(I,J,bi,bj)-pLoc) |
|
./pkg/icefront/icefront_thermodynamics.F |
120 |
ICEFRONT_THERMODYNAMICS |
& / R_icefront(I,J,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
140 |
ICEFRONT_THERMODYNAMICS |
FreshWaterFlux(I,J) = maskC(I,J,K,bi,bj) * |
|
./pkg/icefront/icefront_thermodynamics.F |
144 |
ICEFRONT_THERMODYNAMICS |
HeatFlux(I,J) = maskC(I,J,K,bi,bj) * HeatCapacity_Cp * |
|
./pkg/icefront/icefront_thermodynamics.F |
146 |
ICEFRONT_THERMODYNAMICS |
& FreshWaterFlux(I,J) ) * ( thetaFreeze - tLoc ) |
|
./pkg/icefront/icefront_thermodynamics.F |
149 |
ICEFRONT_THERMODYNAMICS |
icefront_TendT(i,j,K,bi,bj) = - HeatFlux(I,J)* eps5 |
|
./pkg/icefront/icefront_thermodynamics.F |
150 |
ICEFRONT_THERMODYNAMICS |
icefront_TendS(i,j,K,bi,bj) = FreshWaterFlux(I,J) * |
|
./pkg/icefront/icefront_thermodynamics.F |
165 |
ICEFRONT_THERMODYNAMICS |
& * (ABS(R_icefront(I,J,bi,bj))-ABS(rF(K))) |
|
./pkg/icefront/icefront_thermodynamics.F |
169 |
ICEFRONT_THERMODYNAMICS |
& * (ABS(R_icefront(I,J,bi,bj))-ABS(rF(K))) |
|
./pkg/icefront/icefront_thermodynamics.F |
175 |
ICEFRONT_THERMODYNAMICS |
HeatFlux (I,J) = 0. _d 0 |
|
./pkg/icefront/icefront_thermodynamics.F |
176 |
ICEFRONT_THERMODYNAMICS |
FreshWaterFlux(I,J) = 0. _d 0 |
|
./pkg/icefront/icefront_thermodynamics.F |
60 |
ICEFRONT_THERMODYNAMICS |
INTEGER I,J,K |
|
./pkg/kpp/kpp_forcing_surf.F |
162 |
KPP_FORCING_SURF |
bo (I,J) = p0 |
|
./pkg/kpp/kpp_forcing_surf.F |
163 |
KPP_FORCING_SURF |
bosol(I,J) = p0 |
|
./pkg/kpp/kpp_forcing_surf.F |
165 |
KPP_FORCING_SURF |
boplume(I,J) = p0 |
|
./pkg/kpp/kpp_forcing_surf.F |
203 |
KPP_FORCING_SURF |
bo(I,J) = - gravity * |
|
./pkg/kpp/kpp_forcing_surf.F |
204 |
KPP_FORCING_SURF |
& ( TTALPHA(I,J,1) * (surfForcT(i,j,bi,bj)+ |
|
./pkg/kpp/kpp_forcing_surf.F |
206 |
KPP_FORCING_SURF |
& SSBETA(I,J,1) * surfForcS(i,j,bi,bj) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
207 |
KPP_FORCING_SURF |
& / rhoSurf(I,J) |
|
./pkg/kpp/kpp_forcing_surf.F |
208 |
KPP_FORCING_SURF |
bosol(I,J) = gravity * TTALPHA(I,J,1) * Qsw(i,j,bi,bj) * |
|
./pkg/kpp/kpp_forcing_surf.F |
210 |
KPP_FORCING_SURF |
& / rhoSurf(I,J) |
|
./pkg/kpp/kpp_forcing_surf.F |
220 |
KPP_FORCING_SURF |
boplume(I,J) = - gravity * SSBETA(I,J,1) |
|
./pkg/kpp/kpp_forcing_surf.F |
222 |
KPP_FORCING_SURF |
& * recip_rhoConst / rhoSurf(I,J) |
|
./pkg/kpp/kpp_forcing_surf.F |
279 |
KPP_FORCING_SURF |
& maskC(I,J,k,bi,bj) .GT. 0. .AND. |
|
./pkg/kpp/kpp_init_varia.F |
45 |
KPP_INIT_VARIA |
nzmax(i,j,bi,bj) = kLowC(I,J,bi,bj) |
|
./pkg/kpp/kpp_routines.F |
1539 |
STATEKPP |
INTEGER I, J, K |
|
./pkg/kpp/kpp_routines.F |
1573 |
STATEKPP |
DO I = 1-OLx, sNx+OLx |
|
./pkg/kpp/kpp_routines.F |
1574 |
STATEKPP |
RHO1(I,J) = WORK1(I,J) + rhoConst |
|
./pkg/kpp/kpp_routines.F |
1575 |
STATEKPP |
TTALPHA(I,J,1) = WORK2(I,J) |
|
./pkg/kpp/kpp_routines.F |
1576 |
STATEKPP |
SSBETA(I,J,1) = WORK3(I,J) |
|
./pkg/kpp/kpp_routines.F |
1577 |
STATEKPP |
DBSFC(I,J,1) = 0. |
|
./pkg/kpp/kpp_routines.F |
1642 |
STATEKPP |
DO I = 1-OLx, sNx+OLx |
|
./pkg/kpp/kpp_routines.F |
1643 |
STATEKPP |
TTALPHA(I,J,K) = WORK1 (I,J) |
|
./pkg/kpp/kpp_routines.F |
1644 |
STATEKPP |
SSBETA(I,J,K) = WORK2 (I,J) |
|
./pkg/kpp/kpp_routines.F |
1645 |
STATEKPP |
DBLOC(I,J,K-1) = gravity * (RHOK(I,J) - RHOKM1(I,J)) / |
|
./pkg/kpp/kpp_routines.F |
1646 |
STATEKPP |
& (RHOK(I,J) + rhoConst) |
|
./pkg/kpp/kpp_routines.F |
1647 |
STATEKPP |
DBSFC(I,J,K) = gravity * (RHOK(I,J) - RHO1K (I,J)) / |
|
./pkg/kpp/kpp_routines.F |
1648 |
STATEKPP |
& (RHOK(I,J) + rhoConst) |
|
./pkg/kpp/kpp_routines.F |
1656 |
STATEKPP |
DO I = 1-OLx, sNx+OLx |
|
./pkg/kpp/kpp_routines.F |
1657 |
STATEKPP |
TTALPHA(I,J,Nrp1) = TTALPHA(I,J,Nr) |
|
./pkg/kpp/kpp_routines.F |
1658 |
STATEKPP |
SSBETA(I,J,Nrp1) = SSBETA(I,J,Nr) |
|
./pkg/kpp/kpp_routines.F |
1659 |
STATEKPP |
DBLOC(I,J,Nr) = 0. |
|
./pkg/kpp/kpp_routines.F |
1735 |
KPP_DOUBLEDIFF |
INTEGER I, J, K |
|
./pkg/kpp/kpp_routines.F |
1768 |
KPP_DOUBLEDIFF |
DO I = 1-Olx, sNx+Olx |
|
./pkg/kpp/kpp_routines.F |
1769 |
KPP_DOUBLEDIFF |
alphaDT(I,J) = ( theta(I,J,Km1,bi,bj)-theta(I,J,K,bi,bj) ) |
|
./pkg/kpp/kpp_routines.F |
1770 |
KPP_DOUBLEDIFF |
& * 0.5 _d 0 * ABS( TTALPHA(I,J,Km1) + TTALPHA(I,J,K) ) |
|
./pkg/kpp/kpp_routines.F |
1771 |
KPP_DOUBLEDIFF |
betaDS(I,J) = ( salt(I,J,Km1,bi,bj)-salt(I,J,K,bi,bj) ) |
|
./pkg/kpp/kpp_routines.F |
1772 |
KPP_DOUBLEDIFF |
& * 0.5 _d 0 * ( SSBETA(I,J,Km1) + SSBETA(I,J,K) ) |
|
./pkg/kpp/kpp_routines.F |
1773 |
KPP_DOUBLEDIFF |
nuddt(I,J) = 0. _d 0 |
|
./pkg/kpp/kpp_routines.F |
1774 |
KPP_DOUBLEDIFF |
nudds(I,J) = 0. _d 0 |
|
./pkg/kpp/kpp_routines.F |
1779 |
KPP_DOUBLEDIFF |
DO I = iMin, iMax |
|
./pkg/kpp/kpp_routines.F |
1784 |
KPP_DOUBLEDIFF |
IF ( alphaDT(I,J) .GT. betaDS(I,J) |
|
./pkg/kpp/kpp_routines.F |
1785 |
KPP_DOUBLEDIFF |
& .AND. betaDS(I,J) .GT. 0. _d 0 ) THEN |
|
./pkg/kpp/kpp_routines.F |
1786 |
KPP_DOUBLEDIFF |
Rrho = MIN( alphaDT(I,J)/betaDS(I,J), Rrho0 ) |
|
./pkg/kpp/kpp_routines.F |
1790 |
KPP_DOUBLEDIFF |
nudds(I,J) = dsfmax * nutmp * nutmp * nutmp |
|
./pkg/kpp/kpp_routines.F |
1792 |
KPP_DOUBLEDIFF |
nuddt(I,J) = 0.7 _d 0 * nudds(I,J) |
|
./pkg/kpp/kpp_routines.F |
1793 |
KPP_DOUBLEDIFF |
ELSEIF ( alphaDT(I,J) .LT. 0. _d 0 |
|
./pkg/kpp/kpp_routines.F |
1794 |
KPP_DOUBLEDIFF |
& .AND. betaDS(I,J) .LT. 0. _d 0 |
|
./pkg/kpp/kpp_routines.F |
1795 |
KPP_DOUBLEDIFF |
& .AND.alphaDT(I,J) .GT. betaDS(I,J) ) THEN |
|
./pkg/kpp/kpp_routines.F |
1800 |
KPP_DOUBLEDIFF |
Rrho = alphaDT(I,J)/betaDS(I,J) |
|
./pkg/kpp/kpp_routines.F |
1802 |
KPP_DOUBLEDIFF |
nuddt(I,J) = numol * 0.909 _d 0 |
|
./pkg/kpp/kpp_routines.F |
1809 |
KPP_DOUBLEDIFF |
nudds(I,J) = nuddt(I,J) * MAX( 0.15 _d 0 * Rrho, |
|
./pkg/kpp/kpp_routines.F |
1822 |
KPP_DOUBLEDIFF |
DO I = 1-Olx, sNx+Olx |
|
./pkg/kpp/kpp_routines.F |
1823 |
KPP_DOUBLEDIFF |
kappaRT(I,J,K) = kappaRT(I,J,K) + nuddt(I,J) |
|
./pkg/kpp/kpp_routines.F |
1824 |
KPP_DOUBLEDIFF |
kappaRS(I,J,K) = kappaRS(I,J,K) + nudds(I,J) |
|
./pkg/kpp/kpp_transport_s.F |
60 |
KPP_TRANSPORT_S |
INTEGER I, J |
|
./pkg/kpp/kpp_transport_t.F |
61 |
KPP_TRANSPORT_T |
INTEGER I, J |
|
./pkg/land/land_ini_vars.F |
64 |
LAND_INI_VARS |
DO I=1-Olx,sNx+Olx |
|
./pkg/land/land_ini_vars.F |
74 |
LAND_INI_VARS |
DO I=1-Olx,sNx+Olx |
|
./pkg/mdsio/mdsio_gl.F |
1112 |
MDSREADFIELD_2D_GL |
DO I=1,Nx |
|
./pkg/mdsio/mdsio_gl.F |
1113 |
MDSREADFIELD_2D_GL |
global(I,J) = xy_buffer_r4(I,J) |
|
./pkg/mdsio/mdsio_gl.F |
1122 |
MDSREADFIELD_2D_GL |
DO I=1,Nx |
|
./pkg/mdsio/mdsio_gl.F |
1123 |
MDSREADFIELD_2D_GL |
global(I,J) = xy_buffer_r8(I,J) |
|
./pkg/mdsio/mdsio_gl.F |
1139 |
MDSREADFIELD_2D_GL |
DO I=1,sNx |
|
./pkg/mdsio/mdsio_gl.F |
1140 |
MDSREADFIELD_2D_GL |
II=((ip-1)*nSx+(bi-1))*sNx+I |
|
./pkg/mdsio/mdsio_gl.F |
1335 |
MDSWRITEFIELD_2D_GL |
DO I=1,sNx |
|
./pkg/mdsio/mdsio_gl.F |
1336 |
MDSWRITEFIELD_2D_GL |
II=((ip-1)*nSx+(bi-1))*sNx+I |
|
./pkg/mdsio/mdsio_gl.F |
1349 |
MDSWRITEFIELD_2D_GL |
DO I=1,Nx |
|
./pkg/mdsio/mdsio_gl.F |
1350 |
MDSWRITEFIELD_2D_GL |
xy_buffer_r4(I,J) = global(I,J) |
|
./pkg/mdsio/mdsio_gl.F |
1359 |
MDSWRITEFIELD_2D_GL |
DO I=1,Nx |
|
./pkg/mdsio/mdsio_gl.F |
1360 |
MDSWRITEFIELD_2D_GL |
xy_buffer_r8(I,J) = global(I,J) |
|
./pkg/mdsio/mdsio_gl.F |
351 |
MDSREADFIELD_3D_GL |
DO I=1,Nx |
|
./pkg/mdsio/mdsio_gl.F |
352 |
MDSREADFIELD_3D_GL |
global(I,J) = xy_buffer_r4(I,J) |
|
./pkg/mdsio/mdsio_gl.F |
361 |
MDSREADFIELD_3D_GL |
DO I=1,Nx |
|
./pkg/mdsio/mdsio_gl.F |
362 |
MDSREADFIELD_3D_GL |
global(I,J) = xy_buffer_r8(I,J) |
|
./pkg/mdsio/mdsio_gl.F |
378 |
MDSREADFIELD_3D_GL |
DO I=1,sNx |
|
./pkg/mdsio/mdsio_gl.F |
379 |
MDSREADFIELD_3D_GL |
II=((ip-1)*nSx+(bi-1))*sNx+I |
|
./pkg/mdsio/mdsio_gl.F |
572 |
MDSWRITEFIELD_3D_GL |
DO I=1,sNx |
|
./pkg/mdsio/mdsio_gl.F |
573 |
MDSWRITEFIELD_3D_GL |
II=((ip-1)*nSx+(bi-1))*sNx+I |
|
./pkg/mdsio/mdsio_gl.F |
586 |
MDSWRITEFIELD_3D_GL |
DO I=1,Nx |
|
./pkg/mdsio/mdsio_gl.F |
587 |
MDSWRITEFIELD_3D_GL |
xy_buffer_r4(I,J) = global(I,J) |
|
./pkg/mdsio/mdsio_gl.F |
596 |
MDSWRITEFIELD_3D_GL |
DO I=1,Nx |
|
./pkg/mdsio/mdsio_gl.F |
597 |
MDSWRITEFIELD_3D_GL |
xy_buffer_r8(I,J) = global(I,J) |
|
./pkg/mom_common/mom_calc_absvort3.F |
46 |
MOM_CALC_ABSVORT3 |
omega3(I,J)= |
|
./pkg/mom_common/mom_calc_hdiv.F |
35 |
MOM_CALC_HDIV |
DO I=1-Olx,sNx+Olx-1 |
|
./pkg/mom_common/mom_calc_hdiv.F |
38 |
MOM_CALC_HDIV |
hDiv(I,J)=( |
|
./pkg/mom_common/mom_calc_hdiv.F |
43 |
MOM_CALC_HDIV |
& )*recip_rA(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
49 |
MOM_CALC_HDIV |
DO I=1-Olx,sNx+Olx-1 |
|
./pkg/mom_common/mom_calc_hdiv.F |
52 |
MOM_CALC_HDIV |
hDiv(I,J)= |
|
./pkg/mom_common/mom_calc_hdiv.F |
57 |
MOM_CALC_HDIV |
& )*recip_rA(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
288 |
MOM_CALC_HFACZ |
I=sNx+1 |
|
./pkg/mom_common/mom_calc_hfacz.F |
57 |
MOM_CALC_HFACZ |
INTEGER I,J |
|
./pkg/mom_common/mom_calc_ke.F |
100 |
MOM_CALC_KE |
DO I=1-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_calc_ke.F |
113 |
MOM_CALC_KE |
DO I=1-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_calc_ke.F |
47 |
MOM_CALC_KE |
INTEGER I,J |
|
./pkg/mom_common/mom_calc_ke.F |
58 |
MOM_CALC_KE |
DO I=1-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_calc_ke.F |
73 |
MOM_CALC_KE |
DO I=1-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_calc_ke.F |
86 |
MOM_CALC_KE |
DO I=1-OLx,sNx+OLx-1 |
|
./pkg/mom_common/mom_calc_relvort3.F |
113 |
MOM_CALC_RELVORT3 |
I=1 |
|
./pkg/mom_common/mom_calc_relvort3.F |
117 |
MOM_CALC_RELVORT3 |
vort3(I,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
118 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
119 |
MOM_CALC_RELVORT3 |
& ( vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
120 |
MOM_CALC_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
121 |
MOM_CALC_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
131 |
MOM_CALC_RELVORT3 |
vort3(I-1,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
132 |
MOM_CALC_RELVORT3 |
& recip_rAz(I-1,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
133 |
MOM_CALC_RELVORT3 |
& vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
134 |
MOM_CALC_RELVORT3 |
& -vFld(I-2,J)*dyC(I-2,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
135 |
MOM_CALC_RELVORT3 |
& -uFld(I-1,J)*dxC(I-1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
136 |
MOM_CALC_RELVORT3 |
& +vFld(I+0,J-1)*dyC(I+0,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
140 |
MOM_CALC_RELVORT3 |
vort3(I,J-1)=vort3(I-1,J) |
|
./pkg/mom_common/mom_calc_relvort3.F |
154 |
MOM_CALC_RELVORT3 |
I=sNx+1 |
|
./pkg/mom_common/mom_calc_relvort3.F |
159 |
MOM_CALC_RELVORT3 |
vort3(I,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
160 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
161 |
MOM_CALC_RELVORT3 |
& (-uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
162 |
MOM_CALC_RELVORT3 |
& -vFld(I-1,J)*dyC(I-1,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
163 |
MOM_CALC_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
166 |
MOM_CALC_RELVORT3 |
vort3(I,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
167 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
168 |
MOM_CALC_RELVORT3 |
& (-vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
169 |
MOM_CALC_RELVORT3 |
& +uFld(I,J-1)*dxC(I,J-1,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
170 |
MOM_CALC_RELVORT3 |
& - uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
173 |
MOM_CALC_RELVORT3 |
vort3(I,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
174 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
175 |
MOM_CALC_RELVORT3 |
& (+uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
176 |
MOM_CALC_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
177 |
MOM_CALC_RELVORT3 |
& - vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
188 |
MOM_CALC_RELVORT3 |
vort3(I+1,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
189 |
MOM_CALC_RELVORT3 |
& recip_rAz(I+1,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
190 |
MOM_CALC_RELVORT3 |
& vFld(I+1,J)*dyC(I+1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
191 |
MOM_CALC_RELVORT3 |
& -vFld(I-0,J)*dyC(I-0,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
192 |
MOM_CALC_RELVORT3 |
& -uFld(I+1,J)*dxC(I+1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
193 |
MOM_CALC_RELVORT3 |
& -vFld(I-1,J-1)*dyC(I-1,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
197 |
MOM_CALC_RELVORT3 |
vort3(I,J-1)=vort3(I+1,J) |
|
./pkg/mom_common/mom_calc_relvort3.F |
211 |
MOM_CALC_RELVORT3 |
I=1 |
|
./pkg/mom_common/mom_calc_relvort3.F |
216 |
MOM_CALC_RELVORT3 |
vort3(I,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
217 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
218 |
MOM_CALC_RELVORT3 |
& (+uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
219 |
MOM_CALC_RELVORT3 |
& +vFld(I,J)*dyC(I,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
220 |
MOM_CALC_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
223 |
MOM_CALC_RELVORT3 |
vort3(I,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
224 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
225 |
MOM_CALC_RELVORT3 |
& (-uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
226 |
MOM_CALC_RELVORT3 |
& +uFld(I,J-1)*dxC(I,J-1,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
227 |
MOM_CALC_RELVORT3 |
& + vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
230 |
MOM_CALC_RELVORT3 |
vort3(I,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
231 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
232 |
MOM_CALC_RELVORT3 |
& (+vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
233 |
MOM_CALC_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
234 |
MOM_CALC_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
245 |
MOM_CALC_RELVORT3 |
vort3(I-1,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
246 |
MOM_CALC_RELVORT3 |
& recip_rAz(I-1,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
247 |
MOM_CALC_RELVORT3 |
& vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
248 |
MOM_CALC_RELVORT3 |
& -vFld(I-2,J)*dyC(I-2,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
249 |
MOM_CALC_RELVORT3 |
& +vFld(I-0,J+1)*dyC(I-0,J+1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
250 |
MOM_CALC_RELVORT3 |
& +uFld(I-1,J-1)*dxC(I-1,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
254 |
MOM_CALC_RELVORT3 |
vort3(I,J+1)=vort3(I-1,J) |
|
./pkg/mom_common/mom_calc_relvort3.F |
268 |
MOM_CALC_RELVORT3 |
I=sNx+1 |
|
./pkg/mom_common/mom_calc_relvort3.F |
273 |
MOM_CALC_RELVORT3 |
vort3(I,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
274 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
275 |
MOM_CALC_RELVORT3 |
& (-uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
276 |
MOM_CALC_RELVORT3 |
& -vFld(I-1,J)*dyC(I-1,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
277 |
MOM_CALC_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
280 |
MOM_CALC_RELVORT3 |
vort3(I,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
281 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
282 |
MOM_CALC_RELVORT3 |
& (+uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
283 |
MOM_CALC_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
284 |
MOM_CALC_RELVORT3 |
& - vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
295 |
MOM_CALC_RELVORT3 |
vort3(I+1,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
296 |
MOM_CALC_RELVORT3 |
& recip_rAz(I+1,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
297 |
MOM_CALC_RELVORT3 |
& vFld(I+1,J)*dyC(I+1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
298 |
MOM_CALC_RELVORT3 |
& -vFld(I-0,J)*dyC(I-0,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
299 |
MOM_CALC_RELVORT3 |
& -vFld(I-1,J+1)*dyC(I-1,J+1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
300 |
MOM_CALC_RELVORT3 |
& +uFld(I+1,J-1)*dxC(I+1,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
304 |
MOM_CALC_RELVORT3 |
vort3(I,J+1)=vort3(I+1,J) |
|
./pkg/mom_common/mom_calc_relvort3.F |
47 |
MOM_CALC_RELVORT3 |
DO I=1-Olx,sNx+Olx |
|
./pkg/mom_common/mom_calc_relvort3.F |
48 |
MOM_CALC_RELVORT3 |
vort3(I,J) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_relvort3.F |
54 |
MOM_CALC_RELVORT3 |
DO I=2-Olx,sNx+Olx |
|
./pkg/mom_common/mom_calc_relvort3.F |
57 |
MOM_CALC_RELVORT3 |
vort3(I,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
58 |
MOM_CALC_RELVORT3 |
& recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
59 |
MOM_CALC_RELVORT3 |
& ( vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
60 |
MOM_CALC_RELVORT3 |
& -vFld(I-1,J)*dyC(I-1,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
61 |
MOM_CALC_RELVORT3 |
& -( uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
62 |
MOM_CALC_RELVORT3 |
& -uFld(I,J-1)*dxC(I,J-1,bi,bj) ) |
|
./pkg/mom_common/mom_calc_strain.F |
54 |
MOM_CALC_STRAIN |
DO I=2-Olx,sNx+Olx |
|
./pkg/mom_common/mom_calc_strain.F |
57 |
MOM_CALC_STRAIN |
strain(I,J)= |
|
./pkg/mom_common/mom_calc_visc.F |
105 |
MOM_CALC_VISC |
INTEGER I,J |
|
./pkg/mom_common/mom_hdissip.F |
45 |
MOM_HDISSIP |
INTEGER I,J |
|
./pkg/mom_fluxform/mom_u_del2u.F |
43 |
MOM_U_DEL2U |
INTEGER I,J |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
50 |
MOM_U_XVISCFLUX |
INTEGER I,J |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
51 |
MOM_U_YVISCFLUX |
INTEGER I,J |
|
./pkg/mom_fluxform/mom_v_del2v.F |
42 |
MOM_V_DEL2V |
INTEGER I,J |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
51 |
MOM_V_XVISCFLUX |
INTEGER I,J |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
50 |
MOM_V_YVISCFLUX |
INTEGER I,J |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
100 |
MOM_VI_CORIOLIS |
& )*uBarXY*recip_dyC(i,j,bi,bj)*_maskS(I,J,K,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
34 |
MOM_VI_CORIOLIS |
INTEGER I,J |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
42 |
MOM_VI_CORIOLIS |
DO I=2-Olx,sNx+Olx |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
52 |
MOM_VI_CORIOLIS |
& )*vBarXY*recip_dxC(i,j,bi,bj)*_maskW(I,J,K,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
58 |
MOM_VI_CORIOLIS |
DO I=2-Olx,sNx+Olx |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
67 |
MOM_VI_CORIOLIS |
& )*vBarXY*recip_dxC(i,j,bi,bj)*_maskW(I,J,K,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
75 |
MOM_VI_CORIOLIS |
DO I=1-Olx,sNx+Olx-1 |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
85 |
MOM_VI_CORIOLIS |
& )*uBarXY*recip_dyC(i,j,bi,bj)*_maskS(I,J,K,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
91 |
MOM_VI_CORIOLIS |
DO I=1-Olx,sNx+Olx-1 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
53 |
MOM_VI_HDISSIP |
INTEGER I,J |
|
./pkg/mom_vecinv/mom_vi_u_grad_ke.F |
29 |
MOM_VI_U_GRAD_KE |
INTEGER I,J |
|
./pkg/mom_vecinv/mom_vi_u_grad_ke.F |
32 |
MOM_VI_U_GRAD_KE |
DO I=2-Olx,sNx+Olx |
|
./pkg/mom_vecinv/mom_vi_u_grad_ke.F |
33 |
MOM_VI_U_GRAD_KE |
dKEdx(I,J)=-_recip_dxC(i,j,bi,bj)*(KE(i,j)-KE(i-1,j)) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
103 |
MOM_VI_U_VERTSHEAR |
uZp=(mask_Kp1*uFld(I,J,Kp1,bi,bj)-uFld(I,J,K,bi,bj))*rkSign |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
123 |
MOM_VI_U_VERTSHEAR |
uShearTerm(I,J)=-0.5* |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
130 |
MOM_VI_U_VERTSHEAR |
uShearTerm(I,J)=-0.5*(wBarXp*uZp+wBarXm*uZm) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
31 |
MOM_VI_U_VERTSHEAR |
INTEGER I,J,Kp1,Km1 |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
57 |
MOM_VI_U_VERTSHEAR |
DO I=2-Olx,sNx+Olx |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
69 |
MOM_VI_U_VERTSHEAR |
& wFld(I,J,K,bi,bj)*rA(i,j,bi,bj)*maskC(I,J,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
70 |
MOM_VI_U_VERTSHEAR |
& +wFld(I-1,J,K,bi,bj)*rA(i-1,j,bi,bj)*maskC(I-1,J,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
76 |
MOM_VI_U_VERTSHEAR |
& wFld(I,J,Kp1,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
77 |
MOM_VI_U_VERTSHEAR |
& +wFld(I-1,J,Kp1,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
83 |
MOM_VI_U_VERTSHEAR |
& wFld(I,J,K,bi,bj)*maskC(I,J,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
84 |
MOM_VI_U_VERTSHEAR |
& +wFld(I-1,J,K,bi,bj)*maskC(I-1,J,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
89 |
MOM_VI_U_VERTSHEAR |
& wFld(I,J,Kp1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
90 |
MOM_VI_U_VERTSHEAR |
& +wFld(I-1,J,Kp1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
96 |
MOM_VI_U_VERTSHEAR |
uZm=(uFld(I,J,K,bi,bj)-mask_Km1*uFld(I,J,Km1,bi,bj))*rkSign |
|
./pkg/mom_vecinv/mom_vi_v_grad_ke.F |
29 |
MOM_VI_V_GRAD_KE |
INTEGER I,J |
|
./pkg/mom_vecinv/mom_vi_v_grad_ke.F |
32 |
MOM_VI_V_GRAD_KE |
DO I=1-Olx,sNx+Olx |
|
./pkg/mom_vecinv/mom_vi_v_grad_ke.F |
33 |
MOM_VI_V_GRAD_KE |
dKEdy(I,J)=-_recip_dyC(i,j,bi,bj)*(KE(i,j)-KE(i,j-1)) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
103 |
MOM_VI_V_VERTSHEAR |
vZp=(mask_Kp1*vFld(I,J,Kp1,bi,bj)-vFld(I,J,K,bi,bj))*rkSign |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
123 |
MOM_VI_V_VERTSHEAR |
vShearTerm(I,J)=-0.5* |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
130 |
MOM_VI_V_VERTSHEAR |
vShearTerm(I,J)=-0.5*(wBarYp*vZp+wBarYm*vZm) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
31 |
MOM_VI_V_VERTSHEAR |
INTEGER I,J,Kp1,Km1 |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
57 |
MOM_VI_V_VERTSHEAR |
DO I=1-Olx,sNx+Olx |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
69 |
MOM_VI_V_VERTSHEAR |
& wFld(I,J,K,bi,bj)*rA(i,j,bi,bj)*maskC(i,j,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
70 |
MOM_VI_V_VERTSHEAR |
& +wFld(I,J-1,K,bi,bj)*rA(i,j-1,bi,bj)*maskC(i,j-1,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
76 |
MOM_VI_V_VERTSHEAR |
& wFld(I,J,Kp1,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
77 |
MOM_VI_V_VERTSHEAR |
& +wFld(I,J-1,Kp1,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
83 |
MOM_VI_V_VERTSHEAR |
& wFld(I,J,K,bi,bj)*maskC(i,j,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
84 |
MOM_VI_V_VERTSHEAR |
& +wFld(I,J-1,K,bi,bj)*maskC(i,j-1,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
89 |
MOM_VI_V_VERTSHEAR |
& wFld(I,J,Kp1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
90 |
MOM_VI_V_VERTSHEAR |
& +wFld(I,J-1,Kp1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
96 |
MOM_VI_V_VERTSHEAR |
vZm=(vFld(I,J,K,bi,bj)-mask_Km1*vFld(I,J,Km1,bi,bj))*rkSign |
|
./pkg/monitor/mon_advcfl.F |
33 |
MON_ADVCFL |
INTEGER bi,bj,I,J,K |
|
./pkg/monitor/mon_advcfl.F |
42 |
MON_ADVCFL |
DO I=1,sNx |
|
./pkg/monitor/mon_advcfl.F |
43 |
MON_ADVCFL |
tmpVal=abs(U(I,J,K,bi,bj))*rDx(I,J,BI,BJ)*dT |
|
./pkg/monitor/mon_advcflw.F |
33 |
MON_ADVCFLW |
INTEGER bi,bj,I,J,K |
|
./pkg/monitor/mon_advcflw.F |
42 |
MON_ADVCFLW |
DO I=1,sNx |
|
./pkg/monitor/mon_advcflw.F |
43 |
MON_ADVCFLW |
tmpVal=abs(W(I,J,K,bi,bj))*rDz(K)*dT |
|
./pkg/monitor/mon_advcflw2.F |
35 |
MON_ADVCFLW2 |
INTEGER bi,bj,I,J,K |
|
./pkg/monitor/mon_advcflw2.F |
44 |
MON_ADVCFLW2 |
DO I=1,sNx |
|
./pkg/monitor/mon_advcflw2.F |
45 |
MON_ADVCFLW2 |
tmpVal=abs(W(I,J,K,bi,bj))*dT |
|
./pkg/monitor/mon_advcflw2.F |
46 |
MON_ADVCFLW2 |
& *max( rDrF(K)*rHfac(I,J,K,bi,bj), |
|
./pkg/monitor/mon_advcflw2.F |
47 |
MON_ADVCFLW2 |
& rDrF(K-1)*rHfac(I,J,K-1,bi,bj) ) |
|
./pkg/monitor/mon_stats_rl.F |
135 |
MON_STATS_RL |
DO I=1,sNx |
|
./pkg/monitor/mon_stats_rl.F |
136 |
MON_STATS_RL |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
137 |
MON_STATS_RL |
IF (arrMask(I,J,K,bi,bj).NE.0.) THEN |
|
./pkg/monitor/mon_stats_rl.F |
138 |
MON_STATS_RL |
tmpVol=arrArea(I,J,bi,bj)*arrhFac(I,J,K,bi,bj)*arrDr(K) |
|
./pkg/monitor/mon_stats_rl.F |
139 |
MON_STATS_RL |
& *arrMask(I,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
35 |
MON_STATS_RL |
INTEGER bi,bj,I,J,K |
|
./pkg/monitor/mon_stats_rl.F |
69 |
MON_STATS_RL |
DO I=1,sNx |
|
./pkg/monitor/mon_stats_rl.F |
70 |
MON_STATS_RL |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
71 |
MON_STATS_RL |
IF (arrMask(I,J,K,bi,bj).NE.0. .AND. noPnts) THEN |
|
./pkg/monitor/mon_stats_rl.F |
76 |
MON_STATS_RL |
IF (arrMask(I,J,K,bi,bj).NE.0.) THEN |
|
./pkg/monitor/mon_stats_rl.F |
81 |
MON_STATS_RL |
& (arr(I+1,J,K,bi,bj)-tmpVal)*arrMask(I+1,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
82 |
MON_STATS_RL |
& +(arr(I-1,J,K,bi,bj)-tmpVal)*arrMask(I-1,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
83 |
MON_STATS_RL |
& +(arr(I,J+1,K,bi,bj)-tmpVal)*arrMask(I,J+1,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
84 |
MON_STATS_RL |
& +(arr(I,J-1,K,bi,bj)-tmpVal)*arrMask(I,J-1,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
87 |
MON_STATS_RL |
tmpVol = arrArea(I,J,bi,bj)*arrhFac(I,J,K,bi,bj)*arrDr(K) |
|
./pkg/monitor/mon_stats_rl.F |
88 |
MON_STATS_RL |
& *arrMask(I,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rs.F |
102 |
MON_STATS_RS |
DO I=1,sNx |
|
./pkg/monitor/mon_stats_rs.F |
103 |
MON_STATS_RS |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rs.F |
32 |
MON_STATS_RS |
INTEGER bi,bj,I,J,K |
|
./pkg/monitor/mon_stats_rs.F |
55 |
MON_STATS_RS |
DO I=1,sNx |
|
./pkg/monitor/mon_stats_rs.F |
56 |
MON_STATS_RS |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/my82/my82_calc.F |
107 |
MY82_CALC |
SH(I,J,K) = SHtmp |
|
./pkg/my82/my82_calc.F |
108 |
MY82_CALC |
SM(I,J,K) = SHtmp*(beta1-beta2*RiFlux)/(beta3-beta4*RiFlux) |
|
./pkg/my82/my82_calc.F |
111 |
MY82_CALC |
& b1*(SH(I,J,K)*GH(I,J) + SM(I,J,K)*GM(I,J)) ) |
|
./pkg/my82/my82_calc.F |
112 |
MY82_CALC |
tke(I,J,K) = sqrt(tkesquare) |
|
./pkg/my82/my82_calc.F |
125 |
MY82_CALC |
DO I=iMin,iMax |
|
./pkg/my82/my82_calc.F |
126 |
MY82_CALC |
GH(I,J) = 0. _d 0 |
|
./pkg/my82/my82_calc.F |
127 |
MY82_CALC |
GM(I,J) = 0. _d 0 |
|
./pkg/my82/my82_calc.F |
136 |
MY82_CALC |
DO I=iMin,iMax |
|
./pkg/my82/my82_calc.F |
137 |
MY82_CALC |
GM(I,J) = GM(I,J) + tke(I,J,K)*rF(K) |
|
./pkg/my82/my82_calc.F |
138 |
MY82_CALC |
GH(I,J) = GH(I,J) + tke(I,J,K) |
|
./pkg/my82/my82_calc.F |
145 |
MY82_CALC |
DO I=iMin,iMax |
|
./pkg/my82/my82_calc.F |
146 |
MY82_CALC |
IF ( GH(I,J) .EQ. 0. _d 0 ) THEN |
|
./pkg/my82/my82_calc.F |
147 |
MY82_CALC |
MYhbl(I,J,bi,bj) = 0. _d 0 |
|
./pkg/my82/my82_calc.F |
149 |
MY82_CALC |
MYhbl(I,J,bi,bj) = -GM(I,J)/GH(I,J)*MYhblScale |
|
./pkg/my82/my82_calc.F |
157 |
MY82_CALC |
DO I=iMin,iMax |
|
./pkg/my82/my82_calc.F |
158 |
MY82_CALC |
tkel = MYhbl(I,J,bi,bj)*tke(I,J,K) |
|
./pkg/my82/my82_calc.F |
160 |
MY82_CALC |
MYviscAr(I,J,K,bi,bj) = MYhbl(I,J,bi,bj)*tkel*SM(I,J,K) |
|
./pkg/my82/my82_calc.F |
161 |
MY82_CALC |
MYdiffKr(I,J,K,bi,bj) = MYhbl(I,J,bi,bj)*tkel*SH(I,J,K) |
|
./pkg/my82/my82_calc.F |
163 |
MY82_CALC |
MYviscAr(I,J,K,bi,bj) = MAX(MYviscAr(I,J,K,bi,bj), |
|
./pkg/my82/my82_calc.F |
165 |
MY82_CALC |
MYdiffKr(I,J,K,bi,bj) = MAX(MYdiffKr(I,J,K,bi,bj), |
|
./pkg/my82/my82_calc.F |
168 |
MY82_CALC |
MYviscAr(I,J,K,bi,bj) = MIN(MYviscAr(I,J,K,bi,bj),MYviscMax) |
|
./pkg/my82/my82_calc.F |
169 |
MY82_CALC |
& * maskC(I,J,K,bi,bj) |
|
./pkg/my82/my82_calc.F |
170 |
MY82_CALC |
MYdiffKr(I,J,K,bi,bj) = MIN(MYdiffKr(I,J,K,bi,bj),MYdiffMax) |
|
./pkg/my82/my82_calc.F |
171 |
MY82_CALC |
& * maskC(I,J,K,bi,bj) |
|
./pkg/my82/my82_calc.F |
58 |
MY82_CALC |
INTEGER I, J, K |
|
./pkg/my82/my82_calc.F |
76 |
MY82_CALC |
DO I=1-Olx,sNx+Olx |
|
./pkg/my82/my82_calc.F |
77 |
MY82_CALC |
GH(I,J) = 0. _d 0 |
|
./pkg/my82/my82_calc.F |
78 |
MY82_CALC |
GM(I,J) = 0. _d 0 |
|
./pkg/my82/my82_calc.F |
83 |
MY82_CALC |
DO I=1-Olx,sNx+Olx |
|
./pkg/my82/my82_calc.F |
84 |
MY82_CALC |
SH(I,J,K) = 0. _d 0 |
|
./pkg/my82/my82_calc.F |
85 |
MY82_CALC |
SM(I,J,K) = 0. _d 0 |
|
./pkg/my82/my82_calc.F |
86 |
MY82_CALC |
tke(I,J,K) = 0. _d 0 |
|
./pkg/my82/my82_calc.F |
98 |
MY82_CALC |
DO I=iMin,iMax |
|
./pkg/my82/my82_calc.F |
99 |
MY82_CALC |
RiTmp = MIN(RiNumber(I,J),RiMax) |
|
./pkg/my82/my82_ri_number.F |
103 |
MY82_RI_NUMBER |
DO I = iMin, iMax |
|
./pkg/my82/my82_ri_number.F |
104 |
MY82_RI_NUMBER |
tempu= .5 _d 0*( uVel(I,J,Km1,bi,bj)+uVel(I+1,J,Km1,bi,bj) |
|
./pkg/my82/my82_ri_number.F |
105 |
MY82_RI_NUMBER |
& - (uVel(I,J,K ,bi,bj)+uVel(I+1,J,K ,bi,bj)) ) |
|
./pkg/my82/my82_ri_number.F |
107 |
MY82_RI_NUMBER |
tempv= .5 _d 0*( vVel(I,J,Km1,bi,bj)+vVel(I,J+1,Km1,bi,bj) |
|
./pkg/my82/my82_ri_number.F |
108 |
MY82_RI_NUMBER |
& - (vVel(I,J,K ,bi,bj)+vVel(I,J+1,K ,bi,bj)) ) |
|
./pkg/my82/my82_ri_number.F |
110 |
MY82_RI_NUMBER |
vertShear(I,J) = tempu*tempu+tempv*tempv |
|
./pkg/my82/my82_ri_number.F |
115 |
MY82_RI_NUMBER |
buoyFreq(I,J) = gravity*mass2rUnit * |
|
./pkg/my82/my82_ri_number.F |
116 |
MY82_RI_NUMBER |
& (rhoKm1(I,J) - rhoK(I,J))*recip_drC(K) |
|
./pkg/my82/my82_ri_number.F |
121 |
MY82_RI_NUMBER |
RiNumber(I,J) = -buoyFreq(I,J)/max(vertShear(I,J),epsilon) |
|
./pkg/my82/my82_ri_number.F |
129 |
MY82_RI_NUMBER |
DO I=iMin,iMax |
|
./pkg/my82/my82_ri_number.F |
130 |
MY82_RI_NUMBER |
RiTmp(I,J) = RiNumber(I,J) |
|
./pkg/my82/my82_ri_number.F |
134 |
MY82_RI_NUMBER |
DO I=1-Olx+1,sNx+Olx-1 |
|
./pkg/my82/my82_ri_number.F |
135 |
MY82_RI_NUMBER |
RiNumber(I,J) = p5*RiTmp(I,J) |
|
./pkg/my82/my82_ri_number.F |
136 |
MY82_RI_NUMBER |
& + p125*RiTmp(I-1,J) + p125*RiTmp(I+1,J) |
|
./pkg/my82/my82_ri_number.F |
137 |
MY82_RI_NUMBER |
& + p125*RiTmp(I,J-1) + p125*RiTmp(I,J+1) |
|
./pkg/my82/my82_ri_number.F |
60 |
MY82_RI_NUMBER |
INTEGER I,J,Km1 |
|
./pkg/obcs/obcs_apply_ptracer.F |
116 |
OBCS_APPLY_PTRACER |
DO I = Iobc, Iobc+Olx |
|
./pkg/obcs/obcs_apply_seaice.F |
137 |
OBCS_APPLY_SEAICE |
Jobc = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
176 |
OBCS_APPLY_SEAICE |
Jobc = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
56 |
OBCS_APPLY_SEAICE |
Jobc = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
75 |
OBCS_APPLY_SEAICE |
Jobc = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_apply_sloc.F |
28 |
OBCS_APPLY_SLOC |
INTEGER I,J,I_obc,J_obc |
|
./pkg/obcs/obcs_apply_sloc.F |
32 |
OBCS_APPLY_SLOC |
DO I=1-Olx,sNx+Olx |
|
./pkg/obcs/obcs_apply_sloc.F |
35 |
OBCS_APPLY_SLOC |
J_obc = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_apply_sloc.F |
37 |
OBCS_APPLY_SLOC |
obc_mask = _maskS(I,J_obc,K,bi,bj) |
|
./pkg/obcs/obcs_apply_sloc.F |
39 |
OBCS_APPLY_SLOC |
sFld(I,J)=OBNs(I,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_sloc.F |
45 |
OBCS_APPLY_SLOC |
J_obc = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_apply_sloc.F |
47 |
OBCS_APPLY_SLOC |
obc_mask = _maskS(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_sloc.F |
49 |
OBCS_APPLY_SLOC |
sFld(I,J)=OBSs(I,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_sloc.F |
62 |
OBCS_APPLY_SLOC |
DO I = I_obc, I_obc+Olx |
|
./pkg/obcs/obcs_apply_sloc.F |
63 |
OBCS_APPLY_SLOC |
sFld(I,J)=OBEs(J,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_sloc.F |
72 |
OBCS_APPLY_SLOC |
DO I = I_obc-Olx, I_obc |
|
./pkg/obcs/obcs_apply_sloc.F |
73 |
OBCS_APPLY_SLOC |
sFld(I,J)=OBWs(J,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_tloc.F |
28 |
OBCS_APPLY_TLOC |
INTEGER I,J,I_obc,J_obc |
|
./pkg/obcs/obcs_apply_tloc.F |
32 |
OBCS_APPLY_TLOC |
DO I=1-Olx,sNx+Olx |
|
./pkg/obcs/obcs_apply_tloc.F |
35 |
OBCS_APPLY_TLOC |
J_obc = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_apply_tloc.F |
37 |
OBCS_APPLY_TLOC |
obc_mask = _maskS(I,J_obc,K,bi,bj) |
|
./pkg/obcs/obcs_apply_tloc.F |
39 |
OBCS_APPLY_TLOC |
tFld(I,J)=OBNt(I,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_tloc.F |
45 |
OBCS_APPLY_TLOC |
J_obc = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_apply_tloc.F |
47 |
OBCS_APPLY_TLOC |
obc_mask = _maskS(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_tloc.F |
49 |
OBCS_APPLY_TLOC |
tFld(I,J)=OBSt(I,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_tloc.F |
62 |
OBCS_APPLY_TLOC |
DO I = I_obc, I_obc+Olx |
|
./pkg/obcs/obcs_apply_tloc.F |
63 |
OBCS_APPLY_TLOC |
tFld(I,J)=OBEt(J,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_tloc.F |
72 |
OBCS_APPLY_TLOC |
DO I = I_obc-Olx, I_obc |
|
./pkg/obcs/obcs_apply_tloc.F |
73 |
OBCS_APPLY_TLOC |
tFld(I,J)=OBWt(J,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_uvice.F |
101 |
OBCS_APPLY_UVICE |
uFld(I,OB_Js(I,bi,bj),bi,bj)=OBSuice(I,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
102 |
OBCS_APPLY_UVICE |
& * _maskW(I,OB_Js(I,bi,bj),K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
104 |
OBCS_APPLY_UVICE |
if ( _maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_apply_uvice.F |
105 |
OBCS_APPLY_UVICE |
& _maskS(I,OB_Js(I,bi,bj)+3,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_apply_uvice.F |
106 |
OBCS_APPLY_UVICE |
& vFld(I,OB_Js(I,bi,bj)+2,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_uvice.F |
107 |
OBCS_APPLY_UVICE |
& ( vFld(I,OB_Js(I,bi,bj)+1,bi,bj) + |
|
./pkg/obcs/obcs_apply_uvice.F |
108 |
OBCS_APPLY_UVICE |
& vFld(I,OB_Js(I,bi,bj)+3,bi,bj) ) * |
|
./pkg/obcs/obcs_apply_uvice.F |
109 |
OBCS_APPLY_UVICE |
& _maskS(I,OB_Js(I,bi,bj)+2,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
112 |
OBCS_APPLY_UVICE |
if ( _maskW(I,OB_Js(I,bi,bj) ,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_apply_uvice.F |
113 |
OBCS_APPLY_UVICE |
& _maskW(I,OB_Js(I,bi,bj)+2,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_apply_uvice.F |
114 |
OBCS_APPLY_UVICE |
& uFld(I,OB_Js(I,bi,bj)+1,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_uvice.F |
115 |
OBCS_APPLY_UVICE |
& ( uFld(I,OB_Js(I,bi,bj) ,bi,bj) + |
|
./pkg/obcs/obcs_apply_uvice.F |
116 |
OBCS_APPLY_UVICE |
& uFld(I,OB_Js(I,bi,bj)+2,bi,bj) ) * |
|
./pkg/obcs/obcs_apply_uvice.F |
117 |
OBCS_APPLY_UVICE |
& _maskW(I,OB_Js(I,bi,bj)+1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
29 |
OBCS_APPLY_UVICE |
INTEGER I,J,K,bi,bj |
|
./pkg/obcs/obcs_apply_uvice.F |
38 |
OBCS_APPLY_UVICE |
DO I=1-Olx,sNx+Olx |
|
./pkg/obcs/obcs_apply_uvice.F |
40 |
OBCS_APPLY_UVICE |
IF (OB_Jn(I,bi,bj).NE.0) THEN |
|
./pkg/obcs/obcs_apply_uvice.F |
42 |
OBCS_APPLY_UVICE |
uFld(I,OB_Jn(I,bi,bj) ,bi,bj) = |
|
./pkg/obcs/obcs_apply_uvice.F |
43 |
OBCS_APPLY_UVICE |
& _maskW(I,OB_Jn(I,bi,bj),K,bi,bj) * |
|
./pkg/obcs/obcs_apply_uvice.F |
44 |
OBCS_APPLY_UVICE |
& uFld(I,OB_Jn(I,bi,bj)-1,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
45 |
OBCS_APPLY_UVICE |
vFld(I,OB_Jn(I,bi,bj) ,bi,bj) = |
|
./pkg/obcs/obcs_apply_uvice.F |
46 |
OBCS_APPLY_UVICE |
& _maskS(I,OB_Jn(I,bi,bj),K,bi,bj) * |
|
./pkg/obcs/obcs_apply_uvice.F |
47 |
OBCS_APPLY_UVICE |
& vFld(I,OB_Jn(I,bi,bj)-1,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
50 |
OBCS_APPLY_UVICE |
vFld(I,OB_Jn(I,bi,bj),bi,bj) = |
|
./pkg/obcs/obcs_apply_uvice.F |
51 |
OBCS_APPLY_UVICE |
& max(OBNvice(I,bi,bj),vFld(I,OB_Jn(I,bi,bj),bi,bj)) * |
|
./pkg/obcs/obcs_apply_uvice.F |
52 |
OBCS_APPLY_UVICE |
& _maskS(I,OB_Jn(I,bi,bj),K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
54 |
OBCS_APPLY_UVICE |
vFld(I,OB_Jn(I,bi,bj),bi,bj) = OBNvice(I,bi,bj) * |
|
./pkg/obcs/obcs_apply_uvice.F |
55 |
OBCS_APPLY_UVICE |
& _maskS(I,OB_Jn(I,bi,bj),K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
57 |
OBCS_APPLY_UVICE |
uFld(I,OB_Jn(I,bi,bj),bi,bj) = OBNuice(I,bi,bj) * |
|
./pkg/obcs/obcs_apply_uvice.F |
58 |
OBCS_APPLY_UVICE |
& _maskW(I,OB_Jn(I,bi,bj),K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
60 |
OBCS_APPLY_UVICE |
if ( _maskS(I,OB_Jn(I,bi,bj) ,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_apply_uvice.F |
61 |
OBCS_APPLY_UVICE |
& _maskS(I,OB_Jn(I,bi,bj)-2,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_apply_uvice.F |
62 |
OBCS_APPLY_UVICE |
& vFld(I,OB_Jn(I,bi,bj)-1,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_uvice.F |
63 |
OBCS_APPLY_UVICE |
& ( vFld(I,OB_Jn(I,bi,bj) ,bi,bj) + |
|
./pkg/obcs/obcs_apply_uvice.F |
64 |
OBCS_APPLY_UVICE |
& vFld(I,OB_Jn(I,bi,bj)-2,bi,bj) ) * |
|
./pkg/obcs/obcs_apply_uvice.F |
65 |
OBCS_APPLY_UVICE |
& _maskS(I,OB_Jn(I,bi,bj)-1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
68 |
OBCS_APPLY_UVICE |
if ( _maskW(I,OB_Jn(I,bi,bj) ,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_apply_uvice.F |
69 |
OBCS_APPLY_UVICE |
& _maskW(I,OB_Jn(I,bi,bj)-2,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_apply_uvice.F |
70 |
OBCS_APPLY_UVICE |
& uFld(I,OB_Jn(I,bi,bj)-1,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_uvice.F |
71 |
OBCS_APPLY_UVICE |
& ( uFld(I,OB_Jn(I,bi,bj) ,bi,bj) + |
|
./pkg/obcs/obcs_apply_uvice.F |
72 |
OBCS_APPLY_UVICE |
& uFld(I,OB_Jn(I,bi,bj)-2,bi,bj) ) * |
|
./pkg/obcs/obcs_apply_uvice.F |
73 |
OBCS_APPLY_UVICE |
& _maskW(I,OB_Jn(I,bi,bj)-1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
82 |
OBCS_APPLY_UVICE |
DO I=1-Olx,sNx+Olx |
|
./pkg/obcs/obcs_apply_uvice.F |
84 |
OBCS_APPLY_UVICE |
IF (OB_Js(I,bi,bj).NE.0) THEN |
|
./pkg/obcs/obcs_apply_uvice.F |
86 |
OBCS_APPLY_UVICE |
uFld(I,OB_Js(I,bi,bj)+1,bi,bj) = |
|
./pkg/obcs/obcs_apply_uvice.F |
87 |
OBCS_APPLY_UVICE |
& _maskW(I,OB_Js(I,bi,bj)+1,K,bi,bj) * |
|
./pkg/obcs/obcs_apply_uvice.F |
88 |
OBCS_APPLY_UVICE |
& uFld(I,OB_Js(I,bi,bj)+2,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
89 |
OBCS_APPLY_UVICE |
vFld(I,OB_Js(I,bi,bj)+1,bi,bj) = |
|
./pkg/obcs/obcs_apply_uvice.F |
90 |
OBCS_APPLY_UVICE |
& _maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj) * |
|
./pkg/obcs/obcs_apply_uvice.F |
91 |
OBCS_APPLY_UVICE |
& vFld(I,OB_Js(I,bi,bj)+2,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
94 |
OBCS_APPLY_UVICE |
vFld(I,OB_Js(I,bi,bj)+1,bi,bj)= |
|
./pkg/obcs/obcs_apply_uvice.F |
95 |
OBCS_APPLY_UVICE |
& min(OBSvice(I,bi,bj),vFld(I,OB_Js(I,bi,bj)+1,bi,bj)) |
|
./pkg/obcs/obcs_apply_uvice.F |
96 |
OBCS_APPLY_UVICE |
& * _maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
98 |
OBCS_APPLY_UVICE |
vFld(I,OB_Js(I,bi,bj)+1,bi,bj)=OBSvice(I,bi,bj) |
|
./pkg/obcs/obcs_apply_uvice.F |
99 |
OBCS_APPLY_UVICE |
& * _maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
28 |
OBCS_APPLY_W |
INTEGER I,J,I_obc,J_obc |
|
./pkg/obcs/obcs_apply_w.F |
38 |
OBCS_APPLY_W |
DO I=1-Olx,sNx+Olx |
|
./pkg/obcs/obcs_apply_w.F |
40 |
OBCS_APPLY_W |
J_obc=OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
42 |
OBCS_APPLY_W |
obc_mask = _maskS(I,J_obc,K,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
43 |
OBCS_APPLY_W |
wFld(I,J_obc,K,bi,bj)=OBNw(I,K,bi,bj) * obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
48 |
OBCS_APPLY_W |
DO I=1-Olx,sNx+Olx |
|
./pkg/obcs/obcs_apply_w.F |
50 |
OBCS_APPLY_W |
J_obc=OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
52 |
OBCS_APPLY_W |
obc_mask = _maskS(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
53 |
OBCS_APPLY_W |
wFld(I,J_obc,K,bi,bj)=OBSw(I,K,bi,bj) * obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
84 |
OBCS_APPLY_W |
DO I=1-Olx,sNx+Olx |
|
./pkg/obcs/obcs_apply_w.F |
86 |
OBCS_APPLY_W |
J_obc = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
87 |
OBCS_APPLY_W |
IF (J_obc.NE.0) wFld(I,J_obc,K,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_apply_w.F |
89 |
OBCS_APPLY_W |
J_obc = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
90 |
OBCS_APPLY_W |
IF (J_obc.NE.0) wFld(I,J_obc,K,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_calc.F |
198 |
OBCS_CALC |
DO I=1-Olx,sNx+Olx |
|
./pkg/obcs/obcs_calc.F |
199 |
OBCS_CALC |
J_obc=OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
201 |
OBCS_CALC |
OBNv(I,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
202 |
OBCS_CALC |
OBNu(I,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
203 |
OBCS_CALC |
OBNt(I,K,bi,bj)=tRef(K) |
|
./pkg/obcs/obcs_calc.F |
204 |
OBCS_CALC |
OBNs(I,K,bi,bj)=sRef(K) |
|
./pkg/obcs/obcs_calc.F |
206 |
OBCS_CALC |
OBNw(I,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
209 |
OBCS_CALC |
OBNeta(I,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
233 |
OBCS_CALC |
DO I=1-Olx,sNx+Olx |
|
./pkg/obcs/obcs_calc.F |
234 |
OBCS_CALC |
J_obc=OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
236 |
OBCS_CALC |
OBSu(I,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
237 |
OBCS_CALC |
OBSv(I,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
238 |
OBCS_CALC |
OBSt(I,K,bi,bj)=tRef(K) |
|
./pkg/obcs/obcs_calc.F |
239 |
OBCS_CALC |
OBSs(I,K,bi,bj)=sRef(K) |
|
./pkg/obcs/obcs_calc.F |
241 |
OBCS_CALC |
OBSw(I,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
244 |
OBCS_CALC |
OBSeta(I,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
347 |
OBCS_CALC |
DO I=1-Olx,sNx+Olx |
|
./pkg/obcs/obcs_calc.F |
348 |
OBCS_CALC |
J_obc=OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
350 |
OBCS_CALC |
OBNptr(I,K,bi,bj,iTracer) = |
|
./pkg/obcs/obcs_calc.F |
351 |
OBCS_CALC |
& pTracer(I,J_obc-1,K,bi,bj,iTracer) |
|
./pkg/obcs/obcs_calc.F |
352 |
OBCS_CALC |
& *_maskS(I,J_obc,K,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
379 |
OBCS_CALC |
DO I=1-Olx,sNx+Olx |
|
./pkg/obcs/obcs_calc.F |
380 |
OBCS_CALC |
J_obc=OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
382 |
OBCS_CALC |
OBSptr(I,K,bi,bj,iTracer) = |
|
./pkg/obcs/obcs_calc.F |
383 |
OBCS_CALC |
& pTracer(I,J_obc+1,K,bi,bj,iTracer) |
|
./pkg/obcs/obcs_calc.F |
384 |
OBCS_CALC |
& *_maskS(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
517 |
OBCS_CALC |
DO I=1,sNx |
|
./pkg/obcs/obcs_calc.F |
518 |
OBCS_CALC |
J_obc=OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
522 |
OBCS_CALC |
Tr_T = Tr_T + Ar * OBNv(I,K,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
52 |
OBCS_CALC |
INTEGER I, J, K, I_obc, J_obc |
|
./pkg/obcs/obcs_calc.F |
535 |
OBCS_CALC |
DO I=1-Olx,sNx+Olx |
|
./pkg/obcs/obcs_calc.F |
536 |
OBCS_CALC |
J_obc=OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
539 |
OBCS_CALC |
OBNv(I,K,bi,bj) = OBNv(I,K,bi,bj) + Tr_T |
|
./pkg/obcs/obcs_calc.F |
554 |
OBCS_CALC |
DO I=1,sNx |
|
./pkg/obcs/obcs_calc.F |
555 |
OBCS_CALC |
J_obc=OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
559 |
OBCS_CALC |
Tr_T = Tr_T + Ar * OBSv(I,K,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
572 |
OBCS_CALC |
DO I=1-Olx,sNx+Olx |
|
./pkg/obcs/obcs_calc.F |
573 |
OBCS_CALC |
J_obc=OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
576 |
OBCS_CALC |
OBSv(I,K,bi,bj) = OBSv(I,K,bi,bj) + Tr_T |
|
./pkg/obcs/obcs_calc_stevens.F |
146 |
OBCS_CALC_STEVENS |
I=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
147 |
OBCS_CALC_STEVENS |
IF (I.NE.0) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
148 |
OBCS_CALC_STEVENS |
uMerBar(J) = uMerBar(J) + uVel(I-1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
149 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
150 |
OBCS_CALC_STEVENS |
drFBar(J) = drFBar(J) + drF(K)* _hFacW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
160 |
OBCS_CALC_STEVENS |
I=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
161 |
OBCS_CALC_STEVENS |
IF (I.NE.0) uMerPri(J,K) = (uVel(I-1,J,K,bi,bj)-uMerBar(J)) |
|
./pkg/obcs/obcs_calc_stevens.F |
162 |
OBCS_CALC_STEVENS |
& * _maskW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
172 |
OBCS_CALC_STEVENS |
I=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
173 |
OBCS_CALC_STEVENS |
IF (I.NE.0) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
175 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
176 |
OBCS_CALC_STEVENS |
drFBar(J) = drFBar(J) + drF(K)* _hFacW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
188 |
OBCS_CALC_STEVENS |
I=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
189 |
OBCS_CALC_STEVENS |
IF (I.NE.0) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
191 |
OBCS_CALC_STEVENS |
& * _maskW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
203 |
OBCS_CALC_STEVENS |
I=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
204 |
OBCS_CALC_STEVENS |
IF (I.NE.0) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
205 |
OBCS_CALC_STEVENS |
dTracSpace = (theta(I-1,J,K,bi,bj)-theta(I-2,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
206 |
OBCS_CALC_STEVENS |
& * _maskW(I-1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
209 |
OBCS_CALC_STEVENS |
cfl = 0.5 _d 0 * _dxC(I-1,J,bi,bj)/deltaTmom |
|
./pkg/obcs/obcs_calc_stevens.F |
212 |
OBCS_CALC_STEVENS |
& MAX( 0.D0, -cfl*gtNm(I-1,J,K,bi,bj,1)/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
214 |
OBCS_CALC_STEVENS |
& MAX( 0.D0, -cfl*gtNm1(I-1,J,K,bi,bj)/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
222 |
OBCS_CALC_STEVENS |
gFac = ABS(MIN(SIGN(1.D0,uVel(I,J,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
223 |
OBCS_CALC_STEVENS |
OBEt(J,K,bi,bj) = theta(I,J,K,bi,bj) + dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
224 |
OBCS_CALC_STEVENS |
& * _maskW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
226 |
OBCS_CALC_STEVENS |
& - ( aFac*MAX(0.D0,uVel(I,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
227 |
OBCS_CALC_STEVENS |
& *(theta(I,J,K,bi,bj)-theta(I-1,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
228 |
OBCS_CALC_STEVENS |
& * _recip_dxC(I,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
229 |
OBCS_CALC_STEVENS |
& - gFac * gammat * (theta(I,J,K,bi,bj)-OBEt(J,K,bi,bj)) ) |
|
./pkg/obcs/obcs_calc_stevens.F |
236 |
OBCS_CALC_STEVENS |
I=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
237 |
OBCS_CALC_STEVENS |
IF (I.NE.0) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
238 |
OBCS_CALC_STEVENS |
dTracSpace = (salt(I-1,J,K,bi,bj)-salt(I-2,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
239 |
OBCS_CALC_STEVENS |
& * _maskW(I-1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
242 |
OBCS_CALC_STEVENS |
cfl = 0.5 _d 0 * _dxC(I-1,J,bi,bj)/deltaTmom |
|
./pkg/obcs/obcs_calc_stevens.F |
245 |
OBCS_CALC_STEVENS |
& MAX( 0.D0, -cfl*gsNm(I-1,J,K,bi,bj,1)/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
247 |
OBCS_CALC_STEVENS |
& MAX( 0.D0, -cfl*gsNm1(I-1,J,K,bi,bj)/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
255 |
OBCS_CALC_STEVENS |
gFac = ABS(MIN(SIGN(1.D0,uVel(I,J,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
256 |
OBCS_CALC_STEVENS |
OBEs(J,K,bi,bj) = salt(I,J,K,bi,bj) + dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
257 |
OBCS_CALC_STEVENS |
& * _maskW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
259 |
OBCS_CALC_STEVENS |
& - ( aFac*MAX(0.D0,uVel(I,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
260 |
OBCS_CALC_STEVENS |
& *(salt(I,J,K,bi,bj)-salt(I-1,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
261 |
OBCS_CALC_STEVENS |
& * _recip_dxC(I,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
262 |
OBCS_CALC_STEVENS |
& - gFac * gammas * (salt(I,J,K,bi,bj)-OBEs(J,K,bi,bj)) ) |
|
./pkg/obcs/obcs_calc_stevens.F |
293 |
OBCS_CALC_STEVENS |
I=OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
294 |
OBCS_CALC_STEVENS |
IF (I.NE.0) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
295 |
OBCS_CALC_STEVENS |
uMerBar(J) = uMerBar(J) + uVel(I+2,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
296 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
297 |
OBCS_CALC_STEVENS |
drFBar(J) = drFBar(J) + drF(K)* _hFacW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
307 |
OBCS_CALC_STEVENS |
I=OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
308 |
OBCS_CALC_STEVENS |
IF (I.NE.0) uMerPri(J,K) = (uVel(I+2,J,K,bi,bj)-uMerBar(J)) |
|
./pkg/obcs/obcs_calc_stevens.F |
309 |
OBCS_CALC_STEVENS |
& * _maskW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
319 |
OBCS_CALC_STEVENS |
I=OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
320 |
OBCS_CALC_STEVENS |
IF (I.NE.0) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
322 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
323 |
OBCS_CALC_STEVENS |
drFBar(J) = drFBar(J) + drF(K)* _hFacW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
335 |
OBCS_CALC_STEVENS |
I=OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
336 |
OBCS_CALC_STEVENS |
IF (I.NE.0) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
338 |
OBCS_CALC_STEVENS |
& * _maskW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
350 |
OBCS_CALC_STEVENS |
I=OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
351 |
OBCS_CALC_STEVENS |
IF (I.NE.0) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
352 |
OBCS_CALC_STEVENS |
dTracSpace = (theta(I+2,J,K,bi,bj)-theta(I+1,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
353 |
OBCS_CALC_STEVENS |
& * _maskW(I+2,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
356 |
OBCS_CALC_STEVENS |
cfl = - 0.5 _d 0 * _dxC(I+2,J,bi,bj)/deltaTmom |
|
./pkg/obcs/obcs_calc_stevens.F |
359 |
OBCS_CALC_STEVENS |
& MIN( 0.D0, -cfl*gtNm(I+1,J,K,bi,bj,1)/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
361 |
OBCS_CALC_STEVENS |
& MIN( 0.D0, -cfl*gtNm1(I+1,J,K,bi,bj)/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
369 |
OBCS_CALC_STEVENS |
gFac = ABS(MAX(SIGN(1.D0,uVel(I+1,J,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
370 |
OBCS_CALC_STEVENS |
OBWt(J,K,bi,bj) = theta(I,J,K,bi,bj) + dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
371 |
OBCS_CALC_STEVENS |
& * _maskW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
373 |
OBCS_CALC_STEVENS |
& - ( aFac*MIN(0.D0,uVel(I+1,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
374 |
OBCS_CALC_STEVENS |
& *(theta(I+1,J,K,bi,bj)-theta(I,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
375 |
OBCS_CALC_STEVENS |
& * _recip_dxC(I+1,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
376 |
OBCS_CALC_STEVENS |
& - gFac * gammat * (theta(I,J,K,bi,bj)-OBWt(J,K,bi,bj)) ) |
|
./pkg/obcs/obcs_calc_stevens.F |
383 |
OBCS_CALC_STEVENS |
I=OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
384 |
OBCS_CALC_STEVENS |
IF (I.NE.0) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
385 |
OBCS_CALC_STEVENS |
dTracSpace = (salt(I+2,J,K,bi,bj)-salt(I+1,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
386 |
OBCS_CALC_STEVENS |
& * _maskW(I+2,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
389 |
OBCS_CALC_STEVENS |
cfl = - 0.5 _d 0 * _dxC(I+2,J,bi,bj)/deltaTmom |
|
./pkg/obcs/obcs_calc_stevens.F |
392 |
OBCS_CALC_STEVENS |
& MIN( 0.D0, -cfl*gsNm(I+1,J,K,bi,bj,1)/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
394 |
OBCS_CALC_STEVENS |
& MIN( 0.D0, -cfl*gsNm1(I+1,J,K,bi,bj)/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
402 |
OBCS_CALC_STEVENS |
gFac = ABS(MAX(SIGN(1.D0,uVel(I+1,J,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
403 |
OBCS_CALC_STEVENS |
OBWs(J,K,bi,bj) = salt(I,J,K,bi,bj) + dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
404 |
OBCS_CALC_STEVENS |
& * _maskW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
406 |
OBCS_CALC_STEVENS |
& - ( aFac*MIN(0.D0,uVel(I+1,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
407 |
OBCS_CALC_STEVENS |
& *(salt(I+1,J,K,bi,bj)-salt(I,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
408 |
OBCS_CALC_STEVENS |
& * _recip_dxC(I+1,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
409 |
OBCS_CALC_STEVENS |
& - gFac * gammas * (salt(I,J,K,bi,bj)-OBWs(J,K,bi,bj)) ) |
|
./pkg/obcs/obcs_calc_stevens.F |
433 |
OBCS_CALC_STEVENS |
DO I=1-Olx,sNx+Olx |
|
./pkg/obcs/obcs_calc_stevens.F |
434 |
OBCS_CALC_STEVENS |
J=OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
436 |
OBCS_CALC_STEVENS |
OBNv(I,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
437 |
OBCS_CALC_STEVENS |
OBNu(I,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
438 |
OBCS_CALC_STEVENS |
OBNt(I,K,bi,bj)=tRef(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
439 |
OBCS_CALC_STEVENS |
OBNs(I,K,bi,bj)=sRef(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
441 |
OBCS_CALC_STEVENS |
OBNw(I,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
444 |
OBCS_CALC_STEVENS |
OBNeta(I,bi,bj)=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
469 |
OBCS_CALC_STEVENS |
DO I=1-Olx,sNx+Olx |
|
./pkg/obcs/obcs_calc_stevens.F |
470 |
OBCS_CALC_STEVENS |
J=OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
472 |
OBCS_CALC_STEVENS |
OBSu(I,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
473 |
OBCS_CALC_STEVENS |
OBSv(I,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
474 |
OBCS_CALC_STEVENS |
OBSt(I,K,bi,bj)=tRef(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
475 |
OBCS_CALC_STEVENS |
OBSs(I,K,bi,bj)=sRef(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
477 |
OBCS_CALC_STEVENS |
OBSw(I,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
480 |
OBCS_CALC_STEVENS |
OBSeta(I,bi,bj)=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
607 |
OBCS_CALC_STEVENS |
I=OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
609 |
OBCS_CALC_STEVENS |
& *drF(k)* _hFacW(I,J,K,bi,bj)*dyG(I,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
610 |
OBCS_CALC_STEVENS |
I=OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
612 |
OBCS_CALC_STEVENS |
& *drF(k)* _hFacW(I+1,J,K,bi,bj)*dyG(I+1,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
614 |
OBCS_CALC_STEVENS |
& *drF(k)* _hFacW(I+1,J,K,bi,bj)*dyG(I+1,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
616 |
OBCS_CALC_STEVENS |
& *drF(k)* _hFacW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
89 |
OBCS_CALC_STEVENS |
INTEGER I, J, K |
|
./pkg/obcs/obcs_check_depths.F |
31 |
OBCS_CHECK_DEPTHS |
INTEGER bi, bj, I, J, K, ichanged |
|
./pkg/obcs/obcs_check_depths.F |
43 |
OBCS_CHECK_DEPTHS |
DO I=1,sNx |
|
./pkg/obcs/obcs_check_depths.F |
44 |
OBCS_CHECK_DEPTHS |
J=OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_check_depths.F |
46 |
OBCS_CHECK_DEPTHS |
& ( R_low(I,J,bi,bj) .LT. R_low(I,J-1,bi,bj) ) ) THEN |
|
./pkg/obcs/obcs_check_depths.F |
48 |
OBCS_CHECK_DEPTHS |
R_low(I,J,bi,bj) = R_low(I,J-1,bi,bj) |
|
./pkg/obcs/obcs_check_depths.F |
51 |
OBCS_CHECK_DEPTHS |
& '(i,j,bi,bj) = ', I, J, bi, bj |
|
./pkg/obcs/obcs_check_depths.F |
58 |
OBCS_CHECK_DEPTHS |
DO I=1,sNx |
|
./pkg/obcs/obcs_check_depths.F |
59 |
OBCS_CHECK_DEPTHS |
J=OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_check_depths.F |
61 |
OBCS_CHECK_DEPTHS |
& ( R_low(I,J,bi,bj) .LT. R_low(I,J+1,bi,bj) ) ) THEN |
|
./pkg/obcs/obcs_check_depths.F |
63 |
OBCS_CHECK_DEPTHS |
R_low(I,J,bi,bj) = R_low(I,J+1,bi,bj) |
|
./pkg/obcs/obcs_check_depths.F |
66 |
OBCS_CHECK_DEPTHS |
& '(i,j,bi,bj) = ', I, J, bi, bj |
|
./pkg/obcs/obcs_check_depths.F |
74 |
OBCS_CHECK_DEPTHS |
I = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_check_depths.F |
75 |
OBCS_CHECK_DEPTHS |
IF ( I .NE. 0 .AND. |
|
./pkg/obcs/obcs_check_depths.F |
76 |
OBCS_CHECK_DEPTHS |
& ( R_low(I,J,bi,bj) .LT. R_low(I-1,J,bi,bj) ) ) THEN |
|
./pkg/obcs/obcs_check_depths.F |
78 |
OBCS_CHECK_DEPTHS |
R_low(I,J,bi,bj) = R_low(I-1,J,bi,bj) |
|
./pkg/obcs/obcs_check_depths.F |
81 |
OBCS_CHECK_DEPTHS |
& '(i,j,bi,bj) = ', I, J, bi, bj |
|
./pkg/obcs/obcs_check_depths.F |
90 |
OBCS_CHECK_DEPTHS |
I = OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_check_depths.F |
91 |
OBCS_CHECK_DEPTHS |
IF ( I .NE. 0 .AND. |
|
./pkg/obcs/obcs_check_depths.F |
92 |
OBCS_CHECK_DEPTHS |
& ( R_low(I,J,bi,bj) .LT. R_low(I+1,J,bi,bj) ) ) THEN |
|
./pkg/obcs/obcs_check_depths.F |
94 |
OBCS_CHECK_DEPTHS |
R_low(I,J,bi,bj) = R_low(I+1,J,bi,bj) |
|
./pkg/obcs/obcs_check_depths.F |
97 |
OBCS_CHECK_DEPTHS |
& '(i,j,bi,bj) = ', I, J, bi, bj |
|
./model/src/cg2d.F |
130 |
CG2D |
DO I=1,sNx |
|
./model/src/cg2d.F |
131 |
CG2D |
cg2d_b(I,J,bi,bj) = cg2d_b(I,J,bi,bj)*cg2dNorm |
|
./model/src/cg2d.F |
132 |
CG2D |
rhsMax = MAX(ABS(cg2d_b(I,J,bi,bj)),rhsMax) |
|
./model/src/cg2d.F |
151 |
CG2D |
DO I=1,sNx |
|
./model/src/cg2d.F |
152 |
CG2D |
cg2d_b(I,J,bi,bj) = cg2d_b(I,J,bi,bj)*rhsNorm |
|
./model/src/cg2d.F |
153 |
CG2D |
cg2d_x(I,J,bi,bj) = cg2d_x(I,J,bi,bj)*rhsNorm |
|
./model/src/cg2d.F |
174 |
CG2D |
DO I=1-1,sNx+1 |
|
./model/src/cg2d.F |
175 |
CG2D |
cg2d_s(I,J,bi,bj) = 0. |
|
./model/src/cg2d.F |
184 |
CG2D |
DO I=1,sNx |
|
./model/src/cg2d.F |
186 |
CG2D |
cg2d_r(I,J,bi,bj) = cg2d_b(I,J,bi,bj) - |
|
./model/src/cg2d.F |
187 |
CG2D |
& (aW2d(I ,J ,bi,bj)*cg2d_x(I-1,J ,bi,bj) |
|
./model/src/cg2d.F |
188 |
CG2D |
& +aW2d(I+1,J ,bi,bj)*cg2d_x(I+1,J ,bi,bj) |
|
./model/src/cg2d.F |
189 |
CG2D |
& +aS2d(I ,J ,bi,bj)*cg2d_x(I ,J-1,bi,bj) |
|
./model/src/cg2d.F |
190 |
CG2D |
& +aS2d(I ,J+1,bi,bj)*cg2d_x(I ,J+1,bi,bj) |
|
./model/src/cg2d.F |
191 |
CG2D |
& +aC2d(I ,J ,bi,bj)*cg2d_x(I ,J ,bi,bj) |
|
./model/src/cg2d.F |
202 |
CG2D |
localBuf(I,J,bi,bj) = cg2d_r(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d.F |
205 |
CG2D |
& + cg2d_r(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d.F |
206 |
CG2D |
sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(I,J,bi,bj) |
|
./model/src/cg2d.F |
256 |
CG2D |
DO I=1,sNx |
|
./model/src/cg2d.F |
257 |
CG2D |
cg2d_q(I,J,bi,bj) = |
|
./model/src/cg2d.F |
258 |
CG2D |
& pC(I ,J ,bi,bj)*cg2d_r(I ,J ,bi,bj) |
|
./model/src/cg2d.F |
259 |
CG2D |
& +pW(I ,J ,bi,bj)*cg2d_r(I-1,J ,bi,bj) |
|
./model/src/cg2d.F |
260 |
CG2D |
& +pW(I+1,J ,bi,bj)*cg2d_r(I+1,J ,bi,bj) |
|
./model/src/cg2d.F |
261 |
CG2D |
& +pS(I ,J ,bi,bj)*cg2d_r(I ,J-1,bi,bj) |
|
./model/src/cg2d.F |
262 |
CG2D |
& +pS(I ,J+1,bi,bj)*cg2d_r(I ,J+1,bi,bj) |
|
./model/src/cg2d.F |
267 |
CG2D |
localBuf(I,J,bi,bj) = |
|
./model/src/cg2d.F |
268 |
CG2D |
& cg2d_q(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d.F |
271 |
CG2D |
& +cg2d_q(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d.F |
295 |
CG2D |
DO I=1,sNx |
|
./model/src/cg2d.F |
296 |
CG2D |
cg2d_s(I,J,bi,bj) = cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d.F |
297 |
CG2D |
& + cgBeta*cg2d_s(I,J,bi,bj) |
|
./model/src/cg2d.F |
316 |
CG2D |
DO I=1,sNx |
|
./model/src/cg2d.F |
318 |
CG2D |
cg2d_q(I,J,bi,bj) = |
|
./model/src/cg2d.F |
319 |
CG2D |
& aW2d(I ,J ,bi,bj)*cg2d_s(I-1,J ,bi,bj) |
|
./model/src/cg2d.F |
320 |
CG2D |
& +aW2d(I+1,J ,bi,bj)*cg2d_s(I+1,J ,bi,bj) |
|
./model/src/cg2d.F |
321 |
CG2D |
& +aS2d(I ,J ,bi,bj)*cg2d_s(I ,J-1,bi,bj) |
|
./model/src/cg2d.F |
322 |
CG2D |
& +aS2d(I ,J+1,bi,bj)*cg2d_s(I ,J+1,bi,bj) |
|
./model/src/cg2d.F |
323 |
CG2D |
& +aC2d(I ,J ,bi,bj)*cg2d_s(I ,J ,bi,bj) |
|
./model/src/cg2d.F |
332 |
CG2D |
localBuf(I,J,bi,bj) = cg2d_s(I,J,bi,bj)*cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d.F |
335 |
CG2D |
& + cg2d_s(I,J,bi,bj)*cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d.F |
360 |
CG2D |
DO I=1,sNx |
|
./model/src/cg2d.F |
361 |
CG2D |
cg2d_x(I,J,bi,bj)=cg2d_x(I,J,bi,bj)+alpha*cg2d_s(I,J,bi,bj) |
|
./model/src/cg2d.F |
362 |
CG2D |
cg2d_r(I,J,bi,bj)=cg2d_r(I,J,bi,bj)-alpha*cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d.F |
364 |
CG2D |
localBuf(I,J,bi,bj) = cg2d_r(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d.F |
367 |
CG2D |
& + cg2d_r(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d.F |
404 |
CG2D |
DO I=1,sNx |
|
./model/src/cg2d.F |
405 |
CG2D |
cg2d_x(I ,J ,bi,bj) = cg2d_x(I ,J ,bi,bj)/rhsNorm |
|
./model/src/cg2d.F |
92 |
CG2D |
INTEGER I, J, it2d |
|
./pkg/obcs/obcs_init_variables.F |
132 |
OBCS_INIT_VARIABLES |
DO I=1-Olx,sNx+Olx |
|
./pkg/obcs/obcs_init_variables.F |
133 |
OBCS_INIT_VARIABLES |
OBNw (I,K,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
134 |
OBCS_INIT_VARIABLES |
OBSw (I,K,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
136 |
OBCS_INIT_VARIABLES |
OBNw0(I,K,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
137 |
OBCS_INIT_VARIABLES |
OBSw0(I,K,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
138 |
OBCS_INIT_VARIABLES |
OBNw1(I,K,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
139 |
OBCS_INIT_VARIABLES |
OBSw1(I,K,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
156 |
OBCS_INIT_VARIABLES |
DO I=1-Olx,sNx+Olx |
|
./pkg/obcs/obcs_init_variables.F |
157 |
OBCS_INIT_VARIABLES |
OBNeta (I,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
158 |
OBCS_INIT_VARIABLES |
OBSeta (I,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
160 |
OBCS_INIT_VARIABLES |
OBNeta0(I,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
161 |
OBCS_INIT_VARIABLES |
OBSeta0(I,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
162 |
OBCS_INIT_VARIABLES |
OBNeta1(I,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
163 |
OBCS_INIT_VARIABLES |
OBSeta1(I,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
181 |
OBCS_INIT_VARIABLES |
DO I=1-Olx,sNx+Olx |
|
./pkg/obcs/obcs_init_variables.F |
183 |
OBCS_INIT_VARIABLES |
OBNa (I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
184 |
OBCS_INIT_VARIABLES |
OBNh (I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
185 |
OBCS_INIT_VARIABLES |
OBNa0(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
186 |
OBCS_INIT_VARIABLES |
OBNh0(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
187 |
OBCS_INIT_VARIABLES |
OBNa1(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
188 |
OBCS_INIT_VARIABLES |
OBNh1(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
189 |
OBCS_INIT_VARIABLES |
OBNsl (I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
190 |
OBCS_INIT_VARIABLES |
OBNsn (I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
191 |
OBCS_INIT_VARIABLES |
OBNsl0(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
192 |
OBCS_INIT_VARIABLES |
OBNsn0(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
193 |
OBCS_INIT_VARIABLES |
OBNsl1(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
194 |
OBCS_INIT_VARIABLES |
OBNsn1(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
195 |
OBCS_INIT_VARIABLES |
OBNuice (I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
196 |
OBCS_INIT_VARIABLES |
OBNvice (I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
197 |
OBCS_INIT_VARIABLES |
OBNuice0(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
198 |
OBCS_INIT_VARIABLES |
OBNvice0(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
199 |
OBCS_INIT_VARIABLES |
OBNuice1(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
200 |
OBCS_INIT_VARIABLES |
OBNvice1(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
203 |
OBCS_INIT_VARIABLES |
OBSa (I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
204 |
OBCS_INIT_VARIABLES |
OBSh (I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
205 |
OBCS_INIT_VARIABLES |
OBSa0(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
206 |
OBCS_INIT_VARIABLES |
OBSh0(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
207 |
OBCS_INIT_VARIABLES |
OBSa1(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
208 |
OBCS_INIT_VARIABLES |
OBSh1(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
209 |
OBCS_INIT_VARIABLES |
OBSsl (I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
210 |
OBCS_INIT_VARIABLES |
OBSsn (I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
211 |
OBCS_INIT_VARIABLES |
OBSsl0(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
212 |
OBCS_INIT_VARIABLES |
OBSsn0(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
213 |
OBCS_INIT_VARIABLES |
OBSsl1(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
214 |
OBCS_INIT_VARIABLES |
OBSsn1(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
215 |
OBCS_INIT_VARIABLES |
OBSuice (I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
216 |
OBCS_INIT_VARIABLES |
OBSvice (I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
217 |
OBCS_INIT_VARIABLES |
OBSuice0(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
218 |
OBCS_INIT_VARIABLES |
OBSvice0(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
219 |
OBCS_INIT_VARIABLES |
OBSuice1(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
220 |
OBCS_INIT_VARIABLES |
OBSvice1(I,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
273 |
OBCS_INIT_VARIABLES |
DO I=1-Olx,sNx+Olx |
|
./pkg/obcs/obcs_init_variables.F |
275 |
OBCS_INIT_VARIABLES |
OBNptr (I,K,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
277 |
OBCS_INIT_VARIABLES |
OBNptr0(I,K,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
278 |
OBCS_INIT_VARIABLES |
OBNptr1(I,K,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
283 |
OBCS_INIT_VARIABLES |
OBSptr (I,K,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
285 |
OBCS_INIT_VARIABLES |
OBSptr0(I,K,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
286 |
OBCS_INIT_VARIABLES |
OBSptr1(I,K,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
44 |
OBCS_INIT_VARIABLES |
INTEGER I, J, K |
|
./pkg/obcs/obcs_init_variables.F |
57 |
OBCS_INIT_VARIABLES |
DO I=1-Olx,sNx+Olx |
|
./pkg/obcs/obcs_init_variables.F |
59 |
OBCS_INIT_VARIABLES |
OBNu(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
60 |
OBCS_INIT_VARIABLES |
OBNv(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
61 |
OBCS_INIT_VARIABLES |
OBNt(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
62 |
OBCS_INIT_VARIABLES |
OBNs(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
64 |
OBCS_INIT_VARIABLES |
OBNu0(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
65 |
OBCS_INIT_VARIABLES |
OBNv0(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
66 |
OBCS_INIT_VARIABLES |
OBNt0(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
67 |
OBCS_INIT_VARIABLES |
OBNs0(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
68 |
OBCS_INIT_VARIABLES |
OBNu1(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
69 |
OBCS_INIT_VARIABLES |
OBNv1(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
70 |
OBCS_INIT_VARIABLES |
OBNt1(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
71 |
OBCS_INIT_VARIABLES |
OBNs1(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
76 |
OBCS_INIT_VARIABLES |
OBSu(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
77 |
OBCS_INIT_VARIABLES |
OBSv(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
78 |
OBCS_INIT_VARIABLES |
OBSt(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
79 |
OBCS_INIT_VARIABLES |
OBSs(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
81 |
OBCS_INIT_VARIABLES |
OBSu0(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
82 |
OBCS_INIT_VARIABLES |
OBSv0(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
83 |
OBCS_INIT_VARIABLES |
OBSt0(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
84 |
OBCS_INIT_VARIABLES |
OBSs0(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
85 |
OBCS_INIT_VARIABLES |
OBSu1(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
86 |
OBCS_INIT_VARIABLES |
OBSv1(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
87 |
OBCS_INIT_VARIABLES |
OBSt1(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
88 |
OBCS_INIT_VARIABLES |
OBSs1(I,K,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_readparms.F |
175 |
OBCS_READPARMS |
DO I=1,OBNS_Nx |
|
./pkg/obcs/obcs_readparms.F |
176 |
OBCS_READPARMS |
OB_Jnorth(I)=0 |
|
./pkg/obcs/obcs_readparms.F |
177 |
OBCS_READPARMS |
OB_Jsouth(I)=0 |
|
./pkg/obcs/obcs_readparms.F |
319 |
OBCS_READPARMS |
DO I=1,OBNS_Nx |
|
./pkg/obcs/obcs_readparms.F |
320 |
OBCS_READPARMS |
IF (OB_Jnorth(I).LT.0) OB_Jnorth(I)=OB_Jnorth(I)+OBNS_Ny+1 |
|
./pkg/obcs/obcs_readparms.F |
364 |
OBCS_READPARMS |
DO I=1-Olx,sNx+Olx |
|
./pkg/obcs/obcs_readparms.F |
365 |
OBCS_READPARMS |
OB_Jn(I,bi,bj)=0 |
|
./pkg/obcs/obcs_readparms.F |
366 |
OBCS_READPARMS |
OB_Js(I,bi,bj)=0 |
|
./pkg/obcs/obcs_readparms.F |
383 |
OBCS_READPARMS |
DO I=1,sNx |
|
./pkg/obcs/obcs_readparms.F |
384 |
OBCS_READPARMS |
iG = exch2_txXStackLo(tN)+I-1 |
|
./pkg/obcs/obcs_readparms.F |
385 |
OBCS_READPARMS |
IF (jG.EQ.OB_Jnorth(iG)) OB_Jn(I,bi,bj)=J |
|
./pkg/obcs/obcs_readparms.F |
386 |
OBCS_READPARMS |
IF (jG.EQ.OB_Jsouth(iG)) OB_Js(I,bi,bj)=J |
|
./pkg/obcs/obcs_readparms.F |
395 |
OBCS_READPARMS |
DO I=1,sNx |
|
./pkg/obcs/obcs_readparms.F |
396 |
OBCS_READPARMS |
iG = exch2_txYStackLo(tN)+I-1 |
|
./pkg/obcs/obcs_readparms.F |
397 |
OBCS_READPARMS |
IF (iG.EQ.OB_Ieast(jG)) OB_Ie(J,bi,bj)=I |
|
./pkg/obcs/obcs_readparms.F |
398 |
OBCS_READPARMS |
IF (iG.EQ.OB_Iwest(jG)) OB_Iw(J,bi,bj)=I |
|
./pkg/obcs/obcs_readparms.F |
412 |
OBCS_READPARMS |
DO I=1,sNx |
|
./pkg/obcs/obcs_readparms.F |
413 |
OBCS_READPARMS |
iG = myXGlobalLo-1+(bi-1)*sNx+I |
|
./pkg/obcs/obcs_readparms.F |
416 |
OBCS_READPARMS |
IF (iG.EQ.OB_Ieast(jGm)) OB_Ie(J,bi,bj)=I |
|
./pkg/obcs/obcs_readparms.F |
417 |
OBCS_READPARMS |
IF (iG.EQ.OB_Iwest(jGm)) OB_Iw(J,bi,bj)=I |
|
./pkg/obcs/obcs_readparms.F |
423 |
OBCS_READPARMS |
DO I=1-Olx,sNx+Olx |
|
./pkg/obcs/obcs_readparms.F |
424 |
OBCS_READPARMS |
iG = myXGlobalLo-1+(bi-1)*sNx+I |
|
./pkg/obcs/obcs_readparms.F |
427 |
OBCS_READPARMS |
IF (jG.EQ.OB_Jnorth(iGm)) OB_Jn(I,bi,bj)=J |
|
./pkg/obcs/obcs_readparms.F |
428 |
OBCS_READPARMS |
IF (jG.EQ.OB_Jsouth(iGm)) OB_Js(I,bi,bj)=J |
|
./pkg/obcs/obcs_readparms.F |
459 |
OBCS_READPARMS |
DO I=1,sNx |
|
./pkg/obcs/obcs_readparms.F |
460 |
OBCS_READPARMS |
buf(I,sNy,bi,bj) = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_readparms.F |
461 |
OBCS_READPARMS |
buf(I, 1,bi,bj) = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_readparms.F |
468 |
OBCS_READPARMS |
DO I=1-Olx,sNx+Olx |
|
./pkg/obcs/obcs_readparms.F |
469 |
OBCS_READPARMS |
OB_Jn(I,bi,bj) = buf(I,sNy,bi,bj) |
|
./pkg/obcs/obcs_readparms.F |
470 |
OBCS_READPARMS |
OB_Js(I,bi,bj) = buf(I, 1,bi,bj) |
|
./pkg/obcs/obcs_readparms.F |
50 |
OBCS_READPARMS |
INTEGER I, J |
|
./model/src/cg2d_nsa.F |
103 |
CG2D_NSA |
INTEGER I, J, it2d |
|
./model/src/cg2d_nsa.F |
158 |
CG2D_NSA |
DO I=1,sNx |
|
./model/src/cg2d_nsa.F |
159 |
CG2D_NSA |
cg2d_b(I,J,bi,bj) = cg2d_b(I,J,bi,bj)*cg2dNorm |
|
./model/src/cg2d_nsa.F |
160 |
CG2D_NSA |
rhsMax = MAX(ABS(cg2d_b(I,J,bi,bj)),rhsMax) |
|
./model/src/cg2d_nsa.F |
195 |
CG2D_NSA |
DO I=1,sNx |
|
./model/src/cg2d_nsa.F |
196 |
CG2D_NSA |
cg2d_b(I,J,bi,bj) = cg2d_b(I,J,bi,bj)*rhsNorm |
|
./model/src/cg2d_nsa.F |
197 |
CG2D_NSA |
cg2d_x(I,J,bi,bj) = cg2d_x(I,J,bi,bj)*rhsNorm |
|
./model/src/cg2d_nsa.F |
225 |
CG2D_NSA |
DO I=1-1,sNx+1 |
|
./model/src/cg2d_nsa.F |
226 |
CG2D_NSA |
cg2d_s(I,J,bi,bj) = 0. |
|
./model/src/cg2d_nsa.F |
230 |
CG2D_NSA |
DO I=1,sNx |
|
./model/src/cg2d_nsa.F |
231 |
CG2D_NSA |
cg2d_r(I,J,bi,bj) = cg2d_b(I,J,bi,bj) - |
|
./model/src/cg2d_nsa.F |
232 |
CG2D_NSA |
& (aW2d(I ,J ,bi,bj)*cg2d_x(I-1,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
233 |
CG2D_NSA |
& +aW2d(I+1,J ,bi,bj)*cg2d_x(I+1,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
234 |
CG2D_NSA |
& +aS2d(I ,J ,bi,bj)*cg2d_x(I ,J-1,bi,bj) |
|
./model/src/cg2d_nsa.F |
235 |
CG2D_NSA |
& +aS2d(I ,J+1,bi,bj)*cg2d_x(I ,J+1,bi,bj) |
|
./model/src/cg2d_nsa.F |
236 |
CG2D_NSA |
& +aC2d(I ,J ,bi,bj)*cg2d_x(I ,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
247 |
CG2D_NSA |
& cg2d_r(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d_nsa.F |
249 |
CG2D_NSA |
& cg2d_b(I,J,bi,bj) |
|
./model/src/cg2d_nsa.F |
317 |
CG2D_NSA |
DO I=1,sNx |
|
./model/src/cg2d_nsa.F |
318 |
CG2D_NSA |
cg2d_z(I,J,bi,bj) = |
|
./model/src/cg2d_nsa.F |
319 |
CG2D_NSA |
& pC(I ,J ,bi,bj)*cg2d_r(I ,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
320 |
CG2D_NSA |
& +pW(I ,J ,bi,bj)*cg2d_r(I-1,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
321 |
CG2D_NSA |
& +pW(I+1,J ,bi,bj)*cg2d_r(I+1,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
322 |
CG2D_NSA |
& +pS(I ,J ,bi,bj)*cg2d_r(I ,J-1,bi,bj) |
|
./model/src/cg2d_nsa.F |
323 |
CG2D_NSA |
& +pS(I ,J+1,bi,bj)*cg2d_r(I ,J+1,bi,bj) |
|
./model/src/cg2d_nsa.F |
328 |
CG2D_NSA |
& +cg2d_z(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d_nsa.F |
356 |
CG2D_NSA |
DO I=1,sNx |
|
./model/src/cg2d_nsa.F |
357 |
CG2D_NSA |
cg2d_s(I,J,bi,bj) = cg2d_z(I,J,bi,bj) |
|
./model/src/cg2d_nsa.F |
358 |
CG2D_NSA |
& + cgBeta*cg2d_s(I,J,bi,bj) |
|
./model/src/cg2d_nsa.F |
381 |
CG2D_NSA |
DO I=1,sNx |
|
./model/src/cg2d_nsa.F |
382 |
CG2D_NSA |
cg2d_q(I,J,bi,bj) = |
|
./model/src/cg2d_nsa.F |
383 |
CG2D_NSA |
& aW2d(I ,J ,bi,bj)*cg2d_s(I-1,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
384 |
CG2D_NSA |
& +aW2d(I+1,J ,bi,bj)*cg2d_s(I+1,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
385 |
CG2D_NSA |
& +aS2d(I ,J ,bi,bj)*cg2d_s(I ,J-1,bi,bj) |
|
./model/src/cg2d_nsa.F |
386 |
CG2D_NSA |
& +aS2d(I ,J+1,bi,bj)*cg2d_s(I ,J+1,bi,bj) |
|
./model/src/cg2d_nsa.F |
387 |
CG2D_NSA |
& +aC2d(I ,J ,bi,bj)*cg2d_s(I ,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
395 |
CG2D_NSA |
alpha_aux = alpha_aux+cg2d_s(I,J,bi,bj)*cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d_nsa.F |
421 |
CG2D_NSA |
DO I=1,sNx |
|
./model/src/cg2d_nsa.F |
422 |
CG2D_NSA |
cg2d_x(I,J,bi,bj)=cg2d_x(I,J,bi,bj)+alpha*cg2d_s(I,J,bi,bj) |
|
./model/src/cg2d_nsa.F |
423 |
CG2D_NSA |
cg2d_r(I,J,bi,bj)=cg2d_r(I,J,bi,bj)-alpha*cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d_nsa.F |
424 |
CG2D_NSA |
err_sq = err_sq+cg2d_r(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d_nsa.F |
456 |
CG2D_NSA |
DO I=1,sNx |
|
./model/src/cg2d_nsa.F |
457 |
CG2D_NSA |
cg2d_x(I ,J ,bi,bj) = cg2d_x(I ,J ,bi,bj)/rhsNorm |
|
./pkg/obcs/orlanski_init.F |
30 |
ORLANSKI_INIT |
INTEGER I, J, K |
|
./pkg/obcs/orlanski_init.F |
33 |
ORLANSKI_INIT |
DO I=1-Olx,sNx+Olx |
|
./pkg/obcs/orlanski_init.F |
34 |
ORLANSKI_INIT |
UN_STORE_1(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
35 |
ORLANSKI_INIT |
VN_STORE_1(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
36 |
ORLANSKI_INIT |
TN_STORE_1(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
37 |
ORLANSKI_INIT |
SN_STORE_1(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
38 |
ORLANSKI_INIT |
UN_STORE_2(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
39 |
ORLANSKI_INIT |
VN_STORE_2(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
40 |
ORLANSKI_INIT |
TN_STORE_2(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
41 |
ORLANSKI_INIT |
SN_STORE_2(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
42 |
ORLANSKI_INIT |
UN_STORE_3(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
43 |
ORLANSKI_INIT |
VN_STORE_3(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
44 |
ORLANSKI_INIT |
TN_STORE_3(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
45 |
ORLANSKI_INIT |
SN_STORE_3(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
46 |
ORLANSKI_INIT |
UN_STORE_4(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
47 |
ORLANSKI_INIT |
VN_STORE_4(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
48 |
ORLANSKI_INIT |
TN_STORE_4(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
49 |
ORLANSKI_INIT |
SN_STORE_4(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
50 |
ORLANSKI_INIT |
US_STORE_1(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
51 |
ORLANSKI_INIT |
VS_STORE_1(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
52 |
ORLANSKI_INIT |
TS_STORE_1(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
53 |
ORLANSKI_INIT |
SS_STORE_1(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
54 |
ORLANSKI_INIT |
US_STORE_2(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
55 |
ORLANSKI_INIT |
VS_STORE_2(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
56 |
ORLANSKI_INIT |
TS_STORE_2(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
57 |
ORLANSKI_INIT |
SS_STORE_2(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
58 |
ORLANSKI_INIT |
US_STORE_3(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
59 |
ORLANSKI_INIT |
VS_STORE_3(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
60 |
ORLANSKI_INIT |
TS_STORE_3(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
61 |
ORLANSKI_INIT |
SS_STORE_3(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
62 |
ORLANSKI_INIT |
US_STORE_4(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
63 |
ORLANSKI_INIT |
VS_STORE_4(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
64 |
ORLANSKI_INIT |
TS_STORE_4(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
65 |
ORLANSKI_INIT |
SS_STORE_4(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
66 |
ORLANSKI_INIT |
CVEL_UN(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
67 |
ORLANSKI_INIT |
CVEL_VN(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
68 |
ORLANSKI_INIT |
CVEL_TN(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
69 |
ORLANSKI_INIT |
CVEL_SN(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
70 |
ORLANSKI_INIT |
CVEL_US(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
71 |
ORLANSKI_INIT |
CVEL_VS(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
72 |
ORLANSKI_INIT |
CVEL_TS(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
73 |
ORLANSKI_INIT |
CVEL_SS(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
75 |
ORLANSKI_INIT |
WN_STORE_1(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
76 |
ORLANSKI_INIT |
WN_STORE_2(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
77 |
ORLANSKI_INIT |
WN_STORE_3(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
78 |
ORLANSKI_INIT |
WN_STORE_4(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
79 |
ORLANSKI_INIT |
WS_STORE_1(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
80 |
ORLANSKI_INIT |
WS_STORE_2(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
81 |
ORLANSKI_INIT |
WS_STORE_3(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
82 |
ORLANSKI_INIT |
WS_STORE_4(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
83 |
ORLANSKI_INIT |
CVEL_WN(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
84 |
ORLANSKI_INIT |
CVEL_WS(I,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_north.F |
100 |
ORLANSKI_NORTH |
IF ((UN_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_north.F |
101 |
ORLANSKI_NORTH |
& (UN_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_north.F |
104 |
ORLANSKI_NORTH |
CL=-(uVel(I,J_obc-1,K,bi,bj)-UN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
105 |
ORLANSKI_NORTH |
& (ab1*UN_STORE_2(I,K,bi,bj) + ab2*UN_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_north.F |
112 |
ORLANSKI_NORTH |
CVEL_UN(I,K,bi,bj) = f1*(CL*dyU(I,J_obc-1,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_north.F |
113 |
ORLANSKI_NORTH |
& f2*CVEL_UN(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
115 |
ORLANSKI_NORTH |
OBNu(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj)- |
|
./pkg/obcs/orlanski_north.F |
116 |
ORLANSKI_NORTH |
& CVEL_UN(I,K,bi,bj)*deltaT*recip_dyU(I,J_obc,bi,bj)* |
|
./pkg/obcs/orlanski_north.F |
117 |
ORLANSKI_NORTH |
& (ab1*(uVel(I,J_obc,K,bi,bj)-uVel(I,J_obc-1,K,bi,bj)) + |
|
./pkg/obcs/orlanski_north.F |
118 |
ORLANSKI_NORTH |
& ab2*(UN_STORE_4(I,K,bi,bj)-UN_STORE_1(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_north.F |
120 |
ORLANSKI_NORTH |
IF ((VN_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_north.F |
121 |
ORLANSKI_NORTH |
& (VN_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_north.F |
124 |
ORLANSKI_NORTH |
CL=-(vVel(I,J_obc-1,K,bi,bj)-VN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
125 |
ORLANSKI_NORTH |
& (ab1*VN_STORE_2(I,K,bi,bj) + ab2*VN_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_north.F |
132 |
ORLANSKI_NORTH |
CVEL_VN(I,K,bi,bj) = f1*(CL*dyF(I,J_obc-2,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_north.F |
133 |
ORLANSKI_NORTH |
& f2*CVEL_VN(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
135 |
ORLANSKI_NORTH |
OBNv(I,K,bi,bj)=vVel(I,J_obc,K,bi,bj)- |
|
./pkg/obcs/orlanski_north.F |
136 |
ORLANSKI_NORTH |
& CVEL_VN(I,K,bi,bj)*deltaT*recip_dyF(I,J_obc-1,bi,bj)* |
|
./pkg/obcs/orlanski_north.F |
137 |
ORLANSKI_NORTH |
& (ab1*(vVel(I,J_obc,K,bi,bj)-vVel(I,J_obc-1,K,bi,bj)) + |
|
./pkg/obcs/orlanski_north.F |
138 |
ORLANSKI_NORTH |
& ab2*(VN_STORE_4(I,K,bi,bj)-VN_STORE_1(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_north.F |
140 |
ORLANSKI_NORTH |
IF ((TN_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_north.F |
141 |
ORLANSKI_NORTH |
& (TN_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_north.F |
144 |
ORLANSKI_NORTH |
CL=-(theta(I,J_obc-1,K,bi,bj)-TN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
145 |
ORLANSKI_NORTH |
& (ab1*TN_STORE_2(I,K,bi,bj) + ab2*TN_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_north.F |
152 |
ORLANSKI_NORTH |
CVEL_TN(I,K,bi,bj) = f1*(CL*dyC(I,J_obc-1,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_north.F |
153 |
ORLANSKI_NORTH |
& f2*CVEL_TN(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
155 |
ORLANSKI_NORTH |
OBNt(I,K,bi,bj)=theta(I,J_obc,K,bi,bj)- |
|
./pkg/obcs/orlanski_north.F |
156 |
ORLANSKI_NORTH |
& CVEL_TN(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc,bi,bj)* |
|
./pkg/obcs/orlanski_north.F |
157 |
ORLANSKI_NORTH |
& (ab1*(theta(I,J_obc,K,bi,bj)-theta(I,J_obc-1,K,bi,bj))+ |
|
./pkg/obcs/orlanski_north.F |
158 |
ORLANSKI_NORTH |
& ab2*(TN_STORE_4(I,K,bi,bj)-TN_STORE_1(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_north.F |
160 |
ORLANSKI_NORTH |
IF ((SN_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_north.F |
161 |
ORLANSKI_NORTH |
& (SN_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_north.F |
164 |
ORLANSKI_NORTH |
CL=-(salt(I,J_obc-1,K,bi,bj)-SN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
165 |
ORLANSKI_NORTH |
& (ab1*SN_STORE_2(I,K,bi,bj) + ab2*SN_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_north.F |
172 |
ORLANSKI_NORTH |
CVEL_SN(I,K,bi,bj) = f1*(CL*dyC(I,J_obc-1,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_north.F |
173 |
ORLANSKI_NORTH |
& f2*CVEL_SN(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
175 |
ORLANSKI_NORTH |
OBNs(I,K,bi,bj)=salt(I,J_obc,K,bi,bj)- |
|
./pkg/obcs/orlanski_north.F |
176 |
ORLANSKI_NORTH |
& CVEL_SN(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc,bi,bj)* |
|
./pkg/obcs/orlanski_north.F |
177 |
ORLANSKI_NORTH |
& (ab1*(salt(I,J_obc,K,bi,bj)-salt(I,J_obc-1,K,bi,bj)) + |
|
./pkg/obcs/orlanski_north.F |
178 |
ORLANSKI_NORTH |
& ab2*(SN_STORE_4(I,K,bi,bj)-SN_STORE_1(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_north.F |
182 |
ORLANSKI_NORTH |
IF ((WN_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_north.F |
183 |
ORLANSKI_NORTH |
& (WN_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_north.F |
186 |
ORLANSKI_NORTH |
CL=-(wVel(I,J_obc-1,K,bi,bj)-WN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
187 |
ORLANSKI_NORTH |
& (ab1*WN_STORE_2(I,K,bi,bj)+ab2*WN_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_north.F |
194 |
ORLANSKI_NORTH |
CVEL_WN(I,K,bi,bj)=f1*(CL*dyC(I,J_obc-1,bi,bj)/deltaT) |
|
./pkg/obcs/orlanski_north.F |
195 |
ORLANSKI_NORTH |
& + f2*CVEL_WN(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
197 |
ORLANSKI_NORTH |
OBNw(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj)- |
|
./pkg/obcs/orlanski_north.F |
198 |
ORLANSKI_NORTH |
& CVEL_WN(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc,bi,bj)* |
|
./pkg/obcs/orlanski_north.F |
199 |
ORLANSKI_NORTH |
& (ab1*(wVel(I,J_obc,K,bi,bj)-wVel(I,J_obc-1,K,bi,bj))+ |
|
./pkg/obcs/orlanski_north.F |
200 |
ORLANSKI_NORTH |
& ab2*(WN_STORE_4(I,K,bi,bj)-WN_STORE_1(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_north.F |
206 |
ORLANSKI_NORTH |
UN_STORE_3(I,K,bi,bj)=UN_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
208 |
ORLANSKI_NORTH |
UN_STORE_2(I,K,bi,bj)=uVel(I,J_obc-1,K,bi,bj) - |
|
./pkg/obcs/orlanski_north.F |
209 |
ORLANSKI_NORTH |
& uVel(I,J_obc-2,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
210 |
ORLANSKI_NORTH |
UN_STORE_1(I,K,bi,bj)=uVel(I,J_obc-1,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
211 |
ORLANSKI_NORTH |
UN_STORE_4(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
214 |
ORLANSKI_NORTH |
VN_STORE_3(I,K,bi,bj)=VN_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
216 |
ORLANSKI_NORTH |
VN_STORE_2(I,K,bi,bj)=vVel(I,J_obc-1,K,bi,bj) - |
|
./pkg/obcs/orlanski_north.F |
217 |
ORLANSKI_NORTH |
& vVel(I,J_obc-2,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
218 |
ORLANSKI_NORTH |
VN_STORE_1(I,K,bi,bj)=vVel(I,J_obc-1,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
219 |
ORLANSKI_NORTH |
VN_STORE_4(I,K,bi,bj)=vVel(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
222 |
ORLANSKI_NORTH |
TN_STORE_3(I,K,bi,bj)=TN_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
224 |
ORLANSKI_NORTH |
TN_STORE_2(I,K,bi,bj)=theta(I,J_obc-1,K,bi,bj) - |
|
./pkg/obcs/orlanski_north.F |
225 |
ORLANSKI_NORTH |
& theta(I,J_obc-2,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
226 |
ORLANSKI_NORTH |
TN_STORE_1(I,K,bi,bj)=theta(I,J_obc-1,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
227 |
ORLANSKI_NORTH |
TN_STORE_4(I,K,bi,bj)=theta(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
230 |
ORLANSKI_NORTH |
SN_STORE_3(I,K,bi,bj)=SN_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
232 |
ORLANSKI_NORTH |
SN_STORE_2(I,K,bi,bj)=salt(I,J_obc-1,K,bi,bj) - |
|
./pkg/obcs/orlanski_north.F |
233 |
ORLANSKI_NORTH |
& salt(I,J_obc-2,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
234 |
ORLANSKI_NORTH |
SN_STORE_1(I,K,bi,bj)=salt(I,J_obc-1,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
235 |
ORLANSKI_NORTH |
SN_STORE_4(I,K,bi,bj)=salt(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
240 |
ORLANSKI_NORTH |
WN_STORE_3(I,K,bi,bj)=WN_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
242 |
ORLANSKI_NORTH |
WN_STORE_2(I,K,bi,bj)=wVel(I,J_obc-1,K,bi,bj) - |
|
./pkg/obcs/orlanski_north.F |
243 |
ORLANSKI_NORTH |
& wVel(I,J_obc-2,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
244 |
ORLANSKI_NORTH |
WN_STORE_1(I,K,bi,bj)=wVel(I,J_obc-1,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
245 |
ORLANSKI_NORTH |
WN_STORE_4(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
82 |
ORLANSKI_NORTH |
INTEGER I, K, J_obc |
|
./pkg/obcs/orlanski_north.F |
96 |
ORLANSKI_NORTH |
DO I=1-Olx,sNx+Olx |
|
./pkg/obcs/orlanski_north.F |
97 |
ORLANSKI_NORTH |
J_obc=OB_Jn(I,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
100 |
ORLANSKI_SOUTH |
IF ((US_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_south.F |
101 |
ORLANSKI_SOUTH |
& (US_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_south.F |
104 |
ORLANSKI_SOUTH |
CL=(uVel(I,J_obc+1,K,bi,bj)-US_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
105 |
ORLANSKI_SOUTH |
& (ab1*US_STORE_2(I,K,bi,bj) + ab2*US_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_south.F |
112 |
ORLANSKI_SOUTH |
CVEL_US(I,K,bi,bj) = f1*(CL*dyU(I,J_obc+2,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_south.F |
113 |
ORLANSKI_SOUTH |
& f2*CVEL_US(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
115 |
ORLANSKI_SOUTH |
OBSu(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj)+ |
|
./pkg/obcs/orlanski_south.F |
116 |
ORLANSKI_SOUTH |
& CVEL_US(I,K,bi,bj)*deltaT*recip_dyU(I,J_obc+1,bi,bj)* |
|
./pkg/obcs/orlanski_south.F |
117 |
ORLANSKI_SOUTH |
& (ab1*(uVel(I,J_obc+1,K,bi,bj)-uVel(I,J_obc,K,bi,bj)) + |
|
./pkg/obcs/orlanski_south.F |
118 |
ORLANSKI_SOUTH |
& ab2*(US_STORE_1(I,K,bi,bj)-US_STORE_4(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_south.F |
120 |
ORLANSKI_SOUTH |
IF ((VS_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_south.F |
121 |
ORLANSKI_SOUTH |
& (VS_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_south.F |
124 |
ORLANSKI_SOUTH |
CL=(vVel(I,J_obc+2,K,bi,bj)-VS_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
125 |
ORLANSKI_SOUTH |
& (ab1*VS_STORE_2(I,K,bi,bj) + ab2*VS_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_south.F |
132 |
ORLANSKI_SOUTH |
CVEL_VS(I,K,bi,bj) = f1*(CL*dyF(I,J_obc+2,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_south.F |
133 |
ORLANSKI_SOUTH |
& f2*CVEL_VS(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
135 |
ORLANSKI_SOUTH |
OBSv(I,K,bi,bj)=vVel(I,J_obc+1,K,bi,bj)+ |
|
./pkg/obcs/orlanski_south.F |
136 |
ORLANSKI_SOUTH |
& CVEL_VS(I,K,bi,bj)*deltaT*recip_dyF(I,J_obc+1,bi,bj)* |
|
./pkg/obcs/orlanski_south.F |
137 |
ORLANSKI_SOUTH |
& (ab1*(vVel(I,J_obc+2,K,bi,bj)-vVel(I,J_obc+1,K,bi,bj))+ |
|
./pkg/obcs/orlanski_south.F |
138 |
ORLANSKI_SOUTH |
& ab2*(VS_STORE_1(I,K,bi,bj)-VS_STORE_4(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_south.F |
140 |
ORLANSKI_SOUTH |
IF ((TS_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_south.F |
141 |
ORLANSKI_SOUTH |
& (TS_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_south.F |
144 |
ORLANSKI_SOUTH |
CL=(theta(I,J_obc+1,K,bi,bj)-TS_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
145 |
ORLANSKI_SOUTH |
& (ab1*TS_STORE_2(I,K,bi,bj) + ab2*TS_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_south.F |
152 |
ORLANSKI_SOUTH |
CVEL_TS(I,K,bi,bj) = f1*(CL*dyC(I,J_obc+2,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_south.F |
153 |
ORLANSKI_SOUTH |
& f2*CVEL_TS(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
155 |
ORLANSKI_SOUTH |
OBSt(I,K,bi,bj)=theta(I,J_obc,K,bi,bj)+ |
|
./pkg/obcs/orlanski_south.F |
156 |
ORLANSKI_SOUTH |
& CVEL_TS(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc+1,bi,bj)* |
|
./pkg/obcs/orlanski_south.F |
157 |
ORLANSKI_SOUTH |
& (ab1*(theta(I,J_obc+1,K,bi,bj)-theta(I,J_obc,K,bi,bj))+ |
|
./pkg/obcs/orlanski_south.F |
158 |
ORLANSKI_SOUTH |
& ab2*(TS_STORE_1(I,K,bi,bj)-TS_STORE_4(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_south.F |
160 |
ORLANSKI_SOUTH |
IF ((SS_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_south.F |
161 |
ORLANSKI_SOUTH |
& (SS_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_south.F |
164 |
ORLANSKI_SOUTH |
CL=(salt(I,J_obc+1,K,bi,bj)-SS_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
165 |
ORLANSKI_SOUTH |
& (ab1*SS_STORE_2(I,K,bi,bj) + ab2*SS_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_south.F |
172 |
ORLANSKI_SOUTH |
CVEL_SS(I,K,bi,bj) = f1*(CL*dyC(I,J_obc+2,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_south.F |
173 |
ORLANSKI_SOUTH |
& f2*CVEL_SS(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
175 |
ORLANSKI_SOUTH |
OBSs(I,K,bi,bj)=salt(I,J_obc,K,bi,bj)+ |
|
./pkg/obcs/orlanski_south.F |
176 |
ORLANSKI_SOUTH |
& CVEL_SS(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc+1,bi,bj)* |
|
./pkg/obcs/orlanski_south.F |
177 |
ORLANSKI_SOUTH |
& (ab1*(salt(I,J_obc+1,K,bi,bj)-salt(I,J_obc,K,bi,bj)) + |
|
./pkg/obcs/orlanski_south.F |
178 |
ORLANSKI_SOUTH |
& ab2*(SS_STORE_1(I,K,bi,bj)-SS_STORE_4(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_south.F |
182 |
ORLANSKI_SOUTH |
IF ((WS_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_south.F |
183 |
ORLANSKI_SOUTH |
& (WS_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_south.F |
186 |
ORLANSKI_SOUTH |
CL=(wVel(I,J_obc+1,K,bi,bj)-WS_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
187 |
ORLANSKI_SOUTH |
& (ab1*WS_STORE_2(I,K,bi,bj)+ab2*WS_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_south.F |
194 |
ORLANSKI_SOUTH |
CVEL_WS(I,K,bi,bj)=f1*(CL*dyC(I,J_obc+2,bi,bj)/deltaT) |
|
./pkg/obcs/orlanski_south.F |
195 |
ORLANSKI_SOUTH |
& + f2*CVEL_WS(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
197 |
ORLANSKI_SOUTH |
OBSw(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj)+ |
|
./pkg/obcs/orlanski_south.F |
198 |
ORLANSKI_SOUTH |
& CVEL_WS(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc+1,bi,bj)* |
|
./pkg/obcs/orlanski_south.F |
199 |
ORLANSKI_SOUTH |
& (ab1*(wVel(I,J_obc+1,K,bi,bj)-wVel(I,J_obc,K,bi,bj))+ |
|
./pkg/obcs/orlanski_south.F |
200 |
ORLANSKI_SOUTH |
& ab2*(WS_STORE_1(I,K,bi,bj)-WS_STORE_4(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_south.F |
206 |
ORLANSKI_SOUTH |
US_STORE_3(I,K,bi,bj)=US_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
208 |
ORLANSKI_SOUTH |
US_STORE_2(I,K,bi,bj)=uVel(I,J_obc+2,K,bi,bj) - |
|
./pkg/obcs/orlanski_south.F |
209 |
ORLANSKI_SOUTH |
& uVel(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
210 |
ORLANSKI_SOUTH |
US_STORE_1(I,K,bi,bj)=uVel(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
211 |
ORLANSKI_SOUTH |
US_STORE_4(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
214 |
ORLANSKI_SOUTH |
VS_STORE_3(I,K,bi,bj)=VS_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
216 |
ORLANSKI_SOUTH |
VS_STORE_2(I,K,bi,bj)=vVel(I,J_obc+3,K,bi,bj) - |
|
./pkg/obcs/orlanski_south.F |
217 |
ORLANSKI_SOUTH |
& vVel(I,J_obc+2,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
218 |
ORLANSKI_SOUTH |
VS_STORE_1(I,K,bi,bj)=vVel(I,J_obc+2,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
219 |
ORLANSKI_SOUTH |
VS_STORE_4(I,K,bi,bj)=vVel(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
222 |
ORLANSKI_SOUTH |
TS_STORE_3(I,K,bi,bj)=TS_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
224 |
ORLANSKI_SOUTH |
TS_STORE_2(I,K,bi,bj)=theta(I,J_obc+2,K,bi,bj) - |
|
./pkg/obcs/orlanski_south.F |
225 |
ORLANSKI_SOUTH |
& theta(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
226 |
ORLANSKI_SOUTH |
TS_STORE_1(I,K,bi,bj)=theta(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
227 |
ORLANSKI_SOUTH |
TS_STORE_4(I,K,bi,bj)=theta(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
230 |
ORLANSKI_SOUTH |
SS_STORE_3(I,K,bi,bj)=SS_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
232 |
ORLANSKI_SOUTH |
SS_STORE_2(I,K,bi,bj)=salt(I,J_obc+2,K,bi,bj) - |
|
./pkg/obcs/orlanski_south.F |
233 |
ORLANSKI_SOUTH |
& salt(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
234 |
ORLANSKI_SOUTH |
SS_STORE_1(I,K,bi,bj)=salt(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
235 |
ORLANSKI_SOUTH |
SS_STORE_4(I,K,bi,bj)=salt(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
240 |
ORLANSKI_SOUTH |
WS_STORE_3(I,K,bi,bj)=WS_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
242 |
ORLANSKI_SOUTH |
WS_STORE_2(I,K,bi,bj)=wVel(I,J_obc+2,K,bi,bj) - |
|
./pkg/obcs/orlanski_south.F |
243 |
ORLANSKI_SOUTH |
& wVel(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
244 |
ORLANSKI_SOUTH |
WS_STORE_1(I,K,bi,bj)=wVel(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
245 |
ORLANSKI_SOUTH |
WS_STORE_4(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
82 |
ORLANSKI_SOUTH |
INTEGER I, K, J_obc |
|
./pkg/obcs/orlanski_south.F |
96 |
ORLANSKI_SOUTH |
DO I=1-Olx,sNx+Olx |
|
./pkg/obcs/orlanski_south.F |
97 |
ORLANSKI_SOUTH |
J_obc=OB_Js(I,bi,bj) |
|
./pkg/ocn_compon_interf/cpl_exch_configs.F |
49 |
CPL_EXCH_CONFIGS |
INTEGER I,J,K,bi,bj |
|
./pkg/ocn_compon_interf/cpl_exch_configs.F |
84 |
CPL_EXCH_CONFIGS |
DO I=1,sNx |
|
./pkg/ocn_compon_interf/cpl_exch_configs.F |
85 |
CPL_EXCH_CONFIGS |
IF ( R_low(I,J,bi,bj) .NE. seaSurface_ocn .AND. |
|
./pkg/ocn_compon_interf/cpl_exch_configs.F |
86 |
CPL_EXCH_CONFIGS |
& Hatm(I,J,bi,bj) .NE. groundLevel_atm ) THEN |
|
./pkg/ocn_compon_interf/cpl_exch_configs.F |
87 |
CPL_EXCH_CONFIGS |
iDiff = I |
|
./pkg/ocn_compon_interf/cpl_exch_configs.F |
96 |
CPL_EXCH_CONFIGS |
& 'H (atmosphere) ==',Hatm(I,J,bi,bj) |
|
./pkg/ocn_compon_interf/cpl_exch_configs.F |
99 |
CPL_EXCH_CONFIGS |
& 'H (ocean) ==',R_low(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
121 |
CG2D_SR |
DO I=1,sNx |
|
./model/src/cg2d_sr.F |
122 |
CG2D_SR |
cg2d_b(I,J,bi,bj) = cg2d_b(I,J,bi,bj)*cg2dNorm |
|
./model/src/cg2d_sr.F |
123 |
CG2D_SR |
rhsMax = MAX(ABS(cg2d_b(I,J,bi,bj)),rhsMax) |
|
./model/src/cg2d_sr.F |
137 |
CG2D_SR |
DO I=1,sNx |
|
./model/src/cg2d_sr.F |
138 |
CG2D_SR |
cg2d_b(I,J,bi,bj) = cg2d_b(I,J,bi,bj)*rhsNorm |
|
./model/src/cg2d_sr.F |
139 |
CG2D_SR |
cg2d_x(I,J,bi,bj) = cg2d_x(I,J,bi,bj)*rhsNorm |
|
./model/src/cg2d_sr.F |
156 |
CG2D_SR |
DO I=1-1,sNx+1 |
|
./model/src/cg2d_sr.F |
157 |
CG2D_SR |
cg2d_s(I,J,bi,bj) = 0. |
|
./model/src/cg2d_sr.F |
166 |
CG2D_SR |
DO I=1,sNx |
|
./model/src/cg2d_sr.F |
167 |
CG2D_SR |
cg2d_r(I,J,bi,bj) = cg2d_b(I,J,bi,bj) - |
|
./model/src/cg2d_sr.F |
168 |
CG2D_SR |
& (aW2d(I ,J ,bi,bj)*cg2d_x(I-1,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
169 |
CG2D_SR |
& +aW2d(I+1,J ,bi,bj)*cg2d_x(I+1,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
170 |
CG2D_SR |
& +aS2d(I ,J ,bi,bj)*cg2d_x(I ,J-1,bi,bj) |
|
./model/src/cg2d_sr.F |
171 |
CG2D_SR |
& +aS2d(I ,J+1,bi,bj)*cg2d_x(I ,J+1,bi,bj) |
|
./model/src/cg2d_sr.F |
172 |
CG2D_SR |
& +aC2d(I ,J ,bi,bj)*cg2d_x(I ,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
175 |
CG2D_SR |
& + cg2d_r(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
176 |
CG2D_SR |
sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
212 |
CG2D_SR |
DO I=1,sNx |
|
./model/src/cg2d_sr.F |
213 |
CG2D_SR |
cg2d_y(I,J,bi,bj) = |
|
./model/src/cg2d_sr.F |
214 |
CG2D_SR |
& pC(I ,J ,bi,bj)*cg2d_r(I ,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
215 |
CG2D_SR |
& +pW(I ,J ,bi,bj)*cg2d_r(I-1,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
216 |
CG2D_SR |
& +pW(I+1,J ,bi,bj)*cg2d_r(I+1,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
217 |
CG2D_SR |
& +pS(I ,J ,bi,bj)*cg2d_r(I ,J-1,bi,bj) |
|
./model/src/cg2d_sr.F |
218 |
CG2D_SR |
& +pS(I ,J+1,bi,bj)*cg2d_r(I ,J+1,bi,bj) |
|
./model/src/cg2d_sr.F |
219 |
CG2D_SR |
cg2d_s(I,J,bi,bj) = cg2d_y(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
221 |
CG2D_SR |
& +cg2d_y(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
242 |
CG2D_SR |
DO I=1,sNx |
|
./model/src/cg2d_sr.F |
243 |
CG2D_SR |
cg2d_q(I,J,bi,bj) = |
|
./model/src/cg2d_sr.F |
244 |
CG2D_SR |
& aW2d(I ,J ,bi,bj)*cg2d_s(I-1,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
245 |
CG2D_SR |
& +aW2d(I+1,J ,bi,bj)*cg2d_s(I+1,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
246 |
CG2D_SR |
& +aS2d(I ,J ,bi,bj)*cg2d_s(I ,J-1,bi,bj) |
|
./model/src/cg2d_sr.F |
247 |
CG2D_SR |
& +aS2d(I ,J+1,bi,bj)*cg2d_s(I ,J+1,bi,bj) |
|
./model/src/cg2d_sr.F |
248 |
CG2D_SR |
& +aC2d(I ,J ,bi,bj)*cg2d_s(I ,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
250 |
CG2D_SR |
& + cg2d_s(I,J,bi,bj)*cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
266 |
CG2D_SR |
DO I=1,sNx |
|
./model/src/cg2d_sr.F |
267 |
CG2D_SR |
cg2d_x(I,J,bi,bj)=cg2d_x(I,J,bi,bj)+sigma*cg2d_s(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
268 |
CG2D_SR |
cg2d_r(I,J,bi,bj)=cg2d_r(I,J,bi,bj)-sigma*cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
288 |
CG2D_SR |
DO I=1,sNx |
|
./model/src/cg2d_sr.F |
289 |
CG2D_SR |
cg2d_y(I,J,bi,bj) = |
|
./model/src/cg2d_sr.F |
290 |
CG2D_SR |
& pC(I ,J ,bi,bj)*cg2d_r(I ,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
291 |
CG2D_SR |
& +pW(I ,J ,bi,bj)*cg2d_r(I-1,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
292 |
CG2D_SR |
& +pW(I+1,J ,bi,bj)*cg2d_r(I+1,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
293 |
CG2D_SR |
& +pS(I ,J ,bi,bj)*cg2d_r(I ,J-1,bi,bj) |
|
./model/src/cg2d_sr.F |
294 |
CG2D_SR |
& +pS(I ,J+1,bi,bj)*cg2d_r(I ,J+1,bi,bj) |
|
./model/src/cg2d_sr.F |
318 |
CG2D_SR |
DO I=1,sNx |
|
./model/src/cg2d_sr.F |
319 |
CG2D_SR |
cg2d_v(I,J,bi,bj) = |
|
./model/src/cg2d_sr.F |
320 |
CG2D_SR |
& aW2d(I ,J ,bi,bj)*cg2d_y(I-1,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
321 |
CG2D_SR |
& +aW2d(I+1,J ,bi,bj)*cg2d_y(I+1,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
322 |
CG2D_SR |
& +aS2d(I ,J ,bi,bj)*cg2d_y(I ,J-1,bi,bj) |
|
./model/src/cg2d_sr.F |
323 |
CG2D_SR |
& +aS2d(I ,J+1,bi,bj)*cg2d_y(I ,J+1,bi,bj) |
|
./model/src/cg2d_sr.F |
324 |
CG2D_SR |
& +aC2d(I ,J ,bi,bj)*cg2d_y(I ,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
326 |
CG2D_SR |
& +cg2d_y(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
328 |
CG2D_SR |
& +cg2d_y(I,J,bi,bj)*cg2d_v(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
330 |
CG2D_SR |
& + cg2d_r(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
378 |
CG2D_SR |
DO I=1,sNx |
|
./model/src/cg2d_sr.F |
379 |
CG2D_SR |
cg2d_s(I,J,bi,bj) = cg2d_y(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
380 |
CG2D_SR |
& + cgBeta*cg2d_s(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
381 |
CG2D_SR |
cg2d_x(I,J,bi,bj) = cg2d_x(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
382 |
CG2D_SR |
& + sigma*cg2d_s(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
383 |
CG2D_SR |
cg2d_q(I,J,bi,bj) = cg2d_v(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
384 |
CG2D_SR |
& + cgBeta*cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
385 |
CG2D_SR |
cg2d_r(I,J,bi,bj) = cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
386 |
CG2D_SR |
& - sigma*cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
402 |
CG2D_SR |
DO I=1,sNx |
|
./model/src/cg2d_sr.F |
403 |
CG2D_SR |
cg2d_x(I ,J ,bi,bj) = cg2d_x(I ,J ,bi,bj)/rhsNorm |
|
./model/src/cg2d_sr.F |
98 |
CG2D_SR |
INTEGER I, J, it2d |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
46 |
CPL_INI_VARS |
INTEGER I,J,bi,bj |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
51 |
CPL_INI_VARS |
DO I=1-Olx,sNx+Olx |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
53 |
CPL_INI_VARS |
ocMxlD2cpl(I,J,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
54 |
CPL_INI_VARS |
SSTocn2cpl(I,J,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
55 |
CPL_INI_VARS |
SSSocn2cpl(I,J,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
56 |
CPL_INI_VARS |
vSqocn2cpl(I,J,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
57 |
CPL_INI_VARS |
fluxCO2cpl(I,J,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
59 |
CPL_INI_VARS |
atmSLPr (I,J,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
60 |
CPL_INI_VARS |
HeatFlux (I,J,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
61 |
CPL_INI_VARS |
qShortWave(I,J,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
67 |
CPL_INI_VARS |
tauX (I,J,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
68 |
CPL_INI_VARS |
tauY (I,J,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
69 |
CPL_INI_VARS |
FWflux (I,J,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
70 |
CPL_INI_VARS |
iceSaltFlx(I,J,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
71 |
CPL_INI_VARS |
seaIceMass(I,J,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
72 |
CPL_INI_VARS |
airCO2 (I,J,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
73 |
CPL_INI_VARS |
surfWSpeed(I,J,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
74 |
CPL_INI_VARS |
fracIce (I,J,bi,bj) = 0. |
|
./model/src/cg3d.F |
232 |
CG3D |
DO I=1-1,sNx+1 |
|
./pkg/ocn_compon_interf/ocn_export_ocnconfig.F |
43 |
OCN_EXPORT_OCNCONFIG |
DO I=1-Olx,sNx+Olx |
|
./pkg/opps/opps_calc.F |
14 |
OPPS_CALC |
I I, J, bi, bj, myTime, myIter, myThid ) |
|
./pkg/opps/opps_calc.F |
424 |
OPPS_CALC |
OPPSconvectCount(I,J,K,bi,bj) = |
|
./pkg/opps/opps_calc.F |
425 |
OPPS_CALC |
& OPPSconvectCount(I,J,K,bi,bj) + 1. _d 0 |
|
./pkg/opps/opps_calc.F |
442 |
OPPS_CALC |
_RL FUNCTION STATE1(sLoc,tLoc,I,J,KREF,bi,bj,mythid) |
|
./pkg/opps/opps_calc.F |
465 |
OPPS_CALC |
INTEGER I,J,kRef,bi,bj,myThid |
|
./pkg/opps/opps_calc.F |
79 |
OPPS_CALC |
INTEGER I, J, bi, bj, KMax, nTracer, nTracerInUse |
|
./pkg/opps/opps_init.F |
42 |
OPPS_INIT |
OPPSconvectCount(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/opps/opps_interface.F |
104 |
OPPS_INTERFACE |
DO I=iMin,iMax |
|
./pkg/opps/opps_interface.F |
105 |
OPPS_INTERFACE |
IF ( kSurfC(I,J,bi,bj) .LE. Nr ) THEN |
|
./pkg/opps/opps_interface.F |
108 |
OPPS_INTERFACE |
tracerLoc(K,1) = theta(I,J,K,bi,bj) |
|
./pkg/opps/opps_interface.F |
109 |
OPPS_INTERFACE |
tracerLoc(K,2) = salt(I,J,K,bi,bj) |
|
./pkg/opps/opps_interface.F |
110 |
OPPS_INTERFACE |
wVelLoc(K) = wVel(I,J,K,bi,bj) |
|
./pkg/opps/opps_interface.F |
114 |
OPPS_INTERFACE |
tracerLoc(K,1) = theta(I,J,K,bi,bj) |
|
./pkg/opps/opps_interface.F |
115 |
OPPS_INTERFACE |
tracerLoc(K,2) = salt(I,J,K,bi,bj) |
|
./pkg/opps/opps_interface.F |
122 |
OPPS_INTERFACE |
tracerLoc(K,itr) = ptracer(I,J,K,bi,bj,itr-2) |
|
./pkg/opps/opps_interface.F |
141 |
OPPS_INTERFACE |
kMax = kLowC(I,J,bi,bj) |
|
./pkg/opps/opps_interface.F |
145 |
OPPS_INTERFACE |
I I,J,bi,bj,myTime,myIter,myThid) |
|
./pkg/opps/opps_interface.F |
165 |
OPPS_INTERFACE |
WRITE(msgBuf,'(A,2I5)') ' for (i,j) = ', I,J |
|
./pkg/opps/opps_interface.F |
172 |
OPPS_INTERFACE |
theta(I,J,K,bi,bj) = tracerLoc(K,1) |
|
./pkg/opps/opps_interface.F |
173 |
OPPS_INTERFACE |
salt(I,J,K,bi,bj) = tracerLoc(K,2) |
|
./pkg/opps/opps_interface.F |
178 |
OPPS_INTERFACE |
ptracer(I,J,K,bi,bj,itr-2) = tracerLoc(K,itr) |
|
./pkg/opps/opps_interface.F |
69 |
OPPS_INTERFACE |
INTEGER I, J, K, kMax |
|
./pkg/opps/opps_interface.F |
96 |
OPPS_INTERFACE |
DO I=1-Olx,sNx+Olx |
|
./pkg/opps/opps_interface.F |
97 |
OPPS_INTERFACE |
OPPSconvectCount(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/pp81/pp81_calc.F |
106 |
PP81_CALC |
DO I=iMin,iMax |
|
./pkg/pp81/pp81_calc.F |
107 |
PP81_CALC |
PPviscAr(I,J,K,bi,bj) = PPviscAr(I,J,K,bi,bj) |
|
./pkg/pp81/pp81_calc.F |
108 |
PP81_CALC |
& * maskC(I,J,K,bi,bj) |
|
./pkg/pp81/pp81_calc.F |
109 |
PP81_CALC |
PPdiffKr(I,J,K,bi,bj) = PPdiffKr(I,J,K,bi,bj) |
|
./pkg/pp81/pp81_calc.F |
110 |
PP81_CALC |
& * maskC(I,J,K,bi,bj) |
|
./pkg/pp81/pp81_calc.F |
57 |
PP81_CALC |
INTEGER I, J, K |
|
./pkg/pp81/pp81_calc.F |
73 |
PP81_CALC |
DO I=iMin,iMax |
|
./pkg/pp81/pp81_calc.F |
74 |
PP81_CALC |
IF ( RiNumber(I,J) .LT. RiLimit ) THEN |
|
./pkg/pp81/pp81_calc.F |
78 |
PP81_CALC |
denom = 1.0 + PPalpha*RiNumber(I,J) |
|
./pkg/pp81/pp81_calc.F |
82 |
PP81_CALC |
PPviscAr(I,J,K,bi,bj) = MAX(PPviscTmp,viscArNr(k)) |
|
./pkg/pp81/pp81_calc.F |
83 |
PP81_CALC |
PPdiffKr(I,J,K,bi,bj) = MAX(PPviscAr(I,J,K,bi,bj)/denom, |
|
./pkg/pp81/pp81_calc.F |
97 |
PP81_CALC |
DO I=iMin,iMax |
|
./pkg/pp81/pp81_calc.F |
98 |
PP81_CALC |
PPviscAr(I,J,K,bi,bj) = MAX(PPviscMin,PPviscAr(I,J,K,bi,bj)) |
|
./pkg/pp81/pp81_calc.F |
99 |
PP81_CALC |
PPdiffKr(I,J,K,bi,bj) = MAX(PPdiffMin,PPdiffKr(I,J,K,bi,bj)) |
|
./pkg/pp81/pp81_ri_number.F |
107 |
PP81_RI_NUMBER |
DO I = iMin, iMax |
|
./pkg/pp81/pp81_ri_number.F |
108 |
PP81_RI_NUMBER |
tempu= .5*( uVel(I,J,Km1,bi,bj)+uVel(I+1,J,Km1,bi,bj) |
|
./pkg/pp81/pp81_ri_number.F |
109 |
PP81_RI_NUMBER |
& - (uVel(I,J,K ,bi,bj)+uVel(I+1,J,K ,bi,bj)) ) |
|
./pkg/pp81/pp81_ri_number.F |
111 |
PP81_RI_NUMBER |
tempv= .5*( vVel(I,J,Km1,bi,bj)+vVel(I,J+1,Km1,bi,bj) |
|
./pkg/pp81/pp81_ri_number.F |
112 |
PP81_RI_NUMBER |
& - (vVel(I,J,K ,bi,bj)+vVel(I,J+1,K ,bi,bj)) ) |
|
./pkg/pp81/pp81_ri_number.F |
120 |
PP81_RI_NUMBER |
& (rhoKm1(I,J) - rhoK(I,J))*recip_drC(K) |
|
./pkg/pp81/pp81_ri_number.F |
125 |
PP81_RI_NUMBER |
RiNumber(I,J) = buoyFreq/max(RiFlux,epsilon) |
|
./pkg/pp81/pp81_ri_number.F |
132 |
PP81_RI_NUMBER |
DO I=iMin,iMax |
|
./pkg/pp81/pp81_ri_number.F |
133 |
PP81_RI_NUMBER |
RiTmp(I,J) = RiNumber(I,J) |
|
./pkg/pp81/pp81_ri_number.F |
137 |
PP81_RI_NUMBER |
DO I=1-Olx+1,sNx+Olx-1 |
|
./pkg/pp81/pp81_ri_number.F |
138 |
PP81_RI_NUMBER |
RiNumber(I,J) = p5*RiTmp(I,J) |
|
./pkg/pp81/pp81_ri_number.F |
139 |
PP81_RI_NUMBER |
& + p125*RiTmp(I-1,J) + p125*RiTmp(I+1,J) |
|
./pkg/pp81/pp81_ri_number.F |
140 |
PP81_RI_NUMBER |
& + p125*RiTmp(I,J-1) + p125*RiTmp(I,J+1) |
|
./pkg/pp81/pp81_ri_number.F |
62 |
PP81_RI_NUMBER |
INTEGER I,J,Km1 |
|
./pkg/ptracers/ptracers_set_iolabel.F |
10 |
NO PROCEDURE |
INTEGER NLL, I |
|
./pkg/ptracers/ptracers_set_iolabel.F |
15 |
NO PROCEDURE |
DO I=1, NLL |
|
./pkg/ptracers/ptracers_set_iolabel.F |
16 |
NO PROCEDURE |
PRINT *, LL(I) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
61 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-R_low(I,J,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
46 |
SALT_PLUME_TENDENCY_APPLY_S |
plumefrac(I,J) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
61 |
SALT_PLUME_TENDENCY_APPLY_S |
plumefrac(I,J) = plumekb(1)*maskC(i,j,klev,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
64 |
SALT_PLUME_TENDENCY_APPLY_S |
& +saltPlumeFlux(i,j,bi,bj)*plumefrac(I,J)*mass2rUnit |
|
./eesupp/src/bar2.F |
101 |
BAR2 |
INTEGER I |
|
./eesupp/src/bar2.F |
140 |
BAR2 |
DO I = 2, nThreads |
|
./eesupp/src/bar2.F |
141 |
BAR2 |
IF ( BAR2_level(1,1) .EQ. BAR2_level(1,I)-1 ) nDone = nDone+1 |
|
./eesupp/src/bar2.F |
37 |
BAR2_INIT |
INTEGER I |
|
./eesupp/src/bar2.F |
41 |
BAR2_INIT |
DO I = 1, lShare4 |
|
./eesupp/src/bar2.F |
42 |
BAR2_INIT |
BAR2_level(I,myThid) = 0 |
|
./eesupp/src/bar2.F |
43 |
BAR2_INIT |
BAR2_barrierCount(I,myThid) = 0 |
|
./eesupp/src/bar2.F |
44 |
BAR2_INIT |
BAR2_spinsCount(I,myThid) = 0 |
|
./eesupp/src/bar2.F |
45 |
BAR2_INIT |
BAR2_spinsCount(I,myThid) = 0 |
|
./eesupp/src/bar2.F |
46 |
BAR2_INIT |
BAR2_spinsMax (I,myThid) = 0 |
|
./eesupp/src/bar2.F |
47 |
BAR2_INIT |
BAR2_spinsMin (I,myThid) = 1000000000 |
|
./model/src/do_oceanic_phys.F |
142 |
DO_OCEANIC_PHYS |
addmass(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/seaice/advect.F |
103 |
ADVECT |
DO I=0,sNx+1 |
|
./pkg/seaice/advect.F |
106 |
ADVECT |
fld(I,J,bi,bj)=fldNm1(I,J,bi,bj) |
|
./pkg/seaice/advect.F |
108 |
ADVECT |
& ( tmpFld(I ,J ,bi,bj)+tmpFld(I+1,J ,bi,bj)) |
|
./pkg/seaice/advect.F |
109 |
ADVECT |
& * UI(I+1,J, bi,bj) - |
|
./pkg/seaice/advect.F |
110 |
ADVECT |
& ( tmpFld(I ,J ,bi,bj)+tmpFld(I-1,J ,bi,bj)) |
|
./pkg/seaice/advect.F |
111 |
ADVECT |
& * UI(I ,J, bi,bj) )*maskInC(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
112 |
ADVECT |
& *(HALF * _recip_dxF(I,J,bi,bj)) |
|
./pkg/seaice/advect.F |
114 |
ADVECT |
& ( tmpFld(I ,J ,bi,bj)+tmpFld(I ,J+1,bi,bj)) |
|
./pkg/seaice/advect.F |
115 |
ADVECT |
& * VI(I ,J+1, bi,bj) |
|
./pkg/seaice/advect.F |
116 |
ADVECT |
& * _dxG(I ,J+1,bi,bj) - |
|
./pkg/seaice/advect.F |
117 |
ADVECT |
& ( tmpFld(I ,J ,bi,bj)+tmpFld(I ,J-1,bi,bj)) |
|
./pkg/seaice/advect.F |
118 |
ADVECT |
& * VI(I ,J , bi,bj) |
|
./pkg/seaice/advect.F |
119 |
ADVECT |
& * _dxG(I,J,bi,bj))*maskInC(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
120 |
ADVECT |
& *(HALF * _recip_dyF(I,J,bi,bj) * _recip_dxF(I,J,bi,bj)) |
|
./pkg/seaice/advect.F |
131 |
ADVECT |
DO I=1,sNx+1 |
|
./pkg/seaice/advect.F |
132 |
ADVECT |
afx(I,J) = _dyG(I,J,bi,bj) * UI(I,J,bi,bj) |
|
./pkg/seaice/advect.F |
133 |
ADVECT |
& * 0.5 _d 0 * (tmpFld(I,J,bi,bj)+tmpFld(I-1,J,bi,bj)) |
|
./pkg/seaice/advect.F |
134 |
ADVECT |
afy(I,J) = _dxG(I,J,bi,bj) * VI(I,J,bi,bj) |
|
./pkg/seaice/advect.F |
135 |
ADVECT |
& * 0.5 _d 0 * (tmpFld(I,J,bi,bj)+tmpFld(I,J-1,bi,bj)) |
|
./pkg/seaice/advect.F |
139 |
ADVECT |
DO I=1,sNx |
|
./pkg/seaice/advect.F |
140 |
ADVECT |
fld(I,J,bi,bj)=fldNm1(I,J,bi,bj) |
|
./pkg/seaice/advect.F |
142 |
ADVECT |
& afx(I+1,J) - afx(I,J) |
|
./pkg/seaice/advect.F |
143 |
ADVECT |
& + afy(I,J+1) - afy(I,J) |
|
./pkg/seaice/advect.F |
144 |
ADVECT |
& )*recip_rA(I,J,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
177 |
ADVECT |
DIFFA(I,J,bi,bj)= |
|
./pkg/seaice/advect.F |
178 |
ADVECT |
& DIFF1*MIN( _dxF(I,J,bi,bj), _dyF(I,J,bi,bj)) |
|
./pkg/seaice/advect.F |
189 |
ADVECT |
DIFFA(I,J,bi,bj)= |
|
./pkg/seaice/advect.F |
190 |
ADVECT |
& -(MIN( _dxF(I,J,bi,bj), _dyF(I,J,bi,bj)))**2/DELTT |
|
./pkg/seaice/advect.F |
202 |
ADVECT |
fld(I,J,bi,bj)=(fld(I,J,bi,bj)+tmpFld(i,j,bi,bj)) |
|
./pkg/seaice/advect.F |
203 |
ADVECT |
& *iceMsk(I,J,bi,bj) |
|
./pkg/seaice/advect.F |
53 |
ADVECT |
fldNm1(i,j,bi,bj) = fld(I,J,bi,bj) |
|
./pkg/seaice/advect.F |
78 |
ADVECT |
tmpFld(i,j,bi,bj)=HALF*(fld(I,J,bi,bj) |
|
./pkg/seaice/advect.F |
91 |
ADVECT |
DO I=1-Olx,sNx+Olx |
|
./pkg/seaice/advect.F |
92 |
ADVECT |
afx(I,J) = 0. _d 0 |
|
./pkg/seaice/advect.F |
93 |
ADVECT |
afy(I,J) = 0. _d 0 |
|
./pkg/seaice/diffus.F |
100 |
DIFFUS |
& + dfy(I,J+1) - dfy(I,J) |
|
./pkg/seaice/diffus.F |
101 |
DIFFUS |
& ) * recip_rA(I,J,bi,bj) |
|
./pkg/seaice/diffus.F |
115 |
DIFFUS |
fld(I,J,bi,bj)=iceFld(I,J,bi,bj) |
|
./pkg/seaice/diffus.F |
47 |
DIFFUS |
iceFld(I,J,bi,bj)=0.0 _d 0 |
|
./pkg/seaice/diffus.F |
55 |
DIFFUS |
DELTXX1=DELTT*DIFFA(I,J,bi,bj) |
|
./pkg/seaice/diffus.F |
56 |
DIFFUS |
DELTYY1=DELTT*DIFFA(I,J,bi,bj) |
|
./pkg/seaice/diffus.F |
57 |
DIFFUS |
DELTXX=DELTXX1 * _recip_dxF(I,J,bi,bj)* _recip_dxF(I,J,bi,bj) |
|
./pkg/seaice/diffus.F |
58 |
DIFFUS |
DELTYY=DELTYY1 * _recip_dyF(I,J,bi,bj)* _recip_dyF(I,J,bi,bj) |
|
./pkg/seaice/diffus.F |
59 |
DIFFUS |
& * _recip_dxF(I,J,bi,bj) |
|
./pkg/seaice/diffus.F |
60 |
DIFFUS |
iceFld(I,J,bi,bj)=DELTXX*( |
|
./pkg/seaice/diffus.F |
61 |
DIFFUS |
& (fld(I+1,J,bi,bj)-fld(I, J,bi,bj)) |
|
./pkg/seaice/diffus.F |
62 |
DIFFUS |
& *iceMsk(I+1,J,bi,bj) |
|
./pkg/seaice/diffus.F |
63 |
DIFFUS |
& -(fld(I, J,bi,bj)-fld(I-1,J,bi,bj)) |
|
./pkg/seaice/diffus.F |
64 |
DIFFUS |
& *iceMsk(I-1,J,bi,bj)) |
|
./pkg/seaice/diffus.F |
66 |
DIFFUS |
& (fld(I,J+1,bi,bj)-fld(I,J, bi,bj)) |
|
./pkg/seaice/diffus.F |
67 |
DIFFUS |
& * _dxG(I+1,J+1,bi,bj)*iceMsk(I,J+1,bi,bj) |
|
./pkg/seaice/diffus.F |
68 |
DIFFUS |
& -(fld(I,J, bi,bj)-fld(I,J-1,bi,bj)) |
|
./pkg/seaice/diffus.F |
69 |
DIFFUS |
& * _dxG(I+1,J, bi,bj)*iceMsk(I,J-1,bi,bj)) |
|
./pkg/seaice/diffus.F |
75 |
DIFFUS |
DO I=1-Olx,sNx+Olx |
|
./pkg/seaice/diffus.F |
76 |
DIFFUS |
dfx(I,J) = 0. _d 0 |
|
./pkg/seaice/diffus.F |
77 |
DIFFUS |
dfy(I,J) = 0. _d 0 |
|
./pkg/seaice/diffus.F |
82 |
DIFFUS |
DO I=1,sNx+1 |
|
./pkg/seaice/diffus.F |
83 |
DIFFUS |
dfx(I,J) = _dyG(I,J,bi,bj) * _recip_dxC(I,J,bi,bj) |
|
./pkg/seaice/diffus.F |
84 |
DIFFUS |
& * (fld(I,J,bi,bj)-fld(I-1,J,bi,bj)) |
|
./pkg/seaice/diffus.F |
86 |
DIFFUS |
& * iceMsk(I,J,bi,bj) * iceMsk(I-1,J,bi,bj) |
|
./pkg/seaice/diffus.F |
87 |
DIFFUS |
dfy(I,J) = _dxG(I,J,bi,bj) * _recip_dyC(I,J,bi,bj) |
|
./pkg/seaice/diffus.F |
88 |
DIFFUS |
& * (fld(I,J,bi,bj)-fld(I,J-1,bi,bj)) |
|
./pkg/seaice/diffus.F |
92 |
DIFFUS |
& * iceMsk(I,J,bi,bj) * iceMsk(I,J-1,bi,bj) |
|
./pkg/seaice/diffus.F |
96 |
DIFFUS |
DO I=1,sNx |
|
./pkg/seaice/diffus.F |
97 |
DIFFUS |
iceFld(I,J,bi,bj)= |
|
./pkg/seaice/diffus.F |
98 |
DIFFUS |
& DELTT*DIFFA(I,J,bi,bj) * ( |
|
./pkg/seaice/diffus.F |
99 |
DIFFUS |
& dfx(I+1,J) - dfx(I,J) |
|
./pkg/seaice/dynsolver.F |
100 |
DYNSOLVER |
AMASS(I,J,bi,bj)=RHOICE*QUART*( |
|
./pkg/seaice/dynsolver.F |
103 |
DYNSOLVER |
COR_ICE(I,J,bi,bj)=AMASS(I,J,bi,bj) * _fCoriG(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
117 |
DYNSOLVER |
U1=QUART*(UWIND(I-1,J-1,bi,bj)+UWIND(I-1,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
118 |
DYNSOLVER |
& +UWIND(I ,J-1,bi,bj)+UWIND(I ,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
119 |
DYNSOLVER |
V1=QUART*(VWIND(I-1,J-1,bi,bj)+VWIND(I-1,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
120 |
DYNSOLVER |
& +VWIND(I ,J-1,bi,bj)+VWIND(I ,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
128 |
DYNSOLVER |
DAIRN(I,J,bi,bj)=RHOAIR*OCEAN_drag |
|
./pkg/seaice/dynsolver.F |
130 |
DYNSOLVER |
WINDX(I,J,bi,bj)=DAIRN(I,J,bi,bj)* |
|
./pkg/seaice/dynsolver.F |
131 |
DYNSOLVER |
& (COSWIN*U1-SIGN(SINWIN, _fCori(I,J,bi,bj))*V1) |
|
./pkg/seaice/dynsolver.F |
132 |
DYNSOLVER |
WINDY(I,J,bi,bj)=DAIRN(I,J,bi,bj)* |
|
./pkg/seaice/dynsolver.F |
133 |
DYNSOLVER |
& (SIGN(SINWIN, _fCori(I,J,bi,bj))*U1+COSWIN*V1) |
|
./pkg/seaice/dynsolver.F |
136 |
DYNSOLVER |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/dynsolver.F |
137 |
DYNSOLVER |
DAIRN(I,J,bi,bj) = |
|
./pkg/seaice/dynsolver.F |
138 |
DYNSOLVER |
& RHOAIR*(SEAICE_drag_south*AAA*AREA(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
140 |
DYNSOLVER |
& +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
142 |
DYNSOLVER |
DAIRN(I,J,bi,bj) = |
|
./pkg/seaice/dynsolver.F |
143 |
DYNSOLVER |
& RHOAIR*(SEAICE_drag*AAA*AREA(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
145 |
DYNSOLVER |
& +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
147 |
DYNSOLVER |
FORCEX(I,J,bi,bj)=DAIRN(I,J,bi,bj)* |
|
./pkg/seaice/dynsolver.F |
148 |
DYNSOLVER |
& (COSWIN*U1-SIGN(SINWIN, _fCori(I,J,bi,bj))*V1) |
|
./pkg/seaice/dynsolver.F |
149 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=DAIRN(I,J,bi,bj)* |
|
./pkg/seaice/dynsolver.F |
150 |
DYNSOLVER |
& (SIGN(SINWIN, _fCori(I,J,bi,bj))*U1+COSWIN*V1) |
|
./pkg/seaice/dynsolver.F |
189 |
DYNSOLVER |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
190 |
DYNSOLVER |
& -AMASS(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
193 |
DYNSOLVER |
& )*HALF*_recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
194 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
195 |
DYNSOLVER |
& -AMASS(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
198 |
DYNSOLVER |
& )*HALF*_recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
200 |
DYNSOLVER |
FORCEX0(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
201 |
DYNSOLVER |
FORCEY0(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
209 |
DYNSOLVER |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
210 |
DYNSOLVER |
& -COR_ICE(I,J,bi,bj)*GWATY(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
211 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
212 |
DYNSOLVER |
& +COR_ICE(I,J,bi,bj)*GWATX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
214 |
DYNSOLVER |
FORCEX0(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
215 |
DYNSOLVER |
FORCEY0(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
218 |
DYNSOLVER |
PRESS0(I,J,bi,bj)=PSTAR*HEFF(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
219 |
DYNSOLVER |
& *EXP(-20.0 _d 0*(ONE-AREA(I,J,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
221 |
DYNSOLVER |
ZMAX(I,J,bi,bj)=SEAICE_zetaMaxFac*PRESS0(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
223 |
DYNSOLVER |
ZMIN(I,J,bi,bj)=SEAICE_zetaMin |
|
./pkg/seaice/dynsolver.F |
224 |
DYNSOLVER |
PRESS0(I,J,bi,bj)=PRESS0(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
250 |
DYNSOLVER |
UICENM1(I,J,bi,bj)=UICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
251 |
DYNSOLVER |
VICENM1(I,J,bi,bj)=VICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
252 |
DYNSOLVER |
UICEC(I,J,bi,bj)=UICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
253 |
DYNSOLVER |
VICEC(I,J,bi,bj)=VICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
264 |
DYNSOLVER |
E11(I,J,bi,bj)=HALF* _recip_dxF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
265 |
DYNSOLVER |
& (UICE(I+1,J+1,bi,bj)+UICE(I+1,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
266 |
DYNSOLVER |
& -UICE(I, J+1,bi,bj)-UICE(I, J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
268 |
DYNSOLVER |
& (VICE(I+1,J+1,bi,bj)+VICE(I, J+1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
269 |
DYNSOLVER |
& +VICE(I, J, bi,bj)+VICE(I+1,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
270 |
DYNSOLVER |
& * _tanPhiAtU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/dynsolver.F |
271 |
DYNSOLVER |
E22(I,J,bi,bj)=HALF* _recip_dyF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
272 |
DYNSOLVER |
& (VICE(I+1,J+1,bi,bj)+VICE(I,J+1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
273 |
DYNSOLVER |
& -VICE(I+1,J, bi,bj)-VICE(I,J, bi,bj)) |
|
./pkg/seaice/dynsolver.F |
274 |
DYNSOLVER |
E12(I,J,bi,bj)=HALF*(HALF * _recip_dyF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
275 |
DYNSOLVER |
& (UICE(I+1,J+1,bi,bj)+UICE(I,J+1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
276 |
DYNSOLVER |
& -UICE(I+1,J, bi,bj)-UICE(I,J, bi,bj)) |
|
./pkg/seaice/dynsolver.F |
277 |
DYNSOLVER |
& +HALF * _recip_dxF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
278 |
DYNSOLVER |
& (VICE(I+1,J+1,bi,bj)+VICE(I+1,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
279 |
DYNSOLVER |
& -VICE(I, J+1,bi,bj)-VICE(I, J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
281 |
DYNSOLVER |
& (UICE(I+1,J+1,bi,bj)+UICE(I, J+1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
282 |
DYNSOLVER |
& +UICE(I, J, bi,bj)+UICE(I+1,J, bi,bj)) |
|
./pkg/seaice/dynsolver.F |
283 |
DYNSOLVER |
& * _tanPhiAtU(I,J,bi,bj)*recip_rSphere) |
|
./pkg/seaice/dynsolver.F |
285 |
DYNSOLVER |
DELT1=(E11(I,J,bi,bj)**2+E22(I,J,bi,bj)**2)*(ONE+ECM2) |
|
./pkg/seaice/dynsolver.F |
286 |
DYNSOLVER |
& +4.0 _d 0*ECM2*E12(I,J,bi,bj)**2 |
|
./pkg/seaice/dynsolver.F |
287 |
DYNSOLVER |
1 +TWO*E11(I,J,bi,bj)*E22(I,J,bi,bj)*(ONE-ECM2) |
|
./pkg/seaice/dynsolver.F |
293 |
DYNSOLVER |
ZETA(I,J,bi,bj)=HALF*PRESS0(I,J,bi,bj)/DELT2 |
|
./pkg/seaice/dynsolver.F |
295 |
DYNSOLVER |
ZETA(I,J,bi,bj)=MIN(ZMAX(I,J,bi,bj),ZETA(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
296 |
DYNSOLVER |
ZETA(I,J,bi,bj)=MAX(ZMIN(I,J,bi,bj),ZETA(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
298 |
DYNSOLVER |
ZETA(I,J,bi,bj)=ZETA(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
299 |
DYNSOLVER |
ETA(I,J,bi,bj)=ECM2*ZETA(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
300 |
DYNSOLVER |
PRESS(I,J,bi,bj)=TWO*ZETA(I,J,bi,bj)*DELT2 |
|
./pkg/seaice/dynsolver.F |
316 |
DYNSOLVER |
TEMPVAR=(UICE(I,J,bi,bj)-GWATX(I,J,bi,bj))**2 |
|
./pkg/seaice/dynsolver.F |
317 |
DYNSOLVER |
& +(VICE(I,J,bi,bj)-GWATY(I,J,bi,bj))**2 |
|
./pkg/seaice/dynsolver.F |
318 |
DYNSOLVER |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/dynsolver.F |
320 |
DYNSOLVER |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/dynsolver.F |
322 |
DYNSOLVER |
DWATN(I,J,bi,bj)=SEAICE_waterDrag_south*SQRT(TEMPVAR) |
|
./pkg/seaice/dynsolver.F |
326 |
DYNSOLVER |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/dynsolver.F |
328 |
DYNSOLVER |
DWATN(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR) |
|
./pkg/seaice/dynsolver.F |
332 |
DYNSOLVER |
DRAGS(I,J,bi,bj)=DWATN(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/dynsolver.F |
334 |
DYNSOLVER |
DRAGA(I,J,bi,bj)=DWATN(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
335 |
DYNSOLVER |
& *SIGN(SINWAT, _fCori(I,J,bi,bj))+COR_ICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
337 |
DYNSOLVER |
FORCEX(I,J,bi,bj)=FORCEX0(I,J,bi,bj)+DWATN(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
338 |
DYNSOLVER |
& *(COSWAT*GWATX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
339 |
DYNSOLVER |
& -SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATY(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
340 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=FORCEY0(I,J,bi,bj)+DWATN(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
341 |
DYNSOLVER |
& *(SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
342 |
DYNSOLVER |
& +COSWAT*GWATY(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
344 |
DYNSOLVER |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
345 |
DYNSOLVER |
& -QUART * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
346 |
DYNSOLVER |
& *(PRESS(I, J,bi,bj) + PRESS(I, J-1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
347 |
DYNSOLVER |
& - PRESS(I-1,J,bi,bj) - PRESS(I-1,J-1,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
348 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
349 |
DYNSOLVER |
& -QUART * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
350 |
DYNSOLVER |
& *(PRESS(I,J, bi,bj) + PRESS(I-1,J, bi,bj) |
|
./pkg/seaice/dynsolver.F |
351 |
DYNSOLVER |
& - PRESS(I,J-1,bi,bj) - PRESS(I-1,J-1,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
369 |
DYNSOLVER |
UICE(I,J,bi,bj)=HALF*(UICE(I,J,bi,bj)+UICENM1(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
370 |
DYNSOLVER |
VICE(I,J,bi,bj)=HALF*(VICE(I,J,bi,bj)+VICENM1(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
371 |
DYNSOLVER |
UICEC(I,J,bi,bj)=UICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
372 |
DYNSOLVER |
VICEC(I,J,bi,bj)=VICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
383 |
DYNSOLVER |
E11(I,J,bi,bj)=HALF * _recip_dxF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
384 |
DYNSOLVER |
& (UICE(I+1,J+1,bi,bj)+UICE(I+1,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
385 |
DYNSOLVER |
& -UICE(I, J+1,bi,bj)-UICE(I, J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
387 |
DYNSOLVER |
& (VICE(I+1,J+1,bi,bj)+VICE(I, J+1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
388 |
DYNSOLVER |
& +VICE(I, J, bi,bj)+VICE(I+1,J, bi,bj)) |
|
./pkg/seaice/dynsolver.F |
389 |
DYNSOLVER |
& * _tanPhiAtU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/dynsolver.F |
390 |
DYNSOLVER |
E22(I,J,bi,bj)=HALF * _recip_dyF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
391 |
DYNSOLVER |
& (VICE(I+1,J+1,bi,bj)+VICE(I,J+1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
392 |
DYNSOLVER |
& -VICE(I+1,J, bi,bj)-VICE(I,J, bi,bj)) |
|
./pkg/seaice/dynsolver.F |
393 |
DYNSOLVER |
E12(I,J,bi,bj)=HALF*(HALF * _recip_dyF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
394 |
DYNSOLVER |
& (UICE(I+1,J+1,bi,bj)+UICE(I,J+1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
395 |
DYNSOLVER |
& -UICE(I+1,J, bi,bj)-UICE(I,J, bi,bj)) |
|
./pkg/seaice/dynsolver.F |
396 |
DYNSOLVER |
& +HALF * _recip_dxF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
397 |
DYNSOLVER |
& (VICE(I+1,J+1,bi,bj)+VICE(I+1,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
398 |
DYNSOLVER |
& -VICE(I, J+1,bi,bj)-VICE(I, J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
400 |
DYNSOLVER |
& (UICE(I+1,J+1,bi,bj)+UICE(I, J+1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
401 |
DYNSOLVER |
& +UICE(I, J, bi,bj)+UICE(I+1,J, bi,bj)) |
|
./pkg/seaice/dynsolver.F |
402 |
DYNSOLVER |
& * _tanPhiAtU(I,J,bi,bj)*recip_rSphere) |
|
./pkg/seaice/dynsolver.F |
404 |
DYNSOLVER |
DELT1=(E11(I,J,bi,bj)**2+E22(I,J,bi,bj)**2)*(ONE+ECM2) |
|
./pkg/seaice/dynsolver.F |
405 |
DYNSOLVER |
& +4. _d 0*ECM2*E12(I,J,bi,bj)**2 |
|
./pkg/seaice/dynsolver.F |
406 |
DYNSOLVER |
1 +TWO*E11(I,J,bi,bj)*E22(I,J,bi,bj)*(ONE-ECM2) |
|
./pkg/seaice/dynsolver.F |
412 |
DYNSOLVER |
ZETA(I,J,bi,bj)=HALF*PRESS0(I,J,bi,bj)/DELT2 |
|
./pkg/seaice/dynsolver.F |
414 |
DYNSOLVER |
ZETA(I,J,bi,bj)=MIN(ZMAX(I,J,bi,bj),ZETA(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
415 |
DYNSOLVER |
ZETA(I,J,bi,bj)=MAX(ZMIN(I,J,bi,bj),ZETA(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
417 |
DYNSOLVER |
ZETA(I,J,bi,bj)=ZETA(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
418 |
DYNSOLVER |
ETA(I,J,bi,bj)=ECM2*ZETA(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
419 |
DYNSOLVER |
PRESS(I,J,bi,bj)=TWO*ZETA(I,J,bi,bj)*DELT2 |
|
./pkg/seaice/dynsolver.F |
435 |
DYNSOLVER |
TEMPVAR=(UICE(I,J,bi,bj)-GWATX(I,J,bi,bj))**2 |
|
./pkg/seaice/dynsolver.F |
436 |
DYNSOLVER |
& +(VICE(I,J,bi,bj)-GWATY(I,J,bi,bj))**2 |
|
./pkg/seaice/dynsolver.F |
437 |
DYNSOLVER |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/dynsolver.F |
439 |
DYNSOLVER |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/dynsolver.F |
441 |
DYNSOLVER |
DWATN(I,J,bi,bj)=SEAICE_waterDrag_south*SQRT(TEMPVAR) |
|
./pkg/seaice/dynsolver.F |
445 |
DYNSOLVER |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/dynsolver.F |
447 |
DYNSOLVER |
DWATN(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR) |
|
./pkg/seaice/dynsolver.F |
451 |
DYNSOLVER |
DRAGS(I,J,bi,bj)=DWATN(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/dynsolver.F |
453 |
DYNSOLVER |
DRAGA(I,J,bi,bj)=DWATN(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
454 |
DYNSOLVER |
& *SIGN(SINWAT, _fCori(I,J,bi,bj))+COR_ICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
456 |
DYNSOLVER |
FORCEX(I,J,bi,bj)=FORCEX0(I,J,bi,bj)+DWATN(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
457 |
DYNSOLVER |
& *(COSWAT*GWATX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
458 |
DYNSOLVER |
& -SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATY(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
459 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=FORCEY0(I,J,bi,bj)+DWATN(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
460 |
DYNSOLVER |
& *(SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
461 |
DYNSOLVER |
& +COSWAT*GWATY(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
463 |
DYNSOLVER |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
464 |
DYNSOLVER |
& -QUART * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
465 |
DYNSOLVER |
& *(PRESS(I, J,bi,bj) + PRESS(I, J-1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
466 |
DYNSOLVER |
& - PRESS(I-1,J,bi,bj) - PRESS(I-1,J-1,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
467 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
468 |
DYNSOLVER |
& -QUART * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
469 |
DYNSOLVER |
& *(PRESS(I,J, bi,bj) + PRESS(I-1,J, bi,bj) |
|
./pkg/seaice/dynsolver.F |
470 |
DYNSOLVER |
& - PRESS(I,J-1,bi,bj) - PRESS(I-1,J-1,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
79 |
DYNSOLVER |
GWATX(I,J,bi,bj)=HALF*(uVel(i,j,KGEO(I,J,bi,bj),bi,bj) |
|
./pkg/seaice/dynsolver.F |
80 |
DYNSOLVER |
& +uVel(i,j-1,KGEO(I,J,bi,bj),bi,bj)) |
|
./pkg/seaice/dynsolver.F |
81 |
DYNSOLVER |
GWATY(I,J,bi,bj)=HALF*(vVel(i,j,KGEO(I,J,bi,bj),bi,bj) |
|
./pkg/seaice/dynsolver.F |
82 |
DYNSOLVER |
& +vVel(i-1,j,KGEO(I,J,bi,bj),bi,bj)) |
|
./pkg/seaice/lsr.F |
117 |
LSR |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
118 |
LSR |
& +AMASS(I,J,bi,bj)/SEAICE_deltaTdyn*UICENM1(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
119 |
LSR |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
120 |
LSR |
& +AMASS(I,J,bi,bj)/SEAICE_deltaTdyn*VICENM1(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
121 |
LSR |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
122 |
LSR |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
123 |
LSR |
etaPlusZeta(I,J,bi,bj) = ETA(I,J,bi,bj)+ZETA(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
124 |
LSR |
zetaMinusEta(I,J,bi,bj) = ZETA(I,J,bi,bj)-ETA(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
129 |
LSR |
ETAMEAN(I,J,bi,bj) =QUART*( |
|
./pkg/seaice/lsr.F |
130 |
LSR |
& ETA(I,J-1,bi,bj) + ETA(I-1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
131 |
LSR |
& +ETA(I,J ,bi,bj) + ETA(I-1,J ,bi,bj)) |
|
./pkg/seaice/lsr.F |
132 |
LSR |
ZETAMEAN(I,J,bi,bj)=QUART*( |
|
./pkg/seaice/lsr.F |
133 |
LSR |
& ZETA(I,J-1,bi,bj) + ZETA(I-1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
134 |
LSR |
& +ZETA(I,J ,bi,bj) + ZETA(I-1,J ,bi,bj)) |
|
./pkg/seaice/lsr.F |
144 |
LSR |
DO I=1,sNx |
|
./pkg/seaice/lsr.F |
145 |
LSR |
AA1=( etaPlusZeta(I ,J-1,bi,bj) * _recip_dxF(I ,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
146 |
LSR |
& +etaPlusZeta(I ,J ,bi,bj) * _recip_dxF(I ,J ,bi,bj) |
|
./pkg/seaice/lsr.F |
147 |
LSR |
& )*0.5 _d 0 * _recip_dxV(I,J,bi,bj) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
148 |
LSR |
AA2=( etaPlusZeta(I-1,J-1,bi,bj) * _recip_dxF(I-1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
149 |
LSR |
& +etaPlusZeta(I-1,J ,bi,bj) * _recip_dxF(I-1,J ,bi,bj) |
|
./pkg/seaice/lsr.F |
150 |
LSR |
& )*0.5 _d 0 * _recip_dxV(I,J,bi,bj) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
151 |
LSR |
AA3= 0.5 _d 0 *(ETA(I-1,J ,bi,bj)+ETA(I,J ,bi,bj)) |
|
./pkg/seaice/lsr.F |
152 |
LSR |
AA4= 0.5 _d 0 *(ETA(I-1,J-1,bi,bj)+ETA(I,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
153 |
LSR |
AA5= -(AA3-AA4) * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
154 |
LSR |
& * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
155 |
LSR |
AA6=TWO*ETAMEAN(I,J,bi,bj) *recip_rSphere*recip_rSphere |
|
./pkg/seaice/lsr.F |
156 |
LSR |
& * _tanPhiAtV(I,J,bi,bj) * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
157 |
LSR |
AU(I,J,bi,bj)=-AA2 |
|
./pkg/seaice/lsr.F |
158 |
LSR |
CU(I,J,bi,bj)=-AA1 |
|
./pkg/seaice/lsr.F |
159 |
LSR |
BU(I,J,bi,bj)=(ONE-UVM(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
160 |
LSR |
& - AU(I,J,bi,bj) - CU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
161 |
LSR |
& + ((AA3+AA4)*_recip_dyU(I,J,bi,bj)*_recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
163 |
LSR |
& + AMASS(I,J,bi,bj)/SEAICE_deltaTdyn |
|
./pkg/seaice/lsr.F |
164 |
LSR |
& + DRAGS(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
165 |
LSR |
& )*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
177 |
LSR |
DO I=1-Olx,sNx+Olx-1 |
|
./pkg/seaice/lsr.F |
178 |
LSR |
dVdy(I,J) = 0.5 _d 0 * ( |
|
./pkg/seaice/lsr.F |
179 |
LSR |
& ( VICEC(I+1,J+1,bi,bj) - VICEC(I+1,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
180 |
LSR |
& * _recip_dyG(I+1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
181 |
LSR |
& +(VICEC(I ,J+1,bi,bj) - VICEC(I ,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
182 |
LSR |
& * _recip_dyG(I, J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
183 |
LSR |
dVdx(I,J) = 0.5 _d 0 * ( |
|
./pkg/seaice/lsr.F |
184 |
LSR |
& ( VICEC(I+1,J+1,bi,bj) - VICEC(I ,J+1,bi,bj) ) |
|
./pkg/seaice/lsr.F |
185 |
LSR |
& * _recip_dxG(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
186 |
LSR |
& +(VICEC(I+1,J ,bi,bj) - VICEC(I ,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
187 |
LSR |
& * _recip_dxG(I,J, bi,bj) ) |
|
./pkg/seaice/lsr.F |
201 |
LSR |
DO I=1,sNx |
|
./pkg/seaice/lsr.F |
202 |
LSR |
FXY(I,J,bi,bj)=DRAGA(I,J,bi,bj)*VICEC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
203 |
LSR |
& +FORCEX(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
213 |
LSR |
& + ( zetaMinusEta(I ,J ,bi,bj) * dVdy(I ,J ) |
|
./pkg/seaice/lsr.F |
214 |
LSR |
& + zetaMinusEta(I ,J-1,bi,bj) * dVdy(I ,J-1) |
|
./pkg/seaice/lsr.F |
215 |
LSR |
& - zetaMinusEta(I-1,J ,bi,bj) * dVdy(I-1,J ) |
|
./pkg/seaice/lsr.F |
216 |
LSR |
& - zetaMinusEta(I-1,J-1,bi,bj) * dVdy(I-1,J-1) |
|
./pkg/seaice/lsr.F |
217 |
LSR |
& )* 0.5 _d 0 * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
220 |
LSR |
& + ( ETA (I ,J ,bi,bj) * dVdx(I ,J ) |
|
./pkg/seaice/lsr.F |
221 |
LSR |
& + ETA (I-1,J ,bi,bj) * dVdx(I-1,J ) |
|
./pkg/seaice/lsr.F |
222 |
LSR |
& - ETA (I ,J-1,bi,bj) * dVdx(I ,J-1) |
|
./pkg/seaice/lsr.F |
223 |
LSR |
& - ETA (I-1,J-1,bi,bj) * dVdx(I-1,J-1) |
|
./pkg/seaice/lsr.F |
224 |
LSR |
& ) * 0.5 _d 0 * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
226 |
LSR |
& -(etaPlusZeta(I ,J ,bi,bj)+etaPlusZeta(I ,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
227 |
LSR |
& -etaPlusZeta(I-1,J-1,bi,bj)-etaPlusZeta(I-1,J ,bi,bj)) |
|
./pkg/seaice/lsr.F |
228 |
LSR |
& * VICEC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
229 |
LSR |
& * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
230 |
LSR |
& * 0.5 _d 0 * _recip_dxV(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
232 |
LSR |
& -(ETAMEAN(I,J,bi,bj)+ZETAMEAN(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
233 |
LSR |
& *(VICEC(I+1,J,bi,bj) - VICEC(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
234 |
LSR |
& * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
235 |
LSR |
& * 1.0 _d 0 /( _dxG(I,J,bi,bj) + _dxG(I-1,J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
238 |
LSR |
& -ETAMEAN(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
239 |
LSR |
& *(VICEC(I+1,J,bi,bj) - VICEC(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
240 |
LSR |
& *TWO* _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
241 |
LSR |
& * 1.0 _d 0 /( _dxG(I,J,bi,bj) + _dxG(I-1,J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
244 |
LSR |
UVRT1(I,J,bi,bj)= |
|
./pkg/seaice/lsr.F |
245 |
LSR |
& 0.5 _d 0 * (ETA(I-1,J-1,bi,bj)+ETA(I,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
246 |
LSR |
& * _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
247 |
LSR |
& - ETAMEAN(I,J,bi,bj) * _tanPhiAtV(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
248 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
249 |
LSR |
& + TWO*ETAMEAN(I,J,bi,bj) * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
250 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
251 |
LSR |
UVRT2(I,J,bi,bj)= |
|
./pkg/seaice/lsr.F |
252 |
LSR |
& 0.5 _d 0 * (ETA(I-1,J,bi,bj)+ETA(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
253 |
LSR |
& * _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
254 |
LSR |
& + ETAMEAN(I,J,bi,bj) * _tanPhiAtV(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
255 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
256 |
LSR |
& - TWO*ETAMEAN(I,J,bi,bj) * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
257 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
281 |
LSR |
DO I=1,sNx |
|
./pkg/seaice/lsr.F |
282 |
LSR |
UTMP(I,J,bi,bj)=UICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
287 |
LSR |
DO I=1,sNx |
|
./pkg/seaice/lsr.F |
288 |
LSR |
IF(I.EQ.1) THEN |
|
./pkg/seaice/lsr.F |
289 |
LSR |
AA2=(etaPlusZeta(I-1,J-1,bi,bj) * _recip_dxF(I-1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
290 |
LSR |
& +etaPlusZeta(I-1,J ,bi,bj) * _recip_dxF(I-1,J ,bi,bj) |
|
./pkg/seaice/lsr.F |
291 |
LSR |
& )*0.5 _d 0 * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
292 |
LSR |
AA3=AA2*UICE(I-1,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
293 |
LSR |
ELSE IF(I.EQ.sNx) THEN |
|
./pkg/seaice/lsr.F |
294 |
LSR |
AA1=(etaPlusZeta(I ,J-1,bi,bj) * _recip_dxF(I ,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
295 |
LSR |
& +etaPlusZeta(I ,J ,bi,bj) * _recip_dxF(I ,J ,bi,bj) |
|
./pkg/seaice/lsr.F |
296 |
LSR |
& )*0.5 _d 0 * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
297 |
LSR |
AA3=AA1*UICE(I+1,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
301 |
LSR |
URT(I)=FXY(I,J,bi,bj)+AA3 |
|
./pkg/seaice/lsr.F |
302 |
LSR |
& +UVRT1(I,J,bi,bj)*UICE(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
303 |
LSR |
& +UVRT2(I,J,bi,bj)*UICE(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
304 |
LSR |
URT(I)=URT(I)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
307 |
LSR |
DO I=1,sNx |
|
./pkg/seaice/lsr.F |
308 |
LSR |
CUU(I)=CU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
311 |
LSR |
DO I=2,sNx |
|
./pkg/seaice/lsr.F |
312 |
LSR |
IM=I-1 |
|
./pkg/seaice/lsr.F |
313 |
LSR |
CUU(I)=CUU(I)/(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM)) |
|
./pkg/seaice/lsr.F |
314 |
LSR |
URT(I)=(URT(I)-AU(I,J,bi,bj)*URT(IM)) |
|
./pkg/seaice/lsr.F |
315 |
LSR |
& /(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM)) |
|
./pkg/seaice/lsr.F |
317 |
LSR |
DO I=1,sNx-1 |
|
./pkg/seaice/lsr.F |
318 |
LSR |
J1=sNx-I |
|
./pkg/seaice/lsr.F |
322 |
LSR |
DO I=1,sNx |
|
./pkg/seaice/lsr.F |
323 |
LSR |
UICE(I,J,bi,bj)=UTMP(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
324 |
LSR |
& +WFAU*(URT(I)-UTMP(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
337 |
LSR |
DO I=1,sNx |
|
./pkg/seaice/lsr.F |
338 |
LSR |
UERR(I,J,bi,bj)=(UICE(I,J,bi,bj)-UTMP(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
339 |
LSR |
& *UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
340 |
LSR |
S1=MAX(ABS(UERR(I,J,bi,bj)),S1) |
|
./pkg/seaice/lsr.F |
371 |
LSR |
DO I=1,sNx |
|
./pkg/seaice/lsr.F |
372 |
LSR |
AA1=0.5 _d 0 * _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
373 |
LSR |
& * (etaPlusZeta(I-1,J ,bi,bj) + etaPlusZeta(I,J ,bi,bj)) |
|
./pkg/seaice/lsr.F |
374 |
LSR |
AA2=0.5 _d 0 * _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
375 |
LSR |
& * (etaPlusZeta(I-1,J-1,bi,bj) + etaPlusZeta(I,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
376 |
LSR |
AA3= (ETA(I ,J-1,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
377 |
LSR |
& +ETA(I ,J ,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
378 |
LSR |
& )* 0.5 _d 0 * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
379 |
LSR |
AA4= (ETA(I-1,J-1,bi,bj)+ETA(I-1,J,bi,bj))*0.5 _d 0 |
|
./pkg/seaice/lsr.F |
380 |
LSR |
& *_recip_dxV(I,J,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
381 |
LSR |
AA5=(zetaMinusEta(I-1,J ,bi,bj) + zetaMinusEta(I,J ,bi,bj) |
|
./pkg/seaice/lsr.F |
382 |
LSR |
& -zetaMinusEta(I-1,J-1,bi,bj) - zetaMinusEta(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
383 |
LSR |
& )* _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
384 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
386 |
LSR |
AA6=TWO*ETAMEAN(I,J,bi,bj) * recip_rSphere*recip_rSphere |
|
./pkg/seaice/lsr.F |
387 |
LSR |
& * _tanPhiAtV(I,J,bi,bj) * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
389 |
LSR |
AV(I,J,bi,bj)=( |
|
./pkg/seaice/lsr.F |
391 |
LSR |
& - (ZETAMEAN(I,J,bi,bj)-ETAMEAN(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
392 |
LSR |
& * _tanPhiAtV(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
393 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
394 |
LSR |
& -ETAMEAN(I,J,bi,bj)*TWO* _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
395 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
396 |
LSR |
& )*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
397 |
LSR |
CV(I,J,bi,bj)=( |
|
./pkg/seaice/lsr.F |
399 |
LSR |
& +(ZETAMEAN(I,J,bi,bj)-ETAMEAN(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
400 |
LSR |
& * _tanPhiAtV(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
401 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
402 |
LSR |
& +ETAMEAN(I,J,bi,bj)*TWO* _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
403 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
404 |
LSR |
& )*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
405 |
LSR |
BV(I,J,bi,bj)= (ONE-UVM(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
407 |
LSR |
& +AMASS(I,J,bi,bj)/SEAICE_deltaTdyn+DRAGS(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
408 |
LSR |
& *UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
412 |
LSR |
DO I=1,sNx |
|
./pkg/seaice/lsr.F |
413 |
LSR |
AV(I,1,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
414 |
LSR |
CV(I,sNy,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
415 |
LSR |
CV(I,1,bi,bj)=CV(I,1,bi,bj)/BV(I,1,bi,bj) |
|
./pkg/seaice/lsr.F |
420 |
LSR |
DO I=1-Olx,sNx+Olx-1 |
|
./pkg/seaice/lsr.F |
421 |
LSR |
dUdx(I,J) = 0.5 _d 0 * ( |
|
./pkg/seaice/lsr.F |
422 |
LSR |
& ( UICEC(I+1,J+1,bi,bj) - UICEC(I ,J+1,bi,bj) ) |
|
./pkg/seaice/lsr.F |
423 |
LSR |
& * _recip_dxG(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
424 |
LSR |
& +(UICEC(I+1,J ,bi,bj) - UICEC(I ,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
425 |
LSR |
& * _recip_dxG(I,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
426 |
LSR |
dUdy(I,J) = 0.5 _d 0 * ( |
|
./pkg/seaice/lsr.F |
427 |
LSR |
& ( UICEC(I+1,J+1,bi,bj) - UICEC(I+1,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
428 |
LSR |
& * _recip_dyG(I+1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
429 |
LSR |
& +(UICEC(I ,J+1,bi,bj) - UICEC(I ,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
430 |
LSR |
& * _recip_dyG(I, J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
444 |
LSR |
DO I=1,sNx |
|
./pkg/seaice/lsr.F |
445 |
LSR |
FXY(I,J,bi,bj)=-DRAGA(I,J,bi,bj)*UICEC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
446 |
LSR |
& +FORCEY(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
457 |
LSR |
& + ( zetaMinusEta(I ,J ,bi,bj) * dUdx(I ,J ) |
|
./pkg/seaice/lsr.F |
458 |
LSR |
& + zetaMinusEta(I-1,J ,bi,bj) * dUdx(I-1,J ) |
|
./pkg/seaice/lsr.F |
459 |
LSR |
& - zetaMinusEta(I ,J-1,bi,bj) * dUdx(I ,J-1) |
|
./pkg/seaice/lsr.F |
460 |
LSR |
& - zetaMinusEta(I-1,J-1,bi,bj) * dUdx(I-1,J-1) |
|
./pkg/seaice/lsr.F |
461 |
LSR |
& )* 0.5 _d 0 * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
464 |
LSR |
& + ( ETA (I ,J ,bi,bj) * dUdy(I ,J ) |
|
./pkg/seaice/lsr.F |
465 |
LSR |
& + ETA (I ,J-1,bi,bj) * dUdy(I ,J-1) |
|
./pkg/seaice/lsr.F |
466 |
LSR |
& - ETA (I-1,J ,bi,bj) * dUdy(I-1,J ) |
|
./pkg/seaice/lsr.F |
467 |
LSR |
& - ETA (I-1,J-1,bi,bj) * dUdy(I-1,J-1) |
|
./pkg/seaice/lsr.F |
468 |
LSR |
& )*0.5 _d 0* _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
470 |
LSR |
& +(ETA(I ,J ,bi,bj) + ETA(I ,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
471 |
LSR |
& -ETA(I-1,J-1,bi,bj) - ETA(I-1,J ,bi,bj)) |
|
./pkg/seaice/lsr.F |
472 |
LSR |
& * UICEC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
473 |
LSR |
& * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
474 |
LSR |
& * 0.5 _d 0 * _recip_dxV(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
475 |
LSR |
& +ETAMEAN(I,J,bi,bj) * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
476 |
LSR |
& *(UICEC(I+1,J,bi,bj)-UICEC(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
477 |
LSR |
& * 0.5 _d 0 * _recip_dxV(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
479 |
LSR |
& +ETAMEAN(I,J,bi,bj)*TWO * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
480 |
LSR |
& *(UICEC(I+1,J,bi,bj)-UICEC(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
481 |
LSR |
& * 1. _d 0 /( _dxG(I,J,bi,bj) + _dxG(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
483 |
LSR |
UVRT1(I,J,bi,bj)= 0.5 _d 0 * ( |
|
./pkg/seaice/lsr.F |
484 |
LSR |
& ETA(I-1,J-1,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
485 |
LSR |
& +ETA(I-1,J ,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
486 |
LSR |
& ) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
487 |
LSR |
UVRT2(I,J,bi,bj)= 0.5 _d 0 * ( |
|
./pkg/seaice/lsr.F |
488 |
LSR |
& ETA(I ,J-1,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
489 |
LSR |
& +ETA(I ,J ,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
490 |
LSR |
& ) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
516 |
LSR |
DO I=1,sNx |
|
./pkg/seaice/lsr.F |
517 |
LSR |
VTMP(I,J,bi,bj)=VICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
521 |
LSR |
DO I=1,sNx |
|
./pkg/seaice/lsr.F |
524 |
LSR |
AA2= _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
526 |
LSR |
& etaPlusZeta(I-1,J-1,bi,bj) + etaPlusZeta(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
529 |
LSR |
& +( ZETAMEAN(I,J,bi,bj)-ETAMEAN(I,J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
530 |
LSR |
& * _tanPhiAtV(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
531 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
532 |
LSR |
& + ETAMEAN(I,J,bi,bj)*TWO* _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
533 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere ) |
|
./pkg/seaice/lsr.F |
534 |
LSR |
& *VICE(I,J-1,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
536 |
LSR |
AA1= _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
538 |
LSR |
& etaPlusZeta(I-1,J,bi,bj) + etaPlusZeta(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
541 |
LSR |
& -( ZETAMEAN(I,J,bi,bj)-ETAMEAN(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
542 |
LSR |
& * _tanPhiAtV(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
543 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
544 |
LSR |
& - ETAMEAN(I,J,bi,bj)*TWO* _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
545 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere ) |
|
./pkg/seaice/lsr.F |
546 |
LSR |
& *VICE(I,J+1,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
551 |
LSR |
VRT(J)=FXY(I,J,bi,bj)+AA3+UVRT1(I,J,bi,bj)*VICE(I-1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
552 |
LSR |
& +UVRT2(I,J,bi,bj)*VICE(I+1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
553 |
LSR |
VRT(J)=VRT(J)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
557 |
LSR |
CVV(J)=CV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
559 |
LSR |
VRT(1)=VRT(1)/BV(I,1,bi,bj) |
|
./pkg/seaice/lsr.F |
562 |
LSR |
CVV(J)=CVV(J)/(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(JM)) |
|
./pkg/seaice/lsr.F |
563 |
LSR |
VRT(J)=(VRT(J)-AV(I,J,bi,bj)*VRT(JM)) |
|
./pkg/seaice/lsr.F |
564 |
LSR |
& /(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(JM)) |
|
./pkg/seaice/lsr.F |
572 |
LSR |
VICE(I,J,bi,bj)=VTMP(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
573 |
LSR |
& +WFAV*(VRT(J)-VTMP(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
585 |
LSR |
DO I=1,sNx |
|
./pkg/seaice/lsr.F |
586 |
LSR |
UERR(I,J,bi,bj)=(VICE(I,J,bi,bj)-VTMP(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
587 |
LSR |
& *UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
588 |
LSR |
S2=MAX(ABS(UERR(I,J,bi,bj)),S2) |
|
./pkg/seaice/lsr.F |
620 |
LSR |
DO I=1,sNx |
|
./pkg/seaice/lsr.F |
621 |
LSR |
UICE(I,J,bi,bj)=UICE(I,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
622 |
LSR |
VICE(I,J,bi,bj)=VICE(I,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/ostres.F |
55 |
OSTRES |
fu(I,J,bi,bj)=HALF |
|
./pkg/seaice/ostres.F |
56 |
OSTRES |
& *(WINDX(I,J+1,bi,bj)+WINDX(I,J,bi,bj)) |
|
./pkg/seaice/ostres.F |
57 |
OSTRES |
fv(I,J,bi,bj)=HALF |
|
./pkg/seaice/ostres.F |
58 |
OSTRES |
& *(WINDY(I+1,J,bi,bj)+WINDY(I,J,bi,bj)) |
|
./pkg/seaice/ostres.F |
72 |
OSTRES |
fuIce=QUART*( DWATN(I,J,bi,bj)+DWATN(I,J+1,bi,bj) )*( |
|
./pkg/seaice/ostres.F |
74 |
OSTRES |
& ( UICE(I,J, bi,bj)-GWATX(I,J, bi,bj) |
|
./pkg/seaice/ostres.F |
75 |
OSTRES |
& + UICE(I,J+1,bi,bj)-GWATX(I,J+1,bi,bj) ) |
|
./pkg/seaice/ostres.F |
76 |
OSTRES |
& -SIGN(SINWAT,COR_ICE(I,J,bi,bj)) * |
|
./pkg/seaice/ostres.F |
77 |
OSTRES |
& ( VICE(I, J,bi,bj)-GWATY(I, J,bi,bj) |
|
./pkg/seaice/ostres.F |
78 |
OSTRES |
& + VICE(I+1,J,bi,bj)-GWATY(I+1,J,bi,bj) ) |
|
./pkg/seaice/ostres.F |
80 |
OSTRES |
fvIce=QUART*( DWATN(I,J,bi,bj)+DWATN(I+1,J,bi,bj) )*( |
|
./pkg/seaice/ostres.F |
81 |
OSTRES |
& SIGN(SINWAT,COR_ICE(I,J,bi,bj)) * |
|
./pkg/seaice/ostres.F |
82 |
OSTRES |
& ( UICE(I,J, bi,bj)-GWATX(I,J, bi,bj) |
|
./pkg/seaice/ostres.F |
83 |
OSTRES |
& + UICE(I,J+1,bi,bj)-GWATX(I,J+1,bi,bj) ) |
|
./pkg/seaice/ostres.F |
85 |
OSTRES |
& ( VICE(I, J,bi,bj)-GWATY(I, J,bi,bj) |
|
./pkg/seaice/ostres.F |
86 |
OSTRES |
& + VICE(I+1,J,bi,bj)-GWATY(I+1,J,bi,bj) ) |
|
./pkg/seaice/ostres.F |
88 |
OSTRES |
fu(I,J,bi,bj)=(ONE-AREA(I,J,bi,bj))*fu(I,J,bi,bj)+ |
|
./pkg/seaice/ostres.F |
89 |
OSTRES |
& AREA(I,J,bi,bj)*fuIce |
|
./pkg/seaice/ostres.F |
90 |
OSTRES |
fv(I,J,bi,bj)=(ONE-AREA(I,J,bi,bj))*fv(I,J,bi,bj)+ |
|
./pkg/seaice/ostres.F |
91 |
OSTRES |
& AREA(I,J,bi,bj)*fvIce |
|
./pkg/seaice/seaice_advdiff.F |
103 |
SEAICE_ADVDIFF |
vc(i,j,bi,bj)=.5 _d 0*(VICE(i,j,bi,bj)+VICE(I+1,J,bi,bj)) |
|
./pkg/seaice/seaice_advdiff.F |
370 |
SEAICE_ADVDIFF |
IceAge(I,J,bi,bj) = IceAge(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
371 |
SEAICE_ADVDIFF |
& / MAX(ONE,AREA(I,J,bi,bj)) |
|
./pkg/seaice/seaice_advdiff.F |
373 |
SEAICE_ADVDIFF |
AREA(I,J,bi,bj) = MIN(ONE,AREA(I,J,bi,bj)) |
|
./pkg/seaice/seaice_advdiff.F |
384 |
SEAICE_ADVDIFF |
DO I=1,sNx |
|
./pkg/seaice/seaice_advdiff.F |
385 |
SEAICE_ADVDIFF |
IF ( AREA(I,J,bi,bj) .GT. 0.15 ) THEN |
|
./pkg/seaice/seaice_advdiff.F |
387 |
SEAICE_ADVDIFF |
& AREA(I,J,bi,bj) * SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_budget_ice_if.F |
126 |
SEAICE_BUDGET_ICE_IF |
DO I=1,sNx |
|
./pkg/seaice/seaice_budget_ice_if.F |
127 |
SEAICE_BUDGET_ICE_IF |
IcePenetSWFlux (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_budget_ice_if.F |
128 |
SEAICE_BUDGET_ICE_IF |
IcePenetSWFluxFrac (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_budget_ice_if.F |
129 |
SEAICE_BUDGET_ICE_IF |
AbsorbedSWFlux (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_budget_ice_if.F |
131 |
SEAICE_BUDGET_ICE_IF |
qhice_mm (I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_budget_ice_if.F |
132 |
SEAICE_BUDGET_ICE_IF |
F_ia (I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_budget_ice_if.F |
133 |
SEAICE_BUDGET_ICE_IF |
F_io_net (I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_budget_ice_if.F |
134 |
SEAICE_BUDGET_ICE_IF |
F_ia_net (I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_budget_ice_if.F |
136 |
SEAICE_BUDGET_ICE_IF |
F_swi (I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_budget_ice_if.F |
137 |
SEAICE_BUDGET_ICE_IF |
F_lwd (I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_budget_ice_if.F |
138 |
SEAICE_BUDGET_ICE_IF |
F_lwu (I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_budget_ice_if.F |
139 |
SEAICE_BUDGET_ICE_IF |
F_lh (I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_budget_ice_if.F |
140 |
SEAICE_BUDGET_ICE_IF |
F_sens (I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_budget_ice_if.F |
151 |
SEAICE_BUDGET_ICE_IF |
tsurfLoc(I,J) = TMELT |
|
./pkg/seaice/seaice_budget_ice_if.F |
152 |
SEAICE_BUDGET_ICE_IF |
TSURF(I,J,bi,bj) = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
154 |
SEAICE_BUDGET_ICE_IF |
atempLoc (I,J) = MAX(TMELT + MIN_ATEMP,ATEMP(I,J,bi,bj)) |
|
./pkg/seaice/seaice_budget_ice_if.F |
155 |
SEAICE_BUDGET_ICE_IF |
lwdownLoc(I,J) = LWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ice_if.F |
163 |
SEAICE_BUDGET_ICE_IF |
DO I=1,sNx |
|
./pkg/seaice/seaice_budget_ice_if.F |
165 |
SEAICE_BUDGET_ICE_IF |
IF (HICE_ACTUAL(I,J) .GT. 0.0) THEN |
|
./pkg/seaice/seaice_budget_ice_if.F |
168 |
SEAICE_BUDGET_ICE_IF |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_budget_ice_if.F |
169 |
SEAICE_BUDGET_ICE_IF |
IF (tsurfLoc(I,J) .GE. TMELT) THEN |
|
./pkg/seaice/seaice_budget_ice_if.F |
170 |
SEAICE_BUDGET_ICE_IF |
IF (HSNOW_ACTUAL(I,J) .EQ. 0.0) THEN |
|
./pkg/seaice/seaice_budget_ice_if.F |
171 |
SEAICE_BUDGET_ICE_IF |
ALB(I,J) = SEAICE_wetIceAlb_south |
|
./pkg/seaice/seaice_budget_ice_if.F |
173 |
SEAICE_BUDGET_ICE_IF |
ALB(I,J) = SEAICE_wetSnowAlb_south |
|
./pkg/seaice/seaice_budget_ice_if.F |
176 |
SEAICE_BUDGET_ICE_IF |
IF (HSNOW_ACTUAL(I,J) .EQ. 0.0) THEN |
|
./pkg/seaice/seaice_budget_ice_if.F |
177 |
SEAICE_BUDGET_ICE_IF |
ALB(I,J) = SEAICE_dryIceAlb_south |
|
./pkg/seaice/seaice_budget_ice_if.F |
179 |
SEAICE_BUDGET_ICE_IF |
ALB(I,J) = SEAICE_drySnowAlb_south |
|
./pkg/seaice/seaice_budget_ice_if.F |
183 |
SEAICE_BUDGET_ICE_IF |
IF (tsurfLoc(I,J) .GE. TMELT) THEN |
|
./pkg/seaice/seaice_budget_ice_if.F |
184 |
SEAICE_BUDGET_ICE_IF |
IF (HSNOW_ACTUAL(I,J) .EQ. 0.0) THEN |
|
./pkg/seaice/seaice_budget_ice_if.F |
185 |
SEAICE_BUDGET_ICE_IF |
ALB(I,J) = SEAICE_wetIceAlb |
|
./pkg/seaice/seaice_budget_ice_if.F |
187 |
SEAICE_BUDGET_ICE_IF |
ALB(I,J) = SEAICE_wetSnowAlb |
|
./pkg/seaice/seaice_budget_ice_if.F |
190 |
SEAICE_BUDGET_ICE_IF |
IF (HSNOW_ACTUAL(I,J) .EQ. 0.0) THEN |
|
./pkg/seaice/seaice_budget_ice_if.F |
191 |
SEAICE_BUDGET_ICE_IF |
ALB(I,J) = SEAICE_dryIceAlb |
|
./pkg/seaice/seaice_budget_ice_if.F |
193 |
SEAICE_BUDGET_ICE_IF |
ALB(I,J) = SEAICE_drySnowAlb |
|
./pkg/seaice/seaice_budget_ice_if.F |
198 |
SEAICE_BUDGET_ICE_IF |
F_lwd(I,J) = - 0.97 _d 0 * lwdownLoc(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
200 |
SEAICE_BUDGET_ICE_IF |
IF (HSNOW_ACTUAL(I,J) .GT. 0.0) THEN |
|
./pkg/seaice/seaice_budget_ice_if.F |
201 |
SEAICE_BUDGET_ICE_IF |
IcePenetSWFluxFrac(I,J) = ZERO |
|
./pkg/seaice/seaice_budget_ice_if.F |
203 |
SEAICE_BUDGET_ICE_IF |
IcePenetSWFluxFrac(I,J) = |
|
./pkg/seaice/seaice_budget_ice_if.F |
204 |
SEAICE_BUDGET_ICE_IF |
& XIO*EXP(-1.5 _d 0 * HICE_ACTUAL(I,J)) |
|
./pkg/seaice/seaice_budget_ice_if.F |
207 |
SEAICE_BUDGET_ICE_IF |
AbsorbedSWFlux(I,J) = -(ONE - ALB(I,J))* |
|
./pkg/seaice/seaice_budget_ice_if.F |
208 |
SEAICE_BUDGET_ICE_IF |
& (1.0 - IcePenetSWFluxFrac(I,J)) |
|
./pkg/seaice/seaice_budget_ice_if.F |
209 |
SEAICE_BUDGET_ICE_IF |
& *SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ice_if.F |
211 |
SEAICE_BUDGET_ICE_IF |
IcePenetSWFlux(I,J) = -(ONE - ALB(I,J))* |
|
./pkg/seaice/seaice_budget_ice_if.F |
212 |
SEAICE_BUDGET_ICE_IF |
& IcePenetSWFluxFrac(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
213 |
SEAICE_BUDGET_ICE_IF |
& *SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ice_if.F |
215 |
SEAICE_BUDGET_ICE_IF |
F_swi(I,J) = AbsorbedSWFlux(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
218 |
SEAICE_BUDGET_ICE_IF |
HICE_ACTUAL(I,J) = max(HICE_ACTUAL(I,J),5. _d -2) |
|
./pkg/seaice/seaice_budget_ice_if.F |
221 |
SEAICE_BUDGET_ICE_IF |
& (XKS * HICE_ACTUAL(I,J) + XKI * HSNOW_ACTUAL(I,J)) |
|
./pkg/seaice/seaice_budget_ice_if.F |
225 |
SEAICE_BUDGET_ICE_IF |
t1 = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
237 |
SEAICE_BUDGET_ICE_IF |
qhice_mm(I,J) = bb1*mm_pi / (Ppascals - (1.0 - bb1) * mm_pi) |
|
./pkg/seaice/seaice_budget_ice_if.F |
245 |
SEAICE_BUDGET_ICE_IF |
dFiDTs1 = 4.0 * D3*t3 + effConduct + D1*UG(I,J) + |
|
./pkg/seaice/seaice_budget_ice_if.F |
246 |
SEAICE_BUDGET_ICE_IF |
& D1I*UG(I,J)*dqhice_dTice |
|
./pkg/seaice/seaice_budget_ice_if.F |
249 |
SEAICE_BUDGET_ICE_IF |
F_lh(I,J) = D1I * UG(I,J) * (qhice_mm(I,J)-AQH(I,J,bi,bj)) |
|
./pkg/seaice/seaice_budget_ice_if.F |
250 |
SEAICE_BUDGET_ICE_IF |
F_c(I,J) = -effConduct * (TB - t1) |
|
./pkg/seaice/seaice_budget_ice_if.F |
251 |
SEAICE_BUDGET_ICE_IF |
F_lwu(I,J) = t4 * D3 |
|
./pkg/seaice/seaice_budget_ice_if.F |
252 |
SEAICE_BUDGET_ICE_IF |
F_sens(I,J) = D1 * UG(I,J) * (t1 - atempLoc(I,J)) |
|
./pkg/seaice/seaice_budget_ice_if.F |
254 |
SEAICE_BUDGET_ICE_IF |
F_ia(I,J) = F_lwd(I,J) + F_swi(I,J) + F_lwu(I,J) + |
|
./pkg/seaice/seaice_budget_ice_if.F |
255 |
SEAICE_BUDGET_ICE_IF |
& F_c(I,J) + F_sens(I,J) + F_lh(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
257 |
SEAICE_BUDGET_ICE_IF |
tsurfLoc(I,J) = tsurfLoc(I,J) - F_ia(I,J) / dFiDTs1 |
|
./pkg/seaice/seaice_budget_ice_if.F |
265 |
SEAICE_BUDGET_ICE_IF |
IF (tsurfLoc(I,J) .LT. 50.0 ) THEN |
|
./pkg/seaice/seaice_budget_ice_if.F |
266 |
SEAICE_BUDGET_ICE_IF |
tsurfLoc(I,J) = TMELT |
|
./pkg/seaice/seaice_budget_ice_if.F |
270 |
SEAICE_BUDGET_ICE_IF |
IF ( (I .EQ. SEAICE_debugPointX) .and. |
|
./pkg/seaice/seaice_budget_ice_if.F |
273 |
SEAICE_BUDGET_ICE_IF |
print *,'ice-iter tsurfLc,|dif|', I,J, ITER,tsurfLoc(I,J), |
|
./pkg/seaice/seaice_budget_ice_if.F |
274 |
SEAICE_BUDGET_ICE_IF |
& log10(abs(tsurfLoc(I,J) - tsurfLocOld)) |
|
./pkg/seaice/seaice_budget_ice_if.F |
279 |
SEAICE_BUDGET_ICE_IF |
tsurfLoc(I,J) = MIN(tsurfLoc(I,J),TMELT) |
|
./pkg/seaice/seaice_budget_ice_if.F |
280 |
SEAICE_BUDGET_ICE_IF |
TSURF(I,J,bi,bj) = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
282 |
SEAICE_BUDGET_ICE_IF |
t1 = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
292 |
SEAICE_BUDGET_ICE_IF |
qhice_mm(I,J) = bb1*mm_pi / (Ppascals - (1.0 - bb1) * mm_pi) |
|
./pkg/seaice/seaice_budget_ice_if.F |
294 |
SEAICE_BUDGET_ICE_IF |
F_lh(I,J) = D1I * UG(I,J) * (qhice_mm(I,J)-AQH(I,J,bi,bj)) |
|
./pkg/seaice/seaice_budget_ice_if.F |
295 |
SEAICE_BUDGET_ICE_IF |
F_c(I,J) = -effConduct * (TB - t1) |
|
./pkg/seaice/seaice_budget_ice_if.F |
296 |
SEAICE_BUDGET_ICE_IF |
F_lwu(I,J) = t4 * D3 |
|
./pkg/seaice/seaice_budget_ice_if.F |
297 |
SEAICE_BUDGET_ICE_IF |
F_sens(I,J) = D1 * UG(I,J) * (t1 - atempLoc(I,J)) |
|
./pkg/seaice/seaice_budget_ice_if.F |
300 |
SEAICE_BUDGET_ICE_IF |
F_ia(I,J) = F_lwd(I,J) + F_swi(I,J) + F_lwu(I,J) + |
|
./pkg/seaice/seaice_budget_ice_if.F |
301 |
SEAICE_BUDGET_ICE_IF |
& F_sens(I,J) + F_lh(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
303 |
SEAICE_BUDGET_ICE_IF |
IF (F_c(I,J) .LT. 0.0) THEN |
|
./pkg/seaice/seaice_budget_ice_if.F |
304 |
SEAICE_BUDGET_ICE_IF |
F_io_net(I,J) = -F_c(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
305 |
SEAICE_BUDGET_ICE_IF |
F_ia_net(I,J) = 0.0 |
|
./pkg/seaice/seaice_budget_ice_if.F |
307 |
SEAICE_BUDGET_ICE_IF |
F_io_net(I,J) = 0.0 |
|
./pkg/seaice/seaice_budget_ice_if.F |
308 |
SEAICE_BUDGET_ICE_IF |
F_ia_net(I,J) = F_lwd(I,J) + F_swi(I,J) + F_lwu(I,J) + |
|
./pkg/seaice/seaice_budget_ice_if.F |
309 |
SEAICE_BUDGET_ICE_IF |
& F_sens(I,J) + F_lh(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
314 |
SEAICE_BUDGET_ICE_IF |
IF ( (I .EQ. SEAICE_debugPointX) .and. |
|
./pkg/seaice/seaice_budget_ice_if.F |
318 |
SEAICE_BUDGET_ICE_IF |
& 'ibi i j T(SURF, surfLoc,atmos)',I,J, |
|
./pkg/seaice/seaice_budget_ice_if.F |
319 |
SEAICE_BUDGET_ICE_IF |
& TSURF(I,J,bi,bj), tsurfLoc(I,J),atempLoc(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
322 |
SEAICE_BUDGET_ICE_IF |
& 'ibi i j QSW(Tot, Abs, Pen) ',I,J, |
|
./pkg/seaice/seaice_budget_ice_if.F |
323 |
SEAICE_BUDGET_ICE_IF |
& SWDOWN(I,J,bi,bj), AbsorbedSWFlux(I,J), |
|
./pkg/seaice/seaice_budget_ice_if.F |
324 |
SEAICE_BUDGET_ICE_IF |
& IcePenetSWFlux(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
327 |
SEAICE_BUDGET_ICE_IF |
& 'ibi i j IcePenSWFluxFrac, Alb ',I,J, |
|
./pkg/seaice/seaice_budget_ice_if.F |
328 |
SEAICE_BUDGET_ICE_IF |
^ IcePenetSWFluxFrac(I,J), ALB(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
331 |
SEAICE_BUDGET_ICE_IF |
& 'ibi i j qh(ATM ICE) ',I,J, |
|
./pkg/seaice/seaice_budget_ice_if.F |
332 |
SEAICE_BUDGET_ICE_IF |
& AQH(I,J,bi,bj),qhice_mm(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
335 |
SEAICE_BUDGET_ICE_IF |
& 'ibi i j F(lwd,swi,lwu) ',I,J, |
|
./pkg/seaice/seaice_budget_ice_if.F |
336 |
SEAICE_BUDGET_ICE_IF |
& F_lwd(I,J), F_swi(I,J), F_lwu(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
339 |
SEAICE_BUDGET_ICE_IF |
& 'ibi i j F(c,lh,sens) ',I,J, |
|
./pkg/seaice/seaice_budget_ice_if.F |
340 |
SEAICE_BUDGET_ICE_IF |
& F_c(I,J), F_lh(I,J), F_sens(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
343 |
SEAICE_BUDGET_ICE_IF |
& 'ibi i j F(io_net,ia_net,ia) ',I,J, |
|
./pkg/seaice/seaice_budget_ice_if.F |
344 |
SEAICE_BUDGET_ICE_IF |
& F_io_net(I,J), F_ia_net(I,J), F_ia(I,J) |
|
./pkg/seaice/seaice_budget_ocean.F |
100 |
SEAICE_BUDGET_OCEAN |
DO I=1,sNx |
|
./pkg/seaice/seaice_budget_ocean.F |
102 |
SEAICE_BUDGET_OCEAN |
netHeatFlux(I,J) = Qnet(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
103 |
SEAICE_BUDGET_OCEAN |
SWHeatFlux (I,J) = Qsw(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
105 |
SEAICE_BUDGET_OCEAN |
ALB(I,J)=SEAICE_waterAlbedo |
|
./pkg/seaice/seaice_budget_ocean.F |
107 |
SEAICE_BUDGET_OCEAN |
A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
108 |
SEAICE_BUDGET_OCEAN |
& +lwdownLoc(I,J)*0.97 _d 0 |
|
./pkg/seaice/seaice_budget_ocean.F |
109 |
SEAICE_BUDGET_OCEAN |
& +D1*UG(I,J)*atempLoc(I,J)+D1W*UG(I,J)*AQH(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
110 |
SEAICE_BUDGET_OCEAN |
B(I,J)=QS1*6.11 _d +00*EXP(17.2694 _d +00 |
|
./pkg/seaice/seaice_budget_ocean.F |
111 |
SEAICE_BUDGET_OCEAN |
& *(tsurfLoc(I,J)-TMELT) |
|
./pkg/seaice/seaice_budget_ocean.F |
112 |
SEAICE_BUDGET_OCEAN |
& /(tsurfLoc(I,J)-TMELT+237.3 _d +00)) |
|
./pkg/seaice/seaice_budget_ocean.F |
113 |
SEAICE_BUDGET_OCEAN |
A2(I,J)=-D1*UG(I,J)*tsurfLoc(I,J)-D1W*UG(I,J)*B(I,J) |
|
./pkg/seaice/seaice_budget_ocean.F |
114 |
SEAICE_BUDGET_OCEAN |
& -D3*(tsurfLoc(I,J)**4) |
|
./pkg/seaice/seaice_budget_ocean.F |
115 |
SEAICE_BUDGET_OCEAN |
netHeatFlux(I,J)=-A1(I,J)-A2(I,J) |
|
./pkg/seaice/seaice_budget_ocean.F |
116 |
SEAICE_BUDGET_OCEAN |
SWHeatFlux (I,J)=-(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
81 |
SEAICE_BUDGET_OCEAN |
DO I=1,sNx |
|
./pkg/seaice/seaice_budget_ocean.F |
82 |
SEAICE_BUDGET_OCEAN |
netHeatFlux(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_budget_ocean.F |
83 |
SEAICE_BUDGET_OCEAN |
SWHeatFlux (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_budget_ocean.F |
85 |
SEAICE_BUDGET_OCEAN |
tsurfLoc (I,J) = MIN(273.16 _d 0+MAX_TICE,TSURF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_budget_ocean.F |
88 |
SEAICE_BUDGET_OCEAN |
atempLoc (I,J) = MAX(273.16 _d 0+MIN_ATEMP,ATEMP(I,J,bi,bj)) |
|
./pkg/seaice/seaice_budget_ocean.F |
91 |
SEAICE_BUDGET_OCEAN |
lwdownLoc(I,J) = MAX(MIN_LWDOWN,LWDOWN(I,J,bi,bj)) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
100 |
SEAICE_BUDGET_OCEAN_IF |
atempLoc (I,J) = MAX(273.16 _d 0+MIN_ATEMP,ATEMP(I,J,bi,bj)) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
101 |
SEAICE_BUDGET_OCEAN_IF |
lwdownLoc(I,J) = MAX(MIN_LWDOWN,LWDOWN(I,J,bi,bj)) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
109 |
SEAICE_BUDGET_OCEAN_IF |
DO I=1,sNx |
|
./pkg/seaice/seaice_budget_ocean_if.F |
111 |
SEAICE_BUDGET_OCEAN_IF |
netHeatFlux(I,J) = Qnet(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
114 |
SEAICE_BUDGET_OCEAN_IF |
SWHeatFlux (I,J) = Qsw(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
116 |
SEAICE_BUDGET_OCEAN_IF |
SWHeatFlux(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_budget_ocean_if.F |
121 |
SEAICE_BUDGET_OCEAN_IF |
if (I .EQ. SEAICE_debugPointX .AND. |
|
./pkg/seaice/seaice_budget_ocean_if.F |
125 |
SEAICE_BUDGET_OCEAN_IF |
& i,j, netHeatFlux(I,J), SWHeatFlux(I,J) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
130 |
SEAICE_BUDGET_OCEAN_IF |
ALB(I,J)=SEAICE_waterAlbedo |
|
./pkg/seaice/seaice_budget_ocean_if.F |
131 |
SEAICE_BUDGET_OCEAN_IF |
A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
132 |
SEAICE_BUDGET_OCEAN_IF |
& +lwdownLoc(I,J)*0.97 _d 0 |
|
./pkg/seaice/seaice_budget_ocean_if.F |
133 |
SEAICE_BUDGET_OCEAN_IF |
& +D1*UG(I,J)*atempLoc(I,J)+D1W*UG(I,J)*AQH(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
134 |
SEAICE_BUDGET_OCEAN_IF |
B(I,J)=QS1*6.11 _d +00*EXP(17.2694 _d +00 |
|
./pkg/seaice/seaice_budget_ocean_if.F |
135 |
SEAICE_BUDGET_OCEAN_IF |
& *(tsurfLoc(I,J)-TMELT) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
136 |
SEAICE_BUDGET_OCEAN_IF |
& /(tsurfLoc(I,J)-TMELT+237.3 _d +00)) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
137 |
SEAICE_BUDGET_OCEAN_IF |
A2(I,J)=-D1*UG(I,J)*tsurfLoc(I,J)-D1W*UG(I,J)*B(I,J) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
138 |
SEAICE_BUDGET_OCEAN_IF |
& -D3*(tsurfLoc(I,J)**4) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
139 |
SEAICE_BUDGET_OCEAN_IF |
netHeatFlux(I,J)=-A1(I,J)-A2(I,J) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
140 |
SEAICE_BUDGET_OCEAN_IF |
SWHeatFlux (I,J)=-(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean_if.F |
94 |
SEAICE_BUDGET_OCEAN_IF |
DO I=1,sNx |
|
./pkg/seaice/seaice_budget_ocean_if.F |
95 |
SEAICE_BUDGET_OCEAN_IF |
netHeatFlux(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_budget_ocean_if.F |
96 |
SEAICE_BUDGET_OCEAN_IF |
SWHeatFlux (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_budget_ocean_if.F |
98 |
SEAICE_BUDGET_OCEAN_IF |
tsurfLoc (I,J) = MIN(273.16 _d 0+MAX_TICE,TSURF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
100 |
SEAICE_CALC_STRAINRATES |
& * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
101 |
SEAICE_CALC_STRAINRATES |
uave(I,J) = 0.5 _d 0 * (uFld(I,J,bi,bj)+uFld(I ,J-1,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
106 |
SEAICE_CALC_STRAINRATES |
dvdx(I,J) = ( vFld(I,J,bi,bj) - vFld(I-1,J ,bi,bj) ) |
|
./pkg/seaice/seaice_calc_strainrates.F |
107 |
SEAICE_CALC_STRAINRATES |
& * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
108 |
SEAICE_CALC_STRAINRATES |
vave(I,J) = 0.5 _d 0 * (vFld(I,J,bi,bj)+vFld(I-1,J ,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
116 |
SEAICE_CALC_STRAINRATES |
e12Loc(I,J,bi,bj) = 0.5 _d 0 * ( |
|
./pkg/seaice/seaice_calc_strainrates.F |
117 |
SEAICE_CALC_STRAINRATES |
& dudy(I,J) + dvdx(I,J) |
|
./pkg/seaice/seaice_calc_strainrates.F |
118 |
SEAICE_CALC_STRAINRATES |
& - k1AtZ(I,J,bi,bj) * vave(I,J) |
|
./pkg/seaice/seaice_calc_strainrates.F |
119 |
SEAICE_CALC_STRAINRATES |
& - k2AtZ(I,J,bi,bj) * uave(I,J) |
|
./pkg/seaice/seaice_calc_strainrates.F |
121 |
SEAICE_CALC_STRAINRATES |
& *maskC(I ,J ,k,bi,bj)*maskC(I-1,J ,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
122 |
SEAICE_CALC_STRAINRATES |
& *maskC(I ,J-1,k,bi,bj)*maskC(I-1,J-1,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
124 |
SEAICE_CALC_STRAINRATES |
& 2.0 _d 0 * uave(I,J) * _recip_dyU(I,J,bi,bj) * hFacU |
|
./pkg/seaice/seaice_calc_strainrates.F |
125 |
SEAICE_CALC_STRAINRATES |
& + 2.0 _d 0 * vave(I,J) * _recip_dxV(I,J,bi,bj) * hFacV |
|
./pkg/seaice/seaice_calc_strainrates.F |
76 |
SEAICE_CALC_STRAINRATES |
dudx(I,J) = _recip_dxF(I,J,bi,bj) * |
|
./pkg/seaice/seaice_calc_strainrates.F |
77 |
SEAICE_CALC_STRAINRATES |
& (uFld(I+1,J,bi,bj)-uFld(I,J,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
78 |
SEAICE_CALC_STRAINRATES |
uave(I,J) = 0.5 _d 0 * (uFld(I,J,bi,bj)+uFld(I+1,J,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
83 |
SEAICE_CALC_STRAINRATES |
dvdy(I,J) = _recip_dyF(I,J,bi,bj) * |
|
./pkg/seaice/seaice_calc_strainrates.F |
84 |
SEAICE_CALC_STRAINRATES |
& (vFld(I,J+1,bi,bj)-vFld(I,J,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
85 |
SEAICE_CALC_STRAINRATES |
vave(I,J) = 0.5 _d 0 * (vFld(I,J,bi,bj)+vFld(I,J+1,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
91 |
SEAICE_CALC_STRAINRATES |
e11Loc(I,J,bi,bj) = dudx(I,J) + vave(I,J) * k2AtC(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
92 |
SEAICE_CALC_STRAINRATES |
e22Loc(I,J,bi,bj) = dvdy(I,J) + uave(I,J) * k1AtC(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
99 |
SEAICE_CALC_STRAINRATES |
dudy(I,J) = ( uFld(I,J,bi,bj) - uFld(I ,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
100 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = MAX(ZMIN(I,J,bi,bj),zeta(I,J,bi,bj)) |
|
./pkg/seaice/seaice_calc_viscosities.F |
102 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = zeta(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
103 |
SEAICE_CALC_VISCOSITIES |
eta (I,J,bi,bj) = ECM2*zeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
104 |
SEAICE_CALC_VISCOSITIES |
press(I,J,bi,bj) = TWO *zeta(I,J,bi,bj)*deltaC |
|
./pkg/seaice/seaice_calc_viscosities.F |
111 |
SEAICE_CALC_VISCOSITIES |
etaDen = (e11(I,J,bi,bj)-e22(I,J,bi,bj))**2 |
|
./pkg/seaice/seaice_calc_viscosities.F |
114 |
SEAICE_CALC_VISCOSITIES |
etaMax = ( 0.5 _d 0*press(I,J,bi,bj)-zeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
115 |
SEAICE_CALC_VISCOSITIES |
& *( e11(I,J,bi,bj)+e22(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
117 |
SEAICE_CALC_VISCOSITIES |
eta(I,J,bi,bj) = MIN(eta(I,J,bi,bj),etaMax) |
|
./pkg/seaice/seaice_calc_viscosities.F |
80 |
SEAICE_CALC_VISCOSITIES |
e12C(i,j) = 0.25 * ( e12(I,J ,bi,bj) + e12(I+1,J ,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
81 |
SEAICE_CALC_VISCOSITIES |
& + e12(I,J+1,bi,bj) + e12(I+1,J+1,bi,bj) ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
97 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = HALF*press0(I,J,bi,bj)/deltaCreg |
|
./pkg/seaice/seaice_calc_viscosities.F |
99 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = MIN(ZMAX(I,J,bi,bj),zeta(I,J,bi,bj)) |
|
./pkg/seaice/seaice_diagnostics_state.F |
118 |
SEAICE_DIAGNOSTICS_STATE |
sig1 = seaice_sigma1(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
119 |
SEAICE_DIAGNOSTICS_STATE |
sig2 = seaice_sigma2(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
121 |
SEAICE_DIAGNOSTICS_STATE |
& ( seaice_sigma12(I, J, bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
122 |
SEAICE_DIAGNOSTICS_STATE |
& + seaice_sigma12(I+1,J, bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
123 |
SEAICE_DIAGNOSTICS_STATE |
& + seaice_sigma12(I+1,J+1,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
124 |
SEAICE_DIAGNOSTICS_STATE |
& + seaice_sigma12(I ,J+1,bi,bj) ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
127 |
SEAICE_DIAGNOSTICS_STATE |
IF ( press(I,J,bi,bj) .GT. 1. _d -13 ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
128 |
SEAICE_DIAGNOSTICS_STATE |
& recip_prs = 1./press(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
129 |
SEAICE_DIAGNOSTICS_STATE |
sigI (I,J) = 0.5*(sig1 + sigTmp)*recip_prs |
|
./pkg/seaice/seaice_diagnostics_state.F |
130 |
SEAICE_DIAGNOSTICS_STATE |
sigII(I,J) = 0.5*(sig1 - sigTmp)*recip_prs |
|
./pkg/seaice/seaice_diagnostics_state.F |
152 |
SEAICE_DIAGNOSTICS_STATE |
sig1 = 2.*zeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
153 |
SEAICE_DIAGNOSTICS_STATE |
& * (e11(I,J,bi,bj) + e22(I,J,bi,bj)) |
|
./pkg/seaice/seaice_diagnostics_state.F |
154 |
SEAICE_DIAGNOSTICS_STATE |
& - press(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
155 |
SEAICE_DIAGNOSTICS_STATE |
sig2 = 2.* eta(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
156 |
SEAICE_DIAGNOSTICS_STATE |
& * (e11(I,J,bi,bj) - e22(I,J,bi,bj)) |
|
./pkg/seaice/seaice_diagnostics_state.F |
157 |
SEAICE_DIAGNOSTICS_STATE |
sig12 = 2.*eta(I,J,bi,bj) * 0.25 _d 0 * |
|
./pkg/seaice/seaice_diagnostics_state.F |
158 |
SEAICE_DIAGNOSTICS_STATE |
& ( e12(I ,J ,bi,bj) + e12(I+1,J ,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
159 |
SEAICE_DIAGNOSTICS_STATE |
& + e12(I ,J+1,bi,bj) + e12(I+1,J+1,bi,bj) ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
162 |
SEAICE_DIAGNOSTICS_STATE |
IF ( press(I,J,bi,bj) .GT. 1. _d -13 ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
163 |
SEAICE_DIAGNOSTICS_STATE |
& recip_prs = 1./press(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
164 |
SEAICE_DIAGNOSTICS_STATE |
sigI (I,J) = 0.5*(sig1 + sigTmp)*recip_prs |
|
./pkg/seaice/seaice_diagnostics_state.F |
165 |
SEAICE_DIAGNOSTICS_STATE |
sigII(I,J) = 0.5*(sig1 - sigTmp)*recip_prs |
|
./pkg/seaice/seaice_diagnostics_state.F |
73 |
SEAICE_DIAGNOSTICS_STATE |
TICE(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_diagnostics_state.F |
81 |
SEAICE_DIAGNOSTICS_STATE |
TICE(I,J,bi,bj) = TICE(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
82 |
SEAICE_DIAGNOSTICS_STATE |
& + TICES(I,J,K,bi,bj)*recip_multdim |
|
./pkg/seaice/seaice_diffusion.F |
98 |
SEAICE_DIFFUSION |
& *MIN( _dxF(I,J,bi,bj), _dyF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_dynsolver.F |
101 |
SEAICE_DYNSOLVER |
seaiceMassC(I,J,bi,bj)=SEAICE_rhoIce*HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
102 |
SEAICE_DYNSOLVER |
seaiceMassU(I,J,bi,bj)=SEAICE_rhoIce*HALF*( |
|
./pkg/seaice/seaice_dynsolver.F |
104 |
SEAICE_DYNSOLVER |
seaiceMassV(I,J,bi,bj)=SEAICE_rhoIce*HALF*( |
|
./pkg/seaice/seaice_dynsolver.F |
117 |
SEAICE_DYNSOLVER |
seaiceMaskU(I,J,bi,bj)=AREA(i,j,bi,bj)+AREA(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
119 |
SEAICE_DYNSOLVER |
IF ( (seaiceMaskU(I,J,bi,bj) .GT. 0. _d 0) .AND. |
|
./pkg/seaice/seaice_dynsolver.F |
121 |
SEAICE_DYNSOLVER |
seaiceMaskU(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
123 |
SEAICE_DYNSOLVER |
seaiceMaskU(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
125 |
SEAICE_DYNSOLVER |
seaiceMaskV(I,J,bi,bj)=AREA(i,j,bi,bj)+AREA(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
127 |
SEAICE_DYNSOLVER |
IF ( (seaiceMaskV(I,J,bi,bj) .GT. 0. _d 0) .AND. |
|
./pkg/seaice/seaice_dynsolver.F |
129 |
SEAICE_DYNSOLVER |
seaiceMaskV(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
131 |
SEAICE_DYNSOLVER |
seaiceMaskV(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
147 |
SEAICE_DYNSOLVER |
TAUX (I,J,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
148 |
SEAICE_DYNSOLVER |
TAUY (I,J,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
151 |
SEAICE_DYNSOLVER |
stressDivergenceX(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
152 |
SEAICE_DYNSOLVER |
stressDivergenceY(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
202 |
SEAICE_DYNSOLVER |
FORCEX0(I,J,bi,bj)=TAUX(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
203 |
SEAICE_DYNSOLVER |
& -seaiceMassU(I,J,bi,bj)*_recip_dxC(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
205 |
SEAICE_DYNSOLVER |
FORCEY0(I,J,bi,bj)=TAUY(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
206 |
SEAICE_DYNSOLVER |
& -seaiceMassV(I,J,bi,bj)* _recip_dyC(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
214 |
SEAICE_DYNSOLVER |
PRESS0(I,J,bi,bj)=PSTAR*HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
216 |
SEAICE_DYNSOLVER |
ZMAX(I,J,bi,bj) = SEAICE_zetaMaxFac*PRESS0(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
217 |
SEAICE_DYNSOLVER |
ZMIN(I,J,bi,bj) = SEAICE_zetaMin |
|
./pkg/seaice/seaice_dynsolver.F |
218 |
SEAICE_DYNSOLVER |
PRESS0(I,J,bi,bj)= PRESS0(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
256 |
SEAICE_DYNSOLVER |
stressDivergenceX(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
257 |
SEAICE_DYNSOLVER |
stressDivergenceY(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
66 |
SEAICE_DYNSOLVER |
ZMAX(I,J,bi,bj) = SEAICE_zetaMaxFac*PRESS0(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
127 |
SEAICE_EVP |
uIceC(I,J,bi,bj) = uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
128 |
SEAICE_EVP |
vIceC(I,J,bi,bj) = vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
130 |
SEAICE_EVP |
e11 (I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
131 |
SEAICE_EVP |
e22 (I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
132 |
SEAICE_EVP |
e12 (I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
146 |
SEAICE_EVP |
zMax (I,J,bi,bj) = _rA(I,J,bi,bj) * fac |
|
./pkg/seaice/seaice_evp.F |
190 |
SEAICE_EVP |
seaice_div (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
191 |
SEAICE_EVP |
seaice_tension(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
192 |
SEAICE_EVP |
seaice_shear (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
193 |
SEAICE_EVP |
pressC (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
194 |
SEAICE_EVP |
zetaC (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
195 |
SEAICE_EVP |
deltaZ (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
196 |
SEAICE_EVP |
zetaZ (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
197 |
SEAICE_EVP |
deltaC (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
217 |
SEAICE_EVP |
deltaC(I,J) = |
|
./pkg/seaice/seaice_evp.F |
218 |
SEAICE_EVP |
& ep(I,J)**2 + recip_ecc2*em(I,J)**2 |
|
./pkg/seaice/seaice_evp.F |
220 |
SEAICE_EVP |
& ( e12(I, J,bi,bj)**2 + e12(I+1,J+1,bi,bj)**2 |
|
./pkg/seaice/seaice_evp.F |
221 |
SEAICE_EVP |
& + e12(I+1,J,bi,bj)**2 + e12(I, J+1,bi,bj)**2 ) |
|
./pkg/seaice/seaice_evp.F |
222 |
SEAICE_EVP |
deltaZ(I,J) = facZ * |
|
./pkg/seaice/seaice_evp.F |
223 |
SEAICE_EVP |
& ( ep(I,J )**2 + ep(I-1,J )**2 |
|
./pkg/seaice/seaice_evp.F |
224 |
SEAICE_EVP |
& + ep(I,J-1)**2 + ep(I-1,J-1)**2 |
|
./pkg/seaice/seaice_evp.F |
225 |
SEAICE_EVP |
& +(em(I,J )**2 + em(I-1,J )**2 |
|
./pkg/seaice/seaice_evp.F |
226 |
SEAICE_EVP |
& +em(I,J-1)**2 + em(I-1,J-1)**2)*recip_ecc2 |
|
./pkg/seaice/seaice_evp.F |
228 |
SEAICE_EVP |
& + 4. _d 0*recip_ecc2*e12(I,J,bi,bj)**2 |
|
./pkg/seaice/seaice_evp.F |
231 |
SEAICE_EVP |
IF ( deltaC(I,J) .GT. 0. _d 0 ) |
|
./pkg/seaice/seaice_evp.F |
232 |
SEAICE_EVP |
& deltaC(I,J) = SQRT(deltaC(I,J)) |
|
./pkg/seaice/seaice_evp.F |
233 |
SEAICE_EVP |
IF ( deltaZ(I,J) .GT. 0. _d 0 ) |
|
./pkg/seaice/seaice_evp.F |
234 |
SEAICE_EVP |
& deltaZ(I,J) = SQRT(deltaZ(I,J)) |
|
./pkg/seaice/seaice_evp.F |
236 |
SEAICE_EVP |
deltaC(I,J) = SQRT(deltaC(I,J)) |
|
./pkg/seaice/seaice_evp.F |
237 |
SEAICE_EVP |
deltaZ(I,J) = SQRT(deltaZ(I,J)) |
|
./pkg/seaice/seaice_evp.F |
239 |
SEAICE_EVP |
deltaCreg = MAX(deltaC(I,J),SEAICE_EPS) |
|
./pkg/seaice/seaice_evp.F |
240 |
SEAICE_EVP |
deltaZreg = MAX(deltaZ(I,J),SEAICE_EPS) |
|
./pkg/seaice/seaice_evp.F |
242 |
SEAICE_EVP |
zetaC(I,J) = HALF*press0(I,J,bi,bj)/deltaCreg |
|
./pkg/seaice/seaice_evp.F |
243 |
SEAICE_EVP |
pressZ = (deltaZ(I,J)/deltaZreg) * facZ |
|
./pkg/seaice/seaice_evp.F |
244 |
SEAICE_EVP |
& * ( PRESS0(I,J ,bi,bj) + PRESS0(I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
245 |
SEAICE_EVP |
& + PRESS0(I,J-1,bi,bj) + PRESS0(I-1,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
246 |
SEAICE_EVP |
zetaZ(I,J) = HALF/deltaZreg * pressZ |
|
./pkg/seaice/seaice_evp.F |
257 |
SEAICE_EVP |
zetaC(I,J) = MAX(zMin(I,J,bi,bj),MIN(zMax(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
258 |
SEAICE_EVP |
& ,zetaC(I,J))) |
|
./pkg/seaice/seaice_evp.F |
264 |
SEAICE_EVP |
& MAX(zMax(I, J,bi,bj),zMax(I, J-1,bi,bj)), |
|
./pkg/seaice/seaice_evp.F |
265 |
SEAICE_EVP |
& MAX(zMax(I-1,J,bi,bj),zMax(I-1,J-1,bi,bj)) ) |
|
./pkg/seaice/seaice_evp.F |
267 |
SEAICE_EVP |
& MAX(zMin(I, J,bi,bj),zMin(I, J-1,bi,bj)), |
|
./pkg/seaice/seaice_evp.F |
268 |
SEAICE_EVP |
& MAX(zMin(I-1,J,bi,bj),zMin(I-1,J-1,bi,bj)) ) |
|
./pkg/seaice/seaice_evp.F |
269 |
SEAICE_EVP |
zetaZ(I,J) = MAX(zMinZ,MIN(zMaxZ,zetaZ(I,J))) |
|
./pkg/seaice/seaice_evp.F |
276 |
SEAICE_EVP |
pressC(I,J) = TWO*zetaC(I,J)*deltaC(I,J) |
|
./pkg/seaice/seaice_evp.F |
284 |
SEAICE_EVP |
press(I,J,bi,bj) = pressC(I,J) |
|
./pkg/seaice/seaice_evp.F |
285 |
SEAICE_EVP |
zeta (I,J,bi,bj) = zetaC(I,J) |
|
./pkg/seaice/seaice_evp.F |
286 |
SEAICE_EVP |
eta (I,J,bi,bj) = zetaC(I,J)*recip_ecc2 |
|
./pkg/seaice/seaice_evp.F |
308 |
SEAICE_EVP |
etaDenC = em(I,J)**2 + |
|
./pkg/seaice/seaice_evp.F |
309 |
SEAICE_EVP |
& ( e12(I, J,bi,bj)**2 + e12(I+1,J+1,bi,bj)**2 |
|
./pkg/seaice/seaice_evp.F |
310 |
SEAICE_EVP |
& + e12(I+1,J,bi,bj)**2 + e12(I, J+1,bi,bj)**2 ) |
|
./pkg/seaice/seaice_evp.F |
312 |
SEAICE_EVP |
zetaMaxC = ecc2*zetaC(I,J)*(deltaC(I,J)-ep(I,J))/etaDenC |
|
./pkg/seaice/seaice_evp.F |
314 |
SEAICE_EVP |
& facZ * ( em(I, J )**2 + em(I-1,J-1)**2 |
|
./pkg/seaice/seaice_evp.F |
315 |
SEAICE_EVP |
& + em(I-1,J )**2 + em(I, J-1)**2 ) |
|
./pkg/seaice/seaice_evp.F |
316 |
SEAICE_EVP |
& + 4. _d 0*e12(I,J,bi,bj)**2 |
|
./pkg/seaice/seaice_evp.F |
318 |
SEAICE_EVP |
zetaMaxZ = ecc2*zetaZ(I,J) * ( deltaZ(I,J) |
|
./pkg/seaice/seaice_evp.F |
319 |
SEAICE_EVP |
& - facZ * ( ep(I,J ) + ep(I-1,J ) |
|
./pkg/seaice/seaice_evp.F |
320 |
SEAICE_EVP |
& + ep(I,J-1) + ep(I-1,J-1) ) |
|
./pkg/seaice/seaice_evp.F |
324 |
SEAICE_EVP |
eta(I,J,bi,bj) = MIN(zetaC(I,J),zetaMaxC)*recip_ecc2 |
|
./pkg/seaice/seaice_evp.F |
326 |
SEAICE_EVP |
seaice_div (I,J) = |
|
./pkg/seaice/seaice_evp.F |
327 |
SEAICE_EVP |
& ( 2. _d 0 *zetaC(I,J)*ep(I,J) - pressC(I,J) |
|
./pkg/seaice/seaice_evp.F |
328 |
SEAICE_EVP |
& ) * hEffM(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
329 |
SEAICE_EVP |
seaice_tension(I,J) = 2. _d 0*MIN(zetaC(I,J),zetaMaxC) |
|
./pkg/seaice/seaice_evp.F |
330 |
SEAICE_EVP |
& * em(I,J) * hEffM(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
331 |
SEAICE_EVP |
seaice_shear (I,J) = 2. _d 0*MIN(zetaZ(I,J),zetaMaxZ) |
|
./pkg/seaice/seaice_evp.F |
332 |
SEAICE_EVP |
& * 2. _d 0*e12(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
341 |
SEAICE_EVP |
seaice_div (I,J) = |
|
./pkg/seaice/seaice_evp.F |
342 |
SEAICE_EVP |
& ( 2. _d 0 *zetaC(I,J)*ep(I,J) - pressC(I,J) |
|
./pkg/seaice/seaice_evp.F |
343 |
SEAICE_EVP |
& ) * hEffM(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
344 |
SEAICE_EVP |
seaice_tension(I,J) = 2. _d 0*zetaC(I,J) |
|
./pkg/seaice/seaice_evp.F |
345 |
SEAICE_EVP |
& * em(I,J) * hEffM(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
346 |
SEAICE_EVP |
seaice_shear (I,J) = |
|
./pkg/seaice/seaice_evp.F |
347 |
SEAICE_EVP |
& 2. _d 0*zetaZ(I,J)*2. _d 0*e12(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
357 |
SEAICE_EVP |
seaice_sigma1 (I,J,bi,bj) = ( seaice_sigma1 (I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
359 |
SEAICE_EVP |
& * seaice_div(I,J) |
|
./pkg/seaice/seaice_evp.F |
361 |
SEAICE_EVP |
& *hEffM(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
362 |
SEAICE_EVP |
seaice_sigma2 (I,J,bi,bj) = ( seaice_sigma2 (I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
364 |
SEAICE_EVP |
& * seaice_tension(I,J) |
|
./pkg/seaice/seaice_evp.F |
366 |
SEAICE_EVP |
& *hEffM(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
368 |
SEAICE_EVP |
sig11(I,J) = 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
369 |
SEAICE_EVP |
& ( seaice_sigma1(I,J,bi,bj)+seaice_sigma2(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
370 |
SEAICE_EVP |
sig22(I,J) = 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
371 |
SEAICE_EVP |
& ( seaice_sigma1(I,J,bi,bj)-seaice_sigma2(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
378 |
SEAICE_EVP |
seaice_sigma12(I,J,bi,bj) = ( seaice_sigma12(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
380 |
SEAICE_EVP |
& seaice_shear(I,J) |
|
./pkg/seaice/seaice_evp.F |
388 |
SEAICE_EVP |
DO I=1,sNx |
|
./pkg/seaice/seaice_evp.F |
389 |
SEAICE_EVP |
stressDivergenceX(I,J,bi,bj) = |
|
./pkg/seaice/seaice_evp.F |
390 |
SEAICE_EVP |
& ( sig11(I ,J ) * _dyF(I ,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
391 |
SEAICE_EVP |
& - sig11(I-1,J ) * _dyF(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
392 |
SEAICE_EVP |
& + seaice_sigma12(I,J+1,bi,bj) * _dxV(I,J+1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
393 |
SEAICE_EVP |
& - seaice_sigma12(I,J ,bi,bj) * _dxV(I,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
394 |
SEAICE_EVP |
& ) * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
395 |
SEAICE_EVP |
stressDivergenceY(I,J,bi,bj) = |
|
./pkg/seaice/seaice_evp.F |
396 |
SEAICE_EVP |
& ( sig22(I,J ) * _dxF(I,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
397 |
SEAICE_EVP |
& - sig22(I,J-1) * _dxF(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
398 |
SEAICE_EVP |
& + seaice_sigma12(I+1,J,bi,bj) * _dyU(I+1,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
399 |
SEAICE_EVP |
& - seaice_sigma12(I ,J,bi,bj) * _dyU(I ,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
400 |
SEAICE_EVP |
& ) * recip_rAs(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
428 |
SEAICE_EVP |
DO I=0,sNx |
|
./pkg/seaice/seaice_evp.F |
431 |
SEAICE_EVP |
& ( uIceC(I ,J,bi,bj)-uVel(I ,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
432 |
SEAICE_EVP |
& + uIceC(I+1,J,bi,bj)-uVel(I+1,J,kSrf,bi,bj))**2 |
|
./pkg/seaice/seaice_evp.F |
433 |
SEAICE_EVP |
& +(vIceC(I,J ,bi,bj)-vVel(I,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
434 |
SEAICE_EVP |
& + vIceC(I,J+1,bi,bj)-vVel(I,J+1,kSrf,bi,bj))**2) |
|
./pkg/seaice/seaice_evp.F |
435 |
SEAICE_EVP |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_evp.F |
437 |
SEAICE_EVP |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/seaice_evp.F |
439 |
SEAICE_EVP |
DWATN(I,J,bi,bj)=SEAICE_waterDrag_south*SQRT(TEMPVAR) |
|
./pkg/seaice/seaice_evp.F |
443 |
SEAICE_EVP |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/seaice_evp.F |
445 |
SEAICE_EVP |
DWATN(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR) |
|
./pkg/seaice/seaice_evp.F |
448 |
SEAICE_EVP |
DWATN(I,J,bi,bj) = DWATN(I,J,bi,bj) * HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
450 |
SEAICE_EVP |
DRAGS(I,J,bi,bj) = DWATN(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/seaice_evp.F |
458 |
SEAICE_EVP |
FORCEX(I,J,bi,bj)=FORCEX0(I,J,bi,bj)+ |
|
./pkg/seaice/seaice_evp.F |
459 |
SEAICE_EVP |
& 0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I-1,J,bi,bj) ) * |
|
./pkg/seaice/seaice_evp.F |
460 |
SEAICE_EVP |
& COSWAT * uVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
461 |
SEAICE_EVP |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
462 |
SEAICE_EVP |
& ( DWATN(I ,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
463 |
SEAICE_EVP |
& (vVel(I ,J ,kSrf,bi,bj)-vIceC(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
464 |
SEAICE_EVP |
& +vVel(I ,J+1,kSrf,bi,bj)-vIceC(I ,J+1,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
465 |
SEAICE_EVP |
& + DWATN(I-1,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
466 |
SEAICE_EVP |
& (vVel(I-1,J ,kSrf,bi,bj)-vIceC(I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
467 |
SEAICE_EVP |
& +vVel(I-1,J+1,kSrf,bi,bj)-vIceC(I-1,J+1,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
469 |
SEAICE_EVP |
FORCEY(I,J,bi,bj)=FORCEY0(I,J,bi,bj)+ |
|
./pkg/seaice/seaice_evp.F |
470 |
SEAICE_EVP |
& 0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I,J-1,bi,bj) ) * |
|
./pkg/seaice/seaice_evp.F |
471 |
SEAICE_EVP |
& COSWAT * vVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
472 |
SEAICE_EVP |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
473 |
SEAICE_EVP |
& ( DWATN(I,J ,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
474 |
SEAICE_EVP |
& (uVel(I ,J ,kSrf,bi,bj)-uIceC(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
475 |
SEAICE_EVP |
& +uVel(I+1,J ,kSrf,bi,bj)-uIceC(I+1,J ,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
476 |
SEAICE_EVP |
& + DWATN(I,J-1,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
477 |
SEAICE_EVP |
& (uVel(I ,J-1,kSrf,bi,bj)-uIceC(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
478 |
SEAICE_EVP |
& +uVel(I+1,J-1,kSrf,bi,bj)-uIceC(I+1,J-1,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
481 |
SEAICE_EVP |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj) + 0.5 _d 0*( |
|
./pkg/seaice/seaice_evp.F |
482 |
SEAICE_EVP |
& seaiceMassC(I ,J,bi,bj) * _fCori(I ,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
483 |
SEAICE_EVP |
& * 0.5 _d 0*( vIceC(I ,J,bi,bj)+vIceC(I ,J+1,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
484 |
SEAICE_EVP |
& + seaiceMassC(I-1,J,bi,bj) * _fCori(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
485 |
SEAICE_EVP |
& * 0.5 _d 0*( vIceC(I-1,J,bi,bj)+vIceC(I-1,J+1,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
487 |
SEAICE_EVP |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) - 0.5 _d 0*( |
|
./pkg/seaice/seaice_evp.F |
488 |
SEAICE_EVP |
& seaiceMassC(I,J ,bi,bj) * _fCori(I,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
489 |
SEAICE_EVP |
& * 0.5 _d 0*( uIceC(I,J ,bi,bj)+uIceC(I+1, J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
490 |
SEAICE_EVP |
& + seaiceMassC(I,J-1,bi,bj) * _fCori(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
491 |
SEAICE_EVP |
& * 0.5 _d 0*( uIceC(I,J-1,bi,bj)+uIceC(I+1,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
499 |
SEAICE_EVP |
DO I=1,sNx |
|
./pkg/seaice/seaice_evp.F |
500 |
SEAICE_EVP |
uIceC(I,J,bi,bj) = seaiceMaskU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
501 |
SEAICE_EVP |
& ( seaiceMassU(I,J,bi,bj)/SEAICE_deltaTevp |
|
./pkg/seaice/seaice_evp.F |
502 |
SEAICE_EVP |
& * uIceC(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
503 |
SEAICE_EVP |
& + FORCEX(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
504 |
SEAICE_EVP |
& + stressDivergenceX(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
505 |
SEAICE_EVP |
& /( 1. _d 0 - seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
506 |
SEAICE_EVP |
& + seaiceMassU(I,J,bi,bj)/SEAICE_deltaTevp |
|
./pkg/seaice/seaice_evp.F |
507 |
SEAICE_EVP |
& + 0.5 _d 0*( DRAGS(I,J,bi,bj) + DRAGS(I-1,J,bi,bj) ) ) |
|
./pkg/seaice/seaice_evp.F |
508 |
SEAICE_EVP |
vIceC(I,J,bi,bj) = seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
509 |
SEAICE_EVP |
& ( seaiceMassV(I,J,bi,bj)/SEAICE_deltaTevp |
|
./pkg/seaice/seaice_evp.F |
510 |
SEAICE_EVP |
& * vIceC(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
511 |
SEAICE_EVP |
& + FORCEY(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
512 |
SEAICE_EVP |
& + stressDivergenceY(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
513 |
SEAICE_EVP |
& /( 1. _d 0 - seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
514 |
SEAICE_EVP |
& + seaiceMassV(I,J,bi,bj)/SEAICE_deltaTevp |
|
./pkg/seaice/seaice_evp.F |
515 |
SEAICE_EVP |
& + 0.5 _d 0*( DRAGS(I,J,bi,bj) + DRAGS(I,J-1,bi,bj) ) ) |
|
./pkg/seaice/seaice_evp.F |
536 |
SEAICE_EVP |
DO I=1-Olx,sNx+Olx |
|
./pkg/seaice/seaice_evp.F |
537 |
SEAICE_EVP |
uIce(I,J,bi,bj)=uIceC(I,J,bi,bj)* _maskW(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
538 |
SEAICE_EVP |
vIce(I,J,bi,bj)=vIceC(I,J,bi,bj)* _maskS(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_freedrift.F |
111 |
SEAICE_FREEDRIFT |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_freedrift.F |
129 |
SEAICE_FREEDRIFT |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_freedrift.F |
80 |
SEAICE_FREEDRIFT |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_freedrift.F |
91 |
SEAICE_FREEDRIFT |
mIceCor=SEAICE_rhoIce*HEFF(i,j,bi,bj)*_fCori(I,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
100 |
SEAICE_GET_DYNFORCING |
oceTauY(I,J)=CDAIR(I,J)* |
|
./pkg/seaice/seaice_get_dynforcing.F |
101 |
SEAICE_GET_DYNFORCING |
& (SIGN(SINWIN, _fCori(I,J,bi,bj))*U1+COSWIN*V1) |
|
./pkg/seaice/seaice_get_dynforcing.F |
108 |
SEAICE_GET_DYNFORCING |
fu(I,J,bi,bj) = 0.5 _d 0*( oceTauX(I,J) + oceTauX(I-1,J) ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
109 |
SEAICE_GET_DYNFORCING |
fv(I,J,bi,bj) = 0.5 _d 0*( oceTauY(I,J) + oceTauY(I,J-1) ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
118 |
SEAICE_GET_DYNFORCING |
U1=UWIND(I,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
121 |
SEAICE_GET_DYNFORCING |
V1=VWIND(I,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
130 |
SEAICE_GET_DYNFORCING |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
131 |
SEAICE_GET_DYNFORCING |
CDAIR(I,J) = SEAICE_rhoAir*SEAICE_drag_south*AAA |
|
./pkg/seaice/seaice_get_dynforcing.F |
133 |
SEAICE_GET_DYNFORCING |
CDAIR(I,J) = SEAICE_rhoAir*SEAICE_drag*AAA |
|
./pkg/seaice/seaice_get_dynforcing.F |
140 |
SEAICE_GET_DYNFORCING |
U1=UWIND(I,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
141 |
SEAICE_GET_DYNFORCING |
V1=VWIND(I,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
148 |
SEAICE_GET_DYNFORCING |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
149 |
SEAICE_GET_DYNFORCING |
CDAIR(I,J) = SEAICE_rhoAir*SEAICE_drag_south*AAA |
|
./pkg/seaice/seaice_get_dynforcing.F |
151 |
SEAICE_GET_DYNFORCING |
CDAIR(I,J) = SEAICE_rhoAir*SEAICE_drag*AAA |
|
./pkg/seaice/seaice_get_dynforcing.F |
160 |
SEAICE_GET_DYNFORCING |
taux(I,J,bi,bj)= 0.5 _d 0 * |
|
./pkg/seaice/seaice_get_dynforcing.F |
161 |
SEAICE_GET_DYNFORCING |
& (CDAIR(I,J)*(COSWIN* |
|
./pkg/seaice/seaice_get_dynforcing.F |
162 |
SEAICE_GET_DYNFORCING |
& (uWind(I,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
165 |
SEAICE_GET_DYNFORCING |
& -SIGN(SINWIN, _fCori(I,J,bi,bj))* |
|
./pkg/seaice/seaice_get_dynforcing.F |
166 |
SEAICE_GET_DYNFORCING |
& (vWind(I,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
169 |
SEAICE_GET_DYNFORCING |
& +CDAIR(I-1,J)*(COSWIN* |
|
./pkg/seaice/seaice_get_dynforcing.F |
170 |
SEAICE_GET_DYNFORCING |
& (uWind(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
173 |
SEAICE_GET_DYNFORCING |
& -SIGN(SINWIN, _fCori(I-1,J,bi,bj))* |
|
./pkg/seaice/seaice_get_dynforcing.F |
174 |
SEAICE_GET_DYNFORCING |
& (vWind(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
178 |
SEAICE_GET_DYNFORCING |
tauy(I,J,bi,bj)= 0.5 _d 0 * |
|
./pkg/seaice/seaice_get_dynforcing.F |
179 |
SEAICE_GET_DYNFORCING |
& (CDAIR(I,J)*(SIGN(SINWIN, _fCori(I,J,bi,bj))* |
|
./pkg/seaice/seaice_get_dynforcing.F |
180 |
SEAICE_GET_DYNFORCING |
& (uWind(I,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
184 |
SEAICE_GET_DYNFORCING |
& (vWind(I,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
187 |
SEAICE_GET_DYNFORCING |
& +CDAIR(I,J-1)*(SIGN(SINWIN, _fCori(I,J-1,bi,bj))* |
|
./pkg/seaice/seaice_get_dynforcing.F |
188 |
SEAICE_GET_DYNFORCING |
& (uWind(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
192 |
SEAICE_GET_DYNFORCING |
& (vWind(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
201 |
SEAICE_GET_DYNFORCING |
taux(I,J,bi,bj)=0.5 _d 0 * |
|
./pkg/seaice/seaice_get_dynforcing.F |
202 |
SEAICE_GET_DYNFORCING |
& ( CDAIR(I ,J)*( |
|
./pkg/seaice/seaice_get_dynforcing.F |
203 |
SEAICE_GET_DYNFORCING |
& COSWIN *uWind(I ,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
204 |
SEAICE_GET_DYNFORCING |
& -SIGN(SINWIN, _fCori(I ,J,bi,bj))*vWind(I ,J,bi,bj) ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
205 |
SEAICE_GET_DYNFORCING |
& + CDAIR(I-1,J)*( |
|
./pkg/seaice/seaice_get_dynforcing.F |
206 |
SEAICE_GET_DYNFORCING |
& COSWIN *uWind(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
207 |
SEAICE_GET_DYNFORCING |
& -SIGN(SINWIN, _fCori(I-1,J,bi,bj))*vWind(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
210 |
SEAICE_GET_DYNFORCING |
tauy(I,J,bi,bj)=0.5 _d 0 * |
|
./pkg/seaice/seaice_get_dynforcing.F |
211 |
SEAICE_GET_DYNFORCING |
& ( CDAIR(I,J )*( |
|
./pkg/seaice/seaice_get_dynforcing.F |
212 |
SEAICE_GET_DYNFORCING |
& SIGN(SINWIN, _fCori(I,J ,bi,bj))*uWind(I,J ,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
213 |
SEAICE_GET_DYNFORCING |
& +COSWIN*vWind(I,J ,bi,bj) ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
214 |
SEAICE_GET_DYNFORCING |
& + CDAIR(I,J-1)*( |
|
./pkg/seaice/seaice_get_dynforcing.F |
215 |
SEAICE_GET_DYNFORCING |
& SIGN(SINWIN, _fCori(I,J-1,bi,bj))*uWind(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
216 |
SEAICE_GET_DYNFORCING |
& +COSWIN*vWind(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
231 |
SEAICE_GET_DYNFORCING |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
232 |
SEAICE_GET_DYNFORCING |
CDAIR(I,J) = SEAICE_drag_south/OCEAN_drag |
|
./pkg/seaice/seaice_get_dynforcing.F |
234 |
SEAICE_GET_DYNFORCING |
CDAIR(I,J) = SEAICE_drag /OCEAN_drag |
|
./pkg/seaice/seaice_get_dynforcing.F |
236 |
SEAICE_GET_DYNFORCING |
taux (I,J,bi,bj) = CDAIR(I,J)*FU(I,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
237 |
SEAICE_GET_DYNFORCING |
tauy (I,J,bi,bj) = CDAIR(I,J)*FV(I,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
88 |
SEAICE_GET_DYNFORCING |
U1=UWIND(I,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
89 |
SEAICE_GET_DYNFORCING |
V1=VWIND(I,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
96 |
SEAICE_GET_DYNFORCING |
CDAIR(I,J)=SEAICE_rhoAir*OCEAN_drag |
|
./pkg/seaice/seaice_get_dynforcing.F |
98 |
SEAICE_GET_DYNFORCING |
oceTauX(I,J)=CDAIR(I,J)* |
|
./pkg/seaice/seaice_get_dynforcing.F |
99 |
SEAICE_GET_DYNFORCING |
& (COSWIN*U1-SIGN(SINWIN, _fCori(I,J,bi,bj))*V1) |
|
./pkg/seaice/seaice_growth.F |
1010 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
1015 |
SEAICE_GROWTH |
tmpscal0=HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1016 |
SEAICE_GROWTH |
& - d_HEFFbyATMonOCN(I,J) - d_HEFFbyFLOODING(I,J) |
|
./pkg/seaice/seaice_growth.F |
1018 |
SEAICE_GROWTH |
tmpscal1= a_QbyATM_open(I,J)+a_QbyATM_cover(I,J) |
|
./pkg/seaice/seaice_growth.F |
1019 |
SEAICE_GROWTH |
& - d_HSNWbyATMonSNW(I,J)/ICE2SNOW |
|
./pkg/seaice/seaice_growth.F |
1024 |
SEAICE_GROWTH |
DIAGarray(I,J) = tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
1027 |
SEAICE_GROWTH |
tmpscal4 = MAX(ZERO,a_QbyATM_open(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1034 |
SEAICE_GROWTH |
& d_HEFFbyATMonOCN(I,J)+d_HEFFbyOCNonICE(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
1037 |
SEAICE_GROWTH |
tmpscal3 = MIN( 0. _d 0 , d_HEFFbyATMonOCN(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
1043 |
SEAICE_GROWTH |
tmpscal4 = d_HEFFbyATMonOCN_open(I,J) |
|
./pkg/seaice/seaice_growth.F |
1046 |
SEAICE_GROWTH |
tmpscal4 = MAX(ZERO,a_QbyATM_open(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1051 |
SEAICE_GROWTH |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_growth.F |
1052 |
SEAICE_GROWTH |
d_AREAbyATM(I,J)=tmpscal4/HO_south |
|
./pkg/seaice/seaice_growth.F |
1054 |
SEAICE_GROWTH |
d_AREAbyATM(I,J)=tmpscal4/HO |
|
./pkg/seaice/seaice_growth.F |
1056 |
SEAICE_GROWTH |
d_AREAbyATM(I,J)=d_AREAbyATM(I,J) |
|
./pkg/seaice/seaice_growth.F |
1058 |
SEAICE_GROWTH |
& +HALF*tmpscal3*AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
1061 |
SEAICE_GROWTH |
& +HALF*tmpscal3/heffActual(I,J) |
|
./pkg/seaice/seaice_growth.F |
1066 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=max(0. _d 0 , min( 1. _d 0, |
|
./pkg/seaice/seaice_growth.F |
1067 |
SEAICE_GROWTH |
& AREA(I,J,bi,bj)+d_AREAbyATM(I,J) ) ) |
|
./pkg/seaice/seaice_growth.F |
1069 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1079 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
1081 |
SEAICE_GROWTH |
AREA(I,J,bi,bj) = AREApreTH(I,J) + 0.1 _d 0 * |
|
./pkg/seaice/seaice_growth.F |
1082 |
SEAICE_GROWTH |
& ( HEFF(I,J,bi,bj) - HEFFpreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
1116 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
1118 |
SEAICE_GROWTH |
tmpscal1 = d_HEFFbyNEG(I,J) + d_HEFFbyOCNonICE(I,J) + |
|
./pkg/seaice/seaice_growth.F |
1119 |
SEAICE_GROWTH |
& d_HEFFbyATMonOCN(I,J) - d_HEFFbyFLOODING(I,J) |
|
./pkg/seaice/seaice_growth.F |
1120 |
SEAICE_GROWTH |
tmpscal2 = tmpscal1 * SIsal0 * HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1122 |
SEAICE_GROWTH |
saltFlux(I,J,bi,bj) = tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
1124 |
SEAICE_GROWTH |
tmpscal3 = tmpscal1*salt(I,j,kSurface,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1126 |
SEAICE_GROWTH |
saltPlumeFlux(I,J,bi,bj) = MAX( tmpscal3-tmpscal2 , 0. _d 0) |
|
./pkg/seaice/seaice_growth.F |
1140 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
1142 |
SEAICE_GROWTH |
IF ( HSALT(I,J,bi,bj) .LT. 0.0 ) THEN |
|
./pkg/seaice/seaice_growth.F |
1143 |
SEAICE_GROWTH |
saltFluxAdjust(I,J) = - HEFFM(I,J,bi,bj) * |
|
./pkg/seaice/seaice_growth.F |
1144 |
SEAICE_GROWTH |
& HSALT(I,J,bi,bj) / SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
1145 |
SEAICE_GROWTH |
HSALT(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
1156 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
1158 |
SEAICE_GROWTH |
tmpscal1=d_HEFFbyOCNonICE(I,J)+d_HEFFbyATMonOCN(I,J) |
|
./pkg/seaice/seaice_growth.F |
1160 |
SEAICE_GROWTH |
tmpscal2=HEFF(I,J,bi,bj)-tmpscal1-d_HEFFbyFLOODING(I,J) |
|
./pkg/seaice/seaice_growth.F |
1163 |
SEAICE_GROWTH |
saltFlux(I,J,bi,bj) = |
|
./pkg/seaice/seaice_growth.F |
1164 |
SEAICE_GROWTH |
& HEFFM(I,J,bi,bj)/SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
1165 |
SEAICE_GROWTH |
& *SEAICE_salinity*salt(I,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1169 |
SEAICE_GROWTH |
saltPlumeFlux(I,J,bi,bj)= |
|
./pkg/seaice/seaice_growth.F |
1170 |
SEAICE_GROWTH |
& HEFFM(I,J,bi,bj)/SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
1171 |
SEAICE_GROWTH |
& *(1-SEAICE_salinity)*salt(I,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1175 |
SEAICE_GROWTH |
IF ( YC(I,J,bi,bj) .LT. 0.0 _d 0 ) |
|
./pkg/seaice/seaice_growth.F |
1182 |
SEAICE_GROWTH |
saltFlux(I,J,bi,bj) = |
|
./pkg/seaice/seaice_growth.F |
1183 |
SEAICE_GROWTH |
& HEFFM(I,J,bi,bj)/SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
1184 |
SEAICE_GROWTH |
& *HSALT(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1191 |
SEAICE_GROWTH |
HSALT(I,J,bi,bj) = HSALT(I,J,bi,bj) + |
|
./pkg/seaice/seaice_growth.F |
1192 |
SEAICE_GROWTH |
& saltFlux(I,J,bi,bj) * SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
1193 |
SEAICE_GROWTH |
saltFlux(I,J,bi,bj) = |
|
./pkg/seaice/seaice_growth.F |
1194 |
SEAICE_GROWTH |
& saltFlux(I,J,bi,bj) + saltFluxAdjust(I,J) |
|
./pkg/seaice/seaice_growth.F |
1197 |
SEAICE_GROWTH |
IF ( HEFF(I,J,bi,bj) .EQ. 0.0 ) THEN |
|
./pkg/seaice/seaice_growth.F |
1198 |
SEAICE_GROWTH |
saltFlux(I,J,bi,bj) = saltFlux(I,J,bi,bj) - |
|
./pkg/seaice/seaice_growth.F |
1199 |
SEAICE_GROWTH |
& HEFFM(I,J,bi,bj) * HSALT(I,J,bi,bj) / |
|
./pkg/seaice/seaice_growth.F |
1201 |
SEAICE_GROWTH |
HSALT(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
1232 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
1234 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=MIN(AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1235 |
SEAICE_GROWTH |
& ,HEFF(I,J,bi,bj)/.0001 _d 0) |
|
./pkg/seaice/seaice_growth.F |
1244 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
1246 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=MIN(ONE,AREA(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1257 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
1258 |
SEAICE_GROWTH |
AREA(I,J,bi,bj) = MAX(ZERO,AREA(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1259 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = MAX(ZERO,HSNOW(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1260 |
SEAICE_GROWTH |
AREA(I,J,bi,bj) = AREA(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1261 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1264 |
SEAICE_GROWTH |
tmpscal0 = -MAX(HEFF(I,J,bi,bj)-MAX_HEFF,0. _d 0) |
|
./pkg/seaice/seaice_growth.F |
1265 |
SEAICE_GROWTH |
d_HEFFbyNeg(I,J) = d_HEFFbyNeg(I,J) + tmpscal0 |
|
./pkg/seaice/seaice_growth.F |
1266 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) + tmpscal0 |
|
./pkg/seaice/seaice_growth.F |
1268 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1276 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
1277 |
SEAICE_GROWTH |
tmparr1(I,J) = (HEFF(I,J,bi,bj)-HEFFpreTH(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1292 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
1293 |
SEAICE_GROWTH |
hDraft = (HSNOW(I,J,bi,bj)*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_growth.F |
1294 |
SEAICE_GROWTH |
& +HEFF(I,J,bi,bj)*SEAICE_rhoIce)/rhoConst |
|
./pkg/seaice/seaice_growth.F |
1295 |
SEAICE_GROWTH |
tmpscal1 = MAX( 0. _d 0, hDraft - HEFF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1296 |
SEAICE_GROWTH |
d_HEFFbyFLOODING(I,J)=tmpscal1 |
|
./pkg/seaice/seaice_growth.F |
1297 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj)+d_HEFFbyFLOODING(I,J) |
|
./pkg/seaice/seaice_growth.F |
1298 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj)- |
|
./pkg/seaice/seaice_growth.F |
1299 |
SEAICE_GROWTH |
& d_HEFFbyFLOODING(I,J)*ICE2SNOW |
|
./pkg/seaice/seaice_growth.F |
1306 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
1307 |
SEAICE_GROWTH |
tmparr1(I,J) = d_HEFFbyFLOODING(I,J)/SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
1330 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
1331 |
SEAICE_GROWTH |
IF ( AREA(I,J,bi,bj) .GT. 0.15 ) THEN |
|
./pkg/seaice/seaice_growth.F |
1350 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
1383 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
1384 |
SEAICE_GROWTH |
QNET(I,J,bi,bj) = r_QbyATM_cover(I,J) + r_QbyATM_open(I,J) |
|
./pkg/seaice/seaice_growth.F |
1385 |
SEAICE_GROWTH |
& - ( d_HEFFbyOCNonICE(I,J) + |
|
./pkg/seaice/seaice_growth.F |
1386 |
SEAICE_GROWTH |
& d_HSNWbyOCNonSNW(I,J)/ICE2SNOW + |
|
./pkg/seaice/seaice_growth.F |
1387 |
SEAICE_GROWTH |
& d_HEFFbyNEG(I,J) + |
|
./pkg/seaice/seaice_growth.F |
1388 |
SEAICE_GROWTH |
& d_HSNWbyNEG(I,J)/ICE2SNOW ) |
|
./pkg/seaice/seaice_growth.F |
1389 |
SEAICE_GROWTH |
& * maskC(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1390 |
SEAICE_GROWTH |
QSW(I,J,bi,bj) = a_QSWbyATM_cover(I,J) + a_QSWbyATM_open(I,J) |
|
./pkg/seaice/seaice_growth.F |
1398 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
1399 |
SEAICE_GROWTH |
DIAGarray(I,J) = r_QbyATM_open(I,J) * convertHI2Q |
|
./pkg/seaice/seaice_growth.F |
1406 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
1407 |
SEAICE_GROWTH |
DIAGarray(I,J) = r_QbyATM_cover(I,J) * convertHI2Q |
|
./pkg/seaice/seaice_growth.F |
1419 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
1420 |
SEAICE_GROWTH |
QNET(I,J,bi,bj) = QNET(I,J,bi,bj)*convertHI2Q |
|
./pkg/seaice/seaice_growth.F |
1421 |
SEAICE_GROWTH |
QSW(I,J,bi,bj) = QSW(I,J,bi,bj)*convertHI2Q |
|
./pkg/seaice/seaice_growth.F |
1431 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
1432 |
SEAICE_GROWTH |
tmpscal1= d_HSNWbyATMonSNW(I,J)/ICE2SNOW |
|
./pkg/seaice/seaice_growth.F |
1433 |
SEAICE_GROWTH |
& +d_HFRWbyRAIN(I,J) |
|
./pkg/seaice/seaice_growth.F |
1434 |
SEAICE_GROWTH |
& +d_HSNWbyOCNonSNW(I,J)/ICE2SNOW |
|
./pkg/seaice/seaice_growth.F |
1435 |
SEAICE_GROWTH |
& +d_HEFFbyOCNonICE(I,J) |
|
./pkg/seaice/seaice_growth.F |
1436 |
SEAICE_GROWTH |
& +d_HEFFbyATMonOCN(I,J) |
|
./pkg/seaice/seaice_growth.F |
1437 |
SEAICE_GROWTH |
& +d_HEFFbyNEG(I,J) |
|
./pkg/seaice/seaice_growth.F |
1438 |
SEAICE_GROWTH |
& +d_HSNWbyNEG(I,J)/ICE2SNOW |
|
./pkg/seaice/seaice_growth.F |
1440 |
SEAICE_GROWTH |
& +a_FWbySublim(I,J) |
|
./pkg/seaice/seaice_growth.F |
1442 |
SEAICE_GROWTH |
EmPmR(I,J,bi,bj) = maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
1443 |
SEAICE_GROWTH |
& ( EVAP(I,J,bi,bj)-PRECIP(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
1444 |
SEAICE_GROWTH |
& * ( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
1446 |
SEAICE_GROWTH |
& - RUNOFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1455 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
1456 |
SEAICE_GROWTH |
frWtrAtm(I,J,bi,bj) = maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
1457 |
SEAICE_GROWTH |
& PRECIP(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1458 |
SEAICE_GROWTH |
& - EVAP(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1459 |
SEAICE_GROWTH |
& *( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
1460 |
SEAICE_GROWTH |
& + RUNOFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1483 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
1485 |
SEAICE_GROWTH |
tmpscal1 = HEFF(I,J,bi,bj)*SEAICE_rhoIce |
|
./pkg/seaice/seaice_growth.F |
1486 |
SEAICE_GROWTH |
& + HSNOW(I,J,bi,bj)*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_growth.F |
1489 |
SEAICE_GROWTH |
tmpscal2 = HEFF(I,J,bi,bj)*SEAICE_rhoIce |
|
./pkg/seaice/seaice_growth.F |
1490 |
SEAICE_GROWTH |
& + HSNOW(I,J,bi,bj)*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_growth.F |
256 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
257 |
SEAICE_GROWTH |
a_QbyATM_cover (I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
258 |
SEAICE_GROWTH |
a_QbyATM_open(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
259 |
SEAICE_GROWTH |
r_QbyATM_cover (I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
260 |
SEAICE_GROWTH |
r_QbyATM_open (I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
262 |
SEAICE_GROWTH |
a_QSWbyATM_open (I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
263 |
SEAICE_GROWTH |
a_QSWbyATM_cover (I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
265 |
SEAICE_GROWTH |
a_QbyOCN (I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
266 |
SEAICE_GROWTH |
r_QbyOCN (I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
268 |
SEAICE_GROWTH |
d_AREAbyATM(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
270 |
SEAICE_GROWTH |
d_HEFFbyOCNonICE(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
271 |
SEAICE_GROWTH |
d_HEFFbyATMonOCN(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
272 |
SEAICE_GROWTH |
d_HEFFbyFLOODING(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
274 |
SEAICE_GROWTH |
d_HEFFbyATMonOCN_open(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
276 |
SEAICE_GROWTH |
d_HSNWbyATMonSNW(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
277 |
SEAICE_GROWTH |
d_HSNWbyOCNonSNW(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
278 |
SEAICE_GROWTH |
d_HSNWbyRAIN(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
279 |
SEAICE_GROWTH |
a_FWbySublim(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
281 |
SEAICE_GROWTH |
d_HEFFbySublim(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
282 |
SEAICE_GROWTH |
d_HSNWbySublim(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
285 |
SEAICE_GROWTH |
d_HFRWbyRAIN(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
287 |
SEAICE_GROWTH |
tmparr1(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
290 |
SEAICE_GROWTH |
saltFluxAdjust(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
293 |
SEAICE_GROWTH |
a_QbyATMmult_cover(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
294 |
SEAICE_GROWTH |
a_QSWbyATMmult_cover(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
295 |
SEAICE_GROWTH |
a_FWbySublimMult(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
301 |
SEAICE_GROWTH |
DO I=1-oLx,sNx+oLx |
|
./pkg/seaice/seaice_growth.F |
302 |
SEAICE_GROWTH |
frWtrAtm(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
315 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
316 |
SEAICE_GROWTH |
HEFFpreTH(I,J)=HEFFNM1(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
317 |
SEAICE_GROWTH |
HSNWpreTH(I,J)=HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
318 |
SEAICE_GROWTH |
AREApreTH(I,J)=AREANM1(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
319 |
SEAICE_GROWTH |
d_HEFFbyNEG(I,J)=0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
320 |
SEAICE_GROWTH |
d_HSNWbyNEG(I,J)=0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
341 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
342 |
SEAICE_GROWTH |
d_HEFFbyNEG(I,J)=MAX(-HEFF(I,J,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_growth.F |
343 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj)=HEFF(I,J,bi,bj)+d_HEFFbyNEG(I,J) |
|
./pkg/seaice/seaice_growth.F |
344 |
SEAICE_GROWTH |
d_HSNWbyNEG(I,J)=MAX(-HSNOW(I,J,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_growth.F |
345 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj)=HSNOW(I,J,bi,bj)+d_HSNWbyNEG(I,J) |
|
./pkg/seaice/seaice_growth.F |
346 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=MAX(AREA(I,J,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_growth.F |
356 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
357 |
SEAICE_GROWTH |
if (HEFF(I,J,bi,bj).LE.heffTooThin) then |
|
./pkg/seaice/seaice_growth.F |
358 |
SEAICE_GROWTH |
tmpscal2=-HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
359 |
SEAICE_GROWTH |
tmpscal3=-HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
360 |
SEAICE_GROWTH |
TICE(I,J,bi,bj)=celsius2K |
|
./pkg/seaice/seaice_growth.F |
365 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj)=HEFF(I,J,bi,bj)+tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
366 |
SEAICE_GROWTH |
d_HEFFbyNEG(I,J)=d_HEFFbyNEG(I,J)+tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
367 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj)=HSNOW(I,J,bi,bj)+tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
368 |
SEAICE_GROWTH |
d_HSNWbyNEG(I,J)=d_HSNWbyNEG(I,J)+tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
379 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
381 |
SEAICE_GROWTH |
& (HSNOW(i,j,bi,bj).EQ.0. _d 0)) AREA(I,J,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
391 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
393 |
SEAICE_GROWTH |
& AREA(I,J,bi,bj)=MAX(AREA(I,J,bi,bj),areaMin) |
|
./pkg/seaice/seaice_growth.F |
403 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
404 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=MIN(AREA(I,J,bi,bj),areaMax) |
|
./pkg/seaice/seaice_growth.F |
416 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
417 |
SEAICE_GROWTH |
HEFFpreTH(I,J)=HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
418 |
SEAICE_GROWTH |
HSNWpreTH(I,J)=HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
419 |
SEAICE_GROWTH |
AREApreTH(I,J)=AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
430 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
431 |
SEAICE_GROWTH |
IF ( (HSALT(I,J,bi,bj) .LT. 0.0).OR. |
|
./pkg/seaice/seaice_growth.F |
432 |
SEAICE_GROWTH |
& (HEFF(I,J,bi,bj) .EQ. 0.0) ) THEN |
|
./pkg/seaice/seaice_growth.F |
433 |
SEAICE_GROWTH |
saltFluxAdjust(I,J) = - HEFFM(I,J,bi,bj) * |
|
./pkg/seaice/seaice_growth.F |
434 |
SEAICE_GROWTH |
& HSALT(I,J,bi,bj) / SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
435 |
SEAICE_GROWTH |
HSALT(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
450 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
451 |
SEAICE_GROWTH |
HEFFpreTH(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
452 |
SEAICE_GROWTH |
HSNWpreTH(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
453 |
SEAICE_GROWTH |
AREApreTH(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
469 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
470 |
SEAICE_GROWTH |
tmpscal1 = MAX(areaMin,AREApreTH(I,J)) |
|
./pkg/seaice/seaice_growth.F |
471 |
SEAICE_GROWTH |
hsnowActual(I,J) = HSNWpreTH(I,J)/tmpscal1 |
|
./pkg/seaice/seaice_growth.F |
472 |
SEAICE_GROWTH |
tmpscal2 = HEFFpreTH(I,J)/tmpscal1 |
|
./pkg/seaice/seaice_growth.F |
473 |
SEAICE_GROWTH |
heffActual(I,J) = MAX(tmpscal2,hiceMin) |
|
./pkg/seaice/seaice_growth.F |
501 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
502 |
SEAICE_GROWTH |
TMIX(I,J,bi,bj)=theta(I,J,kSurface,bi,bj)+celsius2K |
|
./pkg/seaice/seaice_growth.F |
508 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
509 |
SEAICE_GROWTH |
UG(I,J) = MAX(SEAICE_EPS,wspeed(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
533 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
535 |
SEAICE_GROWTH |
& (uWind(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
539 |
SEAICE_GROWTH |
& +(vWind(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
544 |
SEAICE_GROWTH |
UG(I,J)=SEAICE_EPS |
|
./pkg/seaice/seaice_growth.F |
546 |
SEAICE_GROWTH |
UG(I,J)=SQRT(SPEED_SQ) |
|
./pkg/seaice/seaice_growth.F |
576 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
577 |
SEAICE_GROWTH |
heffActualP(I,J)= heffActual(I,J)*pFac |
|
./pkg/seaice/seaice_growth.F |
578 |
SEAICE_GROWTH |
TICE(I,J,bi,bj)=TICES(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
588 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
590 |
SEAICE_GROWTH |
a_QbyATM_cover (I,J) = a_QbyATM_cover(I,J) |
|
./pkg/seaice/seaice_growth.F |
591 |
SEAICE_GROWTH |
& + a_QbyATMmult_cover(I,J)/nDim |
|
./pkg/seaice/seaice_growth.F |
592 |
SEAICE_GROWTH |
a_QSWbyATM_cover (I,J) = a_QSWbyATM_cover(I,J) |
|
./pkg/seaice/seaice_growth.F |
593 |
SEAICE_GROWTH |
& + a_QSWbyATMmult_cover(I,J)/nDim |
|
./pkg/seaice/seaice_growth.F |
594 |
SEAICE_GROWTH |
a_FWbySublim (I,J) = a_FWbySublim(I,J) |
|
./pkg/seaice/seaice_growth.F |
595 |
SEAICE_GROWTH |
& + a_FWbySublimMult(I,J)/nDim |
|
./pkg/seaice/seaice_growth.F |
596 |
SEAICE_GROWTH |
TICES(I,J,IT,bi,bj) = TICE(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
613 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
621 |
SEAICE_GROWTH |
DIAGarray(I,J) = maskC(I,J,kSurface,bi,bj) * ( |
|
./pkg/seaice/seaice_growth.F |
622 |
SEAICE_GROWTH |
& a_QbyATM_cover(I,J) * AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
623 |
SEAICE_GROWTH |
& + a_QbyATM_open(I,J) * ( ONE - AREApreTH(I,J) ) ) |
|
./pkg/seaice/seaice_growth.F |
630 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
631 |
SEAICE_GROWTH |
DIAGarray(I,J) = maskC(I,J,kSurface,bi,bj) * |
|
./pkg/seaice/seaice_growth.F |
632 |
SEAICE_GROWTH |
& a_FWbySublim(I,J) * AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
639 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
640 |
SEAICE_GROWTH |
DIAGarray(I,J) = maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
641 |
SEAICE_GROWTH |
& PRECIP(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
642 |
SEAICE_GROWTH |
& - EVAP(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
643 |
SEAICE_GROWTH |
& *( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
645 |
SEAICE_GROWTH |
& + RUNOFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
649 |
SEAICE_GROWTH |
& - a_FWbySublim(I,J)*AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
660 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
661 |
SEAICE_GROWTH |
a_QbyATM_cover(I,J) = a_QbyATM_cover(I,J) |
|
./pkg/seaice/seaice_growth.F |
662 |
SEAICE_GROWTH |
& * convertQ2HI * AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
663 |
SEAICE_GROWTH |
a_QSWbyATM_cover(I,J) = a_QSWbyATM_cover(I,J) |
|
./pkg/seaice/seaice_growth.F |
664 |
SEAICE_GROWTH |
& * convertQ2HI * AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
665 |
SEAICE_GROWTH |
a_QbyATM_open(I,J) = a_QbyATM_open(I,J) |
|
./pkg/seaice/seaice_growth.F |
666 |
SEAICE_GROWTH |
& * convertQ2HI * ( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
667 |
SEAICE_GROWTH |
a_QSWbyATM_open(I,J) = a_QSWbyATM_open(I,J) |
|
./pkg/seaice/seaice_growth.F |
668 |
SEAICE_GROWTH |
& * convertQ2HI * ( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
670 |
SEAICE_GROWTH |
r_QbyATM_cover(I,J)=a_QbyATM_cover(I,J) |
|
./pkg/seaice/seaice_growth.F |
671 |
SEAICE_GROWTH |
r_QbyATM_open(I,J)=a_QbyATM_open(I,J) |
|
./pkg/seaice/seaice_growth.F |
675 |
SEAICE_GROWTH |
a_FWbySublim(I,J) = SEAICE_deltaTtherm/SEAICE_rhoIce |
|
./pkg/seaice/seaice_growth.F |
676 |
SEAICE_GROWTH |
& * a_FWbySublim(I,J)*AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
686 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
687 |
SEAICE_GROWTH |
a_QbyATM_cover(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
688 |
SEAICE_GROWTH |
r_QbyATM_cover(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
689 |
SEAICE_GROWTH |
a_QSWbyATM_cover(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
705 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
708 |
SEAICE_GROWTH |
TBC = -0.0575 _d 0*salt(I,J,kSurface,bi,bj) + 0.0901 _d 0 |
|
./pkg/seaice/seaice_growth.F |
710 |
SEAICE_GROWTH |
IF ( theta(I,J,kSurface,bi,bj) .GE. TBC ) THEN |
|
./pkg/seaice/seaice_growth.F |
712 |
SEAICE_GROWTH |
& * (theta(I,J,kSurface,bi,bj)-TBC) * dRf(kSurface) |
|
./pkg/seaice/seaice_growth.F |
717 |
SEAICE_GROWTH |
& * (theta(I,J,kSurface,bi,bj)-TBC) * dRf(kSurface) |
|
./pkg/seaice/seaice_growth.F |
748 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
749 |
SEAICE_GROWTH |
d_HEFFbyOCNonICE(I,J)=MAX(r_QbyOCN(i,j), -HEFF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
750 |
SEAICE_GROWTH |
r_QbyOCN(I,J)=r_QbyOCN(I,J)-d_HEFFbyOCNonICE(I,J) |
|
./pkg/seaice/seaice_growth.F |
751 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj)=HEFF(I,J,bi,bj) + d_HEFFbyOCNonICE(I,J) |
|
./pkg/seaice/seaice_growth.F |
778 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
779 |
SEAICE_GROWTH |
IF ( a_FWbySublim(I,J) .LT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_growth.F |
781 |
SEAICE_GROWTH |
d_HSNWbySublim(I,J) = -a_FWbySublim(I,J)*rodt |
|
./pkg/seaice/seaice_growth.F |
782 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj) + d_HSNWbySublim(I,J) |
|
./pkg/seaice/seaice_growth.F |
783 |
SEAICE_GROWTH |
a_FWbySublim(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
786 |
SEAICE_GROWTH |
tmpscal1 = MIN(a_FWbySublim(I,J)*rodt,HSNOW(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
788 |
SEAICE_GROWTH |
d_HSNWbySublim(I,J) = - tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
789 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj) - tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
790 |
SEAICE_GROWTH |
a_FWbySublim(I,J) = a_FWbySublim(I,J) - tmpscal2*rrodt |
|
./pkg/seaice/seaice_growth.F |
801 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
802 |
SEAICE_GROWTH |
tmpscal1=MAX(r_QbyATM_cover(I,J)*ICE2SNOW,-HSNOW(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
808 |
SEAICE_GROWTH |
d_HSNWbyATMonSNW(I,J)= tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
809 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj) + tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
810 |
SEAICE_GROWTH |
r_QbyATM_cover(I,J)=r_QbyATM_cover(I,J) - tmpscal2/ICE2SNOW |
|
./pkg/seaice/seaice_growth.F |
826 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
828 |
SEAICE_GROWTH |
tmpscal1 = MIN(a_FWbySublim(I,J)*rodt,HEFF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
830 |
SEAICE_GROWTH |
d_HEFFbySublim(I,J) = - tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
831 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) - tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
832 |
SEAICE_GROWTH |
a_FWbySublim(I,J) = a_FWbySublim(I,J) - tmpscal2*rrodt |
|
./pkg/seaice/seaice_growth.F |
848 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
849 |
SEAICE_GROWTH |
tmpscal2 = MAX(-HEFF(I,J,bi,bj),r_QbyATM_cover(I,J)) |
|
./pkg/seaice/seaice_growth.F |
850 |
SEAICE_GROWTH |
d_HEFFbyATMonOCN(I,J)=d_HEFFbyATMonOCN(I,J)+tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
851 |
SEAICE_GROWTH |
r_QbyATM_cover(I,J)=r_QbyATM_cover(I,J)-tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
852 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) + tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
866 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
870 |
SEAICE_GROWTH |
IF ( a_QbyATM_cover(I,J).GE. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_growth.F |
872 |
SEAICE_GROWTH |
d_HFRWbyRAIN(I,J)=0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
873 |
SEAICE_GROWTH |
d_HSNWbyRAIN(I,J)=convertPRECIP2HI*ICE2SNOW* |
|
./pkg/seaice/seaice_growth.F |
874 |
SEAICE_GROWTH |
& PRECIP(I,J,bi,bj)*AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
877 |
SEAICE_GROWTH |
d_HFRWbyRAIN(I,J)=-convertPRECIP2HI* |
|
./pkg/seaice/seaice_growth.F |
878 |
SEAICE_GROWTH |
& PRECIP(I,J,bi,bj)*AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
879 |
SEAICE_GROWTH |
d_HSNWbyRAIN(I,J)=0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
881 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj) + d_HSNWbyRAIN(I,J) |
|
./pkg/seaice/seaice_growth.F |
891 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
892 |
SEAICE_GROWTH |
DIAGarray(I,J) = maskC(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
893 |
SEAICE_GROWTH |
& * d_HSNWbyRAIN(I,J)*SEAICE_rhoSnow/SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
913 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
914 |
SEAICE_GROWTH |
tmpscal1=MAX(r_QbyOCN(i,j)*ICE2SNOW, -HSNOW(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
920 |
SEAICE_GROWTH |
d_HSNWbyOCNonSNW(I,J) = tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
921 |
SEAICE_GROWTH |
r_QbyOCN(I,J)=r_QbyOCN(I,J) |
|
./pkg/seaice/seaice_growth.F |
922 |
SEAICE_GROWTH |
& -d_HSNWbyOCNonSNW(I,J)/ICE2SNOW |
|
./pkg/seaice/seaice_growth.F |
923 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj)+d_HSNWbyOCNonSNW(I,J) |
|
./pkg/seaice/seaice_growth.F |
941 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
942 |
SEAICE_GROWTH |
if ( (r_QbyATM_open(I,J).GT.0. _d 0).AND. |
|
./pkg/seaice/seaice_growth.F |
943 |
SEAICE_GROWTH |
& (HEFF(I,J,bi,bj).GT.0. _d 0) ) then |
|
./pkg/seaice/seaice_growth.F |
944 |
SEAICE_GROWTH |
tmpscal1=r_QbyATM_open(I,J)+r_QbyOCN(i,j) |
|
./pkg/seaice/seaice_growth.F |
947 |
SEAICE_GROWTH |
tmpscal2=SWFRACB*(a_QSWbyATM_cover(I,J) |
|
./pkg/seaice/seaice_growth.F |
948 |
SEAICE_GROWTH |
& +a_QSWbyATM_open(I,J)) |
|
./pkg/seaice/seaice_growth.F |
955 |
SEAICE_GROWTH |
d_HEFFbyATMonOCN_open(I,J)=tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
958 |
SEAICE_GROWTH |
d_HEFFbyATMonOCN(I,J)=d_HEFFbyATMonOCN(I,J)+tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
959 |
SEAICE_GROWTH |
r_QbyATM_open(I,J)=r_QbyATM_open(I,J)-tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
960 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) + tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
978 |
SEAICE_GROWTH |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth.F |
979 |
SEAICE_GROWTH |
hDraft = (HSNOW(I,J,bi,bj)*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_growth.F |
980 |
SEAICE_GROWTH |
& +HEFF(I,J,bi,bj)*SEAICE_rhoIce)/rhoConst |
|
./pkg/seaice/seaice_growth.F |
981 |
SEAICE_GROWTH |
tmpscal1 = MAX( 0. _d 0, hDraft - HEFF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
982 |
SEAICE_GROWTH |
d_HEFFbyFLOODING(I,J)=tmpscal1 |
|
./pkg/seaice/seaice_growth.F |
983 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj)+d_HEFFbyFLOODING(I,J) |
|
./pkg/seaice/seaice_growth.F |
984 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj)- |
|
./pkg/seaice/seaice_growth.F |
985 |
SEAICE_GROWTH |
& d_HEFFbyFLOODING(I,J)*ICE2SNOW |
|
./pkg/seaice/seaice_growth_if.F |
1000 |
SEAICE_GROWTH_IF |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
1018 |
SEAICE_GROWTH_IF |
DO I = 1,sNx |
|
./pkg/seaice/seaice_growth_if.F |
1019 |
SEAICE_GROWTH_IF |
EnergyToMeltSnowAndIce(I,J) = |
|
./pkg/seaice/seaice_growth_if.F |
1020 |
SEAICE_GROWTH_IF |
& HEFF(I,J,bi,bj)/QI + |
|
./pkg/seaice/seaice_growth_if.F |
1021 |
SEAICE_GROWTH_IF |
& HSNOW(I,J,bi,bj)/QS |
|
./pkg/seaice/seaice_growth_if.F |
1023 |
SEAICE_GROWTH_IF |
deltaHS = FL_C2*( HSNOW_ACTUAL(I,J) - |
|
./pkg/seaice/seaice_growth_if.F |
1024 |
SEAICE_GROWTH_IF |
& HICE_ACTUAL(I,J)*FL_C3 ) |
|
./pkg/seaice/seaice_growth_if.F |
1029 |
SEAICE_GROWTH_IF |
HICE_ACTUAL(I,J) = HICE_ACTUAL(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
1032 |
SEAICE_GROWTH_IF |
HSNOW_ACTUAL(I,J)= HSNOW_ACTUAL(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
1035 |
SEAICE_GROWTH_IF |
HEFF(I,J,bi,bj)= HICE_ACTUAL(I,J) * |
|
./pkg/seaice/seaice_growth_if.F |
1036 |
SEAICE_GROWTH_IF |
& AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
1038 |
SEAICE_GROWTH_IF |
HSNOW(I,J,bi,bj) = HSNOW_ACTUAL(I,J)* |
|
./pkg/seaice/seaice_growth_if.F |
1039 |
SEAICE_GROWTH_IF |
& AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
1041 |
SEAICE_GROWTH_IF |
EnergyToMeltSnowAndIce2(I,J) = |
|
./pkg/seaice/seaice_growth_if.F |
1042 |
SEAICE_GROWTH_IF |
& HEFF(I,J,bi,bj)/QI + |
|
./pkg/seaice/seaice_growth_if.F |
1043 |
SEAICE_GROWTH_IF |
& HSNOW(I,J,bi,bj)/QS |
|
./pkg/seaice/seaice_growth_if.F |
1046 |
SEAICE_GROWTH_IF |
IF ( (I .EQ. SEAICE_debugPointX) .and. |
|
./pkg/seaice/seaice_growth_if.F |
1050 |
SEAICE_GROWTH_IF |
& EnergyToMeltSnowAndIce(I,J), |
|
./pkg/seaice/seaice_growth_if.F |
1051 |
SEAICE_GROWTH_IF |
& EnergyToMeltSnowAndIce2(I,J), |
|
./pkg/seaice/seaice_growth_if.F |
1052 |
SEAICE_GROWTH_IF |
& EnergyToMeltSnowAndIce(I,J) - |
|
./pkg/seaice/seaice_growth_if.F |
1053 |
SEAICE_GROWTH_IF |
& EnergyToMeltSnowAndIce2(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
1080 |
SEAICE_GROWTH_IF |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth_if.F |
1081 |
SEAICE_GROWTH_IF |
sIceLoad(i,j,bi,bj) = HEFF(I,J,bi,bj)* |
|
./pkg/seaice/seaice_growth_if.F |
1082 |
SEAICE_GROWTH_IF |
& SEAICE_rhoIce + HSNOW(I,J,bi,bj)*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_growth_if.F |
1120 |
SEAICE_GROWTH_IF |
& AREANm1(I,J,bi,bj), |
|
./pkg/seaice/seaice_growth_if.F |
1122 |
SEAICE_GROWTH_IF |
& HEFFNm1(I,J,bi,bj), |
|
./pkg/seaice/seaice_growth_if.F |
1127 |
SEAICE_GROWTH_IF |
& HSNOW_ORIG(I,J), |
|
./pkg/seaice/seaice_growth_if.F |
1128 |
SEAICE_GROWTH_IF |
& HSNOW(I,J,bi,bj), |
|
./pkg/seaice/seaice_growth_if.F |
1155 |
SEAICE_GROWTH_IF |
& QNET(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
1189 |
SEAICE_GROWTH_IF |
& EmPmR(I,J,bi,bj), |
|
./pkg/seaice/seaice_growth_if.F |
1190 |
SEAICE_GROWTH_IF |
& EVAP(I,J,bi,bj), |
|
./pkg/seaice/seaice_growth_if.F |
1191 |
SEAICE_GROWTH_IF |
& PRECIP(I,J,bi,bj), |
|
./pkg/seaice/seaice_growth_if.F |
1192 |
SEAICE_GROWTH_IF |
& RUNOFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
1196 |
SEAICE_GROWTH_IF |
& PrecipRateOverIceSurfaceToSea(I,J), |
|
./pkg/seaice/seaice_growth_if.F |
1197 |
SEAICE_GROWTH_IF |
& SnowAccRateOverIce(I,J), |
|
./pkg/seaice/seaice_growth_if.F |
1198 |
SEAICE_GROWTH_IF |
& SmowAccOverIce(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
1202 |
SEAICE_GROWTH_IF |
& PotSnowMeltFromSurf(I,J), |
|
./pkg/seaice/seaice_growth_if.F |
1203 |
SEAICE_GROWTH_IF |
& PotSnowMeltRateFromSurf(I,J), |
|
./pkg/seaice/seaice_growth_if.F |
1204 |
SEAICE_GROWTH_IF |
& SnowMeltFromSurface(I,J), |
|
./pkg/seaice/seaice_growth_if.F |
1205 |
SEAICE_GROWTH_IF |
& SnowMeltRateFromSurface(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
1209 |
SEAICE_GROWTH_IF |
& ActualNewTotalSnowMelt(I,J), |
|
./pkg/seaice/seaice_growth_if.F |
1210 |
SEAICE_GROWTH_IF |
& ExpectedSnowVolumeChange(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
1215 |
SEAICE_GROWTH_IF |
& FreshwaterContribFromIce(I,J), |
|
./pkg/seaice/seaice_growth_if.F |
1216 |
SEAICE_GROWTH_IF |
& FreshwaterContribFromSnowMelt(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
241 |
SEAICE_GROWTH_IF |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth_if.F |
242 |
SEAICE_GROWTH_IF |
F_ia_net (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
243 |
SEAICE_GROWTH_IF |
F_ia_net_before_snow(I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
244 |
SEAICE_GROWTH_IF |
F_io_net (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
246 |
SEAICE_GROWTH_IF |
F_ia (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
247 |
SEAICE_GROWTH_IF |
F_ao (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
248 |
SEAICE_GROWTH_IF |
F_mi (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
250 |
SEAICE_GROWTH_IF |
QNETI(I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
251 |
SEAICE_GROWTH_IF |
QSWO (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
252 |
SEAICE_GROWTH_IF |
QSWI (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
254 |
SEAICE_GROWTH_IF |
QSWO_BELOW_FIRST_LAYER (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
255 |
SEAICE_GROWTH_IF |
QSWO_IN_FIRST_LAYER (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
257 |
SEAICE_GROWTH_IF |
S_a (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
258 |
SEAICE_GROWTH_IF |
S_h (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
260 |
SEAICE_GROWTH_IF |
IceGrowthRateUnderExistingIce (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
261 |
SEAICE_GROWTH_IF |
IceGrowthRateFromSurface (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
262 |
SEAICE_GROWTH_IF |
NetExistingIceGrowthRate (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
263 |
SEAICE_GROWTH_IF |
S_a_from_IGROW (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
265 |
SEAICE_GROWTH_IF |
PredTempChange (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
266 |
SEAICE_GROWTH_IF |
PredTempChangeFromQSW (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
267 |
SEAICE_GROWTH_IF |
PredTempChangeFromOA_MQNET (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
268 |
SEAICE_GROWTH_IF |
PredTempChangeFromFIA (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
269 |
SEAICE_GROWTH_IF |
PredTempChangeFromF_IA_NET (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
270 |
SEAICE_GROWTH_IF |
PredTempChangeFromF_IO_NET (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
271 |
SEAICE_GROWTH_IF |
PredTempChangeFromNewIceVol (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
273 |
SEAICE_GROWTH_IF |
IceGrowthRateOpenWater (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
274 |
SEAICE_GROWTH_IF |
IceGrowthRateMixedLayer (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
276 |
SEAICE_GROWTH_IF |
ExpectedIceVolumeChange (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
277 |
SEAICE_GROWTH_IF |
ExpectedSnowVolumeChange (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
278 |
SEAICE_GROWTH_IF |
ActualNewTotalVolumeChange (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
279 |
SEAICE_GROWTH_IF |
ActualNewTotalSnowMelt (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
281 |
SEAICE_GROWTH_IF |
EnergyInNewTotalIceVolume (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
282 |
SEAICE_GROWTH_IF |
NetEnergyFluxOutOfSystem (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
283 |
SEAICE_GROWTH_IF |
ResidualHeatOutOfSystem (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
284 |
SEAICE_GROWTH_IF |
QSW_absorb_in_ML (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
285 |
SEAICE_GROWTH_IF |
QSW_absorb_below_ML (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
287 |
SEAICE_GROWTH_IF |
SnowAccRateOverIce (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
288 |
SEAICE_GROWTH_IF |
SmowAccOverIce (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
289 |
SEAICE_GROWTH_IF |
PrecipRateOverIceSurfaceToSea (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
291 |
SEAICE_GROWTH_IF |
PotSnowMeltRateFromSurf (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
292 |
SEAICE_GROWTH_IF |
PotSnowMeltFromSurf (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
293 |
SEAICE_GROWTH_IF |
SnowMeltFromSurface (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
294 |
SEAICE_GROWTH_IF |
SnowMeltRateFromSurface (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
295 |
SEAICE_GROWTH_IF |
SurfHeatFluxConvergToSnowMelt (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
297 |
SEAICE_GROWTH_IF |
FreshwaterContribFromSnowMelt (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
298 |
SEAICE_GROWTH_IF |
FreshwaterContribFromIce (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
304 |
SEAICE_GROWTH_IF |
HEFFNm1(I,J,bi,bj) = HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
305 |
SEAICE_GROWTH_IF |
AREANm1(I,J,bi,bj) = AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
324 |
SEAICE_GROWTH_IF |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth_if.F |
328 |
SEAICE_GROWTH_IF |
HEFFNm1(I,J,bi,bj) = MAX(0. _d 0,HEFFNm1(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth_if.F |
329 |
SEAICE_GROWTH_IF |
HSNOW(I,J,bi,bj) = MAX(0. _d 0,HSNOW(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_growth_if.F |
330 |
SEAICE_GROWTH_IF |
AREANm1(I,J,bi,bj) = MAX(0. _d 0,AREANm1(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth_if.F |
334 |
SEAICE_GROWTH_IF |
IF (PRECIP(I,J,bi,bj) .LT. 0.0 _d 0) THEN |
|
./pkg/seaice/seaice_growth_if.F |
335 |
SEAICE_GROWTH_IF |
PRECIP(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth_if.F |
351 |
SEAICE_GROWTH_IF |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth_if.F |
353 |
SEAICE_GROWTH_IF |
IF (HEFFNm1(I,J,bi,bj) .EQ. 0.0) THEN |
|
./pkg/seaice/seaice_growth_if.F |
354 |
SEAICE_GROWTH_IF |
AREANm1(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth_if.F |
355 |
SEAICE_GROWTH_IF |
HSNOW(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth_if.F |
358 |
SEAICE_GROWTH_IF |
IF (AREANm1(I,J,bi,bj) .EQ. 0.0) THEN |
|
./pkg/seaice/seaice_growth_if.F |
359 |
SEAICE_GROWTH_IF |
HEFFNm1(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth_if.F |
360 |
SEAICE_GROWTH_IF |
HSNOW(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth_if.F |
365 |
SEAICE_GROWTH_IF |
IF (AREANm1(I,J,bi,bj) .GT. 0.) THEN |
|
./pkg/seaice/seaice_growth_if.F |
366 |
SEAICE_GROWTH_IF |
HICE_ACTUAL(I,J) = |
|
./pkg/seaice/seaice_growth_if.F |
367 |
SEAICE_GROWTH_IF |
& HEFFNm1(I,J,bi,bj)/AREANm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
369 |
SEAICE_GROWTH_IF |
HSNOW_ACTUAL(I,J) = HSNOW(I,J,bi,bj)/ |
|
./pkg/seaice/seaice_growth_if.F |
370 |
SEAICE_GROWTH_IF |
& AREANm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
377 |
SEAICE_GROWTH_IF |
IF (TICE(I,J,bi,bj) .LT. TMELT) THEN |
|
./pkg/seaice/seaice_growth_if.F |
379 |
SEAICE_GROWTH_IF |
SnowAccRateOverIce(I,J) = |
|
./pkg/seaice/seaice_growth_if.F |
380 |
SEAICE_GROWTH_IF |
& PRECIP(I,J,bi,bj)*RHOFW/RHOSN |
|
./pkg/seaice/seaice_growth_if.F |
383 |
SEAICE_GROWTH_IF |
PrecipRateOverIceSurfaceToSea(I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
391 |
SEAICE_GROWTH_IF |
SnowAccRateOverIce(I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
393 |
SEAICE_GROWTH_IF |
PrecipRateOverIceSurfaceToSea(I,J)= |
|
./pkg/seaice/seaice_growth_if.F |
394 |
SEAICE_GROWTH_IF |
& PRECIP(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
398 |
SEAICE_GROWTH_IF |
SmowAccOverIce(I,J) = |
|
./pkg/seaice/seaice_growth_if.F |
399 |
SEAICE_GROWTH_IF |
& SnowAccRateOverIce(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
400 |
SEAICE_GROWTH_IF |
& *SEAICE_deltaTtherm*AreaNm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
403 |
SEAICE_GROWTH_IF |
HEFFNm1(I,J,bi,bj) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
404 |
SEAICE_GROWTH_IF |
HICE_ACTUAL(I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
405 |
SEAICE_GROWTH_IF |
HSNOW_ACTUAL(I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
406 |
SEAICE_GROWTH_IF |
HSNOW(I,J,bi,bj) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
408 |
SEAICE_GROWTH_IF |
HSNOW_ORIG(I,J) = HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
414 |
SEAICE_GROWTH_IF |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth_if.F |
416 |
SEAICE_GROWTH_IF |
UG(I,J) = MAX(SEAICE_EPS,wspeed(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth_if.F |
437 |
SEAICE_GROWTH_IF |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth_if.F |
438 |
SEAICE_GROWTH_IF |
TMIX(I,J,bi,bj)= |
|
./pkg/seaice/seaice_growth_if.F |
439 |
SEAICE_GROWTH_IF |
& theta(I,J,kSurface,bi,bj) + TMELT |
|
./pkg/seaice/seaice_growth_if.F |
460 |
SEAICE_GROWTH_IF |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth_if.F |
461 |
SEAICE_GROWTH_IF |
F_ia_net (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
462 |
SEAICE_GROWTH_IF |
F_ia (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
463 |
SEAICE_GROWTH_IF |
F_io_net(I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
470 |
SEAICE_GROWTH_IF |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth_if.F |
473 |
SEAICE_GROWTH_IF |
IF ( (I .EQ. SEAICE_debugPointX) .and. |
|
./pkg/seaice/seaice_growth_if.F |
476 |
SEAICE_GROWTH_IF |
print *,'sig: I,J,F_ia,F_ia_net',I,J,F_ia(I,J), |
|
./pkg/seaice/seaice_growth_if.F |
477 |
SEAICE_GROWTH_IF |
& F_ia_net(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
482 |
SEAICE_GROWTH_IF |
F_ia_net_before_snow(I,J) = F_ia_net(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
484 |
SEAICE_GROWTH_IF |
IF (AreaNm1(I,J,bi,bj)*HEFFNm1(I,J,bi,bj).LE.0.) THEN |
|
./pkg/seaice/seaice_growth_if.F |
485 |
SEAICE_GROWTH_IF |
IceGrowthRateUnderExistingIce(I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
486 |
SEAICE_GROWTH_IF |
IceGrowthRateFromSurface(I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
487 |
SEAICE_GROWTH_IF |
NetExistingIceGrowthRate(I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
493 |
SEAICE_GROWTH_IF |
IceGrowthRateUnderExistingIce(I,J)=F_io_net(I,J)*QI |
|
./pkg/seaice/seaice_growth_if.F |
499 |
SEAICE_GROWTH_IF |
PotSnowMeltRateFromSurf(I,J)= - F_ia_net(I,J)*QS |
|
./pkg/seaice/seaice_growth_if.F |
503 |
SEAICE_GROWTH_IF |
PotSnowMeltFromSurf(I,J) = |
|
./pkg/seaice/seaice_growth_if.F |
504 |
SEAICE_GROWTH_IF |
& PotSnowMeltRateFromSurf(I,J)* SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth_if.F |
514 |
SEAICE_GROWTH_IF |
IF (PotSnowMeltFromSurf(I,J) .GE. |
|
./pkg/seaice/seaice_growth_if.F |
515 |
SEAICE_GROWTH_IF |
& HSNOW_ACTUAL(I,J)) THEN |
|
./pkg/seaice/seaice_growth_if.F |
517 |
SEAICE_GROWTH_IF |
SnowMeltFromSurface(I,J) = HSNOW_ACTUAL(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
519 |
SEAICE_GROWTH_IF |
SnowMeltRateFromSurface(I,J) = |
|
./pkg/seaice/seaice_growth_if.F |
520 |
SEAICE_GROWTH_IF |
& SnowMeltFromSurface(I,J)/ SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth_if.F |
524 |
SEAICE_GROWTH_IF |
SurfHeatFluxConvergToSnowMelt(I,J) = |
|
./pkg/seaice/seaice_growth_if.F |
525 |
SEAICE_GROWTH_IF |
& -HSNOW_ACTUAL(I,J)/QS/SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth_if.F |
530 |
SEAICE_GROWTH_IF |
SnowMeltFromSurface(I,J)=PotSnowMeltFromSurf(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
532 |
SEAICE_GROWTH_IF |
SnowMeltRateFromSurface(I,J) = |
|
./pkg/seaice/seaice_growth_if.F |
533 |
SEAICE_GROWTH_IF |
& PotSnowMeltRateFromSurf(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
535 |
SEAICE_GROWTH_IF |
SurfHeatFluxConvergToSnowMelt(I,J) =F_ia_net(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
540 |
SEAICE_GROWTH_IF |
F_ia_net(I,J) = |
|
./pkg/seaice/seaice_growth_if.F |
541 |
SEAICE_GROWTH_IF |
& F_ia_net(I,J)-SurfHeatFluxConvergToSnowMelt(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
543 |
SEAICE_GROWTH_IF |
IceGrowthRateFromSurface(I,J) = F_ia_net(I,J)*QI |
|
./pkg/seaice/seaice_growth_if.F |
545 |
SEAICE_GROWTH_IF |
NetExistingIceGrowthRate(I,J) = |
|
./pkg/seaice/seaice_growth_if.F |
546 |
SEAICE_GROWTH_IF |
& IceGrowthRateUnderExistingIce(I,J) + |
|
./pkg/seaice/seaice_growth_if.F |
547 |
SEAICE_GROWTH_IF |
& IceGrowthRateFromSurface(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
577 |
SEAICE_GROWTH_IF |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth_if.F |
582 |
SEAICE_GROWTH_IF |
QSWO_BELOW_FIRST_LAYER(i,j)= QSWO(I,J)*SWFRACB |
|
./pkg/seaice/seaice_growth_if.F |
583 |
SEAICE_GROWTH_IF |
QSWO_IN_FIRST_LAYER(I,J) = QSWO(I,J)*(1.0 - SWFRACB) |
|
./pkg/seaice/seaice_growth_if.F |
586 |
SEAICE_GROWTH_IF |
QSWO_IN_FIRST_LAYER(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_growth_if.F |
588 |
SEAICE_GROWTH_IF |
IceGrowthRateOpenWater(I,J)= QI* |
|
./pkg/seaice/seaice_growth_if.F |
589 |
SEAICE_GROWTH_IF |
& (F_ao(I,J) - QSWO(I,J) + QSWO_IN_FIRST_LAYER(I,J)) |
|
./pkg/seaice/seaice_growth_if.F |
606 |
SEAICE_GROWTH_IF |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth_if.F |
610 |
SEAICE_GROWTH_IF |
TBC = -0.0575 _d 0*salt(I,J,kSurface,bi,bj) + |
|
./pkg/seaice/seaice_growth_if.F |
622 |
SEAICE_GROWTH_IF |
surf_theta = max(theta(I,J,kSurface,bi,bj), TBC) |
|
./pkg/seaice/seaice_growth_if.F |
624 |
SEAICE_GROWTH_IF |
F_mi(I,J) = -GAMMA*RHOSW*CPW *(surf_theta - TBC) |
|
./pkg/seaice/seaice_growth_if.F |
626 |
SEAICE_GROWTH_IF |
IceGrowthRateMixedLayer(I,J) = F_mi(I,J)*QI |
|
./pkg/seaice/seaice_growth_if.F |
637 |
SEAICE_GROWTH_IF |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth_if.F |
638 |
SEAICE_GROWTH_IF |
S_h(I,J) = |
|
./pkg/seaice/seaice_growth_if.F |
639 |
SEAICE_GROWTH_IF |
& NetExistingIceGrowthRate(I,J)*AREANm1(I,J,bi,bj)+ |
|
./pkg/seaice/seaice_growth_if.F |
640 |
SEAICE_GROWTH_IF |
& (1. -AREANm1(I,J,bi,bj))* |
|
./pkg/seaice/seaice_growth_if.F |
641 |
SEAICE_GROWTH_IF |
& IceGrowthRateOpenWater(I,J) + |
|
./pkg/seaice/seaice_growth_if.F |
642 |
SEAICE_GROWTH_IF |
& IceGrowthRateMixedLayer(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
647 |
SEAICE_GROWTH_IF |
S_hsnow(I,J) = AREANm1(I,J,bi,bj)* ( |
|
./pkg/seaice/seaice_growth_if.F |
648 |
SEAICE_GROWTH_IF |
& SnowAccRateOverIce(I,J) - |
|
./pkg/seaice/seaice_growth_if.F |
649 |
SEAICE_GROWTH_IF |
& SnowMeltRateFromSurface(I,J) ) |
|
./pkg/seaice/seaice_growth_if.F |
667 |
SEAICE_GROWTH_IF |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth_if.F |
668 |
SEAICE_GROWTH_IF |
S_a(I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
677 |
SEAICE_GROWTH_IF |
IF (IceGrowthRateOpenWater(I,J) .GT. 0) THEN |
|
./pkg/seaice/seaice_growth_if.F |
678 |
SEAICE_GROWTH_IF |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_growth_if.F |
679 |
SEAICE_GROWTH_IF |
S_a_from_IGROW(I,J) = (ONE-AREANm1(I,J,bi,bj))* |
|
./pkg/seaice/seaice_growth_if.F |
680 |
SEAICE_GROWTH_IF |
& IceGrowthRateOpenWater(I,J)/HO_south |
|
./pkg/seaice/seaice_growth_if.F |
682 |
SEAICE_GROWTH_IF |
S_a_from_IGROW(I,J) = (ONE-AREANm1(I,J,bi,bj))* |
|
./pkg/seaice/seaice_growth_if.F |
683 |
SEAICE_GROWTH_IF |
& IceGrowthRateOpenWater(I,J)/HO |
|
./pkg/seaice/seaice_growth_if.F |
686 |
SEAICE_GROWTH_IF |
IF (AREANm1(I,J,bi,bj) .GT. 0.) THEN |
|
./pkg/seaice/seaice_growth_if.F |
687 |
SEAICE_GROWTH_IF |
S_a(I,J) = S_a(I,J) + S_a_from_IGROW(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
689 |
SEAICE_GROWTH_IF |
IF (S_h(I,J) .GT. 0) THEN |
|
./pkg/seaice/seaice_growth_if.F |
690 |
SEAICE_GROWTH_IF |
S_a(I,J) = S_a(I,J) + S_a_from_IGROW(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
696 |
SEAICE_GROWTH_IF |
IF ( (S_h(I,J) .LT. 0.) .AND. |
|
./pkg/seaice/seaice_growth_if.F |
697 |
SEAICE_GROWTH_IF |
& (AREANm1(I,J,bi,bj).GT. 0.) .AND. |
|
./pkg/seaice/seaice_growth_if.F |
698 |
SEAICE_GROWTH_IF |
& (HEFFNm1(I,J,bi,bj).NE. 0.) ) THEN |
|
./pkg/seaice/seaice_growth_if.F |
700 |
SEAICE_GROWTH_IF |
S_a(I,J) = S_a(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
701 |
SEAICE_GROWTH_IF |
& + AREANm1(I,J,bi,bj)/(2.0*HEFFNm1(I,J,bi,bj))* |
|
./pkg/seaice/seaice_growth_if.F |
702 |
SEAICE_GROWTH_IF |
& IceGrowthRateOpenWater(I,J)* |
|
./pkg/seaice/seaice_growth_if.F |
703 |
SEAICE_GROWTH_IF |
& (1-AREANm1(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth_if.F |
705 |
SEAICE_GROWTH_IF |
S_a(I,J) = S_a(I,J) + 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
709 |
SEAICE_GROWTH_IF |
IF ( (IceGrowthRateMixedLayer(I,J) .LE. 0.) .AND. |
|
./pkg/seaice/seaice_growth_if.F |
710 |
SEAICE_GROWTH_IF |
& (AREANm1(I,J,bi,bj).GT. 0.) .AND. |
|
./pkg/seaice/seaice_growth_if.F |
711 |
SEAICE_GROWTH_IF |
& (HEFFNm1(I,J,bi,bj).NE. 0.) ) THEN |
|
./pkg/seaice/seaice_growth_if.F |
713 |
SEAICE_GROWTH_IF |
S_a(I,J) = S_a(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
714 |
SEAICE_GROWTH_IF |
& + AREANm1(I,J,bi,bj)/(2.0*HEFFNm1(I,J,bi,bj))* |
|
./pkg/seaice/seaice_growth_if.F |
715 |
SEAICE_GROWTH_IF |
& IceGrowthRateMixedLayer(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
718 |
SEAICE_GROWTH_IF |
S_a(I,J) = S_a(I,J) + 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
722 |
SEAICE_GROWTH_IF |
IF ( (NetExistingIceGrowthRate(I,J) .LE. 0.) .AND. |
|
./pkg/seaice/seaice_growth_if.F |
723 |
SEAICE_GROWTH_IF |
& (AREANm1(I,J,bi,bj).GT. 0.) .AND. |
|
./pkg/seaice/seaice_growth_if.F |
724 |
SEAICE_GROWTH_IF |
& (HEFFNm1(I,J,bi,bj).NE. 0.) ) THEN |
|
./pkg/seaice/seaice_growth_if.F |
726 |
SEAICE_GROWTH_IF |
S_a(I,J) = S_a(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
727 |
SEAICE_GROWTH_IF |
& + AREANm1(I,J,bi,bj)/(2.0*HEFFNm1(I,J,bi,bj))* |
|
./pkg/seaice/seaice_growth_if.F |
728 |
SEAICE_GROWTH_IF |
& NetExistingIceGrowthRate(I,J)*AREANm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
731 |
SEAICE_GROWTH_IF |
S_a(I,J) = S_a(I,J) + 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
759 |
SEAICE_GROWTH_IF |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth_if.F |
760 |
SEAICE_GROWTH_IF |
AREA(I,J,bi,bj) = AREANm1(I,J,bi,bj) + |
|
./pkg/seaice/seaice_growth_if.F |
761 |
SEAICE_GROWTH_IF |
& SEAICE_deltaTtherm * S_a(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
762 |
SEAICE_GROWTH_IF |
HEFF(I,J,bi,bj) = HEFFNm1(I,J,bi,bj) + |
|
./pkg/seaice/seaice_growth_if.F |
763 |
SEAICE_GROWTH_IF |
& SEAICE_deltaTTherm * S_h(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
764 |
SEAICE_GROWTH_IF |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj) + |
|
./pkg/seaice/seaice_growth_if.F |
765 |
SEAICE_GROWTH_IF |
& SEAICE_deltaTTherm * S_hsnow(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
779 |
SEAICE_GROWTH_IF |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth_if.F |
781 |
SEAICE_GROWTH_IF |
AREA(I,J,bi,bj) = MIN(1. _d 0,AREA(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth_if.F |
782 |
SEAICE_GROWTH_IF |
AREA(I,J,bi,bj) = MAX(0. _d 0,AREA(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth_if.F |
783 |
SEAICE_GROWTH_IF |
HEFF(I,J,bi,bj) = MAX(0. _d 0, HEFF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth_if.F |
784 |
SEAICE_GROWTH_IF |
HSNOW(I,J,bi,bj) = MAX(0. _d 0, HSNOW(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth_if.F |
798 |
SEAICE_GROWTH_IF |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth_if.F |
799 |
SEAICE_GROWTH_IF |
IF (AREA(I,J,bi,bj) .GT. 0.0) THEN |
|
./pkg/seaice/seaice_growth_if.F |
800 |
SEAICE_GROWTH_IF |
HICE_ACTUAL(I,J) = |
|
./pkg/seaice/seaice_growth_if.F |
801 |
SEAICE_GROWTH_IF |
& HEFF(I,J,bi,bj)/AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
802 |
SEAICE_GROWTH_IF |
HSNOW_ACTUAL(I,J) = |
|
./pkg/seaice/seaice_growth_if.F |
803 |
SEAICE_GROWTH_IF |
& HSNOW(I,J,bi,bj)/AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
805 |
SEAICE_GROWTH_IF |
HICE_ACTUAL(I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
806 |
SEAICE_GROWTH_IF |
HSNOW_ACTUAL(I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
820 |
SEAICE_GROWTH_IF |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth_if.F |
821 |
SEAICE_GROWTH_IF |
IF (HEFF(I,J,bi,bj) .LE. 0.0 .OR. |
|
./pkg/seaice/seaice_growth_if.F |
822 |
SEAICE_GROWTH_IF |
& AREA(I,J,bi,bj) .LE. 0.0) THEN |
|
./pkg/seaice/seaice_growth_if.F |
824 |
SEAICE_GROWTH_IF |
AREA(I,J,bi,bj) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
825 |
SEAICE_GROWTH_IF |
HEFF(I,J,bi,bj) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
826 |
SEAICE_GROWTH_IF |
HICE_ACTUAL(I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
827 |
SEAICE_GROWTH_IF |
HSNOW(I,J,bi,bj) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
828 |
SEAICE_GROWTH_IF |
HSNOW_ACTUAL(I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
841 |
SEAICE_GROWTH_IF |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth_if.F |
844 |
SEAICE_GROWTH_IF |
ExpectedIceVolumeChange(I,J) = S_h(I,J) * |
|
./pkg/seaice/seaice_growth_if.F |
847 |
SEAICE_GROWTH_IF |
ExpectedSnowVolumeChange(I,J) = S_hsnow(I,J)* |
|
./pkg/seaice/seaice_growth_if.F |
852 |
SEAICE_GROWTH_IF |
QSW(I,J,bi,bj) = |
|
./pkg/seaice/seaice_growth_if.F |
853 |
SEAICE_GROWTH_IF |
& QSWI(I,J) * ( AREANm1(I,J,bi,bj)) + |
|
./pkg/seaice/seaice_growth_if.F |
854 |
SEAICE_GROWTH_IF |
& QSWO(I,J) * (1. - AREANm1(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth_if.F |
856 |
SEAICE_GROWTH_IF |
QSW(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_growth_if.F |
859 |
SEAICE_GROWTH_IF |
ActualNewTotalVolumeChange(I,J) = |
|
./pkg/seaice/seaice_growth_if.F |
860 |
SEAICE_GROWTH_IF |
& HEFF(I,J,bi,bj) - HEFFNm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
870 |
SEAICE_GROWTH_IF |
ActualNewTotalSnowMelt(I,J) = |
|
./pkg/seaice/seaice_growth_if.F |
871 |
SEAICE_GROWTH_IF |
& HSNOW_ORIG(I,J) + |
|
./pkg/seaice/seaice_growth_if.F |
872 |
SEAICE_GROWTH_IF |
& SmowAccOverIce(I,J) - |
|
./pkg/seaice/seaice_growth_if.F |
873 |
SEAICE_GROWTH_IF |
& HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
876 |
SEAICE_GROWTH_IF |
EnergyInNewTotalIceVolume(I,J) = |
|
./pkg/seaice/seaice_growth_if.F |
877 |
SEAICE_GROWTH_IF |
& ActualNewTotalVolumeChange(I,J)/QI |
|
./pkg/seaice/seaice_growth_if.F |
891 |
SEAICE_GROWTH_IF |
NetEnergyFluxOutOfSystem(I,J) = SEAICE_deltaTtherm * |
|
./pkg/seaice/seaice_growth_if.F |
892 |
SEAICE_GROWTH_IF |
& (AREANm1(I,J,bi,bj) * |
|
./pkg/seaice/seaice_growth_if.F |
893 |
SEAICE_GROWTH_IF |
& (F_ia_net(I,J) + F_io_net(I,J) + QSWI(I,J)) |
|
./pkg/seaice/seaice_growth_if.F |
894 |
SEAICE_GROWTH_IF |
& + (1.0 - AREANm1(I,J,bi,bj)) * |
|
./pkg/seaice/seaice_growth_if.F |
895 |
SEAICE_GROWTH_IF |
& F_ao(I,J)) |
|
./pkg/seaice/seaice_growth_if.F |
902 |
SEAICE_GROWTH_IF |
ResidualHeatOutOfSystem(I,J) = |
|
./pkg/seaice/seaice_growth_if.F |
903 |
SEAICE_GROWTH_IF |
& NetEnergyFluxOutOfSystem(I,J) - |
|
./pkg/seaice/seaice_growth_if.F |
904 |
SEAICE_GROWTH_IF |
& EnergyInNewTotalIceVolume(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
910 |
SEAICE_GROWTH_IF |
QNET(I,J,bi,bj) = |
|
./pkg/seaice/seaice_growth_if.F |
911 |
SEAICE_GROWTH_IF |
& ResidualHeatOutOfSystem(I,J) / SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth_if.F |
917 |
SEAICE_GROWTH_IF |
FreshwaterContribFromIce(I,J) = |
|
./pkg/seaice/seaice_growth_if.F |
918 |
SEAICE_GROWTH_IF |
& -ActualNewTotalVolumeChange(I,J)*RHOI/RHOFW |
|
./pkg/seaice/seaice_growth_if.F |
924 |
SEAICE_GROWTH_IF |
FreshwaterContribFromSnowMelt(I,J) = |
|
./pkg/seaice/seaice_growth_if.F |
925 |
SEAICE_GROWTH_IF |
& ActualNewTotalSnowMelt(I,J)*RHOSN/RHOFW |
|
./pkg/seaice/seaice_growth_if.F |
931 |
SEAICE_GROWTH_IF |
EmPmR(I,J,bi,bj) = maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth_if.F |
932 |
SEAICE_GROWTH_IF |
& ( EVAP(I,J,bi,bj)-PRECIP(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_growth_if.F |
933 |
SEAICE_GROWTH_IF |
& * ( ONE - AREANm1(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_growth_if.F |
934 |
SEAICE_GROWTH_IF |
& - PrecipRateOverIceSurfaceToSea(I,J)* |
|
./pkg/seaice/seaice_growth_if.F |
935 |
SEAICE_GROWTH_IF |
& AREANm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
937 |
SEAICE_GROWTH_IF |
& - RUNOFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
939 |
SEAICE_GROWTH_IF |
& - (FreshwaterContribFromIce(I,J) + |
|
./pkg/seaice/seaice_growth_if.F |
940 |
SEAICE_GROWTH_IF |
& FreshwaterContribFromSnowMelt(I,J))/ |
|
./pkg/seaice/seaice_growth_if.F |
948 |
SEAICE_GROWTH_IF |
QSW_absorb_in_ML(I,J) = QSW(I,J,bi,bj)* |
|
./pkg/seaice/seaice_growth_if.F |
952 |
SEAICE_GROWTH_IF |
QSW_absorb_in_ML(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_growth_if.F |
956 |
SEAICE_GROWTH_IF |
QSW_absorb_below_ML(I,J) = |
|
./pkg/seaice/seaice_growth_if.F |
957 |
SEAICE_GROWTH_IF |
& QSW(I,J,bi,bj) - QSW_absorb_in_ML(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
959 |
SEAICE_GROWTH_IF |
PredTempChangeFromQSW(I,J) = |
|
./pkg/seaice/seaice_growth_if.F |
960 |
SEAICE_GROWTH_IF |
& - QSW_absorb_in_ML(I,J) * FLUX_TO_DELTA_TEMP |
|
./pkg/seaice/seaice_growth_if.F |
962 |
SEAICE_GROWTH_IF |
PredTempChangeFromOA_MQNET(I,J) = |
|
./pkg/seaice/seaice_growth_if.F |
963 |
SEAICE_GROWTH_IF |
& -(QNET(I,J,bi,bj)-QSWO(I,J))*(1. -AREANm1(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth_if.F |
966 |
SEAICE_GROWTH_IF |
PredTempChangeFromF_IO_NET(I,J) = |
|
./pkg/seaice/seaice_growth_if.F |
967 |
SEAICE_GROWTH_IF |
& -F_io_net(I,J)*AREANm1(I,J,bi,bj)*FLUX_TO_DELTA_TEMP |
|
./pkg/seaice/seaice_growth_if.F |
969 |
SEAICE_GROWTH_IF |
PredTempChangeFromF_IA_NET(I,J) = |
|
./pkg/seaice/seaice_growth_if.F |
970 |
SEAICE_GROWTH_IF |
& -F_ia_net(I,J)*AREANm1(I,J,bi,bj)*FLUX_TO_DELTA_TEMP |
|
./pkg/seaice/seaice_growth_if.F |
972 |
SEAICE_GROWTH_IF |
PredTempChangeFromNewIceVol(I,J) = |
|
./pkg/seaice/seaice_growth_if.F |
973 |
SEAICE_GROWTH_IF |
& EnergyInNewTotalIceVolume(I,J)*ENERGY_TO_DELTA_TEMP |
|
./pkg/seaice/seaice_growth_if.F |
975 |
SEAICE_GROWTH_IF |
PredTempChange(I,J) = |
|
./pkg/seaice/seaice_growth_if.F |
976 |
SEAICE_GROWTH_IF |
& PredTempChangeFromQSW(I,J) + |
|
./pkg/seaice/seaice_growth_if.F |
977 |
SEAICE_GROWTH_IF |
& PredTempChangeFromOA_MQNET(I,J) + |
|
./pkg/seaice/seaice_growth_if.F |
978 |
SEAICE_GROWTH_IF |
& PredTempChangeFromF_IO_NET(I,J) + |
|
./pkg/seaice/seaice_growth_if.F |
979 |
SEAICE_GROWTH_IF |
& PredTempChangeFromF_IA_NET(I,J) + |
|
./pkg/seaice/seaice_growth_if.F |
980 |
SEAICE_GROWTH_IF |
& PredTempChangeFromNewIceVol(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
997 |
SEAICE_GROWTH_IF |
DO I=1,sNx |
|
./pkg/seaice/seaice_growth_if.F |
998 |
SEAICE_GROWTH_IF |
AREA(I,J,bi,bj) = AREA(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
999 |
SEAICE_GROWTH_IF |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_fixed.F |
111 |
SEAICE_INIT_FIXED |
k1AtC(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_fixed.F |
112 |
SEAICE_INIT_FIXED |
k1AtZ(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_fixed.F |
113 |
SEAICE_INIT_FIXED |
k2AtC(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_fixed.F |
114 |
SEAICE_INIT_FIXED |
k2AtZ(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_fixed.F |
125 |
SEAICE_INIT_FIXED |
k2AtC(I,J,bi,bj) = - _tanPhiAtU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/seaice_init_fixed.F |
126 |
SEAICE_INIT_FIXED |
k2AtZ(I,J,bi,bj) = - _tanPhiAtV(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/seaice_init_fixed.F |
133 |
SEAICE_INIT_FIXED |
k1AtC(I,J,bi,bj) = _recip_dyF(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_fixed.F |
134 |
SEAICE_INIT_FIXED |
& * ( _dyG(I+1,J,bi,bj) - _dyG(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_init_fixed.F |
135 |
SEAICE_INIT_FIXED |
& * _recip_dxF(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_fixed.F |
140 |
SEAICE_INIT_FIXED |
k1AtZ(I,J,bi,bj) = _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_fixed.F |
141 |
SEAICE_INIT_FIXED |
& * ( _dyC(I,J,bi,bj) - _dyC(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_init_fixed.F |
142 |
SEAICE_INIT_FIXED |
& * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_fixed.F |
147 |
SEAICE_INIT_FIXED |
k2AtC(I,J,bi,bj) = _recip_dxF(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_fixed.F |
148 |
SEAICE_INIT_FIXED |
& * ( _dxG(I,J+1,bi,bj) - _dxG(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_init_fixed.F |
149 |
SEAICE_INIT_FIXED |
& * _recip_dyF(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_fixed.F |
154 |
SEAICE_INIT_FIXED |
k2AtC(I,J,bi,bj) = _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_fixed.F |
155 |
SEAICE_INIT_FIXED |
& * ( _dxC(I,J,bi,bj) - _dxC(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_init_fixed.F |
156 |
SEAICE_INIT_FIXED |
& * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
453 |
SEAICE_INIT_VARIA |
ZMAX(I,J,bi,bj) = SEAICE_zetaMaxFac*PRESS0(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
152 |
SEAICE_LSR |
uIceNm1(i,j,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
153 |
SEAICE_LSR |
vIceNm1(i,j,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
154 |
SEAICE_LSR |
uIceC(I,J,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
155 |
SEAICE_LSR |
vIceC(I,J,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
172 |
SEAICE_LSR |
uIce(I,J,bi,bj)=HALF*(uIce(I,J,bi,bj)+uIceNm1(i,j,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
173 |
SEAICE_LSR |
vIce(I,J,bi,bj)=HALF*(vIce(I,J,bi,bj)+vIceNm1(i,j,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
174 |
SEAICE_LSR |
uIceC(I,J,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
175 |
SEAICE_LSR |
vIceC(I,J,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
187 |
SEAICE_LSR |
uIceNm1(i,j,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
188 |
SEAICE_LSR |
vIceNm1(i,j,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
221 |
SEAICE_LSR |
& (uIceC(I ,J,bi,bj)-uVel(I ,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
222 |
SEAICE_LSR |
& +uIceC(I+1,J,bi,bj)-uVel(I+1,J,kSrf,bi,bj))**2 |
|
./pkg/seaice/seaice_lsr.F |
223 |
SEAICE_LSR |
& +(vIceC(I,J ,bi,bj)-vVel(I,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
224 |
SEAICE_LSR |
& +vIceC(I,J+1,bi,bj)-vVel(I,J+1,kSrf,bi,bj))**2) |
|
./pkg/seaice/seaice_lsr.F |
225 |
SEAICE_LSR |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_lsr.F |
227 |
SEAICE_LSR |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/seaice_lsr.F |
229 |
SEAICE_LSR |
DWATN(I,J,bi,bj)=SEAICE_waterDrag_south*SQRT(TEMPVAR) |
|
./pkg/seaice/seaice_lsr.F |
233 |
SEAICE_LSR |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/seaice_lsr.F |
235 |
SEAICE_LSR |
DWATN(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR) |
|
./pkg/seaice/seaice_lsr.F |
238 |
SEAICE_LSR |
DWATN(I,J,bi,bj) = DWATN(I,J,bi,bj) * HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
240 |
SEAICE_LSR |
DRAGS(I,J,bi,bj) = DWATN(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/seaice_lsr.F |
245 |
SEAICE_LSR |
DO I=1,sNx |
|
./pkg/seaice/seaice_lsr.F |
248 |
SEAICE_LSR |
FORCEX(I,J,bi,bj)=FORCEX0(I,J,bi,bj)+ |
|
./pkg/seaice/seaice_lsr.F |
249 |
SEAICE_LSR |
& 0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I-1,J,bi,bj) ) * |
|
./pkg/seaice/seaice_lsr.F |
250 |
SEAICE_LSR |
& COSWAT * uVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
251 |
SEAICE_LSR |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
252 |
SEAICE_LSR |
& ( DWATN(I ,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
253 |
SEAICE_LSR |
& (vVel(I ,J ,kSrf,bi,bj)-vIceC(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
254 |
SEAICE_LSR |
& +vVel(I ,J+1,kSrf,bi,bj)-vIceC(I ,J+1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
255 |
SEAICE_LSR |
& + DWATN(I-1,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
256 |
SEAICE_LSR |
& (vVel(I-1,J ,kSrf,bi,bj)-vIceC(I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
257 |
SEAICE_LSR |
& +vVel(I-1,J+1,kSrf,bi,bj)-vIceC(I-1,J+1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
259 |
SEAICE_LSR |
FORCEY(I,J,bi,bj)=FORCEY0(I,J,bi,bj)+ |
|
./pkg/seaice/seaice_lsr.F |
260 |
SEAICE_LSR |
& 0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I,J-1,bi,bj) ) * |
|
./pkg/seaice/seaice_lsr.F |
261 |
SEAICE_LSR |
& COSWAT * vVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
262 |
SEAICE_LSR |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
263 |
SEAICE_LSR |
& ( DWATN(I,J ,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
264 |
SEAICE_LSR |
& (uVel(I ,J ,kSrf,bi,bj)-uIceC(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
265 |
SEAICE_LSR |
& +uVel(I+1,J ,kSrf,bi,bj)-uIceC(I+1,J ,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
266 |
SEAICE_LSR |
& + DWATN(I,J-1,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
267 |
SEAICE_LSR |
& (uVel(I ,J-1,kSrf,bi,bj)-uIceC(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
268 |
SEAICE_LSR |
& +uVel(I+1,J-1,kSrf,bi,bj)-uIceC(I+1,J-1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
275 |
SEAICE_LSR |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
276 |
SEAICE_LSR |
& +seaiceMassU(I,J,bi,bj)/SEAICE_deltaTdyn |
|
./pkg/seaice/seaice_lsr.F |
278 |
SEAICE_LSR |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
279 |
SEAICE_LSR |
& +seaiceMassV(I,J,bi,bj)/SEAICE_deltaTdyn |
|
./pkg/seaice/seaice_lsr.F |
281 |
SEAICE_LSR |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj)* seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
282 |
SEAICE_LSR |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
293 |
SEAICE_LSR |
DO I=0,sNx |
|
./pkg/seaice/seaice_lsr.F |
294 |
SEAICE_LSR |
etaPlusZeta (I,J,bi,bj) = ETA (I,J,bi,bj)+ZETA(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
295 |
SEAICE_LSR |
zetaMinusEta(I,J,bi,bj) = ZETA(I,J,bi,bj)-ETA (I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
299 |
SEAICE_LSR |
DO I=1,sNx+1 |
|
./pkg/seaice/seaice_lsr.F |
300 |
SEAICE_LSR |
etaMeanZ (I,J,bi,bj) = |
|
./pkg/seaice/seaice_lsr.F |
301 |
SEAICE_LSR |
& ( ETA (I,J ,bi,bj) + ETA (I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
302 |
SEAICE_LSR |
& + ETA (I,J-1,bi,bj) + ETA (I-1,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
303 |
SEAICE_LSR |
& / MAX(1.D0,maskC(I,J, k,bi,bj)+maskC(I-1,J, k,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
304 |
SEAICE_LSR |
& + maskC(I,J-1,k,bi,bj)+maskC(I-1,J-1,k,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
312 |
SEAICE_LSR |
DO I=1,sNx+1 |
|
./pkg/seaice/seaice_lsr.F |
313 |
SEAICE_LSR |
etaMeanZ (I,J,bi,bj) = etaMeanZ(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
314 |
SEAICE_LSR |
& *maskC(I,J, k,bi,bj)*maskC(I-1,J, k,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
315 |
SEAICE_LSR |
& *maskC(I,J-1,k,bi,bj)*maskC(I-1,J-1,k,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
321 |
SEAICE_LSR |
DO I=0,sNx |
|
./pkg/seaice/seaice_lsr.F |
323 |
SEAICE_LSR |
UXX(I,J,bi,bj) = _dyF(I,J,bi,bj) * etaPlusZeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
324 |
SEAICE_LSR |
& * _recip_dxF(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
326 |
SEAICE_LSR |
UXM(I,J,bi,bj) = _dyF(I,J,bi,bj) * zetaMinusEta(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
327 |
SEAICE_LSR |
& * k1AtC(I,J,bi,bj) * 0.5 _d 0 |
|
./pkg/seaice/seaice_lsr.F |
331 |
SEAICE_LSR |
DO I=1,sNx |
|
./pkg/seaice/seaice_lsr.F |
333 |
SEAICE_LSR |
UYY(I,J,bi,bj) = _dxV(I,J,bi,bj) * etaMeanZ(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
334 |
SEAICE_LSR |
& * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
336 |
SEAICE_LSR |
UYM(I,J,bi,bj) = _dxV(I,J,bi,bj) * etaMeanZ(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
337 |
SEAICE_LSR |
& * k2AtZ(I,J,bi,bj) * 0.5 _d 0 |
|
./pkg/seaice/seaice_lsr.F |
341 |
SEAICE_LSR |
DO I=1,sNx+1 |
|
./pkg/seaice/seaice_lsr.F |
343 |
SEAICE_LSR |
VXX(I,J,bi,bj) = _dyU(I,J,bi,bj) * etaMeanZ(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
344 |
SEAICE_LSR |
& * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
346 |
SEAICE_LSR |
VXM(I,J,bi,bj) = _dyU(I,J,bi,bj) * etaMeanZ(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
347 |
SEAICE_LSR |
& * k1AtZ(I,J,bi,bj) * 0.5 _d 0 |
|
./pkg/seaice/seaice_lsr.F |
351 |
SEAICE_LSR |
DO I=1,sNx |
|
./pkg/seaice/seaice_lsr.F |
353 |
SEAICE_LSR |
VYY(I,J,bi,bj) = _dxF(I,J,bi,bj) * etaPlusZeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
354 |
SEAICE_LSR |
& * _recip_dyF(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
356 |
SEAICE_LSR |
VYM(I,J,bi,bj) = _dxF(I,J,bi,bj) * zetaMinusEta(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
357 |
SEAICE_LSR |
& * k2AtC(I,J,bi,bj) * 0.5 _d 0 |
|
./pkg/seaice/seaice_lsr.F |
370 |
SEAICE_LSR |
DO I=1,sNx |
|
./pkg/seaice/seaice_lsr.F |
372 |
SEAICE_LSR |
AU(I,J,bi,bj)= ( - UXX(I-1,J,bi,bj) + UXM(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
373 |
SEAICE_LSR |
& * seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
375 |
SEAICE_LSR |
CU(I,J,bi,bj)= ( - UXX(I ,J,bi,bj) - UXM(I ,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
376 |
SEAICE_LSR |
& * seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
378 |
SEAICE_LSR |
BU(I,J,bi,bj)=(ONE - seaiceMaskU(I,J,bi,bj)) + |
|
./pkg/seaice/seaice_lsr.F |
379 |
SEAICE_LSR |
& ( UXX(I-1,J ,bi,bj) + UXX(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
380 |
SEAICE_LSR |
& + UYY(I ,J+1,bi,bj) + UYY(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
381 |
SEAICE_LSR |
& + UXM(I-1,J ,bi,bj) - UXM(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
382 |
SEAICE_LSR |
& + UYM(I ,J+1,bi,bj) - UYM(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
383 |
SEAICE_LSR |
& ) * seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
385 |
SEAICE_LSR |
UVRT1(I,J,bi,bj)= UYY(I,J ,bi,bj) + UYM(I,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
387 |
SEAICE_LSR |
UVRT2(I,J,bi,bj)= UYY(I,J+1,bi,bj) - UYM(I,J+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
395 |
SEAICE_LSR |
DO I=1,sNx |
|
./pkg/seaice/seaice_lsr.F |
396 |
SEAICE_LSR |
hFacM = seaiceMaskU(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
397 |
SEAICE_LSR |
hFacP = seaiceMaskU(I,J+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
401 |
SEAICE_LSR |
BU(I,J,bi,bj)=BU(I,J,bi,bj) + seaiceMaskU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
403 |
SEAICE_LSR |
& * ( UYY(I ,J ,bi,bj) + UYM(I ,J ,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
405 |
SEAICE_LSR |
& * ( UYY(I ,J+1,bi,bj) - UYM(I ,J+1,bi,bj) ) ) |
|
./pkg/seaice/seaice_lsr.F |
407 |
SEAICE_LSR |
UVRT1(I,J,bi,bj)=UVRT1(I,J,bi,bj) * hFacM |
|
./pkg/seaice/seaice_lsr.F |
408 |
SEAICE_LSR |
UVRT2(I,J,bi,bj)=UVRT2(I,J,bi,bj) * hFacP |
|
./pkg/seaice/seaice_lsr.F |
414 |
SEAICE_LSR |
DO I=1,sNx |
|
./pkg/seaice/seaice_lsr.F |
415 |
SEAICE_LSR |
AU(I,J,bi,bj) = AU(I,J,bi,bj) * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
416 |
SEAICE_LSR |
CU(I,J,bi,bj) = CU(I,J,bi,bj) * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
419 |
SEAICE_LSR |
BU(I,J,bi,bj) = BU(I,J,bi,bj) * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
420 |
SEAICE_LSR |
& + seaiceMaskU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
421 |
SEAICE_LSR |
& ( seaiceMassU(I,J,bi,bj)/SEAICE_deltaTdyn |
|
./pkg/seaice/seaice_lsr.F |
422 |
SEAICE_LSR |
& + 0.5 _d 0*( DRAGS(I,J,bi,bj) + DRAGS(I-1,J,bi,bj) ) ) |
|
./pkg/seaice/seaice_lsr.F |
423 |
SEAICE_LSR |
UVRT1(I,J,bi,bj) = UVRT1(I,J,bi,bj) * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
424 |
SEAICE_LSR |
UVRT2(I,J,bi,bj) = UVRT2(I,J,bi,bj) * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
437 |
SEAICE_LSR |
DO I=0,sNx |
|
./pkg/seaice/seaice_lsr.F |
438 |
SEAICE_LSR |
sig11(I,J) = zetaMinusEta(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
439 |
SEAICE_LSR |
& * ( vIceC(I,J+1,bi,bj) - vIceC(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
440 |
SEAICE_LSR |
& * _recip_dyF(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
441 |
SEAICE_LSR |
& + etaPlusZeta(I,J,bi,bj) * k2AtC(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
442 |
SEAICE_LSR |
& * 0.5 _d 0 * ( vIceC(I,J+1,bi,bj) + vIceC(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
443 |
SEAICE_LSR |
& - 0.5 _d 0 * PRESS(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
448 |
SEAICE_LSR |
DO I=1,sNx |
|
./pkg/seaice/seaice_lsr.F |
449 |
SEAICE_LSR |
hFacM = seaiceMaskV(I,J,bi,bj) - seaiceMaskV(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
450 |
SEAICE_LSR |
sig12(I,J) = etaMeanZ(I,J,bi,bj) * ( |
|
./pkg/seaice/seaice_lsr.F |
451 |
SEAICE_LSR |
& ( vIceC(I,J,bi,bj) - vIceC(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
452 |
SEAICE_LSR |
& * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
453 |
SEAICE_LSR |
& - k1AtZ(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
454 |
SEAICE_LSR |
& * 0.5 _d 0 * ( vIceC(I,J,bi,bj) + vIceC(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
457 |
SEAICE_LSR |
& *maskC(I ,J ,k,bi,bj)*maskC(I-1,J ,k,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
458 |
SEAICE_LSR |
& *maskC(I ,J-1,k,bi,bj)*maskC(I-1,J-1,k,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
462 |
SEAICE_LSR |
& + etaMeanZ(I,J,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
463 |
SEAICE_LSR |
& * ( vIceC(I,J,bi,bj) + vIceC(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
469 |
SEAICE_LSR |
DO I=1,sNx |
|
./pkg/seaice/seaice_lsr.F |
471 |
SEAICE_LSR |
FXY(I,J,bi,bj)=0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
472 |
SEAICE_LSR |
& ( seaiceMassC(I ,J,bi,bj) * _fCori(I ,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
474 |
SEAICE_LSR |
& + seaiceMassC(I-1,J,bi,bj) * _fCori(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
476 |
SEAICE_LSR |
& +FORCEX(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
478 |
SEAICE_LSR |
& + recip_rAw(I,J,bi,bj) * seaiceMaskU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
479 |
SEAICE_LSR |
& ( _dyF(I ,J ,bi,bj)*sig11(I ,J ) |
|
./pkg/seaice/seaice_lsr.F |
480 |
SEAICE_LSR |
& - _dyF(I-1,J ,bi,bj)*sig11(I-1,J ) |
|
./pkg/seaice/seaice_lsr.F |
481 |
SEAICE_LSR |
& + _dxV(I ,J+1,bi,bj)*sig12(I ,J+1) |
|
./pkg/seaice/seaice_lsr.F |
482 |
SEAICE_LSR |
& - _dxV(I ,J ,bi,bj)*sig12(I ,J ) ) |
|
./pkg/seaice/seaice_lsr.F |
513 |
SEAICE_LSR |
DO I=1,sNx |
|
./pkg/seaice/seaice_lsr.F |
514 |
SEAICE_LSR |
uTmp(I,J,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
519 |
SEAICE_LSR |
DO I=1,sNx |
|
./pkg/seaice/seaice_lsr.F |
520 |
SEAICE_LSR |
IF(I.EQ.1) THEN |
|
./pkg/seaice/seaice_lsr.F |
521 |
SEAICE_LSR |
AA3=( UXX(I-1,J,bi,bj) - UXM(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
522 |
SEAICE_LSR |
& * uIce(I-1,J,bi,bj) * seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
523 |
SEAICE_LSR |
ELSEIF(I.EQ.sNx) THEN |
|
./pkg/seaice/seaice_lsr.F |
524 |
SEAICE_LSR |
AA3=( UXX(I ,J,bi,bj) + UXM(I ,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
525 |
SEAICE_LSR |
& * uIce(I+1,J,bi,bj) * seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
529 |
SEAICE_LSR |
URT(I,J)=FXY(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
530 |
SEAICE_LSR |
& + AA3 * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
532 |
SEAICE_LSR |
& + UVRT1(I,J,bi,bj)*uTmp(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
533 |
SEAICE_LSR |
& + UVRT2(I,J,bi,bj)*uTmp(I,J+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
535 |
SEAICE_LSR |
& + UVRT1(I,J,bi,bj)*uIce(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
536 |
SEAICE_LSR |
& + UVRT2(I,J,bi,bj)*uIce(I,J+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
538 |
SEAICE_LSR |
URT(I,J)=URT(I,J)* seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
541 |
SEAICE_LSR |
DO I=1,sNx |
|
./pkg/seaice/seaice_lsr.F |
542 |
SEAICE_LSR |
CUU(I,J)=CU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
548 |
SEAICE_LSR |
DO I=2,sNx |
|
./pkg/seaice/seaice_lsr.F |
549 |
SEAICE_LSR |
IM=I-1 |
|
./pkg/seaice/seaice_lsr.F |
552 |
SEAICE_LSR |
DO I=2,sNx |
|
./pkg/seaice/seaice_lsr.F |
553 |
SEAICE_LSR |
IM=I-1 |
|
./pkg/seaice/seaice_lsr.F |
555 |
SEAICE_LSR |
CUU(I,J)=CUU(I,J)/(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM,J)) |
|
./pkg/seaice/seaice_lsr.F |
556 |
SEAICE_LSR |
URT(I,J)=(URT(I,J)-AU(I,J,bi,bj)*URT(IM,J)) |
|
./pkg/seaice/seaice_lsr.F |
557 |
SEAICE_LSR |
& /(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM,J)) |
|
./pkg/seaice/seaice_lsr.F |
564 |
SEAICE_LSR |
DO I=1,sNx-1 |
|
./pkg/seaice/seaice_lsr.F |
565 |
SEAICE_LSR |
J1=sNx-I |
|
./pkg/seaice/seaice_lsr.F |
569 |
SEAICE_LSR |
DO I=1,sNx |
|
./pkg/seaice/seaice_lsr.F |
570 |
SEAICE_LSR |
uIce(I,J,bi,bj)=uTmp(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
571 |
SEAICE_LSR |
& +WFAU*(URT(I,J)-uTmp(I,J,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
583 |
SEAICE_LSR |
DO I=1,sNx |
|
./pkg/seaice/seaice_lsr.F |
584 |
SEAICE_LSR |
UERR=(uIce(I,J,bi,bj)-uTmp(I,J,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
585 |
SEAICE_LSR |
& * seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
628 |
SEAICE_LSR |
DO I=1,sNx |
|
./pkg/seaice/seaice_lsr.F |
630 |
SEAICE_LSR |
AV(I,J,bi,bj)=( - VYY(I,J-1,bi,bj) + VYM(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
631 |
SEAICE_LSR |
& ) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
633 |
SEAICE_LSR |
CV(I,J,bi,bj)=( - VYY(I,J ,bi,bj) - VYM(I,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
634 |
SEAICE_LSR |
& ) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
636 |
SEAICE_LSR |
BV(I,J,bi,bj)= (ONE - seaiceMaskV(I,J,bi,bj)) + |
|
./pkg/seaice/seaice_lsr.F |
637 |
SEAICE_LSR |
& ( VXX(I,J,bi,bj) + VXX(I+1,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
638 |
SEAICE_LSR |
& + VYY(I,J,bi,bj) + VYY(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
639 |
SEAICE_LSR |
& - VXM(I,J,bi,bj) + VXM(I+1,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
640 |
SEAICE_LSR |
& - VYM(I,J,bi,bj) + VYM(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
641 |
SEAICE_LSR |
& ) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
643 |
SEAICE_LSR |
UVRT1(I,J,bi,bj) = VXX(I ,J,bi,bj) + VXM(I ,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
645 |
SEAICE_LSR |
UVRT2(I,J,bi,bj) = VXX(I+1,J,bi,bj) - VXM(I+1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
653 |
SEAICE_LSR |
DO I=1,sNx |
|
./pkg/seaice/seaice_lsr.F |
659 |
SEAICE_LSR |
BV(I,J,bi,bj)=BV(I,J,bi,bj) + seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
661 |
SEAICE_LSR |
& * ( VXX(I ,J,bi,bj) + VXM(I ,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
663 |
SEAICE_LSR |
& * ( VXX(I+1,J,bi,bj) - VXM(I+1,J,bi,bj) ) ) |
|
./pkg/seaice/seaice_lsr.F |
665 |
SEAICE_LSR |
UVRT1(I,J,bi,bj)=UVRT1(I,J,bi,bj) * hFacM |
|
./pkg/seaice/seaice_lsr.F |
666 |
SEAICE_LSR |
UVRT2(I,J,bi,bj)=UVRT2(I,J,bi,bj) * hFacP |
|
./pkg/seaice/seaice_lsr.F |
672 |
SEAICE_LSR |
DO I=1,sNx |
|
./pkg/seaice/seaice_lsr.F |
673 |
SEAICE_LSR |
AV(I,J,bi,bj) = AV(I,J,bi,bj) * recip_rAs(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
674 |
SEAICE_LSR |
CV(I,J,bi,bj) = CV(I,J,bi,bj) * recip_rAs(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
677 |
SEAICE_LSR |
BV(I,J,bi,bj) = BV(I,J,bi,bj) * recip_rAs(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
678 |
SEAICE_LSR |
& + seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
679 |
SEAICE_LSR |
& ( seaiceMassV(I,J,bi,bj)/SEAICE_deltaTdyn |
|
./pkg/seaice/seaice_lsr.F |
680 |
SEAICE_LSR |
& + 0.5 _d 0 * ( DRAGS(I,J,bi,bj) + DRAGS(I,J-1,bi,bj) ) ) |
|
./pkg/seaice/seaice_lsr.F |
681 |
SEAICE_LSR |
UVRT1(I,J,bi,bj) = UVRT1(I,J,bi,bj) * recip_rAs(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
682 |
SEAICE_LSR |
UVRT2(I,J,bi,bj) = UVRT2(I,J,bi,bj) * recip_rAs(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
686 |
SEAICE_LSR |
DO I=1,sNx |
|
./pkg/seaice/seaice_lsr.F |
687 |
SEAICE_LSR |
AV(I,1,bi,bj)=ZERO |
|
./pkg/seaice/seaice_lsr.F |
688 |
SEAICE_LSR |
CV(I,sNy,bi,bj)=ZERO |
|
./pkg/seaice/seaice_lsr.F |
689 |
SEAICE_LSR |
CV(I,1,bi,bj)=CV(I,1,bi,bj)/BV(I,1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
695 |
SEAICE_LSR |
DO I=1,sNx |
|
./pkg/seaice/seaice_lsr.F |
696 |
SEAICE_LSR |
sig22(I,J) = zetaMinusEta(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
697 |
SEAICE_LSR |
& * ( uIceC(I+1,J,bi,bj) - uIceC(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
698 |
SEAICE_LSR |
& * _recip_dxF(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
699 |
SEAICE_LSR |
& + etaPlusZeta(I,J,bi,bj) * k1AtC(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
700 |
SEAICE_LSR |
& * 0.5 _d 0 * ( uIceC(I+1,J,bi,bj) + uIceC(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
701 |
SEAICE_LSR |
& - 0.5 _d 0 * PRESS(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
706 |
SEAICE_LSR |
DO I=1,sNx+1 |
|
./pkg/seaice/seaice_lsr.F |
708 |
SEAICE_LSR |
sig12(I,J) = etaMeanZ(I,J,bi,bj) * ( |
|
./pkg/seaice/seaice_lsr.F |
709 |
SEAICE_LSR |
& ( uIceC(I,J,bi,bj) - uIceC(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
710 |
SEAICE_LSR |
& * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
711 |
SEAICE_LSR |
& - k2AtZ(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
712 |
SEAICE_LSR |
& * 0.5 _d 0 * ( uIceC(I,J,bi,bj) + uIceC(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
715 |
SEAICE_LSR |
& *maskC(I ,J ,k,bi,bj)*maskC(I-1,J ,k,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
716 |
SEAICE_LSR |
& *maskC(I ,J-1,k,bi,bj)*maskC(I-1,J-1,k,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
720 |
SEAICE_LSR |
& + etaMeanZ(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
721 |
SEAICE_LSR |
& * ( uIceC(I,J,bi,bj) + uIceC(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
727 |
SEAICE_LSR |
DO I=1,sNx |
|
./pkg/seaice/seaice_lsr.F |
729 |
SEAICE_LSR |
FXY(I,J,bi,bj)= - 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
730 |
SEAICE_LSR |
& ( seaiceMassC(I,J ,bi,bj) * _fCori(I,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
732 |
SEAICE_LSR |
& + seaiceMassC(I,J-1,bi,bj) * _fCori(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
734 |
SEAICE_LSR |
& + FORCEY(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
736 |
SEAICE_LSR |
& + recip_rAs(I,J,bi,bj) * seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
737 |
SEAICE_LSR |
& ( _dyU(I+1,J ,bi,bj) * sig12(I+1,J ) |
|
./pkg/seaice/seaice_lsr.F |
738 |
SEAICE_LSR |
& - _dyU(I ,J ,bi,bj) * sig12(I ,J ) |
|
./pkg/seaice/seaice_lsr.F |
739 |
SEAICE_LSR |
& + _dxF(I ,J ,bi,bj) * sig22(I ,J ) |
|
./pkg/seaice/seaice_lsr.F |
740 |
SEAICE_LSR |
& - _dxF(I ,J-1,bi,bj) * sig22(I ,J-1) ) |
|
./pkg/seaice/seaice_lsr.F |
772 |
SEAICE_LSR |
DO I=iMin,iMax |
|
./pkg/seaice/seaice_lsr.F |
773 |
SEAICE_LSR |
vTmp(I,J,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
777 |
SEAICE_LSR |
DO I=1,sNx |
|
./pkg/seaice/seaice_lsr.F |
780 |
SEAICE_LSR |
AA3=( VYY(I,J-1,bi,bj) - VYM(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
781 |
SEAICE_LSR |
& ) * vIce(I,J-1,bi,bj) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
783 |
SEAICE_LSR |
AA3=( VYY(I,J ,bi,bj) + VYM(I,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
784 |
SEAICE_LSR |
& ) * vIce(I,J+1,bi,bj) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
789 |
SEAICE_LSR |
VRT(I,J)=FXY(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
790 |
SEAICE_LSR |
& + AA3 * recip_rAs(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
792 |
SEAICE_LSR |
& + UVRT1(I,J,bi,bj)*vTmp(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
793 |
SEAICE_LSR |
& + UVRT2(I,J,bi,bj)*vTmp(I+1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
795 |
SEAICE_LSR |
& + UVRT1(I,J,bi,bj)*vIce(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
796 |
SEAICE_LSR |
& + UVRT2(I,J,bi,bj)*vIce(I+1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
798 |
SEAICE_LSR |
VRT(I,J)=VRT(I,J)* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
802 |
SEAICE_LSR |
CVV(I,J)=CV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
804 |
SEAICE_LSR |
VRT(I,1)=VRT(I,1)/BV(I,1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
807 |
SEAICE_LSR |
CVV(I,J)=CVV(I,J)/(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(I,JM)) |
|
./pkg/seaice/seaice_lsr.F |
808 |
SEAICE_LSR |
VRT(I,J)=(VRT(I,J)-AV(I,J,bi,bj)*VRT(I,JM)) |
|
./pkg/seaice/seaice_lsr.F |
809 |
SEAICE_LSR |
& /(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(I,JM)) |
|
./pkg/seaice/seaice_lsr.F |
814 |
SEAICE_LSR |
VRT(I,J1)=VRT(I,J1)-CVV(I,J1)*VRT(I,J2) |
|
./pkg/seaice/seaice_lsr.F |
817 |
SEAICE_LSR |
vIce(I,J,bi,bj)=vTmp(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
818 |
SEAICE_LSR |
& +WFAV*(VRT(I,J)-vTmp(I,J,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
830 |
SEAICE_LSR |
DO I=1,sNx |
|
./pkg/seaice/seaice_lsr.F |
831 |
SEAICE_LSR |
UERR=(vIce(I,J,bi,bj)-vTmp(I,J,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
832 |
SEAICE_LSR |
& * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
870 |
SEAICE_LSR |
DO I=1-Olx,sNx+Olx |
|
./pkg/seaice/seaice_lsr.F |
871 |
SEAICE_LSR |
uIce(I,J,bi,bj)=uIce(I,J,bi,bj)* seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
872 |
SEAICE_LSR |
vIce(I,J,bi,bj)=vIce(I,J,bi,bj)* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
892 |
SEAICE_LSR |
sig11(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
893 |
SEAICE_LSR |
sig22(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
894 |
SEAICE_LSR |
sig12(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
900 |
SEAICE_LSR |
eplus = e11(I,J,bi,bj) + e22(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
901 |
SEAICE_LSR |
eminus= e11(I,J,bi,bj) - e22(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
902 |
SEAICE_LSR |
sig11(I,J) = zeta(I,J,bi,bj)*eplus + eta(I,J,bi,bj)*eminus |
|
./pkg/seaice/seaice_lsr.F |
903 |
SEAICE_LSR |
& - 0.5 _d 0 * PRESS(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
904 |
SEAICE_LSR |
sig22(I,J) = zeta(I,J,bi,bj)*eplus - eta(I,J,bi,bj)*eminus |
|
./pkg/seaice/seaice_lsr.F |
905 |
SEAICE_LSR |
& - 0.5 _d 0 * PRESS(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
911 |
SEAICE_LSR |
sig12(I,J) = 2. _d 0 * e12(I,J,bi,bj) * etaMeanZ(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
916 |
SEAICE_LSR |
DO I=1,sNx |
|
./pkg/seaice/seaice_lsr.F |
917 |
SEAICE_LSR |
stressDivergenceX(I,J,bi,bj) = |
|
./pkg/seaice/seaice_lsr.F |
918 |
SEAICE_LSR |
& ( sig11(I ,J ) * _dyF(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
919 |
SEAICE_LSR |
& - sig11(I-1,J ) * _dyF(I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
920 |
SEAICE_LSR |
& + sig12(I ,J+1) * _dxV(I ,J+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
921 |
SEAICE_LSR |
& - sig12(I ,J ) * _dxV(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
922 |
SEAICE_LSR |
& ) * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
923 |
SEAICE_LSR |
stressDivergenceY(I,J,bi,bj) = |
|
./pkg/seaice/seaice_lsr.F |
924 |
SEAICE_LSR |
& ( sig22(I ,J ) * _dxF(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
925 |
SEAICE_LSR |
& - sig22(I ,J-1) * _dxF(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
926 |
SEAICE_LSR |
& + sig12(I+1,J ) * _dyU(I+1,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
927 |
SEAICE_LSR |
& - sig12(I ,J ) * _dyU(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
928 |
SEAICE_LSR |
& ) * recip_rAs(I,J,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
100 |
SEAICE_OCEAN_STRESS |
& +vIce(I ,J+1,bi,bj)-vVel(I ,J+1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
101 |
SEAICE_OCEAN_STRESS |
& + DWATN(I-1,J,bi,bj) * |
|
./pkg/seaice/seaice_ocean_stress.F |
102 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(vIce(I-1,J ,bi,bj)-vVel(I-1,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
103 |
SEAICE_OCEAN_STRESS |
& +vIce(I-1,J+1,bi,bj)-vVel(I-1,J+1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
105 |
SEAICE_OCEAN_STRESS |
fvIceLoc=HALF*( DWATN(I,J,bi,bj)+DWATN(I,J-1,bi,bj) )* |
|
./pkg/seaice/seaice_ocean_stress.F |
107 |
SEAICE_OCEAN_STRESS |
& ( vIce(I,J,bi,bj)-vVel(I,J,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_ocean_stress.F |
108 |
SEAICE_OCEAN_STRESS |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_ocean_stress.F |
109 |
SEAICE_OCEAN_STRESS |
& ( DWATN(I,J ,bi,bj) * |
|
./pkg/seaice/seaice_ocean_stress.F |
110 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(uIce(I ,J ,bi,bj)-uVel(I ,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
111 |
SEAICE_OCEAN_STRESS |
& +uIce(I+1,J ,bi,bj)-uVel(I+1,J ,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
112 |
SEAICE_OCEAN_STRESS |
& + DWATN(I,J-1,bi,bj) * |
|
./pkg/seaice/seaice_ocean_stress.F |
113 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(uIce(I ,J-1,bi,bj)-uVel(I ,J-1,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
114 |
SEAICE_OCEAN_STRESS |
& +uIce(I+1,J-1,bi,bj)-uVel(I+1,J-1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
116 |
SEAICE_OCEAN_STRESS |
areaW = 0.5 _d 0 * (AREA(I,J,bi,bj) + AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
118 |
SEAICE_OCEAN_STRESS |
areaS = 0.5 _d 0 * (AREA(I,J,bi,bj) + AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
120 |
SEAICE_OCEAN_STRESS |
fu(I,J,bi,bj)=(ONE-areaW)*fu(I,J,bi,bj)+areaW*fuIceLoc |
|
./pkg/seaice/seaice_ocean_stress.F |
121 |
SEAICE_OCEAN_STRESS |
fv(I,J,bi,bj)=(ONE-areaS)*fv(I,J,bi,bj)+areaS*fvIceLoc |
|
./pkg/seaice/seaice_ocean_stress.F |
61 |
SEAICE_OCEAN_STRESS |
DO I=1,sNx |
|
./pkg/seaice/seaice_ocean_stress.F |
64 |
SEAICE_OCEAN_STRESS |
areaW = 0.5 * (AREA(I,J,bi,bj) + AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
66 |
SEAICE_OCEAN_STRESS |
fu(I,J,bi,bj)=(ONE-areaW)*fu(I,J,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
67 |
SEAICE_OCEAN_STRESS |
& + areaW*taux(I,J,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
68 |
SEAICE_OCEAN_STRESS |
& + stressDivergenceX(I,J,bi,bj) * SEAICEstressFactor |
|
./pkg/seaice/seaice_ocean_stress.F |
73 |
SEAICE_OCEAN_STRESS |
DO I=1,sNx |
|
./pkg/seaice/seaice_ocean_stress.F |
74 |
SEAICE_OCEAN_STRESS |
areaS = 0.5 * (AREA(I,J,bi,bj) + AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
76 |
SEAICE_OCEAN_STRESS |
fv(I,J,bi,bj)=(ONE-areaS)*fv(I,J,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
77 |
SEAICE_OCEAN_STRESS |
& + areaS*tauy(I,J,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
78 |
SEAICE_OCEAN_STRESS |
& + stressDivergenceY(I,J,bi,bj) * SEAICEstressFactor |
|
./pkg/seaice/seaice_ocean_stress.F |
94 |
SEAICE_OCEAN_STRESS |
fuIceLoc=HALF*( DWATN(I,J,bi,bj)+DWATN(I-1,J,bi,bj) )* |
|
./pkg/seaice/seaice_ocean_stress.F |
96 |
SEAICE_OCEAN_STRESS |
& ( uIce(I,J,bi,bj)-uVel(I,J,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_ocean_stress.F |
97 |
SEAICE_OCEAN_STRESS |
& - SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_ocean_stress.F |
98 |
SEAICE_OCEAN_STRESS |
& ( DWATN(I ,J,bi,bj) * |
|
./pkg/seaice/seaice_ocean_stress.F |
99 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(vIce(I ,J ,bi,bj)-vVel(I ,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
206 |
SEAICE_SOLVE4TEMP |
DO I=1,sNx |
|
./pkg/seaice/seaice_solve4temp.F |
210 |
SEAICE_SOLVE4TEMP |
iceOrNot (I,J) = HICE_ACTUAL(I,J) .GT. 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
212 |
SEAICE_SOLVE4TEMP |
IcePenetSWFlux (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
213 |
SEAICE_SOLVE4TEMP |
IcePenetSWFluxFrac (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
214 |
SEAICE_SOLVE4TEMP |
AbsorbedSWFlux (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
216 |
SEAICE_SOLVE4TEMP |
qhice (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
217 |
SEAICE_SOLVE4TEMP |
F_ia (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
219 |
SEAICE_SOLVE4TEMP |
F_io_net (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
220 |
SEAICE_SOLVE4TEMP |
F_ia_net (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
222 |
SEAICE_SOLVE4TEMP |
F_lh (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
226 |
SEAICE_SOLVE4TEMP |
tsurfLoc (I,J) = MIN(273.16 _d 0 + MAX_TICE,TSURF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_solve4temp.F |
227 |
SEAICE_SOLVE4TEMP |
atempLoc (I,J) = MAX(273.16 _d 0 + MIN_ATEMP,ATEMP(I,J,bi,bj)) |
|
./pkg/seaice/seaice_solve4temp.F |
228 |
SEAICE_SOLVE4TEMP |
A1(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
229 |
SEAICE_SOLVE4TEMP |
A2(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
230 |
SEAICE_SOLVE4TEMP |
A3(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
232 |
SEAICE_SOLVE4TEMP |
lwdownLoc(I,J) = MAX(MIN_LWDOWN,LWDOWN(I,J,bi,bj)) |
|
./pkg/seaice/seaice_solve4temp.F |
234 |
SEAICE_SOLVE4TEMP |
F_swi (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
235 |
SEAICE_SOLVE4TEMP |
F_lwd (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
236 |
SEAICE_SOLVE4TEMP |
F_lwu (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
237 |
SEAICE_SOLVE4TEMP |
F_sens (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
239 |
SEAICE_SOLVE4TEMP |
tsurfLoc (I,J) = TSURF(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
240 |
SEAICE_SOLVE4TEMP |
atempLoc (I,J) = MAX(TMELT + MIN_ATEMP,ATEMP(I,J,bi,bj)) |
|
./pkg/seaice/seaice_solve4temp.F |
241 |
SEAICE_SOLVE4TEMP |
lwdownLoc(I,J) = LWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
247 |
SEAICE_SOLVE4TEMP |
TB(I,J) = -0.0575 _d 0*salt(I,J,kSrf,bi,bj) + 0.0901 _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
252 |
SEAICE_SOLVE4TEMP |
TB(I,J) = 271.2 _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
254 |
SEAICE_SOLVE4TEMP |
TB(I,J) = celsius2K + SEAICE_freeze |
|
./pkg/seaice/seaice_solve4temp.F |
261 |
SEAICE_SOLVE4TEMP |
DO I=1,sNx |
|
./pkg/seaice/seaice_solve4temp.F |
264 |
SEAICE_SOLVE4TEMP |
IF ( iceOrNot(I,J) ) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
266 |
SEAICE_SOLVE4TEMP |
IF ( YC(I,J,bi,bj) .LT. 0.0 _d 0 ) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
267 |
SEAICE_SOLVE4TEMP |
IF (tsurfLoc(I,J) .GE. SurfMeltTemp) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
268 |
SEAICE_SOLVE4TEMP |
ALB_ICE (I,J) = SEAICE_wetIceAlb_south |
|
./pkg/seaice/seaice_solve4temp.F |
269 |
SEAICE_SOLVE4TEMP |
ALB_SNOW(I,J) = SEAICE_wetSnowAlb_south |
|
./pkg/seaice/seaice_solve4temp.F |
271 |
SEAICE_SOLVE4TEMP |
ALB_ICE (I,J) = SEAICE_dryIceAlb_south |
|
./pkg/seaice/seaice_solve4temp.F |
272 |
SEAICE_SOLVE4TEMP |
ALB_SNOW(I,J) = SEAICE_drySnowAlb_south |
|
./pkg/seaice/seaice_solve4temp.F |
275 |
SEAICE_SOLVE4TEMP |
IF (tsurfLoc(I,J) .GE. SurfMeltTemp) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
276 |
SEAICE_SOLVE4TEMP |
ALB_ICE (I,J) = SEAICE_wetIceAlb |
|
./pkg/seaice/seaice_solve4temp.F |
277 |
SEAICE_SOLVE4TEMP |
ALB_SNOW(I,J) = SEAICE_wetSnowAlb |
|
./pkg/seaice/seaice_solve4temp.F |
279 |
SEAICE_SOLVE4TEMP |
ALB_ICE (I,J) = SEAICE_dryIceAlb |
|
./pkg/seaice/seaice_solve4temp.F |
280 |
SEAICE_SOLVE4TEMP |
ALB_SNOW(I,J) = SEAICE_drySnowAlb |
|
./pkg/seaice/seaice_solve4temp.F |
287 |
SEAICE_SOLVE4TEMP |
IF (HSNOW_ACTUAL(I,J) .GT. HCUT) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
288 |
SEAICE_SOLVE4TEMP |
ALB(I,J) = ALB_SNOW(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
293 |
SEAICE_SOLVE4TEMP |
ALB(I,J) = MIN(ALB_ICE(I,J) + HSNOW_ACTUAL(I,J)/HCUT* |
|
./pkg/seaice/seaice_solve4temp.F |
294 |
SEAICE_SOLVE4TEMP |
& (ALB_SNOW(I,J) -ALB_ICE(I,J)), |
|
./pkg/seaice/seaice_solve4temp.F |
295 |
SEAICE_SOLVE4TEMP |
& ALB_SNOW(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
299 |
SEAICE_SOLVE4TEMP |
IF (HSNOW_ACTUAL(I,J) .GT. 0.0 _d 0) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
300 |
SEAICE_SOLVE4TEMP |
ALB(I,J) = ALB_SNOW(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
302 |
SEAICE_SOLVE4TEMP |
ALB(I,J) = ALB_ICE(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
310 |
SEAICE_SOLVE4TEMP |
IF(HSNOW_ACTUAL(I,J).GT.0.0) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
312 |
SEAICE_SOLVE4TEMP |
A1(I,J)=(1.0 _d 0 - ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
313 |
SEAICE_SOLVE4TEMP |
& +lwdownLoc(I,J)*0.97 _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
314 |
SEAICE_SOLVE4TEMP |
& +D1*UG(I,J)*atempLoc(I,J)+D1I*UG(I,J)*AQH(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
317 |
SEAICE_SOLVE4TEMP |
A1(I,J)=(1.0 _d 0 - ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
318 |
SEAICE_SOLVE4TEMP |
& *(1.0 _d 0 - XIO*EXP(-1.5 _d 0*HICE_ACTUAL(I,J))) |
|
./pkg/seaice/seaice_solve4temp.F |
319 |
SEAICE_SOLVE4TEMP |
& +lwdownLoc(I,J)*0.97 _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
320 |
SEAICE_SOLVE4TEMP |
& +D1*UG(I,J)*atempLoc(I,J)+D1I*UG(I,J)*AQH(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
327 |
SEAICE_SOLVE4TEMP |
F_lwd(I,J) = - 0.97 _d 0 * lwdownLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
333 |
SEAICE_SOLVE4TEMP |
IF (HSNOW_ACTUAL(I,J) .GT. 0.0 _d 0) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
334 |
SEAICE_SOLVE4TEMP |
IcePenetSWFluxFrac(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
336 |
SEAICE_SOLVE4TEMP |
IcePenetSWFluxFrac(I,J) = |
|
./pkg/seaice/seaice_solve4temp.F |
337 |
SEAICE_SOLVE4TEMP |
& XIO*EXP(-1.5 _d 0 * HICE_ACTUAL(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
342 |
SEAICE_SOLVE4TEMP |
AbsorbedSWFlux(I,J) = -(1.0 _d 0 - ALB(I,J))* |
|
./pkg/seaice/seaice_solve4temp.F |
343 |
SEAICE_SOLVE4TEMP |
& (1.0 _d 0 - IcePenetSWFluxFrac(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
344 |
SEAICE_SOLVE4TEMP |
& *SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
348 |
SEAICE_SOLVE4TEMP |
IcePenetSWFlux(I,J) = -(1.0 _d 0 - ALB(I,J))* |
|
./pkg/seaice/seaice_solve4temp.F |
349 |
SEAICE_SOLVE4TEMP |
& IcePenetSWFluxFrac(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
350 |
SEAICE_SOLVE4TEMP |
& *SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
352 |
SEAICE_SOLVE4TEMP |
F_swi(I,J) = AbsorbedSWFlux(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
356 |
SEAICE_SOLVE4TEMP |
hice_tmp = max(HICE_ACTUAL(I,J),5. _d -2) |
|
./pkg/seaice/seaice_solve4temp.F |
363 |
SEAICE_SOLVE4TEMP |
effConduct(I,J)= |
|
./pkg/seaice/seaice_solve4temp.F |
364 |
SEAICE_SOLVE4TEMP |
& XKS/(HSNOW_ACTUAL(I,J)/HICE_ACTUAL(I,J) + |
|
./pkg/seaice/seaice_solve4temp.F |
365 |
SEAICE_SOLVE4TEMP |
& XKS/XKI)/HICE_ACTUAL(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
367 |
SEAICE_SOLVE4TEMP |
effConduct(I,J) = XKI * XKS / |
|
./pkg/seaice/seaice_solve4temp.F |
368 |
SEAICE_SOLVE4TEMP |
& (XKS * hice_tmp + XKI * HSNOW_ACTUAL(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
372 |
SEAICE_SOLVE4TEMP |
IF ( (I .EQ. SEAICE_debugPointX) .and. |
|
./pkg/seaice/seaice_solve4temp.F |
380 |
SEAICE_SOLVE4TEMP |
& tsurfLoc(I,J), TSURF(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
387 |
SEAICE_SOLVE4TEMP |
& HICE_ACTUAL(I,J), effConduct(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
391 |
SEAICE_SOLVE4TEMP |
& HSNOW_ACTUAL(I,J), ALB(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
405 |
SEAICE_SOLVE4TEMP |
DO I=1,sNx |
|
./pkg/seaice/seaice_solve4temp.F |
407 |
SEAICE_SOLVE4TEMP |
iicekey = I + sNx*(J-1) + (ITER-1)*sNx*sNy |
|
./pkg/seaice/seaice_solve4temp.F |
412 |
SEAICE_SOLVE4TEMP |
IF ( iceOrNot(I,J) ) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
414 |
SEAICE_SOLVE4TEMP |
t1 = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
422 |
SEAICE_SOLVE4TEMP |
qhice(I,J)=QS1*(C1*t4+C2*t3 +C3*t2+C4*t1+C5) |
|
./pkg/seaice/seaice_solve4temp.F |
436 |
SEAICE_SOLVE4TEMP |
qhice(I,J) = bb1*mm_pi / (Ppascals - (1.0 _d 0 - bb1) * |
|
./pkg/seaice/seaice_solve4temp.F |
441 |
SEAICE_SOLVE4TEMP |
F_c(I,J) = -effConduct(I,J)*(TB(I,J)-tsurfLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
442 |
SEAICE_SOLVE4TEMP |
F_lh(I,J) = D1I*UG(I,J)*(qhice(I,J)-AQH(I,J,bi,bj)) |
|
./pkg/seaice/seaice_solve4temp.F |
444 |
SEAICE_SOLVE4TEMP |
A2(I,J)=-D1*UG(I,J)*t1-D1I*UG(I,J)*qhice(I,J)-D3*t4 |
|
./pkg/seaice/seaice_solve4temp.F |
445 |
SEAICE_SOLVE4TEMP |
A3(I,J) = 4.0 _d 0 * D3 * t3 + effConduct(I,J) + D1*UG(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
456 |
SEAICE_SOLVE4TEMP |
dFiDTs1 = 4.0 _d 0 * D3*t3 + effConduct(I,J) + D1*UG(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
457 |
SEAICE_SOLVE4TEMP |
& + D1I*UG(I,J)*dqhice_dTice |
|
./pkg/seaice/seaice_solve4temp.F |
459 |
SEAICE_SOLVE4TEMP |
F_lwu(I,J)= t4 * D3 |
|
./pkg/seaice/seaice_solve4temp.F |
461 |
SEAICE_SOLVE4TEMP |
F_sens(I,J)= D1 * UG(I,J) * (t1 - atempLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
463 |
SEAICE_SOLVE4TEMP |
F_ia(I,J) = F_lwd(I,J) + F_swi(I,J) + F_lwu(I,J) + |
|
./pkg/seaice/seaice_solve4temp.F |
464 |
SEAICE_SOLVE4TEMP |
& F_c(I,J) + F_sens(I,J) + F_lh(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
469 |
SEAICE_SOLVE4TEMP |
IF ( (I .EQ. SEAICE_debugPointX) .and. |
|
./pkg/seaice/seaice_solve4temp.F |
472 |
SEAICE_SOLVE4TEMP |
& 'ice-iter qhICE, ', ITER,qhIce(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
476 |
SEAICE_SOLVE4TEMP |
& 'ice-iter A1 A2 B ', ITER,A1(I,J), A2(I,J), |
|
./pkg/seaice/seaice_solve4temp.F |
477 |
SEAICE_SOLVE4TEMP |
& -F_c(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
480 |
SEAICE_SOLVE4TEMP |
& 'ice-iter A3 (-A1+A2) ', ITER, A3(I,J), |
|
./pkg/seaice/seaice_solve4temp.F |
481 |
SEAICE_SOLVE4TEMP |
& -(A1(I,J) + A2(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
486 |
SEAICE_SOLVE4TEMP |
& F_ia(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
494 |
SEAICE_SOLVE4TEMP |
tsurfLoc(I,J)=tsurfLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
495 |
SEAICE_SOLVE4TEMP |
& +(A1(I,J)+A2(I,J)-F_c(I,J))/A3(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
497 |
SEAICE_SOLVE4TEMP |
tsurfLoc(I,J) =MAX(273.16 _d 0+MIN_TICE,tsurfLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
498 |
SEAICE_SOLVE4TEMP |
tsurfLoc(I,J) =MIN(tsurfLoc(I,J),TMELT) |
|
./pkg/seaice/seaice_solve4temp.F |
501 |
SEAICE_SOLVE4TEMP |
tsurfLoc(I,J) = tsurfLoc(I,J) - F_ia(I,J) / dFiDTs1 |
|
./pkg/seaice/seaice_solve4temp.F |
509 |
SEAICE_SOLVE4TEMP |
IF (tsurfLoc(I,J) .LT. 50.0 _d 0 ) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
510 |
SEAICE_SOLVE4TEMP |
tsurfLoc(I,J) = TMELT |
|
./pkg/seaice/seaice_solve4temp.F |
512 |
SEAICE_SOLVE4TEMP |
tsurfLoc(I,J) =MIN(tsurfLoc(I,J),TMELT) |
|
./pkg/seaice/seaice_solve4temp.F |
516 |
SEAICE_SOLVE4TEMP |
IF ( (I .EQ. SEAICE_debugPointX) .and. |
|
./pkg/seaice/seaice_solve4temp.F |
521 |
SEAICE_SOLVE4TEMP |
& tsurfLoc(I,J), |
|
./pkg/seaice/seaice_solve4temp.F |
522 |
SEAICE_SOLVE4TEMP |
& log10(abs(tsurfLoc(I,J) - t1)) |
|
./pkg/seaice/seaice_solve4temp.F |
532 |
SEAICE_SOLVE4TEMP |
DO I=1,sNx |
|
./pkg/seaice/seaice_solve4temp.F |
533 |
SEAICE_SOLVE4TEMP |
IF ( iceOrNot(I,J) ) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
537 |
SEAICE_SOLVE4TEMP |
F_ia(I,J)=-A1(I,J)-A2(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
538 |
SEAICE_SOLVE4TEMP |
TSURF(I,J,bi,bj)=MIN(tsurfLoc(I,J),TMELT) |
|
./pkg/seaice/seaice_solve4temp.F |
540 |
SEAICE_SOLVE4TEMP |
IF (HSNOW_ACTUAL(I,J) .GT. 0.0 _d 0 ) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
542 |
SEAICE_SOLVE4TEMP |
IcePenetSWFlux(I,J)=0.0 _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
547 |
SEAICE_SOLVE4TEMP |
IcePenetSWFlux(I,J)=-(1.0 _d 0 -ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
548 |
SEAICE_SOLVE4TEMP |
& *XIO*EXP(-1.5 _d 0*HICE_ACTUAL(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
553 |
SEAICE_SOLVE4TEMP |
TSURF(I,J,bi,bj) = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
556 |
SEAICE_SOLVE4TEMP |
t1 = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
570 |
SEAICE_SOLVE4TEMP |
qhice(I,J) = bb1*mm_pi/(Ppascals- (1.0 _d 0 - bb1) * mm_pi) |
|
./pkg/seaice/seaice_solve4temp.F |
572 |
SEAICE_SOLVE4TEMP |
F_lh(I,J) = D1I * UG(I,J)*(qhice(I,J)-AQH(I,J,bi,bj)) |
|
./pkg/seaice/seaice_solve4temp.F |
573 |
SEAICE_SOLVE4TEMP |
F_c(I,J) = -effConduct(I,J) * (TB(I,J) - t1) |
|
./pkg/seaice/seaice_solve4temp.F |
574 |
SEAICE_SOLVE4TEMP |
F_lwu(I,J) = t4 * D3 |
|
./pkg/seaice/seaice_solve4temp.F |
575 |
SEAICE_SOLVE4TEMP |
F_sens(I,J) = D1 * UG(I,J) * (t1 - atempLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
579 |
SEAICE_SOLVE4TEMP |
F_ia(I,J) = F_lwd(I,J) + F_swi(I,J) + F_lwu(I,J) + |
|
./pkg/seaice/seaice_solve4temp.F |
580 |
SEAICE_SOLVE4TEMP |
& F_sens(I,J) + F_lh(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
586 |
SEAICE_SOLVE4TEMP |
CALL ZERO_ADJ_1D( 1, TSURF(I,J,bi,bj), myThid) |
|
./pkg/seaice/seaice_solve4temp.F |
587 |
SEAICE_SOLVE4TEMP |
t1 = TSURF(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
591 |
SEAICE_SOLVE4TEMP |
qhice(I,J)=QS1*(C1*t4+C2*t3 +C3*t2+C4*t1+C5) |
|
./pkg/seaice/seaice_solve4temp.F |
593 |
SEAICE_SOLVE4TEMP |
A1(I,J)=0.3 _d 0 *SWDOWN(I,J,bi,bj)+lwdownLoc(I,J)*0.97 _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
594 |
SEAICE_SOLVE4TEMP |
& +D1*UG(I,J)*atempLoc(I,J)+D1I*UG(I,J)*AQH(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
595 |
SEAICE_SOLVE4TEMP |
A2(I,J)=-D1*UG(I,J)*t1-D1I*UG(I,J)*qhice(I,J)-D3*t4 |
|
./pkg/seaice/seaice_solve4temp.F |
597 |
SEAICE_SOLVE4TEMP |
F_ia(I,J)=-A1(I,J)-A2(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
598 |
SEAICE_SOLVE4TEMP |
IcePenetSWFlux(I,J)= 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
603 |
SEAICE_SOLVE4TEMP |
IF (F_c(I,J) .LT. 0.0 _d 0) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
604 |
SEAICE_SOLVE4TEMP |
F_io_net(I,J) = -F_c(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
605 |
SEAICE_SOLVE4TEMP |
F_ia_net(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
607 |
SEAICE_SOLVE4TEMP |
F_io_net(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
608 |
SEAICE_SOLVE4TEMP |
F_ia_net(I,J) = F_ia(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
613 |
SEAICE_SOLVE4TEMP |
FWsublim(I,J) = F_lh(I,J)/SEAICE_lhSublim |
|
./pkg/seaice/seaice_solve4temp.F |
616 |
SEAICE_SOLVE4TEMP |
IF ( (I .EQ. SEAICE_debugPointX) .and. |
|
./pkg/seaice/seaice_solve4temp.F |
624 |
SEAICE_SOLVE4TEMP |
& TSURF(I,J,bi,bj), tsurfLoc(I,J),atempLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
627 |
SEAICE_SOLVE4TEMP |
& 'ibi LWL ', lwdownLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
631 |
SEAICE_SOLVE4TEMP |
& SWDOWN(I,J,bi,bj), IcePenetSWFlux(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
635 |
SEAICE_SOLVE4TEMP |
& AQH(I,J,bi,bj),qhice(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
648 |
SEAICE_SOLVE4TEMP |
& -(A1(I,J)+A2(I,J)), |
|
./pkg/seaice/seaice_solve4temp.F |
649 |
SEAICE_SOLVE4TEMP |
& -(A1(I,J)+A2(I,J)-F_c(I,J)), |
|
./pkg/seaice/seaice_solve4temp.F |
650 |
SEAICE_SOLVE4TEMP |
& F_c(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
652 |
SEAICE_SOLVE4TEMP |
& F_ia(I,J), |
|
./pkg/seaice/seaice_solve4temp.F |
653 |
SEAICE_SOLVE4TEMP |
& F_ia_net(I,J), |
|
./pkg/seaice/seaice_solve4temp.F |
654 |
SEAICE_SOLVE4TEMP |
& F_c(I,J) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
120 |
SHAP_FILT_RELVORT3 |
I=1 |
|
./pkg/shap_filt/shap_filt_relvort3.F |
124 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
125 |
SHAP_FILT_RELVORT3 |
& +recip_rA(I,J,bi,bj)/AZcorner*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
126 |
SHAP_FILT_RELVORT3 |
& ( vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
127 |
SHAP_FILT_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
128 |
SHAP_FILT_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
139 |
SHAP_FILT_RELVORT3 |
vort3(I-1,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
140 |
SHAP_FILT_RELVORT3 |
& recip_rAz(I-1,J,bi,bj)*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
141 |
SHAP_FILT_RELVORT3 |
& vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
142 |
SHAP_FILT_RELVORT3 |
& -vFld(I-2,J)*dyC(I-2,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
143 |
SHAP_FILT_RELVORT3 |
& -uFld(I-1,J)*dxC(I-1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
144 |
SHAP_FILT_RELVORT3 |
& +vFld(I+0,J-1)*dyC(I+0,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
148 |
SHAP_FILT_RELVORT3 |
vort3(I,J-1)=vort3(I-1,J) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
162 |
SHAP_FILT_RELVORT3 |
I=sNx+1 |
|
./pkg/shap_filt/shap_filt_relvort3.F |
167 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
168 |
SHAP_FILT_RELVORT3 |
& +recip_rA(I-1,J,bi,bj)/AZcorner*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
169 |
SHAP_FILT_RELVORT3 |
& (-uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
170 |
SHAP_FILT_RELVORT3 |
& -vFld(I-1,J)*dyC(I-1,J,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
171 |
SHAP_FILT_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
174 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
175 |
SHAP_FILT_RELVORT3 |
& +recip_rA(I-1,J,bi,bj)/AZcorner*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
176 |
SHAP_FILT_RELVORT3 |
& (-vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
177 |
SHAP_FILT_RELVORT3 |
& +uFld(I,J-1)*dxC(I,J-1,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
178 |
SHAP_FILT_RELVORT3 |
& - uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
181 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
182 |
SHAP_FILT_RELVORT3 |
& +recip_rA(I-1,J,bi,bj)/AZcorner*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
183 |
SHAP_FILT_RELVORT3 |
& (+uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
184 |
SHAP_FILT_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
185 |
SHAP_FILT_RELVORT3 |
& - vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
197 |
SHAP_FILT_RELVORT3 |
vort3(I+1,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
198 |
SHAP_FILT_RELVORT3 |
& recip_rAz(I+1,J,bi,bj)*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
199 |
SHAP_FILT_RELVORT3 |
& vFld(I+1,J)*dyC(I+1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
200 |
SHAP_FILT_RELVORT3 |
& -vFld(I-0,J)*dyC(I-0,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
201 |
SHAP_FILT_RELVORT3 |
& -uFld(I+1,J)*dxC(I+1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
202 |
SHAP_FILT_RELVORT3 |
& -vFld(I-1,J-1)*dyC(I-1,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
206 |
SHAP_FILT_RELVORT3 |
vort3(I,J-1)=vort3(I+1,J) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
220 |
SHAP_FILT_RELVORT3 |
I=1 |
|
./pkg/shap_filt/shap_filt_relvort3.F |
225 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
226 |
SHAP_FILT_RELVORT3 |
& +recip_rA(I,J-1,bi,bj)/AZcorner*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
227 |
SHAP_FILT_RELVORT3 |
& (+uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
228 |
SHAP_FILT_RELVORT3 |
& +vFld(I,J)*dyC(I,J,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
229 |
SHAP_FILT_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
232 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
233 |
SHAP_FILT_RELVORT3 |
& +recip_rA(I,J-1,bi,bj)/AZcorner*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
234 |
SHAP_FILT_RELVORT3 |
& (-uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
235 |
SHAP_FILT_RELVORT3 |
& +uFld(I,J-1)*dxC(I,J-1,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
236 |
SHAP_FILT_RELVORT3 |
& + vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
239 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
240 |
SHAP_FILT_RELVORT3 |
& +recip_rA(I,J-1,bi,bj)/AZcorner*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
241 |
SHAP_FILT_RELVORT3 |
& (+vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
242 |
SHAP_FILT_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
243 |
SHAP_FILT_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
255 |
SHAP_FILT_RELVORT3 |
vort3(I-1,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
256 |
SHAP_FILT_RELVORT3 |
& recip_rAz(I-1,J,bi,bj)*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
257 |
SHAP_FILT_RELVORT3 |
& vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
258 |
SHAP_FILT_RELVORT3 |
& -vFld(I-2,J)*dyC(I-2,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
259 |
SHAP_FILT_RELVORT3 |
& +vFld(I-0,J+1)*dyC(I-0,J+1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
260 |
SHAP_FILT_RELVORT3 |
& +uFld(I-1,J-1)*dxC(I-1,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
264 |
SHAP_FILT_RELVORT3 |
vort3(I,J+1)=vort3(I-1,J) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
278 |
SHAP_FILT_RELVORT3 |
I=sNx+1 |
|
./pkg/shap_filt/shap_filt_relvort3.F |
283 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
284 |
SHAP_FILT_RELVORT3 |
& +recip_rA(I-1,J-1,bi,bj)/AZcorner*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
285 |
SHAP_FILT_RELVORT3 |
& (-uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
286 |
SHAP_FILT_RELVORT3 |
& -vFld(I-1,J)*dyC(I-1,J,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
287 |
SHAP_FILT_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
290 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
291 |
SHAP_FILT_RELVORT3 |
& +recip_rA(I-1,J-1,bi,bj)/AZcorner*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
292 |
SHAP_FILT_RELVORT3 |
& (+uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
293 |
SHAP_FILT_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
294 |
SHAP_FILT_RELVORT3 |
& - vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
306 |
SHAP_FILT_RELVORT3 |
vort3(I+1,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
307 |
SHAP_FILT_RELVORT3 |
& recip_rAz(I+1,J,bi,bj)*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
308 |
SHAP_FILT_RELVORT3 |
& vFld(I+1,J)*dyC(I+1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
309 |
SHAP_FILT_RELVORT3 |
& -vFld(I-0,J)*dyC(I-0,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
310 |
SHAP_FILT_RELVORT3 |
& -vFld(I-1,J+1)*dyC(I-1,J+1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
311 |
SHAP_FILT_RELVORT3 |
& +uFld(I+1,J-1)*dxC(I+1,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
315 |
SHAP_FILT_RELVORT3 |
vort3(I,J+1)=vort3(I+1,J) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
51 |
SHAP_FILT_RELVORT3 |
DO I=1-Olx,sNx+Olx |
|
./pkg/shap_filt/shap_filt_relvort3.F |
52 |
SHAP_FILT_RELVORT3 |
vort3(I,J) = 0. _d 0 |
|
./pkg/shap_filt/shap_filt_relvort3.F |
58 |
SHAP_FILT_RELVORT3 |
DO I=2-Olx,sNx+Olx |
|
./pkg/shap_filt/shap_filt_relvort3.F |
61 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
62 |
SHAP_FILT_RELVORT3 |
& recip_rAz(I,J,bi,bj)*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
63 |
SHAP_FILT_RELVORT3 |
& ( vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
64 |
SHAP_FILT_RELVORT3 |
& -vFld(I-1,J)*dyC(I-1,J,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
65 |
SHAP_FILT_RELVORT3 |
& -( uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
66 |
SHAP_FILT_RELVORT3 |
& -uFld(I,J-1)*dxC(I,J-1,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
110 |
SHAP_FILT_TRACER_S1 |
DO I=1,sNx |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
137 |
SHAP_FILT_TRACER_S1 |
DO I=1,sNx |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
147 |
SHAP_FILT_TRACER_S1 |
DO I=1,sNx |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
163 |
SHAP_FILT_TRACER_S1 |
DO I=1,sNx |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
49 |
SHAP_FILT_TRACER_S1 |
INTEGER bi,bj,K,I,J,N |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
60 |
SHAP_FILT_TRACER_S1 |
DO I=1-OLx,sNx+OLx |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
84 |
SHAP_FILT_TRACER_S1 |
DO I=1,sNx |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
94 |
SHAP_FILT_TRACER_S1 |
DO I=1,sNx |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
109 |
SHAP_FILT_TRACER_S4 |
DO I=1,sNx |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
135 |
SHAP_FILT_TRACER_S4 |
DO I=1,sNx |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
145 |
SHAP_FILT_TRACER_S4 |
DO I=1,sNx |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
161 |
SHAP_FILT_TRACER_S4 |
DO I=1,sNx |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
49 |
SHAP_FILT_TRACER_S4 |
INTEGER bi,bj,K,I,J,N |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
59 |
SHAP_FILT_TRACER_S4 |
DO I=1-Olx,sNx+Olx |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
83 |
SHAP_FILT_TRACER_S4 |
DO I=1,sNx |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
93 |
SHAP_FILT_TRACER_S4 |
DO I=1,sNx |
|
./pkg/shap_filt/shap_filt_tracerold.F |
34 |
SHAP_FILT_TRACEROLD |
INTEGER I,J,N,N1,N2 |
|
./pkg/shap_filt/shap_filt_tracerold.F |
37 |
SHAP_FILT_TRACEROLD |
DO I=1-OLx,sNx+OLx |
|
./pkg/shap_filt/shap_filt_tracerold.F |
47 |
SHAP_FILT_TRACEROLD |
DO I=1-OLx+1,sNx+OLx-1 |
|
./pkg/shap_filt/shap_filt_tracerold.F |
59 |
SHAP_FILT_TRACEROLD |
DO I=1-OLx,sNx+OLx |
|
./pkg/shap_filt/shap_filt_tracerold.F |
66 |
SHAP_FILT_TRACEROLD |
DO I=1-OLx,sNx+OLx |
|
./pkg/shap_filt/shap_filt_tracerold.F |
77 |
SHAP_FILT_TRACEROLD |
DO I=1-OLx,sNx+OLx |
|
./pkg/shap_filt/shap_filt_tracerold.F |
90 |
SHAP_FILT_TRACEROLD |
DO I=1-OLx,sNx+OLx |
|
./pkg/shap_filt/shap_filt_tracerold.F |
96 |
SHAP_FILT_TRACEROLD |
DO I=1-OLx,sNx+OLx |
|
./pkg/shap_filt/shap_filt_u.F |
100 |
SHAP_FILT_U |
DO I=1-OLx,sNx+OLx |
|
./pkg/shap_filt/shap_filt_u.F |
106 |
SHAP_FILT_U |
DO I=1-OLx,sNx+OLx |
|
./pkg/shap_filt/shap_filt_u.F |
33 |
SHAP_FILT_U |
INTEGER I,J,N,N1,N2 |
|
./pkg/shap_filt/shap_filt_u.F |
36 |
SHAP_FILT_U |
DO I=1-OLx,sNx+OLx |
|
./pkg/shap_filt/shap_filt_u.F |
47 |
SHAP_FILT_U |
DO I=1-OLx+1,sNx+OLx-1 |
|
./pkg/shap_filt/shap_filt_u.F |
58 |
SHAP_FILT_U |
DO I=1-OLx+1,sNx+OLx |
|
./pkg/shap_filt/shap_filt_u.F |
66 |
SHAP_FILT_U |
DO I=1-OLx,sNx+OLx |
|
./pkg/shap_filt/shap_filt_u.F |
73 |
SHAP_FILT_U |
DO I=1-OLx,sNx+OLx |
|
./pkg/shap_filt/shap_filt_u.F |
85 |
SHAP_FILT_U |
DO I=1-OLx+1,sNx+OLx |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
106 |
SHAP_FILT_UV_S1 |
DO I=1,sNx+1 |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
113 |
SHAP_FILT_UV_S1 |
DO I=1,sNx |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
122 |
SHAP_FILT_UV_S1 |
DO I=1,sNx |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
138 |
SHAP_FILT_UV_S1 |
DO I=1,sNx+1 |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
146 |
SHAP_FILT_UV_S1 |
DO I=1,sNx |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
174 |
SHAP_FILT_UV_S1 |
DO I=1,sNx+1 |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
188 |
SHAP_FILT_UV_S1 |
DO I=1,sNx+1,sNx |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
209 |
SHAP_FILT_UV_S1 |
DO I=1,sNx+1 |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
216 |
SHAP_FILT_UV_S1 |
DO I=1,sNx |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
231 |
SHAP_FILT_UV_S1 |
I=1 |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
239 |
SHAP_FILT_UV_S1 |
I=sNx |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
251 |
SHAP_FILT_UV_S1 |
DO I=1,sNx |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
267 |
SHAP_FILT_UV_S1 |
DO I=1,sNx+1 |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
273 |
SHAP_FILT_UV_S1 |
DO I=1,sNx |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
69 |
SHAP_FILT_UV_S1 |
DO I=1-OLx,sNx+OLx |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
97 |
SHAP_FILT_UV_S1 |
DO I=1,sNx+1 |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
105 |
SHAP_FILT_UV_S4 |
DO I=1,sNx+1 |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
112 |
SHAP_FILT_UV_S4 |
DO I=1,sNx |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
121 |
SHAP_FILT_UV_S4 |
DO I=1,sNx |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
137 |
SHAP_FILT_UV_S4 |
DO I=1,sNx+1 |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
144 |
SHAP_FILT_UV_S4 |
DO I=1,sNx |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
171 |
SHAP_FILT_UV_S4 |
DO I=1,sNx+1 |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
186 |
SHAP_FILT_UV_S4 |
DO I=1,sNx+1,sNx |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
196 |
SHAP_FILT_UV_S4 |
DO I=1,sNx+1,sNx |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
208 |
SHAP_FILT_UV_S4 |
DO I=1,sNx+1 |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
215 |
SHAP_FILT_UV_S4 |
DO I=1,sNx |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
230 |
SHAP_FILT_UV_S4 |
I=1 |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
241 |
SHAP_FILT_UV_S4 |
I=sNx |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
253 |
SHAP_FILT_UV_S4 |
DO I=1,sNx |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
269 |
SHAP_FILT_UV_S4 |
DO I=1,sNx+1 |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
275 |
SHAP_FILT_UV_S4 |
DO I=1,sNx |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
68 |
SHAP_FILT_UV_S4 |
DO I=1-OLx,sNx+OLx |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
96 |
SHAP_FILT_UV_S4 |
DO I=1,sNx+1 |
|
./pkg/shap_filt/shap_filt_v.F |
100 |
SHAP_FILT_V |
DO I=1-OLx,sNx+OLx |
|
./pkg/shap_filt/shap_filt_v.F |
106 |
SHAP_FILT_V |
DO I=1-OLx,sNx+OLx |
|
./pkg/shap_filt/shap_filt_v.F |
33 |
SHAP_FILT_V |
INTEGER I,J,N,N1,N2 |
|
./pkg/shap_filt/shap_filt_v.F |
37 |
SHAP_FILT_V |
DO I=1-OLx,sNx+OLx |
|
./pkg/shap_filt/shap_filt_v.F |
44 |
SHAP_FILT_V |
DO I=1-OLx,sNx+OLx |
|
./pkg/shap_filt/shap_filt_v.F |
55 |
SHAP_FILT_V |
DO I=1-OLx+1,sNx+OLx-1 |
|
./pkg/shap_filt/shap_filt_v.F |
69 |
SHAP_FILT_V |
DO I=1-OLx,sNx+OLx |
|
./pkg/shap_filt/shap_filt_v.F |
76 |
SHAP_FILT_V |
DO I=1-OLx,sNx+OLx |
|
./pkg/shap_filt/shap_filt_v.F |
88 |
SHAP_FILT_V |
DO I=1-OLx,sNx+OLx |
|
./pkg/shelfice/shelfice_forcing.F |
156 |
SHELFICE_FORCING_S |
IF ( kLev .LT. Nr .AND. kLev .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
158 |
SHELFICE_FORCING_S |
drLoc = drF(kLev)*( 1. _d 0 - _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
159 |
SHELFICE_FORCING_S |
drLoc = MIN( drLoc, drF(Kp1) * _hFacC(I,J,Kp1,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
161 |
SHELFICE_FORCING_S |
& /( drF(kLev)*_hFacC(I,J,kLev,bi,bj)+drLoc ) |
|
./pkg/shelfice/shelfice_forcing.F |
163 |
SHELFICE_FORCING_S |
ELSEIF ( kLev .GT. 1 .AND. kLev-1 .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
165 |
SHELFICE_FORCING_S |
drLoc = drF(km1)*( 1. _d 0 - _hFacC(I,J,km1,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
166 |
SHELFICE_FORCING_S |
drLoc = MIN( drLoc, drF(kLev) * _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
168 |
SHELFICE_FORCING_S |
& /( drF(km1)*_hFacC(I,J,km1,bi,bj)+drLoc ) |
|
./pkg/shelfice/shelfice_forcing.F |
177 |
SHELFICE_FORCING_S |
IF ( kLev .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
64 |
SHELFICE_FORCING_T |
IF ( kLev .LT. Nr .AND. kLev .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
66 |
SHELFICE_FORCING_T |
drLoc = drF(kLev)*( 1. _d 0 - _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
67 |
SHELFICE_FORCING_T |
drLoc = MIN( drLoc, drF(Kp1) * _hFacC(I,J,Kp1,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
69 |
SHELFICE_FORCING_T |
& /( drF(kLev)*_hFacC(I,J,kLev,bi,bj)+drLoc ) |
|
./pkg/shelfice/shelfice_forcing.F |
71 |
SHELFICE_FORCING_T |
ELSEIF ( kLev .GT. 1 .AND. kLev-1 .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
73 |
SHELFICE_FORCING_T |
drLoc = drF(km1)*( 1. _d 0 - _hFacC(I,J,km1,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
74 |
SHELFICE_FORCING_T |
drLoc = MIN( drLoc, drF(kLev) * _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
76 |
SHELFICE_FORCING_T |
& /( drF(km1)*_hFacC(I,J,km1,bi,bj)+drLoc ) |
|
./pkg/shelfice/shelfice_forcing.F |
85 |
SHELFICE_FORCING_T |
IF ( kLev .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_init_fixed.F |
29 |
SHELFICE_INIT_FIXED |
INTEGER I, J, K, bi, bj |
|
./pkg/shelfice/shelfice_init_fixed.F |
56 |
SHELFICE_INIT_FIXED |
DO I = 1-OLx, sNx+OLx |
|
./pkg/shelfice/shelfice_init_fixed.F |
59 |
SHELFICE_INIT_FIXED |
IF ( maskC(I,J,K,bi,bj) .NE. 0. _d 0 ) |
|
./pkg/shelfice/shelfice_init_fixed.F |
60 |
SHELFICE_INIT_FIXED |
& kTopC(I,J,bi,bj) = K |
|
./pkg/shelfice/shelfice_init_varia.F |
32 |
SHELFICE_INIT_VARIA |
INTEGER I, J, bi, bj |
|
./pkg/shelfice/shelfice_init_varia.F |
38 |
SHELFICE_INIT_VARIA |
DO I = 1-OLx, sNx+OLx |
|
./pkg/shelfice/shelfice_thermodynamics.F |
109 |
SHELFICE_THERMODYNAMICS |
DO I = 1-Olx,sNx+Olx |
|
./pkg/shelfice/shelfice_thermodynamics.F |
110 |
SHELFICE_THERMODYNAMICS |
shelfIceHeatFlux (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
111 |
SHELFICE_THERMODYNAMICS |
shelfIceFreshWaterFlux(I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
112 |
SHELFICE_THERMODYNAMICS |
shelficeForcingT (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
113 |
SHELFICE_THERMODYNAMICS |
shelficeForcingS (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
117 |
SHELFICE_THERMODYNAMICS |
DO I = 1, sNx |
|
./pkg/shelfice/shelfice_thermodynamics.F |
120 |
SHELFICE_THERMODYNAMICS |
K = MAX(1,kTopC(I,J,bi,bj)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
121 |
SHELFICE_THERMODYNAMICS |
pLoc(I,J) = ABS(R_shelfIce(I,J,bi,bj)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
122 |
SHELFICE_THERMODYNAMICS |
tLoc(I,J) = theta(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
123 |
SHELFICE_THERMODYNAMICS |
sLoc(I,J) = MAX(salt(I,J,K,bi,bj), 0. _d 0) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
129 |
SHELFICE_THERMODYNAMICS |
DO I = 1, sNx |
|
./pkg/shelfice/shelfice_thermodynamics.F |
130 |
SHELFICE_THERMODYNAMICS |
K = kTopC(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
134 |
SHELFICE_THERMODYNAMICS |
drKp1 = drF(K)*( 1. _d 0 - _hFacC(I,J,K,bi,bj) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
136 |
SHELFICE_THERMODYNAMICS |
drKp1 = MIN( drKp1, drF(Kp1) * _hFacC(I,J,Kp1,bi,bj) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
138 |
SHELFICE_THERMODYNAMICS |
& ( drF(K)*_hFacC(I,J,K,bi,bj) + drKp1 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
139 |
SHELFICE_THERMODYNAMICS |
tLoc(I,J) = ( tLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
140 |
SHELFICE_THERMODYNAMICS |
& + theta(I,J,Kp1,bi,bj) *drKp1 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
142 |
SHELFICE_THERMODYNAMICS |
sLoc(I,J) = ( sLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
143 |
SHELFICE_THERMODYNAMICS |
& + MAX(salt(I,J,Kp1,bi,bj), 0. _d 0) * drKp1 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
153 |
SHELFICE_THERMODYNAMICS |
DO I = 1, sNx |
|
./pkg/shelfice/shelfice_thermodynamics.F |
154 |
SHELFICE_THERMODYNAMICS |
tLoc(I,J) = SW_TEMP(sLoc(I,J),tLoc(I,J),pLoc(I,J),0.D0) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
161 |
SHELFICE_THERMODYNAMICS |
DO I = 1, sNx |
|
./pkg/shelfice/shelfice_thermodynamics.F |
162 |
SHELFICE_THERMODYNAMICS |
K = kTopC(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
163 |
SHELFICE_THERMODYNAMICS |
IF ( K .NE. 0 .AND. pLoc(I,J) .GT. 0. _d 0 ) THEN |
|
./pkg/shelfice/shelfice_thermodynamics.F |
166 |
SHELFICE_THERMODYNAMICS |
& sLoc(I,J) * ( a0 + a1*sqrt(sLoc(I,J)) + a2*sLoc(I,J) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
167 |
SHELFICE_THERMODYNAMICS |
& + b*pLoc(I,J) + c0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
169 |
SHELFICE_THERMODYNAMICS |
shelfIceHeatFlux(I,J,bi,bj) = maskC(I,J,K,bi,bj) * |
|
./pkg/shelfice/shelfice_thermodynamics.F |
170 |
SHELFICE_THERMODYNAMICS |
& SHELFICEheatTransCoeff * ( tLoc(I,J) - thetaFreeze ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
175 |
SHELFICE_THERMODYNAMICS |
shelfIceFreshWaterFlux(I,J,bi,bj) = |
|
./pkg/shelfice/shelfice_thermodynamics.F |
176 |
SHELFICE_THERMODYNAMICS |
& - shelfIceHeatFlux(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
180 |
SHELFICE_THERMODYNAMICS |
& - shelfIceHeatFlux(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
182 |
SHELFICE_THERMODYNAMICS |
& - cFac * shelfIceFreshWaterFlux(I,J,bi,bj)*mass2rUnit |
|
./pkg/shelfice/shelfice_thermodynamics.F |
183 |
SHELFICE_THERMODYNAMICS |
& * ( thetaFreeze - tLoc(I,J) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
185 |
SHELFICE_THERMODYNAMICS |
& shelfIceFreshWaterFlux(I,J,bi,bj) * mass2rUnit |
|
./pkg/shelfice/shelfice_thermodynamics.F |
186 |
SHELFICE_THERMODYNAMICS |
& * ( cFac*sLoc(I,J) + (1. _d 0-cFac)*convertFW2SaltLoc ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
190 |
SHELFICE_THERMODYNAMICS |
shelfIceHeatFlux (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
191 |
SHELFICE_THERMODYNAMICS |
shelfIceFreshWaterFlux(I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
192 |
SHELFICE_THERMODYNAMICS |
shelficeForcingT (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
193 |
SHELFICE_THERMODYNAMICS |
shelficeForcingS (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
212 |
SHELFICE_THERMODYNAMICS |
DO I = 1, sNx |
|
./pkg/shelfice/shelfice_thermodynamics.F |
213 |
SHELFICE_THERMODYNAMICS |
K = kTopC(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
214 |
SHELFICE_THERMODYNAMICS |
IF ( K .NE. 0 .AND. pLoc(I,J) .GT. 0. _d 0 ) THEN |
|
./pkg/shelfice/shelfice_thermodynamics.F |
221 |
SHELFICE_THERMODYNAMICS |
& * SHELFICEkappa/pLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
222 |
SHELFICE_THERMODYNAMICS |
eps4 = b*pLoc(I,J) + c0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
223 |
SHELFICE_THERMODYNAMICS |
eps6 = eps4 - tLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
229 |
SHELFICE_THERMODYNAMICS |
cqe = eps2*sLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
235 |
SHELFICE_THERMODYNAMICS |
print *, 'ml-shelfice: pLoc = ', pLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
236 |
SHELFICE_THERMODYNAMICS |
print *, 'ml-shelfice: tLoc = ', tLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
237 |
SHELFICE_THERMODYNAMICS |
print *, 'ml-shelfice: sLoc = ', sLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
268 |
SHELFICE_THERMODYNAMICS |
& * ( saltFreeze - sLoc(I,J) ) / saltFreeze |
|
./pkg/shelfice/shelfice_thermodynamics.F |
272 |
SHELFICE_THERMODYNAMICS |
shelfIceHeatFlux(I,J,bi,bj) = |
|
./pkg/shelfice/shelfice_thermodynamics.F |
275 |
SHELFICE_THERMODYNAMICS |
& - HeatCapacity_Cp*( thetaFreeze - rFac*tLoc(I,J) ) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
277 |
SHELFICE_THERMODYNAMICS |
shelfIceFreshWaterFlux(I,J,bi,bj) = freshWaterFlux |
|
./pkg/shelfice/shelfice_thermodynamics.F |
281 |
SHELFICE_THERMODYNAMICS |
& - cFac*shelfIceFreshWaterFlux(I,J,bi,bj)*mass2rUnit ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
282 |
SHELFICE_THERMODYNAMICS |
& * ( thetaFreeze - tLoc(I,J) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
285 |
SHELFICE_THERMODYNAMICS |
& - cFac*shelfIceFreshWaterFlux(I,J,bi,bj)*mass2rUnit ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
286 |
SHELFICE_THERMODYNAMICS |
& * ( saltFreeze - sLoc(I,J) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
288 |
SHELFICE_THERMODYNAMICS |
shelfIceHeatFlux (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
289 |
SHELFICE_THERMODYNAMICS |
shelfIceFreshWaterFlux(I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
290 |
SHELFICE_THERMODYNAMICS |
shelficeForcingT (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
291 |
SHELFICE_THERMODYNAMICS |
shelficeForcingS (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
60 |
SHELFICE_THERMODYNAMICS |
INTEGER I,J,K,Kp1 |
|
./pkg/shelfice/shelfice_u_drag.F |
53 |
SHELFICE_U_DRAG |
INTEGER I,J,kUp,kUpC,kTop |
|
./pkg/shelfice/shelfice_update_masks.F |
101 |
SHELFICE_UPDATE_MASKS |
hFacC(I,J,K,bi,bj)=hFacMnSz |
|
./pkg/shelfice/shelfice_update_masks.F |
104 |
SHELFICE_UPDATE_MASKS |
hFacC(I,J,K,bi,bj)=hFacCtmp |
|
./pkg/shelfice/shelfice_update_masks.F |
48 |
SHELFICE_UPDATE_MASKS |
INTEGER I, J, K |
|
./pkg/shelfice/shelfice_update_masks.F |
89 |
SHELFICE_UPDATE_MASKS |
DO I=1-Olx,sNx+Olx |
|
./pkg/shelfice/shelfice_update_masks.F |
91 |
SHELFICE_UPDATE_MASKS |
hFacCtmp = (rF(k)-R_shelfIce(I,J,bi,bj))*recip_drF(K) |
|
./pkg/shelfice/shelfice_update_masks.F |
93 |
SHELFICE_UPDATE_MASKS |
hFacCtmp = hFacC(I,J,K,bi,bj) - max( hFacCtmp, 0. _d 0) |
|
./pkg/shelfice/shelfice_update_masks.F |
99 |
SHELFICE_UPDATE_MASKS |
hFacC(I,J,K,bi,bj)=0. |
|
./pkg/shelfice/shelfice_v_drag.F |
53 |
SHELFICE_V_DRAG |
INTEGER I,J,kUp,kUpC,kTop |
|
./pkg/sphere/sphere.F |
404 |
SHC4ZONE |
INTEGER I, J, K, L, M |
|
./pkg/sphere/sphere.F |
428 |
SHC4ZONE |
I = 0 |
|
./pkg/sphere/sphere.F |
442 |
SHC4ZONE |
I1 = I+1 |
|
./pkg/sphere/sphere.F |
443 |
SHC4ZONE |
I2 = I+2 |
|
./pkg/sphere/sphere.F |
453 |
SHC4ZONE |
I = I + 2 |
|
./pkg/sphere/sphere.F |
455 |
SHC4ZONE |
I = I+1 |
|
./pkg/sphere/sphere.F |
457 |
SHC4ZONE |
SHC(K+M) = SHC(K+M) + P(I) * CE |
|
./pkg/sphere/sphere.F |
458 |
SHC4ZONE |
SHC(K-M) = SHC(K-M) + P(I) * SE |
|
./pkg/sphere/sphere.F |
495 |
FRSBASE |
SUBROUTINE FRSBASE(A,H,I,J) |
|
./pkg/sphere/sphere.F |
503 |
FRSBASE |
INTEGER I, J |
|
./pkg/sphere/sphere.F |
510 |
FRSBASE |
N = J-I+1 |
|
./pkg/sphere/sphere.F |
512 |
FRSBASE |
H(I) = 1.0 |
|
./pkg/sphere/sphere.F |
515 |
FRSBASE |
H(I+1) = COS(ARG) |
|
./pkg/sphere/sphere.F |
517 |
FRSBASE |
H(I+2) = SIN(ARG) |
|
./pkg/sphere/sphere.F |
519 |
FRSBASE |
T = H(I+1)+H(I+1) |
|
./pkg/sphere/sphere.F |
520 |
FRSBASE |
H(I+3) = T*H(I+1) - 1.0 |
|
./pkg/sphere/sphere.F |
522 |
FRSBASE |
H(I+4) = T*H(I+2) |
|
./pkg/sphere/sphere.F |
524 |
FRSBASE |
DO L = I+5,J |
|
./pkg/thsice/thsice_calc_thickn.F |
1030 |
THSICE_CALC_THICKN |
& flx2oc(I,J),Fbot(i,j),(etope(i,j)+ebote(i,j))/dt |
|
./pkg/timeave/timeave_surf_flux.F |
36 |
TIMEAVE_SURF_FLUX |
INTEGER I, J, K |
|
./pkg/timeave/timeave_surf_flux.F |
71 |
TIMEAVE_SURF_FLUX |
& (surfaceForcingT(i,j,bi,bj)+surfaceForcingTice(I,J,bi,bj)) |
|
./pkg/zonal_filt/fftpack.F |
1000 |
R8ADB3 |
CR2 = CC(I-1,1,K)+TAUR*TR2 |
|
./pkg/zonal_filt/fftpack.F |
1001 |
R8ADB3 |
CH(I-1,K,1) = CC(I-1,1,K)+TR2 |
|
./pkg/zonal_filt/fftpack.F |
1002 |
R8ADB3 |
TI2 = CC(I,3,K)-CC(IC,2,K) |
|
./pkg/zonal_filt/fftpack.F |
1003 |
R8ADB3 |
CI2 = CC(I,1,K)+TAUR*TI2 |
|
./pkg/zonal_filt/fftpack.F |
1004 |
R8ADB3 |
CH(I,K,1) = CC(I,1,K)+TI2 |
|
./pkg/zonal_filt/fftpack.F |
1005 |
R8ADB3 |
CR3 = TAUI*(CC(I-1,3,K)-CC(IC-1,2,K)) |
|
./pkg/zonal_filt/fftpack.F |
1006 |
R8ADB3 |
CI3 = TAUI*(CC(I,3,K)+CC(IC,2,K)) |
|
./pkg/zonal_filt/fftpack.F |
1011 |
R8ADB3 |
CH(I-1,K,2) = WA1(I-2)*DR2-WA1(I-1)*DI2 |
|
./pkg/zonal_filt/fftpack.F |
1012 |
R8ADB3 |
CH(I,K,2) = WA1(I-2)*DI2+WA1(I-1)*DR2 |
|
./pkg/zonal_filt/fftpack.F |
1013 |
R8ADB3 |
CH(I-1,K,3) = WA2(I-2)*DR3-WA2(I-1)*DI3 |
|
./pkg/zonal_filt/fftpack.F |
1014 |
R8ADB3 |
CH(I,K,3) = WA2(I-2)*DI3+WA2(I-1)*DR3 |
|
./pkg/zonal_filt/fftpack.F |
1021 |
R8ADB4 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
1038 |
R8ADB4 |
DO 103 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
1039 |
R8ADB4 |
IC = IDP2-I |
|
./pkg/zonal_filt/fftpack.F |
1040 |
R8ADB4 |
TI1 = CC(I,1,K)+CC(IC,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1041 |
R8ADB4 |
TI2 = CC(I,1,K)-CC(IC,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1042 |
R8ADB4 |
TI3 = CC(I,3,K)-CC(IC,2,K) |
|
./pkg/zonal_filt/fftpack.F |
1043 |
R8ADB4 |
TR4 = CC(I,3,K)+CC(IC,2,K) |
|
./pkg/zonal_filt/fftpack.F |
1044 |
R8ADB4 |
TR1 = CC(I-1,1,K)-CC(IC-1,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1045 |
R8ADB4 |
TR2 = CC(I-1,1,K)+CC(IC-1,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1046 |
R8ADB4 |
TI4 = CC(I-1,3,K)-CC(IC-1,2,K) |
|
./pkg/zonal_filt/fftpack.F |
1047 |
R8ADB4 |
TR3 = CC(I-1,3,K)+CC(IC-1,2,K) |
|
./pkg/zonal_filt/fftpack.F |
1048 |
R8ADB4 |
CH(I-1,K,1) = TR2+TR3 |
|
./pkg/zonal_filt/fftpack.F |
1050 |
R8ADB4 |
CH(I,K,1) = TI2+TI3 |
|
./pkg/zonal_filt/fftpack.F |
1056 |
R8ADB4 |
CH(I-1,K,2) = WA1(I-2)*CR2-WA1(I-1)*CI2 |
|
./pkg/zonal_filt/fftpack.F |
1057 |
R8ADB4 |
CH(I,K,2) = WA1(I-2)*CI2+WA1(I-1)*CR2 |
|
./pkg/zonal_filt/fftpack.F |
1058 |
R8ADB4 |
CH(I-1,K,3) = WA2(I-2)*CR3-WA2(I-1)*CI3 |
|
./pkg/zonal_filt/fftpack.F |
1059 |
R8ADB4 |
CH(I,K,3) = WA2(I-2)*CI3+WA2(I-1)*CR3 |
|
./pkg/zonal_filt/fftpack.F |
1060 |
R8ADB4 |
CH(I-1,K,4) = WA3(I-2)*CR4-WA3(I-1)*CI4 |
|
./pkg/zonal_filt/fftpack.F |
1061 |
R8ADB4 |
CH(I,K,4) = WA3(I-2)*CI4+WA3(I-1)*CR4 |
|
./pkg/zonal_filt/fftpack.F |
107 |
RADB4 |
DO 103 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
1080 |
R8ADB5 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
108 |
RADB4 |
IC = IDP2-I |
|
./pkg/zonal_filt/fftpack.F |
109 |
RADB4 |
TI1 = CC(I,1,K)+CC(IC,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1103 |
R8ADB5 |
DO 102 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
1104 |
R8ADB5 |
IC = IDP2-I |
|
./pkg/zonal_filt/fftpack.F |
1105 |
R8ADB5 |
TI5 = CC(I,3,K)+CC(IC,2,K) |
|
./pkg/zonal_filt/fftpack.F |
1106 |
R8ADB5 |
TI2 = CC(I,3,K)-CC(IC,2,K) |
|
./pkg/zonal_filt/fftpack.F |
1107 |
R8ADB5 |
TI4 = CC(I,5,K)+CC(IC,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1108 |
R8ADB5 |
TI3 = CC(I,5,K)-CC(IC,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1109 |
R8ADB5 |
TR5 = CC(I-1,3,K)-CC(IC-1,2,K) |
|
./pkg/zonal_filt/fftpack.F |
110 |
RADB4 |
TI2 = CC(I,1,K)-CC(IC,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1110 |
R8ADB5 |
TR2 = CC(I-1,3,K)+CC(IC-1,2,K) |
|
./pkg/zonal_filt/fftpack.F |
1111 |
R8ADB5 |
TR4 = CC(I-1,5,K)-CC(IC-1,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1112 |
R8ADB5 |
TR3 = CC(I-1,5,K)+CC(IC-1,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1113 |
R8ADB5 |
CH(I-1,K,1) = CC(I-1,1,K)+TR2+TR3 |
|
./pkg/zonal_filt/fftpack.F |
1114 |
R8ADB5 |
CH(I,K,1) = CC(I,1,K)+TI2+TI3 |
|
./pkg/zonal_filt/fftpack.F |
1115 |
R8ADB5 |
CR2 = CC(I-1,1,K)+TR11*TR2+TR12*TR3 |
|
./pkg/zonal_filt/fftpack.F |
1116 |
R8ADB5 |
CI2 = CC(I,1,K)+TR11*TI2+TR12*TI3 |
|
./pkg/zonal_filt/fftpack.F |
1117 |
R8ADB5 |
CR3 = CC(I-1,1,K)+TR12*TR2+TR11*TR3 |
|
./pkg/zonal_filt/fftpack.F |
1118 |
R8ADB5 |
CI3 = CC(I,1,K)+TR12*TI2+TR11*TI3 |
|
./pkg/zonal_filt/fftpack.F |
111 |
RADB4 |
TI3 = CC(I,3,K)-CC(IC,2,K) |
|
./pkg/zonal_filt/fftpack.F |
112 |
RADB4 |
TR4 = CC(I,3,K)+CC(IC,2,K) |
|
./pkg/zonal_filt/fftpack.F |
1131 |
R8ADB5 |
CH(I-1,K,2) = WA1(I-2)*DR2-WA1(I-1)*DI2 |
|
./pkg/zonal_filt/fftpack.F |
1132 |
R8ADB5 |
CH(I,K,2) = WA1(I-2)*DI2+WA1(I-1)*DR2 |
|
./pkg/zonal_filt/fftpack.F |
1133 |
R8ADB5 |
CH(I-1,K,3) = WA2(I-2)*DR3-WA2(I-1)*DI3 |
|
./pkg/zonal_filt/fftpack.F |
1134 |
R8ADB5 |
CH(I,K,3) = WA2(I-2)*DI3+WA2(I-1)*DR3 |
|
./pkg/zonal_filt/fftpack.F |
1135 |
R8ADB5 |
CH(I-1,K,4) = WA3(I-2)*DR4-WA3(I-1)*DI4 |
|
./pkg/zonal_filt/fftpack.F |
1136 |
R8ADB5 |
CH(I,K,4) = WA3(I-2)*DI4+WA3(I-1)*DR4 |
|
./pkg/zonal_filt/fftpack.F |
1137 |
R8ADB5 |
CH(I-1,K,5) = WA4(I-2)*DR5-WA4(I-1)*DI5 |
|
./pkg/zonal_filt/fftpack.F |
1138 |
R8ADB5 |
CH(I,K,5) = WA4(I-2)*DI5+WA4(I-1)*DR5 |
|
./pkg/zonal_filt/fftpack.F |
113 |
RADB4 |
TR1 = CC(I-1,1,K)-CC(IC-1,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1145 |
R8ADBG |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
114 |
RADB4 |
TR2 = CC(I-1,1,K)+CC(IC-1,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1159 |
R8ADBG |
DO 101 I=1,IDO |
|
./pkg/zonal_filt/fftpack.F |
115 |
RADB4 |
TI4 = CC(I-1,3,K)-CC(IC-1,2,K) |
|
./pkg/zonal_filt/fftpack.F |
1160 |
R8ADBG |
CH(I,K,1) = CC(I,1,K) |
|
./pkg/zonal_filt/fftpack.F |
1164 |
R8ADBG |
103 DO 105 I=1,IDO |
|
./pkg/zonal_filt/fftpack.F |
1166 |
R8ADBG |
CH(I,K,1) = CC(I,1,K) |
|
./pkg/zonal_filt/fftpack.F |
116 |
RADB4 |
TR3 = CC(I-1,3,K)+CC(IC-1,2,K) |
|
./pkg/zonal_filt/fftpack.F |
117 |
RADB4 |
CH(I-1,K,1) = TR2+TR3 |
|
./pkg/zonal_filt/fftpack.F |
1182 |
R8ADBG |
DO 109 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
1183 |
R8ADBG |
IC = IDP2-I |
|
./pkg/zonal_filt/fftpack.F |
1184 |
R8ADBG |
CH(I-1,K,J) = CC(I-1,2*J-1,K)+CC(IC-1,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
1185 |
R8ADBG |
CH(I-1,K,JC) = CC(I-1,2*J-1,K)-CC(IC-1,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
1186 |
R8ADBG |
CH(I,K,J) = CC(I,2*J-1,K)-CC(IC,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
1187 |
R8ADBG |
CH(I,K,JC) = CC(I,2*J-1,K)+CC(IC,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
1194 |
R8ADBG |
DO 114 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
1195 |
R8ADBG |
IC = IDP2-I |
|
./pkg/zonal_filt/fftpack.F |
1197 |
R8ADBG |
CH(I-1,K,J) = CC(I-1,2*J-1,K)+CC(IC-1,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
1198 |
R8ADBG |
CH(I-1,K,JC) = CC(I-1,2*J-1,K)-CC(IC-1,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
1199 |
R8ADBG |
CH(I,K,J) = CC(I,2*J-1,K)-CC(IC,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
119 |
RADB4 |
CH(I,K,1) = TI2+TI3 |
|
./pkg/zonal_filt/fftpack.F |
1200 |
R8ADBG |
CH(I,K,JC) = CC(I,2*J-1,K)+CC(IC,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
1247 |
R8ADBG |
DO 125 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
1248 |
R8ADBG |
CH(I-1,K,J) = C1(I-1,K,J)-C1(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1249 |
R8ADBG |
CH(I-1,K,JC) = C1(I-1,K,J)+C1(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1250 |
R8ADBG |
CH(I,K,J) = C1(I,K,J)+C1(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1251 |
R8ADBG |
CH(I,K,JC) = C1(I,K,J)-C1(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1258 |
R8ADBG |
DO 130 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
125 |
RADB4 |
CH(I-1,K,2) = WA1(I-2)*CR2-WA1(I-1)*CI2 |
|
./pkg/zonal_filt/fftpack.F |
1260 |
R8ADBG |
CH(I-1,K,J) = C1(I-1,K,J)-C1(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1261 |
R8ADBG |
CH(I-1,K,JC) = C1(I-1,K,J)+C1(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1262 |
R8ADBG |
CH(I,K,J) = C1(I,K,J)+C1(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1263 |
R8ADBG |
CH(I,K,JC) = C1(I,K,J)-C1(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
126 |
RADB4 |
CH(I,K,2) = WA1(I-2)*CI2+WA1(I-1)*CR2 |
|
./pkg/zonal_filt/fftpack.F |
127 |
RADB4 |
CH(I-1,K,3) = WA2(I-2)*CR3-WA2(I-1)*CI3 |
|
./pkg/zonal_filt/fftpack.F |
1282 |
R8ADBG |
DO 137 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
1285 |
R8ADBG |
C1(I-1,K,J) = WA(IDIJ-1)*CH(I-1,K,J)-WA(IDIJ)*CH(I,K,J) |
|
./pkg/zonal_filt/fftpack.F |
1286 |
R8ADBG |
C1(I,K,J) = WA(IDIJ-1)*CH(I,K,J)+WA(IDIJ)*CH(I-1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
128 |
RADB4 |
CH(I,K,3) = WA2(I-2)*CI3+WA2(I-1)*CR3 |
|
./pkg/zonal_filt/fftpack.F |
1296 |
R8ADBG |
DO 140 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
1298 |
R8ADBG |
C1(I-1,K,J) = WA(IDIJ-1)*CH(I-1,K,J)-WA(IDIJ)*CH(I,K,J) |
|
./pkg/zonal_filt/fftpack.F |
1299 |
R8ADBG |
C1(I,K,J) = WA(IDIJ-1)*CH(I,K,J)+WA(IDIJ)*CH(I-1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
129 |
RADB4 |
CH(I-1,K,4) = WA3(I-2)*CR4-WA3(I-1)*CI4 |
|
./pkg/zonal_filt/fftpack.F |
1307 |
R8FFTB1 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
130 |
RADB4 |
CH(I,K,4) = WA3(I-2)*CI4+WA3(I-1)*CR4 |
|
./pkg/zonal_filt/fftpack.F |
1361 |
R8FFTB1 |
DO 117 I=1,N |
|
./pkg/zonal_filt/fftpack.F |
1362 |
R8FFTB1 |
C(I) = CH(I) |
|
./pkg/zonal_filt/fftpack.F |
1375 |
R8ADF2 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
1385 |
R8ADF2 |
DO 103 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
1386 |
R8ADF2 |
IC = IDP2-I |
|
./pkg/zonal_filt/fftpack.F |
1387 |
R8ADF2 |
TR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2) |
|
./pkg/zonal_filt/fftpack.F |
1388 |
R8ADF2 |
TI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2) |
|
./pkg/zonal_filt/fftpack.F |
1389 |
R8ADF2 |
CH(I,1,K) = CC(I,K,1)+TI2 |
|
./pkg/zonal_filt/fftpack.F |
1390 |
R8ADF2 |
CH(IC,2,K) = TI2-CC(I,K,1) |
|
./pkg/zonal_filt/fftpack.F |
1391 |
R8ADF2 |
CH(I-1,1,K) = CC(I-1,K,1)+TR2 |
|
./pkg/zonal_filt/fftpack.F |
1392 |
R8ADF2 |
CH(IC-1,2,K) = CC(I-1,K,1)-TR2 |
|
./pkg/zonal_filt/fftpack.F |
1404 |
R8ADF3 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
1417 |
R8ADF3 |
DO 102 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
1418 |
R8ADF3 |
IC = IDP2-I |
|
./pkg/zonal_filt/fftpack.F |
1419 |
R8ADF3 |
DR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2) |
|
./pkg/zonal_filt/fftpack.F |
1420 |
R8ADF3 |
DI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2) |
|
./pkg/zonal_filt/fftpack.F |
1421 |
R8ADF3 |
DR3 = WA2(I-2)*CC(I-1,K,3)+WA2(I-1)*CC(I,K,3) |
|
./pkg/zonal_filt/fftpack.F |
1422 |
R8ADF3 |
DI3 = WA2(I-2)*CC(I,K,3)-WA2(I-1)*CC(I-1,K,3) |
|
./pkg/zonal_filt/fftpack.F |
1425 |
R8ADF3 |
CH(I-1,1,K) = CC(I-1,K,1)+CR2 |
|
./pkg/zonal_filt/fftpack.F |
1426 |
R8ADF3 |
CH(I,1,K) = CC(I,K,1)+CI2 |
|
./pkg/zonal_filt/fftpack.F |
1427 |
R8ADF3 |
TR2 = CC(I-1,K,1)+TAUR*CR2 |
|
./pkg/zonal_filt/fftpack.F |
1428 |
R8ADF3 |
TI2 = CC(I,K,1)+TAUR*CI2 |
|
./pkg/zonal_filt/fftpack.F |
1431 |
R8ADF3 |
CH(I-1,3,K) = TR2+TR3 |
|
./pkg/zonal_filt/fftpack.F |
1433 |
R8ADF3 |
CH(I,3,K) = TI2+TI3 |
|
./pkg/zonal_filt/fftpack.F |
1441 |
R8ADF4 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
1456 |
R8ADF4 |
DO 103 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
1457 |
R8ADF4 |
IC = IDP2-I |
|
./pkg/zonal_filt/fftpack.F |
1458 |
R8ADF4 |
CR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2) |
|
./pkg/zonal_filt/fftpack.F |
1459 |
R8ADF4 |
CI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2) |
|
./pkg/zonal_filt/fftpack.F |
1460 |
R8ADF4 |
CR3 = WA2(I-2)*CC(I-1,K,3)+WA2(I-1)*CC(I,K,3) |
|
./pkg/zonal_filt/fftpack.F |
1461 |
R8ADF4 |
CI3 = WA2(I-2)*CC(I,K,3)-WA2(I-1)*CC(I-1,K,3) |
|
./pkg/zonal_filt/fftpack.F |
1462 |
R8ADF4 |
CR4 = WA3(I-2)*CC(I-1,K,4)+WA3(I-1)*CC(I,K,4) |
|
./pkg/zonal_filt/fftpack.F |
1463 |
R8ADF4 |
CI4 = WA3(I-2)*CC(I,K,4)-WA3(I-1)*CC(I-1,K,4) |
|
./pkg/zonal_filt/fftpack.F |
1468 |
R8ADF4 |
TI2 = CC(I,K,1)+CI3 |
|
./pkg/zonal_filt/fftpack.F |
1469 |
R8ADF4 |
TI3 = CC(I,K,1)-CI3 |
|
./pkg/zonal_filt/fftpack.F |
1470 |
R8ADF4 |
TR2 = CC(I-1,K,1)+CR3 |
|
./pkg/zonal_filt/fftpack.F |
1471 |
R8ADF4 |
TR3 = CC(I-1,K,1)-CR3 |
|
./pkg/zonal_filt/fftpack.F |
1472 |
R8ADF4 |
CH(I-1,1,K) = TR1+TR2 |
|
./pkg/zonal_filt/fftpack.F |
1474 |
R8ADF4 |
CH(I,1,K) = TI1+TI2 |
|
./pkg/zonal_filt/fftpack.F |
1476 |
R8ADF4 |
CH(I-1,3,K) = TI4+TR3 |
|
./pkg/zonal_filt/fftpack.F |
1478 |
R8ADF4 |
CH(I,3,K) = TR4+TI3 |
|
./pkg/zonal_filt/fftpack.F |
1496 |
R8ADF5 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
150 |
RADB5 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
1515 |
R8ADF5 |
DO 102 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
1516 |
R8ADF5 |
IC = IDP2-I |
|
./pkg/zonal_filt/fftpack.F |
1517 |
R8ADF5 |
DR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2) |
|
./pkg/zonal_filt/fftpack.F |
1518 |
R8ADF5 |
DI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2) |
|
./pkg/zonal_filt/fftpack.F |
1519 |
R8ADF5 |
DR3 = WA2(I-2)*CC(I-1,K,3)+WA2(I-1)*CC(I,K,3) |
|
./pkg/zonal_filt/fftpack.F |
1520 |
R8ADF5 |
DI3 = WA2(I-2)*CC(I,K,3)-WA2(I-1)*CC(I-1,K,3) |
|
./pkg/zonal_filt/fftpack.F |
1521 |
R8ADF5 |
DR4 = WA3(I-2)*CC(I-1,K,4)+WA3(I-1)*CC(I,K,4) |
|
./pkg/zonal_filt/fftpack.F |
1522 |
R8ADF5 |
DI4 = WA3(I-2)*CC(I,K,4)-WA3(I-1)*CC(I-1,K,4) |
|
./pkg/zonal_filt/fftpack.F |
1523 |
R8ADF5 |
DR5 = WA4(I-2)*CC(I-1,K,5)+WA4(I-1)*CC(I,K,5) |
|
./pkg/zonal_filt/fftpack.F |
1524 |
R8ADF5 |
DI5 = WA4(I-2)*CC(I,K,5)-WA4(I-1)*CC(I-1,K,5) |
|
./pkg/zonal_filt/fftpack.F |
1533 |
R8ADF5 |
CH(I-1,1,K) = CC(I-1,K,1)+CR2+CR3 |
|
./pkg/zonal_filt/fftpack.F |
1534 |
R8ADF5 |
CH(I,1,K) = CC(I,K,1)+CI2+CI3 |
|
./pkg/zonal_filt/fftpack.F |
1535 |
R8ADF5 |
TR2 = CC(I-1,K,1)+TR11*CR2+TR12*CR3 |
|
./pkg/zonal_filt/fftpack.F |
1536 |
R8ADF5 |
TI2 = CC(I,K,1)+TR11*CI2+TR12*CI3 |
|
./pkg/zonal_filt/fftpack.F |
1537 |
R8ADF5 |
TR3 = CC(I-1,K,1)+TR12*CR2+TR11*CR3 |
|
./pkg/zonal_filt/fftpack.F |
1538 |
R8ADF5 |
TI3 = CC(I,K,1)+TR12*CI2+TR11*CI3 |
|
./pkg/zonal_filt/fftpack.F |
1543 |
R8ADF5 |
CH(I-1,3,K) = TR2+TR5 |
|
./pkg/zonal_filt/fftpack.F |
1545 |
R8ADF5 |
CH(I,3,K) = TI2+TI5 |
|
./pkg/zonal_filt/fftpack.F |
1547 |
R8ADF5 |
CH(I-1,5,K) = TR3+TR4 |
|
./pkg/zonal_filt/fftpack.F |
1549 |
R8ADF5 |
CH(I,5,K) = TI3+TI4 |
|
./pkg/zonal_filt/fftpack.F |
1557 |
R8ADFG |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
1583 |
R8ADFG |
DO 105 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
1586 |
R8ADFG |
CH(I-1,K,J) = WA(IDIJ-1)*C1(I-1,K,J)+WA(IDIJ)*C1(I,K,J) |
|
./pkg/zonal_filt/fftpack.F |
1587 |
R8ADFG |
CH(I,K,J) = WA(IDIJ-1)*C1(I,K,J)-WA(IDIJ)*C1(I-1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
1597 |
R8ADFG |
DO 108 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
1599 |
R8ADFG |
CH(I-1,K,J) = WA(IDIJ-1)*C1(I-1,K,J)+WA(IDIJ)*C1(I,K,J) |
|
./pkg/zonal_filt/fftpack.F |
15 |
RADB2 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
1600 |
R8ADFG |
CH(I,K,J) = WA(IDIJ-1)*C1(I,K,J)-WA(IDIJ)*C1(I-1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
1608 |
R8ADFG |
DO 112 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
1609 |
R8ADFG |
C1(I-1,K,J) = CH(I-1,K,J)+CH(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1610 |
R8ADFG |
C1(I-1,K,JC) = CH(I,K,J)-CH(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1611 |
R8ADFG |
C1(I,K,J) = CH(I,K,J)+CH(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1612 |
R8ADFG |
C1(I,K,JC) = CH(I-1,K,JC)-CH(I-1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
1619 |
R8ADFG |
DO 117 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
1621 |
R8ADFG |
C1(I-1,K,J) = CH(I-1,K,J)+CH(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1622 |
R8ADFG |
C1(I-1,K,JC) = CH(I,K,J)-CH(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1623 |
R8ADFG |
C1(I,K,J) = CH(I,K,J)+CH(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1624 |
R8ADFG |
C1(I,K,JC) = CH(I-1,K,JC)-CH(I-1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
1674 |
R8ADFG |
DO 130 I=1,IDO |
|
./pkg/zonal_filt/fftpack.F |
1675 |
R8ADFG |
CC(I,1,K) = CH(I,K,1) |
|
./pkg/zonal_filt/fftpack.F |
1679 |
R8ADFG |
132 DO 134 I=1,IDO |
|
./pkg/zonal_filt/fftpack.F |
1681 |
R8ADFG |
CC(I,1,K) = CH(I,K,1) |
|
./pkg/zonal_filt/fftpack.F |
1698 |
R8ADFG |
DO 138 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
1699 |
R8ADFG |
IC = IDP2-I |
|
./pkg/zonal_filt/fftpack.F |
1700 |
R8ADFG |
CC(I-1,J2-1,K) = CH(I-1,K,J)+CH(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1701 |
R8ADFG |
CC(IC-1,J2-2,K) = CH(I-1,K,J)-CH(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1702 |
R8ADFG |
CC(I,J2-1,K) = CH(I,K,J)+CH(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1703 |
R8ADFG |
CC(IC,J2-2,K) = CH(I,K,JC)-CH(I,K,J) |
|
./pkg/zonal_filt/fftpack.F |
1711 |
R8ADFG |
DO 143 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
1712 |
R8ADFG |
IC = IDP2-I |
|
./pkg/zonal_filt/fftpack.F |
1714 |
R8ADFG |
CC(I-1,J2-1,K) = CH(I-1,K,J)+CH(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1715 |
R8ADFG |
CC(IC-1,J2-2,K) = CH(I-1,K,J)-CH(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1716 |
R8ADFG |
CC(I,J2-1,K) = CH(I,K,J)+CH(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1717 |
R8ADFG |
CC(IC,J2-2,K) = CH(I,K,JC)-CH(I,K,J) |
|
./pkg/zonal_filt/fftpack.F |
1725 |
R8FFTF1 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
174 |
RADB5 |
DO 102 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
175 |
RADB5 |
IC = IDP2-I |
|
./pkg/zonal_filt/fftpack.F |
176 |
RADB5 |
TI5 = CC(I,3,K)+CC(IC,2,K) |
|
./pkg/zonal_filt/fftpack.F |
1779 |
R8FFTF1 |
DO 112 I=1,N |
|
./pkg/zonal_filt/fftpack.F |
177 |
RADB5 |
TI2 = CC(I,3,K)-CC(IC,2,K) |
|
./pkg/zonal_filt/fftpack.F |
1780 |
R8FFTF1 |
C(I) = CH(I) |
|
./pkg/zonal_filt/fftpack.F |
178 |
RADB5 |
TI4 = CC(I,5,K)+CC(IC,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1793 |
R8FFTI1 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
179 |
RADB5 |
TI3 = CC(I,5,K)-CC(IC,4,K) |
|
./pkg/zonal_filt/fftpack.F |
180 |
RADB5 |
TR5 = CC(I-1,3,K)-CC(IC-1,2,K) |
|
./pkg/zonal_filt/fftpack.F |
1812 |
R8FFTI1 |
DO 106 I=2,NF |
|
./pkg/zonal_filt/fftpack.F |
1813 |
R8FFTI1 |
IB = NF-I+2 |
|
./pkg/zonal_filt/fftpack.F |
181 |
RADB5 |
TR2 = CC(I-1,3,K)+CC(IC-1,2,K) |
|
./pkg/zonal_filt/fftpack.F |
182 |
RADB5 |
TR4 = CC(I-1,5,K)-CC(IC-1,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1834 |
R8FFTI1 |
I = IS |
|
./pkg/zonal_filt/fftpack.F |
1838 |
R8FFTI1 |
I = I+2 |
|
./pkg/zonal_filt/fftpack.F |
183 |
RADB5 |
TR3 = CC(I-1,5,K)+CC(IC-1,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1841 |
R8FFTI1 |
WA(I-1) = COS(ARG) |
|
./pkg/zonal_filt/fftpack.F |
1842 |
R8FFTI1 |
WA(I) = SIN(ARG) |
|
./pkg/zonal_filt/fftpack.F |
184 |
RADB5 |
CH(I-1,K,1) = CC(I-1,1,K)+TR2+TR3 |
|
./pkg/zonal_filt/fftpack.F |
185 |
RADB5 |
CH(I,K,1) = CC(I,1,K)+TI2+TI3 |
|
./pkg/zonal_filt/fftpack.F |
186 |
RADB5 |
CR2 = CC(I-1,1,K)+TR11*TR2+TR12*TR3 |
|
./pkg/zonal_filt/fftpack.F |
187 |
RADB5 |
CI2 = CC(I,1,K)+TR11*TI2+TR12*TI3 |
|
./pkg/zonal_filt/fftpack.F |
188 |
RADB5 |
CR3 = CC(I-1,1,K)+TR12*TR2+TR11*TR3 |
|
./pkg/zonal_filt/fftpack.F |
189 |
RADB5 |
CI3 = CC(I,1,K)+TR12*TI2+TR11*TI3 |
|
./pkg/zonal_filt/fftpack.F |
202 |
RADB5 |
CH(I-1,K,2) = WA1(I-2)*DR2-WA1(I-1)*DI2 |
|
./pkg/zonal_filt/fftpack.F |
203 |
RADB5 |
CH(I,K,2) = WA1(I-2)*DI2+WA1(I-1)*DR2 |
|
./pkg/zonal_filt/fftpack.F |
204 |
RADB5 |
CH(I-1,K,3) = WA2(I-2)*DR3-WA2(I-1)*DI3 |
|
./pkg/zonal_filt/fftpack.F |
205 |
RADB5 |
CH(I,K,3) = WA2(I-2)*DI3+WA2(I-1)*DR3 |
|
./pkg/zonal_filt/fftpack.F |
206 |
RADB5 |
CH(I-1,K,4) = WA3(I-2)*DR4-WA3(I-1)*DI4 |
|
./pkg/zonal_filt/fftpack.F |
207 |
RADB5 |
CH(I,K,4) = WA3(I-2)*DI4+WA3(I-1)*DR4 |
|
./pkg/zonal_filt/fftpack.F |
208 |
RADB5 |
CH(I-1,K,5) = WA4(I-2)*DR5-WA4(I-1)*DI5 |
|
./pkg/zonal_filt/fftpack.F |
209 |
RADB5 |
CH(I,K,5) = WA4(I-2)*DI5+WA4(I-1)*DR5 |
|
./pkg/zonal_filt/fftpack.F |
217 |
RADBG |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
232 |
RADBG |
DO 101 I=1,IDO |
|
./pkg/zonal_filt/fftpack.F |
233 |
RADBG |
CH(I,K,1) = CC(I,1,K) |
|
./pkg/zonal_filt/fftpack.F |
237 |
RADBG |
103 DO 105 I=1,IDO |
|
./pkg/zonal_filt/fftpack.F |
239 |
RADBG |
CH(I,K,1) = CC(I,1,K) |
|
./pkg/zonal_filt/fftpack.F |
255 |
RADBG |
DO 109 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
256 |
RADBG |
IC = IDP2-I |
|
./pkg/zonal_filt/fftpack.F |
257 |
RADBG |
CH(I-1,K,J) = CC(I-1,2*J-1,K)+CC(IC-1,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
258 |
RADBG |
CH(I-1,K,JC) = CC(I-1,2*J-1,K)-CC(IC-1,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
259 |
RADBG |
CH(I,K,J) = CC(I,2*J-1,K)-CC(IC,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
260 |
RADBG |
CH(I,K,JC) = CC(I,2*J-1,K)+CC(IC,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
267 |
RADBG |
DO 114 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
268 |
RADBG |
IC = IDP2-I |
|
./pkg/zonal_filt/fftpack.F |
270 |
RADBG |
CH(I-1,K,J) = CC(I-1,2*J-1,K)+CC(IC-1,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
271 |
RADBG |
CH(I-1,K,JC) = CC(I-1,2*J-1,K)-CC(IC-1,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
272 |
RADBG |
CH(I,K,J) = CC(I,2*J-1,K)-CC(IC,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
273 |
RADBG |
CH(I,K,JC) = CC(I,2*J-1,K)+CC(IC,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
28 |
RADB2 |
DO 103 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
29 |
RADB2 |
IC = IDP2-I |
|
./pkg/zonal_filt/fftpack.F |
30 |
RADB2 |
CH(I-1,K,1) = CC(I-1,1,K)+CC(IC-1,2,K) |
|
./pkg/zonal_filt/fftpack.F |
31 |
RADB2 |
TR2 = CC(I-1,1,K)-CC(IC-1,2,K) |
|
./pkg/zonal_filt/fftpack.F |
320 |
RADBG |
DO 125 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
321 |
RADBG |
CH(I-1,K,J) = C1(I-1,K,J)-C1(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
322 |
RADBG |
CH(I-1,K,JC) = C1(I-1,K,J)+C1(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
323 |
RADBG |
CH(I,K,J) = C1(I,K,J)+C1(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
324 |
RADBG |
CH(I,K,JC) = C1(I,K,J)-C1(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
32 |
RADB2 |
CH(I,K,1) = CC(I,1,K)-CC(IC,2,K) |
|
./pkg/zonal_filt/fftpack.F |
331 |
RADBG |
DO 130 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
333 |
RADBG |
CH(I-1,K,J) = C1(I-1,K,J)-C1(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
334 |
RADBG |
CH(I-1,K,JC) = C1(I-1,K,J)+C1(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
335 |
RADBG |
CH(I,K,J) = C1(I,K,J)+C1(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
336 |
RADBG |
CH(I,K,JC) = C1(I,K,J)-C1(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
33 |
RADB2 |
TI2 = CC(I,1,K)+CC(IC,2,K) |
|
./pkg/zonal_filt/fftpack.F |
34 |
RADB2 |
CH(I-1,K,2) = WA1(I-2)*TR2-WA1(I-1)*TI2 |
|
./pkg/zonal_filt/fftpack.F |
355 |
RADBG |
DO 137 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
358 |
RADBG |
C1(I-1,K,J) = WA(IDIJ-1)*CH(I-1,K,J)-WA(IDIJ)*CH(I,K,J) |
|
./pkg/zonal_filt/fftpack.F |
359 |
RADBG |
C1(I,K,J) = WA(IDIJ-1)*CH(I,K,J)+WA(IDIJ)*CH(I-1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
35 |
RADB2 |
CH(I,K,2) = WA1(I-2)*TI2+WA1(I-1)*TR2 |
|
./pkg/zonal_filt/fftpack.F |
369 |
RADBG |
DO 140 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
371 |
RADBG |
C1(I-1,K,J) = WA(IDIJ-1)*CH(I-1,K,J)-WA(IDIJ)*CH(I,K,J) |
|
./pkg/zonal_filt/fftpack.F |
372 |
RADBG |
C1(I,K,J) = WA(IDIJ-1)*CH(I,K,J)+WA(IDIJ)*CH(I-1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
381 |
RFFTB1 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
436 |
RFFTB1 |
DO 117 I=1,N |
|
./pkg/zonal_filt/fftpack.F |
437 |
RFFTB1 |
C(I) = CH(I) |
|
./pkg/zonal_filt/fftpack.F |
453 |
RADF2 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
464 |
RADF2 |
DO 103 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
465 |
RADF2 |
IC = IDP2-I |
|
./pkg/zonal_filt/fftpack.F |
466 |
RADF2 |
TR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2) |
|
./pkg/zonal_filt/fftpack.F |
467 |
RADF2 |
TI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2) |
|
./pkg/zonal_filt/fftpack.F |
468 |
RADF2 |
CH(I,1,K) = CC(I,K,1)+TI2 |
|
./pkg/zonal_filt/fftpack.F |
469 |
RADF2 |
CH(IC,2,K) = TI2-CC(I,K,1) |
|
./pkg/zonal_filt/fftpack.F |
470 |
RADF2 |
CH(I-1,1,K) = CC(I-1,K,1)+TR2 |
|
./pkg/zonal_filt/fftpack.F |
471 |
RADF2 |
CH(IC-1,2,K) = CC(I-1,K,1)-TR2 |
|
./pkg/zonal_filt/fftpack.F |
484 |
RADF3 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
48 |
RADB3 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
498 |
RADF3 |
DO 102 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
499 |
RADF3 |
IC = IDP2-I |
|
./pkg/zonal_filt/fftpack.F |
500 |
RADF3 |
DR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2) |
|
./pkg/zonal_filt/fftpack.F |
501 |
RADF3 |
DI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2) |
|
./pkg/zonal_filt/fftpack.F |
502 |
RADF3 |
DR3 = WA2(I-2)*CC(I-1,K,3)+WA2(I-1)*CC(I,K,3) |
|
./pkg/zonal_filt/fftpack.F |
503 |
RADF3 |
DI3 = WA2(I-2)*CC(I,K,3)-WA2(I-1)*CC(I-1,K,3) |
|
./pkg/zonal_filt/fftpack.F |
506 |
RADF3 |
CH(I-1,1,K) = CC(I-1,K,1)+CR2 |
|
./pkg/zonal_filt/fftpack.F |
507 |
RADF3 |
CH(I,1,K) = CC(I,K,1)+CI2 |
|
./pkg/zonal_filt/fftpack.F |
508 |
RADF3 |
TR2 = CC(I-1,K,1)+TAUR*CR2 |
|
./pkg/zonal_filt/fftpack.F |
509 |
RADF3 |
TI2 = CC(I,K,1)+TAUR*CI2 |
|
./pkg/zonal_filt/fftpack.F |
512 |
RADF3 |
CH(I-1,3,K) = TR2+TR3 |
|
./pkg/zonal_filt/fftpack.F |
514 |
RADF3 |
CH(I,3,K) = TI2+TI3 |
|
./pkg/zonal_filt/fftpack.F |
523 |
RADF4 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
539 |
RADF4 |
DO 103 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
540 |
RADF4 |
IC = IDP2-I |
|
./pkg/zonal_filt/fftpack.F |
541 |
RADF4 |
CR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2) |
|
./pkg/zonal_filt/fftpack.F |
542 |
RADF4 |
CI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2) |
|
./pkg/zonal_filt/fftpack.F |
543 |
RADF4 |
CR3 = WA2(I-2)*CC(I-1,K,3)+WA2(I-1)*CC(I,K,3) |
|
./pkg/zonal_filt/fftpack.F |
544 |
RADF4 |
CI3 = WA2(I-2)*CC(I,K,3)-WA2(I-1)*CC(I-1,K,3) |
|
./pkg/zonal_filt/fftpack.F |
545 |
RADF4 |
CR4 = WA3(I-2)*CC(I-1,K,4)+WA3(I-1)*CC(I,K,4) |
|
./pkg/zonal_filt/fftpack.F |
546 |
RADF4 |
CI4 = WA3(I-2)*CC(I,K,4)-WA3(I-1)*CC(I-1,K,4) |
|
./pkg/zonal_filt/fftpack.F |
551 |
RADF4 |
TI2 = CC(I,K,1)+CI3 |
|
./pkg/zonal_filt/fftpack.F |
552 |
RADF4 |
TI3 = CC(I,K,1)-CI3 |
|
./pkg/zonal_filt/fftpack.F |
553 |
RADF4 |
TR2 = CC(I-1,K,1)+CR3 |
|
./pkg/zonal_filt/fftpack.F |
554 |
RADF4 |
TR3 = CC(I-1,K,1)-CR3 |
|
./pkg/zonal_filt/fftpack.F |
555 |
RADF4 |
CH(I-1,1,K) = TR1+TR2 |
|
./pkg/zonal_filt/fftpack.F |
557 |
RADF4 |
CH(I,1,K) = TI1+TI2 |
|
./pkg/zonal_filt/fftpack.F |
559 |
RADF4 |
CH(I-1,3,K) = TI4+TR3 |
|
./pkg/zonal_filt/fftpack.F |
561 |
RADF4 |
CH(I,3,K) = TR4+TI3 |
|
./pkg/zonal_filt/fftpack.F |
580 |
RADF5 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
600 |
RADF5 |
DO 102 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
601 |
RADF5 |
IC = IDP2-I |
|
./pkg/zonal_filt/fftpack.F |
602 |
RADF5 |
DR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2) |
|
./pkg/zonal_filt/fftpack.F |
603 |
RADF5 |
DI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2) |
|
./pkg/zonal_filt/fftpack.F |
604 |
RADF5 |
DR3 = WA2(I-2)*CC(I-1,K,3)+WA2(I-1)*CC(I,K,3) |
|
./pkg/zonal_filt/fftpack.F |
605 |
RADF5 |
DI3 = WA2(I-2)*CC(I,K,3)-WA2(I-1)*CC(I-1,K,3) |
|
./pkg/zonal_filt/fftpack.F |
606 |
RADF5 |
DR4 = WA3(I-2)*CC(I-1,K,4)+WA3(I-1)*CC(I,K,4) |
|
./pkg/zonal_filt/fftpack.F |
607 |
RADF5 |
DI4 = WA3(I-2)*CC(I,K,4)-WA3(I-1)*CC(I-1,K,4) |
|
./pkg/zonal_filt/fftpack.F |
608 |
RADF5 |
DR5 = WA4(I-2)*CC(I-1,K,5)+WA4(I-1)*CC(I,K,5) |
|
./pkg/zonal_filt/fftpack.F |
609 |
RADF5 |
DI5 = WA4(I-2)*CC(I,K,5)-WA4(I-1)*CC(I-1,K,5) |
|
./pkg/zonal_filt/fftpack.F |
618 |
RADF5 |
CH(I-1,1,K) = CC(I-1,K,1)+CR2+CR3 |
|
./pkg/zonal_filt/fftpack.F |
619 |
RADF5 |
CH(I,1,K) = CC(I,K,1)+CI2+CI3 |
|
./pkg/zonal_filt/fftpack.F |
620 |
RADF5 |
TR2 = CC(I-1,K,1)+TR11*CR2+TR12*CR3 |
|
./pkg/zonal_filt/fftpack.F |
621 |
RADF5 |
TI2 = CC(I,K,1)+TR11*CI2+TR12*CI3 |
|
./pkg/zonal_filt/fftpack.F |
622 |
RADF5 |
TR3 = CC(I-1,K,1)+TR12*CR2+TR11*CR3 |
|
./pkg/zonal_filt/fftpack.F |
623 |
RADF5 |
TI3 = CC(I,K,1)+TR12*CI2+TR11*CI3 |
|
./pkg/zonal_filt/fftpack.F |
628 |
RADF5 |
CH(I-1,3,K) = TR2+TR5 |
|
./pkg/zonal_filt/fftpack.F |
630 |
RADF5 |
CH(I,3,K) = TI2+TI5 |
|
./pkg/zonal_filt/fftpack.F |
632 |
RADF5 |
CH(I-1,5,K) = TR3+TR4 |
|
./pkg/zonal_filt/fftpack.F |
634 |
RADF5 |
CH(I,5,K) = TI3+TI4 |
|
./pkg/zonal_filt/fftpack.F |
643 |
RADFG |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
64 |
RADB3 |
DO 102 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
65 |
RADB3 |
IC = IDP2-I |
|
./pkg/zonal_filt/fftpack.F |
66 |
RADB3 |
TR2 = CC(I-1,3,K)+CC(IC-1,2,K) |
|
./pkg/zonal_filt/fftpack.F |
670 |
RADFG |
DO 105 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
673 |
RADFG |
CH(I-1,K,J) = WA(IDIJ-1)*C1(I-1,K,J)+WA(IDIJ)*C1(I,K,J) |
|
./pkg/zonal_filt/fftpack.F |
674 |
RADFG |
CH(I,K,J) = WA(IDIJ-1)*C1(I,K,J)-WA(IDIJ)*C1(I-1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
67 |
RADB3 |
CR2 = CC(I-1,1,K)+TAUR*TR2 |
|
./pkg/zonal_filt/fftpack.F |
684 |
RADFG |
DO 108 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
686 |
RADFG |
CH(I-1,K,J) = WA(IDIJ-1)*C1(I-1,K,J)+WA(IDIJ)*C1(I,K,J) |
|
./pkg/zonal_filt/fftpack.F |
687 |
RADFG |
CH(I,K,J) = WA(IDIJ-1)*C1(I,K,J)-WA(IDIJ)*C1(I-1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
68 |
RADB3 |
CH(I-1,K,1) = CC(I-1,1,K)+TR2 |
|
./pkg/zonal_filt/fftpack.F |
695 |
RADFG |
DO 112 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
696 |
RADFG |
C1(I-1,K,J) = CH(I-1,K,J)+CH(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
697 |
RADFG |
C1(I-1,K,JC) = CH(I,K,J)-CH(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
698 |
RADFG |
C1(I,K,J) = CH(I,K,J)+CH(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
699 |
RADFG |
C1(I,K,JC) = CH(I-1,K,JC)-CH(I-1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
69 |
RADB3 |
TI2 = CC(I,3,K)-CC(IC,2,K) |
|
./pkg/zonal_filt/fftpack.F |
706 |
RADFG |
DO 117 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
708 |
RADFG |
C1(I-1,K,J) = CH(I-1,K,J)+CH(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
709 |
RADFG |
C1(I-1,K,JC) = CH(I,K,J)-CH(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
70 |
RADB3 |
CI2 = CC(I,1,K)+TAUR*TI2 |
|
./pkg/zonal_filt/fftpack.F |
710 |
RADFG |
C1(I,K,J) = CH(I,K,J)+CH(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
711 |
RADFG |
C1(I,K,JC) = CH(I-1,K,JC)-CH(I-1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
71 |
RADB3 |
CH(I,K,1) = CC(I,1,K)+TI2 |
|
./pkg/zonal_filt/fftpack.F |
72 |
RADB3 |
CR3 = TAUI*(CC(I-1,3,K)-CC(IC-1,2,K)) |
|
./pkg/zonal_filt/fftpack.F |
73 |
RADB3 |
CI3 = TAUI*(CC(I,3,K)+CC(IC,2,K)) |
|
./pkg/zonal_filt/fftpack.F |
761 |
RADFG |
DO 130 I=1,IDO |
|
./pkg/zonal_filt/fftpack.F |
762 |
RADFG |
CC(I,1,K) = CH(I,K,1) |
|
./pkg/zonal_filt/fftpack.F |
766 |
RADFG |
132 DO 134 I=1,IDO |
|
./pkg/zonal_filt/fftpack.F |
768 |
RADFG |
CC(I,1,K) = CH(I,K,1) |
|
./pkg/zonal_filt/fftpack.F |
785 |
RADFG |
DO 138 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
786 |
RADFG |
IC = IDP2-I |
|
./pkg/zonal_filt/fftpack.F |
787 |
RADFG |
CC(I-1,J2-1,K) = CH(I-1,K,J)+CH(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
788 |
RADFG |
CC(IC-1,J2-2,K) = CH(I-1,K,J)-CH(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
789 |
RADFG |
CC(I,J2-1,K) = CH(I,K,J)+CH(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
78 |
RADB3 |
CH(I-1,K,2) = WA1(I-2)*DR2-WA1(I-1)*DI2 |
|
./pkg/zonal_filt/fftpack.F |
790 |
RADFG |
CC(IC,J2-2,K) = CH(I,K,JC)-CH(I,K,J) |
|
./pkg/zonal_filt/fftpack.F |
798 |
RADFG |
DO 143 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
799 |
RADFG |
IC = IDP2-I |
|
./pkg/zonal_filt/fftpack.F |
79 |
RADB3 |
CH(I,K,2) = WA1(I-2)*DI2+WA1(I-1)*DR2 |
|
./pkg/zonal_filt/fftpack.F |
801 |
RADFG |
CC(I-1,J2-1,K) = CH(I-1,K,J)+CH(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
802 |
RADFG |
CC(IC-1,J2-2,K) = CH(I-1,K,J)-CH(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
803 |
RADFG |
CC(I,J2-1,K) = CH(I,K,J)+CH(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
804 |
RADFG |
CC(IC,J2-2,K) = CH(I,K,JC)-CH(I,K,J) |
|
./pkg/zonal_filt/fftpack.F |
80 |
RADB3 |
CH(I-1,K,3) = WA2(I-2)*DR3-WA2(I-1)*DI3 |
|
./pkg/zonal_filt/fftpack.F |
813 |
RFFTF1 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
81 |
RADB3 |
CH(I,K,3) = WA2(I-2)*DI3+WA2(I-1)*DR3 |
|
./pkg/zonal_filt/fftpack.F |
868 |
RFFTF1 |
DO 112 I=1,N |
|
./pkg/zonal_filt/fftpack.F |
869 |
RFFTF1 |
C(I) = CH(I) |
|
./pkg/zonal_filt/fftpack.F |
886 |
RFFTI1 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
89 |
RADB4 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
906 |
RFFTI1 |
DO 106 I=2,NF |
|
./pkg/zonal_filt/fftpack.F |
907 |
RFFTI1 |
IB = NF-I+2 |
|
./pkg/zonal_filt/fftpack.F |
928 |
RFFTI1 |
I = IS |
|
./pkg/zonal_filt/fftpack.F |
932 |
RFFTI1 |
I = I+2 |
|
./pkg/zonal_filt/fftpack.F |
935 |
RFFTI1 |
WA(I-1) = COS(ARG) |
|
./pkg/zonal_filt/fftpack.F |
936 |
RFFTI1 |
WA(I) = SIN(ARG) |
|
./pkg/zonal_filt/fftpack.F |
953 |
R8ADB2 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
963 |
R8ADB2 |
DO 103 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
964 |
R8ADB2 |
IC = IDP2-I |
|
./pkg/zonal_filt/fftpack.F |
965 |
R8ADB2 |
CH(I-1,K,1) = CC(I-1,1,K)+CC(IC-1,2,K) |
|
./pkg/zonal_filt/fftpack.F |
966 |
R8ADB2 |
TR2 = CC(I-1,1,K)-CC(IC-1,2,K) |
|
./pkg/zonal_filt/fftpack.F |
967 |
R8ADB2 |
CH(I,K,1) = CC(I,1,K)-CC(IC,2,K) |
|
./pkg/zonal_filt/fftpack.F |
968 |
R8ADB2 |
TI2 = CC(I,1,K)+CC(IC,2,K) |
|
./pkg/zonal_filt/fftpack.F |
969 |
R8ADB2 |
CH(I-1,K,2) = WA1(I-2)*TR2-WA1(I-1)*TI2 |
|
./pkg/zonal_filt/fftpack.F |
970 |
R8ADB2 |
CH(I,K,2) = WA1(I-2)*TI2+WA1(I-1)*TR2 |
|
./pkg/zonal_filt/fftpack.F |
982 |
R8ADB3 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
997 |
R8ADB3 |
DO 102 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
998 |
R8ADB3 |
IC = IDP2-I |
|
./pkg/zonal_filt/fftpack.F |
999 |
R8ADB3 |
TR2 = CC(I-1,3,K)+CC(IC-1,2,K) |
|
./pkg/zonal_filt/zonal_filt_init.F |
87 |
ZONAL_FILT_INIT |
ampFactor(2*i,j,bi,bj) = ampfact( yC(1,j,bi,bj) , I ) |
|
./pkg/zonal_filt/zonal_filt_init.F |
89 |
ZONAL_FILT_INIT |
ampFactor(2*I+1,j,bi,bj) = ampFactor(2*i,j,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_init.F |
90 |
ZONAL_FILT_INIT |
ampFactorV(2*i,j,bi,bj) = ampfact( yG(1,j,bi,bj) , I ) |
|
./pkg/zonal_filt/zonal_filt_init.F |
92 |
ZONAL_FILT_INIT |
ampFactorV(2*I+1,j,bi,bj) = ampFactorV(2*i,j,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
41 |
ZONAL_FILT_NOFILL |
INTEGER I, J, K |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
48 |
ZONAL_FILT_NOFILL |
phi(I) = field(i,j,k,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
80 |
ZONAL_FILT_NOFILL |
field(i,j,k,bi,bj) = phi(I) |
|
./pkg/zonal_filt/zonal_filt_postsmooth.F |
43 |
ZONAL_FILT_POSTSMOOTH |
INTEGER I |
|
./pkg/zonal_filt/zonal_filt_postsmooth.F |
47 |
ZONAL_FILT_POSTSMOOTH |
DO I=1,lField |
|
./pkg/zonal_filt/zonal_filt_postsmooth.F |
48 |
ZONAL_FILT_POSTSMOOTH |
IF ( holeMask(I) .NE. 0. ) THEN |
|
./pkg/zonal_filt/zonal_filt_postsmooth.F |
49 |
ZONAL_FILT_POSTSMOOTH |
field(I) = field(I) + avgField |
|
./pkg/zonal_filt/zonal_filt_postsmooth.F |
51 |
ZONAL_FILT_POSTSMOOTH |
field(I) = 0. |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
104 |
ZONAL_FILT_PRESMOOTH |
DO I=1,lField |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
105 |
ZONAL_FILT_PRESMOOTH |
IF ( holeMask(I) .NE. 0. ) THEN |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
107 |
ZONAL_FILT_PRESMOOTH |
avgField = avgField+field(I) |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
120 |
ZONAL_FILT_PRESMOOTH |
DO I=1,lField |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
121 |
ZONAL_FILT_PRESMOOTH |
IF ( holeMask(I) .EQ. 0. ) THEN |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
123 |
ZONAL_FILT_PRESMOOTH |
hLo (I) = lastGood |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
124 |
ZONAL_FILT_PRESMOOTH |
hBase(I) = lastGood |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
127 |
ZONAL_FILT_PRESMOOTH |
hLo(I) = 0 |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
128 |
ZONAL_FILT_PRESMOOTH |
hBase(I) = 0 |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
129 |
ZONAL_FILT_PRESMOOTH |
lastGood = I |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
130 |
ZONAL_FILT_PRESMOOTH |
field(I) = field(I)-avgField |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
133 |
ZONAL_FILT_PRESMOOTH |
DO I=1,lField |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
134 |
ZONAL_FILT_PRESMOOTH |
IF ( hLo(I) .EQ. -1 ) THEN |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
135 |
ZONAL_FILT_PRESMOOTH |
hLo(I) = lastGood |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
136 |
ZONAL_FILT_PRESMOOTH |
hBase(I) = lastGood-lField |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
142 |
ZONAL_FILT_PRESMOOTH |
DO I=lField,1,-1 |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
143 |
ZONAL_FILT_PRESMOOTH |
IF ( holeMask(I) .EQ. 0. ) THEN |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
145 |
ZONAL_FILT_PRESMOOTH |
hHi(I) = lastGood |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
146 |
ZONAL_FILT_PRESMOOTH |
hHead(I) = lastGood |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
149 |
ZONAL_FILT_PRESMOOTH |
hHi(I) = 0 |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
150 |
ZONAL_FILT_PRESMOOTH |
lastGood = I |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
153 |
ZONAL_FILT_PRESMOOTH |
DO I=lField,1,-1 |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
154 |
ZONAL_FILT_PRESMOOTH |
IF ( hHi(I) .EQ. -1 ) THEN |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
155 |
ZONAL_FILT_PRESMOOTH |
hHi(I) = lastGood |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
156 |
ZONAL_FILT_PRESMOOTH |
hHead(I) = lastGood+lField |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
170 |
ZONAL_FILT_PRESMOOTH |
DO I=1,lField |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
171 |
ZONAL_FILT_PRESMOOTH |
IF ( holeMask(I) .EQ. 0. ) THEN |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
173 |
ZONAL_FILT_PRESMOOTH |
iLo = hLo(I) |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
174 |
ZONAL_FILT_PRESMOOTH |
iHi = hHi(I) |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
175 |
ZONAL_FILT_PRESMOOTH |
dist = I-hBase(I) |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
176 |
ZONAL_FILT_PRESMOOTH |
len = hHead(I) - hBase(I) |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
186 |
ZONAL_FILT_PRESMOOTH |
field(I) = field(iLo) |
|
./pkg/zonal_filt/zonal_filt_presmooth.F |
85 |
ZONAL_FILT_PRESMOOTH |
INTEGER I, iLo, iHi |
|
./eesupp/src/barrier.F |
111 |
BARRIER |
INTEGER I |
|
./eesupp/src/barrier.F |
161 |
BARRIER |
DO I=1,nThreads |
|
./eesupp/src/barrier.F |
162 |
BARRIER |
if ( key1(1,I) .EQ. VALID ) nDone = nDone+1 |
|
./eesupp/src/barrier.F |
207 |
BARRIER |
DO I=1,nThreads |
|
./eesupp/src/barrier.F |
208 |
BARRIER |
if ( key2(1,I) .EQ. VALID ) nDone = nDone+1 |
|
./eesupp/src/barrier.F |
243 |
BARRIER |
DO I=1,nThreads |
|
./eesupp/src/barrier.F |
244 |
BARRIER |
if ( key3(1,I) .EQ. VALID ) nDone = nDone+1 |
|
./eesupp/src/barrier.F |
32 |
BARRIER_INIT |
INTEGER I |
|
./eesupp/src/barrier.F |
35 |
BARRIER_INIT |
DO I=1,nThreads |
|
./eesupp/src/barrier.F |
36 |
BARRIER_INIT |
key1(1,I) = INVALID |
|
./eesupp/src/barrier.F |
37 |
BARRIER_INIT |
key2(1,I) = INVALID |
|
./eesupp/src/barrier.F |
38 |
BARRIER_INIT |
key3(1,I) = INVALID |
|
./eesupp/src/barrier.F |
42 |
BARRIER_INIT |
bCount(I) = 0 |
|
./eesupp/src/barrier.F |
43 |
BARRIER_INIT |
masterSet(I) = 0 |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
100 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = rhoConst |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
109 |
INI_LINEAR_PHISURF |
DO I=1-Olx,sNx+Olx |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
110 |
INI_LINEAR_PHISURF |
IF ( Ro_surf(I,J,bi,bj).GT.0. _d 0 |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
111 |
INI_LINEAR_PHISURF |
& .AND. ksurfC(I,J,bi,bj).LE.Nr ) THEN |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
112 |
INI_LINEAR_PHISURF |
pLoc = Ro_surf(I,J,bi,bj) |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
114 |
INI_LINEAR_PHISURF |
I tRef(ksurfC(I,J,bi,bj)), |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
115 |
INI_LINEAR_PHISURF |
I sRef(ksurfC(I,J,bi,bj)), |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
119 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 0. _d 0 |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
121 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 1. _d 0/rhoLoc |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
123 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = rhoLoc |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
125 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 0. _d 0 |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
126 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 0. _d 0 |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
138 |
INI_LINEAR_PHISURF |
DO I=1-Olx,sNx+Olx |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
139 |
INI_LINEAR_PHISURF |
IF ( Ro_surf(I,J,bi,bj).GT.0. _d 0 |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
140 |
INI_LINEAR_PHISURF |
& .AND. ksurfC(I,J,bi,bj).LE.Nr ) THEN |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
142 |
INI_LINEAR_PHISURF |
& (Ro_surf(I,J,bi,bj)/atm_Po)**(atm_kappa-1. _d 0) |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
143 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = dPIdp*tRef(ksurfC(I,J,bi,bj)) |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
144 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 1. _d 0 / Bo_surf(I,J,bi,bj) |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
146 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 0. |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
147 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 0. |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
181 |
INI_LINEAR_PHISURF |
DO I=1-Olx,sNx+Olx |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
182 |
INI_LINEAR_PHISURF |
phi0surf(I,J,bi,bj) = 0. |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
48 |
INI_LINEAR_PHISURF |
INTEGER I, J, K |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
57 |
INI_LINEAR_PHISURF |
DO I=1-Olx,sNx+Olx |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
58 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 0. _d 0 |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
59 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 0. _d 0 |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
84 |
INI_LINEAR_PHISURF |
DO I=1-Olx,sNx+Olx |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
85 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = gBaro |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
86 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 1. _d 0 / gBaro |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
96 |
INI_LINEAR_PHISURF |
DO I=1-Olx,sNx+Olx |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
99 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = recip_rhoConst |
|
./verification/adjustment.cs-32x32x1/code_min/main.F |
111 |
NO PROCEDURE |
INTEGER I |
|
./verification/adjustment.cs-32x32x1/code_min/main.F |
165 |
NO PROCEDURE |
DO I=1,nThreads |
|
./verification/adjustment.cs-32x32x1/code_min/main.F |
167 |
NO PROCEDURE |
IF ( OMP_GET_THREAD_NUM() .EQ. I-1 ) THEN |
|
./verification/adjustment.cs-32x32x1/code_min/main.F |
169 |
NO PROCEDURE |
myThid = I |
|
./model/src/ini_dynvars.F |
39 |
INI_DYNVARS |
INTEGER I, J, K |
|
./model/src/ini_dynvars.F |
49 |
INI_DYNVARS |
DO I=1-Olx,sNx+Olx |
|
./model/src/ini_dynvars.F |
51 |
INI_DYNVARS |
uVel(I,J,K,bi,bj)=0. _d 0 |
|
./model/src/ini_dynvars.F |
52 |
INI_DYNVARS |
vVel(I,J,K,bi,bj)=0. _d 0 |
|
./model/src/ini_dynvars.F |
53 |
INI_DYNVARS |
wVel(I,J,K,bi,bj)=0. _d 0 |
|
./model/src/ini_dynvars.F |
54 |
INI_DYNVARS |
theta(I,J,K,bi,bj)=0. _d 0 |
|
./model/src/ini_dynvars.F |
55 |
INI_DYNVARS |
salt(I,J,K,bi,bj)=0. _d 0 |
|
./model/src/ini_dynvars.F |
57 |
INI_DYNVARS |
gU(I,J,K,bi,bj)=0. _d 0 |
|
./model/src/ini_dynvars.F |
58 |
INI_DYNVARS |
gV(I,J,K,bi,bj)=0. _d 0 |
|
./model/src/ini_dynvars.F |
59 |
INI_DYNVARS |
gT(I,J,K,bi,bj)=0. _d 0 |
|
./model/src/ini_dynvars.F |
60 |
INI_DYNVARS |
gS(I,J,K,bi,bj)=0. _d 0 |
|
./model/src/ini_dynvars.F |
62 |
INI_DYNVARS |
guNm(I,J,K,bi,bj,1)=0. _d 0 |
|
./model/src/ini_dynvars.F |
63 |
INI_DYNVARS |
gvNm(I,J,K,bi,bj,1)=0. _d 0 |
|
./model/src/ini_dynvars.F |
64 |
INI_DYNVARS |
gtNm(I,J,K,bi,bj,1)=0. _d 0 |
|
./model/src/ini_dynvars.F |
65 |
INI_DYNVARS |
gsNm(I,J,K,bi,bj,1)=0. _d 0 |
|
./model/src/ini_dynvars.F |
66 |
INI_DYNVARS |
guNm(I,J,K,bi,bj,2)=0. _d 0 |
|
./model/src/ini_dynvars.F |
67 |
INI_DYNVARS |
gvNm(I,J,K,bi,bj,2)=0. _d 0 |
|
./model/src/ini_dynvars.F |
68 |
INI_DYNVARS |
gtNm(I,J,K,bi,bj,2)=0. _d 0 |
|
./model/src/ini_dynvars.F |
69 |
INI_DYNVARS |
gsNm(I,J,K,bi,bj,2)=0. _d 0 |
|
./model/src/ini_dynvars.F |
71 |
INI_DYNVARS |
guNm1(I,J,K,bi,bj) =0. _d 0 |
|
./model/src/ini_dynvars.F |
72 |
INI_DYNVARS |
gvNm1(I,J,K,bi,bj) =0. _d 0 |
|
./model/src/ini_dynvars.F |
73 |
INI_DYNVARS |
gtNm1(I,J,K,bi,bj) =0. _d 0 |
|
./model/src/ini_dynvars.F |
74 |
INI_DYNVARS |
gsNm1(I,J,K,bi,bj) =0. _d 0 |
|
./model/src/ini_dynvars.F |
76 |
INI_DYNVARS |
totPhiHyd(I,J,K,bi,bj)=0. _d 0 |
|
./model/src/ini_dynvars.F |
77 |
INI_DYNVARS |
rhoInSitu(I,J,K,bi,bj)=0. _d 0 |
|
./model/src/ini_dynvars.F |
80 |
INI_DYNVARS |
addMass(I,J,K,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
88 |
INI_DYNVARS |
DO I=1-Olx,sNx+Olx |
|
./model/src/ini_dynvars.F |
89 |
INI_DYNVARS |
etaN(I,J,bi,bj)=0. _d 0 |
|
./model/src/ini_dynvars.F |
90 |
INI_DYNVARS |
etaH(I,J,bi,bj)=0. _d 0 |
|
./model/src/ini_dynvars.F |
91 |
INI_DYNVARS |
phiHydLow(I,J,bi,bj)=0. _d 0 |
|
./model/src/ini_dynvars.F |
92 |
INI_DYNVARS |
hMixLayer(I,J,bi,bj)=0. _d 0 |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
31 |
MOM_VI_HFACZ_DISS |
INTEGER I,J |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
30 |
MOM_VI_MASK_VORT3 |
INTEGER I,J |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
56 |
COST_TEST |
DO I=1,sNx |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
57 |
COST_TEST |
ig = myXGlobalLo-1+(bi-1)*sNx+I |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
60 |
COST_TEST |
IF ( maskW(I,J,K,BI,BJ) .NE. 0. ) THEN |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
62 |
COST_TEST |
& + uVel(I,J,K,BI,BJ) |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
63 |
COST_TEST |
& *_hFacW(I,J,K,BI,BJ) |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
64 |
COST_TEST |
& *dyG(I,J,BI,BJ)*drF(K) |
|
./eesupp/src/check_threads.F |
54 |
CHECK_THREADS |
INTEGER I |
|
./eesupp/src/check_threads.F |
67 |
CHECK_THREADS |
DO I = 1, nThreads |
|
./eesupp/src/check_threads.F |
68 |
CHECK_THREADS |
IF ( threadIsRunning(I) ) |
|
./model/src/ini_hfac.F |
34 |
INI_HFAC |
INTEGER I, J, K |
|
./model/src/ini_hfac.F |
42 |
INI_HFAC |
DO I=1-Olx,sNx+Olx |
|
./model/src/ini_hfac.F |
43 |
INI_HFAC |
hFacC(I,J,K,bi,bj) = 0. _d 0 |
|
./model/src/ini_hfac.F |
44 |
INI_HFAC |
hFacS(I,J,K,bi,bj) = 0. _d 0 |
|
./model/src/ini_hfac.F |
45 |
INI_HFAC |
hFacW(I,J,K,bi,bj) = 0. _d 0 |
|
./model/src/ini_hfac.F |
46 |
INI_HFAC |
maskC(I,J,K,bi,bj) = 0. _d 0 |
|
./model/src/ini_hfac.F |
47 |
INI_HFAC |
maskS(I,J,K,bi,bj) = 0. _d 0 |
|
./model/src/ini_hfac.F |
48 |
INI_HFAC |
maskW(I,J,K,bi,bj) = 0. _d 0 |
|
./verification/dome/code/obcs_calc.F |
149 |
OBCS_CALC |
DO I=1-Olx,sNx+Olx |
|
./verification/dome/code/obcs_calc.F |
151 |
OBCS_CALC |
x=(xC(I,1,bi,bj)-Xcenter)/Lrho +Width/2. _d 0 |
|
./verification/dome/code/obcs_calc.F |
174 |
OBCS_CALC |
OBNv(I,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
182 |
OBCS_CALC |
OBNu(I,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
184 |
OBCS_CALC |
OBNt(I,K,bi,bj) = tRef(K) |
|
./verification/dome/code/obcs_calc.F |
186 |
OBCS_CALC |
OBNt(I,K,bi,bj) = -dTemp*(1. _d 0 - Fz) |
|
./verification/dome/code/obcs_calc.F |
194 |
OBCS_CALC |
OBNs(I,K,bi,bj)=sRef(K) + 1. _d 0*(1. _d 0 - Fz) |
|
./verification/dome/code/obcs_calc.F |
196 |
OBCS_CALC |
OBNw(I,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
210 |
OBCS_CALC |
DO I=1-Olx,sNx+Olx |
|
./verification/dome/code/obcs_calc.F |
211 |
OBCS_CALC |
OBSu(I,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
212 |
OBCS_CALC |
OBSv(I,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
213 |
OBCS_CALC |
OBSt(I,K,bi,bj)=tRef(K) |
|
./verification/dome/code/obcs_calc.F |
214 |
OBCS_CALC |
OBSs(I,K,bi,bj)=sRef(K) |
|
./verification/dome/code/obcs_calc.F |
216 |
OBCS_CALC |
OBSw(I,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
40 |
OBCS_CALC |
INTEGER I, J ,K |
|
./model/src/ini_linear_phisurf.F |
146 |
INI_LINEAR_PHISURF |
DO I=1-Olx,sNx+Olx |
|
./model/src/ini_linear_phisurf.F |
147 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = gBaro |
|
./model/src/ini_linear_phisurf.F |
148 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 1. _d 0 / gBaro |
|
./model/src/ini_linear_phisurf.F |
158 |
INI_LINEAR_PHISURF |
DO I=1-Olx,sNx+Olx |
|
./model/src/ini_linear_phisurf.F |
161 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = recip_rhoConst |
|
./model/src/ini_linear_phisurf.F |
162 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = rhoConst |
|
./model/src/ini_linear_phisurf.F |
171 |
INI_LINEAR_PHISURF |
DO I=1-Olx,sNx+Olx |
|
./model/src/ini_linear_phisurf.F |
172 |
INI_LINEAR_PHISURF |
IF ( Ro_surf(I,J,bi,bj).GT.0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
173 |
INI_LINEAR_PHISURF |
& .AND. ksurfC(I,J,bi,bj).LE.Nr ) THEN |
|
./model/src/ini_linear_phisurf.F |
174 |
INI_LINEAR_PHISURF |
k = ksurfC(I,J,bi,bj) |
|
./model/src/ini_linear_phisurf.F |
175 |
INI_LINEAR_PHISURF |
pLoc = Ro_surf(I,J,bi,bj) |
|
./model/src/ini_linear_phisurf.F |
180 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
182 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 1. _d 0/rhoLoc |
|
./model/src/ini_linear_phisurf.F |
184 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = rhoLoc |
|
./model/src/ini_linear_phisurf.F |
186 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
187 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
199 |
INI_LINEAR_PHISURF |
DO I=1-Olx,sNx+Olx |
|
./model/src/ini_linear_phisurf.F |
200 |
INI_LINEAR_PHISURF |
IF ( Ro_surf(I,J,bi,bj).GT.0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
201 |
INI_LINEAR_PHISURF |
& .AND. ksurfC(I,J,bi,bj).LE.Nr ) THEN |
|
./model/src/ini_linear_phisurf.F |
203 |
INI_LINEAR_PHISURF |
& (Ro_surf(I,J,bi,bj)/atm_Po)**(atm_kappa-1. _d 0) |
|
./model/src/ini_linear_phisurf.F |
204 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = dPIdp*tRef(ksurfC(I,J,bi,bj)) |
|
./model/src/ini_linear_phisurf.F |
205 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 1. _d 0 / Bo_surf(I,J,bi,bj) |
|
./model/src/ini_linear_phisurf.F |
207 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 0. |
|
./model/src/ini_linear_phisurf.F |
208 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 0. |
|
./model/src/ini_linear_phisurf.F |
240 |
INI_LINEAR_PHISURF |
DO I=1-Olx,sNx+Olx |
|
./model/src/ini_linear_phisurf.F |
241 |
INI_LINEAR_PHISURF |
phi0surf(I,J,bi,bj) = 0. |
|
./model/src/ini_linear_phisurf.F |
58 |
INI_LINEAR_PHISURF |
INTEGER I, J, K |
|
./model/src/ini_linear_phisurf.F |
68 |
INI_LINEAR_PHISURF |
DO I=1-Olx,sNx+Olx |
|
./model/src/ini_linear_phisurf.F |
69 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
70 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 0. _d 0 |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
106 |
INI_SALT |
DO I=1,sNx |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
110 |
INI_SALT |
salt(I,J,K,bi,bj) = rhum(i,j,k,bi,bj) * qstar(i,j,k,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
127 |
INI_SALT |
DO I=1,sNx |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
128 |
INI_SALT |
IF (hFacC(I,J,K,bi,bj).EQ.0) salt(I,J,K,bi,bj) = 0. |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
129 |
INI_SALT |
IF (hFacC(I,J,K,bi,bj).NE.0.AND.salt(I,J,K,bi,bj).EQ.0. |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
46 |
INI_SALT |
INTEGER I, J, K, localWarnings |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
75 |
INI_SALT |
DO I=1,sNx |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
76 |
INI_SALT |
temperature(I,J,K,bi,bj) = theta(I,J,K,bi,bj) * pkappa(K) |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
88 |
INI_SALT |
DO I=1-Olx,sNx+Olx |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
89 |
INI_SALT |
salt(I,J,K,bi,bj) = sRef(K) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
182 |
DO_FIZHI |
term1=60. _d 0*(sin(lats(I,J,bi,bj)*deg2rad)**2) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
185 |
DO_FIZHI |
& *(cos(lats(I,J,bi,bj)*deg2rad)**2) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
192 |
DO_FIZHI |
& *COS((lats(I,J,bi,bj)*deg2rad))**4 |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
194 |
DO_FIZHI |
dthphy(i,j,L,bi,bj)=- kT*( thphy(I,J,L,bi,bj)-thetaEq ) |
|
./eesupp/src/comm_stats.F |
118 |
COMM_STATS |
DO I=1,nThreads |
|
./eesupp/src/comm_stats.F |
120 |
COMM_STATS |
& '//',' o Thread number: ',I |
|
./eesupp/src/comm_stats.F |
124 |
COMM_STATS |
& '//',' No. barriers =',BAR2_barrierCount(1,I) |
|
./eesupp/src/comm_stats.F |
128 |
COMM_STATS |
& '//',' Max. barrier spins =',BAR2_spinsMax(1,I) |
|
./eesupp/src/comm_stats.F |
132 |
COMM_STATS |
& '//',' Min. barrier spins =',BAR2_spinsMin(1,I) |
|
./eesupp/src/comm_stats.F |
136 |
COMM_STATS |
& '//',' Total barrier spins =',BAR2_spinsCount(1,I) |
|
./eesupp/src/comm_stats.F |
139 |
COMM_STATS |
IF ( FLOAT(BAR2_spinsCount(1,I)) .NE. 0. ) THEN |
|
./eesupp/src/comm_stats.F |
142 |
COMM_STATS |
& FLOAT(BAR2_spinsCount(1,I))/FLOAT(BAR2_barrierCount(1,I)) |
|
./eesupp/src/comm_stats.F |
30 |
COMM_STATS |
INTEGER bi, bj, I |
|
./model/src/ini_psurf.F |
47 |
INI_PSURF |
INTEGER I, J |
|
./model/src/ini_psurf.F |
54 |
INI_PSURF |
DO I=1-Olx,sNx+Olx |
|
./model/src/ini_psurf.F |
55 |
INI_PSURF |
etaN(I,J,bi,bj) = 0. _d 0 |
|
./model/src/ini_psurf.F |
72 |
INI_PSURF |
DO I=1-Olx,sNx+Olx |
|
./model/src/ini_psurf.F |
73 |
INI_PSURF |
etaNm1(I,J,bi,bj) = etaN(I,J,bi,bj) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
100 |
INI_THETA |
DO I=1-Olx,sNx+Olx |
|
./verification/hs94.1x64x5/code/ini_theta.F |
101 |
INI_THETA |
IF (maskC(I,J,K,bi,bj).EQ.0.) theta(I,J,K,bi,bj) = 0. |
|
./verification/hs94.1x64x5/code/ini_theta.F |
106 |
INI_THETA |
DO I=1,sNx |
|
./verification/hs94.1x64x5/code/ini_theta.F |
107 |
INI_THETA |
IF ( maskC(I,J,K,bi,bj).NE.0. |
|
./verification/hs94.1x64x5/code/ini_theta.F |
108 |
INI_THETA |
& .AND. theta(I,J,K,bi,bj).EQ.0. ) THEN |
|
./verification/hs94.1x64x5/code/ini_theta.F |
52 |
INI_THETA |
INTEGER I, J, K, localWarnings |
|
./verification/hs94.1x64x5/code/ini_theta.F |
68 |
INI_THETA |
DO I=1,sNx |
|
./verification/hs94.1x64x5/code/ini_theta.F |
69 |
INI_THETA |
term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
71 |
INI_THETA |
& *(cos(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
73 |
INI_THETA |
theta(I,J,K,bi,bj) = MAX( thetaLim, thetaEq ) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
100 |
INI_THETA |
DO I=1-Olx,sNx+Olx |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
101 |
INI_THETA |
IF (maskC(I,J,K,bi,bj).EQ.0.) theta(I,J,K,bi,bj) = 0. |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
106 |
INI_THETA |
DO I=1,sNx |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
107 |
INI_THETA |
IF ( maskC(I,J,K,bi,bj).NE.0. |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
108 |
INI_THETA |
& .AND. theta(I,J,K,bi,bj).EQ.0. ) THEN |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
52 |
INI_THETA |
INTEGER I, J, K, localWarnings |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
68 |
INI_THETA |
DO I=1,sNx |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
69 |
INI_THETA |
term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
71 |
INI_THETA |
& *(cos(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
73 |
INI_THETA |
theta(I,J,K,bi,bj) = MAX( thetaLim, thetaEq ) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
100 |
INI_THETA |
DO I=1-Olx,sNx+Olx |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
101 |
INI_THETA |
IF (maskC(I,J,K,bi,bj).EQ.0.) theta(I,J,K,bi,bj) = 0. |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
106 |
INI_THETA |
DO I=1,sNx |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
107 |
INI_THETA |
IF ( maskC(I,J,K,bi,bj).NE.0. |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
108 |
INI_THETA |
& .AND. theta(I,J,K,bi,bj).EQ.0. ) THEN |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
52 |
INI_THETA |
INTEGER I, J, K, localWarnings |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
68 |
INI_THETA |
DO I=1,sNx |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
69 |
INI_THETA |
term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
71 |
INI_THETA |
& *(cos(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
73 |
INI_THETA |
theta(I,J,K,bi,bj) = MAX( thetaLim, thetaEq ) |
|
./verification/internal_wave/code/obcs_calc.F |
158 |
OBCS_CALC |
DO I=1-Olx,sNx+Olx |
|
./verification/internal_wave/code/obcs_calc.F |
159 |
OBCS_CALC |
OBNv(I,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
160 |
OBCS_CALC |
OBNu(I,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
161 |
OBCS_CALC |
OBNt(I,K,bi,bj)=tRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
162 |
OBCS_CALC |
OBNs(I,K,bi,bj)=sRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
164 |
OBCS_CALC |
OBNw(I,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
178 |
OBCS_CALC |
DO I=1-Olx,sNx+Olx |
|
./verification/internal_wave/code/obcs_calc.F |
179 |
OBCS_CALC |
OBSu(I,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
180 |
OBCS_CALC |
OBSv(I,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
181 |
OBCS_CALC |
OBSt(I,K,bi,bj)=tRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
182 |
OBCS_CALC |
OBSs(I,K,bi,bj)=sRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
184 |
OBCS_CALC |
OBSw(I,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
39 |
OBCS_CALC |
INTEGER I, J ,K |
|
./model/src/integr_continuity.F |
148 |
INTEGR_CONTINUITY |
ks = ksurfC(I,J,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
368 |
EXTERNAL_FORCING_T |
iG = myXGlobalLo-1+(bi-1)*sNx+I |
|
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
35 |
INI_PSURF |
INTEGER I, J |
|
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
44 |
INI_PSURF |
DO I=1-Olx,sNx+Olx |
|
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
45 |
INI_PSURF |
etaN(I,J,bi,bj) = 0. +fac*(fCori(i,j,bi,bj)**2) |
|
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
64 |
INI_PSURF |
DO I=1-Olx,sNx+Olx |
|
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
65 |
INI_PSURF |
etaNm1(I,J,bi,bj) = etaN(I,J,bi,bj) |
|
./eesupp/src/eeboot.F |
54 |
EEBOOT |
INTEGER I |
|
./eesupp/src/eeboot.F |
80 |
EEBOOT |
DO I=1, MAX_NO_THREADS |
|
./eesupp/src/eeboot.F |
81 |
EEBOOT |
thError(I) = .FALSE. |
|
./eesupp/src/eeboot.F |
82 |
EEBOOT |
allMyEdgesAreSharedMemory(I) = .TRUE. |
|
./eesupp/src/eeboot.F |
83 |
EEBOOT |
threadIsRunning(I) = .FALSE. |
|
./eesupp/src/eeboot.F |
84 |
EEBOOT |
threadIsComplete(I) = .FALSE. |
|
./eesupp/src/eeboot.F |
85 |
EEBOOT |
ioErrorCount(I) = 0 |
|
./model/src/remove_mean.F |
150 |
REMOVE_MEAN_RS |
INTEGER bi,bj,I,J,K |
|
./model/src/remove_mean.F |
165 |
REMOVE_MEAN_RS |
DO I=1,sNx |
|
./model/src/remove_mean.F |
166 |
REMOVE_MEAN_RS |
tmpVal=arr(I,J,K,bi,bj) |
|
./model/src/remove_mean.F |
167 |
REMOVE_MEAN_RS |
IF (arrMask(I,J,K,bi,bj).NE.0.) THEN |
|
./model/src/remove_mean.F |
168 |
REMOVE_MEAN_RS |
tmpVol = arrArea(I,J,bi,bj)*arrhFac(I,J,K,bi,bj)*arrDr(K) |
|
./model/src/remove_mean.F |
188 |
REMOVE_MEAN_RS |
DO I=1,sNx |
|
./model/src/remove_mean.F |
189 |
REMOVE_MEAN_RS |
IF (arrMask(I,J,K,bi,bj).NE.0.) THEN |
|
./model/src/remove_mean.F |
190 |
REMOVE_MEAN_RS |
arr(I,J,K,bi,bj) = arr(I,J,K,bi,bj) - theMean |
|
./model/src/remove_mean.F |
45 |
REMOVE_MEAN_RL |
INTEGER bi,bj,I,J,K |
|
./model/src/remove_mean.F |
60 |
REMOVE_MEAN_RL |
DO I=1,sNx |
|
./model/src/remove_mean.F |
61 |
REMOVE_MEAN_RL |
tmpVal=arr(I,J,K,bi,bj) |
|
./model/src/remove_mean.F |
62 |
REMOVE_MEAN_RL |
IF (arrMask(I,J,K,bi,bj).NE.0.) THEN |
|
./model/src/remove_mean.F |
63 |
REMOVE_MEAN_RL |
tmpVol = arrArea(I,J,bi,bj)*arrhFac(I,J,K,bi,bj)*arrDr(K) |
|
./model/src/remove_mean.F |
83 |
REMOVE_MEAN_RL |
DO I=1,sNx |
|
./model/src/remove_mean.F |
84 |
REMOVE_MEAN_RL |
IF (arrMask(I,J,K,bi,bj).NE.0.) THEN |
|
./model/src/remove_mean.F |
85 |
REMOVE_MEAN_RL |
arr(I,J,K,bi,bj) = arr(I,J,K,bi,bj) - theMean |
|
./model/src/rotate_spherical_polar_grid.F |
141 |
ROTATE_SPHERICAL_POLAR_GRID |
DO I = 1-Olx,sNx+Olx |
|
./model/src/rotate_spherical_polar_grid.F |
145 |
ROTATE_SPHERICAL_POLAR_GRID |
& COS( Y(I,J,bi,bj)*deg2rad )*COS( X(I,J,bi,bj)*deg2rad ) |
|
./model/src/rotate_spherical_polar_grid.F |
147 |
ROTATE_SPHERICAL_POLAR_GRID |
& COS( Y(I,J,bi,bj)*deg2rad )*SIN( X(I,J,bi,bj)*deg2rad ) |
|
./model/src/rotate_spherical_polar_grid.F |
148 |
ROTATE_SPHERICAL_POLAR_GRID |
XYZrot(3) = SIN( Y(I,J,bi,bj)*deg2rad ) |
|
./model/src/rotate_spherical_polar_grid.F |
163 |
ROTATE_SPHERICAL_POLAR_GRID |
X(I,J,bi,bj) = 0. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
165 |
ROTATE_SPHERICAL_POLAR_GRID |
X(I,J,bi,bj) = ATAN2(XYZgeo(2),XYZgeo(1))/deg2rad |
|
./model/src/rotate_spherical_polar_grid.F |
166 |
ROTATE_SPHERICAL_POLAR_GRID |
IF ( X(I,J,bi,bj) .LT. 0. _d 0 ) |
|
./model/src/rotate_spherical_polar_grid.F |
167 |
ROTATE_SPHERICAL_POLAR_GRID |
& X(I,J,bi,bj) = X(I,J,bi,bj) + 360. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
171 |
ROTATE_SPHERICAL_POLAR_GRID |
Y(I,J,bi,bj) = 0. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
173 |
ROTATE_SPHERICAL_POLAR_GRID |
Y(I,J,bi,bj) = ATAN2(XYZgeo(3),hypotxy)/deg2rad |
|
./model/src/rotate_spherical_polar_grid.F |
217 |
CALC_ANGLES |
INTEGER I, J |
|
./model/src/rotate_spherical_polar_grid.F |
232 |
CALC_ANGLES |
DO I = 1-Olx,sNx+Olx |
|
./model/src/rotate_spherical_polar_grid.F |
233 |
CALC_ANGLES |
IF ( _dyG(I,J,bi,bj) .GT. 0 ) uPseudo(I,J) = |
|
./model/src/rotate_spherical_polar_grid.F |
234 |
CALC_ANGLES |
& - ( yG(I,J,bi,bj) - yG(I,J+1,bi,bj) )*deg2rad |
|
./model/src/rotate_spherical_polar_grid.F |
235 |
CALC_ANGLES |
& / _dyG(I,J,bi,bj) |
|
./model/src/rotate_spherical_polar_grid.F |
239 |
CALC_ANGLES |
DO I = 1-Olx,sNx+Olx-1 |
|
./model/src/rotate_spherical_polar_grid.F |
240 |
CALC_ANGLES |
IF ( _dxG(I,J,bi,bj) .GT. 0 ) vPseudo(I,J) = |
|
./model/src/rotate_spherical_polar_grid.F |
241 |
CALC_ANGLES |
& + ( yG(I,J,bi,bj) - yG(I+1,J,bi,bj) )*deg2rad |
|
./model/src/rotate_spherical_polar_grid.F |
242 |
CALC_ANGLES |
& / _dxG(I,J,bi,bj) |
|
./model/src/rotate_spherical_polar_grid.F |
246 |
CALC_ANGLES |
DO I = 1-Olx,sNx+Olx-1 |
|
./model/src/rotate_spherical_polar_grid.F |
247 |
CALC_ANGLES |
uC = 0.5*(uPseudo(I,J) + uPseudo(I+1,J)) |
|
./model/src/rotate_spherical_polar_grid.F |
248 |
CALC_ANGLES |
vC = 0.5*(vPseudo(I,J) + vPseudo(I,J+1)) |
|
./model/src/rotate_spherical_polar_grid.F |
251 |
CALC_ANGLES |
angleCosC(I,J,bi,bj) = uC*uNorm |
|
./model/src/rotate_spherical_polar_grid.F |
252 |
CALC_ANGLES |
angleSinC(I,J,bi,bj) = -vC*uNorm |
|
./model/src/rotate_spherical_polar_grid.F |
60 |
ROTATE_SPHERICAL_POLAR_GRID |
INTEGER I, J, iA, jA, kA |
|
./model/src/taueddy_external_forcing.F |
146 |
TAUEDDY_EXTERNAL_FORCING_V |
INTEGER I, J |
|
./model/src/taueddy_external_forcing.F |
56 |
TAUEDDY_EXTERNAL_FORCING_U |
INTEGER I, J |
|
./model/src/update_cg2d.F |
100 |
UPDATE_CG2D |
IF (OB_Jn(I,bi,bj).NE.0) aS2d(I,OB_Jn(I,bi,bj),bi,bj)=0. |
|
./model/src/update_cg2d.F |
101 |
UPDATE_CG2D |
IF (OB_Jn(I,bi,bj).NE.0) aS2d(I,OB_Jn(I,bi,bj)+1,bi,bj)=0. |
|
./model/src/update_cg2d.F |
102 |
UPDATE_CG2D |
IF (OB_Js(I,bi,bj).NE.0) aS2d(I,OB_Js(I,bi,bj)+1,bi,bj)=0. |
|
./model/src/update_cg2d.F |
103 |
UPDATE_CG2D |
IF (OB_Js(I,bi,bj).NE.0) aS2d(I,OB_Js(I,bi,bj),bi,bj)=0. |
|
./model/src/update_cg2d.F |
114 |
UPDATE_CG2D |
DO I=1,sNx+1 |
|
./model/src/update_cg2d.F |
115 |
UPDATE_CG2D |
aW2d(I,J,bi,bj) = aW2d(I,J,bi,bj)*cg2dNorm |
|
./model/src/update_cg2d.F |
117 |
UPDATE_CG2D |
aS2d(I,J,bi,bj) = aS2d(I,J,bi,bj)*cg2dNorm |
|
./model/src/update_cg2d.F |
124 |
UPDATE_CG2D |
DO I=1,sNx |
|
./model/src/update_cg2d.F |
125 |
UPDATE_CG2D |
ks = ksurfC(I,J,bi,bj) |
|
./model/src/update_cg2d.F |
126 |
UPDATE_CG2D |
aC2d(I,J,bi,bj) = -( |
|
./model/src/update_cg2d.F |
127 |
UPDATE_CG2D |
& aW2d(I,J,bi,bj) + aW2d(I+1,J ,bi,bj) |
|
./model/src/update_cg2d.F |
128 |
UPDATE_CG2D |
& +aS2d(I,J,bi,bj) + aS2d(I ,J+1,bi,bj) |
|
./model/src/update_cg2d.F |
129 |
UPDATE_CG2D |
& +freeSurfFac*cg2dNorm*recip_Bo(I,J,bi,bj)*deepFac2F(ks) |
|
./model/src/update_cg2d.F |
130 |
UPDATE_CG2D |
& *rA(I,J,bi,bj)/deltaTMom/deltaTfreesurf |
|
./model/src/update_cg2d.F |
136 |
UPDATE_CG2D |
DO I=1,sNx |
|
./model/src/update_cg2d.F |
137 |
UPDATE_CG2D |
aC2d(I,J,bi,bj) = -( |
|
./model/src/update_cg2d.F |
138 |
UPDATE_CG2D |
& aW2d(I,J,bi,bj) + aW2d(I+1,J ,bi,bj) |
|
./model/src/update_cg2d.F |
139 |
UPDATE_CG2D |
& +aS2d(I,J,bi,bj) + aS2d(I ,J+1,bi,bj) |
|
./model/src/update_cg2d.F |
140 |
UPDATE_CG2D |
& +freeSurfFac*cg2dNorm*recip_Bo(I,J,bi,bj) |
|
./model/src/update_cg2d.F |
141 |
UPDATE_CG2D |
& *rA(I,J,bi,bj)/deltaTMom/deltaTfreesurf |
|
./model/src/update_cg2d.F |
158 |
UPDATE_CG2D |
DO I=1,sNx+1 |
|
./model/src/update_cg2d.F |
159 |
UPDATE_CG2D |
IF ( aC2d(I,J,bi,bj) .EQ. 0. ) THEN |
|
./model/src/update_cg2d.F |
160 |
UPDATE_CG2D |
pC(I,J,bi,bj) = 1. _d 0 |
|
./model/src/update_cg2d.F |
162 |
UPDATE_CG2D |
pC(I,J,bi,bj) = 1. _d 0 / aC2d(I,J,bi,bj) |
|
./model/src/update_cg2d.F |
164 |
UPDATE_CG2D |
pW_tmp = aC2d(I,J,bi,bj)+aC2d(I-1,J,bi,bj) |
|
./model/src/update_cg2d.F |
166 |
UPDATE_CG2D |
pW(I,J,bi,bj) = 0. |
|
./model/src/update_cg2d.F |
168 |
UPDATE_CG2D |
pW(I,J,bi,bj) = |
|
./model/src/update_cg2d.F |
169 |
UPDATE_CG2D |
& -aW2d(I,J,bi,bj)/((cg2dpcOffDFac *pW_tmp)**2 ) |
|
./model/src/update_cg2d.F |
171 |
UPDATE_CG2D |
pS_tmp = aC2d(I,J,bi,bj)+aC2d(I,J-1,bi,bj) |
|
./model/src/update_cg2d.F |
173 |
UPDATE_CG2D |
pS(I,J,bi,bj) = 0. |
|
./model/src/update_cg2d.F |
175 |
UPDATE_CG2D |
pS(I,J,bi,bj) = |
|
./model/src/update_cg2d.F |
176 |
UPDATE_CG2D |
& -aS2d(I,J,bi,bj)/((cg2dpcOffDFac *pS_tmp)**2 ) |
|
./model/src/update_cg2d.F |
54 |
UPDATE_CG2D |
INTEGER I, J, K, ks |
|
./model/src/update_cg2d.F |
74 |
UPDATE_CG2D |
DO I=1,sNx+1 |
|
./model/src/update_cg2d.F |
75 |
UPDATE_CG2D |
aW2d(I,J,bi,bj) = 0. _d 0 |
|
./model/src/update_cg2d.F |
76 |
UPDATE_CG2D |
aS2d(I,J,bi,bj) = 0. _d 0 |
|
./model/src/update_cg2d.F |
81 |
UPDATE_CG2D |
DO I=1,sNx+1 |
|
./model/src/update_cg2d.F |
83 |
UPDATE_CG2D |
faceArea = _dyG(I,J,bi,bj)*drF(K) |
|
./model/src/update_cg2d.F |
84 |
UPDATE_CG2D |
& *_hFacW(I,J,K,bi,bj) |
|
./model/src/update_cg2d.F |
85 |
UPDATE_CG2D |
aW2d(I,J,bi,bj) = aW2d(I,J,bi,bj) |
|
./model/src/update_cg2d.F |
86 |
UPDATE_CG2D |
& + faceArea*recip_dxC(I,J,bi,bj) |
|
./model/src/update_cg2d.F |
87 |
UPDATE_CG2D |
faceArea = _dxG(I,J,bi,bj)*drF(K) |
|
./model/src/update_cg2d.F |
88 |
UPDATE_CG2D |
& *_hFacS(I,J,K,bi,bj) |
|
./model/src/update_cg2d.F |
89 |
UPDATE_CG2D |
aS2d(I,J,bi,bj) = aS2d(I,J,bi,bj) |
|
./model/src/update_cg2d.F |
90 |
UPDATE_CG2D |
& + faceArea*recip_dyC(I,J,bi,bj) |
|
./model/src/update_cg2d.F |
99 |
UPDATE_CG2D |
DO I=1,sNx |
|
./model/src/update_masks_etc.F |
123 |
UPDATE_MASKS_ETC |
DO I=1-Olx,sNx+Olx |
|
./model/src/update_masks_etc.F |
124 |
UPDATE_MASKS_ETC |
R_low(I,J,bi,bj) = rF(1) |
|
./model/src/update_masks_etc.F |
126 |
UPDATE_MASKS_ETC |
R_low(I,J,bi,bj) = R_low(I,J,bi,bj) |
|
./model/src/update_masks_etc.F |
127 |
UPDATE_MASKS_ETC |
& - drF(k)*hFacC(I,J,K,bi,bj) |
|
./model/src/update_masks_etc.F |
206 |
UPDATE_MASKS_ETC |
DO I=1-Olx,sNx+Olx |
|
./model/src/update_masks_etc.F |
207 |
UPDATE_MASKS_ETC |
Im1=MAX(I-1,1-OLx) |
|
./model/src/update_masks_etc.F |
209 |
UPDATE_MASKS_ETC |
IF (DYG(I,J,bi,bj).EQ.0.) THEN |
|
./model/src/update_masks_etc.F |
213 |
UPDATE_MASKS_ETC |
hFacW(I,J,K,bi,bj)=0. |
|
./model/src/update_masks_etc.F |
216 |
UPDATE_MASKS_ETC |
hFacW(I,J,K,bi,bj)=maskW(I,J,K,bi,bj)* |
|
./model/src/update_masks_etc.F |
218 |
UPDATE_MASKS_ETC |
& smoothMin_R4(hFacC(I,J,K,bi,bj),hFacC(Im1,J,K,bi,bj)) |
|
./model/src/update_masks_etc.F |
220 |
UPDATE_MASKS_ETC |
& MIN(hFacC(I,J,K,bi,bj),hFacC(Im1,J,K,bi,bj)) |
|
./model/src/update_masks_etc.F |
223 |
UPDATE_MASKS_ETC |
IF (DXG(I,J,bi,bj).EQ.0.) THEN |
|
./model/src/update_masks_etc.F |
224 |
UPDATE_MASKS_ETC |
hFacS(I,J,K,bi,bj)=0. |
|
./model/src/update_masks_etc.F |
227 |
UPDATE_MASKS_ETC |
hFacS(I,J,K,bi,bj)=maskS(I,J,K,bi,bj)* |
|
./model/src/update_masks_etc.F |
229 |
UPDATE_MASKS_ETC |
& smoothMin_R4(hFacC(I,J,K,bi,bj),hFacC(I,Jm1,K,bi,bj)) |
|
./model/src/update_masks_etc.F |
231 |
UPDATE_MASKS_ETC |
& MIN(hFacC(I,J,K,bi,bj),hFacC(I,Jm1,K,bi,bj)) |
|
./model/src/update_masks_etc.F |
295 |
UPDATE_MASKS_ETC |
DO I=1-Olx,sNx+Olx |
|
./model/src/update_masks_etc.F |
296 |
UPDATE_MASKS_ETC |
IF (hFacC(I,J,K,bi,bj) .NE. 0. ) THEN |
|
./model/src/update_masks_etc.F |
298 |
UPDATE_MASKS_ETC |
recip_hFacC(I,J,K,bi,bj) = 1. _d 0 / hFacC(I,J,K,bi,bj) |
|
./model/src/update_masks_etc.F |
301 |
UPDATE_MASKS_ETC |
recip_hFacC(I,J,K,bi,bj) = 0. |
|
./model/src/update_masks_etc.F |
304 |
UPDATE_MASKS_ETC |
IF (hFacW(I,J,K,bi,bj) .NE. 0. ) THEN |
|
./model/src/update_masks_etc.F |
306 |
UPDATE_MASKS_ETC |
recip_hFacW(I,J,K,bi,bj) = 1. _d 0 / hFacw(I,J,K,bi,bj) |
|
./model/src/update_masks_etc.F |
309 |
UPDATE_MASKS_ETC |
recip_hFacW(I,J,K,bi,bj) = 0. |
|
./model/src/update_masks_etc.F |
312 |
UPDATE_MASKS_ETC |
IF (hFacS(I,J,K,bi,bj) .NE. 0. ) THEN |
|
./model/src/update_masks_etc.F |
314 |
UPDATE_MASKS_ETC |
recip_hFacS(I,J,K,bi,bj) = 1. _d 0 / hFacS(I,J,K,bi,bj) |
|
./model/src/update_masks_etc.F |
317 |
UPDATE_MASKS_ETC |
recip_hFacS(I,J,K,bi,bj) = 0. |
|
./model/src/update_masks_etc.F |
337 |
UPDATE_MASKS_ETC |
DO I=1-Olx,sNx+Olx |
|
./model/src/update_masks_etc.F |
338 |
UPDATE_MASKS_ETC |
ksurfW(I,J,bi,bj) = Nr+1 |
|
./model/src/update_masks_etc.F |
339 |
UPDATE_MASKS_ETC |
ksurfS(I,J,bi,bj) = Nr+1 |
|
./model/src/update_masks_etc.F |
342 |
UPDATE_MASKS_ETC |
IF (maskW(I,J,K,bi,bj).NE.0.) THEN |
|
./model/src/update_masks_etc.F |
343 |
UPDATE_MASKS_ETC |
ksurfW(I,J,bi,bj) = k |
|
./model/src/update_masks_etc.F |
346 |
UPDATE_MASKS_ETC |
IF (maskS(I,J,K,bi,bj).NE.0.) THEN |
|
./model/src/update_masks_etc.F |
347 |
UPDATE_MASKS_ETC |
ksurfS(I,J,bi,bj) = k |
|
./model/src/update_masks_etc.F |
51 |
UPDATE_MASKS_ETC |
INTEGER I, J, K |
|
./model/src/update_masks_etc.F |
70 |
UPDATE_MASKS_ETC |
DO I=1-Olx,sNx+Olx |
|
./model/src/update_masks_etc.F |
73 |
UPDATE_MASKS_ETC |
hFacCtmp = (rF(K)-xx_r_low(I,J,bi,bj))*recip_drF(K) |
|
./model/src/update_masks_etc.F |
75 |
UPDATE_MASKS_ETC |
hFacCtmp = (rF(K)-R_low(I,J,bi,bj))*recip_drF(K) |
|
./model/src/update_masks_etc.F |
88 |
UPDATE_MASKS_ETC |
hFacC(I,J,K,bi,bj) = 0. _d 0 |
|
./model/src/update_masks_etc.F |
90 |
UPDATE_MASKS_ETC |
hFacC(I,J,K,bi,bj) = 1. _d 0 |
|
./model/src/update_masks_etc.F |
92 |
UPDATE_MASKS_ETC |
hFacC(I,J,K,bi,bj) = hFacCtmp + hFacMnSz*( |
|
./eesupp/src/eedie.F |
38 |
EEDIE |
INTEGER I, L |
|
./eesupp/src/eedie.F |
53 |
EEDIE |
DO I = 1, nThreads |
|
./eesupp/src/eedie.F |
54 |
EEDIE |
IF ( threadIsComplete(I) ) nThreadsDone = nThreadsDone+1 |
|
./optim/utils.F |
154 |
LCASE |
INTEGER I, L |
|
./optim/utils.F |
156 |
LCASE |
DO 10 I = 1, LEN(string) |
|
./optim/utils.F |
157 |
LCASE |
L = INDEX(UPPER,string(I:I)) |
|
./optim/utils.F |
159 |
LCASE |
string(I:I) = LOWER(L:L) |
|
./optim/utils.F |
247 |
UCASE |
INTEGER I, L |
|
./optim/utils.F |
249 |
UCASE |
DO 10 I = 1, LEN(string) |
|
./optim/utils.F |
250 |
UCASE |
L = INDEX(LOWER,string(I:I)) |
|
./optim/utils.F |
252 |
UCASE |
string(I:I) = UPPER(L:L) |
|
./pkg/aim_compon_interf/atm_store_runoff.F |
55 |
ATM_STORE_RUNOFF |
INTEGER I,J,K |
|
./pkg/aim_compon_interf/atm_store_runoff.F |
63 |
ATM_STORE_RUNOFF |
DO I=1,sNx |
|
./pkg/aim_compon_interf/atm_store_runoff.F |
64 |
ATM_STORE_RUNOFF |
RunOffFlux(I,J,bi,bj) = RunOffFlux(I,J,bi,bj) |
|
./pkg/aim_compon_interf/atm_store_runoff.F |
65 |
ATM_STORE_RUNOFF |
& + land_runOff(I,J,bi,bj)*cplTimeFraction |
|
./pkg/aim_compon_interf/cpl_exch_configs.F |
100 |
CPL_EXCH_CONFIGS |
& 'H (atmosphere) ==',Ro_surf(I,J,bi,bj) |
|
./pkg/aim_compon_interf/cpl_exch_configs.F |
103 |
CPL_EXCH_CONFIGS |
& 'H (ocean) ==',ocMxlD(I,J,bi,bj) |
|
./pkg/aim_compon_interf/cpl_exch_configs.F |
50 |
CPL_EXCH_CONFIGS |
INTEGER I,J,K,bi,bj |
|
./pkg/aim_compon_interf/cpl_exch_configs.F |
88 |
CPL_EXCH_CONFIGS |
DO I=1,sNx |
|
./pkg/aim_compon_interf/cpl_exch_configs.F |
89 |
CPL_EXCH_CONFIGS |
IF ( ocMxlD(I,J,bi,bj) .NE. seaSurface_ocn .AND. |
|
./pkg/aim_compon_interf/cpl_exch_configs.F |
90 |
CPL_EXCH_CONFIGS |
& Ro_surf(I,J,bi,bj) .NE. groundLevel_atm ) THEN |
|
./pkg/aim_compon_interf/cpl_exch_configs.F |
91 |
CPL_EXCH_CONFIGS |
iDiff = I |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
45 |
CPL_INI_VARS |
INTEGER I,J,bi,bj |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
50 |
CPL_INI_VARS |
DO I=1-Olx,sNx+Olx |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
52 |
CPL_INI_VARS |
atmSLPr( I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
53 |
CPL_INI_VARS |
HeatFlux( I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
54 |
CPL_INI_VARS |
qShortWave(I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
60 |
CPL_INI_VARS |
tauX( I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
61 |
CPL_INI_VARS |
tauY( I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
62 |
CPL_INI_VARS |
EvMPrFlux( I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
63 |
CPL_INI_VARS |
RunOffFlux(I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
64 |
CPL_INI_VARS |
RunOffEnFx(I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
65 |
CPL_INI_VARS |
iceSaltFlx(I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
66 |
CPL_INI_VARS |
seaIceMass(I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
67 |
CPL_INI_VARS |
airCO2 (I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
68 |
CPL_INI_VARS |
sWSpeed (I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
69 |
CPL_INI_VARS |
fracIce (I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
72 |
CPL_INI_VARS |
SSTocn (I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
73 |
CPL_INI_VARS |
SSSocn (I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
74 |
CPL_INI_VARS |
vSqocn (I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
75 |
CPL_INI_VARS |
flxCO2ocn(I,J,bi,bj) = 0. |
|
./pkg/aim_v23/aim_diagnostics.F |
309 |
AIM_DIAGNOSTICS |
DO I=1,sNx |
|
./pkg/aim_v23/aim_diagnostics.F |
310 |
AIM_DIAGNOSTICS |
I2 = I+(J-1)*sNx |
|
./pkg/aim_v23/aim_diagnostics.F |
57 |
AIM_DIAGNOSTICS |
INTEGER I,J,K, I2,Katm |
|
./pkg/aim_v23/aim_dyn2aim.F |
163 |
AIM_DYN2AIM |
DO I = 1,sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
164 |
AIM_DYN2AIM |
I2 = I+(J-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
169 |
AIM_DYN2AIM |
TA(I2,Katm) = theta(I,J,K,bi,bj)*conv_theta2T |
|
./pkg/aim_v23/aim_dyn2aim.F |
173 |
AIM_DYN2AIM |
QA(I2,Katm) = MAX(salt(I,J,K,bi,bj), 0. _d 0) |
|
./pkg/aim_v23/aim_dyn2aim.F |
175 |
AIM_DYN2AIM |
ThA(I2,Katm) = theta(I,J,K,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
187 |
AIM_DYN2AIM |
DO I = 1,sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
188 |
AIM_DYN2AIM |
I2 = I+(J-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
192 |
AIM_DYN2AIM |
& uVel(I,J,K,bi,bj)*uVel(I,J,K,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
193 |
AIM_DYN2AIM |
& + uVel(I+1,J,K,bi,bj)*uVel(I+1,J,K,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
194 |
AIM_DYN2AIM |
& + vVel(I,J,K,bi,bj)*vVel(I,J,K,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
195 |
AIM_DYN2AIM |
& + vVel(I,J+1,K,bi,bj)*vVel(I,J+1,K,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
236 |
AIM_DYN2AIM |
DO I = 1,sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
237 |
AIM_DYN2AIM |
I2 = I+(J-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
65 |
AIM_DYN2AIM |
INTEGER I, J, I2, K, Katm |
|
./pkg/aim_v23/aim_dyn2aim.F |
74 |
AIM_DYN2AIM |
DO I = 1,sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
75 |
AIM_DYN2AIM |
I2 = I+(J-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
76 |
AIM_DYN2AIM |
snLat(I2,myThid) = SIN(yC(I,J,bi,bj)*deg2rad) |
|
./pkg/aim_v23/aim_dyn2aim.F |
77 |
AIM_DYN2AIM |
csLat(I2,myThid) = COS(yC(I,J,bi,bj)*deg2rad) |
|
./pkg/aim_v23/aim_dyn2aim.F |
83 |
AIM_DYN2AIM |
DO I = 1,sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
84 |
AIM_DYN2AIM |
I2 = I+(J-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
85 |
AIM_DYN2AIM |
kGrd(I2) = (Nr+1) - ksurfC(I,J,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
91 |
AIM_DYN2AIM |
DO I=1,sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
92 |
AIM_DYN2AIM |
I2 = I+(J-1)*sNx |
|
./pkg/aim_v23/aim_fields_load.F |
170 |
AIM_FIELDS_LOAD |
aim_albedo(I,J,bi,bj) = aim_albedo(I,J,bi,bj)/100. |
|
./pkg/aim_v23/aim_fields_load.F |
314 |
AIM_FIELDS_LOAD |
aim_albedo(i,j,bi,bj) = aim_albedo(I,J,bi,bj)/100. _d 0 |
|
./pkg/aim_v23/aim_tendency_apply.F |
299 |
AIM_TENDENCY_APPLY_T |
INTEGER I, J |
|
./pkg/aim_v23/aim_tendency_apply.F |
303 |
AIM_TENDENCY_APPLY_T |
DO I=1,sNx |
|
./pkg/aim_v23/aim_tendency_apply.F |
349 |
AIM_TENDENCY_APPLY_S |
INTEGER I, J |
|
./pkg/aim_v23/aim_tendency_apply.F |
353 |
AIM_TENDENCY_APPLY_S |
DO I=1,sNx |
|
./pkg/aim_v23/phy_shtorh.F |
133 |
ZMEDDY |
INTEGER I,J |
|
./pkg/aim_v23/phy_shtorh.F |
144 |
ZMEDDY |
DO 110 I=1,NLON |
|
./pkg/aim_v23/phy_shtorh.F |
145 |
ZMEDDY |
ZM(J)=ZM(J)+FF(I,J) |
|
./pkg/aim_v23/phy_shtorh.F |
149 |
ZMEDDY |
DO 120 I=1,NLON |
|
./pkg/aim_v23/phy_shtorh.F |
150 |
ZMEDDY |
EDDY(I,J)=FF(I,J)-ZM(J) |
|
./eesupp/src/global_max.F |
143 |
GLOBAL_MAX_R8 |
INTEGER I |
|
./eesupp/src/global_max.F |
159 |
GLOBAL_MAX_R8 |
DO I=2,nThreads |
|
./eesupp/src/global_max.F |
160 |
GLOBAL_MAX_R8 |
tmp = MAX(tmp,phiGMR8(1,I)) |
|
./eesupp/src/global_max.F |
57 |
GLOBAL_MAX_R4 |
INTEGER I |
|
./eesupp/src/global_max.F |
73 |
GLOBAL_MAX_R4 |
DO I=2,nThreads |
|
./eesupp/src/global_max.F |
74 |
GLOBAL_MAX_R4 |
tmp = MAX(tmp,phiGMR4(1,I)) |
|
./eesupp/src/global_sum.F |
143 |
GLOBAL_SUM_R8 |
INTEGER I |
|
./eesupp/src/global_sum.F |
164 |
GLOBAL_SUM_R8 |
DO I=1,nThreads |
|
./eesupp/src/global_sum.F |
165 |
GLOBAL_SUM_R8 |
tmp = tmp + phiGSR8(1,I) |
|
./eesupp/src/global_sum.F |
238 |
GLOBAL_SUM_INT |
INTEGER I |
|
./eesupp/src/global_sum.F |
254 |
GLOBAL_SUM_INT |
DO I=1,nThreads |
|
./eesupp/src/global_sum.F |
255 |
GLOBAL_SUM_INT |
tmp = tmp + phiGSI(1,I) |
|
./eesupp/src/global_sum.F |
56 |
GLOBAL_SUM_R4 |
INTEGER I |
|
./eesupp/src/global_sum.F |
72 |
GLOBAL_SUM_R4 |
DO I=1,nThreads |
|
./eesupp/src/global_sum.F |
73 |
GLOBAL_SUM_R4 |
tmp = tmp + phiGSR4(1,I) |
|
./pkg/atm_ocn_coupler/atm_to_ocn_mapxyr8.F |
36 |
ATM_TO_OCN_MAPXYR8 |
INTEGER I,J |
|
./pkg/atm_ocn_coupler/atm_to_ocn_mapxyr8.F |
40 |
ATM_TO_OCN_MAPXYR8 |
DO I=1,oNx |
|
./pkg/atm_ocn_coupler/atm_to_ocn_mapxyr8.F |
41 |
ATM_TO_OCN_MAPXYR8 |
fld_ocn(I,J)=0. |
|
./pkg/atm_ocn_coupler/atm_to_ocn_mapxyr8.F |
47 |
ATM_TO_OCN_MAPXYR8 |
DO I=1,MIN(aNx,oNx) |
|
./pkg/atm_ocn_coupler/atm_to_ocn_mapxyr8.F |
48 |
ATM_TO_OCN_MAPXYR8 |
fld_ocn(I,J)=fld_atm(I,J) |
|
./pkg/atm_ocn_coupler/coupler.F |
22 |
NO PROCEDURE |
INTEGER I |
|
./pkg/atm_ocn_coupler/coupler.F |
36 |
NO PROCEDURE |
DO I=1,nCouplingSteps |
|
./eesupp/src/gsum.F |
127 |
GSUM_R8 |
DO I = 2, nThreads |
|
./eesupp/src/gsum.F |
128 |
GSUM_R8 |
IF ( GSR8_value(curLev,I) .NE. _NOT_SET_ ) nDone = nDone+1 |
|
./eesupp/src/gsum.F |
137 |
GSUM_R8 |
DO I = 2,nThreads |
|
./eesupp/src/gsum.F |
138 |
GSUM_R8 |
answer = answer+GSR8_value(curLev,I) |
|
./eesupp/src/gsum.F |
41 |
GSUM_R8_INIT |
INTEGER I |
|
./eesupp/src/gsum.F |
44 |
GSUM_R8_INIT |
DO I = 1, lShare8 |
|
./eesupp/src/gsum.F |
45 |
GSUM_R8_INIT |
GSR8_value(I,myThid) = _NOT_SET_ |
|
./eesupp/src/gsum.F |
96 |
GSUM_R8 |
INTEGER I |
|
./pkg/atm_ocn_coupler/ocn_to_atm_mapxyr8.F |
36 |
OCN_TO_ATM_MAPXYR8 |
INTEGER I,J |
|
./pkg/atm_ocn_coupler/ocn_to_atm_mapxyr8.F |
40 |
OCN_TO_ATM_MAPXYR8 |
DO I=1,aNx |
|
./pkg/atm_ocn_coupler/ocn_to_atm_mapxyr8.F |
41 |
OCN_TO_ATM_MAPXYR8 |
fld_atm(I,J)=0. |
|
./pkg/atm_ocn_coupler/ocn_to_atm_mapxyr8.F |
47 |
OCN_TO_ATM_MAPXYR8 |
DO I=1,MIN(aNx,oNx) |
|
./pkg/atm_ocn_coupler/ocn_to_atm_mapxyr8.F |
48 |
OCN_TO_ATM_MAPXYR8 |
fld_atm(I,J)=fld_ocn(I,J) |
|
./eesupp/src/ini_threading_environment.F |
109 |
INI_THREADING_ENVIRONMENT |
DO I=1, MAX_NO_THREADS |
|
./eesupp/src/ini_threading_environment.F |
110 |
INI_THREADING_ENVIRONMENT |
CALL BAR2_INIT(I) |
|
./eesupp/src/ini_threading_environment.F |
150 |
INI_THREADING_ENVIRONMENT |
DO I=1,nTx |
|
./eesupp/src/ini_threading_environment.F |
151 |
INI_THREADING_ENVIRONMENT |
thId = (J-1)*nTx+I |
|
./eesupp/src/ini_threading_environment.F |
180 |
INI_THREADING_ENVIRONMENT |
DO I=1,nThreads |
|
./eesupp/src/ini_threading_environment.F |
182 |
INI_THREADING_ENVIRONMENT |
& '// -o- Thread',I,', tiles (', |
|
./eesupp/src/ini_threading_environment.F |
183 |
INI_THREADING_ENVIRONMENT |
& myBxLo(I),':',myBxHi(I),',',myByLo(I),':',myByHi(I),')' |
|
./eesupp/src/ini_threading_environment.F |
203 |
INI_THREADING_ENVIRONMENT |
DO I=1,nSx |
|
./eesupp/src/ini_threading_environment.F |
205 |
INI_THREADING_ENVIRONMENT |
& '//',' Tile number: ',tileNo(I,J), |
|
./eesupp/src/ini_threading_environment.F |
209 |
INI_THREADING_ENVIRONMENT |
IF ( tileNoW(I,J).NE. NULL_TILE ) THEN |
|
./eesupp/src/ini_threading_environment.F |
212 |
INI_THREADING_ENVIRONMENT |
& 'Tile = ',tileNoW(I,J), |
|
./eesupp/src/ini_threading_environment.F |
213 |
INI_THREADING_ENVIRONMENT |
& ', Process = ',tilePidW(I,J), |
|
./eesupp/src/ini_threading_environment.F |
214 |
INI_THREADING_ENVIRONMENT |
& ', Comm = ',commName(tileCommModeW(I,J)) |
|
./eesupp/src/ini_threading_environment.F |
218 |
INI_THREADING_ENVIRONMENT |
& ' bi = ',tileBiW(I,J), |
|
./eesupp/src/ini_threading_environment.F |
219 |
INI_THREADING_ENVIRONMENT |
& ', bj = ',tileBjW(I,J) |
|
./eesupp/src/ini_threading_environment.F |
227 |
INI_THREADING_ENVIRONMENT |
IF ( tileNoE(I,J).NE. NULL_TILE ) THEN |
|
./eesupp/src/ini_threading_environment.F |
230 |
INI_THREADING_ENVIRONMENT |
& 'Tile = ',tileNoE(I,J), |
|
./eesupp/src/ini_threading_environment.F |
231 |
INI_THREADING_ENVIRONMENT |
& ', Process = ',tilePidE(I,J), |
|
./eesupp/src/ini_threading_environment.F |
232 |
INI_THREADING_ENVIRONMENT |
& ', Comm = ',commName(tileCommModeE(I,J)) |
|
./eesupp/src/ini_threading_environment.F |
236 |
INI_THREADING_ENVIRONMENT |
& ' bi = ',tileBiE(I,J), |
|
./eesupp/src/ini_threading_environment.F |
237 |
INI_THREADING_ENVIRONMENT |
& ', bj = ',tileBjE(I,J) |
|
./eesupp/src/ini_threading_environment.F |
245 |
INI_THREADING_ENVIRONMENT |
IF ( tileNoS(I,J).NE. NULL_TILE ) THEN |
|
./eesupp/src/ini_threading_environment.F |
248 |
INI_THREADING_ENVIRONMENT |
& 'Tile = ',tileNoS(I,J), |
|
./eesupp/src/ini_threading_environment.F |
249 |
INI_THREADING_ENVIRONMENT |
& ', Process = ',tilePidS(I,J), |
|
./eesupp/src/ini_threading_environment.F |
250 |
INI_THREADING_ENVIRONMENT |
& ', Comm = ',commName(tileCommModeS(I,J)) |
|
./eesupp/src/ini_threading_environment.F |
254 |
INI_THREADING_ENVIRONMENT |
& ' bi = ',tileBiS(I,J), |
|
./eesupp/src/ini_threading_environment.F |
255 |
INI_THREADING_ENVIRONMENT |
& ', bj = ',tileBjS(I,J) |
|
./eesupp/src/ini_threading_environment.F |
263 |
INI_THREADING_ENVIRONMENT |
IF ( tileNoN(I,J).NE. NULL_TILE ) THEN |
|
./eesupp/src/ini_threading_environment.F |
266 |
INI_THREADING_ENVIRONMENT |
& 'Tile = ',tileNoN(I,J), |
|
./eesupp/src/ini_threading_environment.F |
267 |
INI_THREADING_ENVIRONMENT |
& ', Process = ',tilePidN(I,J), |
|
./eesupp/src/ini_threading_environment.F |
268 |
INI_THREADING_ENVIRONMENT |
& ', Comm = ',commName(tileCommModeN(I,J)) |
|
./eesupp/src/ini_threading_environment.F |
272 |
INI_THREADING_ENVIRONMENT |
& ' bi = ',tileBiN(I,J), |
|
./eesupp/src/ini_threading_environment.F |
273 |
INI_THREADING_ENVIRONMENT |
& ', bj = ',tileBjN(I,J) |
|
./eesupp/src/ini_threading_environment.F |
299 |
INI_THREADING_ENVIRONMENT |
DO I=1,nSx |
|
./eesupp/src/ini_threading_environment.F |
301 |
INI_THREADING_ENVIRONMENT |
& .OR. tileCommModeW(I,J).EQ.COMM_GET |
|
./eesupp/src/ini_threading_environment.F |
302 |
INI_THREADING_ENVIRONMENT |
& .OR. tileCommModeE(I,J).EQ.COMM_GET |
|
./eesupp/src/ini_threading_environment.F |
303 |
INI_THREADING_ENVIRONMENT |
& .OR. tileCommModeS(I,J).EQ.COMM_GET |
|
./eesupp/src/ini_threading_environment.F |
304 |
INI_THREADING_ENVIRONMENT |
& .OR. tileCommModeN(I,J).EQ.COMM_GET |
|
./eesupp/src/ini_threading_environment.F |
57 |
INI_THREADING_ENVIRONMENT |
INTEGER I, J |
|
./eesupp/src/ini_threading_environment.F |
71 |
INI_THREADING_ENVIRONMENT |
DO I = 2, MAX_NO_THREADS |
|
./eesupp/src/ini_threading_environment.F |
72 |
INI_THREADING_ENVIRONMENT |
myBxLo(I) = 0 |
|
./eesupp/src/ini_threading_environment.F |
73 |
INI_THREADING_ENVIRONMENT |
myBxHi(I) = 0 |
|
./eesupp/src/ini_threading_environment.F |
74 |
INI_THREADING_ENVIRONMENT |
myByLo(I) = 0 |
|
./eesupp/src/ini_threading_environment.F |
75 |
INI_THREADING_ENVIRONMENT |
myByHi(I) = 0 |
|
./pkg/autodiff/autodiff_restore.F |
100 |
AUTODIFF_RESTORE |
tauy1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
101 |
AUTODIFF_RESTORE |
qnet0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
102 |
AUTODIFF_RESTORE |
qnet1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
103 |
AUTODIFF_RESTORE |
empmr0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
104 |
AUTODIFF_RESTORE |
empmr1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
105 |
AUTODIFF_RESTORE |
sst0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
106 |
AUTODIFF_RESTORE |
sst1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
107 |
AUTODIFF_RESTORE |
sss0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
108 |
AUTODIFF_RESTORE |
sss1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
109 |
AUTODIFF_RESTORE |
saltflux0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
110 |
AUTODIFF_RESTORE |
saltflux1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
112 |
AUTODIFF_RESTORE |
qsw0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
113 |
AUTODIFF_RESTORE |
qsw1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
116 |
AUTODIFF_RESTORE |
pload0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,19) |
|
./pkg/autodiff/autodiff_restore.F |
117 |
AUTODIFF_RESTORE |
pload1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,20) |
|
./pkg/autodiff/autodiff_restore.F |
120 |
AUTODIFF_RESTORE |
etaH(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,21) |
|
./pkg/autodiff/autodiff_restore.F |
121 |
AUTODIFF_RESTORE |
dEtaHdt(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,22) |
|
./pkg/autodiff/autodiff_restore.F |
122 |
AUTODIFF_RESTORE |
PmEpR(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,23) |
|
./pkg/autodiff/autodiff_restore.F |
132 |
AUTODIFF_RESTORE |
DO I=1-Olx,sNx+Olx |
|
./pkg/autodiff/autodiff_restore.F |
133 |
AUTODIFF_RESTORE |
gs(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
134 |
AUTODIFF_RESTORE |
gt(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
136 |
AUTODIFF_RESTORE |
gtnm(I,J,K,bi,bj,1) = StoreDynVars3D(I,J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
137 |
AUTODIFF_RESTORE |
gsnm(I,J,K,bi,bj,1) = StoreDynVars3D(I,J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
138 |
AUTODIFF_RESTORE |
gunm(I,J,K,bi,bj,1) = StoreDynVars3D(I,J,K,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
139 |
AUTODIFF_RESTORE |
gvnm(I,J,K,bi,bj,1) = StoreDynVars3D(I,J,K,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
141 |
AUTODIFF_RESTORE |
gtnm1(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
142 |
AUTODIFF_RESTORE |
gsnm1(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
143 |
AUTODIFF_RESTORE |
gunm1(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
144 |
AUTODIFF_RESTORE |
gvnm1(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
146 |
AUTODIFF_RESTORE |
theta(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
147 |
AUTODIFF_RESTORE |
salt(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
148 |
AUTODIFF_RESTORE |
uvel(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
149 |
AUTODIFF_RESTORE |
vvel(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
150 |
AUTODIFF_RESTORE |
wvel(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
151 |
AUTODIFF_RESTORE |
totphihyd(I,J,K,bi,bj)= StoreDynVars3D(I,J,K,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
153 |
AUTODIFF_RESTORE |
gtnm(I,J,K,bi,bj,2) = StoreDynVars3D(I,J,K,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
154 |
AUTODIFF_RESTORE |
gsnm(I,J,K,bi,bj,2) = StoreDynVars3D(I,J,K,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
155 |
AUTODIFF_RESTORE |
gunm(I,J,K,bi,bj,2) = StoreDynVars3D(I,J,K,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
156 |
AUTODIFF_RESTORE |
gvnm(I,J,K,bi,bj,2) = StoreDynVars3D(I,J,K,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
173 |
AUTODIFF_RESTORE |
DO I=1-Olx,sNx+Olx |
|
./pkg/autodiff/autodiff_restore.F |
174 |
AUTODIFF_RESTORE |
hflux0(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
175 |
AUTODIFF_RESTORE |
hflux1(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
176 |
AUTODIFF_RESTORE |
sflux0(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
177 |
AUTODIFF_RESTORE |
sflux1(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
178 |
AUTODIFF_RESTORE |
ustress0(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
179 |
AUTODIFF_RESTORE |
ustress1(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
180 |
AUTODIFF_RESTORE |
vstress0(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
181 |
AUTODIFF_RESTORE |
vstress1(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
182 |
AUTODIFF_RESTORE |
wspeed0(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
183 |
AUTODIFF_RESTORE |
wspeed1(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
185 |
AUTODIFF_RESTORE |
swflux0(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
186 |
AUTODIFF_RESTORE |
swflux1(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
189 |
AUTODIFF_RESTORE |
runoff0(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
190 |
AUTODIFF_RESTORE |
runoff1(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
193 |
AUTODIFF_RESTORE |
apressure0(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
194 |
AUTODIFF_RESTORE |
apressure1(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
195 |
AUTODIFF_RESTORE |
siceload(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
198 |
AUTODIFF_RESTORE |
climsss0(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
199 |
AUTODIFF_RESTORE |
climsss1(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,19) |
|
./pkg/autodiff/autodiff_restore.F |
202 |
AUTODIFF_RESTORE |
climsst0(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,20) |
|
./pkg/autodiff/autodiff_restore.F |
203 |
AUTODIFF_RESTORE |
climsst1(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,21) |
|
./pkg/autodiff/autodiff_restore.F |
216 |
AUTODIFF_RESTORE |
DO I=1-Olx,sNx+Olx |
|
./pkg/autodiff/autodiff_restore.F |
218 |
AUTODIFF_RESTORE |
aqh0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
219 |
AUTODIFF_RESTORE |
aqh1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
220 |
AUTODIFF_RESTORE |
atemp0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
221 |
AUTODIFF_RESTORE |
atemp1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
222 |
AUTODIFF_RESTORE |
precip0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
223 |
AUTODIFF_RESTORE |
precip1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
224 |
AUTODIFF_RESTORE |
lwflux0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
225 |
AUTODIFF_RESTORE |
lwflux1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
226 |
AUTODIFF_RESTORE |
snowprecip0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
227 |
AUTODIFF_RESTORE |
snowprecip1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
229 |
AUTODIFF_RESTORE |
evap0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
230 |
AUTODIFF_RESTORE |
evap1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
232 |
AUTODIFF_RESTORE |
evap(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
235 |
AUTODIFF_RESTORE |
swdown0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
236 |
AUTODIFF_RESTORE |
swdown1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
237 |
AUTODIFF_RESTORE |
lwdown0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
238 |
AUTODIFF_RESTORE |
lwdown1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
242 |
AUTODIFF_RESTORE |
uwind0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
243 |
AUTODIFF_RESTORE |
uwind1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
244 |
AUTODIFF_RESTORE |
vwind0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,19) |
|
./pkg/autodiff/autodiff_restore.F |
245 |
AUTODIFF_RESTORE |
vwind1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,20) |
|
./pkg/autodiff/autodiff_restore.F |
258 |
AUTODIFF_RESTORE |
DO I=1-Olx,sNx+Olx |
|
./pkg/autodiff/autodiff_restore.F |
260 |
AUTODIFF_RESTORE |
xx_uwind0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
261 |
AUTODIFF_RESTORE |
xx_uwind1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
264 |
AUTODIFF_RESTORE |
xx_vwind0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
265 |
AUTODIFF_RESTORE |
xx_vwind1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
268 |
AUTODIFF_RESTORE |
xx_atemp0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
269 |
AUTODIFF_RESTORE |
xx_atemp1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
272 |
AUTODIFF_RESTORE |
xx_aqh0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
273 |
AUTODIFF_RESTORE |
xx_aqh1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
276 |
AUTODIFF_RESTORE |
xx_precip0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
277 |
AUTODIFF_RESTORE |
xx_precip1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
280 |
AUTODIFF_RESTORE |
xx_snowprecip0(I,J,bi,bj)= StoreCTRLS1(I,J,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
281 |
AUTODIFF_RESTORE |
xx_snowprecip1(I,J,bi,bj)= StoreCTRLS1(I,J,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
284 |
AUTODIFF_RESTORE |
xx_swflux0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
285 |
AUTODIFF_RESTORE |
xx_swflux1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
288 |
AUTODIFF_RESTORE |
xx_swdown0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
289 |
AUTODIFF_RESTORE |
xx_swdown1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
292 |
AUTODIFF_RESTORE |
xx_lwdown0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
293 |
AUTODIFF_RESTORE |
xx_lwdown1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
296 |
AUTODIFF_RESTORE |
xx_apressure0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,19) |
|
./pkg/autodiff/autodiff_restore.F |
297 |
AUTODIFF_RESTORE |
xx_apressure1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,20) |
|
./pkg/autodiff/autodiff_restore.F |
312 |
AUTODIFF_RESTORE |
DO I=1-Olx,sNx+Olx |
|
./pkg/autodiff/autodiff_restore.F |
313 |
AUTODIFF_RESTORE |
OBNt(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
314 |
AUTODIFF_RESTORE |
OBNs(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
315 |
AUTODIFF_RESTORE |
OBNu0(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
316 |
AUTODIFF_RESTORE |
OBNv0(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
317 |
AUTODIFF_RESTORE |
OBNt0(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
318 |
AUTODIFF_RESTORE |
OBNs0(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
319 |
AUTODIFF_RESTORE |
OBNu1(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
320 |
AUTODIFF_RESTORE |
OBNv1(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
321 |
AUTODIFF_RESTORE |
OBNt1(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
322 |
AUTODIFF_RESTORE |
OBNs1(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
324 |
AUTODIFF_RESTORE |
xx_obcsn0(I,K,bi,bj,1) = StoreOBCSN(I,K,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
325 |
AUTODIFF_RESTORE |
xx_obcsn0(I,K,bi,bj,2) = StoreOBCSN(I,K,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
326 |
AUTODIFF_RESTORE |
xx_obcsn0(I,K,bi,bj,3) = StoreOBCSN(I,K,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
327 |
AUTODIFF_RESTORE |
xx_obcsn0(I,K,bi,bj,4) = StoreOBCSN(I,K,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
328 |
AUTODIFF_RESTORE |
xx_obcsn1(I,K,bi,bj,1) = StoreOBCSN(I,K,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
329 |
AUTODIFF_RESTORE |
xx_obcsn1(I,K,bi,bj,2) = StoreOBCSN(I,K,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
330 |
AUTODIFF_RESTORE |
xx_obcsn1(I,K,bi,bj,3) = StoreOBCSN(I,K,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
331 |
AUTODIFF_RESTORE |
xx_obcsn1(I,K,bi,bj,4) = StoreOBCSN(I,K,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
345 |
AUTODIFF_RESTORE |
DO I=1-Olx,sNx+Olx |
|
./pkg/autodiff/autodiff_restore.F |
346 |
AUTODIFF_RESTORE |
OBSt(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
347 |
AUTODIFF_RESTORE |
OBSs(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
348 |
AUTODIFF_RESTORE |
OBSu0(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
349 |
AUTODIFF_RESTORE |
OBSv0(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
350 |
AUTODIFF_RESTORE |
OBSt0(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
351 |
AUTODIFF_RESTORE |
OBSs0(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
352 |
AUTODIFF_RESTORE |
OBSu1(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
353 |
AUTODIFF_RESTORE |
OBSv1(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
354 |
AUTODIFF_RESTORE |
OBSt1(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
355 |
AUTODIFF_RESTORE |
OBSs1(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
357 |
AUTODIFF_RESTORE |
xx_obcss0(I,K,bi,bj,1) = StoreOBCSS(I,K,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
358 |
AUTODIFF_RESTORE |
xx_obcss0(I,K,bi,bj,2) = StoreOBCSS(I,K,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
359 |
AUTODIFF_RESTORE |
xx_obcss0(I,K,bi,bj,3) = StoreOBCSS(I,K,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
360 |
AUTODIFF_RESTORE |
xx_obcss0(I,K,bi,bj,4) = StoreOBCSS(I,K,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
361 |
AUTODIFF_RESTORE |
xx_obcss1(I,K,bi,bj,1) = StoreOBCSS(I,K,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
362 |
AUTODIFF_RESTORE |
xx_obcss1(I,K,bi,bj,2) = StoreOBCSS(I,K,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
363 |
AUTODIFF_RESTORE |
xx_obcss1(I,K,bi,bj,3) = StoreOBCSS(I,K,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
364 |
AUTODIFF_RESTORE |
xx_obcss1(I,K,bi,bj,4) = StoreOBCSS(I,K,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
445 |
AUTODIFF_RESTORE |
DO I=1-Olx,sNx+Olx |
|
./pkg/autodiff/autodiff_restore.F |
446 |
AUTODIFF_RESTORE |
AREA(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
447 |
AUTODIFF_RESTORE |
HEFF(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
448 |
AUTODIFF_RESTORE |
HSNOW(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
449 |
AUTODIFF_RESTORE |
TICE(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
450 |
AUTODIFF_RESTORE |
RUNOFF(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
452 |
AUTODIFF_RESTORE |
stressDivergenceX(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
453 |
AUTODIFF_RESTORE |
stressDivergenceY(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
460 |
AUTODIFF_RESTORE |
UICE(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
461 |
AUTODIFF_RESTORE |
VICE(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
462 |
AUTODIFF_RESTORE |
ZETA(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
463 |
AUTODIFF_RESTORE |
ETA(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
465 |
AUTODIFF_RESTORE |
dwatn(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
466 |
AUTODIFF_RESTORE |
seaicemasku(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
467 |
AUTODIFF_RESTORE |
seaicemaskv(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
470 |
AUTODIFF_RESTORE |
seaice_sigma1(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
471 |
AUTODIFF_RESTORE |
seaice_sigma2(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
472 |
AUTODIFF_RESTORE |
seaice_sigma12(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
476 |
AUTODIFF_RESTORE |
HSALT(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,19) |
|
./pkg/autodiff/autodiff_restore.F |
78 |
AUTODIFF_RESTORE |
integer I,J,K |
|
./pkg/autodiff/autodiff_restore.F |
94 |
AUTODIFF_RESTORE |
DO I=1-Olx,sNx+Olx |
|
./pkg/autodiff/autodiff_restore.F |
95 |
AUTODIFF_RESTORE |
etan(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
96 |
AUTODIFF_RESTORE |
surfaceforcingTice(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
97 |
AUTODIFF_RESTORE |
taux0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
98 |
AUTODIFF_RESTORE |
taux1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
99 |
AUTODIFF_RESTORE |
tauy0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,5) |
|
./pkg/autodiff/autodiff_store.F |
100 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,6) = tauy1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
101 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,7) = qnet0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
102 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,8) = qnet1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
103 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,9) = empmr0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
104 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,10) = empmr1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
105 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,11) = sst0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
106 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,12) = sst1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
107 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,13) = sss0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
108 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,14) = sss1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
109 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,15) = saltflux0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
110 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,16) = saltflux1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
112 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,17) = qsw0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
113 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,18) = qsw1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
115 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,17) = 0. |
|
./pkg/autodiff/autodiff_store.F |
116 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,18) = 0. |
|
./pkg/autodiff/autodiff_store.F |
119 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,19) = pload0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
120 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,20) = pload1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
122 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,19) = 0. |
|
./pkg/autodiff/autodiff_store.F |
123 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,20) = 0. |
|
./pkg/autodiff/autodiff_store.F |
126 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,21) = etaH(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
127 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,22) = dEtaHdt(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
128 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,23) = PmEpR(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
130 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,21) = 0. |
|
./pkg/autodiff/autodiff_store.F |
131 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,22) = 0. |
|
./pkg/autodiff/autodiff_store.F |
132 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,23) = 0. |
|
./pkg/autodiff/autodiff_store.F |
142 |
AUTODIFF_STORE |
DO I=1-Olx,sNx+Olx |
|
./pkg/autodiff/autodiff_store.F |
143 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,1) = gs(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
144 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,2) = gt(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
146 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,3) = gtnm(I,J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
147 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,4) = gsnm(I,J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
148 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,5) = gunm(I,J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
149 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,6) = gvnm(I,J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
151 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,3) = gtnm1(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
152 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,4) = gsnm1(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
153 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,5) = gunm1(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
154 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,6) = gvnm1(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
156 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,7) = theta(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
157 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,8) = salt(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
158 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,9) = uvel(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
159 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,10) = vvel(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
160 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,11) = wvel(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
161 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,12) = totphihyd(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
163 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,13) = gtnm(I,J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
164 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,14) = gsnm(I,J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
165 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,15) = gunm(I,J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
166 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,16) = gvnm(I,J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
183 |
AUTODIFF_STORE |
DO I=1-Olx,sNx+Olx |
|
./pkg/autodiff/autodiff_store.F |
184 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,1) = hflux0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
185 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,2) = hflux1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
186 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,3) = sflux0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
187 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,4) = sflux1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
188 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,5) = ustress0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
189 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,6) = ustress1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
190 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,7) = vstress0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
191 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,8) = vstress1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
192 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,9) = wspeed0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
193 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,10) = wspeed1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
195 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,11) = swflux0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
196 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,12) = swflux1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
198 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,11) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
199 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,12) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
202 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,13) = runoff0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
203 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,14) = runoff1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
205 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,13) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
206 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,14) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
209 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,15) = apressure0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
210 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,16) = apressure1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
211 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,17) = siceload(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
213 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,15) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
214 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,16) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
215 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,17) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
218 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,18) = climsss0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
219 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,19) = climsss1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
221 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,18) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
222 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,19) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
225 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,20) = climsst0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
226 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,21) = climsst1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
228 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,20) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
229 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,21) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
242 |
AUTODIFF_STORE |
DO I=1-Olx,sNx+Olx |
|
./pkg/autodiff/autodiff_store.F |
244 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,1) = aqh0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
245 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,2) = aqh1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
246 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,3) = atemp0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
247 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,4) = atemp1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
248 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,5) = precip0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
249 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,6) = precip1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
250 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,7) = lwflux0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
251 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,8) = lwflux1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
252 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,9) = snowprecip0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
253 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,10) = snowprecip1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
255 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,11) = evap0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
256 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,12) = evap1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
258 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,11) = evap(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
259 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,12) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
262 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,13) = swdown0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
263 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,14) = swdown1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
264 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,15) = lwdown0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
265 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,16) = lwdown1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
267 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,13) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
268 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,14) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
269 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,15) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
270 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,16) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
274 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,17) = uwind0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
275 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,18) = uwind1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
276 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,19) = vwind0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
277 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,20) = vwind1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
279 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,17) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
280 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,18) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
281 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,19) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
282 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,20) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
295 |
AUTODIFF_STORE |
DO I=1-Olx,sNx+Olx |
|
./pkg/autodiff/autodiff_store.F |
297 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,1) = xx_uwind0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
298 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,2) = xx_uwind1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
300 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,1) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
301 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,2) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
304 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,3) = xx_vwind0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
305 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,4) = xx_vwind1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
307 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,3) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
308 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,4) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
311 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,5) = xx_atemp0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
312 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,6) = xx_atemp1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
314 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,5) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
315 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,6) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
318 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,7) = xx_aqh0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
319 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,8) = xx_aqh1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
321 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,7) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
322 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,8) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
325 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,9) = xx_precip0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
326 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,10) = xx_precip1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
328 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,9) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
329 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,10) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
332 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,11) = xx_snowprecip0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
333 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,12) = xx_snowprecip1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
335 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,11) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
336 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,12) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
339 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,13) = xx_swflux0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
340 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,14) = xx_swflux1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
342 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,13) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
343 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,14) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
346 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,15) = xx_swdown0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
347 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,16) = xx_swdown1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
349 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,15) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
350 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,16) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
353 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,17) = xx_lwdown0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
354 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,18) = xx_lwdown1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
356 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,17) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
357 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,18) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
360 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,19) = xx_apressure0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
361 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,20) = xx_apressure1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
363 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,19) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
364 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,20) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
379 |
AUTODIFF_STORE |
DO I=1-Olx,sNx+Olx |
|
./pkg/autodiff/autodiff_store.F |
380 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,1) = OBNt(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
381 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,2) = OBNs(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
382 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,3) = OBNu0(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
383 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,4) = OBNv0(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
384 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,5) = OBNt0(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
385 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,6) = OBNs0(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
386 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,7) = OBNu1(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
387 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,8) = OBNv1(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
388 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,9) = OBNt1(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
389 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,10) = OBNs1(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
391 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,11) = xx_obcsn0(I,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
392 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,12) = xx_obcsn0(I,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
393 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,13) = xx_obcsn0(I,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_store.F |
394 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,14) = xx_obcsn0(I,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_store.F |
395 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,15) = xx_obcsn1(I,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
396 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,16) = xx_obcsn1(I,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
397 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,17) = xx_obcsn1(I,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_store.F |
398 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,18) = xx_obcsn1(I,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_store.F |
400 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,11) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
401 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,12) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
402 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,13) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
403 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,14) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
404 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,15) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
405 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,16) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
406 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,17) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
407 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,18) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
421 |
AUTODIFF_STORE |
DO I=1-Olx,sNx+Olx |
|
./pkg/autodiff/autodiff_store.F |
422 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,1) = OBSt(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
423 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,2) = OBSs(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
424 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,3) = OBSu0(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
425 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,4) = OBSv0(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
426 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,5) = OBSt0(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
427 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,6) = OBSs0(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
428 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,7) = OBSu1(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
429 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,8) = OBSv1(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
430 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,9) = OBSt1(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
431 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,10)= OBSs1(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
433 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,11) = xx_obcss0(I,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
434 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,12) = xx_obcss0(I,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
435 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,13) = xx_obcss0(I,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_store.F |
436 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,14) = xx_obcss0(I,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_store.F |
437 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,15) = xx_obcss1(I,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
438 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,16) = xx_obcss1(I,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
439 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,17) = xx_obcss1(I,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_store.F |
440 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,18) = xx_obcss1(I,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_store.F |
442 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,11) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
443 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,12) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
444 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,13) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
445 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,14) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
446 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,15) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
447 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,16) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
448 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,17) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
449 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,18) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
548 |
AUTODIFF_STORE |
DO I=1-Olx,sNx+Olx |
|
./pkg/autodiff/autodiff_store.F |
549 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,1) = AREA(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
550 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,2) = HEFF(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
551 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,3) = HSNOW(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
552 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,4) = TICE(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
553 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,5) = RUNOFF(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
554 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,6) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
556 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,14) = stressDivergenceX(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
557 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,15) = stressDivergenceY(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
559 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,14) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
560 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,15) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
563 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,7) = UICE(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
564 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,8) = VICE(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
565 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,9) = ZETA(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
566 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,10) = ETA(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
568 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,11) = dwatn(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
569 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,12) = seaicemasku(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
570 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,13) = seaicemaskv(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
572 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,11) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
573 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,12) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
574 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,15) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
577 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,16) = seaice_sigma1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
578 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,17) = seaice_sigma2(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
579 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,18) = seaice_sigma12(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
581 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,16) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
582 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,17) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
583 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,18) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
586 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,7) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
587 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,8) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
588 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,9) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
589 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,10) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
590 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,11) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
591 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,12) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
592 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,13) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
593 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,14) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
594 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,15) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
595 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,16) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
596 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,17) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
597 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,18) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
600 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,19) = HSALT(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
602 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,19) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
78 |
AUTODIFF_STORE |
integer I,J,K |
|
./pkg/autodiff/autodiff_store.F |
94 |
AUTODIFF_STORE |
DO I=1-Olx,sNx+Olx |
|
./pkg/autodiff/autodiff_store.F |
95 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,1) = etan(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
96 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,2) = surfaceforcingTice(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
97 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,3) = taux0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
98 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,4) = taux1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
99 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,5) = tauy0(I,J,bi,bj) |
|
./pkg/autodiff/global_max_ad.F |
165 |
GLOBAL_ADMAX_R8 |
INTEGER I |
|
./pkg/autodiff/global_max_ad.F |
181 |
GLOBAL_ADMAX_R8 |
DO I=2,nThreads |
|
./pkg/autodiff/global_max_ad.F |
182 |
GLOBAL_ADMAX_R8 |
tmp = MAX(tmp,phiGMR8(1,I)) |
|
./pkg/autodiff/global_max_ad.F |
71 |
GLOBAL_ADMAX_R4 |
INTEGER I |
|
./pkg/autodiff/global_max_ad.F |
87 |
GLOBAL_ADMAX_R4 |
DO I=2,nThreads |
|
./pkg/autodiff/global_max_ad.F |
88 |
GLOBAL_ADMAX_R4 |
tmp = MAX(tmp,phiGMR4(1,I)) |
|
./eesupp/src/main.F |
120 |
NO PROCEDURE |
INTEGER I |
|
./eesupp/src/main.F |
174 |
NO PROCEDURE |
DO I=1,nThreads |
|
./eesupp/src/main.F |
176 |
NO PROCEDURE |
IF ( OMP_GET_THREAD_NUM() .EQ. I-1 ) THEN |
|
./eesupp/src/main.F |
178 |
NO PROCEDURE |
myThid = I |
|
./pkg/autodiff/ini_autodiff.F |
39 |
INI_AUTODIFF |
INTEGER I, J, K |
|
./pkg/autodiff/ini_autodiff.F |
53 |
INI_AUTODIFF |
DO I=1-Olx,sNx+Olx |
|
./pkg/autodiff/ini_autodiff.F |
64 |
INI_AUTODIFF |
DO I=1-Olx,sNx+Olx |
|
./pkg/autodiff/ini_autodiff.F |
71 |
INI_AUTODIFF |
EmPmR(I,J,bi,bj) = 0. _d 0 |
|
./pkg/cd_code/cd_code_ini_vars.F |
24 |
CD_CODE_INI_VARS |
INTEGER I, J, K |
|
./pkg/cd_code/cd_code_ini_vars.F |
36 |
CD_CODE_INI_VARS |
DO I=1-Olx,sNx+Olx |
|
./pkg/cd_code/cd_code_ini_vars.F |
37 |
CD_CODE_INI_VARS |
uNM1(I,J,K,bi,bj)=0. _d 0 |
|
./pkg/cd_code/cd_code_ini_vars.F |
38 |
CD_CODE_INI_VARS |
vNM1(I,J,K,bi,bj)=0. _d 0 |
|
./pkg/cd_code/cd_code_ini_vars.F |
39 |
CD_CODE_INI_VARS |
uVeld(I,J,K,bi,bj)=0. _d 0 |
|
./pkg/cd_code/cd_code_ini_vars.F |
40 |
CD_CODE_INI_VARS |
vVeld(I,J,K,bi,bj)=0. _d 0 |
|
./pkg/cd_code/cd_code_ini_vars.F |
47 |
CD_CODE_INI_VARS |
DO I=1-Olx,sNx+Olx |
|
./pkg/cd_code/cd_code_ini_vars.F |
48 |
CD_CODE_INI_VARS |
etaNm1(I,J,bi,bj)=0. _d 0 |
|
./pkg/cfc/cfc11_forcing.F |
49 |
CFC11_FORCING |
INTEGER I,J |
|
./pkg/cfc/cfc11_surfforcing.F |
37 |
CFC11_SURFFORCING |
INTEGER I,J,K |
|
./pkg/cfc/cfc12_forcing.F |
49 |
CFC12_FORCING |
INTEGER I,J |
|
./pkg/cfc/cfc12_surfforcing.F |
37 |
CFC12_SURFFORCING |
INTEGER I,J,K |
|
./pkg/cfc/cfc_fields_load.F |
178 |
CFC_FIELDS_LOAD |
FIce(I,J,bi,bj) = AREA(I,J,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
37 |
CHEAPAML_INIT_VARIA |
INTEGER I, J |
|
./pkg/chronos/chronos.F |
318 |
GET_TIME |
DO I=15,48 |
|
./pkg/chronos/chronos.F |
319 |
GET_TIME |
MNDY(I,1) = MNDY(I-12,1) + 365 |
|
./pkg/chronos/chronos.F |
444 |
INTERP_TIME |
DO I=15,48 |
|
./pkg/chronos/chronos.F |
445 |
INTERP_TIME |
MNDY(I,1) = MNDY(I-12,1) + 365 |
|
./pkg/chronos/chronos.F |
586 |
TIC_TIME |
DO I=15,48 |
|
./pkg/chronos/chronos.F |
587 |
TIC_TIME |
MNDY(I,1) = MNDY(I-12,1) + 365 |
|
./pkg/chronos/chronos.F |
784 |
ASTRO |
DO 100 I=15,48 |
|
./pkg/chronos/chronos.F |
785 |
ASTRO |
MNDY(I,1) = MNDY(I-12,1) + 365 |
|
./pkg/chronos/chronos.F |
832 |
ASTRO |
DO I = 1,IRUN |
|
./pkg/chronos/chronos.F |
834 |
ASTRO |
HC = COS( FAC+ALON(I)*DG2RD ) |
|
./pkg/chronos/chronos.F |
835 |
ASTRO |
SJ = SIN(ALAT(I)*DG2RD) |
|
./pkg/chronos/chronos.F |
838 |
ASTRO |
COSZ(I) = SJ*ZS + CJ*ZC*HC |
|
./pkg/chronos/chronos.F |
839 |
ASTRO |
IF( COSZ(I).LT.ZERO ) COSZ(I) = ZERO |
|
./eesupp/src/print.F |
1014 |
PRINT_MAPRS |
DO I=accMin, accMax, accStr |
|
./eesupp/src/print.F |
1015 |
PRINT_MAPRS |
iDx = accBase-1+(bi-1)*accStep+I |
|
./eesupp/src/print.F |
1036 |
PRINT_MAPRS |
DO I=accMin, accMax, accStr |
|
./eesupp/src/print.F |
1037 |
PRINT_MAPRS |
iDx = accBase-1+(bi-1)*accStep+I |
|
./eesupp/src/print.F |
1055 |
PRINT_MAPRS |
DO I=accMin,accMax,accStr |
|
./eesupp/src/print.F |
1058 |
PRINT_MAPRS |
val = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
1060 |
PRINT_MAPRS |
val = fld(I,K,J,bi,bk) |
|
./eesupp/src/print.F |
1062 |
PRINT_MAPRS |
val = fld(K,I,J,bk,bi) |
|
./eesupp/src/print.F |
1230 |
PRINT_MAPRL |
INTEGER I, J, K, iStrngLo, iStrngHi, iBuf, iDx |
|
./eesupp/src/print.F |
1246 |
PRINT_MAPRL |
DO I=iMin, iMax, iStr |
|
./eesupp/src/print.F |
1247 |
PRINT_MAPRL |
IF ( printMapIncludesZeros .OR. fld(I,J,K,bi,bj) .NE. 0. ) |
|
./eesupp/src/print.F |
1249 |
PRINT_MAPRL |
IF ( fld(I,J,K,bi,bj) .LT. fMin ) |
|
./eesupp/src/print.F |
1250 |
PRINT_MAPRL |
& fMin = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
1251 |
PRINT_MAPRL |
IF ( fld(I,J,K,bi,bj) .GT. fMax ) |
|
./eesupp/src/print.F |
1252 |
PRINT_MAPRL |
& fMax = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
1294 |
PRINT_MAPRL |
& '// SYMBOLS (CMIN->CMAX): ',(chList(I:I),I=1,lChList) |
|
./eesupp/src/print.F |
1448 |
PRINT_MAPRL |
DO I=accMin, accMax, accStr |
|
./eesupp/src/print.F |
1449 |
PRINT_MAPRL |
iDx = accBase-1+(bi-1)*accStep+I |
|
./eesupp/src/print.F |
1469 |
PRINT_MAPRL |
DO I=accMin, accMax, accStr |
|
./eesupp/src/print.F |
1470 |
PRINT_MAPRL |
iDx = accBase-1+(bi-1)*accStep+I |
|
./eesupp/src/print.F |
1487 |
PRINT_MAPRL |
DO I=accMin,accMax,accStr |
|
./eesupp/src/print.F |
1490 |
PRINT_MAPRL |
val = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
1492 |
PRINT_MAPRL |
val = fld(I,K,J,bi,bk) |
|
./eesupp/src/print.F |
1494 |
PRINT_MAPRL |
val = fld(K,I,J,bk,bi) |
|
./eesupp/src/print.F |
797 |
PRINT_MAPRS |
INTEGER I, J, K, iStrngLo, iStrngHi, iBuf, iDx |
|
./eesupp/src/print.F |
813 |
PRINT_MAPRS |
DO I=iMin, iMax, iStr |
|
./eesupp/src/print.F |
814 |
PRINT_MAPRS |
IF (printMapIncludesZeros .OR. fld(I,J,K,bi,bj) .NE. 0.) THEN |
|
./eesupp/src/print.F |
815 |
PRINT_MAPRS |
IF ( fld(I,J,K,bi,bj) .LT. fMin ) |
|
./eesupp/src/print.F |
816 |
PRINT_MAPRS |
& fMin = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
817 |
PRINT_MAPRS |
IF ( fld(I,J,K,bi,bj) .GT. fMax ) |
|
./eesupp/src/print.F |
818 |
PRINT_MAPRS |
& fMax = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
860 |
PRINT_MAPRS |
& '// SYMBOLS (CMIN->CMAX): ',(chList(I:I),I=1,lChList) |
|
./pkg/cost/cost_depth.F |
35 |
COST_DEPTH |
INTEGER I, J, K |
|
./pkg/cost/cost_depth.F |
43 |
COST_DEPTH |
DO I=1,sNx |
|
./pkg/cost/cost_depth.F |
44 |
COST_DEPTH |
IF ( maskC(I,J,K,BI,BJ) .NE. 0. ) THEN |
|
./pkg/cost/cost_depth.F |
45 |
COST_DEPTH |
objf_depth(BI,BJ) = objf_depth(BI,BJ) + R_low(I,J,BI,BJ) |
|
./pkg/ctrl/ctrl_getobcsn.F |
149 |
CTRL_GETOBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
193 |
CTRL_GETOBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
279 |
CTRL_GETOBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
323 |
CTRL_GETOBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
371 |
CTRL_GETOBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
141 |
CTRL_GETOBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
177 |
CTRL_GETOBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
260 |
CTRL_GETOBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
296 |
CTRL_GETOBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
346 |
CTRL_GETOBCSS |
j = OB_Js(I,bi,bj) |
|
./eesupp/src/timers.F |
219 |
TIMER_CONTROL |
INTEGER I |
|
./eesupp/src/timers.F |
540 |
TIMER_CONTROL |
DO 10 I = 1, nTimers(myThreadId) |
|
./eesupp/src/timers.F |
542 |
TIMER_CONTROL |
& timerNames(I,myThreadId)(1:timerNameLen(I,myThreadId)) |
|
./eesupp/src/timers.F |
547 |
TIMER_CONTROL |
& timerUser(I,myThreadId) |
|
./eesupp/src/timers.F |
551 |
TIMER_CONTROL |
& timerSys(I,myThreadId) |
|
./eesupp/src/timers.F |
555 |
TIMER_CONTROL |
& timerWall(I,myThreadId) |
|
./eesupp/src/timers.F |
559 |
TIMER_CONTROL |
& timerStarts(I,myThreadId) |
|
./eesupp/src/timers.F |
55 |
NO PROCEDURE |
INTEGER I |
|
./eesupp/src/timers.F |
563 |
TIMER_CONTROL |
& timerStops(I,myThreadId) |
|
./eesupp/src/timers.F |
570 |
TIMER_CONTROL |
$ values(j,I,myThreadId)/timerUser(I,myThreadId), |
|
./eesupp/src/timers.F |
571 |
TIMER_CONTROL |
$ values(j,I,myThreadId)/timerWall(I,myThreadId), |
|
./eesupp/src/timers.F |
572 |
TIMER_CONTROL |
$ 1.D0*values(j,I,myThreadId) |
|
./eesupp/src/timers.F |
580 |
TIMER_CONTROL |
$ i_result(j,I,myThreadId)/timerUser(I,myThreadId) |
|
./eesupp/src/timers.F |
581 |
TIMER_CONTROL |
$ ,i_result(j,I,myThreadId)/timerWall(I,myThreadId),1.D0 |
|
./eesupp/src/timers.F |
582 |
TIMER_CONTROL |
$ *i_result(j,I,myThreadId) |
|
./eesupp/src/timers.F |
62 |
NO PROCEDURE |
DO 10 I = 1, nTimers |
|
./eesupp/src/timers.F |
63 |
NO PROCEDURE |
IF ( name .NE. timerNames(I) ) GOTO 10 |
|
./eesupp/src/timers.F |
64 |
NO PROCEDURE |
TIMER_INDEX = I |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
103 |
CTRL_MASK_SET_XZ |
j = OB_J(I,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
184 |
CTRL_OBCSVOL |
j = Ob_Jn(I,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
220 |
CTRL_OBCSVOL |
j = Ob_Js(I,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
342 |
CTRL_OBCSVOL |
j = Ob_Jn(I,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
378 |
CTRL_OBCSVOL |
j = Ob_Js(I,bi,bj) |
|
./eesupp/src/utils.F |
208 |
LCASE |
INTEGER I, L |
|
./eesupp/src/utils.F |
212 |
LCASE |
DO 10 I = 1, LEN(string) |
|
./eesupp/src/utils.F |
213 |
LCASE |
L = INDEX(UPPER,string(I:I)) |
|
./eesupp/src/utils.F |
215 |
LCASE |
string(I:I) = LOWER(L:L) |
|
./eesupp/src/utils.F |
326 |
UCASE |
INTEGER I, L |
|
./eesupp/src/utils.F |
330 |
UCASE |
DO 10 I = 1, LEN(string) |
|
./eesupp/src/utils.F |
331 |
UCASE |
L = INDEX(LOWER,string(I:I)) |
|
./eesupp/src/utils.F |
333 |
UCASE |
string(I:I) = UPPER(L:L) |
|
./eesupp/src/write_utils.F |
896 |
WRITE_XY_XLINE_RS |
DO I=1,sNx |
|
./eesupp/src/write_utils.F |
897 |
WRITE_XY_XLINE_RS |
xcoord(sNx*(bi-1)+I)=fld(I,J,bi,bj) |
|
./eesupp/src/write_utils.F |
963 |
WRITE_XY_YLINE_RS |
I = sCoord |
|
./eesupp/src/write_utils.F |
964 |
WRITE_XY_YLINE_RS |
WRITE(num1,'(I10)') I |
|
./eesupp/src/write_utils.F |
978 |
WRITE_XY_YLINE_RS |
ycoord(sNy*(bj-1)+J)=fld(I,J,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
184 |
CTRL_VOLFLUX |
j = Ob_Jn(I,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
233 |
CTRL_VOLFLUX |
j = Ob_Js(I,bi,bj) |
|
./pkg/debug/chksum_tiled.F |
16 |
CHKSUM_TILED |
INTEGER I,J,K |
|
./pkg/debug/chksum_tiled.F |
27 |
CHKSUM_TILED |
DO I=1,sNx |
|
./pkg/debug/chksum_tiled.F |
28 |
CHKSUM_TILED |
Fmin=min(Fmin,fld(I,J,K,bi,bj)) |
|
./pkg/debug/chksum_tiled.F |
29 |
CHKSUM_TILED |
Fmax=max(Fmax,fld(I,J,K,bi,bj)) |
|
./pkg/debug/chksum_tiled.F |
30 |
CHKSUM_TILED |
Fmn=Fmn+fld(I,J,K,bi,bj) |
|
./pkg/debug/chksum_tiled.F |
38 |
CHKSUM_TILED |
DO I=1,sNx |
|
./pkg/debug/chksum_tiled.F |
39 |
CHKSUM_TILED |
Frms=Frms+(fld(I,J,K,bi,bj)-Fmn)**2 |
|
./pkg/debug/debug_fld_stats_rl.F |
31 |
DEBUG_FLD_STATS_RL |
INTEGER bi,bj,I,J,K |
|
./pkg/debug/debug_fld_stats_rl.F |
49 |
DEBUG_FLD_STATS_RL |
DO I=1,sNx |
|
./pkg/debug/debug_fld_stats_rl.F |
50 |
DEBUG_FLD_STATS_RL |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/debug/debug_fld_stats_rl.F |
88 |
DEBUG_FLD_STATS_RL |
DO I=1,sNx |
|
./pkg/debug/debug_fld_stats_rl.F |
89 |
DEBUG_FLD_STATS_RL |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/debug/debug_fld_stats_rs.F |
31 |
DEBUG_FLD_STATS_RS |
INTEGER bi,bj,I,J,K |
|
./pkg/debug/debug_fld_stats_rs.F |
49 |
DEBUG_FLD_STATS_RS |
DO I=1,sNx |
|
./pkg/debug/debug_fld_stats_rs.F |
50 |
DEBUG_FLD_STATS_RS |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/debug/debug_fld_stats_rs.F |
88 |
DEBUG_FLD_STATS_RS |
DO I=1,sNx |
|
./pkg/debug/debug_fld_stats_rs.F |
89 |
DEBUG_FLD_STATS_RS |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/dic/bio_export.F |
58 |
BIO_EXPORT |
INTEGER I,J,k |
|
./pkg/dic/calcite_saturation.F |
51 |
CALCITE_SATURATION |
INTEGER I,J,k |
|
./pkg/dic/car_flux.F |
52 |
CAR_FLUX |
INTEGER I,J,k, ko, kop1 |
|
./pkg/dic/car_flux_omega_top.F |
54 |
CAR_FLUX_OMEGA_TOP |
INTEGER I,J,k, ko |
|
./pkg/dic/o2_surfforcing.F |
47 |
O2_SURFFORCING |
INTEGER I,J,K |
|
./pkg/dic/phos_flux.F |
53 |
PHOS_FLUX |
INTEGER I,J,k, ko, kop1 |
|
./pkg/ecco/cost_obcsn.F |
129 |
COST_OBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ecco/cost_obcsn.F |
166 |
COST_OBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ecco/cost_obcsn.F |
202 |
COST_OBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ecco/cost_obcsn.F |
239 |
COST_OBCSN |
j = OB_Jn(I,bi,bj) |
|
./pkg/ecco/cost_obcss.F |
129 |
COST_OBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ecco/cost_obcss.F |
166 |
COST_OBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ecco/cost_obcss.F |
202 |
COST_OBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ecco/cost_obcss.F |
239 |
COST_OBCSS |
j = OB_Js(I,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
206 |
COST_OBCSVOL |
j = OB_Jn(I,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
248 |
COST_OBCSVOL |
j = OB_Js(I,bi,bj) |
|
./pkg/exch2/w2_eeboot.F |
120 |
W2_EEBOOT |
DO I=1,nTiles |
|
./pkg/exch2/w2_eeboot.F |
121 |
W2_EEBOOT |
IF ( exch2_myFace(I) .NE. 0 ) THEN |
|
./pkg/exch2/w2_eeboot.F |
137 |
W2_EEBOOT |
exch2_tProc(I) = np |
|
./pkg/exch2/w2_eeboot.F |
138 |
W2_EEBOOT |
W2_procTileList(bi,bj,np) = I |
|
./pkg/exch2/w2_eeboot.F |
139 |
W2_EEBOOT |
IF ( np.EQ.thisProc ) W2_myTileList(bi,bj) = I |
|
./pkg/exch2/w2_eeboot.F |
45 |
W2_EEBOOT |
INTEGER myThid, I, J |
|
./pkg/exch2/w2_eeboot.F |
53 |
W2_EEBOOT |
DO I = 1,W2_maxNbTiles |
|
./pkg/exch2/w2_eeboot.F |
54 |
W2_EEBOOT |
exch2_tNx(I) = 0 |
|
./pkg/exch2/w2_eeboot.F |
55 |
W2_EEBOOT |
exch2_tNy(I) = 0 |
|
./pkg/exch2/w2_eeboot.F |
56 |
W2_EEBOOT |
exch2_tBasex(I) = 0 |
|
./pkg/exch2/w2_eeboot.F |
57 |
W2_EEBOOT |
exch2_tBasey(I) = 0 |
|
./pkg/exch2/w2_eeboot.F |
58 |
W2_EEBOOT |
exch2_txGlobalo(I) = 0 |
|
./pkg/exch2/w2_eeboot.F |
59 |
W2_EEBOOT |
exch2_tyGlobalo(I) = 0 |
|
./pkg/exch2/w2_eeboot.F |
60 |
W2_EEBOOT |
exch2_isWedge(I) = 0 |
|
./pkg/exch2/w2_eeboot.F |
61 |
W2_EEBOOT |
exch2_isNedge(I) = 0 |
|
./pkg/exch2/w2_eeboot.F |
62 |
W2_EEBOOT |
exch2_isEedge(I) = 0 |
|
./pkg/exch2/w2_eeboot.F |
63 |
W2_EEBOOT |
exch2_isSedge(I) = 0 |
|
./pkg/exch2/w2_eeboot.F |
64 |
W2_EEBOOT |
exch2_tProc(I) = 0 |
|
./pkg/exch2/w2_eeboot.F |
65 |
W2_EEBOOT |
exch2_myFace(I) = 0 |
|
./pkg/exch2/w2_eeboot.F |
66 |
W2_EEBOOT |
exch2_mydNx(I) = 0 |
|
./pkg/exch2/w2_eeboot.F |
67 |
W2_EEBOOT |
exch2_mydNy(I) = 0 |
|
./pkg/exch2/w2_eeboot.F |
68 |
W2_EEBOOT |
exch2_nNeighbours(I) = 0 |
|
./pkg/exch2/w2_eeboot.F |
70 |
W2_EEBOOT |
exch2_neighbourId(J,I) = 0 |
|
./pkg/exch2/w2_eeboot.F |
71 |
W2_EEBOOT |
exch2_opposingSend(J,I) = 0 |
|
./pkg/exch2/w2_eeboot.F |
73 |
W2_EEBOOT |
exch2_pij(ii,J,I) = 0 |
|
./pkg/exch2/w2_eeboot.F |
75 |
W2_EEBOOT |
exch2_oi(J,I) = 0 |
|
./pkg/exch2/w2_eeboot.F |
76 |
W2_EEBOOT |
exch2_oj(J,I) = 0 |
|
./pkg/exch2/w2_eeboot.F |
77 |
W2_EEBOOT |
exch2_iLo(J,I) = 0 |
|
./pkg/exch2/w2_eeboot.F |
78 |
W2_EEBOOT |
exch2_iHi(J,I) = 0 |
|
./pkg/exch2/w2_eeboot.F |
79 |
W2_EEBOOT |
exch2_jLo(J,I) = 0 |
|
./pkg/exch2/w2_eeboot.F |
80 |
W2_EEBOOT |
exch2_jHi(J,I) = 0 |