| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
964 |
ASTRO |
DO 200 K=2,DAYSCY |
|
./pkg/fizhi/fizhi_moist.F |
1177 |
RAS |
SUBROUTINE RAS( NN, LNG, LENC, K, NLTOP, nlayr, DT |
|
./pkg/fizhi/fizhi_moist.F |
1194 |
RAS |
_RL UOI(lng,nlayr,ntracedim), POI(lng,K) |
|
./pkg/fizhi/fizhi_moist.F |
1195 |
RAS |
_RL QOI(lng,K), PRS(lng,K+1), PRJ(lng,K+1) |
|
./pkg/fizhi/fizhi_moist.F |
1197 |
RAS |
_RL RAINS(lng,K), CLN(lng,K), CLF(lng,K) |
|
./pkg/fizhi/fizhi_moist.F |
1198 |
RAS |
_RL cldmas(lng,K), detrain(lng,K) |
|
./pkg/fizhi/fizhi_moist.F |
1202 |
RAS |
_RL TCU(lng,K), QCU(lng,K) |
|
./pkg/fizhi/fizhi_moist.F |
1203 |
RAS |
_RL ucu(lng,K,ntracedim) |
|
./pkg/fizhi/fizhi_moist.F |
1204 |
RAS |
_RL ALF(lng,K), BET(lng,K), GAM(lng,K) |
|
./pkg/fizhi/fizhi_moist.F |
1205 |
RAS |
*, ETA(lng,K), HOI(lng,K) |
|
./pkg/fizhi/fizhi_moist.F |
1206 |
RAS |
*, PRH(lng,K), PRI(lng,K) |
|
./pkg/fizhi/fizhi_moist.F |
1207 |
RAS |
_RL HST(lng,K), QOL(lng,K), GMH(lng,K) |
|
./pkg/fizhi/fizhi_moist.F |
1225 |
RAS |
_RL cmass(lng,K) |
|
./pkg/fizhi/fizhi_moist.F |
1229 |
RAS |
_RL thbef(lng,K) |
|
./pkg/fizhi/fizhi_moist.F |
1251 |
RAS |
KM1 = K - 1 |
|
./pkg/fizhi/fizhi_moist.F |
1252 |
RAS |
KP1 = K + 1 |
|
./pkg/fizhi/fizhi_moist.F |
1266 |
RAS |
IC(NC) = K - NC |
|
./pkg/fizhi/fizhi_moist.F |
1296 |
RAS |
CALL CLOUD(nn,lng, LENC, K, NLTOP, nlayr, IB, RASBLF,SETRAS,FRAC |
|
./pkg/fizhi/fizhi_moist.F |
1317 |
RAS |
if(cmass(i,K).gt.0.) clf(i,ib) = clf(i,ib) + tx1(i) |
|
./pkg/fizhi/fizhi_moist.F |
1339 |
RAS |
DO L=IB,K |
|
./pkg/fizhi/fizhi_moist.F |
1347 |
RAS |
DO L=IB,K |
|
./pkg/fizhi/fizhi_moist.F |
1499 |
CLOUD |
SUBROUTINE CLOUD(nn,lng, LENC, K, NLTOP, nlayr, IC, RASALF |
|
./pkg/fizhi/fizhi_moist.F |
1635 |
CLOUD |
integer nn,lng,LENC,K,NLTOP,nlayr,ic,ntracedim, ntracer |
|
./pkg/fizhi/fizhi_moist.F |
1639 |
CLOUD |
_RL POI(lng,K),QOI(lng,K),PRS(lng,K+1),PRJ(lng,K+1) |
|
./pkg/fizhi/fizhi_moist.F |
1642 |
CLOUD |
_RL TCU(lng,K),QCU(lng,K),ucu(lng,k,ntracedim),CMASS(lng,K) |
|
./pkg/fizhi/fizhi_moist.F |
1643 |
CLOUD |
_RL ALF(lng,K), BET(lng,K), GAM(lng,K), PRH(lng,K), PRI(lng,K) |
|
./pkg/fizhi/fizhi_moist.F |
1644 |
CLOUD |
_RL HOL(LENC,K), ETA(LENC,K), HST(LENC,K), QOL(LENC,K) |
|
./pkg/fizhi/fizhi_moist.F |
1645 |
CLOUD |
_RL GMH(LENC,K) |
|
./pkg/fizhi/fizhi_moist.F |
1681 |
CLOUD |
KM1 = K - 1 |
|
./pkg/fizhi/fizhi_moist.F |
1689 |
CLOUD |
DO 2050 L=1,K |
|
./pkg/fizhi/fizhi_moist.F |
1696 |
CLOUD |
DO 2070 L=1,K |
|
./pkg/fizhi/fizhi_moist.F |
1712 |
CLOUD |
DO 10 L=1,K |
|
./pkg/fizhi/fizhi_moist.F |
1720 |
CLOUD |
do L=1,K |
|
./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 |
1770 |
CLOUD |
TX2(I) = HOL(I,K) - HST(I,IC) |
|
./pkg/fizhi/fizhi_moist.F |
1795 |
CLOUD |
if (IC1 .lt. K) then |
|
./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 |
1811 |
CLOUD |
DO L = 1,K |
|
./pkg/fizhi/fizhi_moist.F |
1827 |
CLOUD |
ETA(I,K) = 1.0 |
|
./pkg/fizhi/fizhi_moist.F |
1830 |
CLOUD |
TX4(I) = PRS(II,K) |
|
./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 |
1867 |
CLOUD |
TX1(I) = HOL(II,K) |
|
./pkg/fizhi/fizhi_moist.F |
1924 |
CLOUD |
DO L = 1,K |
|
./pkg/fizhi/fizhi_moist.F |
1942 |
CLOUD |
DO 520 L=IC,K |
|
./pkg/fizhi/fizhi_moist.F |
1960 |
CLOUD |
TX8(I) = HOL(II,K) - TEM |
|
./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 |
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 |
2003 |
CLOUD |
TEM = (POI(II,KM1) - POI(II,K)) / (PRH(II,K) - PRH(II,KM1)) |
|
./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 |
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 |
2092 |
CLOUD |
TX1(I) = GMH(I,K) |
|
./pkg/fizhi/fizhi_moist.F |
2150 |
CLOUD |
TEM = (PRS(II,K+1)-PRS(II,K))*(CMB2PA*FRAC) |
|
./pkg/fizhi/fizhi_moist.F |
2171 |
CLOUD |
DO L = IC,K |
|
./pkg/fizhi/fizhi_moist.F |
2174 |
CLOUD |
if(L.lt.K)then |
|
./pkg/fizhi/fizhi_moist.F |
2192 |
CLOUD |
DO 990 L=IC,K |
|
./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_turb.F |
4005 |
VTRI0 |
SUBROUTINE VTRI0 ( A,B,C,F,Y,K,irun) |
|
./pkg/fizhi/fizhi_turb.F |
4009 |
VTRI0 |
_RL A(irun,K),B(irun,K),C(irun,K),Y(irun,K+1) |
|
./pkg/fizhi/fizhi_turb.F |
4010 |
VTRI0 |
_RL F(irun,K) |
|
./pkg/fizhi/fizhi_turb.F |
4018 |
VTRI0 |
DO 100 L = 2,K |
|
./pkg/fizhi/fizhi_turb.F |
4027 |
VTRI0 |
DO 200 L = K,1,-1 |
|
./pkg/fizhi/fizhi_turb.F |
4038 |
VTRI1 |
SUBROUTINE VTRI1 ( A,B,Y,K,irun) |
|
./pkg/fizhi/fizhi_turb.F |
4042 |
VTRI1 |
_RL A(irun,K),B(irun,K),Y(irun,K+1) |
|
./pkg/fizhi/fizhi_turb.F |
4046 |
VTRI1 |
DO 200 L = K,1,-1 |
|
./pkg/fizhi/fizhi_turb.F |
4057 |
VTRI2 |
SUBROUTINE VTRI2 ( A,B,C,F,Y,K,irun) |
|
./pkg/fizhi/fizhi_turb.F |
4061 |
VTRI2 |
_RL A(irun,K),B(irun,K),C(irun,K),F(irun,K) |
|
./pkg/fizhi/fizhi_turb.F |
4062 |
VTRI2 |
_RL Y(irun,K+1) |
|
./pkg/fizhi/fizhi_turb.F |
4066 |
VTRI2 |
DO 100 L = 2,K |
|
./pkg/fizhi/fizhi_turb.F |
4072 |
VTRI2 |
DO 200 L = K,1,-1 |
|
./pkg/fizhi/fizhi_turb.F |
4486 |
ZCSUB |
DO 100 K=1,5 |
|
./pkg/fizhi/fizhi_turb.F |
4488 |
ZCSUB |
AA(I,K) = AA1(K) |
|
./pkg/fizhi/fizhi_turb.F |
4489 |
ZCSUB |
IF( INT2(I).EQ.1 ) AA(I,K) = AA2(K) |
|
./pkg/fizhi/fizhi_turb.F |
4490 |
ZCSUB |
IF( INT3(I).EQ.1 ) AA(I,K) = AA3(K) |
|
./pkg/fizhi/fizhi_turb.F |
4491 |
ZCSUB |
IF( INT4(I).EQ.1 ) AA(I,K) = AA4(K) |
|
./pkg/fizhi/fizhi_utils.F |
118 |
PASTE |
SUBROUTINE PASTE(B,A,IB,IA,L,K) |
|
./pkg/fizhi/fizhi_utils.F |
120 |
PASTE |
integer ia,ib,L,K |
|
./pkg/fizhi/fizhi_utils.F |
125 |
PASTE |
OFFSET = IB*(K-1) |
|
./pkg/fizhi/fizhi_utils.F |
136 |
PSTBMP |
SUBROUTINE PSTBMP(B,A,IB,IA,L,K) |
|
./pkg/fizhi/fizhi_utils.F |
138 |
PSTBMP |
integer ia,ib,L,K |
|
./pkg/fizhi/fizhi_utils.F |
143 |
PSTBMP |
OFFSET = IB*(K-1) |
|
./pkg/fizhi/fizhi_utils.F |
154 |
STRINT |
SUBROUTINE STRINT(A,B,IA,IB,L,K) |
|
./pkg/fizhi/fizhi_utils.F |
156 |
STRINT |
integer ia,ib,L,K |
|
./pkg/fizhi/fizhi_utils.F |
161 |
STRINT |
OFFSET = IB*(K-1) |
|
./pkg/fizhi/fizhi_utils.F |
60 |
STRIP |
SUBROUTINE STRIP(A,B,IA,IB,L,K) |
|
./pkg/fizhi/fizhi_utils.F |
62 |
STRIP |
integer ia,ib,L,K |
|
./pkg/fizhi/fizhi_utils.F |
67 |
STRIP |
OFFSET = IB*(K-1) |
|
./pkg/fizhi/fizhi_utils.F |
89 |
STRIPINT |
SUBROUTINE STRIPINT(A,B,IA,IB,L,K) |
|
./pkg/fizhi/fizhi_utils.F |
91 |
STRIPINT |
integer ia,ib,L,K |
|
./pkg/fizhi/fizhi_utils.F |
96 |
STRIPINT |
OFFSET = IB*(K-1) |
|
./pkg/fizhi/update_chemistry_exports.F |
321 |
INTERP_OZ |
DO 32 K=1,nozlevs |
|
./pkg/ggl90/ggl90_calc.F |
151 |
GGL90_CALC |
DO K=1,Nr |
|
./pkg/ggl90/ggl90_calc.F |
152 |
GGL90_CALC |
Km1 = MAX(K-1,1) |
|
./pkg/ggl90/ggl90_calc.F |
158 |
GGL90_CALC |
recip_hFacI(I,J,K)=0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
160 |
GGL90_CALC |
& recip_hFacI(I,J,K)=1. _d 0/hFac |
|
./pkg/ggl90/ggl90_calc_visc.F |
30 |
GGL90_CALC_VISC |
INTEGER bi,bj,iMin,iMax,jMin,jMax,K |
|
./pkg/ggl90/ggl90_calc_visc.F |
7 |
GGL90_CALC_VISC |
I bi,bj,iMin,iMax,jMin,jMax,K, |
|
./pkg/ggl90/ggl90_init_varia.F |
147 |
GGL90_INIT_VARIA |
DO K=1,Nr |
|
./pkg/ggl90/ggl90_init_varia.F |
150 |
GGL90_INIT_VARIA |
GGL90TKE(I,J,K,bi,bj) = MAX(GGL90TKE(I,J,K,bi,bj), |
|
./pkg/ggl90/ggl90_init_varia.F |
151 |
GGL90_INIT_VARIA |
& GGL90TKEmin)*maskC(I,J,K,bi,bj) |
|
./pkg/ggl90/ggl90_init_varia.F |
37 |
GGL90_INIT_VARIA |
INTEGER I, J, K |
|
./pkg/ggl90/ggl90_init_varia.F |
46 |
GGL90_INIT_VARIA |
DO K=1,Nr |
|
./pkg/ggl90/ggl90_init_varia.F |
47 |
GGL90_INIT_VARIA |
Km1 = MAX(K-1,1) |
|
./pkg/ggl90/ggl90_init_varia.F |
50 |
GGL90_INIT_VARIA |
GGL90viscArU(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
51 |
GGL90_INIT_VARIA |
GGL90viscArV(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
52 |
GGL90_INIT_VARIA |
GGL90diffKr(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
54 |
GGL90_INIT_VARIA |
GGL90TKE(I,J,K,bi,bj)=GGL90eps*maskC(I,J,K,bi,bj) |
|
./pkg/ggl90/ggl90_init_varia.F |
57 |
GGL90_INIT_VARIA |
GGL90TKE(I,J,K,bi,bj)=GGL90TKEmin*maskC(I,J,K,bi,bj) |
|
./pkg/ggl90/ggl90_init_varia.F |
76 |
GGL90_INIT_VARIA |
DO K=1,Nr |
|
./pkg/ggl90/ggl90_init_varia.F |
79 |
GGL90_INIT_VARIA |
IDEMIX_E(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
80 |
GGL90_INIT_VARIA |
IDEMIX_V0(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
81 |
GGL90_INIT_VARIA |
IDEMIX_tau_d(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
14 |
GMREDI_SLOPE_PSI |
I LrhoW, LrhoS, depthZ, K, |
|
./pkg/gmredi/gmredi_slope_psi.F |
54 |
GMREDI_SLOPE_PSI |
INTEGER K,bi,bj,myThid |
|
./pkg/icefront/icefront_init_fixed.F |
100 |
ICEFRONT_INIT_FIXED |
& K_icefront(I,J,bi,bj) = K |
|
./pkg/icefront/icefront_init_fixed.F |
37 |
ICEFRONT_INIT_FIXED |
INTEGER I, J, K, bi, bj |
|
./pkg/icefront/icefront_init_fixed.F |
98 |
ICEFRONT_INIT_FIXED |
DO K = 1 , Nr |
|
./pkg/icefront/icefront_init_fixed.F |
99 |
ICEFRONT_INIT_FIXED |
IF ( R_icefront(I,J,bi,bj) .GT. ABS(rF(K))) |
|
./pkg/icefront/icefront_init_varia.F |
31 |
ICEFRONT_INIT_VARIA |
INTEGER I, J, K, bi, bj |
|
./pkg/icefront/icefront_init_varia.F |
36 |
ICEFRONT_INIT_VARIA |
DO K = 1, Nr |
|
./pkg/icefront/icefront_thermodynamics.F |
113 |
ICEFRONT_THERMODYNAMICS |
tLoc = theta(I,J,K,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
114 |
ICEFRONT_THERMODYNAMICS |
sLoc = MAX(salt(I,J,K,bi,bj), 0. _d 0) |
|
./pkg/icefront/icefront_thermodynamics.F |
121 |
ICEFRONT_THERMODYNAMICS |
IF ( K .EQ. K_icefront(I,J,bi,bj)) THEN |
|
./pkg/icefront/icefront_thermodynamics.F |
122 |
ICEFRONT_THERMODYNAMICS |
pLoc = 0.5*(ABS(R_icefront(I,J,bi,bj))+ABS(rF(K))) |
|
./pkg/icefront/icefront_thermodynamics.F |
146 |
ICEFRONT_THERMODYNAMICS |
FreshWaterFlux(I,J) = maskC(I,J,K,bi,bj) * |
|
./pkg/icefront/icefront_thermodynamics.F |
150 |
ICEFRONT_THERMODYNAMICS |
HeatFlux(I,J) = maskC(I,J,K,bi,bj) * HeatCapacity_Cp * |
|
./pkg/icefront/icefront_thermodynamics.F |
155 |
ICEFRONT_THERMODYNAMICS |
icefront_TendT(i,j,K,bi,bj) = - HeatFlux(I,J)* eps5 |
|
./pkg/icefront/icefront_thermodynamics.F |
156 |
ICEFRONT_THERMODYNAMICS |
icefront_TendS(i,j,K,bi,bj) = FreshWaterFlux(I,J) * |
|
./pkg/icefront/icefront_thermodynamics.F |
162 |
ICEFRONT_THERMODYNAMICS |
icefront_TendT(i,j,K,bi,bj) = icefront_TendT(i,j,K,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
164 |
ICEFRONT_THERMODYNAMICS |
icefront_TendS(i,j,K,bi,bj) = icefront_TendS(i,j,K,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
169 |
ICEFRONT_THERMODYNAMICS |
icefront_TendT(i,j,K,bi,bj) = icefront_TendT(i,j,K,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
171 |
ICEFRONT_THERMODYNAMICS |
& * (ABS(R_icefront(I,J,bi,bj))-ABS(rF(K))) |
|
./pkg/icefront/icefront_thermodynamics.F |
172 |
ICEFRONT_THERMODYNAMICS |
& * recip_drF(K) |
|
./pkg/icefront/icefront_thermodynamics.F |
173 |
ICEFRONT_THERMODYNAMICS |
icefront_TendS(i,j,K,bi,bj) = icefront_TendS(i,j,K,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
175 |
ICEFRONT_THERMODYNAMICS |
& * (ABS(R_icefront(I,J,bi,bj))-ABS(rF(K))) |
|
./pkg/icefront/icefront_thermodynamics.F |
176 |
ICEFRONT_THERMODYNAMICS |
& * recip_drF(K) |
|
./pkg/icefront/icefront_thermodynamics.F |
60 |
ICEFRONT_THERMODYNAMICS |
INTEGER I,J,K |
|
./pkg/icefront/icefront_thermodynamics.F |
87 |
ICEFRONT_THERMODYNAMICS |
DO K = 1, Nr |
|
./pkg/icefront/icefront_thermodynamics.F |
93 |
ICEFRONT_THERMODYNAMICS |
& .AND. K .LE. K_icefront(I,J,bi,bj) ) THEN |
|
./pkg/icefront/icefront_thermodynamics.F |
95 |
ICEFRONT_THERMODYNAMICS |
& *abs(wVEL(I,J,K,bi,bj)) |
|
./pkg/kl10/kl10_calc.F |
100 |
KL10_CALC |
RS(K)=rC(K) |
|
./pkg/kl10/kl10_calc.F |
105 |
KL10_CALC |
IF ( (rhoS(K).LT.rhoS(K-1)).AND.(maskC(I,J,K,bi |
|
./pkg/kl10/kl10_calc.F |
107 |
KL10_CALC |
JJ=K-1 |
|
./pkg/kl10/kl10_calc.F |
108 |
KL10_CALC |
DO WHILE ( (JJ.GT.0).AND.(rhoS(K).LT.rhoS(JJ)) ) |
|
./pkg/kl10/kl10_calc.F |
112 |
KL10_CALC |
rhoS(JJ+1:K)=cshift(rhoS(JJ+1:K),-1) |
|
./pkg/kl10/kl10_calc.F |
113 |
KL10_CALC |
RS(JJ+1:K)=cshift(RS(JJ+1:K),-1) |
|
./pkg/kl10/kl10_calc.F |
137 |
KL10_CALC |
DO K=1,Nr |
|
./pkg/kl10/kl10_calc.F |
138 |
KL10_CALC |
IF (K.LT.Nr) THEN |
|
./pkg/kl10/kl10_calc.F |
140 |
KL10_CALC |
& (rhoS(K) - rhoS(K+1))*recip_drC(K+1) |
|
./pkg/kl10/kl10_calc.F |
144 |
KL10_CALC |
& (rhoS(K-1) - rhoS(K))*recip_drC(K) |
|
./pkg/kl10/kl10_calc.F |
154 |
KL10_CALC |
KLviscTmp = MAX( viscArNr(K), 0.2*(RS(K)-rC(K))* |
|
./pkg/kl10/kl10_calc.F |
155 |
KL10_CALC |
& (RS(K)-rC(K))*sqrt(buoyFreqc)) |
|
./pkg/kl10/kl10_calc.F |
157 |
KL10_CALC |
IF (K.GT.1) THEN |
|
./pkg/kl10/kl10_calc.F |
158 |
KL10_CALC |
Km1=K-1 |
|
./pkg/kl10/kl10_calc.F |
165 |
KL10_CALC |
KLviscAr(I,J,K,bi,bj) = MAX(KTemp,viscArNr(K)) |
|
./pkg/kl10/kl10_calc.F |
166 |
KL10_CALC |
KLdiffKr(I,J,K,bi,bj) = MAX(KTemp, |
|
./pkg/kl10/kl10_calc.F |
168 |
KL10_CALC |
& diffKr(I,J,K,bi,bj) ) |
|
./pkg/kl10/kl10_calc.F |
170 |
KL10_CALC |
& diffKrNrS(K) ) |
|
./pkg/kl10/kl10_calc.F |
187 |
KL10_CALC |
IF (hfacW(I+di,J-1,K,bi,bj).GT.0.000001) THEN |
|
./pkg/kl10/kl10_calc.F |
188 |
KL10_CALC |
dz = 0.5*(drF(K)*hfacW(I+di,J-1,K,bi,bj) |
|
./pkg/kl10/kl10_calc.F |
192 |
KL10_CALC |
& -1,K,bi,bj))/dz |
|
./pkg/kl10/kl10_calc.F |
193 |
KL10_CALC |
epsw(di)=tempu*tempu*KLviscAr(I+di,J-1,K,bi |
|
./pkg/kl10/kl10_calc.F |
206 |
KL10_CALC |
IF (hfacS(I-1,J+di,K,bi,bj).GT.0.000001) THEN |
|
./pkg/kl10/kl10_calc.F |
207 |
KL10_CALC |
dz = 0.5*(drF(K)*hfacS(I-1,J+di,K,bi,bj) |
|
./pkg/kl10/kl10_calc.F |
211 |
KL10_CALC |
& +di,K,bi,bj))/dz |
|
./pkg/kl10/kl10_calc.F |
212 |
KL10_CALC |
epss(di)=tempu*tempu*KLviscAr(I-1,J+di,K,bi |
|
./pkg/kl10/kl10_calc.F |
61 |
KL10_CALC |
INTEGER I, J, K, Km1, JJ |
|
./pkg/kl10/kl10_calc.F |
81 |
KL10_CALC |
K=1 |
|
./pkg/kl10/kl10_calc.F |
82 |
KL10_CALC |
CALL FIND_RHO_SCALAR(theta(I,J,K,bi,bj), salt(I,J,K,bi,bj), |
|
./pkg/kl10/kl10_calc.F |
83 |
KL10_CALC |
& totPhiHyd(I,J,K,bi,bj),rhot,myThid ) |
|
./pkg/kl10/kl10_calc.F |
96 |
KL10_CALC |
DO K=2,Nr |
|
./pkg/kl10/kl10_calc.F |
97 |
KL10_CALC |
CALL FIND_RHO_SCALAR(theta(I,J,K,bi,bj), salt(I,J,K,bi |
|
./pkg/kl10/kl10_calc.F |
98 |
KL10_CALC |
& ,bj),totPhiHyd(I,J,K,bi,bj),rhot,myThid ) |
|
./pkg/kl10/kl10_calc.F |
99 |
KL10_CALC |
rhoS(K)=rhot |
|
./pkg/kpp/kpp_calc_visc.F |
29 |
KPP_CALC_VISC |
INTEGER bi,bj,iMin,iMax,jMin,jMax,K |
|
./pkg/kpp/kpp_calc_visc.F |
7 |
KPP_CALC_VISC |
I bi,bj,iMin,iMax,jMin,jMax,K, |
|
./pkg/kpp/kpp_routines.F |
1698 |
STATEKPP |
INTEGER I, J, K |
|
./pkg/kpp/kpp_routines.F |
1743 |
STATEKPP |
DO K = 2, Nr |
|
./pkg/kpp/kpp_routines.F |
1793 |
STATEKPP |
I bi, bj, 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, K, K, |
|
./pkg/kpp/kpp_routines.F |
1797 |
STATEKPP |
I bi, bj, 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, K, K, |
|
./pkg/kpp/kpp_routines.F |
1802 |
STATEKPP |
TTALPHA(I,J,K) = WORK1 (I,J) |
|
./pkg/kpp/kpp_routines.F |
1803 |
STATEKPP |
SSBETA(I,J,K) = WORK2 (I,J) |
|
./pkg/kpp/kpp_routines.F |
1804 |
STATEKPP |
DBLOC(I,J,K-1) = gravity * (RHOK(I,J) - RHOKM1(I,J)) / |
|
./pkg/kpp/kpp_routines.F |
1806 |
STATEKPP |
DBSFC(I,J,K) = gravity * (RHOK(I,J) - RHO1K (I,J)) / |
|
./pkg/kpp/kpp_routines.F |
1892 |
KPP_DOUBLEDIFF |
INTEGER I, J, K |
|
./pkg/kpp/kpp_routines.F |
1922 |
KPP_DOUBLEDIFF |
DO K = 1, Nr |
|
./pkg/kpp/kpp_routines.F |
1923 |
KPP_DOUBLEDIFF |
Km1 = MAX(K-1,1) |
|
./pkg/kpp/kpp_routines.F |
1926 |
KPP_DOUBLEDIFF |
alphaDT(I,J) = ( theta(I,J,Km1,bi,bj)-theta(I,J,K,bi,bj) ) |
|
./pkg/kpp/kpp_routines.F |
1927 |
KPP_DOUBLEDIFF |
& * 0.5 _d 0 * ABS( TTALPHA(I,J,Km1) + TTALPHA(I,J,K) ) |
|
./pkg/kpp/kpp_routines.F |
1928 |
KPP_DOUBLEDIFF |
betaDS(I,J) = ( salt(I,J,Km1,bi,bj)-salt(I,J,K,bi,bj) ) |
|
./pkg/kpp/kpp_routines.F |
1929 |
KPP_DOUBLEDIFF |
& * 0.5 _d 0 * ( SSBETA(I,J,Km1) + SSBETA(I,J,K) ) |
|
./pkg/kpp/kpp_routines.F |
1934 |
KPP_DOUBLEDIFF |
IF ( K .GT. 1 ) THEN |
|
./pkg/kpp/kpp_routines.F |
1980 |
KPP_DOUBLEDIFF |
kappaRT(I,J,K) = kappaRT(I,J,K) + nuddt(I,J) |
|
./pkg/kpp/kpp_routines.F |
1981 |
KPP_DOUBLEDIFF |
kappaRS(I,J,K) = kappaRS(I,J,K) + nudds(I,J) |
|
./model/src/calc_ivdc.F |
35 |
CALC_IVDC |
INTEGER bi,bj,iMin,iMax,jMin,jMax,K |
|
./model/src/calc_ivdc.F |
9 |
CALC_IVDC |
I bi, bj, iMin, iMax, jMin, jMax, K, |
|
./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 |
24 |
MOM_VI_CORIOLIS |
INTEGER bi,bj,K |
|
./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 |
67 |
MOM_VI_CORIOLIS |
& )*vBarXY*recip_dxC(i,j,bi,bj)*_maskW(I,J,K,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
7 |
MOM_VI_CORIOLIS |
I bi,bj,K, |
|
./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_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 |
127 |
MOM_VI_U_VERTSHEAR |
& * recip_drF(K) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
128 |
MOM_VI_U_VERTSHEAR |
& * recip_deepFac2C(K)*recip_rhoFacC(K) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
132 |
MOM_VI_U_VERTSHEAR |
& * recip_drF(K) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
133 |
MOM_VI_U_VERTSHEAR |
& * recip_deepFac2C(K)*recip_rhoFacC(K) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
24 |
MOM_VI_U_VERTSHEAR |
INTEGER bi,bj,K |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
49 |
MOM_VI_U_VERTSHEAR |
Kp1=min(K+1,Nr) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
51 |
MOM_VI_U_VERTSHEAR |
IF (K.EQ.Nr) mask_Kp1=0. |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
52 |
MOM_VI_U_VERTSHEAR |
Km1=max(K-1,1) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
54 |
MOM_VI_U_VERTSHEAR |
IF (K.EQ.1) mask_Km1=0. |
|
./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 |
71 |
MOM_VI_U_VERTSHEAR |
& )*mask_Km1*deepFac2F(K)*rhoFacF(K) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
7 |
MOM_VI_U_VERTSHEAR |
I bi,bj,K, |
|
./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 |
85 |
MOM_VI_U_VERTSHEAR |
& )*mask_Km1*deepFac2F(K)*rhoFacF(K) |
|
./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_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 |
127 |
MOM_VI_V_VERTSHEAR |
& * recip_drF(K) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
128 |
MOM_VI_V_VERTSHEAR |
& * recip_deepFac2C(K)*recip_rhoFacC(K) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
132 |
MOM_VI_V_VERTSHEAR |
& * recip_drF(K) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
133 |
MOM_VI_V_VERTSHEAR |
& * recip_deepFac2C(K)*recip_rhoFacC(K) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
24 |
MOM_VI_V_VERTSHEAR |
INTEGER bi,bj,K |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
49 |
MOM_VI_V_VERTSHEAR |
Kp1=min(K+1,Nr) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
51 |
MOM_VI_V_VERTSHEAR |
IF (K.EQ.Nr) mask_Kp1=0. |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
52 |
MOM_VI_V_VERTSHEAR |
Km1=max(K-1,1) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
54 |
MOM_VI_V_VERTSHEAR |
IF (K.EQ.1) mask_Km1=0. |
|
./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 |
71 |
MOM_VI_V_VERTSHEAR |
& )*mask_Km1*deepFac2F(K)*rhoFacF(K) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
7 |
MOM_VI_V_VERTSHEAR |
I bi,bj,K, |
|
./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 |
85 |
MOM_VI_V_VERTSHEAR |
& )*mask_Km1*deepFac2F(K)*rhoFacF(K) |
|
./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 |
40 |
MON_ADVCFL |
DO K=1,Nr |
|
./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 |
40 |
MON_ADVCFLW |
DO K=1,Nr |
|
./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 |
42 |
MON_ADVCFLW2 |
DO K=2,Nr |
|
./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 |
133 |
MON_STATS_RL |
DO K=1,myNr |
|
./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 |
67 |
MON_STATS_RL |
DO K=1,myNr |
|
./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 |
100 |
MON_STATS_RS |
DO K=1,myNr |
|
./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 |
53 |
MON_STATS_RS |
DO K=1,myNr |
|
./pkg/monitor/mon_stats_rs.F |
56 |
MON_STATS_RS |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
127 |
MON_SURFCOR |
ddPI=atm_cp*( (rC(K-1)/atm_po)**atm_kappa |
|
./pkg/monitor/mon_surfcor.F |
128 |
MON_SURFCOR |
& -(rC( K )/atm_po)**atm_kappa ) |
|
./pkg/my82/my82_calc.F |
111 |
MY82_CALC |
SH(I,J,K) = SHtmp |
|
./pkg/my82/my82_calc.F |
112 |
MY82_CALC |
SM(I,J,K) = SHtmp*(beta1-beta2*RiFlux)/(beta3-beta4*RiFlux) |
|
./pkg/my82/my82_calc.F |
115 |
MY82_CALC |
& b1*(SH(I,J,K)*GH(I,J) + SM(I,J,K)*GM(I,J)) ) |
|
./pkg/my82/my82_calc.F |
116 |
MY82_CALC |
tke(I,J,K) = sqrt(tkesquare) |
|
./pkg/my82/my82_calc.F |
138 |
MY82_CALC |
DO K = 2, Nr |
|
./pkg/my82/my82_calc.F |
141 |
MY82_CALC |
GM(I,J) = GM(I,J) + tke(I,J,K)*rF(K) |
|
./pkg/my82/my82_calc.F |
142 |
MY82_CALC |
GH(I,J) = GH(I,J) + tke(I,J,K) |
|
./pkg/my82/my82_calc.F |
158 |
MY82_CALC |
DO K = 1, Nr |
|
./pkg/my82/my82_calc.F |
162 |
MY82_CALC |
tkel = MYhbl(I,J,bi,bj)*tke(I,J,K) |
|
./pkg/my82/my82_calc.F |
164 |
MY82_CALC |
MYviscAr(I,J,K,bi,bj) = MYhbl(I,J,bi,bj)*tkel*SM(I,J,K) |
|
./pkg/my82/my82_calc.F |
165 |
MY82_CALC |
MYdiffKr(I,J,K,bi,bj) = MYhbl(I,J,bi,bj)*tkel*SH(I,J,K) |
|
./pkg/my82/my82_calc.F |
167 |
MY82_CALC |
MYviscAr(I,J,K,bi,bj) = MAX(MYviscAr(I,J,K,bi,bj), |
|
./pkg/my82/my82_calc.F |
169 |
MY82_CALC |
MYdiffKr(I,J,K,bi,bj) = MAX(MYdiffKr(I,J,K,bi,bj), |
|
./pkg/my82/my82_calc.F |
176 |
MY82_CALC |
MYviscAr(I,J,K,bi,bj) = MIN(MYviscAr(I,J,K,bi,bj),MYviscMax) |
|
./pkg/my82/my82_calc.F |
177 |
MY82_CALC |
& * maskC(I,J,K,bi,bj) |
|
./pkg/my82/my82_calc.F |
178 |
MY82_CALC |
MYdiffKr(I,J,K,bi,bj) = MIN(MYdiffKr(I,J,K,bi,bj),MYdiffMax) |
|
./pkg/my82/my82_calc.F |
179 |
MY82_CALC |
& * maskC(I,J,K,bi,bj) |
|
./pkg/my82/my82_calc.F |
62 |
MY82_CALC |
INTEGER I, J, K |
|
./pkg/my82/my82_calc.F |
85 |
MY82_CALC |
DO K = 1, Nr |
|
./pkg/my82/my82_calc.F |
88 |
MY82_CALC |
SH(I,J,K) = 0. _d 0 |
|
./pkg/my82/my82_calc.F |
89 |
MY82_CALC |
SM(I,J,K) = 0. _d 0 |
|
./pkg/my82/my82_calc.F |
90 |
MY82_CALC |
tke(I,J,K) = 0. _d 0 |
|
./pkg/my82/my82_calc.F |
96 |
MY82_CALC |
DO K = 2, Nr |
|
./pkg/my82/my82_calc.F |
98 |
MY82_CALC |
I bi, bj, K, iMin, iMax, jMin, jMax, |
|
./pkg/my82/my82_calc_visc.F |
28 |
MY82_CALC_VISC |
INTEGER bi,bj,iMin,iMax,jMin,jMax,K |
|
./pkg/my82/my82_calc_visc.F |
6 |
MY82_CALC_VISC |
I bi,bj,iMin,iMax,jMin,jMax,K, |
|
./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 |
106 |
MY82_RI_NUMBER |
& *recip_drC(K) |
|
./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 |
109 |
MY82_RI_NUMBER |
& *recip_drC(K) |
|
./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 |
11 |
MY82_RI_NUMBER |
I bi, bj, K, iMin, iMax, jMin, jMax, |
|
./pkg/my82/my82_ri_number.F |
73 |
MY82_RI_NUMBER |
Km1 = MAX(1,K-1) |
|
./pkg/my82/my82_ri_number.F |
90 |
MY82_RI_NUMBER |
I iMin, iMax, jMin, jMax, K, |
|
./pkg/my82/my82_ri_number.F |
95 |
MY82_RI_NUMBER |
I iMin, iMax, jMin, jMax, K, |
|
./pkg/my82/my82_ri_number.F |
96 |
MY82_RI_NUMBER |
I theta(1-OLx,1-OLy,K,bi,bj), salt(1-OLx,1-OLy,K,bi,bj), |
|
./pkg/my82/my82_ri_number.F |
98 |
MY82_RI_NUMBER |
I K, bi, bj, myThid ) |
|
./model/src/convective_adjustment.F |
136 |
CONVECTIVE_ADJUSTMENT |
DO K=kTop,kBottom,kDir |
|
./model/src/convective_adjustment.F |
149 |
CONVECTIVE_ADJUSTMENT |
I iMin, iMax, jMin, jMax, K+deltaK, |
|
./model/src/convective_adjustment.F |
150 |
CONVECTIVE_ADJUSTMENT |
I theta(1-OLx,1-OLy,K-1,bi,bj), |
|
./model/src/convective_adjustment.F |
151 |
CONVECTIVE_ADJUSTMENT |
I salt (1-OLx,1-OLy,K-1,bi,bj), |
|
./model/src/convective_adjustment.F |
153 |
CONVECTIVE_ADJUSTMENT |
I K-1, bi, bj, myThid ) |
|
./model/src/convective_adjustment.F |
163 |
CONVECTIVE_ADJUSTMENT |
I iMin, iMax, jMin, jMax, K+deltaK, |
|
./model/src/convective_adjustment.F |
164 |
CONVECTIVE_ADJUSTMENT |
I theta(1-OLx,1-OLy,K,bi,bj), |
|
./model/src/convective_adjustment.F |
165 |
CONVECTIVE_ADJUSTMENT |
I salt (1-OLx,1-OLy,K,bi,bj), |
|
./model/src/convective_adjustment.F |
167 |
CONVECTIVE_ADJUSTMENT |
I K, bi, bj, myThid ) |
|
./model/src/convective_adjustment.F |
183 |
CONVECTIVE_ADJUSTMENT |
I bi,bj,K,rhoKm1,rhoK, |
|
./model/src/convective_adjustment.F |
62 |
CONVECTIVE_ADJUSTMENT |
INTEGER i, j, K, kTop, kBottom, kDir, deltaK |
|
./model/src/convective_adjustment.F |
91 |
CONVECTIVE_ADJUSTMENT |
DO K=1,Nr |
|
./model/src/convective_adjustment.F |
94 |
CONVECTIVE_ADJUSTMENT |
ConvectCount(i,j,K) = 0. |
|
./model/src/convective_adjustment_ini.F |
136 |
CONVECTIVE_ADJUSTMENT_INI |
DO K=kTop,kBottom,kDir |
|
./model/src/convective_adjustment_ini.F |
149 |
CONVECTIVE_ADJUSTMENT_INI |
I iMin, iMax, jMin, jMax, K+deltaK, |
|
./model/src/convective_adjustment_ini.F |
150 |
CONVECTIVE_ADJUSTMENT_INI |
I theta(1-OLx,1-OLy,K-1,bi,bj), |
|
./model/src/convective_adjustment_ini.F |
151 |
CONVECTIVE_ADJUSTMENT_INI |
I salt (1-OLx,1-OLy,K-1,bi,bj), |
|
./model/src/convective_adjustment_ini.F |
153 |
CONVECTIVE_ADJUSTMENT_INI |
I K-1, bi, bj, myThid ) |
|
./model/src/convective_adjustment_ini.F |
163 |
CONVECTIVE_ADJUSTMENT_INI |
I iMin, iMax, jMin, jMax, K+deltaK, |
|
./model/src/convective_adjustment_ini.F |
164 |
CONVECTIVE_ADJUSTMENT_INI |
I theta(1-OLx,1-OLy,K,bi,bj), |
|
./model/src/convective_adjustment_ini.F |
165 |
CONVECTIVE_ADJUSTMENT_INI |
I salt (1-OLx,1-OLy,K,bi,bj), |
|
./model/src/convective_adjustment_ini.F |
167 |
CONVECTIVE_ADJUSTMENT_INI |
I K, bi, bj, myThid ) |
|
./model/src/convective_adjustment_ini.F |
181 |
CONVECTIVE_ADJUSTMENT_INI |
I bi,bj,K,rhoKm1,rhoK, |
|
./model/src/convective_adjustment_ini.F |
66 |
CONVECTIVE_ADJUSTMENT_INI |
INTEGER i, j, K, kTop, kBottom, kDir, deltaK |
|
./model/src/convective_adjustment_ini.F |
91 |
CONVECTIVE_ADJUSTMENT_INI |
DO K=1,Nr |
|
./pkg/obcs/obcs_adjust_uvice.F |
105 |
OBCS_ADJUST_UVICE |
& _maskW(I,OB_Js(I,bi,bj)+1,K,bi,bj) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
108 |
OBCS_ADJUST_UVICE |
& _maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
114 |
OBCS_ADJUST_UVICE |
& * _maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
117 |
OBCS_ADJUST_UVICE |
& * _maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
120 |
OBCS_ADJUST_UVICE |
& * _maskW(I,OB_Js(I,bi,bj),K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
122 |
OBCS_ADJUST_UVICE |
if ( _maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_adjust_uvice.F |
123 |
OBCS_ADJUST_UVICE |
& _maskS(I,OB_Js(I,bi,bj)+3,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_adjust_uvice.F |
127 |
OBCS_ADJUST_UVICE |
& _maskS(I,OB_Js(I,bi,bj)+2,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
130 |
OBCS_ADJUST_UVICE |
if ( _maskW(I,OB_Js(I,bi,bj) ,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_adjust_uvice.F |
131 |
OBCS_ADJUST_UVICE |
& _maskW(I,OB_Js(I,bi,bj)+2,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_adjust_uvice.F |
135 |
OBCS_ADJUST_UVICE |
& _maskW(I,OB_Js(I,bi,bj)+1,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
151 |
OBCS_ADJUST_UVICE |
& _maskW(OB_Ie(J,bi,bj),J,K,bi,bj) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
154 |
OBCS_ADJUST_UVICE |
& _maskS(OB_Ie(J,bi,bj),J,K,bi,bj) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
160 |
OBCS_ADJUST_UVICE |
& * _maskW(OB_Ie(J,bi,bj),J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
163 |
OBCS_ADJUST_UVICE |
& * _maskW(OB_Ie(J,bi,bj),J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
166 |
OBCS_ADJUST_UVICE |
& * _maskS(OB_Ie(J,bi,bj),J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
168 |
OBCS_ADJUST_UVICE |
if ( _maskW(OB_Ie(J,bi,bj) ,J,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_adjust_uvice.F |
169 |
OBCS_ADJUST_UVICE |
& _maskW(OB_Ie(J,bi,bj)-2,J,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_adjust_uvice.F |
173 |
OBCS_ADJUST_UVICE |
& _maskW(OB_Ie(J,bi,bj)-1,J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
176 |
OBCS_ADJUST_UVICE |
if ( _maskS(OB_Ie(J,bi,bj) ,J,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_adjust_uvice.F |
177 |
OBCS_ADJUST_UVICE |
& _maskS(OB_Ie(J,bi,bj)-2,J,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_adjust_uvice.F |
181 |
OBCS_ADJUST_UVICE |
& _maskS(OB_Ie(J,bi,bj)-1,J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
196 |
OBCS_ADJUST_UVICE |
& _maskW(OB_Iw(J,bi,bj)+1,J,K,bi,bj) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
204 |
OBCS_ADJUST_UVICE |
& _maskS(OB_Iw(J,bi,bj)+1,J,K,bi,bj) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
210 |
OBCS_ADJUST_UVICE |
& * _maskW(OB_Iw(J,bi,bj)+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
213 |
OBCS_ADJUST_UVICE |
& * _maskW(OB_Iw(J,bi,bj)+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
216 |
OBCS_ADJUST_UVICE |
& * _maskS(OB_Iw(J,bi,bj),J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
218 |
OBCS_ADJUST_UVICE |
if ( _maskW(OB_Iw(J,bi,bj)+1,J,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_adjust_uvice.F |
219 |
OBCS_ADJUST_UVICE |
& _maskW(OB_Iw(J,bi,bj)+3,J,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_adjust_uvice.F |
223 |
OBCS_ADJUST_UVICE |
& _maskW(OB_Iw(J,bi,bj)+2,J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
226 |
OBCS_ADJUST_UVICE |
if ( _maskS(OB_Iw(J,bi,bj) ,J,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_adjust_uvice.F |
227 |
OBCS_ADJUST_UVICE |
& _maskS(OB_Iw(J,bi,bj)+2,J,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_adjust_uvice.F |
231 |
OBCS_ADJUST_UVICE |
& _maskS(OB_Iw(J,bi,bj)+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
40 |
OBCS_ADJUST_UVICE |
INTEGER I,J,K,bi,bj |
|
./pkg/obcs/obcs_adjust_uvice.F |
43 |
OBCS_ADJUST_UVICE |
K = 1 |
|
./pkg/obcs/obcs_adjust_uvice.F |
55 |
OBCS_ADJUST_UVICE |
& _maskW(I,OB_Jn(I,bi,bj),K,bi,bj) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
58 |
OBCS_ADJUST_UVICE |
& _maskS(I,OB_Jn(I,bi,bj),K,bi,bj) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
64 |
OBCS_ADJUST_UVICE |
& _maskS(I,OB_Jn(I,bi,bj),K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
67 |
OBCS_ADJUST_UVICE |
& _maskS(I,OB_Jn(I,bi,bj),K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
70 |
OBCS_ADJUST_UVICE |
& _maskW(I,OB_Jn(I,bi,bj),K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
72 |
OBCS_ADJUST_UVICE |
if ( _maskS(I,OB_Jn(I,bi,bj) ,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_adjust_uvice.F |
73 |
OBCS_ADJUST_UVICE |
& _maskS(I,OB_Jn(I,bi,bj)-2,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_adjust_uvice.F |
77 |
OBCS_ADJUST_UVICE |
& _maskS(I,OB_Jn(I,bi,bj)-1,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
80 |
OBCS_ADJUST_UVICE |
if ( _maskW(I,OB_Jn(I,bi,bj) ,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_adjust_uvice.F |
81 |
OBCS_ADJUST_UVICE |
& _maskW(I,OB_Jn(I,bi,bj)-2,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_adjust_uvice.F |
85 |
OBCS_ADJUST_UVICE |
& _maskW(I,OB_Jn(I,bi,bj)-1,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
189 |
OBCS_APPLY_UV |
uFld(Iobc+1,j,k,bi,bj) = OBEu(j,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
110 |
OBCS_CALC_STEVENS |
INTEGER I, J, K |
|
./pkg/obcs/obcs_calc_stevens.F |
180 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
181 |
OBCS_CALC_STEVENS |
uMerPri(K) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
183 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
185 |
OBCS_CALC_STEVENS |
uMerBar = uMerBar + uVel(I-1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
187 |
OBCS_CALC_STEVENS |
uMerBar = uMerBar + OBEuStevens(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
189 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
190 |
OBCS_CALC_STEVENS |
drFBar = drFBar + drF(K)* _hFacW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
193 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
195 |
OBCS_CALC_STEVENS |
uMerPri(K) = (uVel(I-1,J,K,bi,bj)-uMerBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
197 |
OBCS_CALC_STEVENS |
uMerPri(K) = (OBEuStevens(J,K,bi,bj)-uMerBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
199 |
OBCS_CALC_STEVENS |
& * _maskW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
204 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
205 |
OBCS_CALC_STEVENS |
uMerBar = uMerBar + OBEu(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
206 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
207 |
OBCS_CALC_STEVENS |
drFBar = drFBar + drF(K)* _hFacW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
212 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
213 |
OBCS_CALC_STEVENS |
OBEu(J,K,bi,bj) = (uMerBar + uMerPri(K)) |
|
./pkg/obcs/obcs_calc_stevens.F |
214 |
OBCS_CALC_STEVENS |
& * _maskW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
217 |
OBCS_CALC_STEVENS |
OBEw(J,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
235 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
239 |
OBCS_CALC_STEVENS |
cflMer(J,K) = 0.5 _d 0 * _dxC(I-1,J,bi,bj)/dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
242 |
OBCS_CALC_STEVENS |
gFacM(J,K) = ABS(MIN(SIGN(1.D0,uVel(I,J,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
244 |
OBCS_CALC_STEVENS |
cflMer(J,K) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
245 |
OBCS_CALC_STEVENS |
gFacM (J,K) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
307 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
308 |
OBCS_CALC_STEVENS |
uMerPri(K) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
310 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
312 |
OBCS_CALC_STEVENS |
uMerBar = uMerBar + uVel(I+2,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
314 |
OBCS_CALC_STEVENS |
uMerBar = uMerBar + OBWuStevens(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
316 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
317 |
OBCS_CALC_STEVENS |
drFBar = drFBar + drF(K)* _hFacW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
320 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
322 |
OBCS_CALC_STEVENS |
uMerPri(K) = (uVel(I+2,J,K,bi,bj)-uMerBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
324 |
OBCS_CALC_STEVENS |
uMerPri(K) = (OBWuStevens(J,K,bi,bj)-uMerBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
326 |
OBCS_CALC_STEVENS |
& * _maskW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
331 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
332 |
OBCS_CALC_STEVENS |
uMerBar = uMerBar + OBWu(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
333 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
334 |
OBCS_CALC_STEVENS |
drFBar = drFBar + drF(K)* _hFacW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
339 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
340 |
OBCS_CALC_STEVENS |
OBWu(J,K,bi,bj) = (uMerBar + uMerPri(K)) |
|
./pkg/obcs/obcs_calc_stevens.F |
341 |
OBCS_CALC_STEVENS |
& * _maskW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
344 |
OBCS_CALC_STEVENS |
OBWw(J,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
362 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
366 |
OBCS_CALC_STEVENS |
cflMer(J,K) = 0.5 _d 0 * _dxC(I+2,J,bi,bj)/dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
369 |
OBCS_CALC_STEVENS |
gFacM(J,K) = ABS(MAX(SIGN(1.D0,uVel(I+1,J,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
371 |
OBCS_CALC_STEVENS |
cflMer(J,K) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
372 |
OBCS_CALC_STEVENS |
gFacM (J,K) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
418 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
419 |
OBCS_CALC_STEVENS |
vZonPri(K) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
421 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
423 |
OBCS_CALC_STEVENS |
vZonBar = vZonBar + vVel(I,J-1,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
425 |
OBCS_CALC_STEVENS |
vZonBar = vZonBar + OBNvStevens(I,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
427 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacS(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
428 |
OBCS_CALC_STEVENS |
drFBar = drFBar + drF(K)* _hFacS(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
431 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
433 |
OBCS_CALC_STEVENS |
vZonPri(K) = (vVel(I,J-1,K,bi,bj)-vZonBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
435 |
OBCS_CALC_STEVENS |
vZonPri(K) = (OBNvStevens(I,K,bi,bj)-vZonBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
437 |
OBCS_CALC_STEVENS |
& * _maskS(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
442 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
443 |
OBCS_CALC_STEVENS |
vZonBar = vZonBar + OBNv(I,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
444 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacS(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
445 |
OBCS_CALC_STEVENS |
drFBar = drFBar + drF(K)* _hFacS(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
450 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
451 |
OBCS_CALC_STEVENS |
OBNv(I,K,bi,bj) = (vZonBar + vZonPri(K)) |
|
./pkg/obcs/obcs_calc_stevens.F |
452 |
OBCS_CALC_STEVENS |
& * _maskS(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
455 |
OBCS_CALC_STEVENS |
OBNw(I,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
473 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
477 |
OBCS_CALC_STEVENS |
cflZon(I,K) = 0.5 _d 0 * _dyC(I,J-1,bi,bj)/dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
480 |
OBCS_CALC_STEVENS |
gFacZ(I,K) = ABS(MIN(SIGN(1.D0,vVel(I,J,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
482 |
OBCS_CALC_STEVENS |
cflZon(I,K) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
483 |
OBCS_CALC_STEVENS |
gFacZ (I,K) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
530 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
531 |
OBCS_CALC_STEVENS |
vZonPri(K) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
533 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
535 |
OBCS_CALC_STEVENS |
vZonBar = vZonBar + vVel(I,J+2,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
537 |
OBCS_CALC_STEVENS |
vZonBar = vZonBar + OBSvStevens(I,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
539 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacS(I,J+1,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
540 |
OBCS_CALC_STEVENS |
drFBar = drFBar + drF(K)* _hFacS(I,J+1,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
543 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
545 |
OBCS_CALC_STEVENS |
vZonPri(K) = (vVel(I,J+2,K,bi,bj)-vZonBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
547 |
OBCS_CALC_STEVENS |
vZonPri(K) = (OBSvStevens(I,K,bi,bj)-vZonBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
549 |
OBCS_CALC_STEVENS |
& * _maskS(I,J+1,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
554 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
555 |
OBCS_CALC_STEVENS |
vZonBar = vZonBar + OBSv(I,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
556 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacS(I,J+1,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
557 |
OBCS_CALC_STEVENS |
drFBar = drFBar + drF(K)* _hFacS(I,J+1,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
562 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
563 |
OBCS_CALC_STEVENS |
OBSv(I,K,bi,bj) = (vZonBar + vZonPri(K)) |
|
./pkg/obcs/obcs_calc_stevens.F |
564 |
OBCS_CALC_STEVENS |
& * _maskS(I,J+1,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
567 |
OBCS_CALC_STEVENS |
OBSw(I,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
585 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
589 |
OBCS_CALC_STEVENS |
cflZon(I,K) = 0.5 _d 0 * _dyC(I,J+2,bi,bj)/dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
592 |
OBCS_CALC_STEVENS |
gFacZ(I,K) = ABS(MAX(SIGN(1.D0,vVel(I,J+1,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
594 |
OBCS_CALC_STEVENS |
cflZon(I,K) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
595 |
OBCS_CALC_STEVENS |
gFacZ (I,K) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
638 |
OBCS_CALC_STEVENS |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
641 |
OBCS_CALC_STEVENS |
uPhase = uPhase + OBEu(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
642 |
OBCS_CALC_STEVENS |
& *drF(k)* _hFacW(I,J,K,bi,bj)*dyG(I,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
645 |
OBCS_CALC_STEVENS |
vPhase = vPhase + OBWu(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
646 |
OBCS_CALC_STEVENS |
& *drF(k)* _hFacW(I+1,J,K,bi,bj)*dyG(I+1,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
725 |
OBCS_STEVENS_CALC_TRACER_EAST |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
729 |
OBCS_STEVENS_CALC_TRACER_EAST |
dTracSpace = (tracer(I-1,J,K,bi,bj)-tracer(I-2,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
730 |
OBCS_STEVENS_CALC_TRACER_EAST |
& * _maskW(I-1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
731 |
OBCS_STEVENS_CALC_TRACER_EAST |
dTracTime = (tracer(I-1,J,K,bi,bj)-OBE_Stevens(J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
732 |
OBCS_STEVENS_CALC_TRACER_EAST |
uPhase = cflMer(J,K) * pFac |
|
./pkg/obcs/obcs_calc_stevens.F |
734 |
OBCS_STEVENS_CALC_TRACER_EAST |
uPhase = MIN( cflMer(J,K), |
|
./pkg/obcs/obcs_calc_stevens.F |
735 |
OBCS_STEVENS_CALC_TRACER_EAST |
& MAX( 0.D0, -cflMer(J,K)*dTracTime/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
740 |
OBCS_STEVENS_CALC_TRACER_EAST |
OBEf(J,K,bi,bj) = _maskW(I,J,K,bi,bj) * ( |
|
./pkg/obcs/obcs_calc_stevens.F |
741 |
OBCS_STEVENS_CALC_TRACER_EAST |
& - ( aFac*MAX(0.D0,uVel(I,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
742 |
OBCS_STEVENS_CALC_TRACER_EAST |
& *(tracer(I,J,K,bi,bj)-tracer(I-1,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
744 |
OBCS_STEVENS_CALC_TRACER_EAST |
& - gFacM(J,K) * gammaf |
|
./pkg/obcs/obcs_calc_stevens.F |
745 |
OBCS_STEVENS_CALC_TRACER_EAST |
& * (tracer(I,J,K,bi,bj)-OBEf(J,K,bi,bj)) ) |
|
./pkg/obcs/obcs_calc_stevens.F |
807 |
OBCS_STEVENS_CALC_TRACER_WEST |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
811 |
OBCS_STEVENS_CALC_TRACER_WEST |
dTracSpace = (tracer(I+2,J,K,bi,bj)-tracer(I+1,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
812 |
OBCS_STEVENS_CALC_TRACER_WEST |
& * _maskW(I+2,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
813 |
OBCS_STEVENS_CALC_TRACER_WEST |
dTracTime = (tracer(I+1,J,K,bi,bj)-OBW_Stevens(J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
814 |
OBCS_STEVENS_CALC_TRACER_WEST |
uPhase = -cflMer(J,K) * pFac |
|
./pkg/obcs/obcs_calc_stevens.F |
816 |
OBCS_STEVENS_CALC_TRACER_WEST |
uPhase = MAX( -cflMer(J,K), |
|
./pkg/obcs/obcs_calc_stevens.F |
817 |
OBCS_STEVENS_CALC_TRACER_WEST |
& MIN( 0.D0, -cflMer(J,K)*dTracTime/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
822 |
OBCS_STEVENS_CALC_TRACER_WEST |
OBWf(J,K,bi,bj) = _maskW(I+1,J,K,bi,bj) * ( |
|
./pkg/obcs/obcs_calc_stevens.F |
823 |
OBCS_STEVENS_CALC_TRACER_WEST |
& - ( aFac*MIN(0.D0,uVel(I+1,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
824 |
OBCS_STEVENS_CALC_TRACER_WEST |
& *(tracer(I+1,J,K,bi,bj)-tracer(I,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
826 |
OBCS_STEVENS_CALC_TRACER_WEST |
& - gFacM(J,K) * gammaf |
|
./pkg/obcs/obcs_calc_stevens.F |
827 |
OBCS_STEVENS_CALC_TRACER_WEST |
& * (tracer(I,J,K,bi,bj)-OBWf(J,K,bi,bj)) ) |
|
./pkg/obcs/obcs_calc_stevens.F |
888 |
OBCS_STEVENS_CALC_TRACER_NORTH |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
893 |
OBCS_STEVENS_CALC_TRACER_NORTH |
dTracSpace = (tracer(I,J-1,K,bi,bj)-tracer(I,J-2,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
894 |
OBCS_STEVENS_CALC_TRACER_NORTH |
& * _maskS(I,J-1,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
895 |
OBCS_STEVENS_CALC_TRACER_NORTH |
dTracTime = (tracer(I,J-1,K,bi,bj)-OBN_Stevens(I,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
896 |
OBCS_STEVENS_CALC_TRACER_NORTH |
vPhase = cflZon(I,K) * pFac |
|
./pkg/obcs/obcs_calc_stevens.F |
898 |
OBCS_STEVENS_CALC_TRACER_NORTH |
vPhase = MIN( cflZon(I,K), |
|
./pkg/obcs/obcs_calc_stevens.F |
899 |
OBCS_STEVENS_CALC_TRACER_NORTH |
& MAX( 0.D0, -cflZon(I,K)*dTracTime/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
904 |
OBCS_STEVENS_CALC_TRACER_NORTH |
OBNf(I,K,bi,bj) = _maskS(I,J,K,bi,bj) * ( |
|
./pkg/obcs/obcs_calc_stevens.F |
905 |
OBCS_STEVENS_CALC_TRACER_NORTH |
& - ( aFac*MAX(0.D0,vVel(I,J,K,bi,bj)) + vPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
906 |
OBCS_STEVENS_CALC_TRACER_NORTH |
& *(tracer(I,J,K,bi,bj)-tracer(I,J-1,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
908 |
OBCS_STEVENS_CALC_TRACER_NORTH |
& - gFacZ(I,K) * gammaf |
|
./pkg/obcs/obcs_calc_stevens.F |
909 |
OBCS_STEVENS_CALC_TRACER_NORTH |
& * (tracer(I,J,K,bi,bj)-OBNf(I,K,bi,bj)) ) |
|
./pkg/obcs/obcs_calc_stevens.F |
970 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
DO K=1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
974 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
dTracSpace = (tracer(I,J+2,K,bi,bj)-tracer(I,J+1,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
975 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
& * _maskS(I,J+2,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
976 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
dTracTime = (tracer(I,J+1,K,bi,bj)-OBS_Stevens(I,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
977 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
vPhase = -cflZon(I,K) * pFac |
|
./pkg/obcs/obcs_calc_stevens.F |
979 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
vPhase = MAX( -cflZon(I,K), |
|
./pkg/obcs/obcs_calc_stevens.F |
980 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
& MIN( 0.D0, -cflZon(I,K)*dTracTime/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
985 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
OBSf(I,K,bi,bj) = _maskS(I,J+1,K,bi,bj) * ( |
|
./pkg/obcs/obcs_calc_stevens.F |
986 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
& - ( aFac*MIN(0.D0,vVel(I,J+1,K,bi,bj)) + vPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
987 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
& *(tracer(I,J+1,K,bi,bj)-tracer(I,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
989 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
& - gFacZ(I,K) * gammaf |
|
./pkg/obcs/obcs_calc_stevens.F |
990 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
& * (tracer(I,J,K,bi,bj)-OBSf(I,K,bi,bj)) ) |
|
./pkg/obcs/orlanski_east.F |
106 |
ORLANSKI_EAST |
DO K=1,Nr |
|
./pkg/obcs/orlanski_east.F |
111 |
ORLANSKI_EAST |
IF ((UE_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_east.F |
112 |
ORLANSKI_EAST |
& (UE_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_east.F |
115 |
ORLANSKI_EAST |
CL=-(uVel(I_obc-1,J,K,bi,bj)-UE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
116 |
ORLANSKI_EAST |
& (ab1*UE_STORE_2(J,K,bi,bj) + ab2*UE_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_east.F |
126 |
ORLANSKI_EAST |
CVEL_UE(J,K,bi,bj) = CFIX |
|
./pkg/obcs/orlanski_east.F |
128 |
ORLANSKI_EAST |
CVEL_UE(J,K,bi,bj) = f1*(CL*dxF(I_obc-2,J,bi,bj)/deltaT |
|
./pkg/obcs/orlanski_east.F |
129 |
ORLANSKI_EAST |
& )+f2*CVEL_UE(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
132 |
ORLANSKI_EAST |
OBEu(J,K,bi,bj)=uVel(I_obc,J,K,bi,bj)- |
|
./pkg/obcs/orlanski_east.F |
133 |
ORLANSKI_EAST |
& CVEL_UE(J,K,bi,bj)*(deltaT*recip_dxF(I_obc-1,J,bi,bj))* |
|
./pkg/obcs/orlanski_east.F |
134 |
ORLANSKI_EAST |
& (ab1*(uVel(I_obc,J,K,bi,bj)-uVel(I_obc-1,J,K,bi,bj)) + |
|
./pkg/obcs/orlanski_east.F |
135 |
ORLANSKI_EAST |
& ab2*(UE_STORE_4(J,K,bi,bj)-UE_STORE_1(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_east.F |
137 |
ORLANSKI_EAST |
IF ((VE_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_east.F |
138 |
ORLANSKI_EAST |
& (VE_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_east.F |
141 |
ORLANSKI_EAST |
CL=-(vVel(I_obc-1,J,K,bi,bj)-VE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
142 |
ORLANSKI_EAST |
& (ab1*VE_STORE_2(J,K,bi,bj) + ab2*VE_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_east.F |
152 |
ORLANSKI_EAST |
CVEL_VE(J,K,bi,bj) = CFIX |
|
./pkg/obcs/orlanski_east.F |
154 |
ORLANSKI_EAST |
CVEL_VE(J,K,bi,bj) = f1*(CL*dxV(I_obc-1,J,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
155 |
ORLANSKI_EAST |
$ /deltaT)+f2*CVEL_VE(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
158 |
ORLANSKI_EAST |
OBEv(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj)- |
|
./pkg/obcs/orlanski_east.F |
159 |
ORLANSKI_EAST |
& CVEL_VE(J,K,bi,bj)*(deltaT*recip_dxV(I_obc,J,bi,bj))* |
|
./pkg/obcs/orlanski_east.F |
160 |
ORLANSKI_EAST |
& (ab1*(vVel(I_obc,J,K,bi,bj)-vVel(I_obc-1,J,K,bi,bj)) + |
|
./pkg/obcs/orlanski_east.F |
161 |
ORLANSKI_EAST |
& ab2*(VE_STORE_4(J,K,bi,bj)-VE_STORE_1(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_east.F |
163 |
ORLANSKI_EAST |
IF ((TE_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_east.F |
164 |
ORLANSKI_EAST |
& (TE_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_east.F |
167 |
ORLANSKI_EAST |
CL=-(theta(I_obc-1,J,K,bi,bj)-TE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
168 |
ORLANSKI_EAST |
& (ab1*TE_STORE_2(J,K,bi,bj) + ab2*TE_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_east.F |
178 |
ORLANSKI_EAST |
CVEL_TE(J,K,bi,bj) = CFIX |
|
./pkg/obcs/orlanski_east.F |
180 |
ORLANSKI_EAST |
CVEL_TE(J,K,bi,bj) = f1*(CL*dxC(I_obc-1,J,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
181 |
ORLANSKI_EAST |
$ /deltaT)+f2*CVEL_TE(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
184 |
ORLANSKI_EAST |
OBEt(J,K,bi,bj)=theta(I_obc,J,K,bi,bj)- |
|
./pkg/obcs/orlanski_east.F |
185 |
ORLANSKI_EAST |
& CVEL_TE(J,K,bi,bj)*(deltaT*recip_dxC(I_obc,J,bi,bj))* |
|
./pkg/obcs/orlanski_east.F |
186 |
ORLANSKI_EAST |
& (ab1*(theta(I_obc,J,K,bi,bj)-theta(I_obc-1,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_east.F |
187 |
ORLANSKI_EAST |
& ab2*(TE_STORE_4(J,K,bi,bj)-TE_STORE_1(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_east.F |
189 |
ORLANSKI_EAST |
IF ((SE_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_east.F |
190 |
ORLANSKI_EAST |
& (SE_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_east.F |
193 |
ORLANSKI_EAST |
CL=-(salt(I_obc-1,J,K,bi,bj)-SE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
194 |
ORLANSKI_EAST |
& (ab1*SE_STORE_2(J,K,bi,bj) + ab2*SE_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_east.F |
204 |
ORLANSKI_EAST |
CVEL_SE(J,K,bi,bj) = CFIX |
|
./pkg/obcs/orlanski_east.F |
206 |
ORLANSKI_EAST |
CVEL_SE(J,K,bi,bj) = f1*(CL*dxC(I_obc-1,J,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
207 |
ORLANSKI_EAST |
$ /deltaT)+f2*CVEL_SE(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
210 |
ORLANSKI_EAST |
OBEs(J,K,bi,bj)=salt(I_obc,J,K,bi,bj)- |
|
./pkg/obcs/orlanski_east.F |
211 |
ORLANSKI_EAST |
& CVEL_SE(J,K,bi,bj)*(deltaT*recip_dxC(I_obc,J,bi,bj))* |
|
./pkg/obcs/orlanski_east.F |
212 |
ORLANSKI_EAST |
& (ab1*(salt(I_obc,J,K,bi,bj)-salt(I_obc-1,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_east.F |
213 |
ORLANSKI_EAST |
& ab2*(SE_STORE_4(J,K,bi,bj)-SE_STORE_1(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_east.F |
217 |
ORLANSKI_EAST |
IF ((WE_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_east.F |
218 |
ORLANSKI_EAST |
& (WE_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_east.F |
221 |
ORLANSKI_EAST |
CL=-(wVel(I_obc-1,J,K,bi,bj)-WE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
222 |
ORLANSKI_EAST |
& (ab1*WE_STORE_2(J,K,bi,bj)+ab2*WE_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_east.F |
232 |
ORLANSKI_EAST |
CVEL_WE(J,K,bi,bj) = CFIX |
|
./pkg/obcs/orlanski_east.F |
234 |
ORLANSKI_EAST |
CVEL_WE(J,K,bi,bj)=f1*(CL*dxC(I_obc-1,J,bi,bj)/deltaT) |
|
./pkg/obcs/orlanski_east.F |
235 |
ORLANSKI_EAST |
& + f2*CVEL_WE(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
238 |
ORLANSKI_EAST |
OBEw(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj)- |
|
./pkg/obcs/orlanski_east.F |
239 |
ORLANSKI_EAST |
& CVEL_WE(J,K,bi,bj)*(deltaT*recip_dxC(I_obc,J,bi,bj))* |
|
./pkg/obcs/orlanski_east.F |
240 |
ORLANSKI_EAST |
& (ab1*(wVel(I_obc,J,K,bi,bj)-wVel(I_obc-1,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_east.F |
241 |
ORLANSKI_EAST |
& ab2*(WE_STORE_4(J,K,bi,bj)-WE_STORE_1(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_east.F |
247 |
ORLANSKI_EAST |
UE_STORE_3(J,K,bi,bj)=UE_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
249 |
ORLANSKI_EAST |
UE_STORE_2(J,K,bi,bj)=uVel(I_obc-1,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_east.F |
250 |
ORLANSKI_EAST |
& uVel(I_obc-2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
251 |
ORLANSKI_EAST |
UE_STORE_1(J,K,bi,bj)=uVel(I_obc-1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
252 |
ORLANSKI_EAST |
UE_STORE_4(J,K,bi,bj)=uVel(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
255 |
ORLANSKI_EAST |
VE_STORE_3(J,K,bi,bj)=VE_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
257 |
ORLANSKI_EAST |
VE_STORE_2(J,K,bi,bj)=vVel(I_obc-1,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_east.F |
258 |
ORLANSKI_EAST |
& vVel(I_obc-2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
259 |
ORLANSKI_EAST |
VE_STORE_1(J,K,bi,bj)=vVel(I_obc-1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
260 |
ORLANSKI_EAST |
VE_STORE_4(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
263 |
ORLANSKI_EAST |
TE_STORE_3(J,K,bi,bj)=TE_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
265 |
ORLANSKI_EAST |
TE_STORE_2(J,K,bi,bj)=theta(I_obc-1,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_east.F |
266 |
ORLANSKI_EAST |
& theta(I_obc-2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
267 |
ORLANSKI_EAST |
TE_STORE_1(J,K,bi,bj)=theta(I_obc-1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
268 |
ORLANSKI_EAST |
TE_STORE_4(J,K,bi,bj)=theta(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
271 |
ORLANSKI_EAST |
SE_STORE_3(J,K,bi,bj)=SE_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
273 |
ORLANSKI_EAST |
SE_STORE_2(J,K,bi,bj)=salt(I_obc-1,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_east.F |
274 |
ORLANSKI_EAST |
& salt(I_obc-2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
275 |
ORLANSKI_EAST |
SE_STORE_1(J,K,bi,bj)=salt(I_obc-1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
276 |
ORLANSKI_EAST |
SE_STORE_4(J,K,bi,bj)=salt(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
281 |
ORLANSKI_EAST |
WE_STORE_3(J,K,bi,bj)=WE_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
283 |
ORLANSKI_EAST |
WE_STORE_2(J,K,bi,bj)=wVel(I_obc-1,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_east.F |
284 |
ORLANSKI_EAST |
& wVel(I_obc-2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
285 |
ORLANSKI_EAST |
WE_STORE_1(J,K,bi,bj)=wVel(I_obc-1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
286 |
ORLANSKI_EAST |
WE_STORE_4(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
93 |
ORLANSKI_EAST |
INTEGER J, K, I_obc |
|
./pkg/obcs/orlanski_init.F |
100 |
ORLANSKI_INIT |
UE_STORE_4(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
101 |
ORLANSKI_INIT |
VE_STORE_4(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
102 |
ORLANSKI_INIT |
TE_STORE_4(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
103 |
ORLANSKI_INIT |
SE_STORE_4(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
104 |
ORLANSKI_INIT |
UW_STORE_1(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
105 |
ORLANSKI_INIT |
VW_STORE_1(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
106 |
ORLANSKI_INIT |
TW_STORE_1(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
107 |
ORLANSKI_INIT |
SW_STORE_1(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
108 |
ORLANSKI_INIT |
UW_STORE_2(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
109 |
ORLANSKI_INIT |
VW_STORE_2(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
110 |
ORLANSKI_INIT |
TW_STORE_2(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
111 |
ORLANSKI_INIT |
SW_STORE_2(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
112 |
ORLANSKI_INIT |
UW_STORE_3(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
113 |
ORLANSKI_INIT |
VW_STORE_3(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
114 |
ORLANSKI_INIT |
TW_STORE_3(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
115 |
ORLANSKI_INIT |
SW_STORE_3(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
116 |
ORLANSKI_INIT |
UW_STORE_4(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
117 |
ORLANSKI_INIT |
VW_STORE_4(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
118 |
ORLANSKI_INIT |
TW_STORE_4(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
119 |
ORLANSKI_INIT |
SW_STORE_4(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
120 |
ORLANSKI_INIT |
CVEL_UE(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
121 |
ORLANSKI_INIT |
CVEL_VE(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
122 |
ORLANSKI_INIT |
CVEL_TE(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
123 |
ORLANSKI_INIT |
CVEL_SE(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
124 |
ORLANSKI_INIT |
CVEL_UW(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
125 |
ORLANSKI_INIT |
CVEL_VW(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
126 |
ORLANSKI_INIT |
CVEL_TW(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
127 |
ORLANSKI_INIT |
CVEL_SW(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
129 |
ORLANSKI_INIT |
WE_STORE_1(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
130 |
ORLANSKI_INIT |
WE_STORE_2(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
131 |
ORLANSKI_INIT |
WE_STORE_3(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
132 |
ORLANSKI_INIT |
WE_STORE_4(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
133 |
ORLANSKI_INIT |
WW_STORE_1(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
134 |
ORLANSKI_INIT |
WW_STORE_2(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
135 |
ORLANSKI_INIT |
WW_STORE_3(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
136 |
ORLANSKI_INIT |
WW_STORE_4(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
137 |
ORLANSKI_INIT |
CVEL_WE(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
138 |
ORLANSKI_INIT |
CVEL_WW(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
30 |
ORLANSKI_INIT |
INTEGER I, J, K |
|
./pkg/obcs/orlanski_init.F |
32 |
ORLANSKI_INIT |
DO K=1,Nr |
|
./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_init.F |
88 |
ORLANSKI_INIT |
UE_STORE_1(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
89 |
ORLANSKI_INIT |
VE_STORE_1(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
90 |
ORLANSKI_INIT |
TE_STORE_1(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
91 |
ORLANSKI_INIT |
SE_STORE_1(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
92 |
ORLANSKI_INIT |
UE_STORE_2(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
93 |
ORLANSKI_INIT |
VE_STORE_2(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
94 |
ORLANSKI_INIT |
TE_STORE_2(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
95 |
ORLANSKI_INIT |
SE_STORE_2(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
96 |
ORLANSKI_INIT |
UE_STORE_3(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
97 |
ORLANSKI_INIT |
VE_STORE_3(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
98 |
ORLANSKI_INIT |
TE_STORE_3(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
99 |
ORLANSKI_INIT |
SE_STORE_3(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_north.F |
102 |
ORLANSKI_NORTH |
IF ((UN_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_north.F |
103 |
ORLANSKI_NORTH |
& (UN_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_north.F |
106 |
ORLANSKI_NORTH |
CL=-(uVel(I,J_obc-1,K,bi,bj)-UN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
107 |
ORLANSKI_NORTH |
& (ab1*UN_STORE_2(I,K,bi,bj) + ab2*UN_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_north.F |
114 |
ORLANSKI_NORTH |
CVEL_UN(I,K,bi,bj) = f1*(CL*dyU(I,J_obc-1,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_north.F |
115 |
ORLANSKI_NORTH |
& f2*CVEL_UN(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
117 |
ORLANSKI_NORTH |
OBNu(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj)- |
|
./pkg/obcs/orlanski_north.F |
118 |
ORLANSKI_NORTH |
& CVEL_UN(I,K,bi,bj)*deltaT*recip_dyU(I,J_obc,bi,bj)* |
|
./pkg/obcs/orlanski_north.F |
119 |
ORLANSKI_NORTH |
& (ab1*(uVel(I,J_obc,K,bi,bj)-uVel(I,J_obc-1,K,bi,bj)) + |
|
./pkg/obcs/orlanski_north.F |
120 |
ORLANSKI_NORTH |
& ab2*(UN_STORE_4(I,K,bi,bj)-UN_STORE_1(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_north.F |
122 |
ORLANSKI_NORTH |
IF ((VN_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_north.F |
123 |
ORLANSKI_NORTH |
& (VN_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_north.F |
126 |
ORLANSKI_NORTH |
CL=-(vVel(I,J_obc-1,K,bi,bj)-VN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
127 |
ORLANSKI_NORTH |
& (ab1*VN_STORE_2(I,K,bi,bj) + ab2*VN_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_north.F |
134 |
ORLANSKI_NORTH |
CVEL_VN(I,K,bi,bj) = f1*(CL*dyF(I,J_obc-2,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_north.F |
135 |
ORLANSKI_NORTH |
& f2*CVEL_VN(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
137 |
ORLANSKI_NORTH |
OBNv(I,K,bi,bj)=vVel(I,J_obc,K,bi,bj)- |
|
./pkg/obcs/orlanski_north.F |
138 |
ORLANSKI_NORTH |
& CVEL_VN(I,K,bi,bj)*deltaT*recip_dyF(I,J_obc-1,bi,bj)* |
|
./pkg/obcs/orlanski_north.F |
139 |
ORLANSKI_NORTH |
& (ab1*(vVel(I,J_obc,K,bi,bj)-vVel(I,J_obc-1,K,bi,bj)) + |
|
./pkg/obcs/orlanski_north.F |
140 |
ORLANSKI_NORTH |
& ab2*(VN_STORE_4(I,K,bi,bj)-VN_STORE_1(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_north.F |
142 |
ORLANSKI_NORTH |
IF ((TN_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_north.F |
143 |
ORLANSKI_NORTH |
& (TN_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_north.F |
146 |
ORLANSKI_NORTH |
CL=-(theta(I,J_obc-1,K,bi,bj)-TN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
147 |
ORLANSKI_NORTH |
& (ab1*TN_STORE_2(I,K,bi,bj) + ab2*TN_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_north.F |
154 |
ORLANSKI_NORTH |
CVEL_TN(I,K,bi,bj) = f1*(CL*dyC(I,J_obc-1,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_north.F |
155 |
ORLANSKI_NORTH |
& f2*CVEL_TN(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
157 |
ORLANSKI_NORTH |
OBNt(I,K,bi,bj)=theta(I,J_obc,K,bi,bj)- |
|
./pkg/obcs/orlanski_north.F |
158 |
ORLANSKI_NORTH |
& CVEL_TN(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc,bi,bj)* |
|
./pkg/obcs/orlanski_north.F |
159 |
ORLANSKI_NORTH |
& (ab1*(theta(I,J_obc,K,bi,bj)-theta(I,J_obc-1,K,bi,bj))+ |
|
./pkg/obcs/orlanski_north.F |
160 |
ORLANSKI_NORTH |
& ab2*(TN_STORE_4(I,K,bi,bj)-TN_STORE_1(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_north.F |
162 |
ORLANSKI_NORTH |
IF ((SN_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_north.F |
163 |
ORLANSKI_NORTH |
& (SN_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_north.F |
166 |
ORLANSKI_NORTH |
CL=-(salt(I,J_obc-1,K,bi,bj)-SN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
167 |
ORLANSKI_NORTH |
& (ab1*SN_STORE_2(I,K,bi,bj) + ab2*SN_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_north.F |
174 |
ORLANSKI_NORTH |
CVEL_SN(I,K,bi,bj) = f1*(CL*dyC(I,J_obc-1,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_north.F |
175 |
ORLANSKI_NORTH |
& f2*CVEL_SN(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
177 |
ORLANSKI_NORTH |
OBNs(I,K,bi,bj)=salt(I,J_obc,K,bi,bj)- |
|
./pkg/obcs/orlanski_north.F |
178 |
ORLANSKI_NORTH |
& CVEL_SN(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc,bi,bj)* |
|
./pkg/obcs/orlanski_north.F |
179 |
ORLANSKI_NORTH |
& (ab1*(salt(I,J_obc,K,bi,bj)-salt(I,J_obc-1,K,bi,bj)) + |
|
./pkg/obcs/orlanski_north.F |
180 |
ORLANSKI_NORTH |
& ab2*(SN_STORE_4(I,K,bi,bj)-SN_STORE_1(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_north.F |
184 |
ORLANSKI_NORTH |
IF ((WN_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_north.F |
185 |
ORLANSKI_NORTH |
& (WN_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_north.F |
188 |
ORLANSKI_NORTH |
CL=-(wVel(I,J_obc-1,K,bi,bj)-WN_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_north.F |
189 |
ORLANSKI_NORTH |
& (ab1*WN_STORE_2(I,K,bi,bj)+ab2*WN_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_north.F |
196 |
ORLANSKI_NORTH |
CVEL_WN(I,K,bi,bj)=f1*(CL*dyC(I,J_obc-1,bi,bj)/deltaT) |
|
./pkg/obcs/orlanski_north.F |
197 |
ORLANSKI_NORTH |
& + f2*CVEL_WN(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
199 |
ORLANSKI_NORTH |
OBNw(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj)- |
|
./pkg/obcs/orlanski_north.F |
200 |
ORLANSKI_NORTH |
& CVEL_WN(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc,bi,bj)* |
|
./pkg/obcs/orlanski_north.F |
201 |
ORLANSKI_NORTH |
& (ab1*(wVel(I,J_obc,K,bi,bj)-wVel(I,J_obc-1,K,bi,bj))+ |
|
./pkg/obcs/orlanski_north.F |
202 |
ORLANSKI_NORTH |
& ab2*(WN_STORE_4(I,K,bi,bj)-WN_STORE_1(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_north.F |
208 |
ORLANSKI_NORTH |
UN_STORE_3(I,K,bi,bj)=UN_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
210 |
ORLANSKI_NORTH |
UN_STORE_2(I,K,bi,bj)=uVel(I,J_obc-1,K,bi,bj) - |
|
./pkg/obcs/orlanski_north.F |
211 |
ORLANSKI_NORTH |
& uVel(I,J_obc-2,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
212 |
ORLANSKI_NORTH |
UN_STORE_1(I,K,bi,bj)=uVel(I,J_obc-1,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
213 |
ORLANSKI_NORTH |
UN_STORE_4(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
216 |
ORLANSKI_NORTH |
VN_STORE_3(I,K,bi,bj)=VN_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
218 |
ORLANSKI_NORTH |
VN_STORE_2(I,K,bi,bj)=vVel(I,J_obc-1,K,bi,bj) - |
|
./pkg/obcs/orlanski_north.F |
219 |
ORLANSKI_NORTH |
& vVel(I,J_obc-2,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
220 |
ORLANSKI_NORTH |
VN_STORE_1(I,K,bi,bj)=vVel(I,J_obc-1,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
221 |
ORLANSKI_NORTH |
VN_STORE_4(I,K,bi,bj)=vVel(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
224 |
ORLANSKI_NORTH |
TN_STORE_3(I,K,bi,bj)=TN_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
226 |
ORLANSKI_NORTH |
TN_STORE_2(I,K,bi,bj)=theta(I,J_obc-1,K,bi,bj) - |
|
./pkg/obcs/orlanski_north.F |
227 |
ORLANSKI_NORTH |
& theta(I,J_obc-2,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
228 |
ORLANSKI_NORTH |
TN_STORE_1(I,K,bi,bj)=theta(I,J_obc-1,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
229 |
ORLANSKI_NORTH |
TN_STORE_4(I,K,bi,bj)=theta(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
232 |
ORLANSKI_NORTH |
SN_STORE_3(I,K,bi,bj)=SN_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
234 |
ORLANSKI_NORTH |
SN_STORE_2(I,K,bi,bj)=salt(I,J_obc-1,K,bi,bj) - |
|
./pkg/obcs/orlanski_north.F |
235 |
ORLANSKI_NORTH |
& salt(I,J_obc-2,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
236 |
ORLANSKI_NORTH |
SN_STORE_1(I,K,bi,bj)=salt(I,J_obc-1,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
237 |
ORLANSKI_NORTH |
SN_STORE_4(I,K,bi,bj)=salt(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
242 |
ORLANSKI_NORTH |
WN_STORE_3(I,K,bi,bj)=WN_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
244 |
ORLANSKI_NORTH |
WN_STORE_2(I,K,bi,bj)=wVel(I,J_obc-1,K,bi,bj) - |
|
./pkg/obcs/orlanski_north.F |
245 |
ORLANSKI_NORTH |
& wVel(I,J_obc-2,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
246 |
ORLANSKI_NORTH |
WN_STORE_1(I,K,bi,bj)=wVel(I,J_obc-1,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
247 |
ORLANSKI_NORTH |
WN_STORE_4(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
84 |
ORLANSKI_NORTH |
INTEGER I, K, J_obc |
|
./pkg/obcs/orlanski_north.F |
97 |
ORLANSKI_NORTH |
DO K=1,Nr |
|
./pkg/obcs/orlanski_south.F |
102 |
ORLANSKI_SOUTH |
IF ((US_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_south.F |
103 |
ORLANSKI_SOUTH |
& (US_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_south.F |
106 |
ORLANSKI_SOUTH |
CL=(uVel(I,J_obc+1,K,bi,bj)-US_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
107 |
ORLANSKI_SOUTH |
& (ab1*US_STORE_2(I,K,bi,bj) + ab2*US_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_south.F |
114 |
ORLANSKI_SOUTH |
CVEL_US(I,K,bi,bj) = f1*(CL*dyU(I,J_obc+2,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_south.F |
115 |
ORLANSKI_SOUTH |
& f2*CVEL_US(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
117 |
ORLANSKI_SOUTH |
OBSu(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj)+ |
|
./pkg/obcs/orlanski_south.F |
118 |
ORLANSKI_SOUTH |
& CVEL_US(I,K,bi,bj)*deltaT*recip_dyU(I,J_obc+1,bi,bj)* |
|
./pkg/obcs/orlanski_south.F |
119 |
ORLANSKI_SOUTH |
& (ab1*(uVel(I,J_obc+1,K,bi,bj)-uVel(I,J_obc,K,bi,bj)) + |
|
./pkg/obcs/orlanski_south.F |
120 |
ORLANSKI_SOUTH |
& ab2*(US_STORE_1(I,K,bi,bj)-US_STORE_4(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_south.F |
122 |
ORLANSKI_SOUTH |
IF ((VS_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_south.F |
123 |
ORLANSKI_SOUTH |
& (VS_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_south.F |
126 |
ORLANSKI_SOUTH |
CL=(vVel(I,J_obc+2,K,bi,bj)-VS_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
127 |
ORLANSKI_SOUTH |
& (ab1*VS_STORE_2(I,K,bi,bj) + ab2*VS_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_south.F |
134 |
ORLANSKI_SOUTH |
CVEL_VS(I,K,bi,bj) = f1*(CL*dyF(I,J_obc+2,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_south.F |
135 |
ORLANSKI_SOUTH |
& f2*CVEL_VS(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
137 |
ORLANSKI_SOUTH |
OBSv(I,K,bi,bj)=vVel(I,J_obc+1,K,bi,bj)+ |
|
./pkg/obcs/orlanski_south.F |
138 |
ORLANSKI_SOUTH |
& CVEL_VS(I,K,bi,bj)*deltaT*recip_dyF(I,J_obc+1,bi,bj)* |
|
./pkg/obcs/orlanski_south.F |
139 |
ORLANSKI_SOUTH |
& (ab1*(vVel(I,J_obc+2,K,bi,bj)-vVel(I,J_obc+1,K,bi,bj))+ |
|
./pkg/obcs/orlanski_south.F |
140 |
ORLANSKI_SOUTH |
& ab2*(VS_STORE_1(I,K,bi,bj)-VS_STORE_4(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_south.F |
142 |
ORLANSKI_SOUTH |
IF ((TS_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_south.F |
143 |
ORLANSKI_SOUTH |
& (TS_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_south.F |
146 |
ORLANSKI_SOUTH |
CL=(theta(I,J_obc+1,K,bi,bj)-TS_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
147 |
ORLANSKI_SOUTH |
& (ab1*TS_STORE_2(I,K,bi,bj) + ab2*TS_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_south.F |
154 |
ORLANSKI_SOUTH |
CVEL_TS(I,K,bi,bj) = f1*(CL*dyC(I,J_obc+2,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_south.F |
155 |
ORLANSKI_SOUTH |
& f2*CVEL_TS(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
157 |
ORLANSKI_SOUTH |
OBSt(I,K,bi,bj)=theta(I,J_obc,K,bi,bj)+ |
|
./pkg/obcs/orlanski_south.F |
158 |
ORLANSKI_SOUTH |
& CVEL_TS(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc+1,bi,bj)* |
|
./pkg/obcs/orlanski_south.F |
159 |
ORLANSKI_SOUTH |
& (ab1*(theta(I,J_obc+1,K,bi,bj)-theta(I,J_obc,K,bi,bj))+ |
|
./pkg/obcs/orlanski_south.F |
160 |
ORLANSKI_SOUTH |
& ab2*(TS_STORE_1(I,K,bi,bj)-TS_STORE_4(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_south.F |
162 |
ORLANSKI_SOUTH |
IF ((SS_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_south.F |
163 |
ORLANSKI_SOUTH |
& (SS_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_south.F |
166 |
ORLANSKI_SOUTH |
CL=(salt(I,J_obc+1,K,bi,bj)-SS_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
167 |
ORLANSKI_SOUTH |
& (ab1*SS_STORE_2(I,K,bi,bj) + ab2*SS_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_south.F |
174 |
ORLANSKI_SOUTH |
CVEL_SS(I,K,bi,bj) = f1*(CL*dyC(I,J_obc+2,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_south.F |
175 |
ORLANSKI_SOUTH |
& f2*CVEL_SS(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
177 |
ORLANSKI_SOUTH |
OBSs(I,K,bi,bj)=salt(I,J_obc,K,bi,bj)+ |
|
./pkg/obcs/orlanski_south.F |
178 |
ORLANSKI_SOUTH |
& CVEL_SS(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc+1,bi,bj)* |
|
./pkg/obcs/orlanski_south.F |
179 |
ORLANSKI_SOUTH |
& (ab1*(salt(I,J_obc+1,K,bi,bj)-salt(I,J_obc,K,bi,bj)) + |
|
./pkg/obcs/orlanski_south.F |
180 |
ORLANSKI_SOUTH |
& ab2*(SS_STORE_1(I,K,bi,bj)-SS_STORE_4(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_south.F |
184 |
ORLANSKI_SOUTH |
IF ((WS_STORE_2(I,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_south.F |
185 |
ORLANSKI_SOUTH |
& (WS_STORE_3(I,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_south.F |
188 |
ORLANSKI_SOUTH |
CL=(wVel(I,J_obc+1,K,bi,bj)-WS_STORE_1(I,K,bi,bj))/ |
|
./pkg/obcs/orlanski_south.F |
189 |
ORLANSKI_SOUTH |
& (ab1*WS_STORE_2(I,K,bi,bj)+ab2*WS_STORE_3(I,K,bi,bj)) |
|
./pkg/obcs/orlanski_south.F |
196 |
ORLANSKI_SOUTH |
CVEL_WS(I,K,bi,bj)=f1*(CL*dyC(I,J_obc+2,bi,bj)/deltaT) |
|
./pkg/obcs/orlanski_south.F |
197 |
ORLANSKI_SOUTH |
& + f2*CVEL_WS(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
199 |
ORLANSKI_SOUTH |
OBSw(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj)+ |
|
./pkg/obcs/orlanski_south.F |
200 |
ORLANSKI_SOUTH |
& CVEL_WS(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc+1,bi,bj)* |
|
./pkg/obcs/orlanski_south.F |
201 |
ORLANSKI_SOUTH |
& (ab1*(wVel(I,J_obc+1,K,bi,bj)-wVel(I,J_obc,K,bi,bj))+ |
|
./pkg/obcs/orlanski_south.F |
202 |
ORLANSKI_SOUTH |
& ab2*(WS_STORE_1(I,K,bi,bj)-WS_STORE_4(I,K,bi,bj))) |
|
./pkg/obcs/orlanski_south.F |
208 |
ORLANSKI_SOUTH |
US_STORE_3(I,K,bi,bj)=US_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
210 |
ORLANSKI_SOUTH |
US_STORE_2(I,K,bi,bj)=uVel(I,J_obc+2,K,bi,bj) - |
|
./pkg/obcs/orlanski_south.F |
211 |
ORLANSKI_SOUTH |
& uVel(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
212 |
ORLANSKI_SOUTH |
US_STORE_1(I,K,bi,bj)=uVel(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
213 |
ORLANSKI_SOUTH |
US_STORE_4(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
216 |
ORLANSKI_SOUTH |
VS_STORE_3(I,K,bi,bj)=VS_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
218 |
ORLANSKI_SOUTH |
VS_STORE_2(I,K,bi,bj)=vVel(I,J_obc+3,K,bi,bj) - |
|
./pkg/obcs/orlanski_south.F |
219 |
ORLANSKI_SOUTH |
& vVel(I,J_obc+2,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
220 |
ORLANSKI_SOUTH |
VS_STORE_1(I,K,bi,bj)=vVel(I,J_obc+2,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
221 |
ORLANSKI_SOUTH |
VS_STORE_4(I,K,bi,bj)=vVel(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
224 |
ORLANSKI_SOUTH |
TS_STORE_3(I,K,bi,bj)=TS_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
226 |
ORLANSKI_SOUTH |
TS_STORE_2(I,K,bi,bj)=theta(I,J_obc+2,K,bi,bj) - |
|
./pkg/obcs/orlanski_south.F |
227 |
ORLANSKI_SOUTH |
& theta(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
228 |
ORLANSKI_SOUTH |
TS_STORE_1(I,K,bi,bj)=theta(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
229 |
ORLANSKI_SOUTH |
TS_STORE_4(I,K,bi,bj)=theta(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
232 |
ORLANSKI_SOUTH |
SS_STORE_3(I,K,bi,bj)=SS_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
234 |
ORLANSKI_SOUTH |
SS_STORE_2(I,K,bi,bj)=salt(I,J_obc+2,K,bi,bj) - |
|
./pkg/obcs/orlanski_south.F |
235 |
ORLANSKI_SOUTH |
& salt(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
236 |
ORLANSKI_SOUTH |
SS_STORE_1(I,K,bi,bj)=salt(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
237 |
ORLANSKI_SOUTH |
SS_STORE_4(I,K,bi,bj)=salt(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
242 |
ORLANSKI_SOUTH |
WS_STORE_3(I,K,bi,bj)=WS_STORE_2(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
244 |
ORLANSKI_SOUTH |
WS_STORE_2(I,K,bi,bj)=wVel(I,J_obc+2,K,bi,bj) - |
|
./pkg/obcs/orlanski_south.F |
245 |
ORLANSKI_SOUTH |
& wVel(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
246 |
ORLANSKI_SOUTH |
WS_STORE_1(I,K,bi,bj)=wVel(I,J_obc+1,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
247 |
ORLANSKI_SOUTH |
WS_STORE_4(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
84 |
ORLANSKI_SOUTH |
INTEGER I, K, J_obc |
|
./pkg/obcs/orlanski_south.F |
97 |
ORLANSKI_SOUTH |
DO K=1,Nr |
|
./pkg/obcs/orlanski_west.F |
108 |
ORLANSKI_WEST |
DO K=1,Nr |
|
./pkg/obcs/orlanski_west.F |
113 |
ORLANSKI_WEST |
IF ((UW_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_west.F |
114 |
ORLANSKI_WEST |
& (UW_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_west.F |
117 |
ORLANSKI_WEST |
CL=(uVel(I_obc+2,J,K,bi,bj)-UW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
118 |
ORLANSKI_WEST |
& (ab1*UW_STORE_2(J,K,bi,bj) + ab2*UW_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_west.F |
128 |
ORLANSKI_WEST |
CVEL_UW(J,K,bi,bj) = CFIX |
|
./pkg/obcs/orlanski_west.F |
130 |
ORLANSKI_WEST |
CVEL_UW(J,K,bi,bj) = f1*(CL*dxF(I_obc+2,J,bi,bj)/deltaT |
|
./pkg/obcs/orlanski_west.F |
131 |
ORLANSKI_WEST |
& )+f2*CVEL_UW(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
134 |
ORLANSKI_WEST |
OBWu(J,K,bi,bj)=uVel(I_obc+1,J,K,bi,bj)+ |
|
./pkg/obcs/orlanski_west.F |
135 |
ORLANSKI_WEST |
& CVEL_UW(J,K,bi,bj)*(deltaT*recip_dxF(I_obc+1,J,bi,bj))* |
|
./pkg/obcs/orlanski_west.F |
136 |
ORLANSKI_WEST |
& (ab1*(uVel(I_obc+2,J,K,bi,bj)-uVel(I_obc+1,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_west.F |
137 |
ORLANSKI_WEST |
& ab2*(UW_STORE_1(J,K,bi,bj)-UW_STORE_4(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_west.F |
139 |
ORLANSKI_WEST |
IF ((VW_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_west.F |
140 |
ORLANSKI_WEST |
& (VW_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_west.F |
143 |
ORLANSKI_WEST |
CL=(vVel(I_obc+1,J,K,bi,bj)-VW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
144 |
ORLANSKI_WEST |
& (ab1*VW_STORE_2(J,K,bi,bj) + ab2*VW_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_west.F |
154 |
ORLANSKI_WEST |
CVEL_VW(J,K,bi,bj) = CFIX |
|
./pkg/obcs/orlanski_west.F |
156 |
ORLANSKI_WEST |
CVEL_VW(J,K,bi,bj) = f1*(CL*dxV(I_obc+2,J,bi,bj)/deltaT |
|
./pkg/obcs/orlanski_west.F |
157 |
ORLANSKI_WEST |
& )+f2*CVEL_VW(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
160 |
ORLANSKI_WEST |
OBWv(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj)+ |
|
./pkg/obcs/orlanski_west.F |
161 |
ORLANSKI_WEST |
& CVEL_VW(J,K,bi,bj)*(deltaT*recip_dxV(I_obc+1,J,bi,bj))* |
|
./pkg/obcs/orlanski_west.F |
162 |
ORLANSKI_WEST |
& (ab1*(vVel(I_obc+1,J,K,bi,bj)-vVel(I_obc,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_west.F |
163 |
ORLANSKI_WEST |
& ab2*(VW_STORE_1(J,K,bi,bj)-VW_STORE_4(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_west.F |
165 |
ORLANSKI_WEST |
IF ((TW_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_west.F |
166 |
ORLANSKI_WEST |
& (TW_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_west.F |
169 |
ORLANSKI_WEST |
CL=(theta(I_obc+1,J,K,bi,bj)-TW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
170 |
ORLANSKI_WEST |
& (ab1*TW_STORE_2(J,K,bi,bj) + ab2*TW_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_west.F |
180 |
ORLANSKI_WEST |
CVEL_TW(J,K,bi,bj) = CFIX |
|
./pkg/obcs/orlanski_west.F |
182 |
ORLANSKI_WEST |
CVEL_TW(J,K,bi,bj) = f1*(CL*dxC(I_obc+2,J,bi,bj)/deltaT |
|
./pkg/obcs/orlanski_west.F |
183 |
ORLANSKI_WEST |
& )+f2*CVEL_TW(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
186 |
ORLANSKI_WEST |
OBWt(J,K,bi,bj)=theta(I_obc,J,K,bi,bj)+ |
|
./pkg/obcs/orlanski_west.F |
187 |
ORLANSKI_WEST |
& CVEL_TW(J,K,bi,bj)*(deltaT*recip_dxC(I_obc+1,J,bi,bj))* |
|
./pkg/obcs/orlanski_west.F |
188 |
ORLANSKI_WEST |
& (ab1*(theta(I_obc+1,J,K,bi,bj)-theta(I_obc,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_west.F |
189 |
ORLANSKI_WEST |
& ab2*(TW_STORE_1(J,K,bi,bj)-TW_STORE_4(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_west.F |
191 |
ORLANSKI_WEST |
IF ((SW_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_west.F |
192 |
ORLANSKI_WEST |
& (SW_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_west.F |
195 |
ORLANSKI_WEST |
CL=(salt(I_obc+1,J,K,bi,bj)-SW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
196 |
ORLANSKI_WEST |
& (ab1*SW_STORE_2(J,K,bi,bj) + ab2*SW_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_west.F |
206 |
ORLANSKI_WEST |
CVEL_SW(J,K,bi,bj) = CFIX |
|
./pkg/obcs/orlanski_west.F |
208 |
ORLANSKI_WEST |
CVEL_SW(J,K,bi,bj) = f1*(CL*dxC(I_obc+2,J,bi,bj)/deltaT |
|
./pkg/obcs/orlanski_west.F |
209 |
ORLANSKI_WEST |
& )+f2*CVEL_SW(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
212 |
ORLANSKI_WEST |
OBWs(J,K,bi,bj)=salt(I_obc,J,K,bi,bj)+ |
|
./pkg/obcs/orlanski_west.F |
213 |
ORLANSKI_WEST |
& CVEL_SW(J,K,bi,bj)*(deltaT*recip_dxC(I_obc+1,J,bi,bj))* |
|
./pkg/obcs/orlanski_west.F |
214 |
ORLANSKI_WEST |
& (ab1*(salt(I_obc+1,J,K,bi,bj)-salt(I_obc,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_west.F |
215 |
ORLANSKI_WEST |
& ab2*(SW_STORE_1(J,K,bi,bj)-SW_STORE_4(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_west.F |
219 |
ORLANSKI_WEST |
IF ((WW_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_west.F |
220 |
ORLANSKI_WEST |
& (WW_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_west.F |
223 |
ORLANSKI_WEST |
CL=(wVel(I_obc+1,J,K,bi,bj)-WW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
224 |
ORLANSKI_WEST |
& (ab1*WW_STORE_2(J,K,bi,bj)+ab2*WW_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_west.F |
234 |
ORLANSKI_WEST |
CVEL_WW(J,K,bi,bj) = CFIX |
|
./pkg/obcs/orlanski_west.F |
236 |
ORLANSKI_WEST |
CVEL_WW(J,K,bi,bj)=f1*(CL*dxC(I_obc+2,J,bi,bj)/deltaT) |
|
./pkg/obcs/orlanski_west.F |
237 |
ORLANSKI_WEST |
& + f2*CVEL_WW(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
240 |
ORLANSKI_WEST |
OBWw(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj)+ |
|
./pkg/obcs/orlanski_west.F |
241 |
ORLANSKI_WEST |
& CVEL_WW(J,K,bi,bj)*(deltaT*recip_dxC(I_obc+1,J,bi,bj))* |
|
./pkg/obcs/orlanski_west.F |
242 |
ORLANSKI_WEST |
& (ab1*(wVel(I_obc+1,J,K,bi,bj)-wVel(I_obc,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_west.F |
243 |
ORLANSKI_WEST |
& ab2*(WW_STORE_1(J,K,bi,bj)-WW_STORE_4(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_west.F |
249 |
ORLANSKI_WEST |
UW_STORE_3(J,K,bi,bj)=UW_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
251 |
ORLANSKI_WEST |
UW_STORE_2(J,K,bi,bj)=uVel(I_obc+3,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_west.F |
252 |
ORLANSKI_WEST |
& uVel(I_obc+2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
253 |
ORLANSKI_WEST |
UW_STORE_1(J,K,bi,bj)=uVel(I_obc+2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
254 |
ORLANSKI_WEST |
UW_STORE_4(J,K,bi,bj)=uVel(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
257 |
ORLANSKI_WEST |
VW_STORE_3(J,K,bi,bj)=VW_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
259 |
ORLANSKI_WEST |
VW_STORE_2(J,K,bi,bj)=vVel(I_obc+2,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_west.F |
260 |
ORLANSKI_WEST |
& vVel(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
261 |
ORLANSKI_WEST |
VW_STORE_1(J,K,bi,bj)=vVel(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
262 |
ORLANSKI_WEST |
VW_STORE_4(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
265 |
ORLANSKI_WEST |
TW_STORE_3(J,K,bi,bj)=TW_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
267 |
ORLANSKI_WEST |
TW_STORE_2(J,K,bi,bj)=theta(I_obc+2,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_west.F |
268 |
ORLANSKI_WEST |
& theta(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
269 |
ORLANSKI_WEST |
TW_STORE_1(J,K,bi,bj)=theta(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
270 |
ORLANSKI_WEST |
TW_STORE_4(J,K,bi,bj)=theta(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
273 |
ORLANSKI_WEST |
SW_STORE_3(J,K,bi,bj)=SW_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
275 |
ORLANSKI_WEST |
SW_STORE_2(J,K,bi,bj)=salt(I_obc+2,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_west.F |
276 |
ORLANSKI_WEST |
& salt(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
277 |
ORLANSKI_WEST |
SW_STORE_1(J,K,bi,bj)=salt(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
278 |
ORLANSKI_WEST |
SW_STORE_4(J,K,bi,bj)=salt(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
283 |
ORLANSKI_WEST |
WW_STORE_3(J,K,bi,bj)=WW_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
285 |
ORLANSKI_WEST |
WW_STORE_2(J,K,bi,bj)=wVel(I_obc+2,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_west.F |
286 |
ORLANSKI_WEST |
& wVel(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
287 |
ORLANSKI_WEST |
WW_STORE_1(J,K,bi,bj)=wVel(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
288 |
ORLANSKI_WEST |
WW_STORE_4(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
95 |
ORLANSKI_WEST |
INTEGER J, K, I_obc |
|
./pkg/opps/opps_calc.F |
144 |
OPPS_CALC |
Wd(k)= - .5*(wVel(K)+wVel(K+1)) |
|
./pkg/opps/opps_calc.F |
420 |
OPPS_CALC |
OPPSconvectCount(I,J,K,bi,bj) = |
|
./pkg/opps/opps_calc.F |
421 |
OPPS_CALC |
& OPPSconvectCount(I,J,K,bi,bj) + 1. _d 0 |
|
./pkg/opps/opps_calc.F |
96 |
OPPS_CALC |
INTEGER K, K2, K2m1, K2p1, ktr |
|
./pkg/opps/opps_init.F |
42 |
OPPS_INIT |
OPPSconvectCount(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/opps/opps_interface.F |
107 |
OPPS_INTERFACE |
DO K=1,Nr |
|
./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 |
113 |
OPPS_INTERFACE |
DO K=1,Nr |
|
./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 |
116 |
OPPS_INTERFACE |
wVelLoc(K) = - VERTICAL_VELOCITY |
|
./pkg/opps/opps_interface.F |
121 |
OPPS_INTERFACE |
DO K=1,Nr |
|
./pkg/opps/opps_interface.F |
122 |
OPPS_INTERFACE |
tracerLoc(K,itr) = ptracer(I,J,K,bi,bj,itr-2) |
|
./pkg/opps/opps_interface.F |
133 |
OPPS_INTERFACE |
DO K=1,Nr |
|
./pkg/opps/opps_interface.F |
134 |
OPPS_INTERFACE |
tMax = MAX(tracerLoc(K,1),tMax) |
|
./pkg/opps/opps_interface.F |
135 |
OPPS_INTERFACE |
tMin = MAX(tracerLoc(K,1),tMin) |
|
./pkg/opps/opps_interface.F |
136 |
OPPS_INTERFACE |
sMax = MAX(tracerLoc(K,2),sMax) |
|
./pkg/opps/opps_interface.F |
137 |
OPPS_INTERFACE |
sMin = MAX(tracerLoc(K,2),sMin) |
|
./pkg/opps/opps_interface.F |
153 |
OPPS_INTERFACE |
DO K=1,Nr |
|
./pkg/opps/opps_interface.F |
154 |
OPPS_INTERFACE |
tMaxNew = MAX(tracerLoc(K,1),tMaxNew) |
|
./pkg/opps/opps_interface.F |
155 |
OPPS_INTERFACE |
tMinNew = MAX(tracerLoc(K,1),tMinNew) |
|
./pkg/opps/opps_interface.F |
156 |
OPPS_INTERFACE |
sMaxNew = MAX(tracerLoc(K,2),sMaxNew) |
|
./pkg/opps/opps_interface.F |
157 |
OPPS_INTERFACE |
sMinNew = MAX(tracerLoc(K,2),sMinNew) |
|
./pkg/opps/opps_interface.F |
171 |
OPPS_INTERFACE |
DO K=1,Nr |
|
./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 |
177 |
OPPS_INTERFACE |
DO K=1,Nr |
|
./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 |
94 |
OPPS_INTERFACE |
DO K=1,Nr |
|
./pkg/opps/opps_interface.F |
97 |
OPPS_INTERFACE |
OPPSconvectCount(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/pp81/pp81_calc.F |
101 |
PP81_CALC |
IF ( (usingZCoords .AND. K .EQ. 2) .OR. |
|
./pkg/pp81/pp81_calc.F |
102 |
PP81_CALC |
& (usingPCoords .AND. K .EQ. Nr) ) THEN |
|
./pkg/pp81/pp81_calc.F |
105 |
PP81_CALC |
PPviscAr(I,J,K,bi,bj) = MAX(PPviscMin,PPviscAr(I,J,K,bi,bj)) |
|
./pkg/pp81/pp81_calc.F |
106 |
PP81_CALC |
PPdiffKr(I,J,K,bi,bj) = MAX(PPdiffMin,PPdiffKr(I,J,K,bi,bj)) |
|
./pkg/pp81/pp81_calc.F |
114 |
PP81_CALC |
PPviscAr(I,J,K,bi,bj) = PPviscAr(I,J,K,bi,bj) |
|
./pkg/pp81/pp81_calc.F |
115 |
PP81_CALC |
& * maskC(I,J,K,bi,bj) |
|
./pkg/pp81/pp81_calc.F |
116 |
PP81_CALC |
PPdiffKr(I,J,K,bi,bj) = PPdiffKr(I,J,K,bi,bj) |
|
./pkg/pp81/pp81_calc.F |
117 |
PP81_CALC |
& * maskC(I,J,K,bi,bj) |
|
./pkg/pp81/pp81_calc.F |
60 |
PP81_CALC |
INTEGER I, J, K |
|
./pkg/pp81/pp81_calc.F |
70 |
PP81_CALC |
DO K = 2, Nr |
|
./pkg/pp81/pp81_calc.F |
72 |
PP81_CALC |
I bi, bj, K, iMin, iMax, jMin, jMax, |
|
./pkg/pp81/pp81_calc.F |
85 |
PP81_CALC |
PPviscAr(I,J,K,bi,bj) = MAX(PPviscTmp,viscArNr(k)) |
|
./pkg/pp81/pp81_calc.F |
86 |
PP81_CALC |
PPdiffKr(I,J,K,bi,bj) = MAX(PPviscAr(I,J,K,bi,bj)/denom, |
|
./pkg/pp81/pp81_ri_number.F |
100 |
PP81_RI_NUMBER |
I theta(1-OLx,1-OLy,K,bi,bj), salt(1-OLx,1-OLy,K,bi,bj), |
|
./pkg/pp81/pp81_ri_number.F |
102 |
PP81_RI_NUMBER |
I K, bi, bj, myThid ) |
|
./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 |
110 |
PP81_RI_NUMBER |
& *recip_drC(K) |
|
./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 |
113 |
PP81_RI_NUMBER |
& *recip_drC(K) |
|
./pkg/pp81/pp81_ri_number.F |
11 |
PP81_RI_NUMBER |
I bi, bj, K, iMin, iMax, jMin, jMax, |
|
./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 |
77 |
PP81_RI_NUMBER |
Km1 = MAX(1,K-1) |
|
./pkg/pp81/pp81_ri_number.F |
94 |
PP81_RI_NUMBER |
I iMin, iMax, jMin, jMax, K, |
|
./pkg/pp81/pp81_ri_number.F |
99 |
PP81_RI_NUMBER |
I iMin, iMax, jMin, jMax, K, |
|
./pkg/profiles/cost_profiles.F |
155 |
COST_PROFILES |
do K=1,NLEVELMAX |
|
./pkg/profiles/cost_profiles.F |
157 |
COST_PROFILES |
if(K.LE.ProfDepthNo(num_file,bi,bj)) then |
|
./pkg/profiles/cost_profiles.F |
174 |
COST_PROFILES |
do K=1,NLEVELMAX |
|
./pkg/profiles/cost_profiles.F |
207 |
COST_PROFILES |
do K=1,ProfDepthNo(num_file,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
208 |
COST_PROFILES |
if (prof_weights1D(K).GT.0. _d 0 |
|
./pkg/profiles/cost_profiles.F |
209 |
COST_PROFILES |
& .AND. prof_mask1D_cur(K,bi,bj).NE. 0. _d 0 |
|
./pkg/profiles/cost_profiles.F |
445 |
COST_PROFILES |
do K=1,NLEVELMAX |
|
./pkg/profiles/cost_profiles.F |
45 |
COST_PROFILES |
integer K,num_file,num_var,prof_num |
|
./pkg/profiles/cost_profiles.F |
462 |
COST_PROFILES |
do K=1,ProfDepthNo(num_file,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
490 |
COST_PROFILES |
do K=1,ProfDepthNo(num_file,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
491 |
COST_PROFILES |
if (prof_weights1D(K).GT.0. |
|
./pkg/profiles/cost_profiles.F |
493 |
COST_PROFILES |
& .AND. prof_data1D_mean(K).NE. 0. _d 0 |
|
./pkg/profiles/cost_profiles.F |
498 |
COST_PROFILES |
& +prof_weights1D(K)*prof_mask1D_cur(K,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
499 |
COST_PROFILES |
& *(prof_traj1D(K)-prof_data1D(K)-prof_traj1D_mean(K) |
|
./pkg/profiles/cost_profiles.F |
501 |
COST_PROFILES |
& + prof_data1D_mean(K) |
|
./pkg/profiles/cost_profiles.F |
504 |
COST_PROFILES |
& *(prof_traj1D(K)-prof_data1D(K)-prof_traj1D_mean(K) |
|
./pkg/profiles/cost_profiles.F |
506 |
COST_PROFILES |
& + prof_data1D_mean(K) |
|
./pkg/profiles/cost_profiles.F |
511 |
COST_PROFILES |
& +prof_mask1D_cur(K,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
541 |
COST_PROFILES |
do K=1,NLEVELCOMB |
|
./pkg/profiles/profiles_init_fixed.F |
792 |
PROFILES_INIT_FIXED |
do K=1,ProfDepthNo(num_file,bi,bj) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
116 |
SALT_PLUME_CALC_DEPTH |
I theta(1-OLx,1-OLy,K,bi,bj), salt(1-OLx,1-OLy,K,bi,bj), |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
118 |
SALT_PLUME_CALC_DEPTH |
I K, bi, bj, myThid ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
88 |
SEAICE_DIAGNOSTICS_STATE |
& tmp=AREAITD(I,J,K,bi,bj)/AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
91 |
SEAICE_DIAGNOSTICS_STATE |
& + TICES(I,J,K,bi,bj)*tmp*recip_multDim |
|
./pkg/seaice/seaice_lsr.F |
1774 |
SEAICE_LSR_TRIDIAGU |
INTEGER K |
|
./pkg/seaice/seaice_lsr.F |
1791 |
SEAICE_LSR_TRIDIAGU |
DO K=0,1 |
|
./pkg/seaice/seaice_lsr.F |
1792 |
SEAICE_LSR_TRIDIAGU |
jMinLoc = jMin+K |
|
./pkg/seaice/seaice_lsr.F |
1919 |
SEAICE_LSR_TRIDIAGV |
INTEGER K |
|
./pkg/seaice/seaice_lsr.F |
1936 |
SEAICE_LSR_TRIDIAGV |
DO K=0,1 |
|
./pkg/seaice/seaice_lsr.F |
1937 |
SEAICE_LSR_TRIDIAGV |
iMinLoc = iMin+K |
|
./model/src/ini_cg3d.F |
124 |
INI_CG3D |
faceArea = _dxG(i,j,bi,bj)*drF(K) |
|
./pkg/seaice/seaice_preconditioner.F |
479 |
SEAICE_PRECOND_RHSU |
INTEGER I,J,K |
|
./pkg/seaice/seaice_preconditioner.F |
584 |
SEAICE_PRECOND_RHSV |
INTEGER I,J,K |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
108 |
SHAP_FILT_TRACER_S1 |
DO K=1,kSize |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
134 |
SHAP_FILT_TRACER_S1 |
DO K=1,kSize |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
161 |
SHAP_FILT_TRACER_S1 |
DO K=1,kSize |
|
./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 |
58 |
SHAP_FILT_TRACER_S1 |
DO K=1,kSize |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
81 |
SHAP_FILT_TRACER_S1 |
DO K=1,kSize |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
107 |
SHAP_FILT_TRACER_S4 |
DO K=1,kSize |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
132 |
SHAP_FILT_TRACER_S4 |
DO K=1,kSize |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
159 |
SHAP_FILT_TRACER_S4 |
DO K=1,kSize |
|
./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 |
57 |
SHAP_FILT_TRACER_S4 |
DO K=1,kSize |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
80 |
SHAP_FILT_TRACER_S4 |
DO K=1,kSize |
|
./pkg/shap_filt/shap_filt_tracerold.F |
26 |
SHAP_FILT_TRACEROLD |
INTEGER bi, bj, K |
|
./pkg/shap_filt/shap_filt_tracerold.F |
8 |
SHAP_FILT_TRACEROLD |
I bi, bj, K, myCurrentTime, myThid ) |
|
./pkg/shap_filt/shap_filt_u.F |
25 |
SHAP_FILT_U |
INTEGER bi, bj, K |
|
./pkg/shap_filt/shap_filt_u.F |
6 |
SHAP_FILT_U |
SUBROUTINE SHAP_FILT_U(uVel,bi,bj,K,myCurrentTime,myThid) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
136 |
SHAP_FILT_UV_S1 |
DO K=1,kSize |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
170 |
SHAP_FILT_UV_S1 |
DO K=1,kSize |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
265 |
SHAP_FILT_UV_S1 |
DO K=1,kSize |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
67 |
SHAP_FILT_UV_S1 |
DO K=1,kSize |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
93 |
SHAP_FILT_UV_S1 |
DO K=1,kSize |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
135 |
SHAP_FILT_UV_S4 |
DO K=1,kSize |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
167 |
SHAP_FILT_UV_S4 |
DO K=1,kSize |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
267 |
SHAP_FILT_UV_S4 |
DO K=1,kSize |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
66 |
SHAP_FILT_UV_S4 |
DO K=1,kSize |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
92 |
SHAP_FILT_UV_S4 |
DO K=1,kSize |
|
./pkg/shap_filt/shap_filt_v.F |
25 |
SHAP_FILT_V |
INTEGER bi, bj, K |
|
./pkg/shap_filt/shap_filt_v.F |
6 |
SHAP_FILT_V |
SUBROUTINE SHAP_FILT_V( vVel,bi,bj,K,myCurrentTime,myThid ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
260 |
SHELFICE_THERMODYNAMICS |
K = MAX(1,kTopC(I,J,bi,bj)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
263 |
SHELFICE_THERMODYNAMICS |
tLoc(I,J) = theta(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
264 |
SHELFICE_THERMODYNAMICS |
sLoc(I,J) = MAX(salt(I,J,K,bi,bj), zeroRL) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
274 |
SHELFICE_THERMODYNAMICS |
K = MAX(1,kTopC(I,J,bi,bj)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
275 |
SHELFICE_THERMODYNAMICS |
tmpFac = _hFacW(I, J,K,bi,bj) + _hFacW(I+1,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
278 |
SHELFICE_THERMODYNAMICS |
& uVel( I, J,K,bi,bj)*uVel( I, J,K,bi,bj)*_hFacW( I, J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
279 |
SHELFICE_THERMODYNAMICS |
& + uVel(I+1,J,K,bi,bj)*uVel(I+1,J,K,bi,bj)*_hFacW(I+1,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
281 |
SHELFICE_THERMODYNAMICS |
tmpFac = _hFacS(I,J, K,bi,bj) + _hFacS(I,J+1,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
284 |
SHELFICE_THERMODYNAMICS |
& vVel(I, J, K,bi,bj)*vVel(I, J, K,bi,bj)*_hFacS(I, J, K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
285 |
SHELFICE_THERMODYNAMICS |
& + vVel(I,J+1,K,bi,bj)*vVel(I,J+1,K,bi,bj)*_hFacS(I,J+1,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
293 |
SHELFICE_THERMODYNAMICS |
K = MAX(1,kTopC(I,J,bi,bj)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
294 |
SHELFICE_THERMODYNAMICS |
uLoc(I,J) = recip_hFacC(I,J,K,bi,bj) * halfRL * |
|
./pkg/shelfice/shelfice_thermodynamics.F |
295 |
SHELFICE_THERMODYNAMICS |
& ( uVel(I, J,K,bi,bj) * _hFacW(I, J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
296 |
SHELFICE_THERMODYNAMICS |
& + uVel(I+1,J,K,bi,bj) * _hFacW(I+1,J,K,bi,bj) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
297 |
SHELFICE_THERMODYNAMICS |
vLoc(I,J) = recip_hFacC(I,J,K,bi,bj) * halfRL * |
|
./pkg/shelfice/shelfice_thermodynamics.F |
298 |
SHELFICE_THERMODYNAMICS |
& ( vVel(I,J, K,bi,bj) * _hFacS(I,J, K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
299 |
SHELFICE_THERMODYNAMICS |
& + vVel(I,J+1,K,bi,bj) * _hFacS(I,J+1,K,bi,bj) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
308 |
SHELFICE_THERMODYNAMICS |
K = kTopC(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
309 |
SHELFICE_THERMODYNAMICS |
IF ( K .NE. 0 .AND. K .LT. Nr ) THEN |
|
./pkg/shelfice/shelfice_thermodynamics.F |
310 |
SHELFICE_THERMODYNAMICS |
Kp1 = MIN(Nr,K+1) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
312 |
SHELFICE_THERMODYNAMICS |
drKp1 = drF(K)*( 1. _d 0 - _hFacC(I,J,K,bi,bj) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
317 |
SHELFICE_THERMODYNAMICS |
& ( drF(K)*_hFacC(I,J,K,bi,bj) + drKp1 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
318 |
SHELFICE_THERMODYNAMICS |
tLoc(I,J) = ( tLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
321 |
SHELFICE_THERMODYNAMICS |
sLoc(I,J) = ( sLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
324 |
SHELFICE_THERMODYNAMICS |
uLoc(I,J) = ( uLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
329 |
SHELFICE_THERMODYNAMICS |
vLoc(I,J) = ( vLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
356 |
SHELFICE_THERMODYNAMICS |
K = kTopC(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
357 |
SHELFICE_THERMODYNAMICS |
IF ( K .NE. 0 .AND. pLoc(I,J) .GT. 0. _d 0 ) THEN |
|
./pkg/shelfice/shelfice_thermodynamics.F |
400 |
SHELFICE_THERMODYNAMICS |
K = kTopC(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
401 |
SHELFICE_THERMODYNAMICS |
IF ( K .NE. 0 .AND. pLoc(I,J) .GT. 0. _d 0 ) THEN |
|
./pkg/shelfice/shelfice_thermodynamics.F |
407 |
SHELFICE_THERMODYNAMICS |
shelfIceHeatFlux(I,J,bi,bj) = maskC(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
450 |
SHELFICE_THERMODYNAMICS |
K = kTopC(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
451 |
SHELFICE_THERMODYNAMICS |
IF ( K .NE. 0 .AND. pLoc(I,J) .GT. 0. _d 0 ) THEN |
|
./pkg/shelfice/shelfice_thermodynamics.F |
85 |
SHELFICE_THERMODYNAMICS |
INTEGER I,J,K,Kp1 |
|
./pkg/smooth/smooth_rhs.F |
100 |
SMOOTH_RHS |
IF (K .EQ. 1) THEN |
|
./pkg/smooth/smooth_rhs.F |
264 |
SMOOTH_RHS |
IF (K.GT.1) THEN |
|
./pkg/smooth/smooth_rhs.F |
309 |
SMOOTH_RHS |
IF (K.GT.1) THEN |
|
./pkg/smooth/smooth_rhs.F |
336 |
SMOOTH_RHS |
IF (K.GT.1) THEN |
|
./pkg/sphere/sphere.F |
266 |
SHCROTATE |
INTEGER K, L, M |
|
./pkg/sphere/sphere.F |
282 |
SHCROTATE |
K = L*L+L+1 |
|
./pkg/sphere/sphere.F |
283 |
SHCROTATE |
C = SHC(K+M) |
|
./pkg/sphere/sphere.F |
284 |
SHCROTATE |
S = SHC(K-M) |
|
./pkg/sphere/sphere.F |
285 |
SHCROTATE |
SHC(K+M) = COSA*C + SINA*S |
|
./pkg/sphere/sphere.F |
286 |
SHCROTATE |
SHC(K-M) =-SINA*C + COSA*S |
|
./pkg/sphere/sphere.F |
313 |
SHC2ZONE |
INTEGER LMAX1, J, K, L, M |
|
./pkg/sphere/sphere.F |
329 |
SHC2ZONE |
K = 0 |
|
./pkg/sphere/sphere.F |
336 |
SHC2ZONE |
K = K+1 |
|
./pkg/sphere/sphere.F |
338 |
SHC2ZONE |
Q = FACT(L)*P(K) |
|
./pkg/sphere/sphere.F |
345 |
SHC2ZONE |
K = K+1 |
|
./pkg/sphere/sphere.F |
347 |
SHC2ZONE |
Q = FACT(L+1)*P(K) |
|
./pkg/sphere/sphere.F |
356 |
SHC2ZONE |
K = K+1 |
|
./pkg/sphere/sphere.F |
358 |
SHC2ZONE |
Q = FACT(LMAX)*P(K) |
|
./pkg/sphere/sphere.F |
404 |
SHC4ZONE |
INTEGER I, J, K, L, M |
|
./pkg/sphere/sphere.F |
446 |
SHC4ZONE |
K = L*L+L+1 |
|
./pkg/sphere/sphere.F |
447 |
SHC4ZONE |
SHC(K+M) = SHC(K+M) + P(I1) * CE |
|
./pkg/sphere/sphere.F |
448 |
SHC4ZONE |
SHC(K-M) = SHC(K-M) + P(I1) * SE |
|
./pkg/sphere/sphere.F |
449 |
SHC4ZONE |
K = K+L+L+2 |
|
./pkg/sphere/sphere.F |
450 |
SHC4ZONE |
SHC(K+M) = SHC(K+M) + P(I2) * CO |
|
./pkg/sphere/sphere.F |
451 |
SHC4ZONE |
SHC(K-M) = SHC(K-M) + P(I2) * SO |
|
./pkg/sphere/sphere.F |
456 |
SHC4ZONE |
K = LMAX*LMAX+LMAX+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 |
557 |
HELMHOLTZ |
INTEGER K, L, N, M |
|
./pkg/sphere/sphere.F |
575 |
HELMHOLTZ |
K = ISECT(M) |
|
./pkg/sphere/sphere.F |
577 |
HELMHOLTZ |
P(K) = Z(M) * CM |
|
./pkg/sphere/sphere.F |
581 |
HELMHOLTZ |
K = ISECT(M)+N |
|
./pkg/sphere/sphere.F |
584 |
HELMHOLTZ |
P(K) = S*P(K-1)/AK |
|
./pkg/sphere/sphere.F |
589 |
HELMHOLTZ |
K = ISECT(M)+N |
|
./pkg/sphere/sphere.F |
592 |
HELMHOLTZ |
P(K) =(S*P(K-1)-P(K-2)*A(M))/AK |
|
./pkg/timeave/timeave_surf_flux.F |
36 |
TIMEAVE_SURF_FLUX |
INTEGER I, J, K |
|
./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 |
100 |
RADB4 |
CH(1,K,2) = TR1-TR4 |
|
./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 |
101 |
RADB4 |
CH(1,K,3) = TR2-TR3 |
|
./pkg/zonal_filt/fftpack.F |
1025 |
R8ADB4 |
DO 101 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
1026 |
R8ADB4 |
TR1 = CC(1,1,K)-CC(IDO,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1027 |
R8ADB4 |
TR2 = CC(1,1,K)+CC(IDO,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1028 |
R8ADB4 |
TR3 = CC(IDO,2,K)+CC(IDO,2,K) |
|
./pkg/zonal_filt/fftpack.F |
1029 |
R8ADB4 |
TR4 = CC(1,3,K)+CC(1,3,K) |
|
./pkg/zonal_filt/fftpack.F |
102 |
RADB4 |
CH(1,K,4) = TR1+TR4 |
|
./pkg/zonal_filt/fftpack.F |
1030 |
R8ADB4 |
CH(1,K,1) = TR2+TR3 |
|
./pkg/zonal_filt/fftpack.F |
1031 |
R8ADB4 |
CH(1,K,2) = TR1-TR4 |
|
./pkg/zonal_filt/fftpack.F |
1032 |
R8ADB4 |
CH(1,K,3) = TR2-TR3 |
|
./pkg/zonal_filt/fftpack.F |
1033 |
R8ADB4 |
CH(1,K,4) = TR1+TR4 |
|
./pkg/zonal_filt/fftpack.F |
1037 |
R8ADB4 |
DO 104 K=1,L1 |
|
./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 |
1066 |
R8ADB4 |
DO 106 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
1067 |
R8ADB4 |
TI1 = CC(1,2,K)+CC(1,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1068 |
R8ADB4 |
TI2 = CC(1,4,K)-CC(1,2,K) |
|
./pkg/zonal_filt/fftpack.F |
1069 |
R8ADB4 |
TR1 = CC(IDO,1,K)-CC(IDO,3,K) |
|
./pkg/zonal_filt/fftpack.F |
106 |
RADB4 |
DO 104 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
1070 |
R8ADB4 |
TR2 = CC(IDO,1,K)+CC(IDO,3,K) |
|
./pkg/zonal_filt/fftpack.F |
1071 |
R8ADB4 |
CH(IDO,K,1) = TR2+TR2 |
|
./pkg/zonal_filt/fftpack.F |
1072 |
R8ADB4 |
CH(IDO,K,2) = SQRT2*(TR1-TI1) |
|
./pkg/zonal_filt/fftpack.F |
1073 |
R8ADB4 |
CH(IDO,K,3) = TI2+TI2 |
|
./pkg/zonal_filt/fftpack.F |
1074 |
R8ADB4 |
CH(IDO,K,4) = -SQRT2*(TR1+TI1) |
|
./pkg/zonal_filt/fftpack.F |
1085 |
R8ADB5 |
DO 101 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
1086 |
R8ADB5 |
TI5 = CC(1,3,K)+CC(1,3,K) |
|
./pkg/zonal_filt/fftpack.F |
1087 |
R8ADB5 |
TI4 = CC(1,5,K)+CC(1,5,K) |
|
./pkg/zonal_filt/fftpack.F |
1088 |
R8ADB5 |
TR2 = CC(IDO,2,K)+CC(IDO,2,K) |
|
./pkg/zonal_filt/fftpack.F |
1089 |
R8ADB5 |
TR3 = CC(IDO,4,K)+CC(IDO,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1090 |
R8ADB5 |
CH(1,K,1) = CC(1,1,K)+TR2+TR3 |
|
./pkg/zonal_filt/fftpack.F |
1091 |
R8ADB5 |
CR2 = CC(1,1,K)+TR11*TR2+TR12*TR3 |
|
./pkg/zonal_filt/fftpack.F |
1092 |
R8ADB5 |
CR3 = CC(1,1,K)+TR12*TR2+TR11*TR3 |
|
./pkg/zonal_filt/fftpack.F |
1095 |
R8ADB5 |
CH(1,K,2) = CR2-CI5 |
|
./pkg/zonal_filt/fftpack.F |
1096 |
R8ADB5 |
CH(1,K,3) = CR3-CI4 |
|
./pkg/zonal_filt/fftpack.F |
1097 |
R8ADB5 |
CH(1,K,4) = CR3+CI4 |
|
./pkg/zonal_filt/fftpack.F |
1098 |
R8ADB5 |
CH(1,K,5) = CR2+CI5 |
|
./pkg/zonal_filt/fftpack.F |
109 |
RADB4 |
TI1 = CC(I,1,K)+CC(IC,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1102 |
R8ADB5 |
DO 103 K=1,L1 |
|
./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 |
114 |
RADB4 |
TR2 = CC(I-1,1,K)+CC(IC-1,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1158 |
R8ADBG |
DO 102 K=1,L1 |
|
./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 |
1165 |
R8ADBG |
DO 104 K=1,L1 |
|
./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 |
1172 |
R8ADBG |
DO 107 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
1173 |
R8ADBG |
CH(1,K,J) = CC(IDO,J2-2,K)+CC(IDO,J2-2,K) |
|
./pkg/zonal_filt/fftpack.F |
1174 |
R8ADBG |
CH(1,K,JC) = CC(1,J2-1,K)+CC(1,J2-1,K) |
|
./pkg/zonal_filt/fftpack.F |
117 |
RADB4 |
CH(I-1,K,1) = TR2+TR3 |
|
./pkg/zonal_filt/fftpack.F |
1181 |
R8ADBG |
DO 110 K=1,L1 |
|
./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 |
1196 |
R8ADBG |
DO 113 K=1,L1 |
|
./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 |
1237 |
R8ADBG |
DO 123 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
1238 |
R8ADBG |
CH(1,K,J) = C1(1,K,J)-C1(1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1239 |
R8ADBG |
CH(1,K,JC) = C1(1,K,J)+C1(1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1246 |
R8ADBG |
DO 126 K=1,L1 |
|
./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 |
1259 |
R8ADBG |
DO 129 K=1,L1 |
|
./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 |
1273 |
R8ADBG |
DO 134 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
1274 |
R8ADBG |
C1(1,K,J) = CH(1,K,J) |
|
./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 |
1284 |
R8ADBG |
DO 136 K=1,L1 |
|
./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 |
1294 |
R8ADBG |
DO 141 K=1,L1 |
|
./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 |
130 |
RADB4 |
CH(I,K,4) = WA3(I-2)*CI4+WA3(I-1)*CR4 |
|
./pkg/zonal_filt/fftpack.F |
135 |
RADB4 |
DO 106 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
136 |
RADB4 |
TI1 = CC(1,2,K)+CC(1,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1378 |
R8ADF2 |
DO 101 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
1379 |
R8ADF2 |
CH(1,1,K) = CC(1,K,1)+CC(1,K,2) |
|
./pkg/zonal_filt/fftpack.F |
137 |
RADB4 |
TI2 = CC(1,4,K)-CC(1,2,K) |
|
./pkg/zonal_filt/fftpack.F |
1380 |
R8ADF2 |
CH(IDO,2,K) = CC(1,K,1)-CC(1,K,2) |
|
./pkg/zonal_filt/fftpack.F |
1384 |
R8ADF2 |
DO 104 K=1,L1 |
|
./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 |
138 |
RADB4 |
TR1 = CC(IDO,1,K)-CC(IDO,3,K) |
|
./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 |
1396 |
R8ADF2 |
105 DO 106 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
1397 |
R8ADF2 |
CH(1,2,K) = -CC(IDO,K,2) |
|
./pkg/zonal_filt/fftpack.F |
1398 |
R8ADF2 |
CH(IDO,1,K) = CC(IDO,K,1) |
|
./pkg/zonal_filt/fftpack.F |
139 |
RADB4 |
TR2 = CC(IDO,1,K)+CC(IDO,3,K) |
|
./pkg/zonal_filt/fftpack.F |
1408 |
R8ADF3 |
DO 101 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
1409 |
R8ADF3 |
CR2 = CC(1,K,2)+CC(1,K,3) |
|
./pkg/zonal_filt/fftpack.F |
140 |
RADB4 |
CH(IDO,K,1) = TR2+TR2 |
|
./pkg/zonal_filt/fftpack.F |
1410 |
R8ADF3 |
CH(1,1,K) = CC(1,K,1)+CR2 |
|
./pkg/zonal_filt/fftpack.F |
1411 |
R8ADF3 |
CH(1,3,K) = TAUI*(CC(1,K,3)-CC(1,K,2)) |
|
./pkg/zonal_filt/fftpack.F |
1412 |
R8ADF3 |
CH(IDO,2,K) = CC(1,K,1)+TAUR*CR2 |
|
./pkg/zonal_filt/fftpack.F |
1416 |
R8ADF3 |
DO 103 K=1,L1 |
|
./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 |
141 |
RADB4 |
CH(IDO,K,2) = SQRT2*(TR1-TI1) |
|
./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 |
142 |
RADB4 |
CH(IDO,K,3) = TI2+TI2 |
|
./pkg/zonal_filt/fftpack.F |
1431 |
R8ADF3 |
CH(I-1,3,K) = TR2+TR3 |
|
./pkg/zonal_filt/fftpack.F |
1432 |
R8ADF3 |
CH(IC-1,2,K) = TR2-TR3 |
|
./pkg/zonal_filt/fftpack.F |
1433 |
R8ADF3 |
CH(I,3,K) = TI2+TI3 |
|
./pkg/zonal_filt/fftpack.F |
1434 |
R8ADF3 |
CH(IC,2,K) = TI3-TI2 |
|
./pkg/zonal_filt/fftpack.F |
143 |
RADB4 |
CH(IDO,K,4) = -SQRT2*(TR1+TI1) |
|
./pkg/zonal_filt/fftpack.F |
1445 |
R8ADF4 |
DO 101 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
1446 |
R8ADF4 |
TR1 = CC(1,K,2)+CC(1,K,4) |
|
./pkg/zonal_filt/fftpack.F |
1447 |
R8ADF4 |
TR2 = CC(1,K,1)+CC(1,K,3) |
|
./pkg/zonal_filt/fftpack.F |
1448 |
R8ADF4 |
CH(1,1,K) = TR1+TR2 |
|
./pkg/zonal_filt/fftpack.F |
1449 |
R8ADF4 |
CH(IDO,4,K) = TR2-TR1 |
|
./pkg/zonal_filt/fftpack.F |
1450 |
R8ADF4 |
CH(IDO,2,K) = CC(1,K,1)-CC(1,K,3) |
|
./pkg/zonal_filt/fftpack.F |
1451 |
R8ADF4 |
CH(1,3,K) = CC(1,K,4)-CC(1,K,2) |
|
./pkg/zonal_filt/fftpack.F |
1455 |
R8ADF4 |
DO 104 K=1,L1 |
|
./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 |
1473 |
R8ADF4 |
CH(IC-1,4,K) = TR2-TR1 |
|
./pkg/zonal_filt/fftpack.F |
1474 |
R8ADF4 |
CH(I,1,K) = TI1+TI2 |
|
./pkg/zonal_filt/fftpack.F |
1475 |
R8ADF4 |
CH(IC,4,K) = TI1-TI2 |
|
./pkg/zonal_filt/fftpack.F |
1476 |
R8ADF4 |
CH(I-1,3,K) = TI4+TR3 |
|
./pkg/zonal_filt/fftpack.F |
1477 |
R8ADF4 |
CH(IC-1,2,K) = TR3-TI4 |
|
./pkg/zonal_filt/fftpack.F |
1478 |
R8ADF4 |
CH(I,3,K) = TR4+TI3 |
|
./pkg/zonal_filt/fftpack.F |
1479 |
R8ADF4 |
CH(IC,2,K) = TR4-TI3 |
|
./pkg/zonal_filt/fftpack.F |
1484 |
R8ADF4 |
DO 106 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
1485 |
R8ADF4 |
TI1 = -HSQT2*(CC(IDO,K,2)+CC(IDO,K,4)) |
|
./pkg/zonal_filt/fftpack.F |
1486 |
R8ADF4 |
TR1 = HSQT2*(CC(IDO,K,2)-CC(IDO,K,4)) |
|
./pkg/zonal_filt/fftpack.F |
1487 |
R8ADF4 |
CH(IDO,1,K) = TR1+CC(IDO,K,1) |
|
./pkg/zonal_filt/fftpack.F |
1488 |
R8ADF4 |
CH(IDO,3,K) = CC(IDO,K,1)-TR1 |
|
./pkg/zonal_filt/fftpack.F |
1489 |
R8ADF4 |
CH(1,2,K) = TI1-CC(IDO,K,3) |
|
./pkg/zonal_filt/fftpack.F |
1490 |
R8ADF4 |
CH(1,4,K) = TI1+CC(IDO,K,3) |
|
./pkg/zonal_filt/fftpack.F |
1501 |
R8ADF5 |
DO 101 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
1502 |
R8ADF5 |
CR2 = CC(1,K,5)+CC(1,K,2) |
|
./pkg/zonal_filt/fftpack.F |
1503 |
R8ADF5 |
CI5 = CC(1,K,5)-CC(1,K,2) |
|
./pkg/zonal_filt/fftpack.F |
1504 |
R8ADF5 |
CR3 = CC(1,K,4)+CC(1,K,3) |
|
./pkg/zonal_filt/fftpack.F |
1505 |
R8ADF5 |
CI4 = CC(1,K,4)-CC(1,K,3) |
|
./pkg/zonal_filt/fftpack.F |
1506 |
R8ADF5 |
CH(1,1,K) = CC(1,K,1)+CR2+CR3 |
|
./pkg/zonal_filt/fftpack.F |
1507 |
R8ADF5 |
CH(IDO,2,K) = CC(1,K,1)+TR11*CR2+TR12*CR3 |
|
./pkg/zonal_filt/fftpack.F |
1508 |
R8ADF5 |
CH(1,3,K) = TI11*CI5+TI12*CI4 |
|
./pkg/zonal_filt/fftpack.F |
1509 |
R8ADF5 |
CH(IDO,4,K) = CC(1,K,1)+TR12*CR2+TR11*CR3 |
|
./pkg/zonal_filt/fftpack.F |
1510 |
R8ADF5 |
CH(1,5,K) = TI12*CI5-TI11*CI4 |
|
./pkg/zonal_filt/fftpack.F |
1514 |
R8ADF5 |
DO 103 K=1,L1 |
|
./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 |
1544 |
R8ADF5 |
CH(IC-1,2,K) = TR2-TR5 |
|
./pkg/zonal_filt/fftpack.F |
1545 |
R8ADF5 |
CH(I,3,K) = TI2+TI5 |
|
./pkg/zonal_filt/fftpack.F |
1546 |
R8ADF5 |
CH(IC,2,K) = TI5-TI2 |
|
./pkg/zonal_filt/fftpack.F |
1547 |
R8ADF5 |
CH(I-1,5,K) = TR3+TR4 |
|
./pkg/zonal_filt/fftpack.F |
1548 |
R8ADF5 |
CH(IC-1,4,K) = TR3-TR4 |
|
./pkg/zonal_filt/fftpack.F |
1549 |
R8ADF5 |
CH(I,5,K) = TI3+TI4 |
|
./pkg/zonal_filt/fftpack.F |
1550 |
R8ADF5 |
CH(IC,4,K) = TI4-TI3 |
|
./pkg/zonal_filt/fftpack.F |
156 |
RADB5 |
DO 101 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
1574 |
R8ADFG |
DO 102 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
1575 |
R8ADFG |
CH(1,K,J) = C1(1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
157 |
RADB5 |
TI5 = CC(1,3,K)+CC(1,3,K) |
|
./pkg/zonal_filt/fftpack.F |
1585 |
R8ADFG |
DO 104 K=1,L1 |
|
./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 |
158 |
RADB5 |
TI4 = CC(1,5,K)+CC(1,5,K) |
|
./pkg/zonal_filt/fftpack.F |
1595 |
R8ADFG |
DO 109 K=1,L1 |
|
./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 |
159 |
RADB5 |
TR2 = CC(IDO,2,K)+CC(IDO,2,K) |
|
./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 |
1607 |
R8ADFG |
DO 113 K=1,L1 |
|
./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 |
160 |
RADB5 |
TR3 = CC(IDO,4,K)+CC(IDO,4,K) |
|
./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 |
161 |
RADB5 |
CH(1,K,1) = CC(1,1,K)+TR2+TR3 |
|
./pkg/zonal_filt/fftpack.F |
1620 |
R8ADFG |
DO 116 K=1,L1 |
|
./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 |
162 |
RADB5 |
CR2 = CC(1,1,K)+TR11*TR2+TR12*TR3 |
|
./pkg/zonal_filt/fftpack.F |
1634 |
R8ADFG |
DO 122 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
1635 |
R8ADFG |
C1(1,K,J) = CH(1,K,J)+CH(1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1636 |
R8ADFG |
C1(1,K,JC) = CH(1,K,JC)-CH(1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
163 |
RADB5 |
CR3 = CC(1,1,K)+TR12*TR2+TR11*TR3 |
|
./pkg/zonal_filt/fftpack.F |
166 |
RADB5 |
CH(1,K,2) = CR2-CI5 |
|
./pkg/zonal_filt/fftpack.F |
1673 |
R8ADFG |
DO 131 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
1675 |
R8ADFG |
CC(I,1,K) = CH(I,K,1) |
|
./pkg/zonal_filt/fftpack.F |
167 |
RADB5 |
CH(1,K,3) = CR3-CI4 |
|
./pkg/zonal_filt/fftpack.F |
1680 |
R8ADFG |
DO 133 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
1681 |
R8ADFG |
CC(I,1,K) = CH(I,K,1) |
|
./pkg/zonal_filt/fftpack.F |
1687 |
R8ADFG |
DO 136 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
1688 |
R8ADFG |
CC(IDO,J2-2,K) = CH(1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
1689 |
R8ADFG |
CC(1,J2-1,K) = CH(1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
168 |
RADB5 |
CH(1,K,4) = CR3+CI4 |
|
./pkg/zonal_filt/fftpack.F |
1697 |
R8ADFG |
DO 139 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
169 |
RADB5 |
CH(1,K,5) = CR2+CI5 |
|
./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 |
1713 |
R8ADFG |
DO 142 K=1,L1 |
|
./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 |
173 |
RADB5 |
DO 103 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
176 |
RADB5 |
TI5 = CC(I,3,K)+CC(IC,2,K) |
|
./pkg/zonal_filt/fftpack.F |
177 |
RADB5 |
TI2 = CC(I,3,K)-CC(IC,2,K) |
|
./pkg/zonal_filt/fftpack.F |
178 |
RADB5 |
TI4 = CC(I,5,K)+CC(IC,4,K) |
|
./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 |
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 |
183 |
RADB5 |
TR3 = CC(I-1,5,K)+CC(IC-1,4,K) |
|
./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 |
21 |
RADB2 |
DO 101 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
22 |
RADB2 |
CH(1,K,1) = CC(1,1,K)+CC(IDO,2,K) |
|
./pkg/zonal_filt/fftpack.F |
231 |
RADBG |
DO 102 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
233 |
RADBG |
CH(I,K,1) = CC(I,1,K) |
|
./pkg/zonal_filt/fftpack.F |
238 |
RADBG |
DO 104 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
239 |
RADBG |
CH(I,K,1) = CC(I,1,K) |
|
./pkg/zonal_filt/fftpack.F |
23 |
RADB2 |
CH(1,K,2) = CC(1,1,K)-CC(IDO,2,K) |
|
./pkg/zonal_filt/fftpack.F |
245 |
RADBG |
DO 107 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
246 |
RADBG |
CH(1,K,J) = CC(IDO,J2-2,K)+CC(IDO,J2-2,K) |
|
./pkg/zonal_filt/fftpack.F |
247 |
RADBG |
CH(1,K,JC) = CC(1,J2-1,K)+CC(1,J2-1,K) |
|
./pkg/zonal_filt/fftpack.F |
254 |
RADBG |
DO 110 K=1,L1 |
|
./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 |
269 |
RADBG |
DO 113 K=1,L1 |
|
./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 |
27 |
RADB2 |
DO 104 K=1,L1 |
|
./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 |
310 |
RADBG |
DO 123 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
311 |
RADBG |
CH(1,K,J) = C1(1,K,J)-C1(1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
312 |
RADBG |
CH(1,K,JC) = C1(1,K,J)+C1(1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
319 |
RADBG |
DO 126 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
31 |
RADB2 |
TR2 = CC(I-1,1,K)-CC(IC-1,2,K) |
|
./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 |
332 |
RADBG |
DO 129 K=1,L1 |
|
./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 |
346 |
RADBG |
DO 134 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
347 |
RADBG |
C1(1,K,J) = CH(1,K,J) |
|
./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 |
357 |
RADBG |
DO 136 K=1,L1 |
|
./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 |
367 |
RADBG |
DO 141 K=1,L1 |
|
./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 |
39 |
RADB2 |
105 DO 106 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
40 |
RADB2 |
CH(IDO,K,1) = CC(IDO,1,K)+CC(IDO,1,K) |
|
./pkg/zonal_filt/fftpack.F |
41 |
RADB2 |
CH(IDO,K,2) = -(CC(1,2,K)+CC(1,2,K)) |
|
./pkg/zonal_filt/fftpack.F |
457 |
RADF2 |
DO 101 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
458 |
RADF2 |
CH(1,1,K) = CC(1,K,1)+CC(1,K,2) |
|
./pkg/zonal_filt/fftpack.F |
459 |
RADF2 |
CH(IDO,2,K) = CC(1,K,1)-CC(1,K,2) |
|
./pkg/zonal_filt/fftpack.F |
463 |
RADF2 |
DO 104 K=1,L1 |
|
./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 |
475 |
RADF2 |
105 DO 106 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
476 |
RADF2 |
CH(1,2,K) = -CC(IDO,K,2) |
|
./pkg/zonal_filt/fftpack.F |
477 |
RADF2 |
CH(IDO,1,K) = CC(IDO,K,1) |
|
./pkg/zonal_filt/fftpack.F |
489 |
RADF3 |
DO 101 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
490 |
RADF3 |
CR2 = CC(1,K,2)+CC(1,K,3) |
|
./pkg/zonal_filt/fftpack.F |
491 |
RADF3 |
CH(1,1,K) = CC(1,K,1)+CR2 |
|
./pkg/zonal_filt/fftpack.F |
492 |
RADF3 |
CH(1,3,K) = TAUI*(CC(1,K,3)-CC(1,K,2)) |
|
./pkg/zonal_filt/fftpack.F |
493 |
RADF3 |
CH(IDO,2,K) = CC(1,K,1)+TAUR*CR2 |
|
./pkg/zonal_filt/fftpack.F |
497 |
RADF3 |
DO 103 K=1,L1 |
|
./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 |
513 |
RADF3 |
CH(IC-1,2,K) = TR2-TR3 |
|
./pkg/zonal_filt/fftpack.F |
514 |
RADF3 |
CH(I,3,K) = TI2+TI3 |
|
./pkg/zonal_filt/fftpack.F |
515 |
RADF3 |
CH(IC,2,K) = TI3-TI2 |
|
./pkg/zonal_filt/fftpack.F |
528 |
RADF4 |
DO 101 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
529 |
RADF4 |
TR1 = CC(1,K,2)+CC(1,K,4) |
|
./pkg/zonal_filt/fftpack.F |
530 |
RADF4 |
TR2 = CC(1,K,1)+CC(1,K,3) |
|
./pkg/zonal_filt/fftpack.F |
531 |
RADF4 |
CH(1,1,K) = TR1+TR2 |
|
./pkg/zonal_filt/fftpack.F |
532 |
RADF4 |
CH(IDO,4,K) = TR2-TR1 |
|
./pkg/zonal_filt/fftpack.F |
533 |
RADF4 |
CH(IDO,2,K) = CC(1,K,1)-CC(1,K,3) |
|
./pkg/zonal_filt/fftpack.F |
534 |
RADF4 |
CH(1,3,K) = CC(1,K,4)-CC(1,K,2) |
|
./pkg/zonal_filt/fftpack.F |
538 |
RADF4 |
DO 104 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
53 |
RADB3 |
DO 101 K=1,L1 |
|
./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 |
54 |
RADB3 |
TR2 = CC(IDO,2,K)+CC(IDO,2,K) |
|
./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 |
556 |
RADF4 |
CH(IC-1,4,K) = TR2-TR1 |
|
./pkg/zonal_filt/fftpack.F |
557 |
RADF4 |
CH(I,1,K) = TI1+TI2 |
|
./pkg/zonal_filt/fftpack.F |
558 |
RADF4 |
CH(IC,4,K) = TI1-TI2 |
|
./pkg/zonal_filt/fftpack.F |
559 |
RADF4 |
CH(I-1,3,K) = TI4+TR3 |
|
./pkg/zonal_filt/fftpack.F |
55 |
RADB3 |
CR2 = CC(1,1,K)+TAUR*TR2 |
|
./pkg/zonal_filt/fftpack.F |
560 |
RADF4 |
CH(IC-1,2,K) = TR3-TI4 |
|
./pkg/zonal_filt/fftpack.F |
561 |
RADF4 |
CH(I,3,K) = TR4+TI3 |
|
./pkg/zonal_filt/fftpack.F |
562 |
RADF4 |
CH(IC,2,K) = TR4-TI3 |
|
./pkg/zonal_filt/fftpack.F |
567 |
RADF4 |
DO 106 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
568 |
RADF4 |
TI1 = -HSQT2*(CC(IDO,K,2)+CC(IDO,K,4)) |
|
./pkg/zonal_filt/fftpack.F |
569 |
RADF4 |
TR1 = HSQT2*(CC(IDO,K,2)-CC(IDO,K,4)) |
|
./pkg/zonal_filt/fftpack.F |
56 |
RADB3 |
CH(1,K,1) = CC(1,1,K)+TR2 |
|
./pkg/zonal_filt/fftpack.F |
570 |
RADF4 |
CH(IDO,1,K) = TR1+CC(IDO,K,1) |
|
./pkg/zonal_filt/fftpack.F |
571 |
RADF4 |
CH(IDO,3,K) = CC(IDO,K,1)-TR1 |
|
./pkg/zonal_filt/fftpack.F |
572 |
RADF4 |
CH(1,2,K) = TI1-CC(IDO,K,3) |
|
./pkg/zonal_filt/fftpack.F |
573 |
RADF4 |
CH(1,4,K) = TI1+CC(IDO,K,3) |
|
./pkg/zonal_filt/fftpack.F |
57 |
RADB3 |
CI3 = TAUI*(CC(1,3,K)+CC(1,3,K)) |
|
./pkg/zonal_filt/fftpack.F |
586 |
RADF5 |
DO 101 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
587 |
RADF5 |
CR2 = CC(1,K,5)+CC(1,K,2) |
|
./pkg/zonal_filt/fftpack.F |
588 |
RADF5 |
CI5 = CC(1,K,5)-CC(1,K,2) |
|
./pkg/zonal_filt/fftpack.F |
589 |
RADF5 |
CR3 = CC(1,K,4)+CC(1,K,3) |
|
./pkg/zonal_filt/fftpack.F |
58 |
RADB3 |
CH(1,K,2) = CR2-CI3 |
|
./pkg/zonal_filt/fftpack.F |
590 |
RADF5 |
CI4 = CC(1,K,4)-CC(1,K,3) |
|
./pkg/zonal_filt/fftpack.F |
591 |
RADF5 |
CH(1,1,K) = CC(1,K,1)+CR2+CR3 |
|
./pkg/zonal_filt/fftpack.F |
592 |
RADF5 |
CH(IDO,2,K) = CC(1,K,1)+TR11*CR2+TR12*CR3 |
|
./pkg/zonal_filt/fftpack.F |
593 |
RADF5 |
CH(1,3,K) = TI11*CI5+TI12*CI4 |
|
./pkg/zonal_filt/fftpack.F |
594 |
RADF5 |
CH(IDO,4,K) = CC(1,K,1)+TR12*CR2+TR11*CR3 |
|
./pkg/zonal_filt/fftpack.F |
595 |
RADF5 |
CH(1,5,K) = TI12*CI5-TI11*CI4 |
|
./pkg/zonal_filt/fftpack.F |
599 |
RADF5 |
DO 103 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
59 |
RADB3 |
CH(1,K,3) = CR2+CI3 |
|
./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 |
629 |
RADF5 |
CH(IC-1,2,K) = TR2-TR5 |
|
./pkg/zonal_filt/fftpack.F |
630 |
RADF5 |
CH(I,3,K) = TI2+TI5 |
|
./pkg/zonal_filt/fftpack.F |
631 |
RADF5 |
CH(IC,2,K) = TI5-TI2 |
|
./pkg/zonal_filt/fftpack.F |
632 |
RADF5 |
CH(I-1,5,K) = TR3+TR4 |
|
./pkg/zonal_filt/fftpack.F |
633 |
RADF5 |
CH(IC-1,4,K) = TR3-TR4 |
|
./pkg/zonal_filt/fftpack.F |
634 |
RADF5 |
CH(I,5,K) = TI3+TI4 |
|
./pkg/zonal_filt/fftpack.F |
635 |
RADF5 |
CH(IC,4,K) = TI4-TI3 |
|
./pkg/zonal_filt/fftpack.F |
63 |
RADB3 |
DO 103 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
661 |
RADFG |
DO 102 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
662 |
RADFG |
CH(1,K,J) = C1(1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
66 |
RADB3 |
TR2 = CC(I-1,3,K)+CC(IC-1,2,K) |
|
./pkg/zonal_filt/fftpack.F |
672 |
RADFG |
DO 104 K=1,L1 |
|
./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 |
682 |
RADFG |
DO 109 K=1,L1 |
|
./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 |
694 |
RADFG |
DO 113 K=1,L1 |
|
./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 |
707 |
RADFG |
DO 116 K=1,L1 |
|
./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 |
721 |
RADFG |
DO 122 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
722 |
RADFG |
C1(1,K,J) = CH(1,K,J)+CH(1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
723 |
RADFG |
C1(1,K,JC) = CH(1,K,JC)-CH(1,K,J) |
|
./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 |
760 |
RADFG |
DO 131 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
762 |
RADFG |
CC(I,1,K) = CH(I,K,1) |
|
./pkg/zonal_filt/fftpack.F |
767 |
RADFG |
DO 133 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
768 |
RADFG |
CC(I,1,K) = CH(I,K,1) |
|
./pkg/zonal_filt/fftpack.F |
774 |
RADFG |
DO 136 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
775 |
RADFG |
CC(IDO,J2-2,K) = CH(1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
776 |
RADFG |
CC(1,J2-1,K) = CH(1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
784 |
RADFG |
DO 139 K=1,L1 |
|
./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 |
79 |
RADB3 |
CH(I,K,2) = WA1(I-2)*DI2+WA1(I-1)*DR2 |
|
./pkg/zonal_filt/fftpack.F |
800 |
RADFG |
DO 142 K=1,L1 |
|
./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 |
81 |
RADB3 |
CH(I,K,3) = WA2(I-2)*DI3+WA2(I-1)*DR3 |
|
./pkg/zonal_filt/fftpack.F |
94 |
RADB4 |
DO 101 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
956 |
R8ADB2 |
DO 101 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
957 |
R8ADB2 |
CH(1,K,1) = CC(1,1,K)+CC(IDO,2,K) |
|
./pkg/zonal_filt/fftpack.F |
958 |
R8ADB2 |
CH(1,K,2) = CC(1,1,K)-CC(IDO,2,K) |
|
./pkg/zonal_filt/fftpack.F |
95 |
RADB4 |
TR1 = CC(1,1,K)-CC(IDO,4,K) |
|
./pkg/zonal_filt/fftpack.F |
962 |
R8ADB2 |
DO 104 K=1,L1 |
|
./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 |
96 |
RADB4 |
TR2 = CC(1,1,K)+CC(IDO,4,K) |
|
./pkg/zonal_filt/fftpack.F |
970 |
R8ADB2 |
CH(I,K,2) = WA1(I-2)*TI2+WA1(I-1)*TR2 |
|
./pkg/zonal_filt/fftpack.F |
974 |
R8ADB2 |
105 DO 106 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
975 |
R8ADB2 |
CH(IDO,K,1) = CC(IDO,1,K)+CC(IDO,1,K) |
|
./pkg/zonal_filt/fftpack.F |
976 |
R8ADB2 |
CH(IDO,K,2) = -(CC(1,2,K)+CC(1,2,K)) |
|
./pkg/zonal_filt/fftpack.F |
97 |
RADB4 |
TR3 = CC(IDO,2,K)+CC(IDO,2,K) |
|
./pkg/zonal_filt/fftpack.F |
986 |
R8ADB3 |
DO 101 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
987 |
R8ADB3 |
TR2 = CC(IDO,2,K)+CC(IDO,2,K) |
|
./pkg/zonal_filt/fftpack.F |
988 |
R8ADB3 |
CR2 = CC(1,1,K)+TAUR*TR2 |
|
./pkg/zonal_filt/fftpack.F |
989 |
R8ADB3 |
CH(1,K,1) = CC(1,1,K)+TR2 |
|
./pkg/zonal_filt/fftpack.F |
98 |
RADB4 |
TR4 = CC(1,3,K)+CC(1,3,K) |
|
./pkg/zonal_filt/fftpack.F |
990 |
R8ADB3 |
CI3 = TAUI*(CC(1,3,K)+CC(1,3,K)) |
|
./pkg/zonal_filt/fftpack.F |
991 |
R8ADB3 |
CH(1,K,2) = CR2-CI3 |
|
./pkg/zonal_filt/fftpack.F |
992 |
R8ADB3 |
CH(1,K,3) = CR2+CI3 |
|
./pkg/zonal_filt/fftpack.F |
996 |
R8ADB3 |
DO 103 K=1,L1 |
|
./pkg/zonal_filt/fftpack.F |
999 |
R8ADB3 |
TR2 = CC(I-1,3,K)+CC(IC-1,2,K) |
|
./pkg/zonal_filt/fftpack.F |
99 |
RADB4 |
CH(1,K,1) = TR2+TR3 |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
41 |
ZONAL_FILT_NOFILL |
INTEGER I, J, K |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
55 |
COST_TEST |
DO K=1,Nr |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
56 |
COST_TEST |
IF ( maskW(I,J,K,BI,BJ) .NE. 0. ) THEN |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
58 |
COST_TEST |
& + uVel(I,J,K,BI,BJ) |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
59 |
COST_TEST |
& *_hFacW(I,J,K,BI,BJ) |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
60 |
COST_TEST |
& *dyG(I,J,BI,BJ)*drF(K) |
|
./verification/dome/code/obcs_calc.F |
102 |
OBCS_CALC |
DO K=1,Nr |
|
./verification/dome/code/obcs_calc.F |
104 |
OBCS_CALC |
OBEu(J,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
111 |
OBCS_CALC |
OBEv(J,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
112 |
OBCS_CALC |
OBEt(J,K,bi,bj)=tRef(K) |
|
./verification/dome/code/obcs_calc.F |
119 |
OBCS_CALC |
OBEs(J,K,bi,bj)=sRef(K) |
|
./verification/dome/code/obcs_calc.F |
121 |
OBCS_CALC |
OBEw(J,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
134 |
OBCS_CALC |
DO K=1,Nr |
|
./verification/dome/code/obcs_calc.F |
136 |
OBCS_CALC |
OBWu(J,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
137 |
OBCS_CALC |
OBWv(J,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
138 |
OBCS_CALC |
OBWt(J,K,bi,bj)= Tref(k) |
|
./verification/dome/code/obcs_calc.F |
140 |
OBCS_CALC |
OBWw(J,K,bi,bj)=0.0 |
|
./verification/dome/code/obcs_calc.F |
153 |
OBCS_CALC |
DO K=1,Nr |
|
./verification/dome/code/obcs_calc.F |
179 |
OBCS_CALC |
OBNv(I,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
187 |
OBCS_CALC |
OBNu(I,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
188 |
OBCS_CALC |
IF (tRef(K).LE. (-dTemp*(1. _d 0 - Fz))) THEN |
|
./verification/dome/code/obcs_calc.F |
189 |
OBCS_CALC |
OBNt(I,K,bi,bj) = tRef(K) |
|
./verification/dome/code/obcs_calc.F |
191 |
OBCS_CALC |
OBNt(I,K,bi,bj) = -dTemp*(1. _d 0 - Fz) |
|
./verification/dome/code/obcs_calc.F |
199 |
OBCS_CALC |
OBNs(I,K,bi,bj)=sRef(K) + 1. _d 0*(1. _d 0 - Fz) |
|
./verification/dome/code/obcs_calc.F |
201 |
OBCS_CALC |
OBNw(I,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
214 |
OBCS_CALC |
DO K=1,Nr |
|
./verification/dome/code/obcs_calc.F |
216 |
OBCS_CALC |
OBSu(I,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
217 |
OBCS_CALC |
OBSv(I,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
218 |
OBCS_CALC |
OBSt(I,K,bi,bj)=tRef(K) |
|
./verification/dome/code/obcs_calc.F |
219 |
OBCS_CALC |
OBSs(I,K,bi,bj)=sRef(K) |
|
./verification/dome/code/obcs_calc.F |
221 |
OBCS_CALC |
OBSw(I,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
40 |
OBCS_CALC |
INTEGER I, J ,K |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
104 |
INI_SALT |
DO K=1,Nr-1 |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
107 |
INI_SALT |
pinmb = pdyn(K)/100. |
|
./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 |
125 |
INI_SALT |
DO K=1,Nr |
|
./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 |
60 |
INI_SALT |
do K = 2,Nr+1 |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
61 |
INI_SALT |
pedyn(K) = pedyn(K-1) - drF(K-1) |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
63 |
INI_SALT |
do K = 1,Nr |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
64 |
INI_SALT |
pdyn(K)=(pedyn(K+1)+pedyn(K))/2. |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
67 |
INI_SALT |
do K = 1,Nr |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
68 |
INI_SALT |
pkappa(K)=(pdyn(K)/100000.)**kappa |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
73 |
INI_SALT |
DO K=1,Nr |
|
./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 |
86 |
INI_SALT |
DO K=1,Nr |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
89 |
INI_SALT |
salt(I,J,K,bi,bj) = sRef(K) |
|
./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 |
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 |
65 |
INI_THETA |
DO K=1,Nr |
|
./verification/hs94.1x64x5/code/ini_theta.F |
66 |
INI_THETA |
thetaLim = 200. _d 0/((rC(K)/atm_po)**atm_kappa) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
70 |
INI_THETA |
term2=10. _d 0*log((rC(K)/atm_po)) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
73 |
INI_THETA |
theta(I,J,K,bi,bj) = MAX( thetaLim, thetaEq ) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
98 |
INI_THETA |
DO K=1,Nr |
|
./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 |
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 |
65 |
INI_THETA |
DO K=1,Nr |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
66 |
INI_THETA |
thetaLim = 200. _d 0/((rC(K)/atm_po)**atm_kappa) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
70 |
INI_THETA |
term2=10. _d 0*log((rC(K)/atm_po)) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
73 |
INI_THETA |
theta(I,J,K,bi,bj) = MAX( thetaLim, thetaEq ) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
98 |
INI_THETA |
DO K=1,Nr |
|
./verification/hs94.1x64x5/code_oad/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_oad/ini_theta.F |
107 |
INI_THETA |
IF ( maskC(I,J,K,bi,bj).NE.0. |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
108 |
INI_THETA |
& .AND. theta(I,J,K,bi,bj).EQ.0. ) THEN |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
52 |
INI_THETA |
INTEGER I, J, K, localWarnings |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
65 |
INI_THETA |
DO K=1,Nr |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
66 |
INI_THETA |
thetaLim = 200. _d 0/((rC(K)/atm_po)**atm_kappa) |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
70 |
INI_THETA |
term2=10. _d 0*log((rC(K)/atm_po)) |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
73 |
INI_THETA |
theta(I,J,K,bi,bj) = MAX( thetaLim, thetaEq ) |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
98 |
INI_THETA |
DO K=1,Nr |
|
./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 |
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 |
65 |
INI_THETA |
DO K=1,Nr |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
66 |
INI_THETA |
thetaLim = 200. _d 0/((rC(K)/atm_po)**atm_kappa) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
70 |
INI_THETA |
term2=10. _d 0*log((rC(K)/atm_po)) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
73 |
INI_THETA |
theta(I,J,K,bi,bj) = MAX( thetaLim, thetaEq ) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
98 |
INI_THETA |
DO K=1,Nr |
|
./verification/internal_wave/code/obcs_calc.F |
100 |
OBCS_CALC |
OBEw(J,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
113 |
OBCS_CALC |
DO K=1,Nr |
|
./verification/internal_wave/code/obcs_calc.F |
115 |
OBCS_CALC |
OBWu(J,K,bi,bj)=0. _d 0 |
|
./verification/internal_wave/code/obcs_calc.F |
117 |
OBCS_CALC |
& *vertStructWst(K) |
|
./verification/internal_wave/code/obcs_calc.F |
124 |
OBCS_CALC |
OBWv(J,K,bi,bj)=0. _d 0 |
|
./verification/internal_wave/code/obcs_calc.F |
127 |
OBCS_CALC |
& *vertStructWst(K) |
|
./verification/internal_wave/code/obcs_calc.F |
133 |
OBCS_CALC |
OBWt(J,K,bi,bj)=tRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
144 |
OBCS_CALC |
OBWw(J,K,bi,bj)=-Uinflow |
|
./verification/internal_wave/code/obcs_calc.F |
166 |
OBCS_CALC |
DO K=1,Nr |
|
./verification/internal_wave/code/obcs_calc.F |
168 |
OBCS_CALC |
OBNv(I,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
169 |
OBCS_CALC |
OBNu(I,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
170 |
OBCS_CALC |
OBNt(I,K,bi,bj)=tRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
171 |
OBCS_CALC |
OBNs(I,K,bi,bj)=sRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
173 |
OBCS_CALC |
OBNw(I,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
186 |
OBCS_CALC |
DO K=1,Nr |
|
./verification/internal_wave/code/obcs_calc.F |
188 |
OBCS_CALC |
OBSu(I,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
189 |
OBCS_CALC |
OBSv(I,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
190 |
OBCS_CALC |
OBSt(I,K,bi,bj)=tRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
191 |
OBCS_CALC |
OBSs(I,K,bi,bj)=sRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
193 |
OBCS_CALC |
OBSw(I,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
44 |
OBCS_CALC |
INTEGER I, J ,K |
|
./verification/internal_wave/code/obcs_calc.F |
63 |
OBCS_CALC |
do K=1,Nr |
|
./verification/internal_wave/code/obcs_calc.F |
64 |
OBCS_CALC |
vertStructWst(K)=cos(mz*PI* (rC(K)/rF(Nr+1)) ) |
|
./verification/internal_wave/code/obcs_calc.F |
65 |
OBCS_CALC |
tmpsum=tmpsum+vertStructWst(K)*drF(K) |
|
./verification/internal_wave/code/obcs_calc.F |
68 |
OBCS_CALC |
do K=1,Nr |
|
./verification/internal_wave/code/obcs_calc.F |
69 |
OBCS_CALC |
vertStructWst(K)=vertStructWst(K)-tmpsum |
|
./verification/internal_wave/code/obcs_calc.F |
93 |
OBCS_CALC |
DO K=1,Nr |
|
./verification/internal_wave/code/obcs_calc.F |
95 |
OBCS_CALC |
OBEu(J,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
96 |
OBCS_CALC |
OBEv(J,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
97 |
OBCS_CALC |
OBEt(J,K,bi,bj)=tRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
98 |
OBCS_CALC |
OBEs(J,K,bi,bj)=sRef(K) |
|
./model/src/remove_mean.F |
150 |
REMOVE_MEAN_RS |
INTEGER bi,bj,I,J,K |
|
./model/src/remove_mean.F |
163 |
REMOVE_MEAN_RS |
DO K=1,myNr |
|
./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 |
186 |
REMOVE_MEAN_RS |
DO K=1,myNr |
|
./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 |
58 |
REMOVE_MEAN_RL |
DO K=1,myNr |
|
./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 |
81 |
REMOVE_MEAN_RL |
DO K=1,myNr |
|
./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/update_masks_etc.F |
105 |
UPDATE_MASKS_ETC |
hFacC(I,J,K,bi,bj) = 0. _d 0 |
|
./model/src/update_masks_etc.F |
107 |
UPDATE_MASKS_ETC |
hFacC(I,J,K,bi,bj) = 1. _d 0 |
|
./model/src/update_masks_etc.F |
109 |
UPDATE_MASKS_ETC |
hFacC(I,J,K,bi,bj) = hFacCtmp + hFacMnSz*( |
|
./model/src/update_masks_etc.F |
144 |
UPDATE_MASKS_ETC |
DO K=Nr,1,-1 |
|
./model/src/update_masks_etc.F |
148 |
UPDATE_MASKS_ETC |
& - drF(K)*hFacC(I,J,K,bi,bj) |
|
./model/src/update_masks_etc.F |
212 |
UPDATE_MASKS_ETC |
DO K=1, Nr |
|
./model/src/update_masks_etc.F |
221 |
UPDATE_MASKS_ETC |
hFacW(I,J,K,bi,bj)=0. |
|
./model/src/update_masks_etc.F |
223 |
UPDATE_MASKS_ETC |
hFacW(I,J,K,bi,bj)=maskW(I,J,K,bi,bj)* |
|
./model/src/update_masks_etc.F |
225 |
UPDATE_MASKS_ETC |
& SMOOTHMIN_RS(hFacC(I,J,K,bi,bj),hFacC(Im1,J,K,bi,bj)) |
|
./model/src/update_masks_etc.F |
227 |
UPDATE_MASKS_ETC |
& MIN(hFacC(I,J,K,bi,bj),hFacC(Im1,J,K,bi,bj)) |
|
./model/src/update_masks_etc.F |
231 |
UPDATE_MASKS_ETC |
hFacS(I,J,K,bi,bj)=0. |
|
./model/src/update_masks_etc.F |
233 |
UPDATE_MASKS_ETC |
hFacS(I,J,K,bi,bj)=maskS(I,J,K,bi,bj)* |
|
./model/src/update_masks_etc.F |
235 |
UPDATE_MASKS_ETC |
& SMOOTHMIN_RS(hFacC(I,J,K,bi,bj),hFacC(I,Jm1,K,bi,bj)) |
|
./model/src/update_masks_etc.F |
237 |
UPDATE_MASKS_ETC |
& MIN(hFacC(I,J,K,bi,bj),hFacC(I,Jm1,K,bi,bj)) |
|
./model/src/update_masks_etc.F |
294 |
UPDATE_MASKS_ETC |
DO K=1,Nr |
|
./model/src/update_masks_etc.F |
297 |
UPDATE_MASKS_ETC |
IF (hFacC(I,J,K,bi,bj) .NE. 0. ) THEN |
|
./model/src/update_masks_etc.F |
299 |
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 |
302 |
UPDATE_MASKS_ETC |
recip_hFacC(I,J,K,bi,bj) = 0. |
|
./model/src/update_masks_etc.F |
305 |
UPDATE_MASKS_ETC |
IF (hFacW(I,J,K,bi,bj) .NE. 0. ) THEN |
|
./model/src/update_masks_etc.F |
307 |
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 |
310 |
UPDATE_MASKS_ETC |
recip_hFacW(I,J,K,bi,bj) = 0. |
|
./model/src/update_masks_etc.F |
313 |
UPDATE_MASKS_ETC |
IF (hFacS(I,J,K,bi,bj) .NE. 0. ) THEN |
|
./model/src/update_masks_etc.F |
315 |
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 |
318 |
UPDATE_MASKS_ETC |
recip_hFacS(I,J,K,bi,bj) = 0. |
|
./model/src/update_masks_etc.F |
70 |
UPDATE_MASKS_ETC |
INTEGER I, J, K |
|
./model/src/update_masks_etc.F |
84 |
UPDATE_MASKS_ETC |
DO K=1, Nr |
|
./model/src/update_masks_etc.F |
90 |
UPDATE_MASKS_ETC |
hFacCtmp = (rF(K)-xx_r_low(I,J,bi,bj))*recip_drF(K) |
|
./model/src/update_masks_etc.F |
92 |
UPDATE_MASKS_ETC |
hFacCtmp = (rF(K)-R_low(I,J,bi,bj))*recip_drF(K) |
|
./pkg/aim_v23/aim_diagnostics.F |
57 |
AIM_DIAGNOSTICS |
INTEGER I,J,K, I2,Katm |
|
./pkg/aim_v23/phy_convmf.F |
121 |
CONVMF |
DO K=1,NLEV-1 |
|
./pkg/aim_v23/phy_convmf.F |
122 |
CONVMF |
factP = CP*SIGH(K)**(RD/CP) |
|
./pkg/aim_v23/phy_convmf.F |
124 |
CONVMF |
dSEdp(J,K)=(SE(J,K+1)-SE(J,K))*factP |
|
./pkg/aim_v23/phy_convmf.F |
142 |
CONVMF |
DO K=2,NLEV-1 |
|
./pkg/aim_v23/phy_convmf.F |
143 |
CONVMF |
ENTR_PS(J,K)=0. |
|
./pkg/aim_v23/phy_convmf.F |
148 |
CONVMF |
DO K=2,Ktmp-1 |
|
./pkg/aim_v23/phy_convmf.F |
149 |
CONVMF |
ENTR(K)= ( MAX( 0. _d 0, SIG(K)/PSA(J) - 0.5 _d 0) )**2 |
|
./pkg/aim_v23/phy_convmf.F |
150 |
CONVMF |
SENTR=SENTR+ENTR(K) |
|
./pkg/aim_v23/phy_convmf.F |
154 |
CONVMF |
DO K=2,Ktmp-1 |
|
./pkg/aim_v23/phy_convmf.F |
155 |
CONVMF |
ENTR_PS(J,K) = ENTR(K)*SENTR*PSA(J) |
|
./pkg/aim_v23/phy_convmf.F |
177 |
CONVMF |
dSEdpTot = dSEdpTot + dSEdp(J,K) |
|
./pkg/aim_v23/phy_convmf.F |
178 |
CONVMF |
stab_crit = dSEdpTot + ALHC*(QSAT(J,Ktmp)-QSAT(J,K)) |
|
./pkg/aim_v23/phy_convmf.F |
179 |
CONVMF |
& -WVI(K,2)*(dSEdp(J,K) + ALHC*(QSAT(J,K+1)-QSAT(J,K)) ) |
|
./pkg/aim_v23/phy_convmf.F |
180 |
CONVMF |
IF (stab_crit.GT.0.) ITOP(J) = K |
|
./pkg/aim_v23/phy_convmf.F |
206 |
CONVMF |
K = Ktmp |
|
./pkg/aim_v23/phy_convmf.F |
207 |
CONVMF |
K1=K-1 |
|
./pkg/aim_v23/phy_convmf.F |
210 |
CONVMF |
QMAX=MAX(1.01 _d 0 *QA(J,K),QSAT(J,K)) |
|
./pkg/aim_v23/phy_convmf.F |
214 |
CONVMF |
QB=QA(J,K1)+WVI(K1,2)*(QA(J,K)-QA(J,K1)) |
|
./pkg/aim_v23/phy_convmf.F |
215 |
CONVMF |
QB=MIN(QB,QA(J,K)) |
|
./pkg/aim_v23/phy_convmf.F |
222 |
CONVMF |
FMASS = FM0(J)*MIN(FQMAX,(QA(J,K)-QATHR(J))/(QMAX-QB)) |
|
./pkg/aim_v23/phy_convmf.F |
235 |
CONVMF |
DFSE(J,K)=FDMUS |
|
./pkg/aim_v23/phy_convmf.F |
237 |
CONVMF |
DFQA(J,K)=FDQ-FUQ |
|
./pkg/aim_v23/phy_convmf.F |
241 |
CONVMF |
DO K=Ktmp-1,ITOP(J)+1,-1 |
|
./pkg/aim_v23/phy_convmf.F |
242 |
CONVMF |
K1=K-1 |
|
./pkg/aim_v23/phy_convmf.F |
246 |
CONVMF |
DFQA(J,K)=FUQ-FDQ |
|
./pkg/aim_v23/phy_convmf.F |
250 |
CONVMF |
ENMASS=ENTR_PS(J,K) * CBMF(J) |
|
./pkg/aim_v23/phy_convmf.F |
255 |
CONVMF |
FUQ=FUQ+ENMASS*QA(J,K) |
|
./pkg/aim_v23/phy_convmf.F |
259 |
CONVMF |
QB=QA(J,K1)+WVI(K1,2)*(QA(J,K)-QA(J,K1)) |
|
./pkg/aim_v23/phy_convmf.F |
264 |
CONVMF |
DFSE(J,K) = FMASS*(WVI(K1,2)-1.)*dSEdp(J,K1) |
|
./pkg/aim_v23/phy_convmf.F |
265 |
CONVMF |
& -(FMASS-ENMASS)*WVI(K,2)*dSEdp(J,K) |
|
./pkg/aim_v23/phy_convmf.F |
266 |
CONVMF |
FDMUS = FDMUS + DFSE(J,K) |
|
./pkg/aim_v23/phy_convmf.F |
268 |
CONVMF |
DFQA(J,K)=DFQA(J,K)+FDQ-FUQ |
|
./pkg/aim_v23/phy_convmf.F |
271 |
CONVMF |
DELQ=RHIL*QSAT(J,K)-QA(J,K) |
|
./pkg/aim_v23/phy_convmf.F |
274 |
CONVMF |
DFQA(J,K) =DFQA(J,K) +FSQ |
|
./pkg/aim_v23/phy_convmf.F |
282 |
CONVMF |
K=ITOP(J) |
|
./pkg/aim_v23/phy_convmf.F |
285 |
CONVMF |
QSATB=QSAT(J,K)+WVI(K,2)*(QSAT(J,K+1)-QSAT(J,K)) |
|
./pkg/aim_v23/phy_convmf.F |
289 |
CONVMF |
DFSE(J,K)= -FDMUS+ALHC*PRECNV(J) |
|
./pkg/aim_v23/phy_convmf.F |
291 |
CONVMF |
DFQA(J,K)=FUQ-FDQ-PRECNV(J) |
|
./pkg/aim_v23/phy_convmf.F |
65 |
CONVMF |
INTEGER J, K, K1, Ktmp |
|
./pkg/aim_v23/phy_convmf.F |
91 |
CONVMF |
DO K=1,NLEV |
|
./pkg/aim_v23/phy_convmf.F |
93 |
CONVMF |
DFSE(J,K)=0.0 |
|
./pkg/aim_v23/phy_convmf.F |
94 |
CONVMF |
DFQA(J,K)=0.0 |
|
./pkg/aim_v23/phy_convmf.F |
97 |
CONVMF |
DO K=2,NLEV-1 |
|
./pkg/aim_v23/phy_convmf.F |
99 |
CONVMF |
ENTR_PS(J,K)=0. |
|
./pkg/aim_v23/phy_driver.F |
129 |
PHY_DRIVER |
INTEGER J, K |
|
./pkg/aim_v23/phy_driver.F |
165 |
PHY_DRIVER |
DO K=1,NLEV |
|
./pkg/aim_v23/phy_driver.F |
168 |
PHY_DRIVER |
CALL SHTORH (1,NGP,TG1(1,K),PSG_1,SIG(K),QG1(1,K), |
|
./pkg/aim_v23/phy_driver.F |
169 |
PHY_DRIVER |
O RH(1,K,myThid),QSAT(1,K), |
|
./pkg/aim_v23/phy_driver.F |
184 |
PHY_DRIVER |
DO K=2,NLEV |
|
./pkg/aim_v23/phy_driver.F |
186 |
PHY_DRIVER |
TT_CNV(J,K,myThid)=TT_CNV(J,K,myThid)*RPS_1*GRDSCP(K) |
|
./pkg/aim_v23/phy_driver.F |
187 |
PHY_DRIVER |
QT_CNV(J,K,myThid)=QT_CNV(J,K,myThid)*RPS_1*GRDSIG(K) |
|
./pkg/aim_v23/phy_driver.F |
260 |
PHY_DRIVER |
DO K=1,NLEV |
|
./pkg/aim_v23/phy_driver.F |
262 |
PHY_DRIVER |
TT_RSW(J,K,myThid)=TT_RSW(J,K,myThid)*RPS_1*GRDSCP(K) |
|
./pkg/aim_v23/phy_driver.F |
382 |
PHY_DRIVER |
DO K=1,NLEV |
|
./pkg/aim_v23/phy_driver.F |
384 |
PHY_DRIVER |
TT_RLW(J,K,myThid)=TT_RLW(J,K,myThid)*RPS_1*GRDSCP(K) |
|
./pkg/aim_v23/phy_driver.F |
423 |
PHY_DRIVER |
DO K=1,NLEV |
|
./pkg/aim_v23/phy_driver.F |
425 |
PHY_DRIVER |
TT_SWclr(J,K,myThid)=TT_SWclr(J,K,myThid)*RPS_1*GRDSCP(K) |
|
./pkg/aim_v23/phy_driver.F |
426 |
PHY_DRIVER |
TT_LWclr(J,K,myThid)=TT_LWclr(J,K,myThid)*RPS_1*GRDSCP(K) |
|
./pkg/aim_v23/phy_driver.F |
450 |
PHY_DRIVER |
K = kGround(J) |
|
./pkg/aim_v23/phy_driver.F |
451 |
PHY_DRIVER |
IF ( K.GT.0 ) THEN |
|
./pkg/aim_v23/phy_driver.F |
452 |
PHY_DRIVER |
TT_PBL(J,K,myThid) = TT_PBL(J,K,myThid) |
|
./pkg/aim_v23/phy_driver.F |
453 |
PHY_DRIVER |
& + SHF(J,0,myThid) *RPS_1*GRDSCP(K) |
|
./pkg/aim_v23/phy_driver.F |
454 |
PHY_DRIVER |
QT_PBL(J,K,myThid) = QT_PBL(J,K,myThid) |
|
./pkg/aim_v23/phy_driver.F |
455 |
PHY_DRIVER |
& + EVAP(J,0,myThid)*RPS_1*GRDSIG(K) |
|
./pkg/aim_v23/phy_inphys.F |
107 |
INPHYS |
DO K=1,NLEV |
|
./pkg/aim_v23/phy_inphys.F |
109 |
INPHYS |
& k,SIG(k),SIGH(k),SIGL(k),WVI(K,1),WVI(K,2) |
|
./pkg/aim_v23/phy_inphys.F |
52 |
INPHYS |
INTEGER K |
|
./pkg/aim_v23/phy_inphys.F |
81 |
INPHYS |
DO K=1,NLEV |
|
./pkg/aim_v23/phy_inphys.F |
82 |
INPHYS |
SIG(K) = 0.5*(HSG(K)+HSG(K-1)) |
|
./pkg/aim_v23/phy_inphys.F |
83 |
INPHYS |
SIGL(K) = LOG(SIG(K)) |
|
./pkg/aim_v23/phy_inphys.F |
84 |
INPHYS |
SIGH(K) = HSG(K) |
|
./pkg/aim_v23/phy_inphys.F |
85 |
INPHYS |
DSIG(K) = HSG(K)-HSG(K-1) |
|
./pkg/aim_v23/phy_inphys.F |
87 |
INPHYS |
GRDSIG(K) = GG/(DSIG(K)*P0) |
|
./pkg/aim_v23/phy_inphys.F |
88 |
INPHYS |
GRDSCP(K) = GRDSIG(K)/CP |
|
./pkg/aim_v23/phy_inphys.F |
96 |
INPHYS |
DO K=1,NLEV-1 |
|
./pkg/aim_v23/phy_inphys.F |
97 |
INPHYS |
WVI(K,1)=1./(SIGL(K+1)-SIGL(K)) |
|
./pkg/aim_v23/phy_inphys.F |
98 |
INPHYS |
WVI(K,2)=(LOG(SIGH(K))-SIGL(K))*WVI(K,1) |
|
./pkg/aim_v23/phy_lscond.F |
101 |
LSCOND |
DQLSC(J,K) = DQLSC(J,K)*dpFac(J,K) |
|
./pkg/aim_v23/phy_lscond.F |
102 |
LSCOND |
DTLSC(J,K) = DTLSC(J,K)*dpFac(J,K) |
|
./pkg/aim_v23/phy_lscond.F |
109 |
LSCOND |
DO K=2,kGrd(J) |
|
./pkg/aim_v23/phy_lscond.F |
110 |
LSCOND |
PFACT = DSIG(K)*PRG |
|
./pkg/aim_v23/phy_lscond.F |
111 |
LSCOND |
PRECLS(J) = PRECLS(J)-PFACT*DQLSC(J,K) |
|
./pkg/aim_v23/phy_lscond.F |
53 |
LSCOND |
INTEGER J, K |
|
./pkg/aim_v23/phy_lscond.F |
80 |
LSCOND |
DO K=2,NLEV |
|
./pkg/aim_v23/phy_lscond.F |
81 |
LSCOND |
SIG2=SIG(K)*SIG(K) |
|
./pkg/aim_v23/phy_lscond.F |
87 |
LSCOND |
DQLSC(J,K) = MIN(0. _d 0,(RHREF*QSAT(J,K)-QA(J,K)))*RTLSC |
|
./pkg/aim_v23/phy_lscond.F |
92 |
LSCOND |
DQLSC(J,K) = MAX(-DQMAX, DQLSC(J,K) ) |
|
./pkg/aim_v23/phy_lscond.F |
93 |
LSCOND |
DTLSC(J,K) = -TFACT*DQLSC(J,K) |
|
./pkg/aim_v23/phy_lscond.F |
99 |
LSCOND |
DO K=2,NLEV |
|
./pkg/aim_v23/phy_radiat.F |
230 |
RADSW |
INTEGER K, J |
|
./pkg/aim_v23/phy_radiat.F |
262 |
RADSW |
DO K=1,NLEV |
|
./pkg/aim_v23/phy_radiat.F |
264 |
RADSW |
ALBTOP(J,K)=0. |
|
./pkg/aim_v23/phy_radiat.F |
266 |
RADSW |
CLDCLW(J,K)=0. |
|
./pkg/aim_v23/phy_radiat.F |
277 |
RADSW |
DO K=NL1(J),2,-1 |
|
./pkg/aim_v23/phy_radiat.F |
278 |
RADSW |
QACL3=MIN(QACL2,QACL1+DQACL*(SIG(K)-SIG(2))) |
|
./pkg/aim_v23/phy_radiat.F |
279 |
RADSW |
IF (RH(J,K).GT.RHCL1.AND.QA(J,K).GT.QACL1) THEN |
|
./pkg/aim_v23/phy_radiat.F |
280 |
RADSW |
CLOUDC(J)=MAX(CLOUDC(J),RH(J,K)-RHCL1) |
|
./pkg/aim_v23/phy_radiat.F |
281 |
RADSW |
IF (QA(J,K).GT.QACL3) ICLTOP(J)=K |
|
./pkg/aim_v23/phy_radiat.F |
283 |
RADSW |
CLDCLW(J,K)=MAX(0. _d 0,RH(J,K)-RHCL1) |
|
./pkg/aim_v23/phy_radiat.F |
284 |
RADSW |
CLDCLW(J,K)=MIN(1. _d 0,CLDCLW(J,K)*RRCL) |
|
./pkg/aim_v23/phy_radiat.F |
297 |
RADSW |
DO K=NL1(J),2,-1 |
|
./pkg/aim_v23/phy_radiat.F |
298 |
RADSW |
CLDCLW(J,K)=CLDCLW(J,K)*MIN(1. _d 0,QCLOUD(J)*RQCL) |
|
./pkg/aim_v23/phy_radiat.F |
327 |
RADSW |
DO K=2,NL1(J) |
|
./pkg/aim_v23/phy_radiat.F |
330 |
RADSW |
ABS1=ABSDRY+ABSAER*(SIG(K)/PSA(J))**2 |
|
./pkg/aim_v23/phy_radiat.F |
331 |
RADSW |
DELTAP=ZENIT(J)*DSIG(K)*dpFac(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
332 |
RADSW |
IF (K.EQ.ICLTOP(J)) THEN |
|
./pkg/aim_v23/phy_radiat.F |
333 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP* |
|
./pkg/aim_v23/phy_radiat.F |
334 |
RADSW |
& (ABS1+ABSWV1*QA(J,K)+2.*ACLOUD(J))) |
|
./pkg/aim_v23/phy_radiat.F |
335 |
RADSW |
ELSE IF (K.GT.ICLTOP(J)) THEN |
|
./pkg/aim_v23/phy_radiat.F |
336 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP* |
|
./pkg/aim_v23/phy_radiat.F |
337 |
RADSW |
& (ABS1+ABSWV1*QA(J,K)+ACLOUD(J))) |
|
./pkg/aim_v23/phy_radiat.F |
339 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABS1+ABSWV1*QA(J,K))) |
|
./pkg/aim_v23/phy_radiat.F |
346 |
RADSW |
K = kGrd(J) |
|
./pkg/aim_v23/phy_radiat.F |
347 |
RADSW |
ABS1=ABSDRY+ABSAER*(SIG(K)/PSA(J))**2 |
|
./pkg/aim_v23/phy_radiat.F |
349 |
RADSW |
DELTAP=ZENIT(J)*DSIG(K)*dpFac(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
350 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABS1+ABSWV1*QA(J,K))) |
|
./pkg/aim_v23/phy_radiat.F |
354 |
RADSW |
DO K=2,kGrd(J) |
|
./pkg/aim_v23/phy_radiat.F |
355 |
RADSW |
DELTAP=ZENIT(J)*DSIG(K)*dpFac(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
356 |
RADSW |
TAU2(J,K,2)=EXP(-DELTAP*ABSWV2*QA(J,K)) |
|
./pkg/aim_v23/phy_radiat.F |
386 |
RADSW |
DO K=2,kGrd(J) |
|
./pkg/aim_v23/phy_radiat.F |
387 |
RADSW |
FREFL(J,K)=FLUX(J,1)*ALBTOP(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
388 |
RADSW |
FLUX (J,1)=FLUX(J,1)-FREFL(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
389 |
RADSW |
DFABS(J,K)=FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
390 |
RADSW |
FLUX (J,1)=TAU2(J,K,1)*FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
391 |
RADSW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
396 |
RADSW |
DO K=2,kGrd(J) |
|
./pkg/aim_v23/phy_radiat.F |
397 |
RADSW |
DFABS(J,K)=DFABS(J,K)+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
398 |
RADSW |
FLUX (J,2)=TAU2(J,K,2)*FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
399 |
RADSW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
426 |
RADSW |
DO K=NLEV,1,-1 |
|
./pkg/aim_v23/phy_radiat.F |
428 |
RADSW |
IF ( K .LE. kGrd(J) ) THEN |
|
./pkg/aim_v23/phy_radiat.F |
429 |
RADSW |
DFABS(J,K)=DFABS(J,K)+FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
430 |
RADSW |
FLUX (J,1)=TAU2(J,K,1)*FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
431 |
RADSW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
432 |
RADSW |
FLUX (J,1)=FLUX(J,1)+FREFL(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
434 |
RADSW |
DFABS(J,K)= 0. _d 0 |
|
./pkg/aim_v23/phy_radiat.F |
452 |
RADSW |
DO K=2,NLEV |
|
./pkg/aim_v23/phy_radiat.F |
454 |
RADSW |
ACLDLW(J,K)=CLDCLW(J,K)*(ABLCL1+ABLCL2*QCLOUD(J)) |
|
./pkg/aim_v23/phy_radiat.F |
472 |
RADSW |
DO K=2,NLEV |
|
./pkg/aim_v23/phy_radiat.F |
475 |
RADSW |
DELTAP=DSIG(K)*dpFac(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
476 |
RADSW |
IF ( K.GE.ICLTOP(J).AND.K.NE.kGrd(J) ) THEN |
|
./pkg/aim_v23/phy_radiat.F |
478 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABLWIN+ACLDLW(J,K))) |
|
./pkg/aim_v23/phy_radiat.F |
480 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABLWIN+ACLOUD(J))) |
|
./pkg/aim_v23/phy_radiat.F |
483 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*ABLWIN) |
|
./pkg/aim_v23/phy_radiat.F |
485 |
RADSW |
TAU2(J,K,2)=EXP(-DELTAP*absCO2) |
|
./pkg/aim_v23/phy_radiat.F |
486 |
RADSW |
TAU2(J,K,3)=EXP(-DELTAP*ABLWV1*QA(J,K)) |
|
./pkg/aim_v23/phy_radiat.F |
487 |
RADSW |
TAU2(J,K,4)=EXP(-DELTAP*ABLWV2*QA(J,K)) |
|
./pkg/aim_v23/phy_radiat.F |
564 |
RADLW |
INTEGER K, J, JB |
|
./pkg/aim_v23/phy_radiat.F |
584 |
RADLW |
DO K=1,NLEV |
|
./pkg/aim_v23/phy_radiat.F |
586 |
RADLW |
ST4A(J,K,1)=TA(J,K)*TA(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
587 |
RADLW |
ST4A(J,K,1)=SBC*ST4A(J,K,1)*ST4A(J,K,1) |
|
./pkg/aim_v23/phy_radiat.F |
591 |
RADLW |
DO K=1,NLEV-1 |
|
./pkg/aim_v23/phy_radiat.F |
593 |
RADLW |
ST4A(J,K,2)=TA(J,K)+WVI(K,2)*(TA(J,K+1)-TA(J,K)) |
|
./pkg/aim_v23/phy_radiat.F |
594 |
RADLW |
ST4A(J,K,2)=ST4A(J,K,2)*ST4A(J,K,2) |
|
./pkg/aim_v23/phy_radiat.F |
595 |
RADLW |
ST4A(J,K,2)=SBC*ST4A(J,K,2)*ST4A(J,K,2) |
|
./pkg/aim_v23/phy_radiat.F |
601 |
RADLW |
K=kGrd(J) |
|
./pkg/aim_v23/phy_radiat.F |
602 |
RADLW |
ST4A(J,K,2)=2.*ST4A(J,K,1)-ST4A(J,NL1(J),2) |
|
./pkg/aim_v23/phy_radiat.F |
614 |
RADLW |
DO K=2,NLEV |
|
./pkg/aim_v23/phy_radiat.F |
616 |
RADLW |
DFABS(J,K)=0. |
|
./pkg/aim_v23/phy_radiat.F |
627 |
RADLW |
K=1 |
|
./pkg/aim_v23/phy_radiat.F |
630 |
RADLW |
BRAD=ST4A(J,K,2)+TAU2(J,K,JB)*(ST4A(J,K,1)-ST4A(J,K,2)) |
|
./pkg/aim_v23/phy_radiat.F |
631 |
RADLW |
EMIS=FBAND(NINT(TA(J,K)),JB)*(1.-TAU2(J,K,JB)) |
|
./pkg/aim_v23/phy_radiat.F |
633 |
RADLW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
647 |
RADLW |
DO K=2,kGrd(J) |
|
./pkg/aim_v23/phy_radiat.F |
648 |
RADLW |
BRAD=ST4A(J,K,2)+TAU2(J,K,JB)*(ST4A(J,K,1)-ST4A(J,K,2)) |
|
./pkg/aim_v23/phy_radiat.F |
649 |
RADLW |
EMIS=FBAND(NINT(TA(J,K)),JB)*(1.-TAU2(J,K,JB)) |
|
./pkg/aim_v23/phy_radiat.F |
650 |
RADLW |
DFABS(J,K)=DFABS(J,K)+FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
651 |
RADLW |
FLUX(J,JB)=TAU2(J,K,JB)*FLUX(J,JB)+EMIS*BRAD |
|
./pkg/aim_v23/phy_radiat.F |
652 |
RADLW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
698 |
RADLW |
DO K=kGrd(J),2,-1 |
|
./pkg/aim_v23/phy_radiat.F |
699 |
RADLW |
BRAD=ST4A(J,K-1,2)+TAU2(J,K,JB)*(ST4A(J,K,1)-ST4A(J,K-1,2)) |
|
./pkg/aim_v23/phy_radiat.F |
700 |
RADLW |
EMIS=FBAND(NINT(TA(J,K)),JB)*(1.-TAU2(J,K,JB)) |
|
./pkg/aim_v23/phy_radiat.F |
701 |
RADLW |
DFABS(J,K)=DFABS(J,K)+FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
702 |
RADLW |
FLUX(J,JB)=TAU2(J,K,JB)*FLUX(J,JB)+EMIS*BRAD |
|
./pkg/aim_v23/phy_radiat.F |
703 |
RADLW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
710 |
RADLW |
K=1 |
|
./pkg/aim_v23/phy_radiat.F |
713 |
RADLW |
EMIS=FBAND(NINT(TA(J,K)),JB)*(1.-TAU2(J,K,JB)) |
|
./pkg/aim_v23/phy_radiat.F |
714 |
RADLW |
DFABS(J,K)=DFABS(J,K)+FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
715 |
RADLW |
FLUX(J,JB)=TAU2(J,K,JB)*FLUX(J,JB)+EMIS*ST4A(J,K,1) |
|
./pkg/aim_v23/phy_radiat.F |
716 |
RADLW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,JB) |
|
./pkg/aim_v23/phy_snow_precip.F |
71 |
SNOW_PRECIP |
INTEGER J, K, Ktop |
|
./pkg/aim_v23/phy_snow_precip.F |
98 |
SNOW_PRECIP |
DO K=2,kGrd(J) |
|
./pkg/aim_v23/phy_snow_precip.F |
99 |
SNOW_PRECIP |
DTLSC(J,K) = DTLSC(J,K) + EnPrec(J)*DQLSC(J,K)/CP |
|
./pkg/aim_v23/phy_vdifsc.F |
101 |
VDIFSC |
DO K=1,NLEV |
|
./pkg/aim_v23/phy_vdifsc.F |
102 |
VDIFSC |
RSIG(K)=1./DSIG(K) |
|
./pkg/aim_v23/phy_vdifsc.F |
105 |
VDIFSC |
DO K=1,NLEV |
|
./pkg/aim_v23/phy_vdifsc.F |
109 |
VDIFSC |
TTENVD(J,K) = 0. |
|
./pkg/aim_v23/phy_vdifsc.F |
110 |
VDIFSC |
QTENVD(J,K) = 0. |
|
./pkg/aim_v23/phy_vdifsc.F |
119 |
VDIFSC |
DO K=1,NLEV-1 |
|
./pkg/aim_v23/phy_vdifsc.F |
120 |
VDIFSC |
factP = CP*SIGH(K)**(RD/CP) |
|
./pkg/aim_v23/phy_vdifsc.F |
122 |
VDIFSC |
dSEdp(J,K)=(SE(J,K+1)-SE(J,K))*factP |
|
./pkg/aim_v23/phy_vdifsc.F |
124 |
VDIFSC |
DeltaPI(K) = SIG(K+1)**(RD/CP) - SIG(K)**(RD/CP) |
|
./pkg/aim_v23/phy_vdifsc.F |
170 |
VDIFSC |
DO K=3,kGrd(J)-2 |
|
./pkg/aim_v23/phy_vdifsc.F |
172 |
VDIFSC |
DRH0=RHGRAD*(SIG(K+1)-SIG(K)) |
|
./pkg/aim_v23/phy_vdifsc.F |
174 |
VDIFSC |
DRH=RH(J,K+1)-RH(J,K) |
|
./pkg/aim_v23/phy_vdifsc.F |
178 |
VDIFSC |
FLUXQ = QSAT(J,K)*DRH*CVDI(J)/TRVDI |
|
./pkg/aim_v23/phy_vdifsc.F |
179 |
VDIFSC |
QTENVD(J,K) = QTENVD(J,K) +FLUXQ*RSIG(K) |
|
./pkg/aim_v23/phy_vdifsc.F |
180 |
VDIFSC |
QTENVD(J,K+1)= QTENVD(J,K+1)-FLUXQ*RSIG(K+1) |
|
./pkg/aim_v23/phy_vdifsc.F |
190 |
VDIFSC |
DO K=1,kGrd(J)-1 |
|
./pkg/aim_v23/phy_vdifsc.F |
193 |
VDIFSC |
DMSE = dSEdp(J,K) |
|
./pkg/aim_v23/phy_vdifsc.F |
194 |
VDIFSC |
& +SEGRAD*CP*DeltaPI(K)*(SE(J,K+1)+SE(J,K))*0.5 _d 0 |
|
./pkg/aim_v23/phy_vdifsc.F |
200 |
VDIFSC |
TTENVD(J,K ) = TTENVD(J,K )+FLUXSE*RSIG(K) |
|
./pkg/aim_v23/phy_vdifsc.F |
201 |
VDIFSC |
TTENVD(J,K+1) = TTENVD(J,K+1)-FLUXSE*RSIG(K+1) |
|
./pkg/aim_v23/phy_vdifsc.F |
68 |
VDIFSC |
INTEGER J, K, Ktmp, NL1 |
|
./pkg/autodiff/autodiff_restore.F |
133 |
AUTODIFF_RESTORE |
DO K=1,Nr |
|
./pkg/autodiff/autodiff_restore.F |
137 |
AUTODIFF_RESTORE |
gtNm(I,J,K,bi,bj,1) = StoreDynVars3D(I,J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
138 |
AUTODIFF_RESTORE |
gsNm(I,J,K,bi,bj,1) = StoreDynVars3D(I,J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
139 |
AUTODIFF_RESTORE |
guNm(I,J,K,bi,bj,1) = StoreDynVars3D(I,J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
140 |
AUTODIFF_RESTORE |
gvNm(I,J,K,bi,bj,1) = StoreDynVars3D(I,J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
142 |
AUTODIFF_RESTORE |
gtNm1(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
143 |
AUTODIFF_RESTORE |
gsNm1(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
144 |
AUTODIFF_RESTORE |
guNm1(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
145 |
AUTODIFF_RESTORE |
gvNm1(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
147 |
AUTODIFF_RESTORE |
theta(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
148 |
AUTODIFF_RESTORE |
salt(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
149 |
AUTODIFF_RESTORE |
uVel(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
150 |
AUTODIFF_RESTORE |
vVel(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
151 |
AUTODIFF_RESTORE |
wVel(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
152 |
AUTODIFF_RESTORE |
totPhiHyd(I,J,K,bi,bj)= StoreDynVars3D(I,J,K,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
154 |
AUTODIFF_RESTORE |
gtNm(I,J,K,bi,bj,2) = StoreDynVars3D(I,J,K,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
155 |
AUTODIFF_RESTORE |
gsNm(I,J,K,bi,bj,2) = StoreDynVars3D(I,J,K,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
156 |
AUTODIFF_RESTORE |
guNm(I,J,K,bi,bj,2) = StoreDynVars3D(I,J,K,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
157 |
AUTODIFF_RESTORE |
gvNm(I,J,K,bi,bj,2) = StoreDynVars3D(I,J,K,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
317 |
AUTODIFF_RESTORE |
DO K=1,Nr |
|
./pkg/autodiff/autodiff_restore.F |
319 |
AUTODIFF_RESTORE |
OBNu(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
320 |
AUTODIFF_RESTORE |
OBNv(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
321 |
AUTODIFF_RESTORE |
OBNt(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
322 |
AUTODIFF_RESTORE |
OBNs(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
323 |
AUTODIFF_RESTORE |
OBNu0(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
324 |
AUTODIFF_RESTORE |
OBNv0(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
325 |
AUTODIFF_RESTORE |
OBNt0(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
326 |
AUTODIFF_RESTORE |
OBNs0(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
327 |
AUTODIFF_RESTORE |
OBNu1(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
328 |
AUTODIFF_RESTORE |
OBNv1(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
329 |
AUTODIFF_RESTORE |
OBNt1(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
330 |
AUTODIFF_RESTORE |
OBNs1(I,K,bi,bj) = StoreOBCSN(I,K,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
332 |
AUTODIFF_RESTORE |
xx_obcsn0(I,K,bi,bj,1) = StoreOBCSN(I,K,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
333 |
AUTODIFF_RESTORE |
xx_obcsn0(I,K,bi,bj,2) = StoreOBCSN(I,K,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
334 |
AUTODIFF_RESTORE |
xx_obcsn0(I,K,bi,bj,3) = StoreOBCSN(I,K,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
335 |
AUTODIFF_RESTORE |
xx_obcsn0(I,K,bi,bj,4) = StoreOBCSN(I,K,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
336 |
AUTODIFF_RESTORE |
xx_obcsn1(I,K,bi,bj,1) = StoreOBCSN(I,K,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
337 |
AUTODIFF_RESTORE |
xx_obcsn1(I,K,bi,bj,2) = StoreOBCSN(I,K,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
338 |
AUTODIFF_RESTORE |
xx_obcsn1(I,K,bi,bj,3) = StoreOBCSN(I,K,bi,bj,19) |
|
./pkg/autodiff/autodiff_restore.F |
339 |
AUTODIFF_RESTORE |
xx_obcsn1(I,K,bi,bj,4) = StoreOBCSN(I,K,bi,bj,20) |
|
./pkg/autodiff/autodiff_restore.F |
352 |
AUTODIFF_RESTORE |
DO K=1,Nr |
|
./pkg/autodiff/autodiff_restore.F |
354 |
AUTODIFF_RESTORE |
OBSu(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
355 |
AUTODIFF_RESTORE |
OBSv(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
356 |
AUTODIFF_RESTORE |
OBSt(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
357 |
AUTODIFF_RESTORE |
OBSs(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
358 |
AUTODIFF_RESTORE |
OBSu0(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
359 |
AUTODIFF_RESTORE |
OBSv0(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
360 |
AUTODIFF_RESTORE |
OBSt0(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
361 |
AUTODIFF_RESTORE |
OBSs0(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
362 |
AUTODIFF_RESTORE |
OBSu1(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
363 |
AUTODIFF_RESTORE |
OBSv1(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
364 |
AUTODIFF_RESTORE |
OBSt1(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
365 |
AUTODIFF_RESTORE |
OBSs1(I,K,bi,bj) = StoreOBCSS(I,K,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
367 |
AUTODIFF_RESTORE |
xx_obcss0(I,K,bi,bj,1) = StoreOBCSS(I,K,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
368 |
AUTODIFF_RESTORE |
xx_obcss0(I,K,bi,bj,2) = StoreOBCSS(I,K,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
369 |
AUTODIFF_RESTORE |
xx_obcss0(I,K,bi,bj,3) = StoreOBCSS(I,K,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
370 |
AUTODIFF_RESTORE |
xx_obcss0(I,K,bi,bj,4) = StoreOBCSS(I,K,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
371 |
AUTODIFF_RESTORE |
xx_obcss1(I,K,bi,bj,1) = StoreOBCSS(I,K,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
372 |
AUTODIFF_RESTORE |
xx_obcss1(I,K,bi,bj,2) = StoreOBCSS(I,K,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
373 |
AUTODIFF_RESTORE |
xx_obcss1(I,K,bi,bj,3) = StoreOBCSS(I,K,bi,bj,19) |
|
./pkg/autodiff/autodiff_restore.F |
374 |
AUTODIFF_RESTORE |
xx_obcss1(I,K,bi,bj,4) = StoreOBCSS(I,K,bi,bj,20) |
|
./pkg/autodiff/autodiff_restore.F |
387 |
AUTODIFF_RESTORE |
DO K=1,Nr |
|
./pkg/autodiff/autodiff_restore.F |
389 |
AUTODIFF_RESTORE |
OBEu(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
390 |
AUTODIFF_RESTORE |
OBEv(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
391 |
AUTODIFF_RESTORE |
OBEt(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
392 |
AUTODIFF_RESTORE |
OBEs(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
393 |
AUTODIFF_RESTORE |
OBEu0(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
394 |
AUTODIFF_RESTORE |
OBEv0(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
395 |
AUTODIFF_RESTORE |
OBEt0(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
396 |
AUTODIFF_RESTORE |
OBEs0(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
397 |
AUTODIFF_RESTORE |
OBEu1(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
398 |
AUTODIFF_RESTORE |
OBEv1(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
399 |
AUTODIFF_RESTORE |
OBEt1(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
400 |
AUTODIFF_RESTORE |
OBEs1(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
402 |
AUTODIFF_RESTORE |
xx_obcse0(J,K,bi,bj,1) = StoreOBCSE(J,K,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
403 |
AUTODIFF_RESTORE |
xx_obcse0(J,K,bi,bj,2) = StoreOBCSE(J,K,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
404 |
AUTODIFF_RESTORE |
xx_obcse0(J,K,bi,bj,3) = StoreOBCSE(J,K,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
405 |
AUTODIFF_RESTORE |
xx_obcse0(J,K,bi,bj,4) = StoreOBCSE(J,K,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
406 |
AUTODIFF_RESTORE |
xx_obcse1(J,K,bi,bj,1) = StoreOBCSE(J,K,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
407 |
AUTODIFF_RESTORE |
xx_obcse1(J,K,bi,bj,2) = StoreOBCSE(J,K,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
408 |
AUTODIFF_RESTORE |
xx_obcse1(J,K,bi,bj,3) = StoreOBCSE(J,K,bi,bj,19) |
|
./pkg/autodiff/autodiff_restore.F |
409 |
AUTODIFF_RESTORE |
xx_obcse1(J,K,bi,bj,4) = StoreOBCSE(J,K,bi,bj,20) |
|
./pkg/autodiff/autodiff_restore.F |
422 |
AUTODIFF_RESTORE |
DO K=1,Nr |
|
./pkg/autodiff/autodiff_restore.F |
424 |
AUTODIFF_RESTORE |
OBWu(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
425 |
AUTODIFF_RESTORE |
OBWv(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
426 |
AUTODIFF_RESTORE |
OBWt(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
427 |
AUTODIFF_RESTORE |
OBWs(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
428 |
AUTODIFF_RESTORE |
OBWu0(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
429 |
AUTODIFF_RESTORE |
OBWv0(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
430 |
AUTODIFF_RESTORE |
OBWt0(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
431 |
AUTODIFF_RESTORE |
OBWs0(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
432 |
AUTODIFF_RESTORE |
OBWu1(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
433 |
AUTODIFF_RESTORE |
OBWv1(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
434 |
AUTODIFF_RESTORE |
OBWt1(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
435 |
AUTODIFF_RESTORE |
OBWs1(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
437 |
AUTODIFF_RESTORE |
xx_obcsw0(J,K,bi,bj,1) = StoreOBCSW(J,K,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
438 |
AUTODIFF_RESTORE |
xx_obcsw0(J,K,bi,bj,2) = StoreOBCSW(J,K,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
439 |
AUTODIFF_RESTORE |
xx_obcsw0(J,K,bi,bj,3) = StoreOBCSW(J,K,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
440 |
AUTODIFF_RESTORE |
xx_obcsw0(J,K,bi,bj,4) = StoreOBCSW(J,K,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
441 |
AUTODIFF_RESTORE |
xx_obcsw1(J,K,bi,bj,1) = StoreOBCSW(J,K,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
442 |
AUTODIFF_RESTORE |
xx_obcsw1(J,K,bi,bj,2) = StoreOBCSW(J,K,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
443 |
AUTODIFF_RESTORE |
xx_obcsw1(J,K,bi,bj,3) = StoreOBCSW(J,K,bi,bj,19) |
|
./pkg/autodiff/autodiff_restore.F |
444 |
AUTODIFF_RESTORE |
xx_obcsw1(J,K,bi,bj,4) = StoreOBCSW(J,K,bi,bj,20) |
|
./pkg/autodiff/autodiff_restore.F |
82 |
AUTODIFF_RESTORE |
INTEGER I,J,K |
|
./pkg/autodiff/autodiff_store.F |
143 |
AUTODIFF_STORE |
DO K=1,Nr |
|
./pkg/autodiff/autodiff_store.F |
147 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,1) = gtNm(I,J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
148 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,2) = gsNm(I,J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
149 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,3) = guNm(I,J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
150 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,4) = gvNm(I,J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
152 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,1) = gtNm1(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
153 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,2) = gsNm1(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
154 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,3) = guNm1(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
155 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,4) = gvNm1(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
157 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,5) = theta(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
158 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,6) = salt(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
159 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,7) = uVel(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
160 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,8) = vVel(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
161 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,9) = wVel(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
162 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,10) = totPhiHyd(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
164 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,11) = gtNm(I,J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
165 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,12) = gsNm(I,J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
166 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,13) = guNm(I,J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
167 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,14) = gvNm(I,J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
387 |
AUTODIFF_STORE |
DO K=1,Nr |
|
./pkg/autodiff/autodiff_store.F |
389 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,1) = OBNu(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
390 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,2) = OBNv(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
391 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,3) = OBNt(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
392 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,4) = OBNs(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
393 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,5) = OBNu0(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
394 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,6) = OBNv0(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
395 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,7) = OBNt0(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
396 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,8) = OBNs0(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
397 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,9) = OBNu1(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
398 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,10) = OBNv1(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
399 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,11) = OBNt1(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
400 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,12) = OBNs1(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
402 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,13) = xx_obcsn0(I,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
403 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,14) = xx_obcsn0(I,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
404 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,15) = xx_obcsn0(I,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_store.F |
405 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,16) = xx_obcsn0(I,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_store.F |
406 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,17) = xx_obcsn1(I,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
407 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,18) = xx_obcsn1(I,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
408 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,19) = xx_obcsn1(I,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_store.F |
409 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,20) = xx_obcsn1(I,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_store.F |
411 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,13) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
412 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,14) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
413 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,15) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
414 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,16) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
415 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,17) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
416 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,18) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
417 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,19) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
418 |
AUTODIFF_STORE |
StoreOBCSN(I,K,bi,bj,20) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
431 |
AUTODIFF_STORE |
DO K=1,Nr |
|
./pkg/autodiff/autodiff_store.F |
433 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,1) = OBSu(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
434 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,2) = OBSv(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
435 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,3) = OBSt(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
436 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,4) = OBSs(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
437 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,5) = OBSu0(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
438 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,6) = OBSv0(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
439 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,7) = OBSt0(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
440 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,8) = OBSs0(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
441 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,9) = OBSu1(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
442 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,10) = OBSv1(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
443 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,11) = OBSt1(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
444 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,12) = OBSs1(I,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
446 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,13) = xx_obcss0(I,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
447 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,14) = xx_obcss0(I,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
448 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,15) = xx_obcss0(I,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_store.F |
449 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,16) = xx_obcss0(I,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_store.F |
450 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,17) = xx_obcss1(I,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
451 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,18) = xx_obcss1(I,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
452 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,19) = xx_obcss1(I,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_store.F |
453 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,20) = xx_obcss1(I,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_store.F |
455 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,13) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
456 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,14) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
457 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,15) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
458 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,16) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
459 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,17) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
460 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,18) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
461 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,19) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
462 |
AUTODIFF_STORE |
StoreOBCSS(I,K,bi,bj,20) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
475 |
AUTODIFF_STORE |
DO K=1,Nr |
|
./pkg/autodiff/autodiff_store.F |
477 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,1) = OBEu(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
478 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,2) = OBEv(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
479 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,3) = OBEt(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
480 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,4) = OBEs(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
481 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,5) = OBEu0(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
482 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,6) = OBEv0(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
483 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,7) = OBEt0(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
484 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,8) = OBEs0(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
485 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,9) = OBEu1(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
486 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,10) = OBEv1(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
487 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,11) = OBEt1(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
488 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,12) = OBEs1(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
490 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,13) = xx_obcse0(J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
491 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,14) = xx_obcse0(J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
492 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,15) = xx_obcse0(J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_store.F |
493 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,16) = xx_obcse0(J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_store.F |
494 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,17) = xx_obcse1(J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
495 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,18) = xx_obcse1(J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
496 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,19) = xx_obcse1(J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_store.F |
497 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,20) = xx_obcse1(J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_store.F |
499 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,13) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
500 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,14) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
501 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,15) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
502 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,16) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
503 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,17) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
504 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,18) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
505 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,19) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
506 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,20) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
519 |
AUTODIFF_STORE |
DO K=1,Nr |
|
./pkg/autodiff/autodiff_store.F |
521 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,1) = OBWu(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
522 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,2) = OBWv(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
523 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,3) = OBWt(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
524 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,4) = OBWs(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
525 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,5) = OBWu0(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
526 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,6) = OBWv0(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
527 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,7) = OBWt0(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
528 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,8) = OBWs0(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
529 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,9) = OBWu1(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
530 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,10) = OBWv1(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
531 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,11) = OBWt1(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
532 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,12) = OBWs1(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
534 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,13) = xx_obcsw0(J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
535 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,14) = xx_obcsw0(J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
536 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,15) = xx_obcsw0(J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_store.F |
537 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,16) = xx_obcsw0(J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_store.F |
538 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,17) = xx_obcsw1(J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
539 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,18) = xx_obcsw1(J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
540 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,19) = xx_obcsw1(J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_store.F |
541 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,20) = xx_obcsw1(J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_store.F |
543 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,13) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
544 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,14) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
545 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,15) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
546 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,16) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
547 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,17) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
548 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,18) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
549 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,19) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
550 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,20) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
82 |
AUTODIFF_STORE |
INTEGER I,J,K |
|
./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 |
34 |
CD_CODE_INI_VARS |
DO K=1,Nr |
|
./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 |
|
./eesupp/src/print.F |
1008 |
PRINT_MAPRS |
DO K=pltMin,pltMax,pltStr |
|
./eesupp/src/print.F |
1010 |
PRINT_MAPRS |
& pltBase-1+(bk-1)*pltStep+K |
|
./eesupp/src/print.F |
1060 |
PRINT_MAPRS |
val = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
1062 |
PRINT_MAPRS |
val = fld(I,K,J,bi,bk) |
|
./eesupp/src/print.F |
1064 |
PRINT_MAPRS |
val = fld(K,I,J,bk,bi) |
|
./eesupp/src/print.F |
1232 |
PRINT_MAPRL |
INTEGER I, J, K, iStrngLo, iStrngHi, iBuf, iDx |
|
./eesupp/src/print.F |
1246 |
PRINT_MAPRL |
DO K=kMin, kMax, kStr |
|
./eesupp/src/print.F |
1249 |
PRINT_MAPRL |
IF ( printMapIncludesZeros .OR. fld(I,J,K,bi,bj) .NE. 0. ) |
|
./eesupp/src/print.F |
1251 |
PRINT_MAPRL |
IF ( fld(I,J,K,bi,bj) .LT. fMin ) |
|
./eesupp/src/print.F |
1252 |
PRINT_MAPRL |
& fMin = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
1253 |
PRINT_MAPRL |
IF ( fld(I,J,K,bi,bj) .GT. fMax ) |
|
./eesupp/src/print.F |
1254 |
PRINT_MAPRL |
& fMax = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
1442 |
PRINT_MAPRL |
DO K=pltMin,pltMax,pltStr |
|
./eesupp/src/print.F |
1444 |
PRINT_MAPRL |
& pltBase-1+(bk-1)*pltStep+K |
|
./eesupp/src/print.F |
1492 |
PRINT_MAPRL |
val = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
1494 |
PRINT_MAPRL |
val = fld(I,K,J,bi,bk) |
|
./eesupp/src/print.F |
1496 |
PRINT_MAPRL |
val = fld(K,I,J,bk,bi) |
|
./eesupp/src/print.F |
342 |
PRINT_LIST_I |
INTEGER K |
|
./eesupp/src/print.F |
358 |
PRINT_LIST_I |
K = 1+INT(LOG10(FLOAT(iLast))) |
|
./eesupp/src/print.F |
359 |
PRINT_LIST_I |
WRITE(fmt1,'(A,I1,A)') '(A,1X,A,I',K,',1X,A)' |
|
./eesupp/src/print.F |
360 |
PRINT_LIST_I |
WRITE(fmt2,'(A,I1,A,I1,A)') '(A,1X,A,I',K,',A,I',K,',1X,A)' |
|
./eesupp/src/print.F |
368 |
PRINT_LIST_I |
DO K = iFirst+1,iLast |
|
./eesupp/src/print.F |
369 |
PRINT_LIST_I |
xNew = fld(K ) |
|
./eesupp/src/print.F |
384 |
PRINT_LIST_I |
iLo = K |
|
./eesupp/src/print.F |
385 |
PRINT_LIST_I |
iHi = K |
|
./eesupp/src/print.F |
388 |
PRINT_LIST_I |
iHi = K |
|
./eesupp/src/print.F |
475 |
PRINT_LIST_L |
INTEGER K |
|
./eesupp/src/print.F |
491 |
PRINT_LIST_L |
K = 1+INT(LOG10(FLOAT(iLast))) |
|
./eesupp/src/print.F |
492 |
PRINT_LIST_L |
WRITE(fmt1,'(A,I1,A)') '(A,1X,A,I',K,',1X,A)' |
|
./eesupp/src/print.F |
493 |
PRINT_LIST_L |
WRITE(fmt2,'(A,I1,A,I1,A)') '(A,1X,A,I',K,',A,I',K,',1X,A)' |
|
./eesupp/src/print.F |
501 |
PRINT_LIST_L |
DO K = iFirst+1,iLast |
|
./eesupp/src/print.F |
502 |
PRINT_LIST_L |
xNew = fld(K ) |
|
./eesupp/src/print.F |
517 |
PRINT_LIST_L |
iLo = K |
|
./eesupp/src/print.F |
518 |
PRINT_LIST_L |
iHi = K |
|
./eesupp/src/print.F |
521 |
PRINT_LIST_L |
iHi = K |
|
./eesupp/src/print.F |
608 |
PRINT_LIST_RL |
INTEGER K |
|
./eesupp/src/print.F |
624 |
PRINT_LIST_RL |
K = 1+INT(LOG10(FLOAT(iLast))) |
|
./eesupp/src/print.F |
625 |
PRINT_LIST_RL |
WRITE(fmt1,'(A,I1,A)') '(A,1X,A,I',K,',1X,A)' |
|
./eesupp/src/print.F |
626 |
PRINT_LIST_RL |
WRITE(fmt2,'(A,I1,A,I1,A)') '(A,1X,A,I',K,',A,I',K,',1X,A)' |
|
./eesupp/src/print.F |
634 |
PRINT_LIST_RL |
DO K = iFirst+1,iLast |
|
./eesupp/src/print.F |
635 |
PRINT_LIST_RL |
xNew = fld(K ) |
|
./eesupp/src/print.F |
650 |
PRINT_LIST_RL |
iLo = K |
|
./eesupp/src/print.F |
651 |
PRINT_LIST_RL |
iHi = K |
|
./eesupp/src/print.F |
654 |
PRINT_LIST_RL |
iHi = K |
|
./eesupp/src/print.F |
799 |
PRINT_MAPRS |
INTEGER I, J, K, iStrngLo, iStrngHi, iBuf, iDx |
|
./eesupp/src/print.F |
813 |
PRINT_MAPRS |
DO K=kMin, kMax, kStr |
|
./eesupp/src/print.F |
816 |
PRINT_MAPRS |
IF (printMapIncludesZeros .OR. fld(I,J,K,bi,bj) .NE. 0.) THEN |
|
./eesupp/src/print.F |
817 |
PRINT_MAPRS |
IF ( fld(I,J,K,bi,bj) .LT. fMin ) |
|
./eesupp/src/print.F |
818 |
PRINT_MAPRS |
& fMin = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
819 |
PRINT_MAPRS |
IF ( fld(I,J,K,bi,bj) .GT. fMax ) |
|
./eesupp/src/print.F |
820 |
PRINT_MAPRS |
& fMax = fld(I,J,K,bi,bj) |
|
./pkg/chronos/chronos.F |
797 |
ASTRO |
DO 200 K=2,DAYSCY |
|
./pkg/cost/cost_depth.F |
35 |
COST_DEPTH |
INTEGER I, J, K |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
203 |
CTRL_SET_PACK_XZ |
kk=int((j-1)*nr+K-1)/sny+1 |
|
./pkg/debug/chksum_tiled.F |
16 |
CHKSUM_TILED |
INTEGER I,J,K |
|
./pkg/debug/chksum_tiled.F |
25 |
CHKSUM_TILED |
DO K=1,NN |
|
./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 |
36 |
CHKSUM_TILED |
DO K=1,NN |
|
./pkg/debug/chksum_tiled.F |
39 |
CHKSUM_TILED |
Frms=Frms+(fld(I,J,K,bi,bj)-Fmn)**2 |
|
./pkg/dic/o2_surfforcing.F |
112 |
O2_SURFFORCING |
& - PTR_O2(i,j,K)) |
|
./pkg/dic/o2_surfforcing.F |
125 |
O2_SURFFORCING |
& *recip_drF(K) * recip_hFacC(i,j,K,bi,bj) |
|
./pkg/dic/o2_surfforcing.F |
47 |
O2_SURFFORCING |
INTEGER I,J,K |
|
./pkg/dic/o2_surfforcing.F |
67 |
O2_SURFFORCING |
K=1 |