| File |
Line number |
Procedure |
Code |
|
./model/inc/HFACS_MACROS.h |
36 |
NO PROCEDURE |
# define _hFacS(i,j,k,bi,bj) hFacS(i,j,k,bi,bj)*maskS(i,j,k,bi,bj) |
|
./pkg/fizhi/fizhi_clockstuff.F |
886 |
ASTRO |
integer i,nsecf,k,km,kp |
|
./model/inc/HFACW_MACROS.h |
36 |
NO PROCEDURE |
# define _hFacW(i,j,k,bi,bj) hFacW(i,j,k,bi,bj)*maskW(i,j,k,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
121 |
FIZHI_INIT_VEG |
do k = 1,maxtyp |
|
./pkg/fizhi/fizhi_init_veg.F |
124 |
FIZHI_INIT_VEG |
surftype(i,j,k,bi,bj) = iveg_32(i,j,k,biglobal,bjglobal) |
|
./pkg/fizhi/fizhi_init_veg.F |
125 |
FIZHI_INIT_VEG |
tilefrac(i,j,k,bi,bj) = veg_32(i,j,k,biglobal,bjglobal) |
|
./pkg/fizhi/fizhi_init_veg.F |
148 |
FIZHI_INIT_VEG |
do k=1,maxtyp |
|
./pkg/fizhi/fizhi_init_veg.F |
151 |
FIZHI_INIT_VEG |
if(surftype(i,j,k,bi,bj).lt.100 .and. |
|
./pkg/fizhi/fizhi_init_veg.F |
152 |
FIZHI_INIT_VEG |
. tilefrac(i,j,k,bi,bj).gt.0.) then |
|
./pkg/fizhi/fizhi_init_veg.F |
155 |
FIZHI_INIT_VEG |
ityp (nchpland(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
156 |
FIZHI_INIT_VEG |
chfr (nchpland(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
168 |
FIZHI_INIT_VEG |
do k=1,maxtyp |
|
./pkg/fizhi/fizhi_init_veg.F |
171 |
FIZHI_INIT_VEG |
if(surftype(i,j,k,bi,bj).ge.100 .and. |
|
./pkg/fizhi/fizhi_init_veg.F |
172 |
FIZHI_INIT_VEG |
. tilefrac(i,j,k,bi,bj).gt.0.) then |
|
./pkg/fizhi/fizhi_init_veg.F |
175 |
FIZHI_INIT_VEG |
ityp (nchptot(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
176 |
FIZHI_INIT_VEG |
chfr (nchptot(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
72 |
FIZHI_INIT_VEG |
integer i,j,k,bi,bj,ierr1,kveg |
|
./pkg/fizhi/fizhi_lwrad.F |
1021 |
IRRAD |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
1024 |
IRRAD |
blayer(i,j,k)=ta(i,j,k)*(ta(i,j,k)*(ta(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
1025 |
IRRAD |
* *(ta(i,j,k)*cb(5,ib)+cb(4,ib))+cb(3,ib)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1049 |
IRRAD |
do k=1,np+1 |
|
./pkg/fizhi/fizhi_lwrad.F |
1052 |
IRRAD |
dlayer(i,j,k)=blayer(i,j,k-1)-blayer(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
1074 |
IRRAD |
do k= 1, np |
|
./pkg/fizhi/fizhi_lwrad.F |
1077 |
IRRAD |
taucl(i,j,k,1)=cwp(i,j,k,1)*(aib(1,ib)+aib(2,ib)/ |
|
./pkg/fizhi/fizhi_lwrad.F |
1078 |
IRRAD |
* reff(i,j,k,1)**aib(3,ib)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1079 |
IRRAD |
taucl(i,j,k,2)=cwp(i,j,k,2)*(awb(1,ib)+(awb(2,ib)+(awb(3,ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
1080 |
IRRAD |
* +awb(4,ib)*reff(i,j,k,2))*reff(i,j,k,2))*reff(i,j,k,2)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1091 |
IRRAD |
do k= 1, np |
|
./pkg/fizhi/fizhi_lwrad.F |
1095 |
IRRAD |
clr(i,j,k) = 1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1096 |
IRRAD |
taux=taucl(i,j,k,1)+taucl(i,j,k,2)+taucl(i,j,k,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
1098 |
IRRAD |
if (taux.gt.0.02 .and. fcld(i,j,k).gt.0.01) then |
|
./pkg/fizhi/fizhi_lwrad.F |
1100 |
IRRAD |
reff1=min(reff(i,j,k,1),130. _d 0) |
|
./pkg/fizhi/fizhi_lwrad.F |
1101 |
IRRAD |
reff2=min(reff(i,j,k,2),20.0 _d 0) |
|
./pkg/fizhi/fizhi_lwrad.F |
1103 |
IRRAD |
w1=taucl(i,j,k,1)*(aiw(1,ib)+(aiw(2,ib)+(aiw(3,ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
1105 |
IRRAD |
w2=taucl(i,j,k,2)*(aww(1,ib)+(aww(2,ib)+(aww(3,ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
1107 |
IRRAD |
w3=taucl(i,j,k,3)*0.54 |
|
./pkg/fizhi/fizhi_lwrad.F |
1128 |
IRRAD |
clr(i,j,k)=1.0-(fcld(i,j,k)*(1.0-exp(-1.66*taux))) |
|
./pkg/fizhi/fizhi_lwrad.F |
1231 |
IRRAD |
do k=1,np+1 |
|
./pkg/fizhi/fizhi_lwrad.F |
1234 |
IRRAD |
flxu(i,j,k) = 0.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1235 |
IRRAD |
flxd(i,j,k) = 0.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1236 |
IRRAD |
flcu(i,j,k) = 0.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1237 |
IRRAD |
flcd(i,j,k) = 0.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1666 |
IRRAD |
do k=1, np+1 |
|
./pkg/fizhi/fizhi_lwrad.F |
1669 |
IRRAD |
flcu(i,j,k)=flcu(i,j,k)- |
|
./pkg/fizhi/fizhi_lwrad.F |
1670 |
IRRAD |
* flcd(i,j,np+1)*trantcr(i,j,k)*(1.-emiss(i,j,ib)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1671 |
IRRAD |
flxu(i,j,k)=flxu(i,j,k)- |
|
./pkg/fizhi/fizhi_lwrad.F |
1672 |
IRRAD |
* flxd(i,j,np+1)*transfc(i,j,k)*(1.-emiss(i,j,ib)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1681 |
IRRAD |
do k=1,np+1 |
|
./pkg/fizhi/fizhi_lwrad.F |
1684 |
IRRAD |
flc(i,j,k)=flc(i,j,k)+flcd(i,j,k)+flcu(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
1685 |
IRRAD |
flx(i,j,k)=flx(i,j,k)+flxd(i,j,k)+flxu(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
1694 |
IRRAD |
do k=1,np+1 |
|
./pkg/fizhi/fizhi_lwrad.F |
1697 |
IRRAD |
flc(i,j,k)=flc(i,j,k)+rflc(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
1698 |
IRRAD |
flx(i,j,k)=flx(i,j,k)+rflx(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
1731 |
COLUMN |
integer m,n,np,i,j,k |
|
./pkg/fizhi/fizhi_lwrad.F |
1750 |
COLUMN |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
1753 |
COLUMN |
sabs(i,j,k+1)=sabs(i,j,k)+sabs0(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
1754 |
COLUMN |
spre(i,j,k+1)=spre(i,j,k)+pa(i,j,k)*sabs0(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
1755 |
COLUMN |
stem(i,j,k+1)=stem(i,j,k)+dt(i,j,k)*sabs0(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
1786 |
H2OEXPS |
integer ib,m,n,np,i,j,k,ik |
|
./pkg/fizhi/fizhi_lwrad.F |
1810 |
H2OEXPS |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
1817 |
H2OEXPS |
xh = dh2o(i,j,k)*(pa(i,j,k)/500.)**pm(ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
1818 |
H2OEXPS |
1 * ( 1.+(aw(ib)+bw(ib)* dt(i,j,k))*dt(i,j,k) ) |
|
./pkg/fizhi/fizhi_lwrad.F |
1823 |
H2OEXPS |
h2oexp(i,j,k,1) = exp(-xh*xkw(ib)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1833 |
H2OEXPS |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
1836 |
H2OEXPS |
xh = h2oexp(i,j,k,ik-1)*h2oexp(i,j,k,ik-1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1837 |
H2OEXPS |
h2oexp(i,j,k,ik) = xh*xh*xh |
|
./pkg/fizhi/fizhi_lwrad.F |
1844 |
H2OEXPS |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
1847 |
H2OEXPS |
xh = h2oexp(i,j,k,ik-1)*h2oexp(i,j,k,ik-1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1849 |
H2OEXPS |
h2oexp(i,j,k,ik) = xh*xh |
|
./pkg/fizhi/fizhi_lwrad.F |
1856 |
H2OEXPS |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
1859 |
H2OEXPS |
xh=h2oexp(i,j,k,ik-1)*h2oexp(i,j,k,ik-1)*h2oexp(i,j,k,ik-1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1861 |
H2OEXPS |
h2oexp(i,j,k,ik) = xh*xh1 |
|
./pkg/fizhi/fizhi_lwrad.F |
1868 |
H2OEXPS |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
1871 |
H2OEXPS |
xh = h2oexp(i,j,k,ik-1)*h2oexp(i,j,k,ik-1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1874 |
H2OEXPS |
h2oexp(i,j,k,ik) = xh*xh |
|
./pkg/fizhi/fizhi_lwrad.F |
1902 |
CONEXPS |
integer ib,m,n,np,i,j,k,iq |
|
./pkg/fizhi/fizhi_lwrad.F |
1918 |
CONEXPS |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
1921 |
CONEXPS |
conexp(i,j,k,1) = exp(-dcont(i,j,k)*xke(ib)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1933 |
CONEXPS |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
1936 |
CONEXPS |
conexp(i,j,k,iq) = conexp(i,j,k,iq-1) *conexp(i,j,k,iq-1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1963 |
CO2EXPS |
integer m,n,np,i,j,k |
|
./pkg/fizhi/fizhi_lwrad.F |
1979 |
CO2EXPS |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
1986 |
CO2EXPS |
xc = dco2(i,j,k)*(pa(i,j,k)/300.0)**0.5 |
|
./pkg/fizhi/fizhi_lwrad.F |
1987 |
CO2EXPS |
1 *(1.+(0.0182+1.07e-4*dt(i,j,k))*dt(i,j,k)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1991 |
CO2EXPS |
co2exp(i,j,k,1,1)=exp(-xc*2.656e-5) |
|
./pkg/fizhi/fizhi_lwrad.F |
1993 |
CO2EXPS |
xc=co2exp(i,j,k,1,1)*co2exp(i,j,k,1,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1995 |
CO2EXPS |
co2exp(i,j,k,2,1)=xc*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
1997 |
CO2EXPS |
xc=co2exp(i,j,k,2,1)*co2exp(i,j,k,2,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1999 |
CO2EXPS |
co2exp(i,j,k,3,1)=xc*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2001 |
CO2EXPS |
xc=co2exp(i,j,k,3,1)*co2exp(i,j,k,3,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2003 |
CO2EXPS |
co2exp(i,j,k,4,1)=xc*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2005 |
CO2EXPS |
xc=co2exp(i,j,k,4,1)*co2exp(i,j,k,4,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2007 |
CO2EXPS |
co2exp(i,j,k,5,1)=xc*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2009 |
CO2EXPS |
xc=co2exp(i,j,k,5,1)*co2exp(i,j,k,5,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2011 |
CO2EXPS |
co2exp(i,j,k,6,1)=xc*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2016 |
CO2EXPS |
xc = dco2(i,j,k)*(pa(i,j,k)/30.0)**0.85 |
|
./pkg/fizhi/fizhi_lwrad.F |
2017 |
CO2EXPS |
1 *(1.+(0.0042+2.00e-5*dt(i,j,k))*dt(i,j,k)) |
|
./pkg/fizhi/fizhi_lwrad.F |
2019 |
CO2EXPS |
co2exp(i,j,k,1,2)=exp(-xc*2.656e-3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2021 |
CO2EXPS |
xc=co2exp(i,j,k,1,2)*co2exp(i,j,k,1,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2023 |
CO2EXPS |
co2exp(i,j,k,2,2)=xc*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2025 |
CO2EXPS |
xc=co2exp(i,j,k,2,2)*co2exp(i,j,k,2,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2027 |
CO2EXPS |
co2exp(i,j,k,3,2)=xc*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2029 |
CO2EXPS |
xc=co2exp(i,j,k,3,2)*co2exp(i,j,k,3,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2031 |
CO2EXPS |
co2exp(i,j,k,4,2)=xc*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2033 |
CO2EXPS |
xc=co2exp(i,j,k,4,2)*co2exp(i,j,k,4,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2035 |
CO2EXPS |
co2exp(i,j,k,5,2)=xc*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2037 |
CO2EXPS |
xc=co2exp(i,j,k,5,2)*co2exp(i,j,k,5,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2039 |
CO2EXPS |
co2exp(i,j,k,6,2)=xc*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2065 |
N2OEXPS |
integer ib,m,n,np,i,j,k |
|
./pkg/fizhi/fizhi_lwrad.F |
2081 |
N2OEXPS |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
2089 |
N2OEXPS |
xc=dn2o(i,j,k)*(1.+(1.9297e-3+4.3750e-6*dt(i,j,k))*dt(i,j,k)) |
|
./pkg/fizhi/fizhi_lwrad.F |
2090 |
N2OEXPS |
n2oexp(i,j,k,1)=exp(-xc*6.31582e-2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2092 |
N2OEXPS |
xc=n2oexp(i,j,k,1)*n2oexp(i,j,k,1)*n2oexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2095 |
N2OEXPS |
n2oexp(i,j,k,2)=xc*xc1*xc2 |
|
./pkg/fizhi/fizhi_lwrad.F |
2101 |
N2OEXPS |
xc=dn2o(i,j,k)*(pa(i,j,k)/500.0)**0.48 |
|
./pkg/fizhi/fizhi_lwrad.F |
2102 |
N2OEXPS |
* *(1.+(1.3804e-3+7.4838e-6*dt(i,j,k))*dt(i,j,k)) |
|
./pkg/fizhi/fizhi_lwrad.F |
2103 |
N2OEXPS |
n2oexp(i,j,k,1)=exp(-xc*5.35779e-2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2105 |
N2OEXPS |
xc=n2oexp(i,j,k,1)*n2oexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2107 |
N2OEXPS |
n2oexp(i,j,k,2)=xc*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2108 |
N2OEXPS |
xc=n2oexp(i,j,k,2)*n2oexp(i,j,k,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2110 |
N2OEXPS |
n2oexp(i,j,k,3)=xc*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2111 |
N2OEXPS |
xc=n2oexp(i,j,k,3)*n2oexp(i,j,k,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2113 |
N2OEXPS |
n2oexp(i,j,k,4)=xc*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2141 |
CH4EXPS |
integer ib,m,n,np,i,j,k |
|
./pkg/fizhi/fizhi_lwrad.F |
2157 |
CH4EXPS |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
2165 |
CH4EXPS |
xc=dch4(i,j,k)*(1.+(1.7007e-2+1.5826e-4*dt(i,j,k))*dt(i,j,k)) |
|
./pkg/fizhi/fizhi_lwrad.F |
2166 |
CH4EXPS |
ch4exp(i,j,k,1)=exp(-xc*5.80708e-3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2172 |
CH4EXPS |
xc=dch4(i,j,k)*(pa(i,j,k)/500.0)**0.65 |
|
./pkg/fizhi/fizhi_lwrad.F |
2173 |
CH4EXPS |
* *(1.+(5.9590e-4-2.2931e-6*dt(i,j,k))*dt(i,j,k)) |
|
./pkg/fizhi/fizhi_lwrad.F |
2174 |
CH4EXPS |
ch4exp(i,j,k,1)=exp(-xc*6.29247e-2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2176 |
CH4EXPS |
xc=ch4exp(i,j,k,1)*ch4exp(i,j,k,1)*ch4exp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2178 |
CH4EXPS |
ch4exp(i,j,k,2)=xc*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2180 |
CH4EXPS |
xc=ch4exp(i,j,k,2)*ch4exp(i,j,k,2)*ch4exp(i,j,k,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2182 |
CH4EXPS |
ch4exp(i,j,k,3)=xc*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2184 |
CH4EXPS |
xc=ch4exp(i,j,k,3)*ch4exp(i,j,k,3)*ch4exp(i,j,k,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2186 |
CH4EXPS |
ch4exp(i,j,k,4)=xc*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2213 |
COMEXPS |
integer ib,m,n,np,i,j,k |
|
./pkg/fizhi/fizhi_lwrad.F |
2229 |
COMEXPS |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
2237 |
COMEXPS |
xc=dcom(i,j,k)*(1.+(3.5775e-2+4.0447e-4*dt(i,j,k))*dt(i,j,k)) |
|
./pkg/fizhi/fizhi_lwrad.F |
2238 |
COMEXPS |
comexp(i,j,k,1)=exp(-xc*2.18947e-5) |
|
./pkg/fizhi/fizhi_lwrad.F |
2240 |
COMEXPS |
xc=comexp(i,j,k,1)*comexp(i,j,k,1)*comexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2245 |
COMEXPS |
comexp(i,j,k,2)=xc*xc1 |
|
./pkg/fizhi/fizhi_lwrad.F |
2251 |
COMEXPS |
xc=dcom(i,j,k)*(1.+(3.4268e-2+3.7401e-4*dt(i,j,k))*dt(i,j,k)) |
|
./pkg/fizhi/fizhi_lwrad.F |
2252 |
COMEXPS |
comexp(i,j,k,1)=exp(-xc*4.74570e-5) |
|
./pkg/fizhi/fizhi_lwrad.F |
2254 |
COMEXPS |
xc=comexp(i,j,k,1)*comexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2259 |
COMEXPS |
comexp(i,j,k,2)=xc1*xc2*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2290 |
CFCEXPS |
integer ib,m,n,np,i,j,k |
|
./pkg/fizhi/fizhi_lwrad.F |
2310 |
CFCEXPS |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
2317 |
CFCEXPS |
xf=dcfc(i,j,k)*(1.+(a1+b1*dt(i,j,k))*dt(i,j,k)) |
|
./pkg/fizhi/fizhi_lwrad.F |
2318 |
CFCEXPS |
cfcexp(i,j,k)=exp(-xf*fk1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2320 |
CFCEXPS |
xf=dcfc(i,j,k)*(1.+(a2+b2*dt(i,j,k))*dt(i,j,k)) |
|
./pkg/fizhi/fizhi_lwrad.F |
2321 |
CFCEXPS |
cfcexp(i,j,k)=exp(-xf*fk2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2352 |
B10EXPS |
integer m,n,np,i,j,k |
|
./pkg/fizhi/fizhi_lwrad.F |
2370 |
B10EXPS |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
2377 |
B10EXPS |
xx=dh2o(i,j,k)*(pa(i,j,k)/500.0) |
|
./pkg/fizhi/fizhi_lwrad.F |
2378 |
B10EXPS |
1 *(1.+(0.0149+6.20e-5*dt(i,j,k))*dt(i,j,k)) |
|
./pkg/fizhi/fizhi_lwrad.F |
2383 |
B10EXPS |
h2oexp(i,j,k,1)=exp(-xx*0.10624) |
|
./pkg/fizhi/fizhi_lwrad.F |
2385 |
B10EXPS |
xx=h2oexp(i,j,k,1)*h2oexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2387 |
B10EXPS |
h2oexp(i,j,k,2)=xx*xx |
|
./pkg/fizhi/fizhi_lwrad.F |
2389 |
B10EXPS |
xx=h2oexp(i,j,k,2)*h2oexp(i,j,k,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2391 |
B10EXPS |
h2oexp(i,j,k,3)=xx*xx |
|
./pkg/fizhi/fizhi_lwrad.F |
2393 |
B10EXPS |
xx=h2oexp(i,j,k,3)*h2oexp(i,j,k,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2395 |
B10EXPS |
h2oexp(i,j,k,4)=xx*xx |
|
./pkg/fizhi/fizhi_lwrad.F |
2397 |
B10EXPS |
xx=h2oexp(i,j,k,4)*h2oexp(i,j,k,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2399 |
B10EXPS |
h2oexp(i,j,k,5)=xx*xx |
|
./pkg/fizhi/fizhi_lwrad.F |
2401 |
B10EXPS |
xx=h2oexp(i,j,k,5)*h2oexp(i,j,k,5) |
|
./pkg/fizhi/fizhi_lwrad.F |
2403 |
B10EXPS |
h2oexp(i,j,k,6)=xx*xx |
|
./pkg/fizhi/fizhi_lwrad.F |
2408 |
B10EXPS |
xx=dco2(i,j,k)*(pa(i,j,k)/300.0)**0.5 |
|
./pkg/fizhi/fizhi_lwrad.F |
2409 |
B10EXPS |
1 *(1.+(0.0179+1.02e-4*dt(i,j,k))*dt(i,j,k)) |
|
./pkg/fizhi/fizhi_lwrad.F |
2414 |
B10EXPS |
co2exp(i,j,k,1,1)=exp(-xx*2.656e-5) |
|
./pkg/fizhi/fizhi_lwrad.F |
2416 |
B10EXPS |
xx=co2exp(i,j,k,1,1)*co2exp(i,j,k,1,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2418 |
B10EXPS |
co2exp(i,j,k,2,1)=xx*xx |
|
./pkg/fizhi/fizhi_lwrad.F |
2420 |
B10EXPS |
xx=co2exp(i,j,k,2,1)*co2exp(i,j,k,2,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2422 |
B10EXPS |
co2exp(i,j,k,3,1)=xx*xx |
|
./pkg/fizhi/fizhi_lwrad.F |
2424 |
B10EXPS |
xx=co2exp(i,j,k,3,1)*co2exp(i,j,k,3,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2426 |
B10EXPS |
co2exp(i,j,k,4,1)=xx*xx |
|
./pkg/fizhi/fizhi_lwrad.F |
2428 |
B10EXPS |
xx=co2exp(i,j,k,4,1)*co2exp(i,j,k,4,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2430 |
B10EXPS |
co2exp(i,j,k,5,1)=xx*xx |
|
./pkg/fizhi/fizhi_lwrad.F |
2432 |
B10EXPS |
xx=co2exp(i,j,k,5,1)*co2exp(i,j,k,5,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2434 |
B10EXPS |
co2exp(i,j,k,6,1)=xx*xx |
|
./pkg/fizhi/fizhi_lwrad.F |
2440 |
B10EXPS |
conexp(i,j,k,1)=exp(-dcont(i,j,k)*1.04995e+2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2444 |
B10EXPS |
xx=dn2o(i,j,k)*(1.+(1.4476e-3+3.6656e-6*dt(i,j,k))*dt(i,j,k)) |
|
./pkg/fizhi/fizhi_lwrad.F |
2448 |
B10EXPS |
n2oexp(i,j,k,1)=exp(-xx*0.25238) |
|
./pkg/fizhi/fizhi_lwrad.F |
2450 |
B10EXPS |
xx=n2oexp(i,j,k,1)*n2oexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2455 |
B10EXPS |
n2oexp(i,j,k,2)=xx*xx1*xx2*xx3 |
|
./pkg/fizhi/fizhi_lwrad.F |
2579 |
H2OKDIS |
subroutine H2OKDIS(ib,m,n,np,k,fkw,gkw,ne,h2oexp,conexp, |
|
./pkg/fizhi/fizhi_lwrad.F |
2611 |
H2OKDIS |
integer ib,m,n,np,k,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
2641 |
H2OKDIS |
th2o(i,j,1) = th2o(i,j,1)*h2oexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2642 |
H2OKDIS |
th2o(i,j,2) = th2o(i,j,2)*h2oexp(i,j,k,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2643 |
H2OKDIS |
th2o(i,j,3) = th2o(i,j,3)*h2oexp(i,j,k,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2644 |
H2OKDIS |
th2o(i,j,4) = th2o(i,j,4)*h2oexp(i,j,k,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2645 |
H2OKDIS |
th2o(i,j,5) = th2o(i,j,5)*h2oexp(i,j,k,5) |
|
./pkg/fizhi/fizhi_lwrad.F |
2646 |
H2OKDIS |
th2o(i,j,6) = th2o(i,j,6)*h2oexp(i,j,k,6) |
|
./pkg/fizhi/fizhi_lwrad.F |
2672 |
H2OKDIS |
tcon(i,j,1)= tcon(i,j,1)*conexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2691 |
H2OKDIS |
tcon(i,j,1)= tcon(i,j,1)*conexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2692 |
H2OKDIS |
tcon(i,j,2)= tcon(i,j,2)*conexp(i,j,k,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2693 |
H2OKDIS |
tcon(i,j,3)= tcon(i,j,3)*conexp(i,j,k,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2725 |
CO2KDIS |
subroutine CO2KDIS(m,n,np,k,co2exp,tco2,tran) |
|
./pkg/fizhi/fizhi_lwrad.F |
2745 |
CO2KDIS |
integer m,n,np,k,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
2767 |
CO2KDIS |
tco2(i,j,1,1)=tco2(i,j,1,1)*co2exp(i,j,k,1,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2770 |
CO2KDIS |
tco2(i,j,2,1)=tco2(i,j,2,1)*co2exp(i,j,k,2,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2773 |
CO2KDIS |
tco2(i,j,3,1)=tco2(i,j,3,1)*co2exp(i,j,k,3,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2776 |
CO2KDIS |
tco2(i,j,4,1)=tco2(i,j,4,1)*co2exp(i,j,k,4,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2779 |
CO2KDIS |
tco2(i,j,5,1)=tco2(i,j,5,1)*co2exp(i,j,k,5,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2782 |
CO2KDIS |
tco2(i,j,6,1)=tco2(i,j,6,1)*co2exp(i,j,k,6,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2787 |
CO2KDIS |
tco2(i,j,1,2)=tco2(i,j,1,2)*co2exp(i,j,k,1,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2790 |
CO2KDIS |
tco2(i,j,2,2)=tco2(i,j,2,2)*co2exp(i,j,k,2,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2793 |
CO2KDIS |
tco2(i,j,3,2)=tco2(i,j,3,2)*co2exp(i,j,k,3,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2796 |
CO2KDIS |
tco2(i,j,4,2)=tco2(i,j,4,2)*co2exp(i,j,k,4,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2799 |
CO2KDIS |
tco2(i,j,5,2)=tco2(i,j,5,2)*co2exp(i,j,k,5,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2802 |
CO2KDIS |
tco2(i,j,6,2)=tco2(i,j,6,2)*co2exp(i,j,k,6,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2813 |
N2OKDIS |
subroutine N2OKDIS(ib,m,n,np,k,n2oexp,tn2o,tran) |
|
./pkg/fizhi/fizhi_lwrad.F |
2834 |
N2OKDIS |
integer ib,m,n,np,k,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
2858 |
N2OKDIS |
tn2o(i,j,1)=tn2o(i,j,1)*n2oexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2861 |
N2OKDIS |
tn2o(i,j,2)=tn2o(i,j,2)*n2oexp(i,j,k,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2868 |
N2OKDIS |
tn2o(i,j,1)=tn2o(i,j,1)*n2oexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2871 |
N2OKDIS |
tn2o(i,j,2)=tn2o(i,j,2)*n2oexp(i,j,k,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2874 |
N2OKDIS |
tn2o(i,j,3)=tn2o(i,j,3)*n2oexp(i,j,k,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2877 |
N2OKDIS |
tn2o(i,j,4)=tn2o(i,j,4)*n2oexp(i,j,k,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2890 |
CH4KDIS |
subroutine CH4KDIS(ib,m,n,np,k,ch4exp,tch4,tran) |
|
./pkg/fizhi/fizhi_lwrad.F |
2911 |
CH4KDIS |
integer ib,m,n,np,k,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
2935 |
CH4KDIS |
tch4(i,j,1)=tch4(i,j,1)*ch4exp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2942 |
CH4KDIS |
tch4(i,j,1)=tch4(i,j,1)*ch4exp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2945 |
CH4KDIS |
tch4(i,j,2)=tch4(i,j,2)*ch4exp(i,j,k,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2948 |
CH4KDIS |
tch4(i,j,3)=tch4(i,j,3)*ch4exp(i,j,k,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2951 |
CH4KDIS |
tch4(i,j,4)=tch4(i,j,4)*ch4exp(i,j,k,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2964 |
COMKDIS |
subroutine COMKDIS(ib,m,n,np,k,comexp,tcom,tran) |
|
./pkg/fizhi/fizhi_lwrad.F |
2985 |
COMKDIS |
integer ib,m,n,np,k,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
3009 |
COMKDIS |
tcom(i,j,1)=tcom(i,j,1)*comexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3011 |
COMKDIS |
tcom(i,j,2)=tcom(i,j,2)*comexp(i,j,k,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
3018 |
COMKDIS |
tcom(i,j,1)=tcom(i,j,1)*comexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3020 |
COMKDIS |
tcom(i,j,2)=tcom(i,j,2)*comexp(i,j,k,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
3033 |
CFCKDIS |
subroutine CFCKDIS(m,n,np,k,cfcexp,tcfc,tran) |
|
./pkg/fizhi/fizhi_lwrad.F |
3053 |
CFCKDIS |
integer m,n,np,k,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
3068 |
CFCKDIS |
tcfc(i,j)=tcfc(i,j)*cfcexp(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
3077 |
B10KDIS |
subroutine B10KDIS(m,n,np,k,h2oexp,conexp,co2exp,n2oexp |
|
./pkg/fizhi/fizhi_lwrad.F |
3109 |
B10KDIS |
integer m,n,np,k,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
3138 |
B10KDIS |
th2o(i,j,1)=th2o(i,j,1)*h2oexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3141 |
B10KDIS |
th2o(i,j,2)=th2o(i,j,2)*h2oexp(i,j,k,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
3144 |
B10KDIS |
th2o(i,j,3)=th2o(i,j,3)*h2oexp(i,j,k,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
3147 |
B10KDIS |
th2o(i,j,4)=th2o(i,j,4)*h2oexp(i,j,k,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
3150 |
B10KDIS |
th2o(i,j,5)=th2o(i,j,5)*h2oexp(i,j,k,5) |
|
./pkg/fizhi/fizhi_lwrad.F |
3163 |
B10KDIS |
tcon(i,j,1)=tcon(i,j,1)*conexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3174 |
B10KDIS |
tco2(i,j,1,1)=tco2(i,j,1,1)*co2exp(i,j,k,1,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3177 |
B10KDIS |
tco2(i,j,2,1)=tco2(i,j,2,1)*co2exp(i,j,k,2,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3180 |
B10KDIS |
tco2(i,j,3,1)=tco2(i,j,3,1)*co2exp(i,j,k,3,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3183 |
B10KDIS |
tco2(i,j,4,1)=tco2(i,j,4,1)*co2exp(i,j,k,4,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3186 |
B10KDIS |
tco2(i,j,5,1)=tco2(i,j,5,1)*co2exp(i,j,k,5,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3189 |
B10KDIS |
tco2(i,j,6,1)=tco2(i,j,6,1)*co2exp(i,j,k,6,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3202 |
B10KDIS |
tn2o(i,j,1)=tn2o(i,j,1)*n2oexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3205 |
B10KDIS |
tn2o(i,j,2)=tn2o(i,j,2)*n2oexp(i,j,k,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
563 |
IRRAD |
integer i,j,k,ip,iw,it,ib,ik,iq,isb,k1,k2 |
|
./pkg/fizhi/fizhi_lwrad.F |
882 |
IRRAD |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
885 |
IRRAD |
pa(i,j,k)=0.5*(pl(i,j,k)+pl(i,j,k+1)) |
|
./pkg/fizhi/fizhi_lwrad.F |
886 |
IRRAD |
dt(i,j,k)=ta(i,j,k)-250.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
909 |
IRRAD |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
913 |
IRRAD |
dp = pl(i,j,k+1)-pl(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
914 |
IRRAD |
dh2o (i,j,k) = 1.02*wa(i,j,k)*dp+1.e-10 |
|
./pkg/fizhi/fizhi_lwrad.F |
915 |
IRRAD |
do3 (i,j,k) = 476.*oa(i,j,k)*dp+1.e-10 |
|
./pkg/fizhi/fizhi_lwrad.F |
916 |
IRRAD |
dco2 (i,j,k) = 789.*co2*dp+1.e-10 |
|
./pkg/fizhi/fizhi_lwrad.F |
917 |
IRRAD |
dch4 (i,j,k) = 789.*ch4(k)*dp+1.e-10 |
|
./pkg/fizhi/fizhi_lwrad.F |
918 |
IRRAD |
dn2o (i,j,k) = 789.*n2o(k)*dp+1.e-10 |
|
./pkg/fizhi/fizhi_lwrad.F |
919 |
IRRAD |
df11 (i,j,k) = 789.*cfc11*dp+1.e-10 |
|
./pkg/fizhi/fizhi_lwrad.F |
920 |
IRRAD |
df12 (i,j,k) = 789.*cfc12*dp+1.e-10 |
|
./pkg/fizhi/fizhi_lwrad.F |
921 |
IRRAD |
df22 (i,j,k) = 789.*cfc22*dp+1.e-10 |
|
./pkg/fizhi/fizhi_lwrad.F |
926 |
IRRAD |
xx=pa(i,j,k)*0.001618*wa(i,j,k)*wa(i,j,k)*dp |
|
./pkg/fizhi/fizhi_lwrad.F |
927 |
IRRAD |
dcont(i,j,k) = xx*exp(1800./ta(i,j,k)-6.081)+1.e-10 |
|
./pkg/fizhi/fizhi_lwrad.F |
946 |
IRRAD |
do k=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
949 |
IRRAD |
dp =pl(i,j,k+1)-pl(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
950 |
IRRAD |
cwp(i,j,k,1)=1.02*10000.0*cwc(i,j,k,1)*dp |
|
./pkg/fizhi/fizhi_lwrad.F |
951 |
IRRAD |
cwp(i,j,k,2)=1.02*10000.0*cwc(i,j,k,2)*dp |
|
./pkg/fizhi/fizhi_lwrad.F |
952 |
IRRAD |
cwp(i,j,k,3)=1.02*10000.0*cwc(i,j,k,3)*dp |
|
./pkg/fizhi/fizhi_lwrad.F |
953 |
IRRAD |
taucl(i,j,k,3)=0.00307*cwp(i,j,k,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
977 |
IRRAD |
do k=1,np+1 |
|
./pkg/fizhi/fizhi_lwrad.F |
980 |
IRRAD |
flx(i,j,k) = 0.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
981 |
IRRAD |
flc(i,j,k) = 0.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
982 |
IRRAD |
dfdts(i,j,k)= 0.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
983 |
IRRAD |
rflx(i,j,k) = 0.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
984 |
IRRAD |
rflc(i,j,k) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
1190 |
RAS |
integer nn,lng,lenc,k,nltop,nlayr |
|
./pkg/fizhi/fizhi_moist.F |
1235 |
RAS |
do L = 1,k |
|
./pkg/fizhi/fizhi_moist.F |
1323 |
RAS |
do L=ib,k |
|
./pkg/fizhi/fizhi_moist.F |
1329 |
RAS |
do L=ib,k |
|
./pkg/fizhi/fizhi_moist.F |
1359 |
RAS |
do L = 1,k |
|
./pkg/fizhi/fizhi_moist.F |
1364 |
RAS |
do L = 1,k |
|
./pkg/fizhi/fizhi_moist.F |
1377 |
RAS |
do L=k-1,1,-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 |
2680 |
CTEI |
_RL k,krd,kmm,f |
|
./pkg/fizhi/fizhi_moist.F |
2691 |
CTEI |
k = 1.0 + cpoel*plke(i,L)*( th(i,L)-th(i,L-1) ) / dq |
|
./pkg/fizhi/fizhi_moist.F |
2702 |
CTEI |
s = ( (k-krd)/(kmm-krd) ) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
163 |
FIZHI_WRITE_VEGTILES |
do k = 1,Nrphys |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
165 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = xlmt(n,k,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
170 |
FIZHI_WRITE_VEGTILES |
irec = 4 + 0*Nrphys + k |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
174 |
FIZHI_WRITE_VEGTILES |
do k = 1,Nrphys |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
176 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = khmt(n,k,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
181 |
FIZHI_WRITE_VEGTILES |
irec = 4 + 1*Nrphys + k |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
185 |
FIZHI_WRITE_VEGTILES |
do k = 1,Nrphys |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
187 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = tke(n,k,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
192 |
FIZHI_WRITE_VEGTILES |
irec = 4 + 2*Nrphys + k |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
320 |
FIZHI_READ_VEGTILES |
integer i,k,n |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
420 |
FIZHI_READ_VEGTILES |
do k = 1,Nrphys |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
421 |
FIZHI_READ_VEGTILES |
irec = 4 + 0*Nrphys + k |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
427 |
FIZHI_READ_VEGTILES |
xlmt(n,k,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
431 |
FIZHI_READ_VEGTILES |
do k = 1,Nrphys |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
432 |
FIZHI_READ_VEGTILES |
irec = 4 + 1*Nrphys + k |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
438 |
FIZHI_READ_VEGTILES |
khmt(n,k,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
442 |
FIZHI_READ_VEGTILES |
do k = 1,Nrphys |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
443 |
FIZHI_READ_VEGTILES |
irec = 4 + 2*Nrphys + k |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
449 |
FIZHI_READ_VEGTILES |
tke(n,k,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
48 |
FIZHI_WRITE_VEGTILES |
integer i,k,n |
|
./pkg/fizhi/fizhi_swrad.F |
1012 |
CLDSCALE |
integer i,j,k,im,it,ia,kk |
|
./pkg/fizhi/fizhi_swrad.F |
1041 |
CLDSCALE |
do k=1,ict-1 |
|
./pkg/fizhi/fizhi_swrad.F |
1044 |
CLDSCALE |
cc(i,j,1)=max(cc(i,j,1),fcld(i,j,k)) |
|
./pkg/fizhi/fizhi_swrad.F |
1049 |
CLDSCALE |
do k=ict,icb-1 |
|
./pkg/fizhi/fizhi_swrad.F |
1052 |
CLDSCALE |
cc(i,j,2)=max(cc(i,j,2),fcld(i,j,k)) |
|
./pkg/fizhi/fizhi_swrad.F |
1057 |
CLDSCALE |
do k=icb,np |
|
./pkg/fizhi/fizhi_swrad.F |
1060 |
CLDSCALE |
cc(i,j,3)=max(cc(i,j,3),fcld(i,j,k)) |
|
./pkg/fizhi/fizhi_swrad.F |
1069 |
CLDSCALE |
do k=1,np |
|
./pkg/fizhi/fizhi_swrad.F |
1071 |
CLDSCALE |
if(k.lt.ict) then |
|
./pkg/fizhi/fizhi_swrad.F |
1073 |
CLDSCALE |
elseif(k.ge.ict .and. k.lt.icb) then |
|
./pkg/fizhi/fizhi_swrad.F |
1082 |
CLDSCALE |
tauclb(i,j,k) = 0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1083 |
CLDSCALE |
tauclf(i,j,k) = 0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1085 |
CLDSCALE |
taux=taucld(i,j,k,1)+taucld(i,j,k,2) |
|
./pkg/fizhi/fizhi_swrad.F |
1086 |
CLDSCALE |
if (taux.gt.0.05 .and. fcld(i,j,k).gt.0.01) then |
|
./pkg/fizhi/fizhi_swrad.F |
1090 |
CLDSCALE |
fa=fcld(i,j,k)/cc(i,j,kk) |
|
./pkg/fizhi/fizhi_swrad.F |
1132 |
CLDSCALE |
tauclb(i,j,k) = taux*xai |
|
./pkg/fizhi/fizhi_swrad.F |
1147 |
CLDSCALE |
tauclf(i,j,k) = taux*xai |
|
./pkg/fizhi/fizhi_swrad.F |
1253 |
SOLIR |
integer ib,ik,i,j,k |
|
./pkg/fizhi/fizhi_swrad.F |
1345 |
SOLIR |
do k= 1, np |
|
./pkg/fizhi/fizhi_swrad.F |
1353 |
SOLIR |
taux=taucld(i,j,k,1)+taucld(i,j,k,2) |
|
./pkg/fizhi/fizhi_swrad.F |
1354 |
SOLIR |
if (taux.gt.0.05 .and. fcld(i,j,k).gt.0.01) then |
|
./pkg/fizhi/fizhi_swrad.F |
1356 |
SOLIR |
reff1=min(reff(i,j,k,1),130. _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1357 |
SOLIR |
reff2=min(reff(i,j,k,2),20.0 _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1360 |
SOLIR |
* aia(ib,3)*reff1)*reff1))*taucld(i,j,k,1) |
|
./pkg/fizhi/fizhi_swrad.F |
1362 |
SOLIR |
* awa(ib,3)*reff2)*reff2))*taucld(i,j,k,2) |
|
./pkg/fizhi/fizhi_swrad.F |
1376 |
SOLIR |
ssacl(i,j,k)=ssaclt(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1381 |
SOLIR |
asycl(i,j,k)=asyclt(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1391 |
SOLIR |
do 300 k= 1, np |
|
./pkg/fizhi/fizhi_swrad.F |
1396 |
SOLIR |
tauwv=xk(ik)*wh(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1401 |
SOLIR |
tausto=tauwv+taual(i,j,k)+1.0e-8 |
|
./pkg/fizhi/fizhi_swrad.F |
1402 |
SOLIR |
ssatau=ssaal(ib)*taual(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1403 |
SOLIR |
asysto=asyal(ib)*ssaal(ib)*taual(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1432 |
SOLIR |
if (tauclb(i,j,k) .lt. 0.01) then |
|
./pkg/fizhi/fizhi_swrad.F |
1442 |
SOLIR |
tauto=tausto+tauclb(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1443 |
SOLIR |
ssato=(ssatau+ssacl(i,j,k)*tauclb(i,j,k))/tauto+1.0e-8 |
|
./pkg/fizhi/fizhi_swrad.F |
1445 |
SOLIR |
asyto=(asysto+asycl(i,j,k)*ssacl(i,j,k)*tauclb(i,j,k))/ |
|
./pkg/fizhi/fizhi_swrad.F |
1451 |
SOLIR |
tauto=tausto+tauclf(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1452 |
SOLIR |
ssato=(ssatau+ssacl(i,j,k)*tauclf(i,j,k))/tauto+1.0e-8 |
|
./pkg/fizhi/fizhi_swrad.F |
1454 |
SOLIR |
asyto=(asysto+asycl(i,j,k)*ssacl(i,j,k)*tauclf(i,j,k))/ |
|
./pkg/fizhi/fizhi_swrad.F |
1469 |
SOLIR |
rr(i,j,k,1)=rr1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1474 |
SOLIR |
tt(i,j,k,1)=tt1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1479 |
SOLIR |
td(i,j,k,1)=td1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1484 |
SOLIR |
rs(i,j,k,1)=rs1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1489 |
SOLIR |
ts(i,j,k,1)=ts1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1495 |
SOLIR |
rr(i,j,k,2)=rr2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1500 |
SOLIR |
tt(i,j,k,2)=tt2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1505 |
SOLIR |
td(i,j,k,2)=td2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1510 |
SOLIR |
rs(i,j,k,2)=rs2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1515 |
SOLIR |
ts(i,j,k,2)=ts2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1523 |
SOLIR |
do k= 1, np+1 |
|
./pkg/fizhi/fizhi_swrad.F |
1526 |
SOLIR |
fclr(i,j,k) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
1527 |
SOLIR |
fall(i,j,k) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
1541 |
SOLIR |
do k= 1, np+1 |
|
./pkg/fizhi/fizhi_swrad.F |
1544 |
SOLIR |
flx(i,j,k) = flx(i,j,k)+fall(i,j,k)*hk(ib,ik) |
|
./pkg/fizhi/fizhi_swrad.F |
1549 |
SOLIR |
flc(i,j,k) = flc(i,j,k)+fclr(i,j,k)*hk(ib,ik) |
|
./pkg/fizhi/fizhi_swrad.F |
1676 |
SOLUV |
integer i,j,k,ib |
|
./pkg/fizhi/fizhi_swrad.F |
1737 |
SOLUV |
do k= 1, np |
|
./pkg/fizhi/fizhi_swrad.F |
1744 |
SOLUV |
taux=taucld(i,j,k,1)+taucld(i,j,k,2) |
|
./pkg/fizhi/fizhi_swrad.F |
1745 |
SOLUV |
if (taux.gt.0.05 .and. fcld(i,j,k).gt.0.01) then |
|
./pkg/fizhi/fizhi_swrad.F |
1747 |
SOLUV |
reff1=min(reff(i,j,k,1),130. _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1748 |
SOLUV |
reff2=min(reff(i,j,k,2),20.0 _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1750 |
SOLUV |
g1=(aig(1)+(aig(2)+aig(3)*reff1)*reff1)*taucld(i,j,k,1) |
|
./pkg/fizhi/fizhi_swrad.F |
1751 |
SOLUV |
g2=(awg(1)+(awg(2)+awg(3)*reff2)*reff2)*taucld(i,j,k,2) |
|
./pkg/fizhi/fizhi_swrad.F |
1761 |
SOLUV |
asycl(i,j,k)=asyclt(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1778 |
SOLUV |
do 300 k= 1, np |
|
./pkg/fizhi/fizhi_swrad.F |
1785 |
SOLUV |
taurs=ry(ib)*dp(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1786 |
SOLUV |
tauoz=xk(ib)*oh(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1791 |
SOLUV |
tausto=taurs+tauoz+taual(i,j,k)+1.0e-8 |
|
./pkg/fizhi/fizhi_swrad.F |
1792 |
SOLUV |
ssatau=ssaal(ib)*taual(i,j,k)+taurs |
|
./pkg/fizhi/fizhi_swrad.F |
1793 |
SOLUV |
asysto=asyal(ib)*ssaal(ib)*taual(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1809 |
SOLUV |
if (tauclb(i,j,k) .lt. 0.01) then |
|
./pkg/fizhi/fizhi_swrad.F |
1819 |
SOLUV |
tauto=tausto+tauclb(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1820 |
SOLUV |
ssato=(ssatau+tauclb(i,j,k))/tauto+1.0e-8 |
|
./pkg/fizhi/fizhi_swrad.F |
1822 |
SOLUV |
asyto=(asysto+asycl(i,j,k)*tauclb(i,j,k))/(ssato*tauto) |
|
./pkg/fizhi/fizhi_swrad.F |
1827 |
SOLUV |
tauto=tausto+tauclf(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1828 |
SOLUV |
ssato=(ssatau+tauclf(i,j,k))/tauto+1.0e-8 |
|
./pkg/fizhi/fizhi_swrad.F |
1830 |
SOLUV |
asyto=(asysto+asycl(i,j,k)*tauclf(i,j,k))/(ssato*tauto) |
|
./pkg/fizhi/fizhi_swrad.F |
1841 |
SOLUV |
rr(i,j,k,1)=rr1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1846 |
SOLUV |
tt(i,j,k,1)=tt1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1851 |
SOLUV |
td(i,j,k,1)=td1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1856 |
SOLUV |
rs(i,j,k,1)=rs1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1861 |
SOLUV |
ts(i,j,k,1)=ts1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1867 |
SOLUV |
rr(i,j,k,2)=rr2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1872 |
SOLUV |
tt(i,j,k,2)=tt2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1877 |
SOLUV |
td(i,j,k,2)=td2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1882 |
SOLUV |
rs(i,j,k,2)=rs2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1887 |
SOLUV |
ts(i,j,k,2)=ts2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1895 |
SOLUV |
do k= 1, np+1 |
|
./pkg/fizhi/fizhi_swrad.F |
1898 |
SOLUV |
fclr(i,j,k) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
1899 |
SOLUV |
fall(i,j,k) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
1912 |
SOLUV |
do k= 1, np+1 |
|
./pkg/fizhi/fizhi_swrad.F |
1915 |
SOLUV |
flx(i,j,k)=flx(i,j,k)+fall(i,j,k)*hk(ib) |
|
./pkg/fizhi/fizhi_swrad.F |
1920 |
SOLUV |
flc(i,j,k)=flc(i,j,k)+fclr(i,j,k)*hk(ib) |
|
./pkg/fizhi/fizhi_swrad.F |
2204 |
CLDFLX |
integer i,j,k,ih,im,is |
|
./pkg/fizhi/fizhi_swrad.F |
2218 |
CLDFLX |
do k=1,np+1 |
|
./pkg/fizhi/fizhi_swrad.F |
2221 |
CLDFLX |
fall(i,j,k)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
2258 |
CLDFLX |
do k= 2, ict-1 |
|
./pkg/fizhi/fizhi_swrad.F |
2261 |
CLDFLX |
denm = ts(i,j,k,ih)/( 1.-rsa(i,j,k-1,ih,1)*rs(i,j,k,ih)) |
|
./pkg/fizhi/fizhi_swrad.F |
2262 |
CLDFLX |
tda(i,j,k,ih,1)= tda(i,j,k-1,ih,1)*td(i,j,k,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2263 |
CLDFLX |
tta(i,j,k,ih,1)= tda(i,j,k-1,ih,1)*tt(i,j,k,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2264 |
CLDFLX |
* +(tda(i,j,k-1,ih,1)*rr(i,j,k,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2265 |
CLDFLX |
* *rsa(i,j,k-1,ih,1)+tta(i,j,k-1,ih,1))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2266 |
CLDFLX |
rsa(i,j,k,ih,1)= rs(i,j,k,ih)+ts(i,j,k,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2267 |
CLDFLX |
* *rsa(i,j,k-1,ih,1)*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2268 |
CLDFLX |
tda(i,j,k,ih,2)= tda(i,j,k,ih,1) |
|
./pkg/fizhi/fizhi_swrad.F |
2269 |
CLDFLX |
tta(i,j,k,ih,2)= tta(i,j,k,ih,1) |
|
./pkg/fizhi/fizhi_swrad.F |
2270 |
CLDFLX |
rsa(i,j,k,ih,2)= rsa(i,j,k,ih,1) |
|
./pkg/fizhi/fizhi_swrad.F |
2279 |
CLDFLX |
do k= ict, icb-1 |
|
./pkg/fizhi/fizhi_swrad.F |
2282 |
CLDFLX |
denm = ts(i,j,k,im)/( 1.-rsa(i,j,k-1,ih,im)*rs(i,j,k,im)) |
|
./pkg/fizhi/fizhi_swrad.F |
2283 |
CLDFLX |
tda(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*td(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2284 |
CLDFLX |
tta(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*tt(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2285 |
CLDFLX |
* +(tda(i,j,k-1,ih,im)*rr(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2286 |
CLDFLX |
* *rsa(i,j,k-1,ih,im)+tta(i,j,k-1,ih,im))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2287 |
CLDFLX |
rsa(i,j,k,ih,im)= rs(i,j,k,im)+ts(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2288 |
CLDFLX |
* *rsa(i,j,k-1,ih,im)*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2314 |
CLDFLX |
do k=np,icb,-1 |
|
./pkg/fizhi/fizhi_swrad.F |
2317 |
CLDFLX |
denm=ts(i,j,k,is)/( 1.-rs(i,j,k,is)*rxa(i,j,k+1,1,is) ) |
|
./pkg/fizhi/fizhi_swrad.F |
2318 |
CLDFLX |
rra(i,j,k,1,is)=rr(i,j,k,is)+(td(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2319 |
CLDFLX |
* *rra(i,j,k+1,1,is)+tt(i,j,k,is)*rxa(i,j,k+1,1,is))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2320 |
CLDFLX |
rxa(i,j,k,1,is)= rs(i,j,k,is)+ts(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2321 |
CLDFLX |
* *rxa(i,j,k+1,1,is)*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2322 |
CLDFLX |
rra(i,j,k,2,is)=rra(i,j,k,1,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2323 |
CLDFLX |
rxa(i,j,k,2,is)=rxa(i,j,k,1,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2332 |
CLDFLX |
do k= icb-1,ict,-1 |
|
./pkg/fizhi/fizhi_swrad.F |
2335 |
CLDFLX |
denm=ts(i,j,k,im)/( 1.-rs(i,j,k,im)*rxa(i,j,k+1,im,is) ) |
|
./pkg/fizhi/fizhi_swrad.F |
2336 |
CLDFLX |
rra(i,j,k,im,is)= rr(i,j,k,im)+(td(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2337 |
CLDFLX |
* *rra(i,j,k+1,im,is)+tt(i,j,k,im)*rxa(i,j,k+1,im,is))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2338 |
CLDFLX |
rxa(i,j,k,im,is)= rs(i,j,k,im)+ts(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2339 |
CLDFLX |
* *rxa(i,j,k+1,im,is)*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2422 |
CLDFLX |
do k= icb, np |
|
./pkg/fizhi/fizhi_swrad.F |
2425 |
CLDFLX |
denm = ts(i,j,k,is)/( 1.-rsa(i,j,k-1,ih,im)*rs(i,j,k,is) ) |
|
./pkg/fizhi/fizhi_swrad.F |
2426 |
CLDFLX |
tda(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*td(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2427 |
CLDFLX |
tta(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*tt(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2428 |
CLDFLX |
* +(tda(i,j,k-1,ih,im)*rr(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2429 |
CLDFLX |
* *rsa(i,j,k-1,ih,im)+tta(i,j,k-1,ih,im))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2430 |
CLDFLX |
rsa(i,j,k,ih,im)= rs(i,j,k,is)+ts(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2431 |
CLDFLX |
* *rsa(i,j,k-1,ih,im)*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2438 |
CLDFLX |
do k= ict-1,1,-1 |
|
./pkg/fizhi/fizhi_swrad.F |
2441 |
CLDFLX |
denm =ts(i,j,k,ih)/(1.-rs(i,j,k,ih)*rxa(i,j,k+1,im,is)) |
|
./pkg/fizhi/fizhi_swrad.F |
2442 |
CLDFLX |
rra(i,j,k,im,is)= rr(i,j,k,ih)+(td(i,j,k,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2443 |
CLDFLX |
* *rra(i,j,k+1,im,is)+tt(i,j,k,ih)*rxa(i,j,k+1,im,is))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2444 |
CLDFLX |
rxa(i,j,k,im,is)= rs(i,j,k,ih)+ts(i,j,k,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2445 |
CLDFLX |
* *rxa(i,j,k+1,im,is)*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2456 |
CLDFLX |
do k=2,np+1 |
|
./pkg/fizhi/fizhi_swrad.F |
2459 |
CLDFLX |
denm= 1./(1.- rxa(i,j,k,im,is)*rsa(i,j,k-1,ih,im)) |
|
./pkg/fizhi/fizhi_swrad.F |
2460 |
CLDFLX |
fdndir(i,j)= tda(i,j,k-1,ih,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2461 |
CLDFLX |
xx = tda(i,j,k-1,ih,im)*rra(i,j,k,im,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2462 |
CLDFLX |
fdndif(i,j)= (xx*rsa(i,j,k-1,ih,im)+tta(i,j,k-1,ih,im))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2463 |
CLDFLX |
fupdif= (xx+tta(i,j,k-1,ih,im)*rxa(i,j,k,im,is))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2464 |
CLDFLX |
flxdn(i,j,k)=fdndir(i,j)+fdndif(i,j)-fupdif |
|
./pkg/fizhi/fizhi_swrad.F |
2477 |
CLDFLX |
do k=1,np+1 |
|
./pkg/fizhi/fizhi_swrad.F |
2481 |
CLDFLX |
fclr(i,j,k)=flxdn(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
2483 |
CLDFLX |
fall(i,j,k)=fall(i,j,k)+flxdn(i,j,k)*ct(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
2522 |
FLXCO2 |
integer i,j,k,ic,iw |
|
./pkg/fizhi/fizhi_swrad.F |
2536 |
FLXCO2 |
do k= 2, np+1 |
|
./pkg/fizhi/fizhi_swrad.F |
2540 |
FLXCO2 |
clog1=log10(swc(i,j,k)*csm(i,j)) |
|
./pkg/fizhi/fizhi_swrad.F |
2541 |
FLXCO2 |
wlog=log10(swh(i,j,k)*csm(i,j)) |
|
./pkg/fizhi/fizhi_swrad.F |
2554 |
FLXCO2 |
df(i,j,k)=df(i,j,k)+0.0343*(x1-y2) |
|
./pkg/fizhi/fizhi_swrad.F |
787 |
SORAD |
integer i,j,k |
|
./pkg/fizhi/fizhi_swrad.F |
810 |
SORAD |
do k= 1, np |
|
./pkg/fizhi/fizhi_swrad.F |
818 |
SORAD |
dp(i,j,k)=pl(i,j,k+1)-pl(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
819 |
SORAD |
scal(i,j,k)=dp(i,j,k)*(.5*(pl(i,j,k)+pl(i,j,k+1))/300.)**.8 |
|
./pkg/fizhi/fizhi_swrad.F |
823 |
SORAD |
wh(i,j,k)=1.02*wa(i,j,k)*scal(i,j,k)* |
|
./pkg/fizhi/fizhi_swrad.F |
824 |
SORAD |
* (1.+0.00135*(ta(i,j,k)-240.)) |
|
./pkg/fizhi/fizhi_swrad.F |
825 |
SORAD |
swh(i,j,k+1)=swh(i,j,k)+wh(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
829 |
SORAD |
oh(i,j,k)=1.02*oa(i,j,k)*dp(i,j,k)*466.7 |
|
./pkg/fizhi/fizhi_swrad.F |
847 |
SORAD |
do k=1, np+1 |
|
./pkg/fizhi/fizhi_swrad.F |
850 |
SORAD |
flx(i,j,k)=0. |
|
./pkg/fizhi/fizhi_swrad.F |
851 |
SORAD |
flc(i,j,k)=0. |
|
./pkg/fizhi/fizhi_swrad.F |
852 |
SORAD |
df(i,j,k)=0. |
|
./pkg/fizhi/fizhi_swrad.F |
870 |
SORAD |
do k= 1, np |
|
./pkg/fizhi/fizhi_swrad.F |
873 |
SORAD |
so2(i,j,k+1)=so2(i,j,k)+165.22*scal(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
882 |
SORAD |
do k= 2, np+1 |
|
./pkg/fizhi/fizhi_swrad.F |
885 |
SORAD |
x=so2(i,j,k)*csm(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
886 |
SORAD |
df(i,j,k)=df(i,j,k)+0.0287*(1.-expmn(-0.00027*sqrt(x))) |
|
./pkg/fizhi/fizhi_swrad.F |
893 |
SORAD |
do k= 1, np |
|
./pkg/fizhi/fizhi_swrad.F |
896 |
SORAD |
so2(i,j,k+1)=so2(i,j,k)+co2*789.*scal(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
908 |
SORAD |
do k= 2, np+1 |
|
./pkg/fizhi/fizhi_swrad.F |
911 |
SORAD |
flc(i,j,k)=flc(i,j,k)-df(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
927 |
SORAD |
do k=1,np |
|
./pkg/fizhi/fizhi_swrad.F |
934 |
SORAD |
if(fcld(i,j,k).gt.0.01) then |
|
./pkg/fizhi/fizhi_swrad.F |
935 |
SORAD |
sdf(i,j)=sdf(i,j)+df(i,j,k)*sclr(i,j)*fcld(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
936 |
SORAD |
sclr(i,j)=sclr(i,j)*(1.-fcld(i,j,k)) |
|
./pkg/fizhi/fizhi_swrad.F |
938 |
SORAD |
flx(i,j,k+1)=flx(i,j,k+1)-sdf(i,j)-df(i,j,k+1)*sclr(i,j) |
|
./pkg/fizhi/fizhi_turb.F |
4580 |
VTRI0 |
integer k,irun |
|
./pkg/fizhi/fizhi_turb.F |
4611 |
VTRI1 |
integer k,irun |
|
./pkg/fizhi/fizhi_turb.F |
4628 |
VTRI2 |
integer k,irun |
|
./pkg/fizhi/fizhi_turb.F |
5001 |
ZCSUB |
integer i,k |
|
./pkg/fizhi/fizhi_utils.F |
391 |
STRIPIT |
subroutine STRIPIT(a,b,irun,ia,ib,l,k) |
|
./pkg/fizhi/fizhi_utils.F |
393 |
STRIPIT |
integer ia,ib,irun,l,k |
|
./pkg/fizhi/fizhi_utils.F |
397 |
STRIPIT |
offset = ib*(k-1) |
|
./pkg/fizhi/fizhi_utils.F |
419 |
STRIPITINT |
subroutine STRIPITINT(a,b,irun,ia,ib,l,k) |
|
./pkg/fizhi/fizhi_utils.F |
421 |
STRIPITINT |
integer ia,ib,irun,l,k,a(ia,l),b(ib,l) |
|
./pkg/fizhi/fizhi_utils.F |
424 |
STRIPITINT |
offset = ib*(k-1) |
|
./pkg/fizhi/fizhi_utils.F |
446 |
PASTIT |
subroutine PASTIT(b,a,ib,ia,irun,L,k) |
|
./pkg/fizhi/fizhi_utils.F |
448 |
PASTIT |
integer ib,ia,L,k,irun,Lena,offset |
|
./pkg/fizhi/fizhi_utils.F |
452 |
PASTIT |
offset = ib*(k-1) |
|
./pkg/fizhi/fizhi_utils.F |
463 |
PSTBITINT |
subroutine PSTBITINT(b,a,ib,ia,irun,l,k) |
|
./pkg/fizhi/fizhi_utils.F |
465 |
PSTBITINT |
integer ib,ia,L,k,irun,Lena,offset |
|
./pkg/fizhi/fizhi_utils.F |
470 |
PSTBITINT |
offset = ib*(k-1) |
|
./pkg/fizhi/fizhi_utils.F |
482 |
PSTBMPIT |
subroutine PSTBMPIT(b,a,ib,ia,irun,l,k) |
|
./pkg/fizhi/fizhi_utils.F |
484 |
PSTBMPIT |
integer ib,ia,L,k,irun,Lena,offset |
|
./pkg/fizhi/fizhi_utils.F |
488 |
PSTBMPIT |
offset = ib*(k-1) |
|
./pkg/fizhi/fizhi_utils.F |
522 |
STRIP2TILE |
integer i,k,Lena,offset |
|
./pkg/fizhi/fizhi_utils.F |
529 |
STRIP2TILE |
do 100 k=1,levs |
|
./pkg/fizhi/fizhi_utils.F |
531 |
STRIP2TILE |
b(i,k) = a(indx(i+offset-1),k) |
|
./pkg/fizhi/fizhi_utils.F |
534 |
STRIP2TILE |
do 200 k=1,levs |
|
./pkg/fizhi/fizhi_utils.F |
536 |
STRIP2TILE |
b(i,k) = a(indx(i+offset-1),k) |
|
./pkg/fizhi/fizhi_utils.F |
539 |
STRIP2TILE |
b(Lena+i,k) = a(indx(Lena+offset-1),k) |
|
./pkg/fizhi/fizhi_write_pickup.F |
49 |
FIZHI_WRITE_PICKUP |
integer i,j,k,bi,bj |
|
./pkg/fizhi/fizhi_write_pickup.F |
54 |
FIZHI_WRITE_PICKUP |
do k = 1,Nrphys |
|
./pkg/fizhi/fizhi_write_pickup.F |
57 |
FIZHI_WRITE_PICKUP |
temp(i,j,k,bi,bj) = 0. |
|
./pkg/fizhi/update_chemistry_exports.F |
177 |
INTERP_QZ |
integer i,k,L1,L2,LM,LP |
|
./pkg/fizhi/update_chemistry_exports.F |
190 |
INTERP_QZ |
DO 32 k = 1, nwatlevs |
|
./pkg/fizhi/update_chemistry_exports.F |
212 |
INTERP_QZ |
QPR1(i) = stratq(jlatm,k) |
|
./pkg/fizhi/update_chemistry_exports.F |
213 |
INTERP_QZ |
QPR2(i) = stratq(jlatp,k) |
|
./pkg/fizhi/update_chemistry_exports.F |
217 |
INTERP_QZ |
h2o_time_lat(i,k) = qpr1(i) + slope(i)*(qpr2(i)-qpr1(i)) |
|
./pkg/fizhi/update_chemistry_exports.F |
262 |
INTERP_QZ |
do k= 1, nlevs |
|
./pkg/fizhi/update_chemistry_exports.F |
264 |
INTERP_QZ |
if( pres(i,k).ge.pqu .and. pres(i,k).le. pql) then |
|
./pkg/fizhi/update_chemistry_exports.F |
265 |
INTERP_QZ |
qz_out(i,k) = qz_clim(i,k)+(qz_in(i,k)- |
|
./pkg/fizhi/update_chemistry_exports.F |
266 |
INTERP_QZ |
1 qz_clim(i,k))*(pres(i,k)-pqu)/dpq |
|
./pkg/fizhi/update_chemistry_exports.F |
267 |
INTERP_QZ |
else if( pres(i,k) .gt. pql ) then |
|
./pkg/fizhi/update_chemistry_exports.F |
268 |
INTERP_QZ |
qz_out(i,k) = qz_in (i,k) |
|
./pkg/fizhi/update_chemistry_exports.F |
270 |
INTERP_QZ |
qz_out(i,k) = qz_clim(i,k) |
|
./pkg/fizhi/update_chemistry_exports.F |
311 |
INTERP_OZ |
integer i,k,L1,L2,LM,LP |
|
./pkg/fizhi/update_chemistry_exports.F |
343 |
INTERP_OZ |
QPR1(I) = ozone(jlatm,k) |
|
./pkg/fizhi/update_chemistry_exports.F |
344 |
INTERP_OZ |
QPR2(I) = ozone(jlatp,k) |
|
./pkg/fizhi/update_chemistry_exports.F |
348 |
INTERP_OZ |
o3int1(i,k) = qpr1(i) + slope(i)*( qpr2(i)-qpr1(i) ) |
|
./pkg/fizhi/update_earth_exports.F |
1008 |
GETEMISS |
do k = 1,10 |
|
./pkg/fizhi/update_earth_exports.F |
1014 |
GETEMISS |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),emisstile(1,k),nchp, |
|
./pkg/fizhi/update_earth_exports.F |
1018 |
GETEMISS |
emiss(i,j,k,bi,bj) = tmpij(i,j) |
|
./pkg/fizhi/update_earth_exports.F |
1219 |
GET_LANDFRAC |
integer i,j,k |
|
./pkg/fizhi/update_earth_exports.F |
1227 |
GET_LANDFRAC |
do k=1,maxtyp |
|
./pkg/fizhi/update_earth_exports.F |
1230 |
GET_LANDFRAC |
if( (surftype(i,j,k,bi,bj).lt.100.).and. |
|
./pkg/fizhi/update_earth_exports.F |
1231 |
GET_LANDFRAC |
& (tilefrac(i,j,k,bi,bj).gt.0.0))then |
|
./pkg/fizhi/update_earth_exports.F |
1232 |
GET_LANDFRAC |
frac(i,j) = frac(i,j) + tilefrac(i,j,k,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
993 |
GETEMISS |
integer i,j,k,n |
|
./pkg/flt/flt_mapping.F |
189 |
FLT_MAP_IJLOCAL2XY |
INTEGER k |
|
./pkg/flt/flt_mapping.F |
194 |
FLT_MAP_IJLOCAL2XY |
DO k=1,Nr |
|
./pkg/flt/flt_mapping.F |
197 |
FLT_MAP_IJLOCAL2XY |
IF ( rF(k) .GE. rr .AND. rr.GT.rF(k+1) ) THEN |
|
./pkg/flt/flt_mapping.F |
198 |
FLT_MAP_IJLOCAL2XY |
fm = ( rr - rF(k) ) * recip_drF(k)*rkSign |
|
./pkg/flt/flt_mapping.F |
199 |
FLT_MAP_IJLOCAL2XY |
FLT_MAP_R2K = DFLOAT(k)+fm-0.5 _d 0 |
|
./pkg/flt/flt_mapping.F |
236 |
FLT_MAP_IJLOCAL2XY |
INTEGER k |
|
./pkg/flt/flt_mapping.F |
240 |
FLT_MAP_IJLOCAL2XY |
k = NINT(kr) |
|
./pkg/flt/flt_mapping.F |
241 |
FLT_MAP_IJLOCAL2XY |
IF ( k.LT.1 ) THEN |
|
./pkg/flt/flt_mapping.F |
243 |
FLT_MAP_IJLOCAL2XY |
ELSEIF ( k.GT.Nr ) THEN |
|
./pkg/flt/flt_mapping.F |
246 |
FLT_MAP_IJLOCAL2XY |
ddz = 0.5 _d 0 + kr - DFLOAT(k) |
|
./pkg/flt/flt_mapping.F |
247 |
FLT_MAP_IJLOCAL2XY |
FLT_MAP_K2R = rF(k) + ddz*drF(k)*rkSign |
|
./pkg/flt/flt_up.F |
142 |
FLT_UP |
DO k=1,Nr |
|
./pkg/flt/flt_up.F |
143 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,uu,uVel, k,1,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
144 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,vv,vVel, k,2,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
145 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,tt,theta, k,0,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
146 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,ss,salt, k,0,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
147 |
FLT_UP |
tmp(9+k) = uu |
|
./pkg/flt/flt_up.F |
148 |
FLT_UP |
tmp(9+1*Nr+k) = vv |
|
./pkg/flt/flt_up.F |
149 |
FLT_UP |
tmp(9+2*Nr+k) = tt |
|
./pkg/flt/flt_up.F |
150 |
FLT_UP |
tmp(9+3*Nr+k) = ss |
|
./pkg/flt/flt_up.F |
41 |
FLT_UP |
INTEGER ip, k, ii |
|
./pkg/gchem/gchem_add_tendency.F |
10 |
GCHEM_ADD_TENDENCY |
SUBROUTINE GCHEM_ADD_TENDENCY(bi,bj,iMin,iMax,jMin,jMax,k, |
|
./pkg/gchem/gchem_add_tendency.F |
43 |
GCHEM_ADD_TENDENCY |
INTEGER bi,bj,imin,imax,jmin,jmax,k |
|
./pkg/gchem/gchem_calc_tendency.F |
52 |
GCHEM_CALC_TENDENCY |
INTEGER bi,bj,imin,imax,jmin,jmax,k |
|
./pkg/generic_advdiff/gad_advection.F |
124 |
GAD_ADVECTION |
INTEGER i,j,k,kUp,kDown |
|
./pkg/generic_advdiff/gad_advection.F |
250 |
GAD_ADVECTION |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_advection.F |
252 |
GAD_ADVECTION |
kkey = (igadkey-1)*Nr + k |
|
./pkg/generic_advdiff/gad_advection.F |
261 |
GAD_ADVECTION |
I k,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
268 |
GAD_ADVECTION |
I k, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
274 |
GAD_ADVECTION |
localTij(i,j)=tracer(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
275 |
GAD_ADVECTION |
maskLocW(i,j)=_maskW(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
276 |
GAD_ADVECTION |
maskLocS(i,j)=_maskS(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
293 |
GAD_ADVECTION |
& + (k-1) *maxpass |
|
./pkg/generic_advdiff/gad_advection.F |
365 |
GAD_ADVECTION |
CALL GAD_DST2U1_ADV_X( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/generic_advdiff/gad_advection.F |
366 |
GAD_ADVECTION |
I deltaTLev(k),uTrans,uFld,localTij, |
|
./pkg/generic_advdiff/gad_advection.F |
369 |
GAD_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
373 |
GAD_ADVECTION |
CALL GAD_DST3_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
377 |
GAD_ADVECTION |
CALL GAD_DST3FL_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
382 |
GAD_ADVECTION |
CALL GAD_OS7MP_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
415 |
GAD_ADVECTION |
& -deltaTLev(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_advection.F |
416 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
417 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
419 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(uTrans(i+1,j)-uTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
428 |
GAD_ADVECTION |
& -deltaTLev(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_advection.F |
429 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
430 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
432 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(uTrans(i+1,j)-uTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
447 |
GAD_ADVECTION |
& -deltaTLev(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_advection.F |
448 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
449 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
451 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(uTrans(i+1,j)-uTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
467 |
GAD_ADVECTION |
CALL OBCS_APPLY_TLOC( bi, bj, k, localTij, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
469 |
GAD_ADVECTION |
CALL OBCS_APPLY_SLOC( bi, bj, k, localTij, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
472 |
GAD_ADVECTION |
CALL OBCS_APPLY_PTRACER( bi, bj, k, |
|
./pkg/generic_advdiff/gad_advection.F |
534 |
GAD_ADVECTION |
CALL GAD_DST2U1_ADV_Y( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/generic_advdiff/gad_advection.F |
535 |
GAD_ADVECTION |
I deltaTLev(k),vTrans,vFld,localTij, |
|
./pkg/generic_advdiff/gad_advection.F |
538 |
GAD_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
542 |
GAD_ADVECTION |
CALL GAD_DST3_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
546 |
GAD_ADVECTION |
CALL GAD_DST3FL_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
551 |
GAD_ADVECTION |
CALL GAD_OS7MP_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
584 |
GAD_ADVECTION |
& -deltaTLev(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_advection.F |
585 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
586 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
588 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(vTrans(i,j+1)-vTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
597 |
GAD_ADVECTION |
& -deltaTLev(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_advection.F |
598 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
599 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
601 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(vTrans(i,j+1)-vTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
616 |
GAD_ADVECTION |
& -deltaTLev(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_advection.F |
617 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
618 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
620 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(vTrans(i,j+1)-vTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
636 |
GAD_ADVECTION |
CALL OBCS_APPLY_TLOC( bi, bj, k, localTij, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
638 |
GAD_ADVECTION |
CALL OBCS_APPLY_SLOC( bi, bj, k, localTij, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
641 |
GAD_ADVECTION |
CALL OBCS_APPLY_PTRACER( bi, bj, k, |
|
./pkg/generic_advdiff/gad_advection.F |
662 |
GAD_ADVECTION |
gTracer(i,j,k,bi,bj)= |
|
./pkg/generic_advdiff/gad_advection.F |
663 |
GAD_ADVECTION |
& (localTij(i,j)-tracer(i,j,k,bi,bj))/deltaTLev(k) |
|
./pkg/generic_advdiff/gad_advection.F |
670 |
GAD_ADVECTION |
localTijk(i,j,k)=localTij(i,j) |
|
./pkg/generic_advdiff/gad_advection.F |
678 |
GAD_ADVECTION |
CALL DIAGNOSTICS_FILL(afx,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/generic_advdiff/gad_advection.F |
682 |
GAD_ADVECTION |
CALL DIAGNOSTICS_FILL(afy,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/generic_advdiff/gad_advection.F |
689 |
GAD_ADVECTION |
& .AND. k.LE.3 .AND. myIter.EQ.1+nIter0 |
|
./pkg/generic_advdiff/gad_advection.F |
693 |
GAD_ADVECTION |
& afx,afy, k, standardMessageUnit,bi,bj,myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
704 |
GAD_ADVECTION |
DO k=Nr,1,-1 |
|
./pkg/generic_advdiff/gad_advection.F |
706 |
GAD_ADVECTION |
kkey = (igadkey-1)*Nr + (Nr-k+1) |
|
./pkg/generic_advdiff/gad_advection.F |
710 |
GAD_ADVECTION |
kUp = 1+MOD(k+1,2) |
|
./pkg/generic_advdiff/gad_advection.F |
711 |
GAD_ADVECTION |
kDown= 1+MOD(k,2) |
|
./pkg/generic_advdiff/gad_advection.F |
714 |
GAD_ADVECTION |
if (k.EQ.Nr) kp1Msk=0. |
|
./pkg/generic_advdiff/gad_advection.F |
726 |
GAD_ADVECTION |
IF ( k.EQ.1 .OR. |
|
./pkg/generic_advdiff/gad_advection.F |
727 |
GAD_ADVECTION |
& (useAIM .AND. tracerIdentity.EQ.GAD_SALINITY .AND. k.EQ.Nr) |
|
./pkg/generic_advdiff/gad_advection.F |
730 |
GAD_ADVECTION |
IF ( k.EQ.1 ) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
759 |
GAD_ADVECTION |
wFld(i,j) = wVel(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
760 |
GAD_ADVECTION |
rTrans(i,j) = wVel(i,j,k,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
761 |
GAD_ADVECTION |
& *deepFac2F(k)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
762 |
GAD_ADVECTION |
& *maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
772 |
GAD_ADVECTION |
I k, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
785 |
GAD_ADVECTION |
CALL GAD_DST2U1_ADV_R( bi,bj,k, advectionScheme, |
|
./pkg/generic_advdiff/gad_advection.F |
786 |
GAD_ADVECTION |
I deltaTLev(k),rTrans,wFld,localTijk, |
|
./pkg/generic_advdiff/gad_advection.F |
789 |
GAD_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
793 |
GAD_ADVECTION |
CALL GAD_DST3_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
797 |
GAD_ADVECTION |
CALL GAD_DST3FL_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
802 |
GAD_ADVECTION |
CALL GAD_OS7MP_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
829 |
GAD_ADVECTION |
localTij(i,j) = localTijk(i,j,k) |
|
./pkg/generic_advdiff/gad_advection.F |
830 |
GAD_ADVECTION |
& -deltaTLev(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_advection.F |
831 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
832 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
834 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(rTransKp1(i,j)-rTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
836 |
GAD_ADVECTION |
gTracer(i,j,k,bi,bj)= |
|
./pkg/generic_advdiff/gad_advection.F |
837 |
GAD_ADVECTION |
& (localTij(i,j)-tracer(i,j,k,bi,bj))/deltaTLev(k) |
|
./pkg/generic_advdiff/gad_advection.F |
845 |
GAD_ADVECTION |
& diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/generic_advdiff/gad_biharm_x.F |
11 |
GAD_BIHARM_X |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_biharm_x.F |
35 |
GAD_BIHARM_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_biharm_x.F |
56 |
GAD_BIHARM_X |
& *_recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/generic_advdiff/gad_biharm_y.F |
11 |
GAD_BIHARM_Y |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_biharm_y.F |
35 |
GAD_BIHARM_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_biharm_y.F |
58 |
GAD_BIHARM_Y |
& *_recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/generic_advdiff/gad_c2_adv_r.F |
11 |
GAD_C2_ADV_R |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_c2_adv_r.F |
37 |
GAD_C2_ADV_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_c2_adv_r.F |
52 |
GAD_C2_ADV_R |
km1=max(1,k-1) |
|
./pkg/generic_advdiff/gad_c2_adv_r.F |
54 |
GAD_C2_ADV_R |
IF ( k.EQ.1 .OR. k.GT.Nr) THEN |
|
./pkg/generic_advdiff/gad_c2_adv_r.F |
65 |
GAD_C2_ADV_R |
& (Tracer(i,j,k,bi,bj)+Tracer(i,j,kM1,bi,bj))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_c2_adv_x.F |
11 |
GAD_C2_ADV_X |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_c2_adv_x.F |
35 |
GAD_C2_ADV_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_c2_adv_y.F |
11 |
GAD_C2_ADV_Y |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_c2_adv_y.F |
35 |
GAD_C2_ADV_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
10 |
GAD_C2_IMPL_R |
I bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
41 |
GAD_C2_IMPL_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
58 |
GAD_C2_IMPL_R |
IF ( k.GT.1 .AND. k.LE.Nr ) THEN |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
64 |
GAD_C2_IMPL_R |
a3d(i,j,k) = a3d(i,j,k) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
65 |
GAD_C2_IMPL_R |
& - rCenter*deltaTarg(k) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
66 |
GAD_C2_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
67 |
GAD_C2_IMPL_R |
b3d(i,j,k) = b3d(i,j,k) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
68 |
GAD_C2_IMPL_R |
& - rCenter*deltaTarg(k) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
69 |
GAD_C2_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
70 |
GAD_C2_IMPL_R |
b3d(i,j,k-1) = b3d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
71 |
GAD_C2_IMPL_R |
& + rCenter*deltaTarg(k-1) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
72 |
GAD_C2_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
73 |
GAD_C2_IMPL_R |
c3d(i,j,k-1) = c3d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
74 |
GAD_C2_IMPL_R |
& + rCenter*deltaTarg(k-1) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
75 |
GAD_C2_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
11 |
GAD_C4_ADV_R |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
39 |
GAD_C4_ADV_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
61 |
GAD_C4_ADV_R |
km2=MAX(1,k-2) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
62 |
GAD_C4_ADV_R |
km1=MAX(1,k-1) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
63 |
GAD_C4_ADV_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
65 |
GAD_C4_ADV_R |
IF (k.LE.2 .OR. k.GE.Nr) maskPM = 0. |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
67 |
GAD_C4_ADV_R |
IF ( k.EQ.1 .OR. k.GT.Nr) THEN |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
77 |
GAD_C4_ADV_R |
Rjp=(tracer(i,j,kp1,bi,bj)-tracer(i,j,k,bi,bj)) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
79 |
GAD_C4_ADV_R |
Rj =(tracer(i,j,k,bi,bj)-tracer(i,j,km1,bi,bj)) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
86 |
GAD_C4_ADV_R |
& (Tracer(i,j,k,bi,bj)+Tracer(i,j,km1,bi,bj))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
11 |
GAD_C4_ADV_X |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
39 |
GAD_C4_ADV_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
64 |
GAD_C4_ADV_X |
& *maskW(i+1,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
66 |
GAD_C4_ADV_X |
& *maskW(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
68 |
GAD_C4_ADV_X |
& *maskW(i-1,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
76 |
GAD_C4_ADV_X |
& *( 1. _d 0 - maskW(i-1,j,k,bi,bj)*maskW(i+1,j,k,bi,bj) ) |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
11 |
GAD_C4_ADV_Y |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
39 |
GAD_C4_ADV_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
64 |
GAD_C4_ADV_Y |
& *maskS(i,j+1,k,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
66 |
GAD_C4_ADV_Y |
& *maskS(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
68 |
GAD_C4_ADV_Y |
& *maskS(i,j-1,k,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
76 |
GAD_C4_ADV_Y |
& *( 1. _d 0 - maskS(i,j-1,k,bi,bj)*maskS(i,j+1,k,bi,bj) ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
11 |
GAD_CALC_RHS |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
178 |
GAD_CALC_RHS |
localT(i,j)=TracerN(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
179 |
GAD_CALC_RHS |
locABT(i,j)= TracAB(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
185 |
GAD_CALC_RHS |
localT(i,j)= TracAB(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
186 |
GAD_CALC_RHS |
locABT(i,j)= TracAB(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
204 |
GAD_CALC_RHS |
CALL GAD_GRAD_X(bi,bj,k,xA,localT,fZon,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
205 |
GAD_CALC_RHS |
CALL GAD_GRAD_Y(bi,bj,k,yA,localT,fMer,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
206 |
GAD_CALC_RHS |
CALL GAD_DEL2(bi,bj,k,fZon,fMer,df4,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
219 |
GAD_CALC_RHS |
CALL GAD_C2_ADV_X(bi,bj,k,uTrans,locABT,af,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
222 |
GAD_CALC_RHS |
CALL GAD_DST2U1_ADV_X( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
223 |
GAD_CALC_RHS |
I deltaTLev(k), uTrans, uFld, locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
226 |
GAD_CALC_RHS |
CALL GAD_FLUXLIMIT_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
227 |
GAD_CALC_RHS |
I uTrans, uFld, maskW(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
230 |
GAD_CALC_RHS |
CALL GAD_U3_ADV_X(bi,bj,k,uTrans,locABT,af,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
232 |
GAD_CALC_RHS |
CALL GAD_C4_ADV_X(bi,bj,k,uTrans,locABT,af,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
234 |
GAD_CALC_RHS |
CALL GAD_DST3_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
235 |
GAD_CALC_RHS |
I uTrans, uFld, maskW(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
242 |
GAD_CALC_RHS |
CALL GAD_DST3_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
243 |
GAD_CALC_RHS |
I uTrans, uFld, maskW(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
246 |
GAD_CALC_RHS |
CALL GAD_DST3FL_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
247 |
GAD_CALC_RHS |
I uTrans, uFld, maskW(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
252 |
GAD_CALC_RHS |
CALL GAD_OS7MP_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
253 |
GAD_CALC_RHS |
I uTrans, uFld, maskW(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
267 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL(af,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
274 |
GAD_CALC_RHS |
CALL GAD_DIFF_X(bi,bj,k,xA,diffKh,localT,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
285 |
GAD_CALC_RHS |
CALL GAD_BIHARM_X(bi,bj,k,xA,df4,diffK4,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
294 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
300 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
310 |
GAD_CALC_RHS |
fZon(i,j) = fZon(i,j) + df(i,j)*rhoFacC(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
320 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
334 |
GAD_CALC_RHS |
CALL GAD_C2_ADV_Y(bi,bj,k,vTrans,locABT,af,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
337 |
GAD_CALC_RHS |
CALL GAD_DST2U1_ADV_Y( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
338 |
GAD_CALC_RHS |
I deltaTLev(k), vTrans, vFld, locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
341 |
GAD_CALC_RHS |
CALL GAD_FLUXLIMIT_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
342 |
GAD_CALC_RHS |
I vTrans, vFld, maskS(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
345 |
GAD_CALC_RHS |
CALL GAD_U3_ADV_Y(bi,bj,k,vTrans,locABT,af,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
347 |
GAD_CALC_RHS |
CALL GAD_C4_ADV_Y(bi,bj,k,vTrans,locABT,af,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
349 |
GAD_CALC_RHS |
CALL GAD_DST3_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
350 |
GAD_CALC_RHS |
I vTrans, vFld, maskS(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
357 |
GAD_CALC_RHS |
CALL GAD_DST3_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
358 |
GAD_CALC_RHS |
I vTrans, vFld, maskS(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
361 |
GAD_CALC_RHS |
CALL GAD_DST3FL_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
362 |
GAD_CALC_RHS |
I vTrans, vFld, maskS(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
367 |
GAD_CALC_RHS |
CALL GAD_OS7MP_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
368 |
GAD_CALC_RHS |
I vTrans, vFld, maskS(1-Olx,1-Oly,k,bi,bj), locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
382 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL(af,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
389 |
GAD_CALC_RHS |
CALL GAD_DIFF_Y(bi,bj,k,yA,diffKh,localT,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
400 |
GAD_CALC_RHS |
CALL GAD_BIHARM_Y(bi,bj,k,yA,df4,diffK4,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
409 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
415 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
425 |
GAD_CALC_RHS |
fMer(i,j) = fMer(i,j) + df(i,j)*rhoFacC(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
435 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
443 |
GAD_CALC_RHS |
IF (calcAdvection .AND. .NOT.implicitAdvection .AND. k.GE.2 .AND. |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
444 |
GAD_CALC_RHS |
& (.NOT.useAIM .OR.tracerIdentity.NE.GAD_SALINITY .OR.k.LT.Nr) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
447 |
GAD_CALC_RHS |
IF (calcAdvection .AND. .NOT.implicitAdvection .AND. k.GE.2) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
451 |
GAD_CALC_RHS |
CALL GAD_C2_ADV_R(bi,bj,k,rTrans,TracAB,af,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
454 |
GAD_CALC_RHS |
CALL GAD_DST2U1_ADV_R( bi,bj,k, vertAdvecScheme, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
455 |
GAD_CALC_RHS |
I deltaTLev(k),rTrans,wFld,TracAB(1-Olx,1-Oly,1,bi,bj), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
458 |
GAD_CALC_RHS |
CALL GAD_FLUXLIMIT_ADV_R( bi,bj,k, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
459 |
GAD_CALC_RHS |
I deltaTLev(k),rTrans,wFld,TracAB(1-Olx,1-Oly,1,bi,bj), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
462 |
GAD_CALC_RHS |
CALL GAD_U3_ADV_R(bi,bj,k,rTrans,TracAB,af,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
464 |
GAD_CALC_RHS |
CALL GAD_C4_ADV_R(bi,bj,k,rTrans,TracAB,af,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
466 |
GAD_CALC_RHS |
CALL GAD_DST3_ADV_R( bi,bj,k, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
467 |
GAD_CALC_RHS |
I deltaTLev(k),rTrans,wFld,TracAB(1-Olx,1-Oly,1,bi,bj), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
474 |
GAD_CALC_RHS |
CALL GAD_DST3_ADV_R( bi,bj,k, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
475 |
GAD_CALC_RHS |
I deltaTLev(k),rTrans,wFld,TracAB(1-Olx,1-Oly,1,bi,bj), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
478 |
GAD_CALC_RHS |
CALL GAD_DST3FL_ADV_R( bi,bj,k, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
479 |
GAD_CALC_RHS |
I deltaTLev(k),rTrans,wFld,TracAB(1-Olx,1-Oly,1,bi,bj), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
484 |
GAD_CALC_RHS |
CALL GAD_OS7MP_ADV_R( bi,bj,k, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
485 |
GAD_CALC_RHS |
I deltaTLev(k),rTrans,wFld,TracAB(1-Olx,1-Oly,1,bi,bj), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
500 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL(af,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
503 |
GAD_CALC_RHS |
IF ( k.EQ.2 ) CALL DIAGNOSTICS_COUNT(diagName,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
519 |
GAD_CALC_RHS |
CALL GAD_DIFF_R(bi,bj,k,KappaR,TracerN,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
521 |
GAD_CALC_RHS |
CALL GAD_DIFF_R(bi,bj,k,KappaR,TracAB, df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
531 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
537 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
557 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
563 |
GAD_CALC_RHS |
IF ( trUseKPP .AND. k.GE.2 ) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
571 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
576 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
582 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
595 |
GAD_CALC_RHS |
& + df(i,j)*maskUp(i,j)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
602 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL( df, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
605 |
GAD_CALC_RHS |
IF ( k.EQ.2 ) CALL DIAGNOSTICS_COUNT(diagName,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
622 |
GAD_CALC_RHS |
outFlux=deltaTLev(k)* |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
623 |
GAD_CALC_RHS |
& _recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
624 |
GAD_CALC_RHS |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
631 |
GAD_CALC_RHS |
trac=TracerN(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
633 |
GAD_CALC_RHS |
trac=TracAB(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
649 |
GAD_CALC_RHS |
IF (k.LT.Nr .AND. fVerT(i,j,kDown)*rkSign.GT.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
654 |
GAD_CALC_RHS |
gTrFac=deltaTLev(k+1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
666 |
GAD_CALC_RHS |
gTracer(i,j,k+1,bi,bj)=gTracer(i,j,k+1,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
668 |
GAD_CALC_RHS |
& *_recip_hFacC(i,j,k+1,bi,bj)*recip_drF(k+1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
669 |
GAD_CALC_RHS |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k+1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
670 |
GAD_CALC_RHS |
& *recip_rhoFacC(k+1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
675 |
GAD_CALC_RHS |
gTracer(i,j,k+1,bi,bj)=gTracer(i,j,k+1,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
677 |
GAD_CALC_RHS |
& *_recip_hFacC(i,j,k+1,bi,bj)*recip_drF(k+1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
678 |
GAD_CALC_RHS |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k+1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
679 |
GAD_CALC_RHS |
& *recip_rhoFacC(k+1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
693 |
GAD_CALC_RHS |
gTracer(i,j,k,bi,bj)=gTracer(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
694 |
GAD_CALC_RHS |
& -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
695 |
GAD_CALC_RHS |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
710 |
GAD_CALC_RHS |
& .AND. k.EQ.2 .AND. myIter.EQ.1+nIter0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
714 |
GAD_CALC_RHS |
& fZon,fMer, k, standardMessageUnit,bi,bj,myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
88 |
GAD_CALC_RHS |
INTEGER k,kUp,kDown,kM1 |
|
./pkg/generic_advdiff/gad_del2.F |
11 |
GAD_DEL2 |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_del2.F |
33 |
GAD_DEL2 |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_del2.F |
58 |
GAD_DEL2 |
del2(i,j)=recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_del2.F |
59 |
GAD_DEL2 |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
116 |
GAD_DIAGNOSTICS_STATE |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
119 |
GAD_DIAGNOSTICS_STATE |
recipVol = recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
120 |
GAD_DIAGNOSTICS_STATE |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
121 |
GAD_DIAGNOSTICS_STATE |
& *recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
122 |
GAD_DIAGNOSTICS_STATE |
locVar(i,j,k) = ( |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
123 |
GAD_DIAGNOSTICS_STATE |
& ( som_S(i,j,k,bi,bj,1)*som_S(i,j,k,bi,bj,1) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
124 |
GAD_DIAGNOSTICS_STATE |
& + som_S(i,j,k,bi,bj,2)*som_S(i,j,k,bi,bj,2) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
125 |
GAD_DIAGNOSTICS_STATE |
& + som_S(i,j,k,bi,bj,3)*som_S(i,j,k,bi,bj,3) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
127 |
GAD_DIAGNOSTICS_STATE |
& + ( som_S(i,j,k,bi,bj,4)*som_S(i,j,k,bi,bj,4) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
128 |
GAD_DIAGNOSTICS_STATE |
& + som_S(i,j,k,bi,bj,5)*som_S(i,j,k,bi,bj,5) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
129 |
GAD_DIAGNOSTICS_STATE |
& + som_S(i,j,k,bi,bj,6)*som_S(i,j,k,bi,bj,6) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
131 |
GAD_DIAGNOSTICS_STATE |
& + ( som_S(i,j,k,bi,bj,7)*som_S(i,j,k,bi,bj,7) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
132 |
GAD_DIAGNOSTICS_STATE |
& + som_S(i,j,k,bi,bj,8)*som_S(i,j,k,bi,bj,8) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
133 |
GAD_DIAGNOSTICS_STATE |
& + som_S(i,j,k,bi,bj,9)*som_S(i,j,k,bi,bj,9) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
45 |
GAD_DIAGNOSTICS_STATE |
INTEGER i,j,k,bi,bj,n |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
71 |
GAD_DIAGNOSTICS_STATE |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
74 |
GAD_DIAGNOSTICS_STATE |
recipVol = recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
75 |
GAD_DIAGNOSTICS_STATE |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
76 |
GAD_DIAGNOSTICS_STATE |
& *recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
77 |
GAD_DIAGNOSTICS_STATE |
locVar(i,j,k) = ( |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
78 |
GAD_DIAGNOSTICS_STATE |
& ( som_T(i,j,k,bi,bj,1)*som_T(i,j,k,bi,bj,1) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
79 |
GAD_DIAGNOSTICS_STATE |
& + som_T(i,j,k,bi,bj,2)*som_T(i,j,k,bi,bj,2) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
80 |
GAD_DIAGNOSTICS_STATE |
& + som_T(i,j,k,bi,bj,3)*som_T(i,j,k,bi,bj,3) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
82 |
GAD_DIAGNOSTICS_STATE |
& + ( som_T(i,j,k,bi,bj,4)*som_T(i,j,k,bi,bj,4) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
83 |
GAD_DIAGNOSTICS_STATE |
& + som_T(i,j,k,bi,bj,5)*som_T(i,j,k,bi,bj,5) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
84 |
GAD_DIAGNOSTICS_STATE |
& + som_T(i,j,k,bi,bj,6)*som_T(i,j,k,bi,bj,6) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
86 |
GAD_DIAGNOSTICS_STATE |
& + ( som_T(i,j,k,bi,bj,7)*som_T(i,j,k,bi,bj,7) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
87 |
GAD_DIAGNOSTICS_STATE |
& + som_T(i,j,k,bi,bj,8)*som_T(i,j,k,bi,bj,8) |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
88 |
GAD_DIAGNOSTICS_STATE |
& + som_T(i,j,k,bi,bj,9)*som_T(i,j,k,bi,bj,9) |
|
./pkg/generic_advdiff/gad_diff_r.F |
11 |
GAD_DIFF_R |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_diff_r.F |
37 |
GAD_DIFF_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_diff_r.F |
52 |
GAD_DIFF_R |
km1=MAX(1,k-1) |
|
./pkg/generic_advdiff/gad_diff_r.F |
54 |
GAD_DIFF_R |
IF (k.EQ.1 .OR. k.GT.Nr) THEN |
|
./pkg/generic_advdiff/gad_diff_r.F |
64 |
GAD_DIFF_R |
& *_rA(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_diff_r.F |
65 |
GAD_DIFF_R |
& *recip_drC(k) |
|
./pkg/generic_advdiff/gad_diff_r.F |
66 |
GAD_DIFF_R |
& *(tracer(i,j,k,bi,bj)-tracer(i,j,km1,bi,bj))*rkSign |
|
./pkg/generic_advdiff/gad_diff_x.F |
11 |
GAD_DIFF_X |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_diff_x.F |
36 |
GAD_DIFF_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_diff_x.F |
55 |
GAD_DIFF_X |
& *_recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/generic_advdiff/gad_diff_y.F |
11 |
GAD_DIFF_Y |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_diff_y.F |
36 |
GAD_DIFF_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_diff_y.F |
57 |
GAD_DIFF_Y |
& *_recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
11 |
GAD_DST2U1_ADV_R |
I bi,bj,k, advectionScheme, |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
38 |
GAD_DST2U1_ADV_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
63 |
GAD_DST2U1_ADV_R |
km1=MAX(1,k-1) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
65 |
GAD_DST2U1_ADV_R |
IF ( k.LE.1 .OR. k.GT.Nr) THEN |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
77 |
GAD_DST2U1_ADV_R |
wCFL = ABS(wLoc*deltaTloc*recip_drC(k)) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
92 |
GAD_DST2U1_ADV_R |
& + ( rTrans(i,j)-wAbs )* 0.5 _d 0 * tracer(i,j,k) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
11 |
GAD_DST2U1_ADV_X |
I bi,bj,k, advectionScheme, calcCFL, |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
39 |
GAD_DST2U1_ADV_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
71 |
GAD_DST2U1_ADV_X |
& *recip_dxC(i,j,bi,bj)*recip_deepFacC(k) ) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
11 |
GAD_DST2U1_ADV_Y |
I bi,bj,k, advectionScheme, calcCFL, |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
39 |
GAD_DST2U1_ADV_Y |
INTEGER bi,bj, k, advectionScheme |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
70 |
GAD_DST2U1_ADV_Y |
& *recip_dyC(i,j,bi,bj)*recip_deepFacC(k) ) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
10 |
GAD_DST2U1_IMPL_R |
I bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
44 |
GAD_DST2U1_IMPL_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
71 |
GAD_DST2U1_IMPL_R |
IF ( k.GT.1 .AND. k.LE.Nr ) THEN |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
74 |
GAD_DST2U1_IMPL_R |
deltaTcfl = deltaTarg(k) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
78 |
GAD_DST2U1_IMPL_R |
& *recip_rA(i,j,bi,bj)*recip_drC(k) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
83 |
GAD_DST2U1_IMPL_R |
a3d(i,j,k) = a3d(i,j,k) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
84 |
GAD_DST2U1_IMPL_R |
& - (rCenter+rUpwind)*deltaTarg(k) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
85 |
GAD_DST2U1_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
86 |
GAD_DST2U1_IMPL_R |
b3d(i,j,k) = b3d(i,j,k) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
87 |
GAD_DST2U1_IMPL_R |
& - (rCenter-rUpwind)*deltaTarg(k) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
88 |
GAD_DST2U1_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
89 |
GAD_DST2U1_IMPL_R |
b3d(i,j,k-1) = b3d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
90 |
GAD_DST2U1_IMPL_R |
& + (rCenter+rUpwind)*deltaTarg(k-1) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
91 |
GAD_DST2U1_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
92 |
GAD_DST2U1_IMPL_R |
c3d(i,j,k-1) = c3d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
93 |
GAD_DST2U1_IMPL_R |
& + (rCenter-rUpwind)*deltaTarg(k-1) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
94 |
GAD_DST2U1_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
108 |
GAD_DST3_ADV_R |
& *( tracer(i,j, k ) + psiM*Rj ) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
114 |
GAD_DST3_ADV_R |
& *( tracer(i,j, k ) + (d0*Rj+d1*Rjp) ) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
11 |
GAD_DST3_ADV_R |
I bi,bj,k,dTarg, |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
40 |
GAD_DST3_ADV_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
71 |
GAD_DST3_ADV_R |
km2=MAX(1,k-2) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
72 |
GAD_DST3_ADV_R |
km1=MAX(1,k-1) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
73 |
GAD_DST3_ADV_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
77 |
GAD_DST3_ADV_R |
Rjp=(tracer(i,j,k)-tracer(i,j,kp1)) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
79 |
GAD_DST3_ADV_R |
Rj =(tracer(i,j,km1)-tracer(i,j,k)) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
80 |
GAD_DST3_ADV_R |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
86 |
GAD_DST3_ADV_R |
cfl=ABS(wLoc*dTarg*recip_drC(k)) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
11 |
GAD_DST3_ADV_X |
I bi,bj,k, calcCFL, deltaTloc, |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
41 |
GAD_DST3_ADV_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
85 |
GAD_DST3_ADV_X |
& *recip_dxC(i,j,bi,bj)*recip_deepFacC(k) ) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
11 |
GAD_DST3_ADV_Y |
I bi,bj,k, calcCFL, deltaTloc, |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
40 |
GAD_DST3_ADV_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
84 |
GAD_DST3_ADV_Y |
& *recip_dyC(i,j,bi,bj)*recip_deepFacC(k) ) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
110 |
GAD_DST3FL_ADV_R |
& *( tracer(i,j, k ) + psiM*Rj ) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
11 |
GAD_DST3FL_ADV_R |
I bi,bj,k,dTarg, |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
38 |
GAD_DST3FL_ADV_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
62 |
GAD_DST3FL_ADV_R |
km2=MAX(1,k-2) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
63 |
GAD_DST3FL_ADV_R |
km1=MAX(1,k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
64 |
GAD_DST3FL_ADV_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
68 |
GAD_DST3FL_ADV_R |
Rjp=(tracer(i,j,k)-tracer(i,j,kp1)) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
70 |
GAD_DST3FL_ADV_R |
Rj =(tracer(i,j,km1)-tracer(i,j,k)) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
71 |
GAD_DST3FL_ADV_R |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
76 |
GAD_DST3FL_ADV_R |
wCFL = ABS(wLoc*dTarg*recip_drC(k)) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
25 |
GAD_DST3FL_ADV_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
58 |
GAD_DST3FL_ADV_X |
& *recip_dxC(i,j,bi,bj)*recip_deepFacC(k) ) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
7 |
GAD_DST3FL_ADV_X |
I bi,bj,k, calcCFL, deltaTloc, |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
25 |
GAD_DST3FL_ADV_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
54 |
GAD_DST3FL_ADV_Y |
& *recip_dyC(i,j,bi,bj)*recip_deepFacC(k) ) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
7 |
GAD_DST3FL_ADV_Y |
I bi,bj,k, calcCFL, deltaTloc, |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
101 |
GAD_DST3FL_IMPL_R |
& *recip_rA(i,j,bi,bj)*recip_drC(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
107 |
GAD_DST3FL_IMPL_R |
Rj =(tFld(i,j,k) -tFld(i,j,k-1)) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
109 |
GAD_DST3FL_IMPL_R |
Rjh = (tFld(i,j,k-1)-tFld(i,j,km2))*maskC(i,j,km2,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
10 |
GAD_DST3FL_IMPL_R |
I bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
111 |
GAD_DST3FL_IMPL_R |
Rjh = (tFld(i,j,kp1)-tFld(i,j,k) )*maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
149 |
GAD_DST3FL_IMPL_R |
a5d(i,j,k) = a5d(i,j,k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
151 |
GAD_DST3FL_IMPL_R |
& *deltaTarg(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
152 |
GAD_DST3FL_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
153 |
GAD_DST3FL_IMPL_R |
b5d(i,j,k) = b5d(i,j,k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
155 |
GAD_DST3FL_IMPL_R |
& *deltaTarg(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
156 |
GAD_DST3FL_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
157 |
GAD_DST3FL_IMPL_R |
c5d(i,j,k) = c5d(i,j,k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
159 |
GAD_DST3FL_IMPL_R |
& *deltaTarg(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
160 |
GAD_DST3FL_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
161 |
GAD_DST3FL_IMPL_R |
d5d(i,j,k) = d5d(i,j,k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
163 |
GAD_DST3FL_IMPL_R |
& *deltaTarg(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
164 |
GAD_DST3FL_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
165 |
GAD_DST3FL_IMPL_R |
b5d(i,j,k-1) = b5d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
167 |
GAD_DST3FL_IMPL_R |
& *deltaTarg(k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
168 |
GAD_DST3FL_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
169 |
GAD_DST3FL_IMPL_R |
c5d(i,j,k-1) = c5d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
171 |
GAD_DST3FL_IMPL_R |
& *deltaTarg(k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
172 |
GAD_DST3FL_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
173 |
GAD_DST3FL_IMPL_R |
d5d(i,j,k-1) = d5d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
175 |
GAD_DST3FL_IMPL_R |
& *deltaTarg(k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
176 |
GAD_DST3FL_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
177 |
GAD_DST3FL_IMPL_R |
e5d(i,j,k-1) = e5d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
179 |
GAD_DST3FL_IMPL_R |
& *deltaTarg(k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
180 |
GAD_DST3FL_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
49 |
GAD_DST3FL_IMPL_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
82 |
GAD_DST3FL_IMPL_R |
IF ( k.GT.1 .AND. k.LE.Nr ) THEN |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
84 |
GAD_DST3FL_IMPL_R |
km2=MAX(1,k-2) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
85 |
GAD_DST3FL_IMPL_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
88 |
GAD_DST3FL_IMPL_R |
IF ( k.LE.2 ) maskM2 = 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
89 |
GAD_DST3FL_IMPL_R |
IF ( k.GE.Nr) maskP1 = 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
92 |
GAD_DST3FL_IMPL_R |
deltaTcfl = deltaTarg(k) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
109 |
GAD_FLUXLIMIT_ADV_R |
& (tracer(i,j,k)+tracer(i,j,kM1))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
11 |
GAD_FLUXLIMIT_ADV_R |
I bi,bj,k,dTarg, |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
44 |
GAD_FLUXLIMIT_ADV_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
71 |
GAD_FLUXLIMIT_ADV_R |
km2=MAX(1,k-2) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
72 |
GAD_FLUXLIMIT_ADV_R |
km1=MAX(1,k-1) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
73 |
GAD_FLUXLIMIT_ADV_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
75 |
GAD_FLUXLIMIT_ADV_R |
IF ( k.GT.Nr) THEN |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
86 |
GAD_FLUXLIMIT_ADV_R |
wCFL = ABS( wLoc*dTarg*recip_drC(k) ) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
87 |
GAD_FLUXLIMIT_ADV_R |
Rjp=(tracer(i,j,kp1)-tracer(i,j,k)) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
89 |
GAD_FLUXLIMIT_ADV_R |
Rj= (tracer(i,j,k) -tracer(i,j,kM1)) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
11 |
GAD_FLUXLIMIT_ADV_X |
I bi,bj,k, calcCFL, deltaTloc, |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
44 |
GAD_FLUXLIMIT_ADV_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
78 |
GAD_FLUXLIMIT_ADV_X |
& *recip_dxC(i,j,bi,bj)*recip_deepFacC(k) ) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
11 |
GAD_FLUXLIMIT_ADV_Y |
I bi,bj,k, calcCFL, deltaTloc, |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
44 |
GAD_FLUXLIMIT_ADV_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
78 |
GAD_FLUXLIMIT_ADV_Y |
& *recip_dyC(i,j,bi,bj)*recip_deepFacC(k) ) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
10 |
GAD_FLUXLIMIT_IMPL_R |
I bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
111 |
GAD_FLUXLIMIT_IMPL_R |
a3d(i,j,k) = a3d(i,j,k) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
112 |
GAD_FLUXLIMIT_IMPL_R |
& - (rCenter+rUpwind)*deltaTarg(k) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
113 |
GAD_FLUXLIMIT_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
114 |
GAD_FLUXLIMIT_IMPL_R |
b3d(i,j,k) = b3d(i,j,k) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
115 |
GAD_FLUXLIMIT_IMPL_R |
& - (rCenter-rUpwind)*deltaTarg(k) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
116 |
GAD_FLUXLIMIT_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
117 |
GAD_FLUXLIMIT_IMPL_R |
b3d(i,j,k-1) = b3d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
118 |
GAD_FLUXLIMIT_IMPL_R |
& + (rCenter+rUpwind)*deltaTarg(k-1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
119 |
GAD_FLUXLIMIT_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
120 |
GAD_FLUXLIMIT_IMPL_R |
c3d(i,j,k-1) = c3d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
121 |
GAD_FLUXLIMIT_IMPL_R |
& + (rCenter-rUpwind)*deltaTarg(k-1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
122 |
GAD_FLUXLIMIT_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
44 |
GAD_FLUXLIMIT_IMPL_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
75 |
GAD_FLUXLIMIT_IMPL_R |
km2=MAX(1,k-2) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
76 |
GAD_FLUXLIMIT_IMPL_R |
km1=MAX(1,k-1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
77 |
GAD_FLUXLIMIT_IMPL_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
80 |
GAD_FLUXLIMIT_IMPL_R |
IF ( k.GT.1 .AND. k.LE.Nr ) THEN |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
83 |
GAD_FLUXLIMIT_IMPL_R |
deltaTcfl = deltaTarg(k) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
86 |
GAD_FLUXLIMIT_IMPL_R |
w_CFL = deltaTcfl*rTrans(i,j)*recip_rA(i,j,bi,bj)*recip_drC(k) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
87 |
GAD_FLUXLIMIT_IMPL_R |
Rjp=(tFld(i,j,kp1)-tFld(i,j,k) )*maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
88 |
GAD_FLUXLIMIT_IMPL_R |
Rj =(tFld(i,j,k) -tFld(i,j,km1)) |
|
./pkg/generic_advdiff/gad_grad_x.F |
11 |
GAD_GRAD_X |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_grad_x.F |
32 |
GAD_GRAD_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_grad_x.F |
63 |
GAD_GRAD_X |
& *_recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/generic_advdiff/gad_grad_y.F |
11 |
GAD_GRAD_Y |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_grad_y.F |
32 |
GAD_GRAD_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_grad_y.F |
65 |
GAD_GRAD_Y |
& *_recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
100 |
GAD_IMPLICIT_R |
b5d(i,j,k) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
101 |
GAD_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
102 |
GAD_IMPLICIT_R |
d5d(i,j,k) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
103 |
GAD_IMPLICIT_R |
e5d(i,j,k) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
113 |
GAD_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_implicit_r.F |
116 |
GAD_IMPLICIT_R |
localTijk(i,j,k) = gTracer(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
121 |
GAD_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_implicit_r.F |
124 |
GAD_IMPLICIT_R |
localTijk(i,j,k) = tracer(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
135 |
GAD_IMPLICIT_R |
DO k=2,Nr |
|
./pkg/generic_advdiff/gad_implicit_r.F |
138 |
GAD_IMPLICIT_R |
b5d(i,j,k) = -deltaTLev(k)*maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
139 |
GAD_IMPLICIT_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
140 |
GAD_IMPLICIT_R |
& *kappaRX(i,j, k )*recip_drC( k ) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
145 |
GAD_IMPLICIT_R |
DO k=1,Nr-1 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
148 |
GAD_IMPLICIT_R |
d5d(i,j,k) = -deltaTLev(k)*maskC(i,j,k+1,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
149 |
GAD_IMPLICIT_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
150 |
GAD_IMPLICIT_R |
& *KappaRX(i,j,k+1)*recip_drC(k+1) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
155 |
GAD_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_implicit_r.F |
158 |
GAD_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 - b5d(i,j,k) - d5d(i,j,k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
168 |
GAD_IMPLICIT_R |
DO k=Nr,1,-1 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
171 |
GAD_IMPLICIT_R |
IF (k.EQ.Nr) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
185 |
GAD_IMPLICIT_R |
IF (k.EQ.1) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
195 |
GAD_IMPLICIT_R |
wFld(i,j) = wVel(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
196 |
GAD_IMPLICIT_R |
rTrans(i,j) = wFld(i,j)*rA(i,j,bi,bj)*maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
204 |
GAD_IMPLICIT_R |
I k, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
210 |
GAD_IMPLICIT_R |
gTracer(i,j,k,bi,bj) = gTracer(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
212 |
GAD_IMPLICIT_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
213 |
GAD_IMPLICIT_R |
& *tracer(i,j,k,bi,bj)*(rTransKp1(i,j)-rTrans(i,j))*rkSign |
|
./pkg/generic_advdiff/gad_implicit_r.F |
228 |
GAD_IMPLICIT_R |
CALL GAD_C2_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
235 |
GAD_IMPLICIT_R |
CALL GAD_DST2U1_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
241 |
GAD_IMPLICIT_R |
CALL GAD_FLUXLIMIT_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
249 |
GAD_IMPLICIT_R |
CALL GAD_U3C4_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
255 |
GAD_IMPLICIT_R |
CALL GAD_DST3FL_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
301 |
GAD_IMPLICIT_R |
DO k= 1,Nr |
|
./pkg/generic_advdiff/gad_implicit_r.F |
302 |
GAD_IMPLICIT_R |
IF ( k.EQ.1 ) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
315 |
GAD_IMPLICIT_R |
& * KappaRX(i,j,k)*recip_drC(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
316 |
GAD_IMPLICIT_R |
& * (gTracer(i,j,k,bi,bj) - gTracer(i,j,k-1,bi,bj)) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
320 |
GAD_IMPLICIT_R |
CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
67 |
GAD_IMPLICIT_R |
INTEGER i,j,k |
|
./pkg/generic_advdiff/gad_implicit_r.F |
96 |
GAD_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_implicit_r.F |
99 |
GAD_IMPLICIT_R |
a5d(i,j,k) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_init_varia.F |
37 |
GAD_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/generic_advdiff/gad_init_varia.F |
45 |
GAD_INIT_VARIA |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_init_varia.F |
49 |
GAD_INIT_VARIA |
som_T(i,j,k,bi,bj,n) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_init_varia.F |
51 |
GAD_INIT_VARIA |
som_S(i,j,k,bi,bj,n) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
25 |
GAD_OS7MP_ADV_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
51 |
GAD_OS7MP_ADV_R |
km4=MAX(1,k-4) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
52 |
GAD_OS7MP_ADV_R |
km3=MAX(1,k-3) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
53 |
GAD_OS7MP_ADV_R |
km2=MAX(1,k-2) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
54 |
GAD_OS7MP_ADV_R |
km1=MAX(1,k-1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
55 |
GAD_OS7MP_ADV_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
56 |
GAD_OS7MP_ADV_R |
kp2=MIN(Nr,k+2) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
57 |
GAD_OS7MP_ADV_R |
kp3=MIN(Nr,k+3) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
63 |
GAD_OS7MP_ADV_R |
cfl = abs(wLoc*deltaTloc*recip_drC(k)) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
68 |
GAD_OS7MP_ADV_R |
Qip = Q(i,j,k) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
75 |
GAD_OS7MP_ADV_R |
MskIp = maskC(i,j,kp1,bi,bj) * float(kp1-k) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
76 |
GAD_OS7MP_ADV_R |
MskI = maskC(i,j,k,bi,bj) * float(k-km1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
7 |
GAD_OS7MP_ADV_R |
I bi,bj,k,deltaTloc, |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
84 |
GAD_OS7MP_ADV_R |
Qi = Q(i,j,k) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
91 |
GAD_OS7MP_ADV_R |
MskI = maskC(i,j,k,bi,bj) * float(k-km1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
92 |
GAD_OS7MP_ADV_R |
MskIm = maskC(i,j,kp1,bi,bj) * float(kp1-k) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
25 |
GAD_OS7MP_ADV_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
7 |
GAD_OS7MP_ADV_X |
I bi,bj,k, calcCFL, deltaTloc, |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
25 |
GAD_OS7MP_ADV_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
7 |
GAD_OS7MP_ADV_Y |
I bi,bj,k, calcCFL, deltaTloc, |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
11 |
GAD_SOM_ADV_R |
I bi,bj,k, kUp, kDw, |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
131 |
GAD_SOM_ADV_R |
alp (i,j,kUp) = fp_v(i,j,kUp)/sm_v(i,j,k) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
137 |
GAD_SOM_ADV_R |
& ( sm_o(i,j, k ) + alp1*sm_z(i,j, k ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
138 |
GAD_SOM_ADV_R |
& + alp1*(alp1-alp(i,j,kUp))*sm_zz(i,j, k ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
141 |
GAD_SOM_ADV_R |
& ( sm_z(i,j, k ) + three*alp1*sm_zz(i,j, k ) ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
142 |
GAD_SOM_ADV_R |
fp_zz(i,j,kUp) = alp(i,j,kUp)*alpq*sm_zz(i,j, k ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
144 |
GAD_SOM_ADV_R |
& ( sm_x(i,j, k ) + alp1*sm_xz(i,j, k ) ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
146 |
GAD_SOM_ADV_R |
& ( sm_y(i,j, k ) + alp1*sm_yz(i,j, k ) ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
147 |
GAD_SOM_ADV_R |
fp_xz(i,j,kUp) = alpq *sm_xz(i,j, k ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
148 |
GAD_SOM_ADV_R |
fp_yz(i,j,kUp) = alpq *sm_yz(i,j, k ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
149 |
GAD_SOM_ADV_R |
fp_xx(i,j,kUp) = alp(i,j,kUp)*sm_xx(i,j, k ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
150 |
GAD_SOM_ADV_R |
fp_yy(i,j,kUp) = alp(i,j,kUp)*sm_yy(i,j, k ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
151 |
GAD_SOM_ADV_R |
fp_xy(i,j,kUp) = alp(i,j,kUp)*sm_xy(i,j, k ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
154 |
GAD_SOM_ADV_R |
IF ( k.EQ.1 ) THEN |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
184 |
GAD_SOM_ADV_R |
km1 = k-1 |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
217 |
GAD_SOM_ADV_R |
IF ( usingPCoords .AND. k.NE.1 .AND. |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
224 |
GAD_SOM_ADV_R |
km1 = k |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
228 |
GAD_SOM_ADV_R |
IF ( k.EQ.ksurfC(i,j,bi,bj) ) THEN |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
255 |
GAD_SOM_ADV_R |
sm_v (i,j,k) = sm_v (i,j,k) - fn_v (i,j,kDw) - fp_v (i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
256 |
GAD_SOM_ADV_R |
sm_o (i,j,k) = sm_o (i,j,k) - fn_o (i,j,kDw) - fp_o (i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
257 |
GAD_SOM_ADV_R |
sm_z (i,j,k) = alf1q*( sm_z(i,j,k) - three*alpmn*sm_zz(i,j,k) ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
258 |
GAD_SOM_ADV_R |
sm_zz(i,j,k) = alf1*alf1q*sm_zz(i,j,k) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
259 |
GAD_SOM_ADV_R |
sm_xz(i,j,k) = alf1q*sm_xz(i,j,k) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
260 |
GAD_SOM_ADV_R |
sm_yz(i,j,k) = alf1q*sm_yz(i,j,k) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
261 |
GAD_SOM_ADV_R |
sm_x (i,j,k) = sm_x (i,j,k) - fn_x (i,j,kDw) - fp_x (i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
262 |
GAD_SOM_ADV_R |
sm_xx(i,j,k) = sm_xx(i,j,k) - fn_xx(i,j,kDw) - fp_xx(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
263 |
GAD_SOM_ADV_R |
sm_y (i,j,k) = sm_y (i,j,k) - fn_y (i,j,kDw) - fp_y (i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
264 |
GAD_SOM_ADV_R |
sm_yy(i,j,k) = sm_yy(i,j,k) - fn_yy(i,j,kDw) - fp_yy(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
265 |
GAD_SOM_ADV_R |
sm_xy(i,j,k) = sm_xy(i,j,k) - fn_xy(i,j,kDw) - fp_xy(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
274 |
GAD_SOM_ADV_R |
sm_v (i,j,k) = sm_v (i,j,k) + fp_v (i,j,kDw) + fn_v (i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
275 |
GAD_SOM_ADV_R |
alfp = fp_v(i,j,kDw)/sm_v(i,j,k) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
276 |
GAD_SOM_ADV_R |
alfn = fn_v(i,j,kUp)/sm_v(i,j,k) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
281 |
GAD_SOM_ADV_R |
locTp = alfp*sm_o(i,j,k) - alp1*fp_o(i,j,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
282 |
GAD_SOM_ADV_R |
locTn = alfn*sm_o(i,j,k) - aln1*fn_o(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
283 |
GAD_SOM_ADV_R |
sm_zz(i,j,k) = alf1*alf1*sm_zz(i,j,k) + alfp*alfp*fp_zz(i,j,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
285 |
GAD_SOM_ADV_R |
& - 5. _d 0*(-alpmn*alf1*sm_z(i,j,k) + alfp*alp1*fp_z(i,j,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
287 |
GAD_SOM_ADV_R |
& + two*alfp*alfn*sm_o(i,j,k) + (alp1-alfp)*locTp |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
290 |
GAD_SOM_ADV_R |
sm_xz(i,j,k) = alf1*sm_xz(i,j,k) + alfp*fp_xz(i,j,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
292 |
GAD_SOM_ADV_R |
& + three*( alpmn*sm_x(i,j,k) - alp1*fp_x(i,j,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
295 |
GAD_SOM_ADV_R |
sm_yz(i,j,k) = alf1*sm_yz(i,j,k) + alfp*fp_yz(i,j,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
297 |
GAD_SOM_ADV_R |
& + three*( alpmn*sm_y(i,j,k) - alp1*fp_y(i,j,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
300 |
GAD_SOM_ADV_R |
sm_z (i,j,k) = alf1*sm_z(i,j,k) + alfp*fp_z(i,j,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
303 |
GAD_SOM_ADV_R |
sm_o (i,j,k) = sm_o (i,j,k) + fp_o (i,j,kDw) + fn_o (i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
304 |
GAD_SOM_ADV_R |
sm_x (i,j,k) = sm_x (i,j,k) + fp_x (i,j,kDw) + fn_x (i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
305 |
GAD_SOM_ADV_R |
sm_xx(i,j,k) = sm_xx(i,j,k) + fp_xx(i,j,kDw) + fn_xx(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
306 |
GAD_SOM_ADV_R |
sm_y (i,j,k) = sm_y (i,j,k) + fp_y (i,j,kDw) + fn_y (i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
307 |
GAD_SOM_ADV_R |
sm_yy(i,j,k) = sm_yy(i,j,k) + fp_yy(i,j,kDw) + fn_yy(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
308 |
GAD_SOM_ADV_R |
sm_xy(i,j,k) = sm_xy(i,j,k) + fp_xy(i,j,kDw) + fn_xy(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
54 |
GAD_SOM_ADV_R |
INTEGER bi,bj,k, kUp, kDw |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
11 |
GAD_SOM_ADV_X |
I bi,bj,k, limiter, |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
50 |
GAD_SOM_ADV_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
11 |
GAD_SOM_ADV_Y |
I bi,bj,k, limiter, |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
50 |
GAD_SOM_ADV_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_som_advect.F |
196 |
GAD_SOM_ADVECT |
DO k=1,4 |
|
./pkg/generic_advdiff/gad_som_advect.F |
199 |
GAD_SOM_ADVECT |
smCorners(i,j,k,n) = 0. |
|
./pkg/generic_advdiff/gad_som_advect.F |
247 |
GAD_SOM_ADVECT |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_som_advect.F |
253 |
GAD_SOM_ADVECT |
I k,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
260 |
GAD_SOM_ADVECT |
I k, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
266 |
GAD_SOM_ADVECT |
smVol(i,j,k) = rA(i,j,bi,bj)*deepFac2C(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
267 |
GAD_SOM_ADVECT |
& *drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
268 |
GAD_SOM_ADVECT |
& *rhoFacC(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
269 |
GAD_SOM_ADVECT |
smTr0(i,j,k) = tracer(i,j,k,bi,bj)*smVol(i,j,k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
271 |
GAD_SOM_ADVECT |
smVol(i,j,k) = smVol(i,j,k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
272 |
GAD_SOM_ADVECT |
& + (1. _d 0 - maskC(i,j,k,bi,bj)) |
|
./pkg/generic_advdiff/gad_som_advect.F |
321 |
GAD_SOM_ADVECT |
I ipass, k, Nr, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
328 |
GAD_SOM_ADVECT |
I bi,bj,k, limiter, |
|
./pkg/generic_advdiff/gad_som_advect.F |
331 |
GAD_SOM_ADVECT |
I deltaTLev(k), uTrans, |
|
./pkg/generic_advdiff/gad_som_advect.F |
332 |
GAD_SOM_ADVECT |
U smVol(1-OLx,1-OLy,k), |
|
./pkg/generic_advdiff/gad_som_advect.F |
333 |
GAD_SOM_ADVECT |
U smTr0(1-OLx,1-OLy,k), |
|
./pkg/generic_advdiff/gad_som_advect.F |
334 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,1), |
|
./pkg/generic_advdiff/gad_som_advect.F |
335 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,2), |
|
./pkg/generic_advdiff/gad_som_advect.F |
336 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,3), |
|
./pkg/generic_advdiff/gad_som_advect.F |
337 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,4), |
|
./pkg/generic_advdiff/gad_som_advect.F |
338 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,5), |
|
./pkg/generic_advdiff/gad_som_advect.F |
339 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,6), |
|
./pkg/generic_advdiff/gad_som_advect.F |
340 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,7), |
|
./pkg/generic_advdiff/gad_som_advect.F |
341 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,8), |
|
./pkg/generic_advdiff/gad_som_advect.F |
342 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,9), |
|
./pkg/generic_advdiff/gad_som_advect.F |
385 |
GAD_SOM_ADVECT |
I iPass, k, Nr, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
392 |
GAD_SOM_ADVECT |
I bi,bj,k, limiter, |
|
./pkg/generic_advdiff/gad_som_advect.F |
395 |
GAD_SOM_ADVECT |
I deltaTLev(k), vTrans, |
|
./pkg/generic_advdiff/gad_som_advect.F |
396 |
GAD_SOM_ADVECT |
U smVol(1-OLx,1-OLy,k), |
|
./pkg/generic_advdiff/gad_som_advect.F |
397 |
GAD_SOM_ADVECT |
U smTr0(1-OLx,1-OLy,k), |
|
./pkg/generic_advdiff/gad_som_advect.F |
398 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,1), |
|
./pkg/generic_advdiff/gad_som_advect.F |
399 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,2), |
|
./pkg/generic_advdiff/gad_som_advect.F |
400 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,3), |
|
./pkg/generic_advdiff/gad_som_advect.F |
401 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,4), |
|
./pkg/generic_advdiff/gad_som_advect.F |
402 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,5), |
|
./pkg/generic_advdiff/gad_som_advect.F |
403 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,6), |
|
./pkg/generic_advdiff/gad_som_advect.F |
404 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,7), |
|
./pkg/generic_advdiff/gad_som_advect.F |
405 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,8), |
|
./pkg/generic_advdiff/gad_som_advect.F |
406 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,9), |
|
./pkg/generic_advdiff/gad_som_advect.F |
445 |
GAD_SOM_ADVECT |
gTracer(i,j,k,bi,bj) = |
|
./pkg/generic_advdiff/gad_som_advect.F |
446 |
GAD_SOM_ADVECT |
& ( smTr0(i,j,k) - tracer(i,j,k,bi,bj)*smVol(i,j,k) ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
447 |
GAD_SOM_ADVECT |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
448 |
GAD_SOM_ADVECT |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
449 |
GAD_SOM_ADVECT |
& *recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
450 |
GAD_SOM_ADVECT |
& /deltaTLev(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
458 |
GAD_SOM_ADVECT |
CALL DIAGNOSTICS_FILL(afx,diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
462 |
GAD_SOM_ADVECT |
CALL DIAGNOSTICS_FILL(afy,diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
469 |
GAD_SOM_ADVECT |
& .AND. k.LE.3 .AND. myIter.EQ.1+nIter0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
473 |
GAD_SOM_ADVECT |
& afx,afy, k, standardMessageUnit,bi,bj,myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
499 |
GAD_SOM_ADVECT |
DO k=Nr,1,-1 |
|
./pkg/generic_advdiff/gad_som_advect.F |
502 |
GAD_SOM_ADVECT |
kUp = 1+MOD(Nr-k,2) |
|
./pkg/generic_advdiff/gad_som_advect.F |
503 |
GAD_SOM_ADVECT |
kDown= 1+MOD(Nr-k+1,2) |
|
./pkg/generic_advdiff/gad_som_advect.F |
504 |
GAD_SOM_ADVECT |
IF (k.EQ.Nr) THEN |
|
./pkg/generic_advdiff/gad_som_advect.F |
545 |
GAD_SOM_ADVECT |
IF ( (rigidLid.OR.nonlinFreeSurf.GE.1) .AND. k.EQ.1 ) THEN |
|
./pkg/generic_advdiff/gad_som_advect.F |
559 |
GAD_SOM_ADVECT |
wFld(i,j) = wVel(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
560 |
GAD_SOM_ADVECT |
rTrans(i,j) = wVel(i,j,k,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
561 |
GAD_SOM_ADVECT |
& *deepFac2F(k)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
562 |
GAD_SOM_ADVECT |
& *maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
569 |
GAD_SOM_ADVECT |
km1= MAX(k-1,1) |
|
./pkg/generic_advdiff/gad_som_advect.F |
572 |
GAD_SOM_ADVECT |
wFld(i,j) = wVel(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
573 |
GAD_SOM_ADVECT |
rTrans(i,j) = wVel(i,j,k,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
574 |
GAD_SOM_ADVECT |
& *deepFac2F(k)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
575 |
GAD_SOM_ADVECT |
maskUp(i,j) = maskC(i,j,km1,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
584 |
GAD_SOM_ADVECT |
IF (useGMRedi .AND. k.GT.1 ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
587 |
GAD_SOM_ADVECT |
I k, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
594 |
GAD_SOM_ADVECT |
I bi,bj,k, kUp, kDown, |
|
./pkg/generic_advdiff/gad_som_advect.F |
595 |
GAD_SOM_ADVECT |
I deltaTLev(k), rTrans, maskUp, |
|
./pkg/generic_advdiff/gad_som_advect.F |
624 |
GAD_SOM_ADVECT |
gTracer(i,j,k,bi,bj) = |
|
./pkg/generic_advdiff/gad_som_advect.F |
625 |
GAD_SOM_ADVECT |
& ( smTr0(i,j,k) - tracer(i,j,k,bi,bj)*smVol(i,j,k) ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
626 |
GAD_SOM_ADVECT |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
627 |
GAD_SOM_ADVECT |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
628 |
GAD_SOM_ADVECT |
& *recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
629 |
GAD_SOM_ADVECT |
& /deltaTLev(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
637 |
GAD_SOM_ADVECT |
& diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
97 |
GAD_SOM_ADVECT |
INTEGER i,j,k,km1,kUp,kDown |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
59 |
GAD_SOM_LIM_R |
INTEGER i,j,k |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
64 |
GAD_SOM_LIM_R |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
70 |
GAD_SOM_LIM_R |
IF ( sm_o(i,j,k).GT.0. ) slpmax = sm_o(i,j,k) |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
72 |
GAD_SOM_LIM_R |
s1new = MIN( s1max, MAX(-s1max,sm_z(i,j,k)) ) |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
74 |
GAD_SOM_LIM_R |
& MAX(ABS(s1new)-slpmax,sm_zz(i,j,k)) ) |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
75 |
GAD_SOM_LIM_R |
sm_xz(i,j,k) = MIN( slpmax, MAX(-slpmax,sm_xz(i,j,k)) ) |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
76 |
GAD_SOM_LIM_R |
sm_yz(i,j,k) = MIN( slpmax, MAX(-slpmax,sm_yz(i,j,k)) ) |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
77 |
GAD_SOM_LIM_R |
sm_z (i,j,k) = s1new |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
78 |
GAD_SOM_LIM_R |
sm_zz(i,j,k) = s2new |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
111 |
GAD_SOM_PREP_CS_CORNER |
U smVol(1-OLx,1-OLy,k), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
112 |
GAD_SOM_PREP_CS_CORNER |
U smTr0(1-OLx,1-OLy,k), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
113 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,1), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
114 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,2), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
115 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,3), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
116 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,4), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
117 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,5), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
118 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,6), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
119 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,7), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
120 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,8), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
121 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,9), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
131 |
GAD_SOM_PREP_CS_CORNER |
smCorners(i,j,1,-1) = smVol(i-OLx,j-OLy,k) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
132 |
GAD_SOM_PREP_CS_CORNER |
smCorners(i,j,1, 0) = smTr0(i-OLx,j-OLy,k) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
134 |
GAD_SOM_PREP_CS_CORNER |
smCorners(i,j,1,n) = smTr (i-OLx,j-OLy,k,bi,bj,n) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
13 |
GAD_SOM_PREP_CS_CORNER |
I iPass, k, myNz, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
142 |
GAD_SOM_PREP_CS_CORNER |
smCorners(i,j,2,-1) = smVol(sNx+i,j-OLy,k) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
143 |
GAD_SOM_PREP_CS_CORNER |
smCorners(i,j,2, 0) = smTr0(sNx+i,j-OLy,k) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
145 |
GAD_SOM_PREP_CS_CORNER |
smCorners(i,j,2,n) = smTr (sNx+i,j-OLy,k,bi,bj,n) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
153 |
GAD_SOM_PREP_CS_CORNER |
smCorners(i,j,3,-1) = smVol(sNx+i,sNy+j,k) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
154 |
GAD_SOM_PREP_CS_CORNER |
smCorners(i,j,3, 0) = smTr0(sNx+i,sNy+j,k) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
156 |
GAD_SOM_PREP_CS_CORNER |
smCorners(i,j,3,n) = smTr (sNx+i,sNy+j,k,bi,bj,n) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
164 |
GAD_SOM_PREP_CS_CORNER |
smCorners(i,j,4,-1) = smVol(i-OLx,sNy+j,k) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
165 |
GAD_SOM_PREP_CS_CORNER |
smCorners(i,j,4, 0) = smTr0(i-OLx,sNy+j,k) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
167 |
GAD_SOM_PREP_CS_CORNER |
smCorners(i,j,4,n) = smTr (i-OLx,sNy+j,k,bi,bj,n) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
184 |
GAD_SOM_PREP_CS_CORNER |
smVol(i-OLx,j-OLy,k ) = smCorners(i,j,1,-1) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
185 |
GAD_SOM_PREP_CS_CORNER |
smTr0(i-OLx,j-OLy,k ) = smCorners(i,j,1, 0) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
187 |
GAD_SOM_PREP_CS_CORNER |
smTr(i-OLx,j-OLy,k,bi,bj,n) = smCorners(i,j,1, n) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
195 |
GAD_SOM_PREP_CS_CORNER |
smVol(sNx+i,j-OLy,k ) = smCorners(i,j,2,-1) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
196 |
GAD_SOM_PREP_CS_CORNER |
smTr0(sNx+i,j-OLy,k ) = smCorners(i,j,2, 0) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
198 |
GAD_SOM_PREP_CS_CORNER |
smTr(sNx+i,j-OLy,k,bi,bj,n) = smCorners(i,j,2, n) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
206 |
GAD_SOM_PREP_CS_CORNER |
smVol(sNx+i,sNy+j,k ) = smCorners(i,j,3,-1) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
207 |
GAD_SOM_PREP_CS_CORNER |
smTr0(sNx+i,sNy+j,k ) = smCorners(i,j,3, 0) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
209 |
GAD_SOM_PREP_CS_CORNER |
smTr(sNx+i,sNy+j,k,bi,bj,n) = smCorners(i,j,3, n) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
217 |
GAD_SOM_PREP_CS_CORNER |
smVol(i-OLx,sNy+j,k ) = smCorners(i,j,4,-1) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
218 |
GAD_SOM_PREP_CS_CORNER |
smTr0(i-OLx,sNy+j,k ) = smCorners(i,j,4, 0) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
220 |
GAD_SOM_PREP_CS_CORNER |
smTr(i-OLx,sNy+j,k,bi,bj,n) = smCorners(i,j,4, n) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
56 |
GAD_SOM_PREP_CS_CORNER |
INTEGER iPass, k, bi, bj |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
88 |
GAD_SOM_PREP_CS_CORNER |
U smVol(1-OLx,1-OLy,k), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
89 |
GAD_SOM_PREP_CS_CORNER |
U smTr0(1-OLx,1-OLy,k), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
90 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,1), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
91 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,2), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
92 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,3), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
93 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,4), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
94 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,5), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
95 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,6), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
96 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,7), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
97 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,8), |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
98 |
GAD_SOM_PREP_CS_CORNER |
U smTr(1-OLx,1-OLy,k,bi,bj,9), |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
11 |
GAD_U3_ADV_R |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
38 |
GAD_U3_ADV_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
58 |
GAD_U3_ADV_R |
km2=MAX(1,k-2) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
59 |
GAD_U3_ADV_R |
km1=MAX(1,k-1) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
60 |
GAD_U3_ADV_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
62 |
GAD_U3_ADV_R |
IF ( k.EQ.1 .OR. k.GT.Nr ) THEN |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
71 |
GAD_U3_ADV_R |
Rjp=(tracer(i,j,kp1,bi,bj)-tracer(i,j,k,bi,bj)) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
73 |
GAD_U3_ADV_R |
Rj=(tracer(i,j,k,bi,bj)-tracer(i,j,km1,bi,bj)) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
80 |
GAD_U3_ADV_R |
& (Tracer(i,j,k,bi,bj)+Tracer(i,j,km1,bi,bj))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
11 |
GAD_U3_ADV_X |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
38 |
GAD_U3_ADV_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
62 |
GAD_U3_ADV_X |
Rjp=(tracer(i+1,j)-tracer(i,j))*maskW(i+1,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
63 |
GAD_U3_ADV_X |
Rj =(tracer(i,j)-tracer(i-1,j))*maskW(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
64 |
GAD_U3_ADV_X |
Rjm=(tracer(i-1,j)-tracer(i-2,j))*maskW(i-1,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
11 |
GAD_U3_ADV_Y |
I bi,bj,k, |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
38 |
GAD_U3_ADV_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
62 |
GAD_U3_ADV_Y |
Rjp=(tracer(i,j+1)-tracer(i,j))*maskS(i,j+1,k,bi,bj) |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
63 |
GAD_U3_ADV_Y |
Rj =(tracer(i,j)-tracer(i,j-1))*maskS(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
64 |
GAD_U3_ADV_Y |
Rjm=(tracer(i,j-1)-tracer(i,j-2))*maskS(i,j-1,k,bi,bj) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
102 |
GAD_U3C4_IMPL_R |
& *recip_rA(i,j,bi,bj)*recip_drC(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
10 |
GAD_U3C4_IMPL_R |
I bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
113 |
GAD_U3C4_IMPL_R |
a5d(i,j,k) = a5d(i,j,k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
115 |
GAD_U3C4_IMPL_R |
& *deltaTarg(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
116 |
GAD_U3C4_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
117 |
GAD_U3C4_IMPL_R |
b5d(i,j,k) = b5d(i,j,k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
119 |
GAD_U3C4_IMPL_R |
& *deltaTarg(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
120 |
GAD_U3C4_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
121 |
GAD_U3C4_IMPL_R |
c5d(i,j,k) = c5d(i,j,k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
123 |
GAD_U3C4_IMPL_R |
& *deltaTarg(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
124 |
GAD_U3C4_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
125 |
GAD_U3C4_IMPL_R |
d5d(i,j,k) = d5d(i,j,k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
127 |
GAD_U3C4_IMPL_R |
& *deltaTarg(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
128 |
GAD_U3C4_IMPL_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
129 |
GAD_U3C4_IMPL_R |
b5d(i,j,k-1) = b5d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
131 |
GAD_U3C4_IMPL_R |
& *deltaTarg(k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
132 |
GAD_U3C4_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
133 |
GAD_U3C4_IMPL_R |
c5d(i,j,k-1) = c5d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
135 |
GAD_U3C4_IMPL_R |
& *deltaTarg(k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
136 |
GAD_U3C4_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
137 |
GAD_U3C4_IMPL_R |
d5d(i,j,k-1) = d5d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
139 |
GAD_U3C4_IMPL_R |
& *deltaTarg(k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
140 |
GAD_U3C4_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
141 |
GAD_U3C4_IMPL_R |
e5d(i,j,k-1) = e5d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
143 |
GAD_U3C4_IMPL_R |
& *deltaTarg(k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
144 |
GAD_U3C4_IMPL_R |
& *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
49 |
GAD_U3C4_IMPL_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
78 |
GAD_U3C4_IMPL_R |
IF ( k.GT.1 .AND. k.LE.Nr ) THEN |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
80 |
GAD_U3C4_IMPL_R |
km2=MAX(1,k-2) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
81 |
GAD_U3C4_IMPL_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
84 |
GAD_U3C4_IMPL_R |
IF ( k.LE.2 ) maskM2 = 0. _d 0 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
85 |
GAD_U3C4_IMPL_R |
IF ( k.GE.Nr) maskP1 = 0. _d 0 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
87 |
GAD_U3C4_IMPL_R |
& .AND. k.GT.2 .AND. k.LT.Nr |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
90 |
GAD_U3C4_IMPL_R |
deltaTcfl = deltaTarg(k) |
|
./pkg/ggl90/ggl90_calc.F |
135 |
GGL90_CALC |
DO k = 1, Nr |
|
./pkg/ggl90/ggl90_calc.F |
138 |
GGL90_CALC |
KappaE(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
139 |
GGL90_CALC |
TKEPrandtlNumber(i,j,k) = 1. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
140 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = GGL90mixingLengthMin |
|
./pkg/ggl90/ggl90_calc.F |
141 |
GGL90_CALC |
GGL90visctmp(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
157 |
GGL90_CALC |
DO k = 2, Nr |
|
./pkg/ggl90/ggl90_calc.F |
158 |
GGL90_CALC |
km1 = k-1 |
|
./pkg/ggl90/ggl90_calc.F |
161 |
GGL90_CALC |
I iMin, iMax, jMin, jMax, k, |
|
./pkg/ggl90/ggl90_calc.F |
167 |
GGL90_CALC |
I iMin, iMax, jMin, jMax, k, |
|
./pkg/ggl90/ggl90_calc.F |
168 |
GGL90_CALC |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ggl90/ggl90_calc.F |
170 |
GGL90_CALC |
I k, bi, bj, myThid ) |
|
./pkg/ggl90/ggl90_calc.F |
173 |
GGL90_CALC |
SQRTTKE(i,j,k)=SQRT( GGL90TKE(i,j,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
176 |
GGL90_CALC |
Nsquare(i,j,k) = - gravity*recip_rhoConst*recip_drC(k) |
|
./pkg/ggl90/ggl90_calc.F |
177 |
GGL90_CALC |
& * ( rhoKm1(i,j) - rhoK(i,j) )*maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
192 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = SQRTTWO * |
|
./pkg/ggl90/ggl90_calc.F |
193 |
GGL90_CALC |
& SQRTTKE(i,j,k)/SQRT( MAX(Nsquare(i,j,k),GGL90eps) ) |
|
./pkg/ggl90/ggl90_calc.F |
201 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
205 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
211 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
214 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MAX(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
216 |
GGL90_CALC |
rMixingLength(i,j,k) = 1. _d 0 / GGL90mixingLength(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
223 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
226 |
GGL90_CALC |
MaxLength=MIN(Ro_surf(i,j,bi,bj)-rF(k),rF(k)-R_low(i,j,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
228 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
234 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
237 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MAX(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
239 |
GGL90_CALC |
rMixingLength(i,j,k) = 1. _d 0 / GGL90mixingLength(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
253 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
256 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
257 |
GGL90_CALC |
& GGL90mixingLength(i,j,k-1)+drF(k-1)) |
|
./pkg/ggl90/ggl90_calc.F |
267 |
GGL90_CALC |
DO k=Nr-1,2,-1 |
|
./pkg/ggl90/ggl90_calc.F |
270 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
271 |
GGL90_CALC |
& GGL90mixingLength(i,j,k+1)+drF(k)) |
|
./pkg/ggl90/ggl90_calc.F |
276 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
279 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MAX(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
281 |
GGL90_CALC |
rMixingLength(i,j,k) = 1. _d 0 / GGL90mixingLength(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
288 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
291 |
GGL90_CALC |
mxLength_Dn(i,j,k) = MIN(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
292 |
GGL90_CALC |
& mxLength_Dn(i,j,k-1)+drF(k-1)) |
|
./pkg/ggl90/ggl90_calc.F |
302 |
GGL90_CALC |
DO k=Nr-1,2,-1 |
|
./pkg/ggl90/ggl90_calc.F |
305 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
306 |
GGL90_CALC |
& GGL90mixingLength(i,j,k+1)+drF(k)) |
|
./pkg/ggl90/ggl90_calc.F |
311 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
314 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
315 |
GGL90_CALC |
& mxLength_Dn(i,j,k)) |
|
./pkg/ggl90/ggl90_calc.F |
316 |
GGL90_CALC |
tmpmlx = SQRT( GGL90mixingLength(i,j,k)*mxLength_Dn(i,j,k) ) |
|
./pkg/ggl90/ggl90_calc.F |
318 |
GGL90_CALC |
rMixingLength(i,j,k) = 1. _d 0 / tmpmlx |
|
./pkg/ggl90/ggl90_calc.F |
338 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
339 |
GGL90_CALC |
km1 = k-1 |
|
./pkg/ggl90/ggl90_calc.F |
349 |
GGL90_CALC |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
351 |
GGL90_CALC |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
361 |
GGL90_CALC |
& *(GGL90TKE(i,j,k,bi,bj)-GGL90TKE(i-1,j,k,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
373 |
GGL90_CALC |
& *(GGL90TKE(i,j,k,bi,bj)-GGL90TKE(i,j-1,k,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
383 |
GGL90_CALC |
& -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)*recip_rA(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
397 |
GGL90_CALC |
& -( uVel(i,j,k ,bi,bj)+uVel(i+1,j,k ,bi,bj)) ) |
|
./pkg/ggl90/ggl90_calc.F |
398 |
GGL90_CALC |
& *recip_drC(k) |
|
./pkg/ggl90/ggl90_calc.F |
400 |
GGL90_CALC |
& -( vVel(i,j,k ,bi,bj)+vVel(i,j+1,k ,bi,bj)) ) |
|
./pkg/ggl90/ggl90_calc.F |
401 |
GGL90_CALC |
& *recip_drC(k) |
|
./pkg/ggl90/ggl90_calc.F |
403 |
GGL90_CALC |
RiNumber = MAX(Nsquare(i,j,k),0. _d 0)/(verticalShear+GGL90eps) |
|
./pkg/ggl90/ggl90_calc.F |
407 |
GGL90_CALC |
TKEPrandtlNumber(i,j,k) = MIN(10. _d 0,prTemp) |
|
./pkg/ggl90/ggl90_calc.F |
411 |
GGL90_CALC |
KappaM = GGL90ck*GGL90mixingLength(i,j,k)*SQRTTKE(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
412 |
GGL90_CALC |
GGL90visctmp(i,j,k) = MAX(KappaM,diffKrNrT(k)) |
|
./pkg/ggl90/ggl90_calc.F |
413 |
GGL90_CALC |
& * maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
416 |
GGL90_CALC |
KappaM = MAX(KappaM,viscArNr(k)) * maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
417 |
GGL90_CALC |
KappaH = KappaM/TKEPrandtlNumber(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
418 |
GGL90_CALC |
KappaE(i,j,k) = GGL90alpha * KappaM * maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
422 |
GGL90_CALC |
& *SQRTTKE(i,j,k)*rMixingLength(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
423 |
GGL90_CALC |
& *GGL90TKE(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
425 |
GGL90_CALC |
GGL90TKE(i,j,k,bi,bj) = GGL90TKE(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
428 |
GGL90_CALC |
& - KappaH*Nsquare(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
439 |
GGL90_CALC |
GGL90TKE(i,j,k,bi,bj) = GGL90TKE(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
460 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
461 |
GGL90_CALC |
km1=MAX(2,k-1) |
|
./pkg/ggl90/ggl90_calc.F |
467 |
GGL90_CALC |
a(i,j,k) = -deltaTggl90 |
|
./pkg/ggl90/ggl90_calc.F |
468 |
GGL90_CALC |
& *recip_drF(k-1)*recip_hFacC(i,j,k-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
469 |
GGL90_CALC |
& *.5 _d 0*(KappaE(i,j, k )+KappaE(i,j,km1)) |
|
./pkg/ggl90/ggl90_calc.F |
470 |
GGL90_CALC |
& *recip_drC(k)*maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
480 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
483 |
GGL90_CALC |
kp1=MAX(1,MIN(klowC(i,j,bi,bj),k+1)) |
|
./pkg/ggl90/ggl90_calc.F |
487 |
GGL90_CALC |
c(i,j,k) = -deltaTggl90 |
|
./pkg/ggl90/ggl90_calc.F |
488 |
GGL90_CALC |
& *recip_drF( k ) * recip_hFacC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
489 |
GGL90_CALC |
& *.5 _d 0*(KappaE(i,j,k)+KappaE(i,j,kp1)) |
|
./pkg/ggl90/ggl90_calc.F |
490 |
GGL90_CALC |
& *recip_drC(k)*maskC(i,j,k-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
495 |
GGL90_CALC |
DO k=1,Nr |
|
./pkg/ggl90/ggl90_calc.F |
496 |
GGL90_CALC |
km1 = MAX(k-1,1) |
|
./pkg/ggl90/ggl90_calc.F |
499 |
GGL90_CALC |
b(i,j,k) = 1. _d 0 - c(i,j,k) - a(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
500 |
GGL90_CALC |
& + implDissFac*deltaTggl90*GGL90ceps*SQRTTKE(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
501 |
GGL90_CALC |
& * rMixingLength(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
502 |
GGL90_CALC |
& * maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
540 |
GGL90_CALC |
DO k=1,Nr |
|
./pkg/ggl90/ggl90_calc.F |
544 |
GGL90_CALC |
GGL90TKE(i,j,k,bi,bj) = maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
545 |
GGL90_CALC |
& *MAX( GGL90TKE(i,j,k,bi,bj), GGL90TKEmin ) |
|
./pkg/ggl90/ggl90_calc.F |
553 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
559 |
GGL90_CALC |
& p4 * GGL90visctmp(i ,j ,k) * mskCor(i ,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
560 |
GGL90_CALC |
& +p8 *( GGL90visctmp(i-1,j ,k) * mskCor(i-1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
561 |
GGL90_CALC |
& + GGL90visctmp(i ,j-1,k) * mskCor(i ,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
562 |
GGL90_CALC |
& + GGL90visctmp(i+1,j ,k) * mskCor(i+1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
563 |
GGL90_CALC |
& + GGL90visctmp(i ,j+1,k) * mskCor(i ,j+1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
564 |
GGL90_CALC |
& +p16*( GGL90visctmp(i+1,j+1,k) * mskCor(i+1,j+1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
565 |
GGL90_CALC |
& + GGL90visctmp(i+1,j-1,k) * mskCor(i+1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
566 |
GGL90_CALC |
& + GGL90visctmp(i-1,j+1,k) * mskCor(i-1,j+1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
567 |
GGL90_CALC |
& + GGL90visctmp(i-1,j-1,k) * mskCor(i-1,j-1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
570 |
GGL90_CALC |
& +p8 *( maskC(i-1,j ,k,bi,bj) * mskCor(i-1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
571 |
GGL90_CALC |
& + maskC(i ,j-1,k,bi,bj) * mskCor(i ,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
572 |
GGL90_CALC |
& + maskC(i+1,j ,k,bi,bj) * mskCor(i+1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
573 |
GGL90_CALC |
& + maskC(i ,j+1,k,bi,bj) * mskCor(i ,j+1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
574 |
GGL90_CALC |
& +p16*( maskC(i+1,j+1,k,bi,bj) * mskCor(i+1,j+1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
575 |
GGL90_CALC |
& + maskC(i+1,j-1,k,bi,bj) * mskCor(i+1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
576 |
GGL90_CALC |
& + maskC(i-1,j+1,k,bi,bj) * mskCor(i-1,j+1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
577 |
GGL90_CALC |
& + maskC(i-1,j-1,k,bi,bj) * mskCor(i-1,j-1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
578 |
GGL90_CALC |
& )*maskC(i,j,k,bi,bj)*mskCor(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
580 |
GGL90_CALC |
tmpVisc = GGL90visctmp(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
582 |
GGL90_CALC |
tmpVisc = MIN(tmpVisc/TKEPrandtlNumber(i,j,k),GGL90diffMax) |
|
./pkg/ggl90/ggl90_calc.F |
583 |
GGL90_CALC |
GGL90diffKr(i,j,k,bi,bj)= MAX( tmpVisc , diffKrNrT(k) ) |
|
./pkg/ggl90/ggl90_calc.F |
588 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
594 |
GGL90_CALC |
& p4 *(GGL90visctmp(i ,j ,k) * mskCor(i ,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
595 |
GGL90_CALC |
& +GGL90visctmp(i-1,j ,k) * mskCor(i-1,j ,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
596 |
GGL90_CALC |
& +p8 *(GGL90visctmp(i-1,j-1,k) * mskCor(i-1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
597 |
GGL90_CALC |
& +GGL90visctmp(i-1,j+1,k) * mskCor(i-1,j+1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
598 |
GGL90_CALC |
& +GGL90visctmp(i ,j-1,k) * mskCor(i ,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
599 |
GGL90_CALC |
& +GGL90visctmp(i ,j+1,k) * mskCor(i ,j+1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
602 |
GGL90_CALC |
& +p8 *( maskC(i-1,j-1,k,bi,bj) * mskCor(i-1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
603 |
GGL90_CALC |
& + maskC(i-1,j+1,k,bi,bj) * mskCor(i-1,j+1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
604 |
GGL90_CALC |
& + maskC(i ,j-1,k,bi,bj) * mskCor(i ,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
605 |
GGL90_CALC |
& + maskC(i ,j+1,k,bi,bj) * mskCor(i ,j+1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
607 |
GGL90_CALC |
& *maskC(i ,j,k,bi,bj)*mskCor(i ,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
608 |
GGL90_CALC |
& *maskC(i-1,j,k,bi,bj)*mskCor(i-1,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
610 |
GGL90_CALC |
tmpVisc = _maskW(i,j,k,bi,bj) * |
|
./pkg/ggl90/ggl90_calc.F |
611 |
GGL90_CALC |
& (.5 _d 0*(GGL90visctmp(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
612 |
GGL90_CALC |
& +GGL90visctmp(i-1,j,k)) |
|
./pkg/ggl90/ggl90_calc.F |
616 |
GGL90_CALC |
GGL90viscArU(i,j,k,bi,bj) = MAX( tmpVisc, viscArNr(k) ) |
|
./pkg/ggl90/ggl90_calc.F |
621 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
627 |
GGL90_CALC |
& p4 *(GGL90visctmp(i ,j ,k) * mskCor(i ,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
628 |
GGL90_CALC |
& +GGL90visctmp(i ,j-1,k) * mskCor(i ,j-1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
629 |
GGL90_CALC |
& +p8 *(GGL90visctmp(i-1,j ,k) * mskCor(i-1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
630 |
GGL90_CALC |
& +GGL90visctmp(i-1,j-1,k) * mskCor(i-1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
631 |
GGL90_CALC |
& +GGL90visctmp(i+1,j ,k) * mskCor(i+1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
632 |
GGL90_CALC |
& +GGL90visctmp(i+1,j-1,k) * mskCor(i+1,j-1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
635 |
GGL90_CALC |
& +p8 *( maskC(i-1,j ,k,bi,bj) * mskCor(i-1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
636 |
GGL90_CALC |
& + maskC(i-1,j-1,k,bi,bj) * mskCor(i-1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
637 |
GGL90_CALC |
& + maskC(i+1,j ,k,bi,bj) * mskCor(i+1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
638 |
GGL90_CALC |
& + maskC(i+1,j-1,k,bi,bj) * mskCor(i+1,j-1,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
640 |
GGL90_CALC |
& *maskC(i,j ,k,bi,bj)*mskCor(i,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
641 |
GGL90_CALC |
& *maskC(i,j-1,k,bi,bj)*mskCor(i,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
643 |
GGL90_CALC |
tmpVisc = _maskS(i,j,k,bi,bj) * |
|
./pkg/ggl90/ggl90_calc.F |
644 |
GGL90_CALC |
& (.5 _d 0*(GGL90visctmp(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
645 |
GGL90_CALC |
& +GGL90visctmp(i,j-1,k)) |
|
./pkg/ggl90/ggl90_calc.F |
650 |
GGL90_CALC |
GGL90viscArV(i,j,k,bi,bj) = MAX( tmpVisc, viscArNr(k) ) |
|
./pkg/ggl90/ggl90_calc.F |
77 |
GGL90_CALC |
INTEGER i, j, k, kp1, km1, kSurf, kBottom |
|
./pkg/ggl90/ggl90_calc_diff.F |
45 |
GGL90_CALC_DIFF |
INTEGER i,j,k |
|
./pkg/ggl90/ggl90_calc_diff.F |
50 |
GGL90_CALC_DIFF |
DO k=1,MIN(Nr,kSize) |
|
./pkg/ggl90/ggl90_calc_diff.F |
53 |
GGL90_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k) |
|
./pkg/ggl90/ggl90_calc_diff.F |
54 |
GGL90_CALC_DIFF |
& +( GGL90diffKr(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc_diff.F |
55 |
GGL90_CALC_DIFF |
& - diffKrNrT(k) ) |
|
./pkg/ggl90/ggl90_calc_diff.F |
61 |
GGL90_CALC_DIFF |
k = MIN(kArg,kSize) |
|
./pkg/ggl90/ggl90_calc_diff.F |
64 |
GGL90_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k) |
|
./pkg/ggl90/ggl90_calc_visc.F |
49 |
GGL90_CALC_VISC |
KappaRU(i,j,k) = KappaRU(i,j,k) + |
|
./pkg/ggl90/ggl90_calc_visc.F |
50 |
GGL90_CALC_VISC |
& (GGL90viscArU(i,j,k,bi,bj) - viscArNr(k) ) |
|
./pkg/ggl90/ggl90_calc_visc.F |
56 |
GGL90_CALC_VISC |
KappaRV(i,j,k) = KappaRV(i,j,k) + _maskS(i,j,k,bi,bj) * |
|
./pkg/ggl90/ggl90_calc_visc.F |
57 |
GGL90_CALC_VISC |
& (GGL90viscArV(i,j,k,bi,bj) - viscArNr(k) ) |
|
./pkg/gmredi/gmredi_calc_diff.F |
49 |
GMREDI_CALC_DIFF |
INTEGER i,j,k |
|
./pkg/gmredi/gmredi_calc_diff.F |
54 |
GMREDI_CALC_DIFF |
DO k=1,MIN(Nr,kSize) |
|
./pkg/gmredi/gmredi_calc_diff.F |
58 |
GMREDI_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_diff.F |
61 |
GMREDI_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k)+LS_Kwz(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_diff.F |
63 |
GMREDI_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_diff.F |
71 |
GMREDI_CALC_DIFF |
k = MIN(kArg,kSize) |
|
./pkg/gmredi/gmredi_calc_diff.F |
75 |
GMREDI_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,kArg,bi,bj) |
|
./pkg/gmredi/gmredi_calc_diff.F |
78 |
GMREDI_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k)+LS_Kwz(i,j,kArg,bi,bj) |
|
./pkg/gmredi/gmredi_calc_diff.F |
80 |
GMREDI_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,kArg,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
103 |
GMREDI_CALC_PSI_B |
SlopeY(i,j)=op5*( sigmaY(i,j,km1)+sigmaY(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
104 |
GMREDI_CALC_PSI_B |
& *maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
105 |
GMREDI_CALC_PSI_B |
dSigmaDrS(i,j)=op5*( sigmaR(i,j-1,k)+sigmaR(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
106 |
GMREDI_CALC_PSI_B |
& *maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
115 |
GMREDI_CALC_PSI_B |
I ldd97_LrhoW, ldd97_LrhoS, rF(k), k, |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
128 |
GMREDI_CALC_PSI_B |
GM_PsiX(i,j,k,bi,bj) = SlopeX(i,j)*taperX(i,j) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
130 |
GMREDI_CALC_PSI_B |
& *( kapgm(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
137 |
GMREDI_CALC_PSI_B |
& )*maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
139 |
GMREDI_CALC_PSI_B |
& +eddyPsiX(i,j,k,bi,bj)*maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
145 |
GMREDI_CALC_PSI_B |
GM_PsiY(i,j,k,bi,bj) = SlopeY(i,j)*taperY(i,j) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
147 |
GMREDI_CALC_PSI_B |
& *( kapgm(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
154 |
GMREDI_CALC_PSI_B |
& )*maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
156 |
GMREDI_CALC_PSI_B |
& +eddyPsiY(i,j,k,bi,bj)*maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
48 |
GMREDI_CALC_PSI_B |
INTEGER i,j,k, km1 |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
77 |
GMREDI_CALC_PSI_B |
DO k=2,Nr |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
78 |
GMREDI_CALC_PSI_B |
km1 = k-1 |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
81 |
GMREDI_CALC_PSI_B |
kkey = (igmkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
95 |
GMREDI_CALC_PSI_B |
SlopeX(i,j)=op5*( sigmaX(i,j,km1)+sigmaX(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
96 |
GMREDI_CALC_PSI_B |
& *maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
97 |
GMREDI_CALC_PSI_B |
dSigmaDrW(i,j)=op5*( sigmaR(i-1,j,k)+sigmaR(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
98 |
GMREDI_CALC_PSI_B |
& *maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
239 |
GMREDI_CALC_TENSOR |
DO k=Nr,2,-1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
242 |
GMREDI_CALC_TENSOR |
kkey = (igmkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_calc_tensor.F |
252 |
GMREDI_CALC_TENSOR |
Kwx(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
253 |
GMREDI_CALC_TENSOR |
Kwy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
254 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
256 |
GMREDI_CALC_TENSOR |
Kux(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
257 |
GMREDI_CALC_TENSOR |
Kvy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
260 |
GMREDI_CALC_TENSOR |
Kuz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
261 |
GMREDI_CALC_TENSOR |
Kvz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
264 |
GMREDI_CALC_TENSOR |
GM_PsiX(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
265 |
GMREDI_CALC_TENSOR |
GM_PsiY(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
274 |
GMREDI_CALC_TENSOR |
dSigmaDx(i,j)=op25*( sigmaX(i+1,j,k-1)+sigmaX(i,j,k-1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
275 |
GMREDI_CALC_TENSOR |
& +sigmaX(i+1,j, k )+sigmaX(i,j, k ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
276 |
GMREDI_CALC_TENSOR |
& )*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
277 |
GMREDI_CALC_TENSOR |
dSigmaDy(i,j)=op25*( sigmaY(i,j+1,k-1)+sigmaY(i,j,k-1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
278 |
GMREDI_CALC_TENSOR |
& +sigmaY(i,j+1, k )+sigmaY(i,j, k ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
279 |
GMREDI_CALC_TENSOR |
& )*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
287 |
GMREDI_CALC_TENSOR |
& -rC(k-1).LT.GM_Visbeck_depth ) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
291 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j) = MIN( sigmaR(i,j,k), 0. _d 0 ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
305 |
GMREDI_CALC_TENSOR |
IF ( maskC(i,j,k,bi,bj).NE.0. ) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
312 |
GMREDI_CALC_TENSOR |
deltaH = integrDepth + rC(k-1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
316 |
GMREDI_CALC_TENSOR |
deltaH = MIN( deltaH, drC(k) ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
329 |
GMREDI_CALC_TENSOR |
& + maskC(i-1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
330 |
GMREDI_CALC_TENSOR |
& + maskC(i+1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
331 |
GMREDI_CALC_TENSOR |
& + maskC(i,j-1,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
332 |
GMREDI_CALC_TENSOR |
& + maskC(i,j+1,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
367 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j)=sigmaR(i,j,k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
389 |
GMREDI_CALC_TENSOR |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
394 |
GMREDI_CALC_TENSOR |
SlopeX(i,j)=SlopeX(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
395 |
GMREDI_CALC_TENSOR |
SlopeY(i,j)=SlopeY(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
396 |
GMREDI_CALC_TENSOR |
SlopeSqr(i,j)=SlopeSqr(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
411 |
GMREDI_CALC_TENSOR |
Kwx(i,j,k,bi,bj)= SlopeX(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
412 |
GMREDI_CALC_TENSOR |
Kwy(i,j,k,bi,bj)= SlopeY(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
413 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj)= SlopeSqr(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
431 |
GMREDI_CALC_TENSOR |
deltaH=abs(GM_Visbeck_depth)-abs(rF(k)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
433 |
GMREDI_CALC_TENSOR |
integrDepth = drF(k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
479 |
GMREDI_CALC_TENSOR |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_tensor.F |
481 |
GMREDI_CALC_TENSOR |
kkey = (igmkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_calc_tensor.F |
492 |
GMREDI_CALC_TENSOR |
Kgm_tmp = kapredi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
497 |
GMREDI_CALC_TENSOR |
& + GM_skewflx*kapgm(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
504 |
GMREDI_CALC_TENSOR |
Kwx(i,j,k,bi,bj)= Kgm_tmp*Kwx(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
505 |
GMREDI_CALC_TENSOR |
Kwy(i,j,k,bi,bj)= Kgm_tmp*Kwy(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
507 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj)= ( kapredi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
509 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj)= ( GM_isopycK |
|
./pkg/gmredi/gmredi_calc_tensor.F |
514 |
GMREDI_CALC_TENSOR |
& )*Kwz(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
562 |
GMREDI_CALC_TENSOR |
DO k=Nr,1,-1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
563 |
GMREDI_CALC_TENSOR |
kp1 = MIN(Nr,k+1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
565 |
GMREDI_CALC_TENSOR |
IF (k.GE.Nr) maskp1 = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
567 |
GMREDI_CALC_TENSOR |
kkey = (igmkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_calc_tensor.F |
573 |
GMREDI_CALC_TENSOR |
dSigmaDx(i,j)=sigmaX(i,j,k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
574 |
GMREDI_CALC_TENSOR |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
575 |
GMREDI_CALC_TENSOR |
dSigmaDy(i,j)=op25*( sigmaY(i-1,j+1,k)+sigmaY(i,j+1,k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
576 |
GMREDI_CALC_TENSOR |
& +sigmaY(i-1, j ,k)+sigmaY(i, j ,k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
577 |
GMREDI_CALC_TENSOR |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
578 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j)=op25*( sigmaR(i-1,j, k )+sigmaR(i,j, k ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
580 |
GMREDI_CALC_TENSOR |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
604 |
GMREDI_CALC_TENSOR |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
615 |
GMREDI_CALC_TENSOR |
Kux(i,j,k,bi,bj) = |
|
./pkg/gmredi/gmredi_calc_tensor.F |
617 |
GMREDI_CALC_TENSOR |
& ( kapredi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
634 |
GMREDI_CALC_TENSOR |
Kux(i,j,k,bi,bj) = MAX( Kux(i,j,k,bi,bj), GM_Kmin_horiz ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
649 |
GMREDI_CALC_TENSOR |
Kuz(i,j,k,bi,bj) = |
|
./pkg/gmredi/gmredi_calc_tensor.F |
651 |
GMREDI_CALC_TENSOR |
& ( kapredi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
656 |
GMREDI_CALC_TENSOR |
& - GM_skewflx*kapgm(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
66 |
GMREDI_CALC_TENSOR |
INTEGER i,j,k |
|
./pkg/gmredi/gmredi_calc_tensor.F |
671 |
GMREDI_CALC_TENSOR |
km1 = MAX(k-1,1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
676 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = ( kapredi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
690 |
GMREDI_CALC_TENSOR |
& +recip_drC(k)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
691 |
GMREDI_CALC_TENSOR |
& ( maskC(i-1,j,k,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
692 |
GMREDI_CALC_TENSOR |
& (theta(i-1,j,km1,bi,bj)-theta(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
693 |
GMREDI_CALC_TENSOR |
& +maskC( i ,j,k,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
694 |
GMREDI_CALC_TENSOR |
& (theta( i ,j,km1,bi,bj)-theta( i ,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
698 |
GMREDI_CALC_TENSOR |
& (theta(i-1,j,k,bi,bj)-theta(i-1,j,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
700 |
GMREDI_CALC_TENSOR |
& (theta( i ,j,k,bi,bj)-theta( i ,j,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
702 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = dyG(i,j,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
703 |
GMREDI_CALC_TENSOR |
& * _hFacW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
707 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(tmp1k, 'GM_KuzTz', k,1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
750 |
GMREDI_CALC_TENSOR |
DO k=Nr,1,-1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
751 |
GMREDI_CALC_TENSOR |
kp1 = MIN(Nr,k+1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
753 |
GMREDI_CALC_TENSOR |
IF (k.GE.Nr) maskp1 = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
755 |
GMREDI_CALC_TENSOR |
kkey = (igmkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_calc_tensor.F |
760 |
GMREDI_CALC_TENSOR |
dSigmaDx(i,j)=op25*( sigmaX(i, j ,k) +sigmaX(i+1, j ,k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
761 |
GMREDI_CALC_TENSOR |
& +sigmaX(i,j-1,k) +sigmaX(i+1,j-1,k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
762 |
GMREDI_CALC_TENSOR |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
763 |
GMREDI_CALC_TENSOR |
dSigmaDy(i,j)=sigmaY(i,j,k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
764 |
GMREDI_CALC_TENSOR |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
765 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j)=op25*( sigmaR(i,j-1, k )+sigmaR(i,j, k ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
767 |
GMREDI_CALC_TENSOR |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
789 |
GMREDI_CALC_TENSOR |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
803 |
GMREDI_CALC_TENSOR |
Kvy(i,j,k,bi,bj) = |
|
./pkg/gmredi/gmredi_calc_tensor.F |
805 |
GMREDI_CALC_TENSOR |
& ( kapredi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
822 |
GMREDI_CALC_TENSOR |
Kvy(i,j,k,bi,bj) = MAX( Kvy(i,j,k,bi,bj), GM_Kmin_horiz ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
837 |
GMREDI_CALC_TENSOR |
Kvz(i,j,k,bi,bj) = |
|
./pkg/gmredi/gmredi_calc_tensor.F |
839 |
GMREDI_CALC_TENSOR |
& ( kapredi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
844 |
GMREDI_CALC_TENSOR |
& - GM_skewflx*kapgm(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
859 |
GMREDI_CALC_TENSOR |
km1 = MAX(k-1,1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
864 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = ( kapredi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
878 |
GMREDI_CALC_TENSOR |
& +recip_drC(k)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
879 |
GMREDI_CALC_TENSOR |
& ( maskC(i,j-1,k,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
880 |
GMREDI_CALC_TENSOR |
& (theta(i,j-1,km1,bi,bj)-theta(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
881 |
GMREDI_CALC_TENSOR |
& +maskC(i, j ,k,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
882 |
GMREDI_CALC_TENSOR |
& (theta(i, j ,km1,bi,bj)-theta(i, j ,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
886 |
GMREDI_CALC_TENSOR |
& (theta(i,j-1,k,bi,bj)-theta(i,j-1,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
888 |
GMREDI_CALC_TENSOR |
& (theta(i, j ,k,bi,bj)-theta(i, j ,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
890 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = dxG(i,j,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
891 |
GMREDI_CALC_TENSOR |
& * _hFacS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
895 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(tmp1k, 'GM_KvzTz', k,1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
987 |
GMREDI_CALC_TENSOR_DUMMY |
INTEGER i, j, k |
|
./pkg/gmredi/gmredi_calc_tensor.F |
989 |
GMREDI_CALC_TENSOR_DUMMY |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_tensor.F |
992 |
GMREDI_CALC_TENSOR_DUMMY |
Kwx(i,j,k,bi,bj) = 0.0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
993 |
GMREDI_CALC_TENSOR_DUMMY |
Kwy(i,j,k,bi,bj) = 0.0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
994 |
GMREDI_CALC_TENSOR_DUMMY |
Kwz(i,j,k,bi,bj) = 0.0 |
|
./model/inc/RECIP_HFACC_MACROS.h |
36 |
NO PROCEDURE |
# define _recip_hFacC(i,j,k,bi,bj) recip_hFacC(i,j,k,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
11 |
GMREDI_CALC_UVFLOW |
I k, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
34 |
GMREDI_CALC_UVFLOW |
INTEGER k, bi, bj, myThid |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
55 |
GMREDI_CALC_UVFLOW |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
57 |
GMREDI_CALC_UVFLOW |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
61 |
GMREDI_CALC_UVFLOW |
& - GM_PsiX(i,j, k, bi,bj) |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
63 |
GMREDI_CALC_UVFLOW |
& + delPsi*recip_drF(k)*_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
65 |
GMREDI_CALC_UVFLOW |
& + dyG(i,j,bi,bj)*delPsi*maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
71 |
GMREDI_CALC_UVFLOW |
& - GM_PsiY(i,j, k, bi,bj) |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
73 |
GMREDI_CALC_UVFLOW |
& + delPsi*recip_drF(k)*_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
75 |
GMREDI_CALC_UVFLOW |
& + dxG(i,j,bi,bj)*delPsi*maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_wflow.F |
11 |
GMREDI_CALC_WFLOW |
I k, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_wflow.F |
34 |
GMREDI_CALC_WFLOW |
INTEGER k, bi, bj, myThid |
|
./pkg/gmredi/gmredi_calc_wflow.F |
51 |
GMREDI_CALC_WFLOW |
delPsi = ( dyG(i+1,j,bi,bj)*GM_PsiX(i+1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_wflow.F |
52 |
GMREDI_CALC_WFLOW |
& -dyG( i ,j,bi,bj)*GM_PsiX( i ,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_wflow.F |
53 |
GMREDI_CALC_WFLOW |
& +dxG(i,j+1,bi,bj)*GM_PsiY(i,j+1,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_wflow.F |
54 |
GMREDI_CALC_WFLOW |
& -dxG(i, j ,bi,bj)*GM_PsiY(i, j ,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_wflow.F |
55 |
GMREDI_CALC_WFLOW |
& )*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
39 |
GMREDI_DIAGNOSTICS_FILL |
INTEGER i,j,k |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
76 |
GMREDI_DIAGNOSTICS_FILL |
DO k = 1, Nr |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
79 |
GMREDI_DIAGNOSTICS_FILL |
tmpfld3dloc(i,j,k,bi,bj) = |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
81 |
GMREDI_DIAGNOSTICS_FILL |
& Kwy(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
90 |
GMREDI_DIAGNOSTICS_FILL |
DO k = 1, Nr |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
93 |
GMREDI_DIAGNOSTICS_FILL |
tmpfld3dloc(i,j,k,bi,bj) = |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
95 |
GMREDI_DIAGNOSTICS_FILL |
& Kwx(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_init_varia.F |
38 |
GMREDI_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/gmredi/gmredi_init_varia.F |
44 |
GMREDI_INIT_VARIA |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_init_varia.F |
47 |
GMREDI_INIT_VARIA |
Kwx(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
48 |
GMREDI_INIT_VARIA |
Kwy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
49 |
GMREDI_INIT_VARIA |
Kwz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
51 |
GMREDI_INIT_VARIA |
Kuz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
52 |
GMREDI_INIT_VARIA |
Kvz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
55 |
GMREDI_INIT_VARIA |
Kux(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
56 |
GMREDI_INIT_VARIA |
Kvy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
59 |
GMREDI_INIT_VARIA |
GM_PsiX(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
60 |
GMREDI_INIT_VARIA |
GM_PsiY(i,j,k,bi,bj) = 0. _d 0 |
|
./model/inc/RECIP_HFACS_MACROS.h |
36 |
NO PROCEDURE |
# define _recip_hFacS(i,j,k,bi,bj) recip_hFacS(i,j,k,bi,bj)*maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
101 |
GMREDI_RTRANSPORT |
& (Tracer(i,j,k-1,bi,bj)-Tracer(i-1,j,k-1,bi,bj))) |
|
./pkg/gmredi/gmredi_rtransport.F |
105 |
GMREDI_RTRANSPORT |
& +op5*(_maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
107 |
GMREDI_RTRANSPORT |
& (Tracer(i,j,k,bi,bj)-Tracer(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_rtransport.F |
108 |
GMREDI_RTRANSPORT |
& +_maskS(i,j+1,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
110 |
GMREDI_RTRANSPORT |
& (Tracer(i,j+1,k,bi,bj)-Tracer(i,j,k,bi,bj))) |
|
./pkg/gmredi/gmredi_rtransport.F |
111 |
GMREDI_RTRANSPORT |
& +op5*(_maskS(i,j,k-1,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
113 |
GMREDI_RTRANSPORT |
& (Tracer(i,j,k-1,bi,bj)-Tracer(i,j-1,k-1,bi,bj)) |
|
./pkg/gmredi/gmredi_rtransport.F |
114 |
GMREDI_RTRANSPORT |
& +_maskS(i,j+1,k-1,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
116 |
GMREDI_RTRANSPORT |
& (Tracer(i,j+1,k-1,bi,bj)-Tracer(i,j,k-1,bi,bj))) |
|
./pkg/gmredi/gmredi_rtransport.F |
134 |
GMREDI_RTRANSPORT |
& *( Kwx(i,j,k,bi,bj)*dTdx(i,j)+Kwy(i,j,k,bi,bj)*dTdy(i,j) ) |
|
./pkg/gmredi/gmredi_rtransport.F |
139 |
GMREDI_RTRANSPORT |
& *(LS_Kwx(i,j,k,bi,bj)*dTdx(i,j)+LS_Kwy(i,j,k,bi,bj)*dTdy(i,j)) |
|
./pkg/gmredi/gmredi_rtransport.F |
141 |
GMREDI_RTRANSPORT |
& *( Kwx(i,j,k,bi,bj)*dTdx(i,j)+Kwy(i,j,k,bi,bj)*dTdy(i,j) ) |
|
./pkg/gmredi/gmredi_rtransport.F |
153 |
GMREDI_RTRANSPORT |
& dyG(i+1,j,bi,bj)*GM_PsiX(i+1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
154 |
GMREDI_RTRANSPORT |
& -dyG( i ,j,bi,bj)*GM_PsiX( i ,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
155 |
GMREDI_RTRANSPORT |
& +dxG(i,j+1,bi,bj)*GM_PsiY(i,j+1,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
156 |
GMREDI_RTRANSPORT |
& -dxG(i, j ,bi,bj)*GM_PsiY(i, j ,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
167 |
GMREDI_RTRANSPORT |
& *(Tracer(i,j,k,bi,bj)+Tracer(i,j,k-1,bi,bj)) |
|
./pkg/gmredi/gmredi_rtransport.F |
44 |
GMREDI_RTRANSPORT |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k |
|
./pkg/gmredi/gmredi_rtransport.F |
76 |
GMREDI_RTRANSPORT |
kkey = (igadkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_rtransport.F |
90 |
GMREDI_RTRANSPORT |
& +op5*(_maskW(i+1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
92 |
GMREDI_RTRANSPORT |
& (Tracer(i+1,j,k,bi,bj)-Tracer(i,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_rtransport.F |
93 |
GMREDI_RTRANSPORT |
& +_maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
95 |
GMREDI_RTRANSPORT |
& (Tracer(i,j,k,bi,bj)-Tracer(i-1,j,k,bi,bj))) |
|
./pkg/gmredi/gmredi_rtransport.F |
96 |
GMREDI_RTRANSPORT |
& +op5*(_maskW(i+1,j,k-1,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
98 |
GMREDI_RTRANSPORT |
& (Tracer(i+1,j,k-1,bi,bj)-Tracer(i,j,k-1,bi,bj)) |
|
./pkg/gmredi/gmredi_rtransport.F |
99 |
GMREDI_RTRANSPORT |
& +_maskW(i,j,k-1,bi,bj) |
|
./pkg/gmredi/gmredi_slope_limit.F |
16 |
GMREDI_SLOPE_LIMIT |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
303 |
GMREDI_SLOPE_LIMIT |
IF ( k.GT.kLow(i,j) ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
332 |
GMREDI_SLOPE_LIMIT |
IF ( k.EQ.1 ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
333 |
GMREDI_SLOPE_LIMIT |
minTransLay = GM_facTrL2dz*( depthZ(k) - depthZ(k+1) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
335 |
GMREDI_SLOPE_LIMIT |
minTransLay = GM_facTrL2dz*( depthZ(k-1) - depthZ(k) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
347 |
GMREDI_SLOPE_LIMIT |
IF ( k.GE.kLow(i,j) ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
354 |
GMREDI_SLOPE_LIMIT |
ELSEIF ( dTransLay+hMixLay(i,j)+depthZ(k) .GE. 0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
356 |
GMREDI_SLOPE_LIMIT |
hTransLay(i,j) = -depthZ(k+1) |
|
./pkg/gmredi/gmredi_slope_limit.F |
365 |
GMREDI_SLOPE_LIMIT |
IF ( hMixLay(i,j)+depthZ(k+1).LT.0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
366 |
GMREDI_SLOPE_LIMIT |
rLambMin = 1. _d 0 /( hMixLay(i,j)+depthZ(k+1) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
373 |
GMREDI_SLOPE_LIMIT |
& ) / ( depthZ(k) - depthZ(k+1) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
388 |
GMREDI_SLOPE_LIMIT |
IF ( -depthZ(k).LE.hMixLay(i,j) ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
391 |
GMREDI_SLOPE_LIMIT |
& ( -depthZ(k)/(hTransLay(i,j)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
396 |
GMREDI_SLOPE_LIMIT |
& ( -depthZ(k)/(hTransLay(i,j)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
403 |
GMREDI_SLOPE_LIMIT |
& ( -depthZ(k)/(hTransLay(i,j)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
406 |
GMREDI_SLOPE_LIMIT |
& - ( (depthZ(k)+hMixLay(i,j))*(depthZ(k)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
413 |
GMREDI_SLOPE_LIMIT |
& ( -depthZ(k)/(hTransLay(i,j)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
417 |
GMREDI_SLOPE_LIMIT |
& - ( (depthZ(k)+hMixLay(i,j))*(depthZ(k)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
635 |
GMREDI_SLOPE_LIMIT |
Rnondim= -depthZ(k)/(Lrho(i,j)*Smod) |
|
./pkg/gmredi/gmredi_slope_limit.F |
92 |
GMREDI_SLOPE_LIMIT |
INTEGER k, bi,bj |
|
./pkg/gmredi/gmredi_slope_psi.F |
84 |
GMREDI_SLOPE_PSI |
kkey = (igmkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_xtransport.F |
109 |
GMREDI_XTRANSPORT |
& *Kux(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_xtransport.F |
112 |
GMREDI_XTRANSPORT |
& *(kapredi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_xtransport.F |
122 |
GMREDI_XTRANSPORT |
& *(Tracer(i,j,k,bi,bj)-Tracer(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_xtransport.F |
128 |
GMREDI_XTRANSPORT |
km1 = MAX(k-1,1) |
|
./pkg/gmredi/gmredi_xtransport.F |
129 |
GMREDI_XTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_xtransport.F |
135 |
GMREDI_XTRANSPORT |
& +op5*recip_drC(k)* |
|
./pkg/gmredi/gmredi_xtransport.F |
136 |
GMREDI_XTRANSPORT |
& ( maskC(i-1,j,k,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
137 |
GMREDI_XTRANSPORT |
& (Tracer(i-1,j,km1,bi,bj)-Tracer(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_xtransport.F |
138 |
GMREDI_XTRANSPORT |
& +maskC( i ,j,k,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
139 |
GMREDI_XTRANSPORT |
& (Tracer( i ,j,km1,bi,bj)-Tracer( i ,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_xtransport.F |
143 |
GMREDI_XTRANSPORT |
& (Tracer(i-1,j,k,bi,bj)-Tracer(i-1,j,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_xtransport.F |
145 |
GMREDI_XTRANSPORT |
& (Tracer( i ,j,k,bi,bj)-Tracer( i ,j,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_xtransport.F |
158 |
GMREDI_XTRANSPORT |
df(i,j) = df(i,j) - xA(i,j)*Kuz(i,j,k,bi,bj)*dTdz(i,j) |
|
./pkg/gmredi/gmredi_xtransport.F |
167 |
GMREDI_XTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_xtransport.F |
169 |
GMREDI_XTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_xtransport.F |
173 |
GMREDI_XTRANSPORT |
& -GM_PsiX(i,j,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_xtransport.F |
174 |
GMREDI_XTRANSPORT |
& *maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_xtransport.F |
184 |
GMREDI_XTRANSPORT |
& +uTrans(i,j)*op5*(Tracer(i,j,k,bi,bj)+Tracer(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_xtransport.F |
195 |
GMREDI_XTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_xtransport.F |
197 |
GMREDI_XTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_xtransport.F |
201 |
GMREDI_XTRANSPORT |
& -GM_PsiX(i,j,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_xtransport.F |
202 |
GMREDI_XTRANSPORT |
& *maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_xtransport.F |
203 |
GMREDI_XTRANSPORT |
& *op5*(Tracer(i,j,k,bi,bj)+Tracer(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_xtransport.F |
206 |
GMREDI_XTRANSPORT |
CALL DIAGNOSTICS_FILL(tmp1k,'GM_ubT ', k,1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_xtransport.F |
39 |
GMREDI_XTRANSPORT |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k |
|
./pkg/gmredi/gmredi_xtransport.F |
83 |
GMREDI_XTRANSPORT |
kkey = (igadkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_ytransport.F |
109 |
GMREDI_YTRANSPORT |
& *Kvy(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_ytransport.F |
112 |
GMREDI_YTRANSPORT |
& *(kapredi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_ytransport.F |
122 |
GMREDI_YTRANSPORT |
& *(Tracer(i,j,k,bi,bj)-Tracer(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_ytransport.F |
128 |
GMREDI_YTRANSPORT |
km1 = MAX(k-1,1) |
|
./pkg/gmredi/gmredi_ytransport.F |
129 |
GMREDI_YTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_ytransport.F |
136 |
GMREDI_YTRANSPORT |
& +op5*recip_drC(k)* |
|
./pkg/gmredi/gmredi_ytransport.F |
137 |
GMREDI_YTRANSPORT |
& ( maskC(i,j-1,k,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
138 |
GMREDI_YTRANSPORT |
& (Tracer(i,j-1,km1,bi,bj)-Tracer(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_ytransport.F |
139 |
GMREDI_YTRANSPORT |
& +maskC(i, j ,k,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
140 |
GMREDI_YTRANSPORT |
& (Tracer(i, j ,km1,bi,bj)-Tracer(i, j ,k,bi,bj)) |
|
./pkg/gmredi/gmredi_ytransport.F |
144 |
GMREDI_YTRANSPORT |
& (Tracer(i,j-1,k,bi,bj)-Tracer(i,j-1,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_ytransport.F |
146 |
GMREDI_YTRANSPORT |
& (Tracer(i, j ,k,bi,bj)-Tracer(i, j ,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_ytransport.F |
157 |
GMREDI_YTRANSPORT |
df(i,j) = df(i,j) - yA(i,j)*Kvz(i,j,k,bi,bj)*dTdz(i,j) |
|
./pkg/gmredi/gmredi_ytransport.F |
167 |
GMREDI_YTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_ytransport.F |
169 |
GMREDI_YTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_ytransport.F |
173 |
GMREDI_YTRANSPORT |
& -GM_PsiY(i,j,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_ytransport.F |
174 |
GMREDI_YTRANSPORT |
& *maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_ytransport.F |
184 |
GMREDI_YTRANSPORT |
& +vTrans(i,j)*op5*(Tracer(i,j,k,bi,bj)+Tracer(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_ytransport.F |
194 |
GMREDI_YTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_ytransport.F |
196 |
GMREDI_YTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_ytransport.F |
200 |
GMREDI_YTRANSPORT |
& -GM_PsiY(i,j,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_ytransport.F |
201 |
GMREDI_YTRANSPORT |
& *maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_ytransport.F |
202 |
GMREDI_YTRANSPORT |
& *op5*(Tracer(i,j,k,bi,bj)+Tracer(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_ytransport.F |
205 |
GMREDI_YTRANSPORT |
CALL DIAGNOSTICS_FILL(tmp1k,'GM_vbT ', k,1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_ytransport.F |
39 |
GMREDI_YTRANSPORT |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k |
|
./pkg/gmredi/gmredi_ytransport.F |
83 |
GMREDI_YTRANSPORT |
kkey = (igadkey-1)*Nr + k |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
102 |
GRDCHK_GET_OBCS_MASK |
do k = 1,nr |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
104 |
GRDCHK_GET_OBCS_MASK |
grdchk_maskxz(i,k,bi,bj,iobcs) = |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
105 |
GRDCHK_GET_OBCS_MASK |
& tmpfldxz(i,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
125 |
GRDCHK_GET_OBCS_MASK |
do k = 1,nr |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
127 |
GRDCHK_GET_OBCS_MASK |
grdchk_maskyz(j,k,bi,bj,iobcs) = |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
128 |
GRDCHK_GET_OBCS_MASK |
& tmpfldyz(j,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
148 |
GRDCHK_GET_OBCS_MASK |
do k = 1,nr |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
150 |
GRDCHK_GET_OBCS_MASK |
grdchk_maskyz(j,k,bi,bj,iobcs) = |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
151 |
GRDCHK_GET_OBCS_MASK |
& tmpfldyz(j,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
39 |
GRDCHK_GET_OBCS_MASK |
integer i,j,k |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
79 |
GRDCHK_GET_OBCS_MASK |
do k = 1,nr |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
81 |
GRDCHK_GET_OBCS_MASK |
grdchk_maskxz(i,k,bi,bj,iobcs) = |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
82 |
GRDCHK_GET_OBCS_MASK |
& tmpfldxz(i,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_position.F |
120 |
GRDCHK_GET_POSITION |
do k = kwrk, ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_get_position.F |
133 |
GRDCHK_GET_POSITION |
if ( maskC(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
136 |
GRDCHK_GET_POSITION |
wetlocal = maskC(i,j,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_position.F |
138 |
GRDCHK_GET_POSITION |
if ( _maskS(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
141 |
GRDCHK_GET_POSITION |
wetlocal = _maskS(i,j,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_position.F |
143 |
GRDCHK_GET_POSITION |
if ( _maskW(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
146 |
GRDCHK_GET_POSITION |
wetlocal = _maskW(i,j,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_position.F |
150 |
GRDCHK_GET_POSITION |
if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
153 |
GRDCHK_GET_POSITION |
wetlocal = grdchk_maskxz(i,k,bi,bj,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
157 |
GRDCHK_GET_POSITION |
if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
160 |
GRDCHK_GET_POSITION |
wetlocal = grdchk_maskxz(i,k,bi,bj,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
164 |
GRDCHK_GET_POSITION |
if (grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
167 |
GRDCHK_GET_POSITION |
wetlocal = grdchk_maskyz(j,k,bi,bj,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
171 |
GRDCHK_GET_POSITION |
if (grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
174 |
GRDCHK_GET_POSITION |
wetlocal = grdchk_maskyz(j,k,bi,bj,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
181 |
GRDCHK_GET_POSITION |
& k .EQ. layer .AND. |
|
./pkg/grdchk/grdchk_get_position.F |
219 |
GRDCHK_GET_POSITION |
itest = itest + nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
50 |
GRDCHK_GET_POSITION |
integer i,j,k |
|
./pkg/grdchk/grdchk_getadxx.F |
65 |
GRDCHK_GETADXX |
integer i,j,k |
|
./model/inc/RECIP_HFACW_MACROS.h |
36 |
NO PROCEDURE |
# define _recip_hFacW(i,j,k,bi,bj) recip_hFacW(i,j,k,bi,bj)*maskW(i,j,k,bi,bj) |
|
./pkg/grdchk/grdchk_init.F |
104 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
105 |
GRDCHK_INIT |
nwettile(bi,bj,k,1) = nwetvtile(bi,bj,k) |
|
./pkg/grdchk/grdchk_init.F |
112 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
116 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = |
|
./pkg/grdchk/grdchk_init.F |
117 |
GRDCHK_INIT |
& nwetobcsn(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
121 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = |
|
./pkg/grdchk/grdchk_init.F |
122 |
GRDCHK_INIT |
& nwetobcss(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
126 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = |
|
./pkg/grdchk/grdchk_init.F |
127 |
GRDCHK_INIT |
& nwetobcsw(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
131 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = |
|
./pkg/grdchk/grdchk_init.F |
132 |
GRDCHK_INIT |
& nwetobcse(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
156 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
158 |
GRDCHK_INIT |
ncvarcomp = ncvarcomp + nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
172 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
173 |
GRDCHK_INIT |
iwetsum(bi,bj,k) = iwetsum(bi,bj,k-1) + |
|
./pkg/grdchk/grdchk_init.F |
174 |
GRDCHK_INIT |
& nwettile(bi,bj,k,1) |
|
./pkg/grdchk/grdchk_init.F |
41 |
GRDCHK_INIT |
integer i,j,k |
|
./pkg/grdchk/grdchk_init.F |
67 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
69 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = 0 |
|
./pkg/grdchk/grdchk_init.F |
80 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
81 |
GRDCHK_INIT |
nwettile(bi,bj,k,1) = nwetctile(bi,bj,k) |
|
./pkg/grdchk/grdchk_init.F |
88 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
89 |
GRDCHK_INIT |
nwettile(bi,bj,k,1) = nwetstile(bi,bj,k) |
|
./pkg/grdchk/grdchk_init.F |
96 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
97 |
GRDCHK_INIT |
nwettile(bi,bj,k,1) = nwetwtile(bi,bj,k) |
|
./pkg/grdchk/grdchk_loc.F |
162 |
GRDCHK_LOC |
do k = kwrk, ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_loc.F |
163 |
GRDCHK_LOC |
icglo = icglo + nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_loc.F |
164 |
GRDCHK_LOC |
icglom1 = icglo - nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_loc.F |
195 |
GRDCHK_LOC |
if ( maskC(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
201 |
GRDCHK_LOC |
if ( _maskS(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
207 |
GRDCHK_LOC |
if ( _maskW(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
215 |
GRDCHK_LOC |
if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
223 |
GRDCHK_LOC |
if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
231 |
GRDCHK_LOC |
if (grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
239 |
GRDCHK_LOC |
if (grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
254 |
GRDCHK_LOC |
layer = k |
|
./pkg/grdchk/grdchk_loc.F |
257 |
GRDCHK_LOC |
itest = iwetsum(bi,bj,k) |
|
./pkg/grdchk/grdchk_loc.F |
259 |
GRDCHK_LOC |
print *, 'ph-grd -->hit<-- ', itmp,jtmp,k,iobcs |
|
./pkg/grdchk/grdchk_loc.F |
272 |
GRDCHK_LOC |
icomptest = icomptest + nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_loc.F |
74 |
GRDCHK_LOC |
integer i,j,k |
|
./pkg/grdchk/grdchk_main.F |
102 |
GRDCHK_MAIN |
integer k |
|
./pkg/grdchk/grdchk_main.F |
173 |
GRDCHK_MAIN |
do k = 1, nr |
|
./pkg/grdchk/grdchk_main.F |
176 |
GRDCHK_MAIN |
tmpplot1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/grdchk/grdchk_main.F |
177 |
GRDCHK_MAIN |
tmpplot2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/grdchk/grdchk_main.F |
178 |
GRDCHK_MAIN |
tmpplot3(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/grdchk/grdchk_main.F |
273 |
GRDCHK_MAIN |
do k=1,4*Nr+1 |
|
./pkg/grdchk/grdchk_main.F |
276 |
GRDCHK_MAIN |
g_objf_state_final(i,j,1,1,k) = 0. |
|
./pkg/grdchk/grdchk_readparms.F |
39 |
GRDCHK_READPARMS |
integer i,j,k |
|
./pkg/grdchk/grdchk_setxx.F |
57 |
GRDCHK_SETXX |
integer i,j,k |
|
./pkg/icefront/icefront_init_varia.F |
42 |
ICEFRONT_INIT_VARIA |
icefront_TendT (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/icefront/icefront_init_varia.F |
43 |
ICEFRONT_INIT_VARIA |
icefront_TendS (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/icefront/icefront_tendency_apply.F |
16 |
ICEFRONT_TENDENCY_APPLY_T |
& bi, bj, k, myTime, myThid ) |
|
./pkg/icefront/icefront_tendency_apply.F |
31 |
ICEFRONT_TENDENCY_APPLY_T |
INTEGER k, bi, bj, myThid |
|
./pkg/icefront/icefront_tendency_apply.F |
41 |
ICEFRONT_TENDENCY_APPLY_T |
IF (k .LE. k_icefront(i,j,bi,bj)) THEN |
|
./pkg/icefront/icefront_tendency_apply.F |
42 |
ICEFRONT_TENDENCY_APPLY_T |
gT(i,j,k,bi,bj) = gT(i,j,k,bi,bj) |
|
./pkg/icefront/icefront_tendency_apply.F |
43 |
ICEFRONT_TENDENCY_APPLY_T |
& + ICEFRONT_TendT(i,j,k,bi,bj) |
|
./pkg/icefront/icefront_tendency_apply.F |
58 |
ICEFRONT_TENDENCY_APPLY_S |
& bi, bj, k, myTime, myThid ) |
|
./pkg/icefront/icefront_tendency_apply.F |
73 |
ICEFRONT_TENDENCY_APPLY_S |
INTEGER k, bi, bj, myThid |
|
./pkg/icefront/icefront_tendency_apply.F |
83 |
ICEFRONT_TENDENCY_APPLY_S |
IF (k .LE. k_icefront(i,j,bi,bj)) THEN |
|
./pkg/icefront/icefront_tendency_apply.F |
84 |
ICEFRONT_TENDENCY_APPLY_S |
gS(i,j,k,bi,bj) = gS(i,j,k,bi,bj) |
|
./pkg/icefront/icefront_tendency_apply.F |
85 |
ICEFRONT_TENDENCY_APPLY_S |
& + ICEFRONT_TendS(i,j,k,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
106 |
ICEFRONT_THERMODYNAMICS |
pLoc = ABS(rC(k)) |
|
./pkg/icefront/icefront_thermodynamics.F |
155 |
ICEFRONT_THERMODYNAMICS |
IF (k .LT. k_icefront(i,j,bi,bj)) THEN |
|
./pkg/icefront/icefront_thermodynamics.F |
160 |
ICEFRONT_THERMODYNAMICS |
ELSEIF (k .EQ. k_icefront(i,j,bi,bj)) THEN |
|
./pkg/icefront/icefront_thermodynamics.F |
186 |
ICEFRONT_THERMODYNAMICS |
& k,1,3,bi,bj,myThid) |
|
./pkg/icefront/icefront_thermodynamics.F |
188 |
ICEFRONT_THERMODYNAMICS |
& k,1,3,bi,bj,myThid) |
|
./pkg/kpp/kpp_calc.F |
202 |
KPP_CALC |
integer i, j, k, kp1, km1, im1, ip1, jm1, jp1 |
|
./pkg/kpp/kpp_calc.F |
266 |
KPP_CALC |
DO k = 1, Nr |
|
./pkg/kpp/kpp_calc.F |
269 |
KPP_CALC |
ghat(i,j,k) = dbloc(i,j,k) |
|
./pkg/kpp/kpp_calc.F |
280 |
KPP_CALC |
DO k = 1, Nr-1 |
|
./pkg/kpp/kpp_calc.F |
282 |
KPP_CALC |
I k+1, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
283 |
KPP_CALC |
U ghat (1-OLx,1-OLy,k), |
|
./pkg/kpp/kpp_calc.F |
295 |
KPP_CALC |
DO k = 1, Nr |
|
./pkg/kpp/kpp_calc.F |
297 |
KPP_CALC |
I k+1, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
298 |
KPP_CALC |
U dbloc (1-OLx,1-OLy,k), |
|
./pkg/kpp/kpp_calc.F |
301 |
KPP_CALC |
I k, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
302 |
KPP_CALC |
U Ritop (1-OLx,1-OLy,k), |
|
./pkg/kpp/kpp_calc.F |
305 |
KPP_CALC |
I k, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
306 |
KPP_CALC |
U TTALPHA(1-OLx,1-OLy,k), |
|
./pkg/kpp/kpp_calc.F |
309 |
KPP_CALC |
I k, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
310 |
KPP_CALC |
U SSBETA(1-OLx,1-OLy,k), |
|
./pkg/kpp/kpp_calc.F |
315 |
KPP_CALC |
DO k = 1, Nr |
|
./pkg/kpp/kpp_calc.F |
316 |
KPP_CALC |
km1 = max(1,k-1) |
|
./pkg/kpp/kpp_calc.F |
322 |
KPP_CALC |
dbloc(i,j,k) = dbloc(i,j,k) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
324 |
KPP_CALC |
ghat(i,j,k) = ghat(i,j,k) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
326 |
KPP_CALC |
Ritop(i,j,k) = Ritop(i,j,k) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
328 |
KPP_CALC |
if(k.eq.nzmax(i,j,bi,bj)) then |
|
./pkg/kpp/kpp_calc.F |
329 |
KPP_CALC |
dbloc(i,j,k) = p0 |
|
./pkg/kpp/kpp_calc.F |
330 |
KPP_CALC |
ghat(i,j,k) = p0 |
|
./pkg/kpp/kpp_calc.F |
331 |
KPP_CALC |
Ritop(i,j,k) = p0 |
|
./pkg/kpp/kpp_calc.F |
337 |
KPP_CALC |
Ritop(i,j,k) = (zgrid(1)-zgrid(k)) * Ritop(i,j,k) |
|
./pkg/kpp/kpp_calc.F |
414 |
KPP_CALC |
DO k = 1, Nr |
|
./pkg/kpp/kpp_calc.F |
417 |
KPP_CALC |
shsq(i,j,k) = p0 |
|
./pkg/kpp/kpp_calc.F |
423 |
KPP_CALC |
DO k = 1, Nrm1 |
|
./pkg/kpp/kpp_calc.F |
424 |
KPP_CALC |
kp1 = k + 1 |
|
./pkg/kpp/kpp_calc.F |
431 |
KPP_CALC |
shsq(i,j,k) = p5 * ( |
|
./pkg/kpp/kpp_calc.F |
432 |
KPP_CALC |
& (uVel(i, j, k,bi,bj)-uVel(i, j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
433 |
KPP_CALC |
& (uVel(i, j, k,bi,bj)-uVel(i, j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
434 |
KPP_CALC |
& (uVel(ip1,j, k,bi,bj)-uVel(ip1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
435 |
KPP_CALC |
& (uVel(ip1,j, k,bi,bj)-uVel(ip1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
436 |
KPP_CALC |
& (vVel(i, j, k,bi,bj)-vVel(i, j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
437 |
KPP_CALC |
& (vVel(i, j, k,bi,bj)-vVel(i, j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
438 |
KPP_CALC |
& (vVel(i, jp1,k,bi,bj)-vVel(i, jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
439 |
KPP_CALC |
& (vVel(i, jp1,k,bi,bj)-vVel(i, jp1,kp1,bi,bj)) ) |
|
./pkg/kpp/kpp_calc.F |
441 |
KPP_CALC |
shsq(i,j,k) = p5 * shsq(i,j,k) + p125 * ( |
|
./pkg/kpp/kpp_calc.F |
442 |
KPP_CALC |
& (uVel(i, jm1,k,bi,bj)-uVel(i, jm1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
443 |
KPP_CALC |
& (uVel(i, jm1,k,bi,bj)-uVel(i, jm1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
444 |
KPP_CALC |
& (uVel(ip1,jm1,k,bi,bj)-uVel(ip1,jm1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
445 |
KPP_CALC |
& (uVel(ip1,jm1,k,bi,bj)-uVel(ip1,jm1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
446 |
KPP_CALC |
& (uVel(i, jp1,k,bi,bj)-uVel(i, jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
447 |
KPP_CALC |
& (uVel(i, jp1,k,bi,bj)-uVel(i, jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
448 |
KPP_CALC |
& (uVel(ip1,jp1,k,bi,bj)-uVel(ip1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
449 |
KPP_CALC |
& (uVel(ip1,jp1,k,bi,bj)-uVel(ip1,jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
450 |
KPP_CALC |
& (vVel(im1,j, k,bi,bj)-vVel(im1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
451 |
KPP_CALC |
& (vVel(im1,j, k,bi,bj)-vVel(im1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
452 |
KPP_CALC |
& (vVel(im1,jp1,k,bi,bj)-vVel(im1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
453 |
KPP_CALC |
& (vVel(im1,jp1,k,bi,bj)-vVel(im1,jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
454 |
KPP_CALC |
& (vVel(ip1,j, k,bi,bj)-vVel(ip1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
455 |
KPP_CALC |
& (vVel(ip1,j, k,bi,bj)-vVel(ip1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
456 |
KPP_CALC |
& (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
457 |
KPP_CALC |
& (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,bi,bj)) ) |
|
./pkg/kpp/kpp_calc.F |
527 |
KPP_CALC |
DO k = 1, Nr |
|
./pkg/kpp/kpp_calc.F |
528 |
KPP_CALC |
km1 = max(1,k-1) |
|
./pkg/kpp/kpp_calc.F |
529 |
KPP_CALC |
KPPviscAz(i,j,k,bi,bj) = vddiff(i,j,k-1,1) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
531 |
KPP_CALC |
KPPdiffKzS(i,j,k,bi,bj)= vddiff(i,j,k-1,2) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
533 |
KPP_CALC |
KPPdiffKzT(i,j,k,bi,bj)= vddiff(i,j,k-1,3) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
535 |
KPP_CALC |
KPPghat(i,j,k,bi,bj) = ghat(i,j,k) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
538 |
KPP_CALC |
k = 1 |
|
./pkg/kpp/kpp_calc.F |
540 |
KPP_CALC |
if ( useShelfIce ) k = kTopC(i,j,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
542 |
KPP_CALC |
KPPhbl(i,j,bi,bj) = hbl(i,j) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
549 |
KPP_CALC |
DO k = 1, Nr |
|
./pkg/kpp/kpp_calc.F |
551 |
KPP_CALC |
I k, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
552 |
KPP_CALC |
U KPPviscAz(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/kpp/kpp_calc.F |
561 |
KPP_CALC |
DO k = 1, Nr |
|
./pkg/kpp/kpp_calc.F |
563 |
KPP_CALC |
I k, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
564 |
KPP_CALC |
U KPPdiffKzS(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/kpp/kpp_calc.F |
567 |
KPP_CALC |
I k, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
568 |
KPP_CALC |
U KPPdiffKzT(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/kpp/kpp_calc.F |
660 |
KPP_CALC_DUMMY |
integer i, j, k |
|
./pkg/kpp/kpp_calc.F |
669 |
KPP_CALC_DUMMY |
DO k = 1,Nr |
|
./pkg/kpp/kpp_calc.F |
670 |
KPP_CALC_DUMMY |
KPPghat (i,j,k,bi,bj) = 0.0 |
|
./pkg/kpp/kpp_calc.F |
671 |
KPP_CALC_DUMMY |
KPPviscAz (i,j,k,bi,bj) = viscArNr(1) |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
48 |
KPP_CALC_DIFF_PTR |
INTEGER i,j,k |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
53 |
KPP_CALC_DIFF_PTR |
DO k=1,MIN(Nr,kSize) |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
57 |
KPP_CALC_DIFF_PTR |
KappaRx(i,j,k) = LS_KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
59 |
KPP_CALC_DIFF_PTR |
KappaRx(i,j,k) = KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
66 |
KPP_CALC_DIFF_PTR |
k = MIN(kArg,kSize) |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
70 |
KPP_CALC_DIFF_PTR |
KappaRx(i,j,k) = LS_KPPdiffKzS(i,j,kArg,bi,bj) |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
72 |
KPP_CALC_DIFF_PTR |
KappaRx(i,j,k) = KPPdiffKzS(i,j,kArg,bi,bj) |
|
./pkg/kpp/kpp_calc_diff_s.F |
45 |
KPP_CALC_DIFF_S |
INTEGER i,j,k |
|
./pkg/kpp/kpp_calc_diff_s.F |
50 |
KPP_CALC_DIFF_S |
DO k=1,MIN(Nr,kSize) |
|
./pkg/kpp/kpp_calc_diff_s.F |
53 |
KPP_CALC_DIFF_S |
KappaRS(i,j,k) = KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc_diff_s.F |
59 |
KPP_CALC_DIFF_S |
k = MIN(kArg,kSize) |
|
./pkg/kpp/kpp_calc_diff_s.F |
62 |
KPP_CALC_DIFF_S |
KappaRS(i,j,k) = KPPdiffKzS(i,j,kArg,bi,bj) |
|
./pkg/kpp/kpp_calc_diff_t.F |
45 |
KPP_CALC_DIFF_T |
INTEGER i,j,k |
|
./pkg/kpp/kpp_calc_diff_t.F |
50 |
KPP_CALC_DIFF_T |
DO k=1,MIN(Nr,kSize) |
|
./pkg/kpp/kpp_calc_diff_t.F |
53 |
KPP_CALC_DIFF_T |
KappaRT(i,j,k) = KPPdiffKzT(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc_diff_t.F |
59 |
KPP_CALC_DIFF_T |
k = MIN(kArg,kSize) |
|
./pkg/kpp/kpp_calc_diff_t.F |
62 |
KPP_CALC_DIFF_T |
KappaRT(i,j,k) = KPPdiffKzT(i,j,kArg,bi,bj) |
|
./pkg/kpp/kpp_calc_visc.F |
42 |
KPP_CALC_VISC |
KappaRU(i,j,k) = max ( KappaRU(i,j,k), |
|
./pkg/kpp/kpp_calc_visc.F |
43 |
KPP_CALC_VISC |
& KappaRU(i,j,k) - viscArNr(1) + _maskW(i,j,k,bi,bj) * |
|
./pkg/kpp/kpp_calc_visc.F |
44 |
KPP_CALC_VISC |
& 0.5*(KPPviscAz(i,j,k,bi,bj)+KPPviscAz(i-1,j,k,bi,bj)) ) |
|
./pkg/kpp/kpp_calc_visc.F |
50 |
KPP_CALC_VISC |
KappaRV(i,j,k) = max ( KappaRV(i,j,k), |
|
./pkg/kpp/kpp_calc_visc.F |
51 |
KPP_CALC_VISC |
& KappaRV(i,j,k) - viscArNr(1) + _maskS(i,j,k,bi,bj) * |
|
./pkg/kpp/kpp_calc_visc.F |
52 |
KPP_CALC_VISC |
& 0.5*(KPPviscAz(i,j,k,bi,bj)+KPPviscAz(i,j-1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
132 |
KPP_FORCING_SURF |
integer i, j, k, im1, ip1, jm1, jp1 |
|
./pkg/kpp/kpp_forcing_surf.F |
251 |
KPP_FORCING_SURF |
DO k = 1, Nr |
|
./pkg/kpp/kpp_forcing_surf.F |
254 |
KPP_FORCING_SURF |
dVsq(i,j,k) = p0 |
|
./pkg/kpp/kpp_forcing_surf.F |
277 |
KPP_FORCING_SURF |
DO k = 1, Nr |
|
./pkg/kpp/kpp_forcing_surf.F |
278 |
KPP_FORCING_SURF |
IF ( k .LT. nzmax(i,j,bi,bj) .AND. |
|
./pkg/kpp/kpp_forcing_surf.F |
279 |
KPP_FORCING_SURF |
& maskC(I,J,k,bi,bj) .GT. 0. .AND. |
|
./pkg/kpp/kpp_forcing_surf.F |
280 |
KPP_FORCING_SURF |
& dbloc(i,j,k) / drC(k+1) .GT. dB_dz ) |
|
./pkg/kpp/kpp_forcing_surf.F |
281 |
KPP_FORCING_SURF |
& work1(i,j) = k |
|
./pkg/kpp/kpp_forcing_surf.F |
285 |
KPP_FORCING_SURF |
k = work1(i,j) |
|
./pkg/kpp/kpp_forcing_surf.F |
286 |
KPP_FORCING_SURF |
IF ( k .EQ. 0 .OR. nzmax(i,j,bi,bj) .EQ. 1 ) THEN |
|
./pkg/kpp/kpp_forcing_surf.F |
288 |
KPP_FORCING_SURF |
ELSEIF ( k .EQ. 1) THEN |
|
./pkg/kpp/kpp_forcing_surf.F |
291 |
KPP_FORCING_SURF |
ELSEIF ( k .LT. nzmax(i,j,bi,bj) ) THEN |
|
./pkg/kpp/kpp_forcing_surf.F |
292 |
KPP_FORCING_SURF |
dBdz1 = dbloc(i,j,k-1) / drC(k ) |
|
./pkg/kpp/kpp_forcing_surf.F |
293 |
KPP_FORCING_SURF |
dBdz2 = dbloc(i,j,k ) / drC(k+1) |
|
./pkg/kpp/kpp_forcing_surf.F |
294 |
KPP_FORCING_SURF |
zRef(i,j) = rF(k) + drF(k) * (dB_dz - dBdz1) / |
|
./pkg/kpp/kpp_forcing_surf.F |
297 |
KPP_FORCING_SURF |
zRef(i,j) = rF(k+1) |
|
./pkg/kpp/kpp_forcing_surf.F |
351 |
KPP_FORCING_SURF |
DO k = 1, Nr |
|
./pkg/kpp/kpp_forcing_surf.F |
358 |
KPP_FORCING_SURF |
dVsq(i,j,k) = p5 * ( |
|
./pkg/kpp/kpp_forcing_surf.F |
359 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(i, j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
360 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(i, j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
361 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
362 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
363 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(i, j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
364 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(i, j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
365 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
366 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(i, jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
368 |
KPP_FORCING_SURF |
dVsq(i,j,k) = p5 * dVsq(i,j,k) + p125 * ( |
|
./pkg/kpp/kpp_forcing_surf.F |
369 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(i, jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
370 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(i, jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
371 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(ip1,jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
372 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(ip1,jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
373 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
374 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(i, jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
375 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
376 |
KPP_FORCING_SURF |
$ (uRef(i,j) - uVel(ip1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
377 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(im1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
378 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(im1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
379 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(im1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
380 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(im1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
381 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
382 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
383 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
384 |
KPP_FORCING_SURF |
$ (vRef(i,j) - vVel(ip1,jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
392 |
KPP_FORCING_SURF |
DO k = 1, Nr |
|
./pkg/kpp/kpp_forcing_surf.F |
399 |
KPP_FORCING_SURF |
dVsq(i,j,k) = p5 * ( |
|
./pkg/kpp/kpp_forcing_surf.F |
400 |
KPP_FORCING_SURF |
$ (uVel(i, j, 1,bi,bj)-uVel(i, j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
401 |
KPP_FORCING_SURF |
$ (uVel(i, j, 1,bi,bj)-uVel(i, j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
402 |
KPP_FORCING_SURF |
$ (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
403 |
KPP_FORCING_SURF |
$ (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
404 |
KPP_FORCING_SURF |
$ (vVel(i, j, 1,bi,bj)-vVel(i, j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
405 |
KPP_FORCING_SURF |
$ (vVel(i, j, 1,bi,bj)-vVel(i, j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
406 |
KPP_FORCING_SURF |
$ (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
407 |
KPP_FORCING_SURF |
$ (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
409 |
KPP_FORCING_SURF |
dVsq(i,j,k) = p5 * dVsq(i,j,k) + p125 * ( |
|
./pkg/kpp/kpp_forcing_surf.F |
410 |
KPP_FORCING_SURF |
$ (uVel(i, jm1,1,bi,bj)-uVel(i, jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
411 |
KPP_FORCING_SURF |
$ (uVel(i, jm1,1,bi,bj)-uVel(i, jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
412 |
KPP_FORCING_SURF |
$ (uVel(ip1,jm1,1,bi,bj)-uVel(ip1,jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
413 |
KPP_FORCING_SURF |
$ (uVel(ip1,jm1,1,bi,bj)-uVel(ip1,jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
414 |
KPP_FORCING_SURF |
$ (uVel(i, jp1,1,bi,bj)-uVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
415 |
KPP_FORCING_SURF |
$ (uVel(i, jp1,1,bi,bj)-uVel(i, jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
416 |
KPP_FORCING_SURF |
$ (uVel(ip1,jp1,1,bi,bj)-uVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
417 |
KPP_FORCING_SURF |
$ (uVel(ip1,jp1,1,bi,bj)-uVel(ip1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
418 |
KPP_FORCING_SURF |
$ (vVel(im1,j, 1,bi,bj)-vVel(im1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
419 |
KPP_FORCING_SURF |
$ (vVel(im1,j, 1,bi,bj)-vVel(im1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
420 |
KPP_FORCING_SURF |
$ (vVel(im1,jp1,1,bi,bj)-vVel(im1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
421 |
KPP_FORCING_SURF |
$ (vVel(im1,jp1,1,bi,bj)-vVel(im1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
422 |
KPP_FORCING_SURF |
$ (vVel(ip1,j, 1,bi,bj)-vVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
423 |
KPP_FORCING_SURF |
$ (vVel(ip1,j, 1,bi,bj)-vVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
424 |
KPP_FORCING_SURF |
$ (vVel(ip1,jp1,1,bi,bj)-vVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
425 |
KPP_FORCING_SURF |
$ (vVel(ip1,jp1,1,bi,bj)-vVel(ip1,jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_init_fixed.F |
177 |
KPP_INIT_FIXED |
DO k = 1, Nr |
|
./pkg/kpp/kpp_init_fixed.F |
178 |
KPP_INIT_FIXED |
zgrid(k) = rC(k) |
|
./pkg/kpp/kpp_init_fixed.F |
179 |
KPP_INIT_FIXED |
hwide(k) = drF(k) |
|
./pkg/kpp/kpp_init_fixed.F |
39 |
KPP_INIT_FIXED |
INTEGER i, j, k |
|
./pkg/kpp/kpp_init_varia.F |
32 |
KPP_INIT_VARIA |
INTEGER i, j, k, bi, bj |
|
./pkg/kpp/kpp_init_varia.F |
69 |
KPP_INIT_VARIA |
DO k = 1, Nr |
|
./pkg/kpp/kpp_init_varia.F |
72 |
KPP_INIT_VARIA |
KPPghat (i,j,k,bi,bj) = 0. |
|
./pkg/kpp/kpp_init_varia.F |
73 |
KPP_INIT_VARIA |
KPPviscAz (i,j,k,bi,bj) = viscArNr(1) |
|
./pkg/kpp/kpp_init_varia.F |
74 |
KPP_INIT_VARIA |
KPPdiffKzS (i,j,k,bi,bj) = 0. |
|
./pkg/kpp/kpp_init_varia.F |
75 |
KPP_INIT_VARIA |
KPPdiffKzT (i,j,k,bi,bj) = 0. |
|
./pkg/kpp/kpp_output.F |
223 |
KPP_OUTPUT |
DO k=2,Nr |
|
./pkg/kpp/kpp_output.F |
226 |
KPP_OUTPUT |
KPPghatKStave(i,j,k,bi,bj) = KPPghatKStave(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_output.F |
227 |
KPP_OUTPUT |
& + ( KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_output.F |
229 |
KPP_OUTPUT |
& +tmpFac*Kwz(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_output.F |
231 |
KPP_OUTPUT |
& )*KPPghat(i,j,k-1,bi,bj)*DDTT |
|
./pkg/kpp/kpp_output.F |
376 |
KPP_OUTPUT |
DO k=2,Nr |
|
./pkg/kpp/kpp_output.F |
379 |
KPP_OUTPUT |
tmpLoc(i,j,k) = KPPghat(i,j,k-1,bi,bj)* |
|
./pkg/kpp/kpp_output.F |
380 |
KPP_OUTPUT |
& ( KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_output.F |
382 |
KPP_OUTPUT |
& + tmpFac*Kwz(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_output.F |
86 |
KPP_OUTPUT |
INTEGER i, j, k |
|
./pkg/kpp/kpp_routines.F |
1012 |
Z121 |
integer i, k, km1, kp1 |
|
./pkg/kpp/kpp_routines.F |
1030 |
Z121 |
k = 1 |
|
./pkg/kpp/kpp_routines.F |
1034 |
Z121 |
do k = 1, Nr |
|
./pkg/kpp/kpp_routines.F |
1035 |
Z121 |
KRi_range(k) = p5 + SIGN(p5,v(i,k)) |
|
./pkg/kpp/kpp_routines.F |
1036 |
Z121 |
KRi_range(k) = KRi_range(k) * |
|
./pkg/kpp/kpp_routines.F |
1037 |
Z121 |
& ( p5 + SIGN(p5,(Riinfty-v(i,k))) ) |
|
./pkg/kpp/kpp_routines.F |
1046 |
Z121 |
do k = 2, Nr |
|
./pkg/kpp/kpp_routines.F |
1048 |
Z121 |
km1 = k - 1 |
|
./pkg/kpp/kpp_routines.F |
1049 |
Z121 |
kp1 = k + 1 |
|
./pkg/kpp/kpp_routines.F |
1050 |
Z121 |
zflag = v(i,k) |
|
./pkg/kpp/kpp_routines.F |
1051 |
Z121 |
v(i,k) = p2 * v(i,k) + |
|
./pkg/kpp/kpp_routines.F |
1052 |
Z121 |
& KRi_range(k) * KRi_range(kp1) * v(i,kp1) + |
|
./pkg/kpp/kpp_routines.F |
1053 |
Z121 |
& KRi_range(k) * zwork |
|
./pkg/kpp/kpp_routines.F |
1054 |
Z121 |
zwork = KRi_range(k) * zflag |
|
./pkg/kpp/kpp_routines.F |
1055 |
Z121 |
zflag = p2 + KRi_range(k)*(KRi_range(kp1)+KRi_range(km1)) |
|
./pkg/kpp/kpp_routines.F |
1056 |
Z121 |
v(i,k) = v(i,k) / zflag |
|
./pkg/kpp/kpp_routines.F |
1069 |
SMOOTH_HORIZ |
I k, bi, bj, |
|
./pkg/kpp/kpp_routines.F |
1085 |
SMOOTH_HORIZ |
integer k, bi, bj |
|
./pkg/kpp/kpp_routines.F |
1111 |
SMOOTH_HORIZ |
& p25 * maskC(i ,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1112 |
SMOOTH_HORIZ |
& p125 * ( maskC(im1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1113 |
SMOOTH_HORIZ |
& maskC(ip1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1114 |
SMOOTH_HORIZ |
& maskC(i ,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1115 |
SMOOTH_HORIZ |
& maskC(i ,jp1,k,bi,bj) ) + |
|
./pkg/kpp/kpp_routines.F |
1116 |
SMOOTH_HORIZ |
& p0625 * ( maskC(im1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1117 |
SMOOTH_HORIZ |
& maskC(im1,jp1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1118 |
SMOOTH_HORIZ |
& maskC(ip1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1119 |
SMOOTH_HORIZ |
& maskC(ip1,jp1,k,bi,bj) ) |
|
./pkg/kpp/kpp_routines.F |
1122 |
SMOOTH_HORIZ |
& p25 * fld(i ,j )*maskC(i ,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1123 |
SMOOTH_HORIZ |
& p125 *(fld(im1,j )*maskC(im1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1124 |
SMOOTH_HORIZ |
& fld(ip1,j )*maskC(ip1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1125 |
SMOOTH_HORIZ |
& fld(i ,jm1)*maskC(i ,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1126 |
SMOOTH_HORIZ |
& fld(i ,jp1)*maskC(i ,jp1,k,bi,bj))+ |
|
./pkg/kpp/kpp_routines.F |
1127 |
SMOOTH_HORIZ |
& p0625*(fld(im1,jm1)*maskC(im1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1128 |
SMOOTH_HORIZ |
& fld(im1,jp1)*maskC(im1,jp1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1129 |
SMOOTH_HORIZ |
& fld(ip1,jm1)*maskC(ip1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1130 |
SMOOTH_HORIZ |
& fld(ip1,jp1)*maskC(ip1,jp1,k,bi,bj))) |
|
./pkg/kpp/kpp_routines.F |
140 |
KPPMIX |
integer i, k, md |
|
./pkg/kpp/kpp_routines.F |
1586 |
STATEKPP |
kkppkey = (ikppkey-1)*Nr + k |
|
./pkg/kpp/kpp_routines.F |
1595 |
STATEKPP |
I 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, k, |
|
./pkg/kpp/kpp_routines.F |
1596 |
STATEKPP |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/kpp/kpp_routines.F |
1598 |
STATEKPP |
I k, bi, bj, myThid ) |
|
./pkg/kpp/kpp_routines.F |
1607 |
STATEKPP |
I 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, k, |
|
./pkg/kpp/kpp_routines.F |
1608 |
STATEKPP |
I theta(1-OLx,1-OLy,k-1,bi,bj),salt(1-OLx,1-OLy,k-1,bi,bj), |
|
./pkg/kpp/kpp_routines.F |
1610 |
STATEKPP |
I k-1, bi, bj, myThid ) |
|
./pkg/kpp/kpp_routines.F |
1619 |
STATEKPP |
I 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, k, |
|
./pkg/kpp/kpp_routines.F |
175 |
KPPMIX |
do k=1,Nrp1 |
|
./pkg/kpp/kpp_routines.F |
177 |
KPPMIX |
if(k.ge.kmtj(i)) diffus(i,k,md) = 0.0 |
|
./pkg/kpp/kpp_routines.F |
1829 |
KPP_DOUBLEDIFF |
CALL DIAGNOSTICS_FILL(nuddt,'KPPnuddt',k,1,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_routines.F |
1830 |
KPP_DOUBLEDIFF |
CALL DIAGNOSTICS_FILL(nudds,'KPPnudds',k,1,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_routines.F |
238 |
KPPMIX |
do k = 1, Nr |
|
./pkg/kpp/kpp_routines.F |
240 |
KPPMIX |
if (k .lt. kbl(i)) then |
|
./pkg/kpp/kpp_routines.F |
244 |
KPPMIX |
blmc(i,k,1) = max ( blmc(i,k,1)*msk(i), |
|
./pkg/kpp/kpp_routines.F |
245 |
KPPMIX |
& diffus(i,k,1) ) |
|
./pkg/kpp/kpp_routines.F |
246 |
KPPMIX |
blmc(i,k,2) = max ( blmc(i,k,2)*msk(i), |
|
./pkg/kpp/kpp_routines.F |
247 |
KPPMIX |
& diffus(i,k,2) ) |
|
./pkg/kpp/kpp_routines.F |
248 |
KPPMIX |
blmc(i,k,3) = max ( blmc(i,k,3)*msk(i), |
|
./pkg/kpp/kpp_routines.F |
249 |
KPPMIX |
& diffus(i,k,3) ) |
|
./pkg/kpp/kpp_routines.F |
251 |
KPPMIX |
diffus(i,k,1) = max ( blmc(i,k,1), viscArNr(1) ) |
|
./pkg/kpp/kpp_routines.F |
252 |
KPPMIX |
diffus(i,k,2) = max ( blmc(i,k,2), diffusKzS(i,Nr) ) |
|
./pkg/kpp/kpp_routines.F |
253 |
KPPMIX |
diffus(i,k,3) = max ( blmc(i,k,3), diffusKzT(i,Nr) ) |
|
./pkg/kpp/kpp_routines.F |
255 |
KPPMIX |
ghat(i,k) = 0. _d 0 |
|
./pkg/kpp/kpp_transport_ptr.F |
100 |
KPP_TRANSPORT_PTR |
& + tmpFac*LS_Kwz(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
104 |
KPP_TRANSPORT_PTR |
& *( KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
106 |
KPP_TRANSPORT_PTR |
& + tmpFac*Kwz(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
10 |
KPP_TRANSPORT_PTR |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/kpp/kpp_transport_ptr.F |
60 |
KPP_TRANSPORT_PTR |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k,km1,tracerIdentity |
|
./pkg/kpp/kpp_transport_ptr.F |
82 |
KPP_TRANSPORT_PTR |
& *KPPghat(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
98 |
KPP_TRANSPORT_PTR |
& *( LS_KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_s.F |
104 |
KPP_TRANSPORT_S |
& *KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_s.F |
10 |
KPP_TRANSPORT_S |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/kpp/kpp_transport_s.F |
50 |
KPP_TRANSPORT_S |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k,km1 |
|
./pkg/kpp/kpp_transport_s.F |
88 |
KPP_TRANSPORT_S |
& *( KPPdiffKzS(i,j,k,bi,bj) + tmpFac*Kwz(i,j,k,bi,bj) ) |
|
./pkg/kpp/kpp_transport_t.F |
10 |
KPP_TRANSPORT_T |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/kpp/kpp_transport_t.F |
51 |
KPP_TRANSPORT_T |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k,km1 |
|
./pkg/kpp/kpp_transport_t.F |
78 |
KPP_TRANSPORT_T |
& *( KPPdiffKzT(i,j,k,bi,bj) + tmpFac*Kwz(i,j,k,bi,bj) ) |
|
./pkg/kpp/kpp_transport_t.F |
93 |
KPP_TRANSPORT_T |
& *KPPdiffKzT(i,j,k,bi,bj) |
|
./pkg/land/land_impl_temp.F |
141 |
LAND_IMPL_TEMP |
DO k=1,land_nLev |
|
./pkg/land/land_impl_temp.F |
142 |
LAND_IMPL_TEMP |
eg(k) = land_dzF(k)*land_enthalp(i,j,k,bi,bj) |
|
./pkg/land/land_impl_temp.F |
143 |
LAND_IMPL_TEMP |
mW(k) = land_dzF(k)*land_groundW(i,j,k,bi,bj) |
|
./pkg/land/land_impl_temp.F |
145 |
LAND_IMPL_TEMP |
mW(k) = MAX( mW(k), 0. _d 0 ) |
|
./pkg/land/land_impl_temp.F |
146 |
LAND_IMPL_TEMP |
cg(k) = land_dzF(k)*land_heatCs + mW(k)*land_CpWater |
|
./pkg/land/land_impl_temp.F |
147 |
LAND_IMPL_TEMP |
tg(k) = land_groundT(i,j,k,bi,bj) |
|
./pkg/land/land_impl_temp.F |
154 |
LAND_IMPL_TEMP |
& 'LAND_IMPL_TEMP: 0 , sFlx=', 0,(sFlx(i,j,k),k=0,2) |
|
./pkg/land/land_impl_temp.F |
345 |
LAND_IMPL_TEMP |
DO k=1,land_nLev |
|
./pkg/land/land_impl_temp.F |
346 |
LAND_IMPL_TEMP |
land_enthalp(i,j,k,bi,bj) = eg(k)/land_dzF(k) |
|
./pkg/land/land_impl_temp.F |
347 |
LAND_IMPL_TEMP |
land_groundT(i,j,k,bi,bj) = tg(k) |
|
./pkg/land/land_impl_temp.F |
354 |
LAND_IMPL_TEMP |
& (land_enthalp(i,j,k,bi,bj),k=1,2), land_Pr_m_Ev(i,j,bi,bj) |
|
./pkg/land/land_impl_temp.F |
87 |
LAND_IMPL_TEMP |
INTEGER i,j,k |
|
./pkg/land/land_ini_vars.F |
137 |
LAND_INI_VARS |
DO k=1,land_nLev |
|
./pkg/land/land_ini_vars.F |
139 |
LAND_INI_VARS |
& *land_groundW(i,j,k,bi,bj) |
|
./pkg/land/land_ini_vars.F |
141 |
LAND_INI_VARS |
land_enthalp(i,j,k,bi,bj) = |
|
./pkg/land/land_ini_vars.F |
142 |
LAND_INI_VARS |
& grd_HeatCp*land_groundT(i,j,k,bi,bj) |
|
./pkg/land/land_ini_vars.F |
143 |
LAND_INI_VARS |
IF (land_groundT(i,j,k,bi,bj).LT. 0. _d 0) |
|
./pkg/land/land_ini_vars.F |
144 |
LAND_INI_VARS |
& land_enthalp(i,j,k,bi,bj) = land_enthalp(i,j,k,bi,bj) |
|
./pkg/land/land_ini_vars.F |
154 |
LAND_INI_VARS |
DO k=1,land_nLev |
|
./pkg/land/land_ini_vars.F |
156 |
LAND_INI_VARS |
& *land_groundW(i,j,k,bi,bj) |
|
./pkg/land/land_ini_vars.F |
159 |
LAND_INI_VARS |
temp_bf = (land_enthalp(i,j,k,bi,bj)+land_Lfreez*mWater) |
|
./pkg/land/land_ini_vars.F |
162 |
LAND_INI_VARS |
temp_af = land_enthalp(i,j,k,bi,bj) / grd_HeatCp |
|
./pkg/land/land_ini_vars.F |
163 |
LAND_INI_VARS |
land_groundT(i,j,k,bi,bj) = |
|
./pkg/land/land_ini_vars.F |
49 |
LAND_INI_VARS |
INTEGER i,j,k,bi,bj |
|
./pkg/land/land_ini_vars.F |
62 |
LAND_INI_VARS |
DO k=1,land_nLev |
|
./pkg/land/land_ini_vars.F |
65 |
LAND_INI_VARS |
land_groundT(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/land/land_ini_vars.F |
66 |
LAND_INI_VARS |
land_enthalp(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/land/land_ini_vars.F |
67 |
LAND_INI_VARS |
land_groundW(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/land/land_monitor.F |
127 |
LAND_MONITOR |
DO k=1,land_nLev |
|
./pkg/land/land_monitor.F |
128 |
LAND_MONITOR |
locDr(k)= 1. |
|
./pkg/land/land_monitor.F |
252 |
LAND_MONITOR |
DO k=1,land_nLev |
|
./pkg/land/land_monitor.F |
253 |
LAND_MONITOR |
locDr(k)= land_dzF(k) |
|
./pkg/land/land_monitor.F |
69 |
LAND_MONITOR |
INTEGER n, k |
|
./pkg/land/land_monitor.F |
96 |
LAND_MONITOR |
DO k = 1,MAX_LEN_MBUF |
|
./pkg/land/land_monitor.F |
97 |
LAND_MONITOR |
mon_fname(k:k) = ' ' |
|
./pkg/land/land_output.F |
122 |
LAND_OUTPUT |
DO k = 1,MAX_LEN_MBUF |
|
./pkg/land/land_output.F |
123 |
LAND_OUTPUT |
fmnc(k:k) = ' ' |
|
./pkg/land/land_output.F |
221 |
LAND_OUTPUT |
k = 3*land_nLev |
|
./pkg/land/land_output.F |
222 |
LAND_OUTPUT |
CALL WRITE_REC_XY_RL( fn, land_sTtave, k+1, myIter, myThid ) |
|
./pkg/land/land_output.F |
223 |
LAND_OUTPUT |
CALL WRITE_REC_XY_RL( fn, land_hStave, k+2, myIter, myThid ) |
|
./pkg/land/land_output.F |
224 |
LAND_OUTPUT |
CALL WRITE_REC_XY_RL( fn, land_sAtave, k+3, myIter, myThid ) |
|
./pkg/land/land_output.F |
225 |
LAND_OUTPUT |
CALL WRITE_REC_XY_RL( fn, land_ROftave, k+4, myIter, myThid ) |
|
./pkg/land/land_output.F |
226 |
LAND_OUTPUT |
CALL WRITE_REC_XY_RL( fn, land_eROtave, k+5, myIter, myThid ) |
|
./pkg/land/land_output.F |
240 |
LAND_OUTPUT |
DO k = 1,MAX_LEN_FNAM |
|
./pkg/land/land_output.F |
241 |
LAND_OUTPUT |
fn(k:k) = ' ' |
|
./pkg/land/land_output.F |
52 |
LAND_OUTPUT |
INTEGER bi, bj, k |
|
./pkg/land/land_read_pickup.F |
40 |
LAND_READ_PICKUP |
INTEGER prec, k |
|
./pkg/land/land_read_pickup.F |
65 |
LAND_READ_PICKUP |
k=2*land_nLev |
|
./pkg/land/land_read_pickup.F |
67 |
LAND_READ_PICKUP |
& land_skinT, k+1, myIter, myThid ) |
|
./pkg/land/land_read_pickup.F |
69 |
LAND_READ_PICKUP |
& land_hSnow, k+2, myIter, myThid ) |
|
./pkg/land/land_read_pickup.F |
71 |
LAND_READ_PICKUP |
& land_snowAge,k+3, myIter, myThid ) |
|
./pkg/land/land_read_pickup.F |
80 |
LAND_READ_PICKUP |
DO k = 1,MAX_LEN_FNAM |
|
./pkg/land/land_read_pickup.F |
81 |
LAND_READ_PICKUP |
fn(k:k) = ' ' |
|
./pkg/land/land_readparms.F |
160 |
LAND_READPARMS |
DO k=1,land_nLev |
|
./pkg/land/land_readparms.F |
161 |
LAND_READPARMS |
land_dzF(k) = -1. |
|
./pkg/land/land_readparms.F |
162 |
LAND_READPARMS |
land_rec_dzC(k) = -1. |
|
./pkg/land/land_readparms.F |
194 |
LAND_READPARMS |
DO k=1,land_nLev |
|
./pkg/land/land_readparms.F |
195 |
LAND_READPARMS |
tmpvar = tmpvar+land_dzF(k) |
|
./pkg/land/land_readparms.F |
196 |
LAND_READPARMS |
IF (tmpvar.GT.0. _d 0) land_rec_dzC(k) = 2. _d 0 / tmpvar |
|
./pkg/land/land_readparms.F |
197 |
LAND_READPARMS |
tmpvar = land_dzF(k) |
|
./pkg/land/land_readparms.F |
50 |
LAND_READPARMS |
INTEGER iUnit, k, iL |
|
./pkg/land/land_stepfwd.F |
115 |
LAND_STEPFWD |
& ( land_groundT(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
120 |
LAND_STEPFWD |
land_enthalp(i,j,k,bi,bj) = land_enthalp(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
121 |
LAND_STEPFWD |
& + land_deltaT * (flxkup(i,j)-flxkdw(i,j))/land_dzF(k) |
|
./pkg/land/land_stepfwd.F |
149 |
LAND_STEPFWD |
DO k=1,land_nLev |
|
./pkg/land/land_stepfwd.F |
154 |
LAND_STEPFWD |
& *land_groundW(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
157 |
LAND_STEPFWD |
temp_bf = (land_enthalp(i,j,k,bi,bj)+land_Lfreez*mWater) |
|
./pkg/land/land_stepfwd.F |
159 |
LAND_STEPFWD |
temp_af = land_enthalp(i,j,k,bi,bj) / grd_HeatCp |
|
./pkg/land/land_stepfwd.F |
160 |
LAND_STEPFWD |
land_groundT(i,j,k,bi,bj) = |
|
./pkg/land/land_stepfwd.F |
166 |
LAND_STEPFWD |
& k,land_groundT(i,j,k,bi,bj),temp_af,temp_bf |
|
./pkg/land/land_stepfwd.F |
271 |
LAND_STEPFWD |
DO k=1,land_nLev |
|
./pkg/land/land_stepfwd.F |
272 |
LAND_STEPFWD |
IF (k.EQ.land_nLev) THEN |
|
./pkg/land/land_stepfwd.F |
273 |
LAND_STEPFWD |
kp1 = k |
|
./pkg/land/land_stepfwd.F |
276 |
LAND_STEPFWD |
kp1 = k+1 |
|
./pkg/land/land_stepfwd.F |
279 |
LAND_STEPFWD |
fieldCapac = land_waterCap*land_dzF(k) |
|
./pkg/land/land_stepfwd.F |
290 |
LAND_STEPFWD |
IF ( k.EQ.land_nLev ) THEN |
|
./pkg/land/land_stepfwd.F |
292 |
LAND_STEPFWD |
IF ( land_groundT(i,j,k,bi,bj).LT.0. _d 0 ) THEN |
|
./pkg/land/land_stepfwd.F |
296 |
LAND_STEPFWD |
land_groundW(i,j,k,bi,bj) = land_groundW(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
299 |
LAND_STEPFWD |
& land_enthalp(i,j,k,bi,bj) = land_enthalp(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
300 |
LAND_STEPFWD |
& + land_deltaT * flxEngU(i,j) / land_dzF(k) |
|
./pkg/land/land_stepfwd.F |
316 |
LAND_STEPFWD |
IF ( k.EQ.land_nLev .OR. |
|
./pkg/land/land_stepfwd.F |
324 |
LAND_STEPFWD |
& ( land_groundW(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
330 |
LAND_STEPFWD |
& *land_groundT(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
338 |
LAND_STEPFWD |
groundWnp1 = land_groundW(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
343 |
LAND_STEPFWD |
& ,5,land_groundW(i,j,k,bi,bj)-1., |
|
./pkg/land/land_stepfwd.F |
348 |
LAND_STEPFWD |
land_groundW(i,j,k,bi,bj) = MIN(1. _d 0, groundWnp1) |
|
./pkg/land/land_stepfwd.F |
361 |
LAND_STEPFWD |
& *land_groundT(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
363 |
LAND_STEPFWD |
land_enthalp(i,j,k,bi,bj) = land_enthalp(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
365 |
LAND_STEPFWD |
& )*land_deltaT/land_dzF(k) |
|
./pkg/land/land_stepfwd.F |
375 |
LAND_STEPFWD |
& 7, land_groundT(i,j,k,bi,bj), flxEngU(i,j), flxkup(i,j) |
|
./pkg/land/land_stepfwd.F |
397 |
LAND_STEPFWD |
DO k=1,land_nLev |
|
./pkg/land/land_stepfwd.F |
402 |
LAND_STEPFWD |
& *land_groundW(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
406 |
LAND_STEPFWD |
temp_bf = (land_enthalp(i,j,k,bi,bj)+land_Lfreez*mWater) |
|
./pkg/land/land_stepfwd.F |
409 |
LAND_STEPFWD |
temp_af = land_enthalp(i,j,k,bi,bj) / grd_HeatCp |
|
./pkg/land/land_stepfwd.F |
411 |
LAND_STEPFWD |
land_enthalp(i,j,k,bi,bj) = |
|
./pkg/land/land_stepfwd.F |
412 |
LAND_STEPFWD |
& grd_HeatCp*land_groundT(i,j,k,bi,bj) |
|
./pkg/land/land_stepfwd.F |
414 |
LAND_STEPFWD |
land_groundT(i,j,k,bi,bj) = |
|
./pkg/land/land_stepfwd.F |
81 |
LAND_STEPFWD |
INTEGER i,j,k,kp1 |
|
./pkg/land/land_stepfwd.F |
93 |
LAND_STEPFWD |
DO k=1,land_nLev |
|
./pkg/land/land_stepfwd.F |
94 |
LAND_STEPFWD |
kp1 = MIN(k+1,land_nLev) |
|
./pkg/land/land_stepfwd.F |
96 |
LAND_STEPFWD |
IF (k.EQ.1) THEN |
|
./pkg/land/land_write_pickup.F |
52 |
LAND_WRITE_PICKUP |
INTEGER prec, lChar, k |
|
./pkg/land/land_write_pickup.F |
70 |
LAND_WRITE_PICKUP |
k=2*land_nLev |
|
./pkg/land/land_write_pickup.F |
72 |
LAND_WRITE_PICKUP |
& land_skinT, k+1, myIter, myThid ) |
|
./pkg/land/land_write_pickup.F |
74 |
LAND_WRITE_PICKUP |
& land_hSnow, k+2, myIter, myThid ) |
|
./pkg/land/land_write_pickup.F |
76 |
LAND_WRITE_PICKUP |
& land_snowAge,k+3, myIter, myThid ) |
|
./pkg/land/land_write_pickup.F |
83 |
LAND_WRITE_PICKUP |
DO k = 1,MAX_LEN_FNAM |
|
./pkg/land/land_write_pickup.F |
84 |
LAND_WRITE_PICKUP |
fn(k:k) = ' ' |
|
./pkg/layers/layers_calc.F |
109 |
LAYERS_CALC |
k = MapIndex(kk) |
|
./pkg/layers/layers_calc.F |
118 |
LAYERS_CALC |
& 0.5 _d 0 * (theta(i-1,j,k,bi,bj)+theta(i,j,k,bi,bj)) + |
|
./pkg/layers/layers_calc.F |
120 |
LAYERS_CALC |
& 0.5 _d 0 * (theta(i-1,j,k+1,bi,bj)+theta(i,j,k+1,bi,bj)) |
|
./pkg/layers/layers_calc.F |
123 |
LAYERS_CALC |
& 0.5 _d 0 * (salt(i-1,j,k,bi,bj)+salt(i,j,k,bi,bj)) + |
|
./pkg/layers/layers_calc.F |
125 |
LAYERS_CALC |
& 0.5 _d 0 * (salt(i-1,j,k+1,bi,bj)+salt(i,j,k+1,bi,bj)) |
|
./pkg/layers/layers_calc.F |
190 |
LAYERS_CALC |
& 0.5 _d 0 * (theta(i,j-1,k,bi,bj)+theta(i,j,k,bi,bj)) + |
|
./pkg/layers/layers_calc.F |
192 |
LAYERS_CALC |
& 0.5 _d 0 * (theta(i,j-1,k+1,bi,bj)+theta(i,j,k+1,bi,bj)) |
|
./pkg/layers/layers_calc.F |
195 |
LAYERS_CALC |
& 0.5 _d 0 * (salt(i,j-1,k,bi,bj)+salt(i,j,k,bi,bj)) + |
|
./pkg/layers/layers_calc.F |
197 |
LAYERS_CALC |
& 0.5 _d 0 * (salt(i,j-1,k+1,bi,bj)+salt(i,j,k+1,bi,bj)) |
|
./pkg/layers/layers_calc.F |
58 |
LAYERS_CALC |
INTEGER i,j,k,kk,kg,kci |
|
./pkg/layers/layers_init_fixed.F |
102 |
LAYERS_INIT_FIXED |
DO WHILE (ZZc(kk) .GE. Zc(k+1)) |
|
./pkg/layers/layers_init_fixed.F |
103 |
LAYERS_INIT_FIXED |
k = k + 1 |
|
./pkg/layers/layers_init_fixed.F |
106 |
LAYERS_INIT_FIXED |
MapIndex(kk) = k |
|
./pkg/layers/layers_init_fixed.F |
107 |
LAYERS_INIT_FIXED |
MapFact(kk) = 1.0 - (( ZZc(kk) - Zc(k) ) / drC(k+1)) |
|
./pkg/layers/layers_init_fixed.F |
111 |
LAYERS_INIT_FIXED |
& 'S/R LAYERS_INIT_FIXED: kk=', kk, ', k=', k, |
|
./pkg/layers/layers_init_fixed.F |
112 |
LAYERS_INIT_FIXED |
& ', ZZc(kk)=', ZZc(kk),' , Zc(k)=',Zc(k) |
|
./pkg/layers/layers_init_fixed.F |
34 |
LAYERS_INIT_FIXED |
INTEGER k,kk,kkinit |
|
./pkg/layers/layers_init_fixed.F |
62 |
LAYERS_INIT_FIXED |
DO k=1,Nr |
|
./pkg/layers/layers_init_fixed.F |
64 |
LAYERS_INIT_FIXED |
dZZf(kk) = dRf(k) / FineGridFact |
|
./pkg/layers/layers_init_fixed.F |
72 |
LAYERS_INIT_FIXED |
DO k=2,Nr |
|
./pkg/layers/layers_init_fixed.F |
73 |
LAYERS_INIT_FIXED |
Zf(k) = Zf(k-1) + drF(k-1) |
|
./pkg/layers/layers_init_fixed.F |
74 |
LAYERS_INIT_FIXED |
Zc(k) = Zc(k-1) + drC(k) |
|
./pkg/layers/layers_init_fixed.F |
88 |
LAYERS_INIT_FIXED |
k = 1 |
|
./pkg/layers/layers_init_fixed.F |
95 |
LAYERS_INIT_FIXED |
ELSE IF ( (ZZc(kk) .GE. Zc(Nr)) .OR. (k .EQ. Nr) ) THEN |
|
./pkg/layers/layers_init_fixed.F |
99 |
LAYERS_INIT_FIXED |
ELSE IF ( (ZZc(kk) .GE. Zc(k)) |
|
./pkg/layers/layers_readparms.F |
33 |
LAYERS_READPARMS |
INTEGER iUnit, k |
|
./pkg/layers/layers_readparms.F |
43 |
LAYERS_READPARMS |
DO k=1,Nlayers+1 |
|
./pkg/layers/layers_readparms.F |
44 |
LAYERS_READPARMS |
layers_G(k) = UNSET_RL |
|
./pkg/layers/layers_readparms.F |
69 |
LAYERS_READPARMS |
DO k=1,Nlayers+1 |
|
./pkg/layers/layers_readparms.F |
70 |
LAYERS_READPARMS |
IF ( layers_G(k) .EQ. UNSET_RL ) THEN |
|
./pkg/layers/layers_readparms.F |
72 |
LAYERS_READPARMS |
& 'S/R LAYERS_READPARMS: No value for layers_G at k =', k |
|
./pkg/layers/layers_readparms.F |
75 |
LAYERS_READPARMS |
ELSE IF ( k .EQ. 1 ) THEN |
|
./pkg/layers/layers_readparms.F |
77 |
LAYERS_READPARMS |
ELSE IF ( layers_G(k) .LE. layers_G(k-1) ) THEN |
|
./pkg/layers/layers_readparms.F |
80 |
LAYERS_READPARMS |
& 'S/R LAYERS_READPARMS: layers_G is not increasing at k =', k |
|
./pkg/longstep/longstep_average_3d.F |
43 |
LONGSTEP_AVERAGE_3D |
INTEGER i,j,k,bi,bj |
|
./pkg/longstep/longstep_average_3d.F |
51 |
LONGSTEP_AVERAGE_3D |
DO k = 1,myNr |
|
./pkg/longstep/longstep_average_3d.F |
54 |
LONGSTEP_AVERAGE_3D |
lsFld(i,j,k,bi,bj) = lsFld(i,j,k,bi,bj)*factor |
|
./pkg/longstep/longstep_average_3d_fac.F |
45 |
LONGSTEP_AVERAGE_3D_FAC |
INTEGER i,j,k,bi,bj |
|
./pkg/longstep/longstep_average_3d_fac.F |
51 |
LONGSTEP_AVERAGE_3D_FAC |
DO k = 1,myNr |
|
./pkg/longstep/longstep_average_3d_fac.F |
54 |
LONGSTEP_AVERAGE_3D_FAC |
factor = FLOAT(lsCnt(bi,bj))*fac(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_average_3d_fac.F |
56 |
LONGSTEP_AVERAGE_3D_FAC |
lsFld(i,j,k,bi,bj) = lsFld(i,j,k,bi,bj)*factor |
|
./pkg/longstep/longstep_fill_3d.F |
44 |
LONGSTEP_FILL_3D |
INTEGER i,j,k,bi,bj |
|
./pkg/longstep/longstep_fill_3d.F |
50 |
LONGSTEP_FILL_3D |
DO k = 1,myNr |
|
./pkg/longstep/longstep_fill_3d.F |
53 |
LONGSTEP_FILL_3D |
lsFld(i,j,k,bi,bj) = lsFld(i,j,k,bi,bj) + fld(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_fill_3d_fac.F |
45 |
LONGSTEP_FILL_3D_FAC |
INTEGER i,j,k,bi,bj |
|
./pkg/longstep/longstep_fill_3d_fac.F |
51 |
LONGSTEP_FILL_3D_FAC |
DO k = 1,myNr |
|
./pkg/longstep/longstep_fill_3d_fac.F |
54 |
LONGSTEP_FILL_3D_FAC |
lsFld(i,j,k,bi,bj) = lsFld(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_fill_3d_fac.F |
55 |
LONGSTEP_FILL_3D_FAC |
& + fld(i,j,k,bi,bj)*fac(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_fill_3d_rs.F |
45 |
LONGSTEP_FILL_3D_RS |
INTEGER i,j,k,bi,bj |
|
./pkg/longstep/longstep_fill_3d_rs.F |
51 |
LONGSTEP_FILL_3D_RS |
DO k = 1,myNr |
|
./pkg/longstep/longstep_fill_3d_rs.F |
54 |
LONGSTEP_FILL_3D_RS |
lsFld(i,j,k,bi,bj) = lsFld(i,j,k,bi,bj) + fld(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_reset_3d.F |
42 |
LONGSTEP_RESET_3D |
INTEGER i,j,k,bi,bj |
|
./pkg/longstep/longstep_reset_3d.F |
48 |
LONGSTEP_RESET_3D |
DO k = 1,myNr |
|
./pkg/longstep/longstep_reset_3d.F |
51 |
LONGSTEP_RESET_3D |
lsFld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/longstep/longstep_thermodynamics.F |
119 |
LONGSTEP_THERMODYNAMICS |
INTEGER k, km1, kup, kDown |
|
./pkg/longstep/longstep_thermodynamics.F |
190 |
LONGSTEP_THERMODYNAMICS |
DO k=1,Nr |
|
./pkg/longstep/longstep_thermodynamics.F |
194 |
LONGSTEP_THERMODYNAMICS |
kappaRk(i,j,k) = 0. _d 0 |
|
./pkg/longstep/longstep_thermodynamics.F |
212 |
LONGSTEP_THERMODYNAMICS |
DO k=1,Nr |
|
./pkg/longstep/longstep_thermodynamics.F |
215 |
LONGSTEP_THERMODYNAMICS |
gPTr(i,j,k,bi,bj,itracer) = 0. _d 0 |
|
./pkg/longstep/longstep_thermodynamics.F |
285 |
LONGSTEP_THERMODYNAMICS |
DO k=Nr,1,-1 |
|
./pkg/longstep/longstep_thermodynamics.F |
290 |
LONGSTEP_THERMODYNAMICS |
kkey = (itdkey-1)*Nr + k |
|
./pkg/longstep/longstep_thermodynamics.F |
297 |
LONGSTEP_THERMODYNAMICS |
km1 = MAX(1,k-1) |
|
./pkg/longstep/longstep_thermodynamics.F |
298 |
LONGSTEP_THERMODYNAMICS |
kup = 1+MOD(k+1,2) |
|
./pkg/longstep/longstep_thermodynamics.F |
299 |
LONGSTEP_THERMODYNAMICS |
kDown= 1+MOD(k,2) |
|
./pkg/longstep/longstep_thermodynamics.F |
306 |
LONGSTEP_THERMODYNAMICS |
IF (k.EQ.Nr) THEN |
|
./pkg/longstep/longstep_thermodynamics.F |
329 |
LONGSTEP_THERMODYNAMICS |
I k,bi,bj, myThid ) |
|
./pkg/longstep/longstep_thermodynamics.F |
332 |
LONGSTEP_THERMODYNAMICS |
IF (k.EQ.1) THEN |
|
./pkg/longstep/longstep_thermodynamics.F |
346 |
LONGSTEP_THERMODYNAMICS |
wFld(i,j) = LS_wVel(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
347 |
LONGSTEP_THERMODYNAMICS |
maskUp(i,j) = maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
349 |
LONGSTEP_THERMODYNAMICS |
& *deepFac2F(k)*rhoFacF(k) |
|
./pkg/longstep/longstep_thermodynamics.F |
359 |
LONGSTEP_THERMODYNAMICS |
I k, bi, bj, myThid ) |
|
./pkg/longstep/longstep_thermodynamics.F |
363 |
LONGSTEP_THERMODYNAMICS |
I k, bi, bj, myThid ) |
|
./pkg/longstep/longstep_thermodynamics.F |
415 |
LONGSTEP_THERMODYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./pkg/longstep/longstep_thermodynamics.F |
424 |
LONGSTEP_THERMODYNAMICS |
I bi,bj,k, |
|
./pkg/matrix/matrix_init.F |
24 |
MATRIX_INIT |
INTEGER i, j, k, bi, bj |
|
./pkg/matrix/matrix_init.F |
33 |
MATRIX_INIT |
DO k=1,Nr |
|
./pkg/matrix/matrix_init.F |
36 |
MATRIX_INIT |
PTRACERS_initial(i,j,k,bi,bj,iTracer)= |
|
./pkg/matrix/matrix_init.F |
37 |
MATRIX_INIT |
& pTracer(i,j,k,bi,bj,iTracer) |
|
./pkg/matrix/matrix_init.F |
38 |
MATRIX_INIT |
MATRIX(i,j,k,bi,bj,iTracer,1)= 0. _d 0 |
|
./pkg/matrix/matrix_init.F |
39 |
MATRIX_INIT |
MATRIX(i,j,k,bi,bj,iTracer,2)= 0. _d 0 |
|
./pkg/matrix/matrix_store_tendency.F |
32 |
MATRIX_STORE_TENDENCY_EXP |
INTEGER i,j,k |
|
./pkg/matrix/matrix_store_tendency.F |
36 |
MATRIX_STORE_TENDENCY_EXP |
DO k=1,Nr |
|
./pkg/matrix/matrix_store_tendency.F |
39 |
MATRIX_STORE_TENDENCY_EXP |
MATRIX(i,j,k,bi,bj,iTracer,1) = |
|
./pkg/matrix/matrix_store_tendency.F |
40 |
MATRIX_STORE_TENDENCY_EXP |
& MATRIX(i,j,k,bi,bj,iTracer,1) |
|
./pkg/matrix/matrix_store_tendency.F |
41 |
MATRIX_STORE_TENDENCY_EXP |
& + (gPtr(i,j,k,bi,bj,iTracer) |
|
./pkg/matrix/matrix_store_tendency.F |
42 |
MATRIX_STORE_TENDENCY_EXP |
& - PTRACERS_initial(i,j,k,bi,bj,iTracer)) |
|
./pkg/matrix/matrix_store_tendency.F |
43 |
MATRIX_STORE_TENDENCY_EXP |
gPtr(i,j,k,bi,bj,iTracer)= |
|
./pkg/matrix/matrix_store_tendency.F |
44 |
MATRIX_STORE_TENDENCY_EXP |
& PTRACERS_initial(i,j,k,bi,bj,iTracer) |
|
./pkg/matrix/matrix_store_tendency.F |
80 |
MATRIX_STORE_TENDENCY_IMP |
INTEGER i,j,k |
|
./pkg/matrix/matrix_store_tendency.F |
84 |
MATRIX_STORE_TENDENCY_IMP |
DO k=1,Nr |
|
./pkg/matrix/matrix_store_tendency.F |
87 |
MATRIX_STORE_TENDENCY_IMP |
MATRIX(i,j,k,bi,bj,iTracer,2) = |
|
./pkg/matrix/matrix_store_tendency.F |
88 |
MATRIX_STORE_TENDENCY_IMP |
& MATRIX(i,j,k,bi,bj,iTracer,2) |
|
./pkg/matrix/matrix_store_tendency.F |
89 |
MATRIX_STORE_TENDENCY_IMP |
& + pTracer(i,j,k,bi,bj,iTracer) |
|
./pkg/matrix/matrix_store_tendency.F |
90 |
MATRIX_STORE_TENDENCY_IMP |
pTracer(i,j,k,bi,bj,iTracer)= |
|
./pkg/matrix/matrix_store_tendency.F |
91 |
MATRIX_STORE_TENDENCY_IMP |
& PTRACERS_initial(i,j,k,bi,bj,iTracer) |
|
./pkg/matrix/matrix_write_tendency.F |
110 |
MATRIX_WRITE_TENDENCY |
DO k=1,Nr |
|
./pkg/matrix/matrix_write_tendency.F |
113 |
MATRIX_WRITE_TENDENCY |
MATRIX(i,j,k,bi,bj,iTracer,2)= 0. _d 0 |
|
./pkg/matrix/matrix_write_tendency.F |
28 |
MATRIX_WRITE_TENDENCY |
INTEGER bi,bj,i,j,k,iTracer,iRec |
|
./pkg/matrix/matrix_write_tendency.F |
44 |
MATRIX_WRITE_TENDENCY |
DO k=1,Nr |
|
./pkg/matrix/matrix_write_tendency.F |
47 |
MATRIX_WRITE_TENDENCY |
MATRIX(i,j,k,bi,bj,iTracer,1) = |
|
./pkg/matrix/matrix_write_tendency.F |
48 |
MATRIX_WRITE_TENDENCY |
& MATRIX(i,j,k,bi,bj,iTracer,1) |
|
./pkg/matrix/matrix_write_tendency.F |
67 |
MATRIX_WRITE_TENDENCY |
DO k=1,Nr |
|
./pkg/matrix/matrix_write_tendency.F |
70 |
MATRIX_WRITE_TENDENCY |
MATRIX(i,j,k,bi,bj,iTracer,1)= 0. _d 0 |
|
./pkg/matrix/matrix_write_tendency.F |
87 |
MATRIX_WRITE_TENDENCY |
DO k=1,Nr |
|
./pkg/matrix/matrix_write_tendency.F |
90 |
MATRIX_WRITE_TENDENCY |
MATRIX(i,j,k,bi,bj,iTracer,2) = |
|
./pkg/matrix/matrix_write_tendency.F |
91 |
MATRIX_WRITE_TENDENCY |
& MATRIX(i,j,k,bi,bj,iTracer,2) |
|
./pkg/mdsio/mdsio_gl.F |
1018 |
MDSREADFIELD_2D_GL |
do k=1,nLocz |
|
./pkg/mdsio/mdsio_gl.F |
1023 |
MDSREADFIELD_2D_GL |
irec=1 + INT(iG/sNx) + nSx*nPx*(jG+j-1) + nSx*nPx*Ny*(k-1) |
|
./pkg/mdsio/mdsio_gl.F |
1028 |
MDSREADFIELD_2D_GL |
irec=j + sNy*(k-1) + sNy*nLocz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
1036 |
MDSREADFIELD_2D_GL |
call MDS_SEG4TORS( j,bi,bj,k,nLocz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1038 |
MDSREADFIELD_2D_GL |
call MDS_SEG4TORL( j,bi,bj,k,nLocz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1051 |
MDSREADFIELD_2D_GL |
call MDS_SEG8TORS( j,bi,bj,k,nLocz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1053 |
MDSREADFIELD_2D_GL |
call MDS_SEG8TORL( j,bi,bj,k,nLocz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1067 |
MDSREADFIELD_2D_GL |
arr_gl(ii,bi,ip,j,bj,jp,k)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl.F |
1098 |
MDSREADFIELD_2D_GL |
DO k=1,nLocz |
|
./pkg/mdsio/mdsio_gl.F |
1105 |
MDSREADFIELD_2D_GL |
irec = k+nNz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
1141 |
MDSREADFIELD_2D_GL |
arr_gl(i,bi,ip,j,bj,jp,k) = global(II,JJ) |
|
./pkg/mdsio/mdsio_gl.F |
1241 |
MDSWRITEFIELD_2D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
1327 |
MDSWRITEFIELD_2D_GL |
DO k=1,nLocz |
|
./pkg/mdsio/mdsio_gl.F |
1337 |
MDSWRITEFIELD_2D_GL |
global(II,JJ) = arr_gl(i,bi,ip,j,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl.F |
1346 |
MDSWRITEFIELD_2D_GL |
irec=k+nLocz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
1432 |
MDSWRITEFIELD_2D_GL |
do k=1,nLocz |
|
./pkg/mdsio/mdsio_gl.F |
1435 |
MDSWRITEFIELD_2D_GL |
arr(i,j,k,bi,bj)=arr_gl(i,bi,ip,j,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl.F |
1439 |
MDSWRITEFIELD_2D_GL |
irec=j + sNy*(k-1) + sNy*nLocz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
1442 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG4TORS( j,bi,bj,k,nLocz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1444 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG4TORL( j,bi,bj,k,nLocz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1457 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG8TORS( j,bi,bj,k,nLocz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1459 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG8TORL( j,bi,bj,k,nLocz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
257 |
MDSREADFIELD_3D_GL |
do k=1,Nr |
|
./pkg/mdsio/mdsio_gl.F |
262 |
MDSREADFIELD_3D_GL |
irec=1 + INT(iG/sNx) + nSx*nPx*(jG+j-1) + nSx*nPx*Ny*(k-1) |
|
./pkg/mdsio/mdsio_gl.F |
267 |
MDSREADFIELD_3D_GL |
irec=j + sNy*(k-1) + sNy*Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
275 |
MDSREADFIELD_3D_GL |
call MDS_SEG4TORS( j,bi,bj,k,Nr, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
277 |
MDSREADFIELD_3D_GL |
call MDS_SEG4TORL( j,bi,bj,k,Nr, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
290 |
MDSREADFIELD_3D_GL |
call MDS_SEG8TORS( j,bi,bj,k,Nr, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
292 |
MDSREADFIELD_3D_GL |
call MDS_SEG8TORL( j,bi,bj,k,Nr, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
306 |
MDSREADFIELD_3D_GL |
arr_gl(ii,bi,ip,j,bj,jp,k)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl.F |
337 |
MDSREADFIELD_3D_GL |
DO k=1,nNz |
|
./pkg/mdsio/mdsio_gl.F |
344 |
MDSREADFIELD_3D_GL |
irec = k+nNz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
380 |
MDSREADFIELD_3D_GL |
arr_gl(i,bi,ip,j,bj,jp,k) = global(II,JJ) |
|
./pkg/mdsio/mdsio_gl.F |
479 |
MDSWRITEFIELD_3D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
564 |
MDSWRITEFIELD_3D_GL |
DO k=1,nNz |
|
./pkg/mdsio/mdsio_gl.F |
574 |
MDSWRITEFIELD_3D_GL |
global(II,JJ) = arr_gl(i,bi,ip,j,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl.F |
583 |
MDSWRITEFIELD_3D_GL |
irec=k+nNz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
669 |
MDSWRITEFIELD_3D_GL |
do k=1,Nr |
|
./pkg/mdsio/mdsio_gl.F |
672 |
MDSWRITEFIELD_3D_GL |
arr(i,j,k,bi,bj)=arr_gl(i,bi,ip,j,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl.F |
676 |
MDSWRITEFIELD_3D_GL |
irec=j + sNy*(k-1) + sNy*Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
679 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG4TORS( j,bi,bj,k,Nr, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
681 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG4TORL( j,bi,bj,k,Nr, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
694 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG8TORS( j,bi,bj,k,Nr, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
696 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG8TORL( j,bi,bj,k,Nr, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
73 |
MDSREADFIELD_3D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
834 |
MDSREADFIELD_2D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
168 |
MDSREADFIELD_XZ_GL |
do k=1,Nr |
|
./pkg/mdsio/mdsio_gl_slice.F |
171 |
MDSREADFIELD_XZ_GL |
irec=k + Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl_slice.F |
178 |
MDSREADFIELD_XZ_GL |
call MDS_SEG4TORS_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
180 |
MDSREADFIELD_XZ_GL |
call MDS_SEG4TORL_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
193 |
MDSREADFIELD_XZ_GL |
call MDS_SEG8TORS_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
195 |
MDSREADFIELD_XZ_GL |
call MDS_SEG8TORL_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
209 |
MDSREADFIELD_XZ_GL |
arr_gl(ii,bi,ip,bj,jp,k)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl_slice.F |
300 |
MDSREADFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
395 |
MDSREADFIELD_YZ_GL |
do k=1,Nr |
|
./pkg/mdsio/mdsio_gl_slice.F |
398 |
MDSREADFIELD_YZ_GL |
irec=k + Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl_slice.F |
405 |
MDSREADFIELD_YZ_GL |
call MDS_SEG4TORS_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
407 |
MDSREADFIELD_YZ_GL |
call MDS_SEG4TORL_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
420 |
MDSREADFIELD_YZ_GL |
call MDS_SEG8TORS_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
422 |
MDSREADFIELD_YZ_GL |
call MDS_SEG8TORL_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
436 |
MDSREADFIELD_YZ_GL |
arr_gl(bi,ip,jj,bj,jp,k)=arr(jj,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl_slice.F |
541 |
MDSWRITEFIELD_XZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
602 |
MDSWRITEFIELD_XZ_GL |
do k=1,Nr |
|
./pkg/mdsio/mdsio_gl_slice.F |
604 |
MDSWRITEFIELD_XZ_GL |
arr(ii,k,bi,bj)=arr_gl(ii,bi,ip,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl_slice.F |
608 |
MDSWRITEFIELD_XZ_GL |
irec=k + Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl_slice.F |
611 |
MDSWRITEFIELD_XZ_GL |
call MDS_SEG4TORS_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
613 |
MDSWRITEFIELD_XZ_GL |
call MDS_SEG4TORL_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
626 |
MDSWRITEFIELD_XZ_GL |
call MDS_SEG8TORS_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
628 |
MDSWRITEFIELD_XZ_GL |
call MDS_SEG8TORL_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
72 |
MDSREADFIELD_XZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
769 |
MDSWRITEFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
830 |
MDSWRITEFIELD_YZ_GL |
do k=1,Nr |
|
./pkg/mdsio/mdsio_gl_slice.F |
832 |
MDSWRITEFIELD_YZ_GL |
arr(jj,k,bi,bj)=arr_gl(bi,ip,jj,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl_slice.F |
836 |
MDSWRITEFIELD_YZ_GL |
irec=k + Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl_slice.F |
839 |
MDSWRITEFIELD_YZ_GL |
call MDS_SEG4TORS_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
841 |
MDSWRITEFIELD_YZ_GL |
call MDS_SEG4TORL_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
854 |
MDSWRITEFIELD_YZ_GL |
call MDS_SEG8TORS_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
856 |
MDSWRITEFIELD_YZ_GL |
call MDS_SEG8TORL_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
100 |
MDS_PASS_R4TORL |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
103 |
MDS_PASS_R4TORL |
arrFld(i,j,kLev,1,1) = buffer(i,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
108 |
MDS_PASS_R4TORL |
DO k=1,nNz |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
109 |
MDS_PASS_R4TORL |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
112 |
MDS_PASS_R4TORL |
buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,1,1) |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
58 |
MDS_PASS_R4TORL |
INTEGER i,j,k,bi,bj |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
70 |
MDS_PASS_R4TORL |
DO k=1,nNz |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
71 |
MDS_PASS_R4TORL |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
74 |
MDS_PASS_R4TORL |
arrFld(i,j,kLev,bi,bj) = buffer(i,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
83 |
MDS_PASS_R4TORL |
DO k=1,nNz |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
84 |
MDS_PASS_R4TORL |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
87 |
MDS_PASS_R4TORL |
buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
99 |
MDS_PASS_R4TORL |
DO k=1,nNz |
|
./model/src/adams_bashforth2.F |
10 |
ADAMS_BASHFORTH2 |
I bi, bj, k, |
|
./model/src/adams_bashforth2.F |
36 |
ADAMS_BASHFORTH2 |
INTEGER bi,bj,k |
|
./model/src/adams_bashforth2.F |
65 |
ADAMS_BASHFORTH2 |
gTrtmp = ab15*gTracer(i,j,k,bi,bj) |
|
./model/src/adams_bashforth2.F |
66 |
ADAMS_BASHFORTH2 |
& + ab05*gTrNm1(i,j,k,bi,bj) |
|
./model/src/adams_bashforth2.F |
67 |
ADAMS_BASHFORTH2 |
gTrNm1(i,j,k,bi,bj) = gTracer(i,j,k,bi,bj) |
|
./model/src/adams_bashforth2.F |
68 |
ADAMS_BASHFORTH2 |
gTracer(i,j,k,bi,bj) = gTrtmp |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
100 |
MDS_PASS_R4TORS |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
103 |
MDS_PASS_R4TORS |
arrFld(i,j,kLev,1,1) = buffer(i,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
108 |
MDS_PASS_R4TORS |
DO k=1,nNz |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
109 |
MDS_PASS_R4TORS |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
112 |
MDS_PASS_R4TORS |
buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,1,1) |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
58 |
MDS_PASS_R4TORS |
INTEGER i,j,k,bi,bj |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
70 |
MDS_PASS_R4TORS |
DO k=1,nNz |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
71 |
MDS_PASS_R4TORS |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
74 |
MDS_PASS_R4TORS |
arrFld(i,j,kLev,bi,bj) = buffer(i,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
83 |
MDS_PASS_R4TORS |
DO k=1,nNz |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
84 |
MDS_PASS_R4TORS |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
87 |
MDS_PASS_R4TORS |
buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
99 |
MDS_PASS_R4TORS |
DO k=1,nNz |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
100 |
MDS_PASS_R8TORL |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
103 |
MDS_PASS_R8TORL |
arrFld(i,j,kLev,1,1) = buffer(i,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
108 |
MDS_PASS_R8TORL |
DO k=1,nNz |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
109 |
MDS_PASS_R8TORL |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
112 |
MDS_PASS_R8TORL |
buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,1,1) |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
58 |
MDS_PASS_R8TORL |
INTEGER i,j,k,bi,bj |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
70 |
MDS_PASS_R8TORL |
DO k=1,nNz |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
71 |
MDS_PASS_R8TORL |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
74 |
MDS_PASS_R8TORL |
arrFld(i,j,kLev,bi,bj) = buffer(i,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
83 |
MDS_PASS_R8TORL |
DO k=1,nNz |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
84 |
MDS_PASS_R8TORL |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
87 |
MDS_PASS_R8TORL |
buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
99 |
MDS_PASS_R8TORL |
DO k=1,nNz |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
100 |
MDS_PASS_R8TORS |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
103 |
MDS_PASS_R8TORS |
arrFld(i,j,kLev,1,1) = buffer(i,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
108 |
MDS_PASS_R8TORS |
DO k=1,nNz |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
109 |
MDS_PASS_R8TORS |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
112 |
MDS_PASS_R8TORS |
buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,1,1) |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
58 |
MDS_PASS_R8TORS |
INTEGER i,j,k,bi,bj |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
70 |
MDS_PASS_R8TORS |
DO k=1,nNz |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
71 |
MDS_PASS_R8TORS |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
74 |
MDS_PASS_R8TORS |
arrFld(i,j,kLev,bi,bj) = buffer(i,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
83 |
MDS_PASS_R8TORS |
DO k=1,nNz |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
84 |
MDS_PASS_R8TORS |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
87 |
MDS_PASS_R8TORS |
buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
99 |
MDS_PASS_R8TORS |
DO k=1,nNz |
|
./pkg/mdsio/mdsio_rd_rec_rl.F |
47 |
MDS_RD_REC_RL |
INTEGER k |
|
./pkg/mdsio/mdsio_rd_rec_rl.F |
62 |
MDS_RD_REC_RL |
DO k=1,nArr |
|
./pkg/mdsio/mdsio_rd_rec_rl.F |
63 |
MDS_RD_REC_RL |
arr(k) = r4Buf(k) |
|
./pkg/mdsio/mdsio_rd_rec_rl.F |
73 |
MDS_RD_REC_RL |
DO k=1,nArr |
|
./pkg/mdsio/mdsio_rd_rec_rl.F |
74 |
MDS_RD_REC_RL |
arr(k) = r8Buf(k) |
|
./pkg/mdsio/mdsio_rd_rec_rs.F |
47 |
MDS_RD_REC_RS |
INTEGER k |
|
./pkg/mdsio/mdsio_rd_rec_rs.F |
62 |
MDS_RD_REC_RS |
DO k=1,nArr |
|
./pkg/mdsio/mdsio_rd_rec_rs.F |
63 |
MDS_RD_REC_RS |
arr(k) = r4Buf(k) |
|
./pkg/mdsio/mdsio_rd_rec_rs.F |
70 |
MDS_RD_REC_RS |
DO k=1,nArr |
|
./pkg/mdsio/mdsio_rd_rec_rs.F |
71 |
MDS_RD_REC_RS |
arr(k) = r8Buf(k) |
|
./pkg/mdsio/mdsio_read_field.F |
111 |
MDS_READ_FIELD |
INTEGER i1,i2,i,j,k,nNz |
|
./pkg/mdsio/mdsio_read_field.F |
276 |
MDS_READ_FIELD |
DO k=kLo,kHi |
|
./pkg/mdsio/mdsio_read_field.F |
280 |
MDS_READ_FIELD |
irec = 1 + k-kLo + (irecord-1)*nNz |
|
./pkg/mdsio/mdsio_read_field.F |
309 |
MDS_READ_FIELD |
I 0, 0, 1, k, kSize, 0, 0, .TRUE., myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
312 |
MDS_READ_FIELD |
I 0, 0, 1, k, kSize, 0, 0, .TRUE., myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
330 |
MDS_READ_FIELD |
I 0, 0, 1, k, kSize, 0, 0, .TRUE., myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
333 |
MDS_READ_FIELD |
I 0, 0, 1, k, kSize, 0, 0, .TRUE., myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
415 |
MDS_READ_FIELD |
DO k=kLo,kHi |
|
./pkg/mdsio/mdsio_read_field.F |
419 |
MDS_READ_FIELD |
& +( k-kLo + (irecord-1)*nNz )*global_nTx*ySize |
|
./pkg/mdsio/mdsio_read_field.F |
420 |
MDS_READ_FIELD |
i1 = bBij + 1 + (j-1)*sNx + (k-kLo)*sNx*sNy |
|
./pkg/mdsio/mdsio_read_field.F |
421 |
MDS_READ_FIELD |
i2 = bBij + j*sNx + (k-kLo)*sNx*sNy |
|
./pkg/mdsio/mdsio_read_section.F |
207 |
MDS_READ_SEC_XZ |
DO k=1,kSize |
|
./pkg/mdsio/mdsio_read_section.F |
212 |
MDS_READ_SEC_XZ |
& + ( k-1 + (irecord-1)*kSize )*exch2_xStack_Nx |
|
./pkg/mdsio/mdsio_read_section.F |
217 |
MDS_READ_SEC_XZ |
irec=1 + INT(iG/sNx) + nSx*nPx*(k-1) |
|
./pkg/mdsio/mdsio_read_section.F |
223 |
MDS_READ_SEC_XZ |
irec=k + kSize*(irecord-1) |
|
./pkg/mdsio/mdsio_read_section.F |
231 |
MDS_READ_SEC_XZ |
CALL MDS_SEG4TORS_2D( sNx,oLx,kSize,bi,bj,k,.TRUE., |
|
./pkg/mdsio/mdsio_read_section.F |
234 |
MDS_READ_SEC_XZ |
CALL MDS_SEG4TORL_2D( sNx,oLx,kSize,bi,bj,k,.TRUE., |
|
./pkg/mdsio/mdsio_read_section.F |
248 |
MDS_READ_SEC_XZ |
CALL MDS_SEG8TORS_2D(sNx,oLx,kSize,bi,bj,k,.TRUE., |
|
./pkg/mdsio/mdsio_read_section.F |
251 |
MDS_READ_SEC_XZ |
CALL MDS_SEG8TORL_2D(sNx,oLx,kSize,bi,bj,k,.TRUE., |
|
./pkg/mdsio/mdsio_read_section.F |
361 |
MDS_READ_SEC_YZ |
INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_read_section.F |
485 |
MDS_READ_SEC_YZ |
DO k=1,kSize |
|
./pkg/mdsio/mdsio_read_section.F |
490 |
MDS_READ_SEC_YZ |
& + ( k-1 + (irecord-1)*kSize )*exch2_yStack_Ny |
|
./pkg/mdsio/mdsio_read_section.F |
495 |
MDS_READ_SEC_YZ |
irec=1 + INT(jG/sNy) + nSy*nPy*(k-1) |
|
./pkg/mdsio/mdsio_read_section.F |
501 |
MDS_READ_SEC_YZ |
irec=k + kSize*(irecord-1) |
|
./pkg/mdsio/mdsio_read_section.F |
509 |
MDS_READ_SEC_YZ |
CALL MDS_SEG4TORS_2D( sNy,oLy,kSize,bi,bj,k,.TRUE., |
|
./pkg/mdsio/mdsio_read_section.F |
512 |
MDS_READ_SEC_YZ |
CALL MDS_SEG4TORL_2D( sNy,oLy,kSize,bi,bj,k,.TRUE., |
|
./pkg/mdsio/mdsio_read_section.F |
526 |
MDS_READ_SEC_YZ |
CALL MDS_SEG8TORS_2D( sNy,oLy,kSize,bi,bj,k,.TRUE., |
|
./pkg/mdsio/mdsio_read_section.F |
529 |
MDS_READ_SEC_YZ |
CALL MDS_SEG8TORL_2D( sNy,oLy,kSize,bi,bj,k,.TRUE., |
|
./pkg/mdsio/mdsio_read_section.F |
84 |
MDS_READ_SEC_XZ |
INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_read_whalos.F |
87 |
MDS_READ_WHALOS |
integer i,j,k,bi,bj,ii |
|
./model/src/adams_bashforth3.F |
102 |
ADAMS_BASHFORTH3 |
DO k=1,Nr |
|
./model/src/adams_bashforth3.F |
105 |
ADAMS_BASHFORTH3 |
gTrtmp = ab0*gTracer(i,j,k,bi,bj) |
|
./model/src/adams_bashforth3.F |
106 |
ADAMS_BASHFORTH3 |
& + ab1*gTrNm(i,j,k,bi,bj,m1) |
|
./model/src/adams_bashforth3.F |
107 |
ADAMS_BASHFORTH3 |
& + ab2*gTrNm(i,j,k,bi,bj,m2) |
|
./model/src/adams_bashforth3.F |
108 |
ADAMS_BASHFORTH3 |
gTrNm(i,j,k,bi,bj,m2) = gTracer(i,j,k,bi,bj) |
|
./model/src/adams_bashforth3.F |
109 |
ADAMS_BASHFORTH3 |
gTracer(i,j,k,bi,bj) = gTrtmp |
|
./model/src/adams_bashforth3.F |
115 |
ADAMS_BASHFORTH3 |
k = kArg |
|
./model/src/adams_bashforth3.F |
118 |
ADAMS_BASHFORTH3 |
gTrtmp = ab0*gTracer(i,j,k,bi,bj) |
|
./model/src/adams_bashforth3.F |
119 |
ADAMS_BASHFORTH3 |
& + ab1*gTrNm(i,j,k,bi,bj,m1) |
|
./model/src/adams_bashforth3.F |
120 |
ADAMS_BASHFORTH3 |
& + ab2*gTrNm(i,j,k,bi,bj,m2) |
|
./model/src/adams_bashforth3.F |
121 |
ADAMS_BASHFORTH3 |
gTrNm(i,j,k,bi,bj,m2) = gTracer(i,j,k,bi,bj) |
|
./model/src/adams_bashforth3.F |
122 |
ADAMS_BASHFORTH3 |
gTracer(i,j,k,bi,bj) = gTrtmp |
|
./model/src/adams_bashforth3.F |
74 |
ADAMS_BASHFORTH3 |
INTEGER i,j, k, m1,m2 |
|
./pkg/mdsio/mdsio_readvector.F |
277 |
MDSREADVECTOR |
DO k=1,1 |
|
./pkg/mdsio/mdsio_readvector.F |
68 |
MDSREADVECTOR |
INTEGER k,l |
|
./pkg/mdsio/mdsio_seg4torl.F |
22 |
MDS_SEG4TORL |
INTEGER j,bi,bj,k,nNz |
|
./pkg/mdsio/mdsio_seg4torl.F |
31 |
MDS_SEG4TORL |
arr(ii,j,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_seg4torl.F |
35 |
MDS_SEG4TORL |
seg(ii)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_seg4torl.F |
6 |
MDS_SEG4TORL |
SUBROUTINE MDS_SEG4TORL( j,bi,bj,k,nNz, seg, copyTo, arr ) |
|
./pkg/mdsio/mdsio_seg4tors.F |
22 |
MDS_SEG4TORS |
INTEGER j,bi,bj,k,nNz |
|
./pkg/mdsio/mdsio_seg4tors.F |
31 |
MDS_SEG4TORS |
arr(ii,j,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_seg4tors.F |
35 |
MDS_SEG4TORS |
seg(ii)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_seg4tors.F |
6 |
MDS_SEG4TORS |
SUBROUTINE MDS_SEG4TORS( j,bi,bj,k,nNz, seg, copyTo, arr ) |
|
./pkg/mdsio/mdsio_seg8torl.F |
22 |
MDS_SEG8TORL |
INTEGER j,bi,bj,k,nNz |
|
./pkg/mdsio/mdsio_seg8torl.F |
31 |
MDS_SEG8TORL |
arr(ii,j,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_seg8torl.F |
35 |
MDS_SEG8TORL |
seg(ii)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_seg8torl.F |
6 |
MDS_SEG8TORL |
SUBROUTINE MDS_SEG8TORL( j,bi,bj,k,nNz, seg, copyTo, arr ) |
|
./pkg/mdsio/mdsio_seg8tors.F |
22 |
MDS_SEG8TORS |
INTEGER j,bi,bj,k,nNz |
|
./pkg/mdsio/mdsio_seg8tors.F |
31 |
MDS_SEG8TORS |
arr(ii,j,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_seg8tors.F |
35 |
MDS_SEG8TORS |
seg(ii)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_seg8tors.F |
6 |
MDS_SEG8TORS |
SUBROUTINE MDS_SEG8TORS( j,bi,bj,k,nNz, seg, copyTo, arr ) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
115 |
MDS_SEG8TORL_2D |
INTEGER sn,ol,nNz,bi,bj,k |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
125 |
MDS_SEG8TORL_2D |
arr(ii,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
129 |
MDS_SEG8TORL_2D |
seg(ii)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
138 |
MDS_SEG8TORS_2D |
SUBROUTINE MDS_SEG8TORS_2D(sn,ol,nNz,bi,bj,k,copyTo,seg,arr) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
156 |
MDS_SEG8TORS_2D |
INTEGER sn,ol,nNz,bi,bj,k |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
15 |
MDS_SEG4TORL_2D |
SUBROUTINE MDS_SEG4TORL_2D(sn,ol,nNz,bi,bj,k,copyTo,seg,arr) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
166 |
MDS_SEG8TORS_2D |
arr(ii,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
170 |
MDS_SEG8TORS_2D |
seg(ii)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
33 |
MDS_SEG4TORL_2D |
INTEGER sn,ol,nNz,bi,bj,k |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
43 |
MDS_SEG4TORL_2D |
arr(ii,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
47 |
MDS_SEG4TORL_2D |
seg(ii)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
56 |
MDS_SEG4TORS_2D |
SUBROUTINE MDS_SEG4TORS_2D(sn,ol,nNz,bi,bj,k,copyTo,seg,arr) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
74 |
MDS_SEG4TORS_2D |
INTEGER sn,ol,nNz,bi,bj,k |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
84 |
MDS_SEG4TORS_2D |
arr(ii,k,bi,bj)=seg(ii) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
88 |
MDS_SEG4TORS_2D |
seg(ii)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_segxtorx_2d.F |
97 |
MDS_SEG8TORL_2D |
SUBROUTINE MDS_SEG8TORL_2D(sn,ol,nNz,bi,bj,k,copyTo,seg,arr) |
|
./pkg/mdsio/mdsio_wr_rec_rl.F |
47 |
MDS_WR_REC_RL |
INTEGER k |
|
./pkg/mdsio/mdsio_wr_rec_rl.F |
58 |
MDS_WR_REC_RL |
DO k=1,nArr |
|
./pkg/mdsio/mdsio_wr_rec_rl.F |
59 |
MDS_WR_REC_RL |
r4Buf(k) = arr(k) |
|
./pkg/mdsio/mdsio_wr_rec_rl.F |
69 |
MDS_WR_REC_RL |
DO k=1,nArr |
|
./pkg/mdsio/mdsio_wr_rec_rl.F |
70 |
MDS_WR_REC_RL |
r8Buf(k) = arr(k) |
|
./model/src/calc_3d_diffusivity.F |
100 |
CALC_3D_DIFFUSIVITY |
KappaRTr(i,j,k) = |
|
./model/src/calc_3d_diffusivity.F |
101 |
CALC_3D_DIFFUSIVITY |
& IVDConvCount(i,j,k,bi,bj)*ivdc_kappa |
|
./model/src/calc_3d_diffusivity.F |
111 |
CALC_3D_DIFFUSIVITY |
DO k = 1,Nr |
|
./model/src/calc_3d_diffusivity.F |
114 |
CALC_3D_DIFFUSIVITY |
KappaRTr(i,j,k) = KappaRTr(i,j,k) |
|
./model/src/calc_3d_diffusivity.F |
117 |
CALC_3D_DIFFUSIVITY |
& + diffKr(i,j,k,bi,bj) |
|
./model/src/calc_3d_diffusivity.F |
119 |
CALC_3D_DIFFUSIVITY |
& + diffKrNrT(k) |
|
./model/src/calc_3d_diffusivity.F |
125 |
CALC_3D_DIFFUSIVITY |
DO k = 1,Nr |
|
./model/src/calc_3d_diffusivity.F |
128 |
CALC_3D_DIFFUSIVITY |
KappaRTr(i,j,k) = KappaRTr(i,j,k) |
|
./model/src/calc_3d_diffusivity.F |
131 |
CALC_3D_DIFFUSIVITY |
& + diffKr(i,j,k,bi,bj) |
|
./model/src/calc_3d_diffusivity.F |
133 |
CALC_3D_DIFFUSIVITY |
& + diffKrNrS(k) |
|
./model/src/calc_3d_diffusivity.F |
142 |
CALC_3D_DIFFUSIVITY |
DO k = 1,Nr |
|
./model/src/calc_3d_diffusivity.F |
145 |
CALC_3D_DIFFUSIVITY |
KappaRTr(i,j,k) = KappaRTr(i,j,k) |
|
./model/src/calc_3d_diffusivity.F |
148 |
CALC_3D_DIFFUSIVITY |
& + diffKr(i,j,k,bi,bj) |
|
./model/src/calc_3d_diffusivity.F |
150 |
CALC_3D_DIFFUSIVITY |
& + PTRACERS_diffKrNr(k,iTr) |
|
./model/src/calc_3d_diffusivity.F |
189 |
CALC_3D_DIFFUSIVITY |
DO k = 1,Nr |
|
./model/src/calc_3d_diffusivity.F |
192 |
CALC_3D_DIFFUSIVITY |
KappaRTr(i,j,k) = KappaRTr(i,j,k) |
|
./model/src/calc_3d_diffusivity.F |
193 |
CALC_3D_DIFFUSIVITY |
& - diffKrNrS(k) + PTRACERS_diffKrNr(k,iTr) |
|
./model/src/calc_3d_diffusivity.F |
67 |
CALC_3D_DIFFUSIVITY |
INTEGER i,j,k |
|
./model/src/calc_3d_diffusivity.F |
79 |
CALC_3D_DIFFUSIVITY |
DO k = 1,Nr |
|
./model/src/calc_3d_diffusivity.F |
81 |
CALC_3D_DIFFUSIVITY |
& *(atan(-(rF(k)-diffKrBL79Ho)/diffKrBL79scl)/PI+0.5 _d 0) |
|
./model/src/calc_3d_diffusivity.F |
84 |
CALC_3D_DIFFUSIVITY |
& *(atan(-(rF(k)-diffKrBLEQHo)/diffKrBLEQscl)/PI+0.5 _d 0) |
|
./model/src/calc_3d_diffusivity.F |
90 |
CALC_3D_DIFFUSIVITY |
KappaRTr(i,j,k) = |
|
./model/src/calc_3d_diffusivity.F |
91 |
CALC_3D_DIFFUSIVITY |
& LS_IVDConvCount(i,j,k,bi,bj)*ivdc_kappa |
|
./pkg/mdsio/mdsio_wr_rec_rs.F |
47 |
MDS_WR_REC_RS |
INTEGER k |
|
./pkg/mdsio/mdsio_wr_rec_rs.F |
58 |
MDS_WR_REC_RS |
DO k=1,nArr |
|
./pkg/mdsio/mdsio_wr_rec_rs.F |
59 |
MDS_WR_REC_RS |
r4Buf(k) = arr(k) |
|
./pkg/mdsio/mdsio_wr_rec_rs.F |
66 |
MDS_WR_REC_RS |
DO k=1,nArr |
|
./pkg/mdsio/mdsio_wr_rec_rs.F |
67 |
MDS_WR_REC_RS |
r8Buf(k) = arr(k) |
|
./pkg/mdsio/mdsio_write_field.F |
128 |
MDS_WRITE_FIELD |
INTEGER i1,i2,i,j,k,nNz |
|
./pkg/mdsio/mdsio_write_field.F |
262 |
MDS_WRITE_FIELD |
DO k=kLo,kHi |
|
./pkg/mdsio/mdsio_write_field.F |
263 |
MDS_WRITE_FIELD |
zeroBuff = k.EQ.kLo |
|
./pkg/mdsio/mdsio_write_field.F |
268 |
MDS_WRITE_FIELD |
I 0, 0, 1, k, kSize, 0, 0, .FALSE., myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
271 |
MDS_WRITE_FIELD |
I 0, 0, 1, k, kSize, 0, 0, .FALSE., myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
289 |
MDS_WRITE_FIELD |
I 0, 0, 1, k, kSize, 0, 0, .FALSE., myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
292 |
MDS_WRITE_FIELD |
I 0, 0, 1, k, kSize, 0, 0, .FALSE., myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
319 |
MDS_WRITE_FIELD |
irec = 1 + k-kLo + (irecord-1)*nNz |
|
./pkg/mdsio/mdsio_write_field.F |
451 |
MDS_WRITE_FIELD |
DO k=kLo,kHi |
|
./pkg/mdsio/mdsio_write_field.F |
455 |
MDS_WRITE_FIELD |
& +( k-kLo + (irecord-1)*nNz )*global_nTx*ySize |
|
./pkg/mdsio/mdsio_write_field.F |
456 |
MDS_WRITE_FIELD |
i1 = bBij + 1 + (j-1)*sNx + (k-kLo)*sNx*sNy |
|
./pkg/mdsio/mdsio_write_field.F |
457 |
MDS_WRITE_FIELD |
i2 = bBij + j*sNx + (k-kLo)*sNx*sNy |
|
./pkg/mdsio/mdsio_write_section.F |
178 |
MDS_WRITE_SEC_XZ |
DO k=1,kSize |
|
./pkg/mdsio/mdsio_write_section.F |
183 |
MDS_WRITE_SEC_XZ |
& + ( k-1 + (irecord-1)*kSize )*exch2_xStack_Nx |
|
./pkg/mdsio/mdsio_write_section.F |
188 |
MDS_WRITE_SEC_XZ |
irec=1 + INT(iG/sNx) + nSx*nPx*(k-1) |
|
./pkg/mdsio/mdsio_write_section.F |
194 |
MDS_WRITE_SEC_XZ |
irec=k + kSize*(irecord-1) |
|
./pkg/mdsio/mdsio_write_section.F |
198 |
MDS_WRITE_SEC_XZ |
CALL MDS_SEG4TORS_2D( sNx,oLx,kSize,bi,bj,k,.FALSE., |
|
./pkg/mdsio/mdsio_write_section.F |
201 |
MDS_WRITE_SEC_XZ |
CALL MDS_SEG4TORL_2D( sNx,oLx,kSize,bi,bj,k,.FALSE., |
|
./pkg/mdsio/mdsio_write_section.F |
215 |
MDS_WRITE_SEC_XZ |
CALL MDS_SEG8TORS_2D( sNx,oLx,kSize,bi,bj,k,.FALSE., |
|
./pkg/mdsio/mdsio_write_section.F |
218 |
MDS_WRITE_SEC_XZ |
CALL MDS_SEG8TORL_2D( sNx,oLx,kSize,bi,bj,k,.FALSE., |
|
./pkg/mdsio/mdsio_write_section.F |
345 |
MDS_WRITE_SEC_YZ |
INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_write_section.F |
431 |
MDS_WRITE_SEC_YZ |
DO k=1,kSize |
|
./pkg/mdsio/mdsio_write_section.F |
436 |
MDS_WRITE_SEC_YZ |
& + ( k-1 + (irecord-1)*kSize )*exch2_yStack_Ny |
|
./pkg/mdsio/mdsio_write_section.F |
441 |
MDS_WRITE_SEC_YZ |
irec=1 + INT(jG/sNy) + nSy*nPy*(k-1) |
|
./pkg/mdsio/mdsio_write_section.F |
447 |
MDS_WRITE_SEC_YZ |
irec=k + kSize*(irecord-1) |
|
./pkg/mdsio/mdsio_write_section.F |
451 |
MDS_WRITE_SEC_YZ |
CALL MDS_SEG4TORS_2D( sNy,oLy,kSize,bi,bj,k,.FALSE., |
|
./pkg/mdsio/mdsio_write_section.F |
454 |
MDS_WRITE_SEC_YZ |
CALL MDS_SEG4TORL_2D( sNy,oLy,kSize,bi,bj,k,.FALSE., |
|
./pkg/mdsio/mdsio_write_section.F |
468 |
MDS_WRITE_SEC_YZ |
CALL MDS_SEG8TORS_2D( sNy,oLy,kSize,bi,bj,k,.FALSE., |
|
./pkg/mdsio/mdsio_write_section.F |
471 |
MDS_WRITE_SEC_YZ |
CALL MDS_SEG8TORL_2D( sNy,oLy,kSize,bi,bj,k,.FALSE., |
|
./pkg/mdsio/mdsio_write_section.F |
91 |
MDS_WRITE_SEC_XZ |
INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_write_whalos.F |
89 |
MDS_WRITE_WHALOS |
integer i,j,k,bi,bj,ii |
|
./pkg/mdsio/mdsio_writelocal.F |
115 |
MDS_WRITELOCAL |
INTEGER i1,i2,i,j,k |
|
./pkg/mdsio/mdsio_writelocal.F |
326 |
MDS_WRITELOCAL |
DO k=1,nNz |
|
./pkg/mdsio/mdsio_writelocal.F |
331 |
MDS_WRITELOCAL |
& + ( k-1 + (irecord-1)*nNz )*global_nTx*ySize |
|
./pkg/mdsio/mdsio_writelocal.F |
332 |
MDS_WRITELOCAL |
i1 = bBij + 1 + (j-1)*sNx + (k-1)*sNx*sNy |
|
./pkg/mdsio/mdsio_writelocal.F |
333 |
MDS_WRITELOCAL |
i2 = bBij + j*sNx + (k-1)*sNx*sNy |
|
./pkg/mdsio/mdsio_writevector.F |
153 |
MDSWRITEVECTOR |
DO k=1,1 |
|
./model/src/calc_buoyancy.F |
29 |
CALC_BUOYANCY |
INTEGER k |
|
./model/src/calc_buoyancy.F |
41 |
CALC_BUOYANCY |
buoy(i,j)=(theta(i,j,k,bi,bj)-tRef(k))/tRef(k) |
|
./model/src/calc_buoyancy.F |
7 |
CALC_BUOYANCY |
I bi, bj, iMin, iMax, jMin, jMax, k, rhoLoc, |
|
./model/src/calc_common_factors.F |
100 |
CALC_COMMON_FACTORS |
vTrans(i,j) = vFld(i,j)*yA(i,j)*rhoFacC(k) |
|
./model/src/calc_common_factors.F |
12 |
CALC_COMMON_FACTORS |
I k,bi,bj, myThid ) |
|
./model/src/calc_common_factors.F |
56 |
CALC_COMMON_FACTORS |
INTEGER k,bi,bj |
|
./model/src/calc_common_factors.F |
80 |
CALC_COMMON_FACTORS |
xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k) |
|
./model/src/calc_common_factors.F |
81 |
CALC_COMMON_FACTORS |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./model/src/calc_common_factors.F |
82 |
CALC_COMMON_FACTORS |
yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k) |
|
./model/src/calc_common_factors.F |
83 |
CALC_COMMON_FACTORS |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./model/src/calc_common_factors.F |
90 |
CALC_COMMON_FACTORS |
uFld(i,j) = uVel(i,j,k,bi,bj) |
|
./model/src/calc_common_factors.F |
91 |
CALC_COMMON_FACTORS |
vFld(i,j) = vVel(i,j,k,bi,bj) |
|
./model/src/calc_common_factors.F |
99 |
CALC_COMMON_FACTORS |
uTrans(i,j) = uFld(i,j)*xA(i,j)*rhoFacC(k) |
|
./pkg/mnc/mnc_file.F |
339 |
MNC_FILE_CLOSE |
integer i,j,k,n, err, fid, indf, nf |
|
./pkg/mnc/mnc_file.F |
366 |
MNC_FILE_CLOSE |
k = mnc_fv_ids(indf,j) |
|
./pkg/mnc/mnc_file.F |
367 |
MNC_FILE_CLOSE |
mnc_v_names(k)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_file.F |
388 |
MNC_FILE_CLOSE |
k = mnc_f_info(indf,j) |
|
./pkg/mnc/mnc_file.F |
389 |
MNC_FILE_CLOSE |
mnc_g_names(k)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_file.F |
658 |
MNC_FILE_TRY_READ |
integer i,j,k, fid, err, ndim,nvar,ngat,unlimid |
|
./pkg/mnc/mnc_file.F |
743 |
MNC_FILE_TRY_READ |
k = mnc_f_info(indf,j) |
|
./pkg/mnc/mnc_file.F |
744 |
MNC_FILE_TRY_READ |
IF (k .EQ. indg) THEN |
|
./pkg/mnc/mnc_grid.F |
143 |
MNC_GRID_INIT_ALL |
k = 0 |
|
./pkg/mnc/mnc_grid.F |
145 |
MNC_GRID_INIT_ALL |
k = k + 1 |
|
./pkg/mnc/mnc_grid.F |
146 |
MNC_GRID_INIT_ALL |
IF (mnc_d_names(mnc_fd_ind(indf,jj)) .NE. dnames(k)) THEN |
|
./pkg/mnc/mnc_grid.F |
241 |
MNC_GRID_GET_DIMIND |
integer i,j,k,l, n,n1, ngrid, ds,de |
|
./pkg/mnc/mnc_grid.F |
254 |
MNC_GRID_GET_DIMIND |
DO k = ds,de |
|
./pkg/mnc/mnc_grid.F |
255 |
MNC_GRID_GET_DIMIND |
l = mnc_fd_ind(indf,k) |
|
./pkg/mnc/mnc_grid.F |
259 |
MNC_GRID_GET_DIMIND |
ind_fg_ids = k |
|
./pkg/mnc/mnc_grid.F |
72 |
MNC_GRID_INIT_ALL |
integer i,j,k,ii,jj,kk, n,nf, indf,indg,indd, fid, ngrid |
|
./pkg/mnc/mnc_readparms.F |
190 |
MNC_SET_OUTDIR |
integer i,j,k, ntot, npathd, idate |
|
./pkg/mnc/mnc_readparms.F |
212 |
MNC_SET_OUTDIR |
k = ILNBLNK(mnc_outdir_str) |
|
./pkg/mnc/mnc_readparms.F |
213 |
MNC_SET_OUTDIR |
IF (k .GT. MNC_MAX_PATH) k = MNC_MAX_PATH |
|
./pkg/mnc/mnc_readparms.F |
214 |
MNC_SET_OUTDIR |
pathd(1:k) = mnc_outdir_str(1:k) |
|
./pkg/mnc/mnc_readparms.F |
216 |
MNC_SET_OUTDIR |
DO i = 1,k |
|
./pkg/mnc/mnc_utils.F |
211 |
MNC_GET_FVINDS |
integer i,j,k, n, lenv |
|
./pkg/mnc/mnc_utils.F |
229 |
MNC_GET_FVINDS |
k = 2 + 3*(i - 1) |
|
./pkg/mnc/mnc_utils.F |
230 |
MNC_GET_FVINDS |
j = mnc_fv_ids(indf,k) |
|
./pkg/mnc/mnc_utils.F |
234 |
MNC_GET_FVINDS |
ind_fv_ids = k |
|
./pkg/mnc/mnc_utils.F |
275 |
MNC_CHK_VTYP_R_NCVAR |
integer ii,k, ind_cw_g, ig,ids,ide,nint, indd, nk |
|
./pkg/mnc/mnc_utils.F |
306 |
MNC_CHK_VTYP_R_NCVAR |
DO k = 1,nk |
|
./pkg/mnc/mnc_utils.F |
307 |
MNC_CHK_VTYP_R_NCVAR |
ii = ids + (k - 1) |
|
./pkg/mnc/mnc_utils.F |
308 |
MNC_CHK_VTYP_R_NCVAR |
sz_min = mnc_cw_dims(k,ind_cw_g) |
|
./pkg/mnc/mnc_utils.F |
313 |
MNC_CHK_VTYP_R_NCVAR |
& k, ' is too small: ', mnc_d_size(indd), ' vs ', |
|
./pkg/mnc/mnc_utils.F |
314 |
MNC_CHK_VTYP_R_NCVAR |
& mnc_cw_ie(k,ind_cw_g) |
|
./pkg/mnc/mnc_var.F |
145 |
MNC_VAR_INIT_ANY |
INTEGER i,j,k, n, nf, indf,indv, fid, nd, ngrid, is,ie, err |
|
./pkg/mnc/mnc_var.F |
187 |
MNC_VAR_INIT_ANY |
k = mnc_f_info(indf,j) |
|
./pkg/mnc/mnc_var.F |
188 |
MNC_VAR_INIT_ANY |
n = ILNBLNK(mnc_g_names(k)) |
|
./pkg/mnc/mnc_var.F |
190 |
MNC_VAR_INIT_ANY |
& .AND. (mnc_g_names(k)(1:n) .EQ. gname(1:n))) THEN |
|
./pkg/mnc/mnc_var.F |
195 |
MNC_VAR_INIT_ANY |
DO k = is,ie |
|
./pkg/mnc/mnc_var.F |
197 |
MNC_VAR_INIT_ANY |
ids(nd) = mnc_d_ids(mnc_fd_ind(indf,k)) |
|
./pkg/mnc/mnc_var.F |
213 |
MNC_VAR_INIT_ANY |
k = mnc_f_info(indf,mnc_fv_ids(indf,j+2)) |
|
./pkg/mnc/mnc_var.F |
214 |
MNC_VAR_INIT_ANY |
IF (mnc_g_names(k) .NE. gname) THEN |
|
./pkg/mnc/mnc_var.F |
680 |
MNC_VAR_WRITE_ANY |
INTEGER i,j,k, n, indf,ind_fv_ids, fid,vid,did, ig, err, ds,de |
|
./pkg/mnc/mnc_var.F |
704 |
MNC_VAR_WRITE_ANY |
k = 0 |
|
./pkg/mnc/mnc_var.F |
706 |
MNC_VAR_WRITE_ANY |
k = k + 1 |
|
./pkg/mnc/mnc_var.F |
707 |
MNC_VAR_WRITE_ANY |
vstart(k) = 1 |
|
./pkg/mnc/mnc_var.F |
708 |
MNC_VAR_WRITE_ANY |
vcount(k) = mnc_d_size( mnc_fd_ind(indf,i) ) |
|
./pkg/mnc/mnc_var.F |
722 |
MNC_VAR_WRITE_ANY |
vstart(k) = lend |
|
./pkg/mnc/mnc_var.F |
723 |
MNC_VAR_WRITE_ANY |
vcount(k) = 1 |
|
./model/src/calc_diffusivity.F |
112 |
CALC_DIFFUSIVITY |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./model/src/calc_diffusivity.F |
116 |
CALC_DIFFUSIVITY |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./model/src/calc_diffusivity.F |
11 |
CALC_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./model/src/calc_diffusivity.F |
126 |
CALC_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,k,1, |
|
./model/src/calc_diffusivity.F |
130 |
CALC_DIFFUSIVITY |
I bi,bj,iMin,iMax,jMin,jMax,k,1, |
|
./model/src/calc_diffusivity.F |
140 |
CALC_DIFFUSIVITY |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./model/src/calc_diffusivity.F |
144 |
CALC_DIFFUSIVITY |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./model/src/calc_diffusivity.F |
153 |
CALC_DIFFUSIVITY |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./model/src/calc_diffusivity.F |
157 |
CALC_DIFFUSIVITY |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./model/src/calc_diffusivity.F |
166 |
CALC_DIFFUSIVITY |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./model/src/calc_diffusivity.F |
170 |
CALC_DIFFUSIVITY |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./model/src/calc_diffusivity.F |
67 |
CALC_DIFFUSIVITY |
& *(atan(-(rF(k)-diffKrBL79Ho)/diffKrBL79scl)/PI+0.5 _d 0) |
|
./model/src/calc_diffusivity.F |
70 |
CALC_DIFFUSIVITY |
& *(atan(-(rF(k)-diffKrBLEQHo)/diffKrBLEQscl)/PI+0.5 _d 0) |
|
./model/src/calc_diffusivity.F |
76 |
CALC_DIFFUSIVITY |
& IVDConvCount(i,j,k,bi,bj)*ivdc_kappa |
|
./model/src/calc_diffusivity.F |
79 |
CALC_DIFFUSIVITY |
& + diffKr(i,j,k,bi,bj) |
|
./model/src/calc_diffusivity.F |
81 |
CALC_DIFFUSIVITY |
& + diffKrNrT(k) |
|
./model/src/calc_diffusivity.F |
93 |
CALC_DIFFUSIVITY |
& IVDConvCount(i,j,k,bi,bj)*ivdc_kappa |
|
./model/src/calc_diffusivity.F |
96 |
CALC_DIFFUSIVITY |
& + diffKr(i,j,k,bi,bj) |
|
./model/src/calc_diffusivity.F |
98 |
CALC_DIFFUSIVITY |
& + diffKrNrS(k) |
|
./pkg/mom_common/mom_calc_absvort3.F |
24 |
MOM_CALC_ABSVORT3 |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_calc_absvort3.F |
7 |
MOM_CALC_ABSVORT3 |
I bi,bj,k, |
|
./pkg/mom_common/mom_calc_hdiv.F |
24 |
MOM_CALC_HDIV |
INTEGER bi,bj,k,hDivScheme |
|
./pkg/mom_common/mom_calc_hdiv.F |
58 |
MOM_CALC_HDIV |
& *_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
7 |
MOM_CALC_HDIV |
I bi,bj,k, hDivScheme, |
|
./pkg/mom_common/mom_calc_hfacz.F |
116 |
MOM_CALC_HFACZ |
& smoothMin_R4(_hFacW(i ,j ,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
118 |
MOM_CALC_HFACZ |
& MIN(_hFacW(i ,j ,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
11 |
MOM_CALC_HFACZ |
I bi,bj,k, |
|
./pkg/mom_common/mom_calc_hfacz.F |
120 |
MOM_CALC_HFACZ |
& _hFacW(i ,j-1,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
121 |
MOM_CALC_HFACZ |
& *maskW(i,j,k,bi,bj)*maskW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
124 |
MOM_CALC_HFACZ |
& smoothMin_R4(_hFacS(i ,j ,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
126 |
MOM_CALC_HFACZ |
& MIN(_hFacS(i ,j ,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
128 |
MOM_CALC_HFACZ |
& _hFacS(i-1,j ,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
129 |
MOM_CALC_HFACZ |
& *maskS(i,j,k,bi,bj)*maskS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
146 |
MOM_CALC_HFACZ |
& *maskW(i,j,k,bi,bj)*maskW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
147 |
MOM_CALC_HFACZ |
& *maskS(i,j,k,bi,bj)*maskS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
201 |
MOM_CALC_HFACZ |
& ( _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
202 |
MOM_CALC_HFACZ |
& +_hFacW(i,j-1,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
203 |
MOM_CALC_HFACZ |
& + ( _hFacS( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
204 |
MOM_CALC_HFACZ |
& +_hFacS(i-1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
219 |
MOM_CALC_HFACZ |
& _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
220 |
MOM_CALC_HFACZ |
& + _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
221 |
MOM_CALC_HFACZ |
& , _hFacS( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
222 |
MOM_CALC_HFACZ |
& + _hFacS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
230 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacW(i,j,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
231 |
MOM_CALC_HFACZ |
& _hFacW(i,j-1,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
232 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
233 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
267 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacW(i,j,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
268 |
MOM_CALC_HFACZ |
& _hFacW(i,j-1,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
269 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
274 |
MOM_CALC_HFACZ |
& ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
275 |
MOM_CALC_HFACZ |
& +_hFacS( i ,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
276 |
MOM_CALC_HFACZ |
& + _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
279 |
MOM_CALC_HFACZ |
& ( _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
280 |
MOM_CALC_HFACZ |
& +_hFacW(i,j-1,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
281 |
MOM_CALC_HFACZ |
& + _hFacS( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
292 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacW(i,j,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
293 |
MOM_CALC_HFACZ |
& _hFacW(i,j-1,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
294 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
299 |
MOM_CALC_HFACZ |
& ( _hFacS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
300 |
MOM_CALC_HFACZ |
& +_hFacW(i,j-1,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
301 |
MOM_CALC_HFACZ |
& + _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
304 |
MOM_CALC_HFACZ |
& ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
305 |
MOM_CALC_HFACZ |
& +_hFacW(i, j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
306 |
MOM_CALC_HFACZ |
& + _hFacS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
309 |
MOM_CALC_HFACZ |
& ( _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
310 |
MOM_CALC_HFACZ |
& +_hFacS(i-1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
311 |
MOM_CALC_HFACZ |
& + _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
322 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacW(i,j,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
323 |
MOM_CALC_HFACZ |
& _hFacW(i,j-1,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
324 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
329 |
MOM_CALC_HFACZ |
& ( _hFacS( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
330 |
MOM_CALC_HFACZ |
& +_hFacW(i, j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
331 |
MOM_CALC_HFACZ |
& + _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
334 |
MOM_CALC_HFACZ |
& ( _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
335 |
MOM_CALC_HFACZ |
& +_hFacW(i,j-1,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
336 |
MOM_CALC_HFACZ |
& + _hFacS( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
339 |
MOM_CALC_HFACZ |
& ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
340 |
MOM_CALC_HFACZ |
& +_hFacS( i ,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
341 |
MOM_CALC_HFACZ |
& + _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
351 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacW(i,j,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
352 |
MOM_CALC_HFACZ |
& _hFacW(i,j-1,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
353 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
358 |
MOM_CALC_HFACZ |
& ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
359 |
MOM_CALC_HFACZ |
& +_hFacW(i, j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
360 |
MOM_CALC_HFACZ |
& + _hFacS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
363 |
MOM_CALC_HFACZ |
& ( _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
364 |
MOM_CALC_HFACZ |
& +_hFacS(i-1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
365 |
MOM_CALC_HFACZ |
& + _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
39 |
MOM_CALC_HFACZ |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_calc_hfacz.F |
91 |
MOM_CALC_HFACZ |
kkey = (ikey-1)*Nr + k |
|
./pkg/mom_common/mom_calc_ke.F |
102 |
MOM_CALC_KE |
& ( uFld( i , j )*uFld( i , j )*_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
103 |
MOM_CALC_KE |
& +uFld(i+1, j )*uFld(i+1, j )*_hFacW(i+1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_ke.F |
104 |
MOM_CALC_KE |
& + ( vFld( i , j )*vFld( i , j )*_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
105 |
MOM_CALC_KE |
& +vFld( i ,j+1)*vFld( i ,j+1)*_hFacS(i,j+1,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_ke.F |
106 |
MOM_CALC_KE |
& )*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
117 |
MOM_CALC_KE |
& *_hFacW(i ,j, k,bi,bj)*rAw(i ,j, bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
119 |
MOM_CALC_KE |
& *_hFacW(i+1,j,k,bi,bj)*rAw(i+1,j,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
11 |
MOM_CALC_KE |
I bi,bj,k,KEscheme, |
|
./pkg/mom_common/mom_calc_ke.F |
123 |
MOM_CALC_KE |
& *_hFacS(i, j, k,bi,bj)*rAs(i ,j, bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
125 |
MOM_CALC_KE |
& *_hFacS(i,j+1,k,bi,bj)*rAs(i,j+1,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
126 |
MOM_CALC_KE |
& ) )*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
35 |
MOM_CALC_KE |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_calc_relvort3.F |
138 |
MOM_CALC_RELVORT3 |
& *maskS(i-1,j,k,bi,bj)*maskS(i-2,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
139 |
MOM_CALC_RELVORT3 |
& *maskW(i-1,j,k,bi,bj)*maskS(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
195 |
MOM_CALC_RELVORT3 |
& *maskS(i+1,j,k,bi,bj)*maskS(i-0,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
196 |
MOM_CALC_RELVORT3 |
& *maskW(i+1,j,k,bi,bj)*maskS(i-1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
252 |
MOM_CALC_RELVORT3 |
& *maskS(i-1,j,k,bi,bj)*maskS(i-2,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
253 |
MOM_CALC_RELVORT3 |
& *maskS(i,j+1,k,bi,bj)*maskW(i-1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
29 |
MOM_CALC_RELVORT3 |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_calc_relvort3.F |
302 |
MOM_CALC_RELVORT3 |
& *maskS(i+1,j,k,bi,bj)*maskS(i-0,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
303 |
MOM_CALC_RELVORT3 |
& *maskS(i-1,j+1,k,bi,bj)*maskW(i+1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
8 |
MOM_CALC_RELVORT3 |
I bi,bj,k, |
|
./pkg/mom_common/mom_calc_strain.F |
11 |
MOM_CALC_STRAIN |
I bi,bj,k, |
|
./pkg/mom_common/mom_calc_strain.F |
38 |
MOM_CALC_STRAIN |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_calc_tension.F |
11 |
MOM_CALC_TENSION |
I bi,bj,k, |
|
./pkg/mom_common/mom_calc_tension.F |
35 |
MOM_CALC_TENSION |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_calc_visc.F |
156 |
MOM_CALC_VISC |
lockey_1 = (ikey-1)*Nr + k |
|
./pkg/mom_common/mom_calc_visc.F |
333 |
MOM_CALC_VISC |
& *maskS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
341 |
MOM_CALC_VISC |
& *maskW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
447 |
MOM_CALC_VISC |
& +viscAhDfld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
458 |
MOM_CALC_VISC |
& +viscA4Dfld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
468 |
MOM_CALC_VISC |
kp1 = MIN(k+1,Nr) |
|
./pkg/mom_common/mom_calc_visc.F |
470 |
MOM_CALC_VISC |
IF ( k.EQ.1 ) THEN |
|
./pkg/mom_common/mom_calc_visc.F |
476 |
MOM_CALC_VISC |
viscAh_W(i,j,k,bi,bj)=viscAh_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
477 |
MOM_CALC_VISC |
viscA4_W(i,j,k,bi,bj)=viscA4_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
479 |
MOM_CALC_VISC |
ELSEIF ( k.EQ.Nr ) THEN |
|
./pkg/mom_common/mom_calc_visc.F |
480 |
MOM_CALC_VISC |
viscAh_W(i,j,k,bi,bj)=viscAh_W(i,j,k,bi,bj)+0.5*viscAh_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
481 |
MOM_CALC_VISC |
viscA4_W(i,j,k,bi,bj)=viscA4_W(i,j,k,bi,bj)+0.5*viscA4_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
489 |
MOM_CALC_VISC |
viscAh_W(i,j,k,bi,bj)=viscAh_W(i,j,k,bi,bj)+0.5*viscAh_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
490 |
MOM_CALC_VISC |
viscA4_W(i,j,k,bi,bj)=viscA4_W(i,j,k,bi,bj)+0.5*viscA4_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
579 |
MOM_CALC_VISC |
& +viscAhZfld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
590 |
MOM_CALC_VISC |
& +viscA4Zfld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
616 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_D,'VISCAHD ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
617 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_D,'VISCA4D ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
618 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_Z,'VISCAHZ ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
619 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_Z,'VISCA4Z ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
621 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_DMax,'VAHDMAX ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
622 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_DMax,'VA4DMAX ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
623 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_ZMax,'VAHZMAX ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
624 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_ZMax,'VA4ZMAX ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
626 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_DMin,'VAHDMIN ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
627 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_DMin,'VA4DMIN ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
628 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_ZMin,'VAHZMIN ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
629 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_ZMin,'VA4ZMIN ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
631 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_DLth,'VAHDLTH ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
632 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_DLth,'VA4DLTH ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
633 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_ZLth,'VAHZLTH ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
634 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_ZLth,'VA4ZLTH ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
637 |
MOM_CALC_VISC |
& ,k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
639 |
MOM_CALC_VISC |
& ,k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
641 |
MOM_CALC_VISC |
& ,k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
643 |
MOM_CALC_VISC |
& ,k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
645 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_DSmg,'VAHDSMAG',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
646 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_DSmg,'VA4DSMAG',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
647 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_ZSmg,'VAHZSMAG',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
648 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_ZSmg,'VA4ZSMAG',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
8 |
MOM_CALC_VISC |
I bi,bj,k, |
|
./pkg/mom_common/mom_calc_visc.F |
90 |
MOM_CALC_VISC |
INTEGER bi,bj,k |
|
./model/src/calc_div_ghat.F |
10 |
CALC_DIV_GHAT |
I bi,bj,k, |
|
./model/src/calc_div_ghat.F |
112 |
CALC_DIV_GHAT |
pf(i,j) = ( implicDiv2Dflow * gU(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
113 |
CALC_DIV_GHAT |
& + (1. _d 0-implicDiv2Dflow)* uVel(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
129 |
CALC_DIV_GHAT |
cg3d_b(i,j,k,bi,bj) = ( pf(i+1,j)-pf(i,j) ) |
|
./model/src/calc_div_ghat.F |
139 |
CALC_DIV_GHAT |
pf(i,j) = yA(i,j)*gV(i,j,k,bi,bj) / deltatmom |
|
./model/src/calc_div_ghat.F |
148 |
CALC_DIV_GHAT |
& *yA(i,j)*gV(i,j,k,bi,bj) / deltatmom |
|
./model/src/calc_div_ghat.F |
155 |
CALC_DIV_GHAT |
pf(i,j) = ( implicDiv2Dflow * gV(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
156 |
CALC_DIV_GHAT |
& + (1. _d 0-implicDiv2Dflow)* vVel(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
172 |
CALC_DIV_GHAT |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
184 |
CALC_DIV_GHAT |
& - addMass(i,j,k,bi,bj)*mass2rUnit/deltaTmom |
|
./model/src/calc_div_ghat.F |
191 |
CALC_DIV_GHAT |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
192 |
CALC_DIV_GHAT |
& - addMass(i,j,k,bi,bj)*mass2rUnit/deltaTmom |
|
./model/src/calc_div_ghat.F |
41 |
CALC_DIV_GHAT |
INTEGER k |
|
./model/src/calc_div_ghat.F |
64 |
CALC_DIV_GHAT |
xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k) |
|
./model/src/calc_div_ghat.F |
65 |
CALC_DIV_GHAT |
& *drF(k)*_hFacW(i,j,k,bi,bj)*rhoFacC(k) |
|
./model/src/calc_div_ghat.F |
66 |
CALC_DIV_GHAT |
yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k) |
|
./model/src/calc_div_ghat.F |
67 |
CALC_DIV_GHAT |
& *drF(k)*_hFacS(i,j,k,bi,bj)*rhoFacC(k) |
|
./model/src/calc_div_ghat.F |
80 |
CALC_DIV_GHAT |
pf(i,j) = xA(i,j)*gU(i,j,k,bi,bj) / deltaTmom |
|
./model/src/calc_div_ghat.F |
89 |
CALC_DIV_GHAT |
& *xA(i,j)*gU(i,j,k,bi,bj) / deltaTmom |
|
./pkg/mom_common/mom_hdissip.F |
28 |
MOM_HDISSIP |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_hdissip.F |
7 |
MOM_HDISSIP |
I bi,bj,k, |
|
./pkg/mom_common/mom_init_fixed.F |
40 |
MOM_INIT_FIXED |
INTEGER k |
|
./pkg/mom_common/mom_init_fixed.F |
47 |
MOM_INIT_FIXED |
DO k=1,Nr |
|
./pkg/mom_common/mom_init_fixed.F |
50 |
MOM_INIT_FIXED |
h0FacC(i,j,k,bi,bj) = _hFacC(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_init_fixed.F |
51 |
MOM_INIT_FIXED |
h0FacW(i,j,k,bi,bj) = _hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_init_fixed.F |
52 |
MOM_INIT_FIXED |
h0FacS(i,j,k,bi,bj) = _hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_init_fixed.F |
63 |
MOM_INIT_FIXED |
DO k=1,Nr |
|
./pkg/mom_common/mom_init_fixed.F |
67 |
MOM_INIT_FIXED |
viscAhDfld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
68 |
MOM_INIT_FIXED |
viscAhZfld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
71 |
MOM_INIT_FIXED |
viscA4Dfld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
72 |
MOM_INIT_FIXED |
viscA4Zfld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_common/mom_quasihydrostatic.F |
11 |
MOM_QUASIHYDROSTATIC |
I bi,bj,k, |
|
./pkg/mom_common/mom_quasihydrostatic.F |
38 |
MOM_QUASIHYDROSTATIC |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_quasihydrostatic.F |
68 |
MOM_QUASIHYDROSTATIC |
& (uFld(i,j,k,bi,bj)+uFld(i+1,j,k,bi,bj)) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
70 |
MOM_QUASIHYDROSTATIC |
& (vFld(i,j,k,bi,bj)+vFld(i,j+1,k,bi,bj)) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
81 |
MOM_QUASIHYDROSTATIC |
& ( (uFld( i ,j,k,bi,bj)*uFld( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
82 |
MOM_QUASIHYDROSTATIC |
& +uFld(i+1,j,k,bi,bj)*uFld(i+1,j,k,bi,bj)) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
83 |
MOM_QUASIHYDROSTATIC |
& + (vFld(i, j ,k,bi,bj)*vFld(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
84 |
MOM_QUASIHYDROSTATIC |
& +vFld(i,j+1,k,bi,bj)*vFld(i,j+1,k,bi,bj)) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
85 |
MOM_QUASIHYDROSTATIC |
& )* 0.5 _d 0 * recip_rSphere*recip_deepFacC(k) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
101 |
MOM_U_BOTTOMDRAG |
CALL DIAGNOSTICS_FILL(uDragTerms,'UBotDrag',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
11 |
MOM_U_BOTTOMDRAG |
I bi,bj,k, |
|
./pkg/mom_common/mom_u_bottomdrag.F |
39 |
MOM_U_BOTTOMDRAG |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_u_bottomdrag.F |
60 |
MOM_U_BOTTOMDRAG |
kDown = min(k+1,kBottom) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
67 |
MOM_U_BOTTOMDRAG |
kDown = max(k-1,kBottom) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
68 |
MOM_U_BOTTOMDRAG |
kDownC = k |
|
./pkg/mom_common/mom_u_bottomdrag.F |
73 |
MOM_U_BOTTOMDRAG |
IF (k.EQ.kBottom) rdrckp1=recip_drF(k) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
79 |
MOM_U_BOTTOMDRAG |
IF (k.EQ.kBottom) maskDown=0. |
|
./pkg/mom_common/mom_u_bottomdrag.F |
81 |
MOM_U_BOTTOMDRAG |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
92 |
MOM_U_BOTTOMDRAG |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
11 |
MOM_U_CORIOLIS_NH |
I bi,bj,k,wFld, |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
34 |
MOM_U_CORIOLIS_NH |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
49 |
MOM_U_CORIOLIS_NH |
kp1=min(k+1,Nr) |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
51 |
MOM_U_CORIOLIS_NH |
IF (k.EQ.Nr) wMsk=0. |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
58 |
MOM_U_CORIOLIS_NH |
& *0.5*( wFld( i ,j, k ,bi,bj)*rVel2wUnit( k ) |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
61 |
MOM_U_CORIOLIS_NH |
& *0.5*( wFld(i-1,j, k ,bi,bj)*rVel2wUnit( k ) |
|
./pkg/mom_common/mom_u_implicit_r.F |
100 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
101 |
MOM_U_IMPLICIT_R |
& *KappaRU(i,j,k+1)*recip_drC(k+1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
106 |
MOM_U_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/mom_common/mom_u_implicit_r.F |
109 |
MOM_U_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 - b5d(i,j,k) - d5d(i,j,k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
120 |
MOM_U_IMPLICIT_R |
DO k=2,Nr |
|
./pkg/mom_common/mom_u_implicit_r.F |
125 |
MOM_U_IMPLICIT_R |
& wVel( i ,j,k,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
126 |
MOM_U_IMPLICIT_R |
& *maskC( i ,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
127 |
MOM_U_IMPLICIT_R |
& + wVel(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
128 |
MOM_U_IMPLICIT_R |
& *maskC(i-1,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
145 |
MOM_U_IMPLICIT_R |
b5d(i,j,k) = b5d(i,j,k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
147 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
148 |
MOM_U_IMPLICIT_R |
c5d(i,j,k) = c5d(i,j,k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
150 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
151 |
MOM_U_IMPLICIT_R |
c5d(i,j,k-1) = c5d(i,j,k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
153 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
154 |
MOM_U_IMPLICIT_R |
d5d(i,j,k-1) = d5d(i,j,k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
156 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
165 |
MOM_U_IMPLICIT_R |
b5d(i,j,k) = b5d(i,j,k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
166 |
MOM_U_IMPLICIT_R |
& - rCenter*_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
167 |
MOM_U_IMPLICIT_R |
c5d(i,j,k) = c5d(i,j,k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
168 |
MOM_U_IMPLICIT_R |
& - rCenter*_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
169 |
MOM_U_IMPLICIT_R |
c5d(i,j,k-1) = c5d(i,j,k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
170 |
MOM_U_IMPLICIT_R |
& + rCenter*_recip_hFacW(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
171 |
MOM_U_IMPLICIT_R |
d5d(i,j,k-1) = d5d(i,j,k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
172 |
MOM_U_IMPLICIT_R |
& + rCenter*_recip_hFacW(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
203 |
MOM_U_IMPLICIT_R |
DO k= 1,Nr |
|
./pkg/mom_common/mom_u_implicit_r.F |
204 |
MOM_U_IMPLICIT_R |
IF ( k.EQ.1 ) THEN |
|
./pkg/mom_common/mom_u_implicit_r.F |
216 |
MOM_U_IMPLICIT_R |
& -KappaRU(i,j,k)*rAw(i,j,bi,bj)*recip_drC(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
217 |
MOM_U_IMPLICIT_R |
& * (gU(i,j,k,bi,bj) - gU(i,j,k-1,bi,bj))*rkSign |
|
./pkg/mom_common/mom_u_implicit_r.F |
218 |
MOM_U_IMPLICIT_R |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
219 |
MOM_U_IMPLICIT_R |
& *_maskW(i,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
223 |
MOM_U_IMPLICIT_R |
CALL DIAGNOSTICS_FILL(vf,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/mom_common/mom_u_implicit_r.F |
40 |
MOM_U_IMPLICIT_R |
INTEGER i,j,k |
|
./pkg/mom_common/mom_u_implicit_r.F |
66 |
MOM_U_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/mom_common/mom_u_implicit_r.F |
70 |
MOM_U_IMPLICIT_R |
b5d(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_u_implicit_r.F |
71 |
MOM_U_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 |
|
./pkg/mom_common/mom_u_implicit_r.F |
72 |
MOM_U_IMPLICIT_R |
d5d(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_u_implicit_r.F |
84 |
MOM_U_IMPLICIT_R |
DO k=2,Nr |
|
./pkg/mom_common/mom_u_implicit_r.F |
87 |
MOM_U_IMPLICIT_R |
IF (maskW(i,j,k-1,bi,bj).EQ.1.) |
|
./pkg/mom_common/mom_u_implicit_r.F |
88 |
MOM_U_IMPLICIT_R |
& b5d(i,j,k) = -deltaTmom |
|
./pkg/mom_common/mom_u_implicit_r.F |
89 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
90 |
MOM_U_IMPLICIT_R |
& *kappaRU(i,j, k )*recip_drC( k ) |
|
./pkg/mom_common/mom_u_implicit_r.F |
95 |
MOM_U_IMPLICIT_R |
DO k=1,Nr-1 |
|
./pkg/mom_common/mom_u_implicit_r.F |
98 |
MOM_U_IMPLICIT_R |
IF (maskW(i,j,k+1,bi,bj).EQ.1.) |
|
./pkg/mom_common/mom_u_implicit_r.F |
99 |
MOM_U_IMPLICIT_R |
& d5d(i,j,k) = -deltaTmom |
|
./pkg/mom_common/mom_u_metric_nh.F |
11 |
MOM_U_METRIC_NH |
I bi,bj,k, |
|
./pkg/mom_common/mom_u_metric_nh.F |
35 |
MOM_U_METRIC_NH |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_u_metric_nh.F |
50 |
MOM_U_METRIC_NH |
kp1=min(k+1,Nr) |
|
./pkg/mom_common/mom_u_metric_nh.F |
52 |
MOM_U_METRIC_NH |
IF (k.EQ.Nr) wVelBottomOverride=0. |
|
./pkg/mom_common/mom_u_metric_nh.F |
56 |
MOM_U_METRIC_NH |
uMetricTerms(i,j) = uFld(i,j)*recip_rSphere*recip_deepFacC(k) |
|
./pkg/mom_common/mom_u_metric_nh.F |
59 |
MOM_U_METRIC_NH |
& + (wFld(i-1,j, k ,bi,bj)+wFld(i,j, k ,bi,bj)) |
|
./pkg/mom_common/mom_u_metric_nh.F |
60 |
MOM_U_METRIC_NH |
& *rVel2wUnit( k ) |
|
./pkg/mom_common/mom_u_rviscflux.F |
11 |
MOM_U_RVISCFLUX |
I bi,bj,k, |
|
./pkg/mom_common/mom_u_rviscflux.F |
36 |
MOM_U_RVISCFLUX |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_u_rviscflux.F |
51 |
MOM_U_RVISCFLUX |
IF ( k.LE.1 .OR. k.GT.Nr ) THEN |
|
./pkg/mom_common/mom_u_rviscflux.F |
61 |
MOM_U_RVISCFLUX |
& -KappaRU(i,j,k) |
|
./pkg/mom_common/mom_u_rviscflux.F |
62 |
MOM_U_RVISCFLUX |
& *rAw(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/mom_common/mom_u_rviscflux.F |
63 |
MOM_U_RVISCFLUX |
& *( uFld(i,j,k,bi,bj)-uFld(i,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_u_rviscflux.F |
64 |
MOM_U_RVISCFLUX |
& )*rkSign*recip_drC(k) |
|
./pkg/mom_common/mom_u_rviscflux.F |
65 |
MOM_U_RVISCFLUX |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_rviscflux.F |
66 |
MOM_U_RVISCFLUX |
& *_maskW(i,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
117 |
MOM_U_SIDEDRAG |
hFacZClosedS = h0FacW(i,j,k,bi,bj) - h0FacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
118 |
MOM_U_SIDEDRAG |
hFacZClosedN = h0FacW(i,j,k,bi,bj) - h0FacW(i,j+1,k,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
11 |
MOM_U_SIDEDRAG |
I bi,bj,k, |
|
./pkg/mom_common/mom_u_sidedrag.F |
120 |
MOM_U_SIDEDRAG |
hFacZClosedS = _hFacW(i,j,k,bi,bj) - _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
121 |
MOM_U_SIDEDRAG |
hFacZClosedN = _hFacW(i,j,k,bi,bj) - _hFacW(i,j+1,k,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
126 |
MOM_U_SIDEDRAG |
& -_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
127 |
MOM_U_SIDEDRAG |
& *recip_drF(k)*recip_rAw(i,j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
152 |
MOM_U_SIDEDRAG |
& )*drF(k)*sideDragFactor |
|
./pkg/mom_common/mom_u_sidedrag.F |
161 |
MOM_U_SIDEDRAG |
CALL DIAGNOSTICS_FILL(uDragTerms,'USidDrag',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_u_sidedrag.F |
39 |
MOM_U_SIDEDRAG |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_u_sidedrag.F |
71 |
MOM_U_SIDEDRAG |
hFacZClosedS = h0FacW(i,j,k,bi,bj) - h0FacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
72 |
MOM_U_SIDEDRAG |
hFacZClosedN = h0FacW(i,j,k,bi,bj) - h0FacW(i,j+1,k,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
76 |
MOM_U_SIDEDRAG |
hFacZClosedS = _hFacW(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_u_sidedrag.F |
77 |
MOM_U_SIDEDRAG |
hFacZClosedN = _hFacW(i,j,k,bi,bj) - hFacZ(i,j+1) |
|
./pkg/mom_common/mom_u_sidedrag.F |
86 |
MOM_U_SIDEDRAG |
& -_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
87 |
MOM_U_SIDEDRAG |
& *recip_drF(k)*recip_rAw(i,j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
92 |
MOM_U_SIDEDRAG |
& *drF(k)*2.*( |
|
./pkg/mom_common/mom_v_bottomdrag.F |
108 |
MOM_V_BOTTOMDRAG |
CALL DIAGNOSTICS_FILL(vDragTerms,'VBotDrag',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
18 |
MOM_V_BOTTOMDRAG |
I bi,bj,k, |
|
./pkg/mom_common/mom_v_bottomdrag.F |
46 |
MOM_V_BOTTOMDRAG |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_v_bottomdrag.F |
67 |
MOM_V_BOTTOMDRAG |
kDown = min(k+1,kBottom) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
74 |
MOM_V_BOTTOMDRAG |
kDown = max(k-1,kBottom) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
75 |
MOM_V_BOTTOMDRAG |
kDownC = k |
|
./pkg/mom_common/mom_v_bottomdrag.F |
82 |
MOM_V_BOTTOMDRAG |
IF (k.EQ.kBottom) rdrckp1=recip_drF(k) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
86 |
MOM_V_BOTTOMDRAG |
IF (k.EQ.kBottom) maskDown=0. |
|
./pkg/mom_common/mom_v_bottomdrag.F |
88 |
MOM_V_BOTTOMDRAG |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
99 |
MOM_V_BOTTOMDRAG |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./model/src/calc_grad_phi_hyd.F |
104 |
CALC_GRAD_PHI_HYD |
factPI = (rC(k)/Ro_surf(i,j,bi,bj))**atm_kappa |
|
./model/src/calc_grad_phi_hyd.F |
10 |
CALC_GRAD_PHI_HYD |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./model/src/calc_grad_phi_hyd.F |
115 |
CALC_GRAD_PHI_HYD |
IF (Ro_surf(i,j,bi,bj).EQ.rC(k)) THEN |
|
./model/src/calc_grad_phi_hyd.F |
123 |
CALC_GRAD_PHI_HYD |
& *(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-rC(k)) |
|
./model/src/calc_grad_phi_hyd.F |
124 |
CALC_GRAD_PHI_HYD |
& / (Ro_surf(i,j,bi,bj)-rC(k)) |
|
./model/src/calc_grad_phi_hyd.F |
151 |
CALC_GRAD_PHI_HYD |
dPhiHydX(i,j) = _recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
152 |
CALC_GRAD_PHI_HYD |
& *( varLoc(i,j)-varLoc(i-1,j) )*recip_rhoFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
157 |
CALC_GRAD_PHI_HYD |
dPhiHydY(i,j) = _recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
158 |
CALC_GRAD_PHI_HYD |
& *( varLoc(i,j)-varLoc(i,j-1) )*recip_rhoFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
166 |
CALC_GRAD_PHI_HYD |
factorZ = gravity*recip_rhoConst*recip_rhoFacC(k)*0.5 _d 0 |
|
./model/src/calc_grad_phi_hyd.F |
170 |
CALC_GRAD_PHI_HYD |
& *(1. _d 0 + rC(k)*recip_Rcol(i,j,bi,bj)) |
|
./model/src/calc_grad_phi_hyd.F |
178 |
CALC_GRAD_PHI_HYD |
& *recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
186 |
CALC_GRAD_PHI_HYD |
& *recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
197 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
205 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
210 |
CALC_GRAD_PHI_HYD |
conv_theta2T = (rC(k)/atm_Po)**atm_kappa |
|
./model/src/calc_grad_phi_hyd.F |
211 |
CALC_GRAD_PHI_HYD |
factorP = (atm_Rd/rC(k))*conv_theta2T*0.5 _d 0 |
|
./model/src/calc_grad_phi_hyd.F |
217 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
225 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
44 |
CALC_GRAD_PHI_HYD |
INTEGER k, bi,bj, iMin,iMax, jMin,jMax |
|
./model/src/calc_grad_phi_hyd.F |
97 |
CALC_GRAD_PHI_HYD |
IF (Ro_surf(i,j,bi,bj).EQ.rC(k)) THEN |
|
./model/src/calc_grad_phi_hyd.F |
98 |
CALC_GRAD_PHI_HYD |
factPI=atm_Cp*( ((etaH(i,j,bi,bj)+rC(k))/atm_Po)**atm_kappa |
|
./model/src/calc_grad_phi_hyd.F |
99 |
CALC_GRAD_PHI_HYD |
& -( rC(k) /atm_Po)**atm_kappa |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
11 |
MOM_V_CORIOLIS_NH |
I bi,bj,k,wFld, |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
34 |
MOM_V_CORIOLIS_NH |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
49 |
MOM_V_CORIOLIS_NH |
kp1=min(k+1,Nr) |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
51 |
MOM_V_CORIOLIS_NH |
IF (k.EQ.Nr) wMsk=0. |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
58 |
MOM_V_CORIOLIS_NH |
& *0.5*( wFld( i ,j, k ,bi,bj)*rVel2wUnit( k ) |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
61 |
MOM_V_CORIOLIS_NH |
& *0.5*( wFld(i,j-1, k ,bi,bj)*rVel2wUnit( k ) |
|
./pkg/mom_common/mom_v_implicit_r.F |
100 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
101 |
MOM_V_IMPLICIT_R |
& *KappaRV(i,j,k+1)*recip_drC(k+1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
106 |
MOM_V_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/mom_common/mom_v_implicit_r.F |
109 |
MOM_V_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 - b5d(i,j,k) - d5d(i,j,k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
120 |
MOM_V_IMPLICIT_R |
DO k=2,Nr |
|
./pkg/mom_common/mom_v_implicit_r.F |
125 |
MOM_V_IMPLICIT_R |
& wVel(i, j ,k,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
126 |
MOM_V_IMPLICIT_R |
& *maskC(i, j ,k-1,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
127 |
MOM_V_IMPLICIT_R |
& + wVel(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
128 |
MOM_V_IMPLICIT_R |
& *maskC(i,j-1,k-1,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
145 |
MOM_V_IMPLICIT_R |
b5d(i,j,k) = b5d(i,j,k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
147 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
148 |
MOM_V_IMPLICIT_R |
c5d(i,j,k) = c5d(i,j,k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
150 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
151 |
MOM_V_IMPLICIT_R |
c5d(i,j,k-1) = c5d(i,j,k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
153 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
154 |
MOM_V_IMPLICIT_R |
d5d(i,j,k-1) = d5d(i,j,k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
156 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
165 |
MOM_V_IMPLICIT_R |
b5d(i,j,k) = b5d(i,j,k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
166 |
MOM_V_IMPLICIT_R |
& - rCenter*_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
167 |
MOM_V_IMPLICIT_R |
c5d(i,j,k) = c5d(i,j,k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
168 |
MOM_V_IMPLICIT_R |
& - rCenter*_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
169 |
MOM_V_IMPLICIT_R |
c5d(i,j,k-1) = c5d(i,j,k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
170 |
MOM_V_IMPLICIT_R |
& + rCenter*_recip_hFacS(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
171 |
MOM_V_IMPLICIT_R |
d5d(i,j,k-1) = d5d(i,j,k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
172 |
MOM_V_IMPLICIT_R |
& + rCenter*_recip_hFacS(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
203 |
MOM_V_IMPLICIT_R |
DO k= 1,Nr |
|
./pkg/mom_common/mom_v_implicit_r.F |
204 |
MOM_V_IMPLICIT_R |
IF ( k.EQ.1 ) THEN |
|
./pkg/mom_common/mom_v_implicit_r.F |
216 |
MOM_V_IMPLICIT_R |
& -KappaRV(i,j,k)*rAs(i,j,bi,bj)*recip_drC(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
217 |
MOM_V_IMPLICIT_R |
& * (gV(i,j,k,bi,bj) - gV(i,j,k-1,bi,bj))*rkSign |
|
./pkg/mom_common/mom_v_implicit_r.F |
218 |
MOM_V_IMPLICIT_R |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
219 |
MOM_V_IMPLICIT_R |
& *_maskS(i,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
223 |
MOM_V_IMPLICIT_R |
CALL DIAGNOSTICS_FILL(vf,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/mom_common/mom_v_implicit_r.F |
40 |
MOM_V_IMPLICIT_R |
INTEGER i,j,k |
|
./pkg/mom_common/mom_v_implicit_r.F |
66 |
MOM_V_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/mom_common/mom_v_implicit_r.F |
70 |
MOM_V_IMPLICIT_R |
b5d(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_v_implicit_r.F |
71 |
MOM_V_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 |
|
./pkg/mom_common/mom_v_implicit_r.F |
72 |
MOM_V_IMPLICIT_R |
d5d(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_v_implicit_r.F |
84 |
MOM_V_IMPLICIT_R |
DO k=2,Nr |
|
./pkg/mom_common/mom_v_implicit_r.F |
87 |
MOM_V_IMPLICIT_R |
IF (maskS(i,j,k-1,bi,bj).EQ.1.) |
|
./pkg/mom_common/mom_v_implicit_r.F |
88 |
MOM_V_IMPLICIT_R |
& b5d(i,j,k) = -deltaTmom |
|
./pkg/mom_common/mom_v_implicit_r.F |
89 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
90 |
MOM_V_IMPLICIT_R |
& *kappaRV(i,j, k )*recip_drC( k ) |
|
./pkg/mom_common/mom_v_implicit_r.F |
95 |
MOM_V_IMPLICIT_R |
DO k=1,Nr-1 |
|
./pkg/mom_common/mom_v_implicit_r.F |
98 |
MOM_V_IMPLICIT_R |
IF (maskS(i,j,k+1,bi,bj).EQ.1.) |
|
./pkg/mom_common/mom_v_implicit_r.F |
99 |
MOM_V_IMPLICIT_R |
& d5d(i,j,k) = -deltaTmom |
|
./pkg/mom_common/mom_v_metric_nh.F |
11 |
MOM_V_METRIC_NH |
I bi,bj,k, |
|
./pkg/mom_common/mom_v_metric_nh.F |
35 |
MOM_V_METRIC_NH |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_v_metric_nh.F |
50 |
MOM_V_METRIC_NH |
kp1=min(k+1,Nr) |
|
./pkg/mom_common/mom_v_metric_nh.F |
52 |
MOM_V_METRIC_NH |
IF (k.EQ.Nr) wVelBottomOverride=0. |
|
./pkg/mom_common/mom_v_metric_nh.F |
56 |
MOM_V_METRIC_NH |
vMetricTerms(i,j) = vFld(i,j)*recip_rSphere*recip_deepFacC(k) |
|
./pkg/mom_common/mom_v_metric_nh.F |
59 |
MOM_V_METRIC_NH |
& + (wFld(i,j-1, k ,bi,bj)+wFld(i,j, k ,bi,bj)) |
|
./pkg/mom_common/mom_v_metric_nh.F |
60 |
MOM_V_METRIC_NH |
& *rVel2wUnit( k ) |
|
./pkg/mom_common/mom_v_rviscflux.F |
11 |
MOM_V_RVISCFLUX |
I bi,bj,k, |
|
./pkg/mom_common/mom_v_rviscflux.F |
36 |
MOM_V_RVISCFLUX |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_v_rviscflux.F |
51 |
MOM_V_RVISCFLUX |
IF ( k.LE.1 .OR. k.GT.Nr ) THEN |
|
./pkg/mom_common/mom_v_rviscflux.F |
61 |
MOM_V_RVISCFLUX |
& -KappaRV(i,j,k) |
|
./pkg/mom_common/mom_v_rviscflux.F |
62 |
MOM_V_RVISCFLUX |
& *rAs(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/mom_common/mom_v_rviscflux.F |
63 |
MOM_V_RVISCFLUX |
& *( vFld(i,j,k,bi,bj)-vFld(i,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_v_rviscflux.F |
64 |
MOM_V_RVISCFLUX |
& )*rkSign*recip_drC(k) |
|
./pkg/mom_common/mom_v_rviscflux.F |
65 |
MOM_V_RVISCFLUX |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_rviscflux.F |
66 |
MOM_V_RVISCFLUX |
& *_maskS(i,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
114 |
MOM_V_SIDEDRAG |
hFacZClosedW = h0FacS(i,j,k,bi,bj) - h0FacS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
115 |
MOM_V_SIDEDRAG |
hFacZClosedE = h0FacS(i,j,k,bi,bj) - h0FacS(i+1,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
117 |
MOM_V_SIDEDRAG |
hFacZClosedW = _hFacS(i,j,k,bi,bj) - _hFacS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
118 |
MOM_V_SIDEDRAG |
hFacZClosedE = _hFacS(i,j,k,bi,bj) - _hFacS(i+1,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
11 |
MOM_V_SIDEDRAG |
I bi,bj,k, |
|
./pkg/mom_common/mom_v_sidedrag.F |
123 |
MOM_V_SIDEDRAG |
& -_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
124 |
MOM_V_SIDEDRAG |
& *recip_drF(k)*recip_rAs(i,j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
139 |
MOM_V_SIDEDRAG |
& )*drF(k)*sideDragFactor |
|
./pkg/mom_common/mom_v_sidedrag.F |
148 |
MOM_V_SIDEDRAG |
CALL DIAGNOSTICS_FILL(vDragTerms,'VSidDrag',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_v_sidedrag.F |
39 |
MOM_V_SIDEDRAG |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_v_sidedrag.F |
71 |
MOM_V_SIDEDRAG |
hFacZClosedW = h0FacS(i,j,k,bi,bj) - h0FacS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
72 |
MOM_V_SIDEDRAG |
hFacZClosedE = h0FacS(i,j,k,bi,bj) - h0FacS(i+1,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
76 |
MOM_V_SIDEDRAG |
hFacZClosedW = _hFacS(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
77 |
MOM_V_SIDEDRAG |
hFacZClosedE = _hFacS(i,j,k,bi,bj) - hFacZ(i+1,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
88 |
MOM_V_SIDEDRAG |
& -_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
89 |
MOM_V_SIDEDRAG |
& *recip_drF(k)*recip_rAs(i,j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
94 |
MOM_V_SIDEDRAG |
& *drF(k)*2.*( |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
11 |
MOM_W_CORIOLIS_NH |
I bi,bj,k, |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
35 |
MOM_W_CORIOLIS_NH |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
52 |
MOM_W_CORIOLIS_NH |
IF ( k.GT.1 .AND. k.LE.Nr ) THEN |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
58 |
MOM_W_CORIOLIS_NH |
& (uFld(i,j,k-1,bi,bj)+uFld(i+1,j,k-1,bi,bj)) |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
59 |
MOM_W_CORIOLIS_NH |
& + (uFld(i,j, k ,bi,bj)+uFld(i+1,j, k ,bi,bj)) |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
62 |
MOM_W_CORIOLIS_NH |
& (vFld(i,j,k-1,bi,bj)+vFld(i,j+1,k-1,bi,bj)) |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
63 |
MOM_W_CORIOLIS_NH |
& + (vFld(i,j, k ,bi,bj)+vFld(i,j+1, k ,bi,bj)) |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
65 |
MOM_W_CORIOLIS_NH |
& )*wUnit2rVel(k) |
|
./pkg/mom_common/mom_w_metric_nh.F |
11 |
MOM_W_METRIC_NH |
I bi,bj,k, |
|
./pkg/mom_common/mom_w_metric_nh.F |
35 |
MOM_W_METRIC_NH |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_w_metric_nh.F |
50 |
MOM_W_METRIC_NH |
IF ( k.GT.1 .AND. k.LE.Nr ) THEN |
|
./pkg/mom_common/mom_w_metric_nh.F |
53 |
MOM_W_METRIC_NH |
wMetricTerms(i,j) = -gravitySign*wUnit2rVel(k) |
|
./pkg/mom_common/mom_w_metric_nh.F |
54 |
MOM_W_METRIC_NH |
& *recip_rSphere*recip_deepFacF(k)*( |
|
./pkg/mom_common/mom_w_metric_nh.F |
55 |
MOM_W_METRIC_NH |
& ( (uFld( i ,j,k-1,bi,bj)*uFld( i ,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_w_metric_nh.F |
56 |
MOM_W_METRIC_NH |
& +uFld(i+1,j,k-1,bi,bj)*uFld(i+1,j,k-1,bi,bj)) |
|
./pkg/mom_common/mom_w_metric_nh.F |
57 |
MOM_W_METRIC_NH |
& + (vFld(i, j ,k-1,bi,bj)*vFld(i, j ,k-1,bi,bj) |
|
./pkg/mom_common/mom_w_metric_nh.F |
58 |
MOM_W_METRIC_NH |
& +vFld(i,j+1,k-1,bi,bj)*vFld(i,j+1,k-1,bi,bj)) |
|
./pkg/mom_common/mom_w_metric_nh.F |
60 |
MOM_W_METRIC_NH |
& + ( (uFld( i ,j, k ,bi,bj)*uFld( i ,j, k ,bi,bj) |
|
./pkg/mom_common/mom_w_metric_nh.F |
61 |
MOM_W_METRIC_NH |
& +uFld(i+1,j, k ,bi,bj)*uFld(i+1,j, k ,bi,bj)) |
|
./pkg/mom_common/mom_w_metric_nh.F |
62 |
MOM_W_METRIC_NH |
& + (vFld(i, j , k ,bi,bj)*vFld(i, j , k ,bi,bj) |
|
./pkg/mom_common/mom_w_metric_nh.F |
63 |
MOM_W_METRIC_NH |
& +vFld(i,j+1, k ,bi,bj)*vFld(i,j+1, k ,bi,bj)) |
|
./pkg/mom_common/mom_w_sidedrag.F |
103 |
MOM_W_SIDEDRAG |
& *( viscAh_W(i,j,k,bi,bj)*wFld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
107 |
MOM_W_SIDEDRAG |
& -viscA4_W(i,j,k,bi,bj)*del2w(i,j) |
|
./pkg/mom_common/mom_w_sidedrag.F |
117 |
MOM_W_SIDEDRAG |
& *( viscAh_W(i,j,k,bi,bj)*wFld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
11 |
MOM_W_SIDEDRAG |
I bi,bj,k, |
|
./pkg/mom_common/mom_w_sidedrag.F |
121 |
MOM_W_SIDEDRAG |
& -viscA4_W(i,j,k,bi,bj)*del2w(i,j) |
|
./pkg/mom_common/mom_w_sidedrag.F |
136 |
MOM_W_SIDEDRAG |
CALL DIAGNOSTICS_FILL(gwSideDrag,'WSidDrag',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_w_sidedrag.F |
42 |
MOM_W_SIDEDRAG |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_w_sidedrag.F |
83 |
MOM_W_SIDEDRAG |
& *( viscAh_W(i,j,k,bi,bj)*wFld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
85 |
MOM_W_SIDEDRAG |
& -viscA4_W(i,j,k,bi,bj)*del2w(i,j) |
|
./pkg/mom_common/mom_w_sidedrag.F |
93 |
MOM_W_SIDEDRAG |
& *( viscAh_W(i,j,k,bi,bj)*wFld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_w_sidedrag.F |
95 |
MOM_W_SIDEDRAG |
& -viscA4_W(i,j,k,bi,bj)*del2w(i,j) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
100 |
MOM_CALC_RTRANS |
& 0.5 _d 0*( wVel(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
101 |
MOM_CALC_RTRANS |
& +wVel( i ,j,k,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
102 |
MOM_CALC_RTRANS |
& )*deepFac2F(k)*rhoFacF(k) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
104 |
MOM_CALC_RTRANS |
& 0.5 _d 0*( wVel(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
105 |
MOM_CALC_RTRANS |
& +wVel(i, j ,k,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
106 |
MOM_CALC_RTRANS |
& )*deepFac2F(k)*rhoFacF(k) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
10 |
MOM_CALC_RTRANS |
I k, bi, bj, |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
117 |
MOM_CALC_RTRANS |
IF ( k.EQ.1) THEN |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
135 |
MOM_CALC_RTRANS |
ELSEIF (k.LE.Nr) THEN |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
140 |
MOM_CALC_RTRANS |
& - rStarDhCDt(i,j,bi,bj)*drF(k-1)*h0FacC(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
147 |
MOM_CALC_RTRANS |
& - rStarDhWDt(i,j,bi,bj)*drF(k-1)*h0FacW(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
150 |
MOM_CALC_RTRANS |
& - rStarDhSDt(i,j,bi,bj)*drF(k-1)*h0FacS(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
47 |
MOM_CALC_RTRANS |
INTEGER k, bi, bj, myIter, myThid |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
71 |
MOM_CALC_RTRANS |
IF ( k.EQ.Nr+1 .AND. |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
85 |
MOM_CALC_RTRANS |
ELSEIF ( k.GT.Nr ) THEN |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
87 |
MOM_CALC_RTRANS |
IF ( k.GT.Nr ) THEN |
|
./pkg/mom_fluxform/mom_fluxform.F |
168 |
MOM_FLUXFORM |
act0 = k - 1 |
|
./pkg/mom_fluxform/mom_fluxform.F |
251 |
MOM_FLUXFORM |
CALL MOM_CALC_HFACZ(bi,bj,k,hFacZ,r_hFacZ,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
257 |
MOM_FLUXFORM |
xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
258 |
MOM_FLUXFORM |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
259 |
MOM_FLUXFORM |
yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
260 |
MOM_FLUXFORM |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
267 |
MOM_FLUXFORM |
uFld(i,j) = uVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
268 |
MOM_FLUXFORM |
vFld(i,j) = vVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
276 |
MOM_FLUXFORM |
uTrans(i,j) = uFld(i,j)*xA(i,j)*rhoFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
277 |
MOM_FLUXFORM |
vTrans(i,j) = vFld(i,j)*yA(i,j)*rhoFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
281 |
MOM_FLUXFORM |
CALL MOM_CALC_KE(bi,bj,k,2,uFld,vFld,KE,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
283 |
MOM_FLUXFORM |
CALL MOM_CALC_HDIV(bi,bj,k,2,uFld,vFld,hDiv,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
284 |
MOM_FLUXFORM |
CALL MOM_CALC_RELVORT3(bi,bj,k,uFld,vFld,hFacZ,vort3,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
285 |
MOM_FLUXFORM |
CALL MOM_CALC_TENSION(bi,bj,k,uFld,vFld,tension,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
286 |
MOM_FLUXFORM |
CALL MOM_CALC_STRAIN(bi,bj,k,uFld,vFld,hFacZ,strain,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
297 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(hDiv, 'momHDiv ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
298 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(vort3, 'momVort3',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
299 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(tension,'Tension ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
300 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(strain, 'Strain ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
306 |
MOM_FLUXFORM |
IF (momAdvection.AND.k.EQ.1) THEN |
|
./pkg/mom_fluxform/mom_fluxform.F |
309 |
MOM_FLUXFORM |
CALL MOM_UV_BOUNDARY( bi, bj, k, |
|
./pkg/mom_fluxform/mom_fluxform.F |
311 |
MOM_FLUXFORM |
O uBnd(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
312 |
MOM_FLUXFORM |
O vBnd(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
330 |
MOM_FLUXFORM |
CALL MOM_CALC_RTRANS( k, bi, bj, |
|
./pkg/mom_fluxform/mom_fluxform.F |
335 |
MOM_FLUXFORM |
CALL MOM_U_ADV_WU( bi,bj,k,uVel,wVel,rTransU, |
|
./pkg/mom_fluxform/mom_fluxform.F |
338 |
MOM_FLUXFORM |
CALL MOM_V_ADV_WV( bi,bj,k,vVel,wVel,rTransV, |
|
./pkg/mom_fluxform/mom_fluxform.F |
347 |
MOM_FLUXFORM |
CALL MOM_CALC_RTRANS( k+1, bi, bj, |
|
./pkg/mom_fluxform/mom_fluxform.F |
353 |
MOM_FLUXFORM |
IF ( momAdvection .AND. k.LT.Nr ) THEN |
|
./pkg/mom_fluxform/mom_fluxform.F |
354 |
MOM_FLUXFORM |
CALL MOM_UV_BOUNDARY( bi, bj, k+1, |
|
./pkg/mom_fluxform/mom_fluxform.F |
356 |
MOM_FLUXFORM |
O uBnd(1-OLx,1-OLy,k+1,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
357 |
MOM_FLUXFORM |
O vBnd(1-OLx,1-OLy,k+1,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
35 |
MOM_FLUXFORM |
I bi,bj,iMin,iMax,jMin,jMax,k,kUp,kDown, |
|
./pkg/mom_fluxform/mom_fluxform.F |
364 |
MOM_FLUXFORM |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_fluxform.F |
379 |
MOM_FLUXFORM |
CALL MOM_U_ADV_UU( bi,bj,k,uTrans,uBnd(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
381 |
MOM_FLUXFORM |
CALL MOM_U_ADV_VU( bi,bj,k,vTrans,uBnd(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
384 |
MOM_FLUXFORM |
I bi,bj,k+1,uBnd,wVel,rTransU, |
|
./pkg/mom_fluxform/mom_fluxform.F |
389 |
MOM_FLUXFORM |
CALL MOM_U_ADV_UU(bi,bj,k,uTrans,uFld,fZon,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
393 |
MOM_FLUXFORM |
CALL MOM_U_ADV_VU(bi,bj,k,vTrans,uFld,fMer,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
398 |
MOM_FLUXFORM |
I bi,bj,k+1,uVel,wVel,rTransU, |
|
./pkg/mom_fluxform/mom_fluxform.F |
405 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = |
|
./pkg/mom_fluxform/mom_fluxform.F |
407 |
MOM_FLUXFORM |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)/ |
|
./pkg/mom_fluxform/mom_fluxform.F |
410 |
MOM_FLUXFORM |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
411 |
MOM_FLUXFORM |
& *recip_rAw(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
422 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fZon,'ADVx_Um ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
423 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fMer,'ADVy_Um ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
425 |
MOM_FLUXFORM |
& 'ADVrE_Um',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
435 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
437 |
MOM_FLUXFORM |
& *uVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
444 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
445 |
MOM_FLUXFORM |
& - rStarDhWDt(i,j,bi,bj)*uVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
456 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_fluxform/mom_fluxform.F |
468 |
MOM_FLUXFORM |
& CALL MOM_U_DEL2U(bi,bj,k,uFld,hFacZ,v4f,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
471 |
MOM_FLUXFORM |
CALL MOM_U_XVISCFLUX(bi,bj,k,uFld,v4F,fZon, |
|
./pkg/mom_fluxform/mom_fluxform.F |
475 |
MOM_FLUXFORM |
CALL MOM_U_YVISCFLUX(bi,bj,k,uFld,v4F,hFacZ,fMer, |
|
./pkg/mom_fluxform/mom_fluxform.F |
480 |
MOM_FLUXFORM |
CALL MOM_U_RVISCFLUX(bi,bj, k, uVel,KappaRU,fVrUp,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
481 |
MOM_FLUXFORM |
CALL MOM_U_RVISCFLUX(bi,bj,k+1,uVel,KappaRU,fVrDw,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
490 |
MOM_FLUXFORM |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)/ |
|
./pkg/mom_fluxform/mom_fluxform.F |
493 |
MOM_FLUXFORM |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
494 |
MOM_FLUXFORM |
& *recip_rAw(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
499 |
MOM_FLUXFORM |
& *recip_rhoFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
506 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fZon, 'VISCx_Um',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
507 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fMer, 'VISCy_Um',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
509 |
MOM_FLUXFORM |
& CALL DIAGNOSTICS_FILL(fVrUp,'VISrE_Um',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
517 |
MOM_FLUXFORM |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_fluxform.F |
531 |
MOM_FLUXFORM |
CALL MOM_U_BOTTOMDRAG(bi,bj,k,uFld,KE,KappaRU,vF,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
541 |
MOM_FLUXFORM |
CALL SHELFICE_U_DRAG(bi,bj,k,uFld,KE,KappaRU,vF,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
562 |
MOM_FLUXFORM |
CALL MOM_U_METRIC_NH(bi,bj,k,uFld,wVel,mT,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
565 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+mtNHFacU*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
571 |
MOM_FLUXFORM |
CALL MOM_U_METRIC_SPHERE(bi,bj,k,uFld,vFld,mT,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
574 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+mtFacU*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
580 |
MOM_FLUXFORM |
CALL MOM_U_METRIC_CYLINDER(bi,bj,k,uFld,vFld,mT,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
583 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+mtFacU*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
595 |
MOM_FLUXFORM |
CALL MOM_V_ADV_UV( bi,bj,k,uTrans,vBnd(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
597 |
MOM_FLUXFORM |
CALL MOM_V_ADV_VV( bi,bj,k,vTrans,vBnd(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
600 |
MOM_FLUXFORM |
I bi,bj,k+1,vBnd,wVel,rTransV, |
|
./pkg/mom_fluxform/mom_fluxform.F |
605 |
MOM_FLUXFORM |
CALL MOM_V_ADV_UV(bi,bj,k,uTrans,vFld,fZon,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
609 |
MOM_FLUXFORM |
CALL MOM_V_ADV_VV(bi,bj,k,vTrans,vFld,fMer,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
614 |
MOM_FLUXFORM |
I bi,bj,k+1,vVel,wVel,rTransV, |
|
./pkg/mom_fluxform/mom_fluxform.F |
621 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = |
|
./pkg/mom_fluxform/mom_fluxform.F |
623 |
MOM_FLUXFORM |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)/ |
|
./pkg/mom_fluxform/mom_fluxform.F |
626 |
MOM_FLUXFORM |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
627 |
MOM_FLUXFORM |
& *recip_rAs(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
638 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fZon,'ADVx_Vm ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
639 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fMer,'ADVy_Vm ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
641 |
MOM_FLUXFORM |
& 'ADVrE_Vm',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
651 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
653 |
MOM_FLUXFORM |
& *vVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
660 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
661 |
MOM_FLUXFORM |
& - rStarDhSDt(i,j,bi,bj)*vVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
672 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_fluxform/mom_fluxform.F |
683 |
MOM_FLUXFORM |
& CALL MOM_V_DEL2V(bi,bj,k,vFld,hFacZ,v4f,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
686 |
MOM_FLUXFORM |
CALL MOM_V_XVISCFLUX(bi,bj,k,vFld,v4f,hFacZ,fZon, |
|
./pkg/mom_fluxform/mom_fluxform.F |
690 |
MOM_FLUXFORM |
CALL MOM_V_YVISCFLUX(bi,bj,k,vFld,v4f,fMer, |
|
./pkg/mom_fluxform/mom_fluxform.F |
695 |
MOM_FLUXFORM |
CALL MOM_V_RVISCFLUX(bi,bj, k, vVel,KappaRV,fVrUp,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
696 |
MOM_FLUXFORM |
CALL MOM_V_RVISCFLUX(bi,bj,k+1,vVel,KappaRV,fVrDw,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
705 |
MOM_FLUXFORM |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)/ |
|
./pkg/mom_fluxform/mom_fluxform.F |
708 |
MOM_FLUXFORM |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
709 |
MOM_FLUXFORM |
& *recip_rAs(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
714 |
MOM_FLUXFORM |
& *recip_rhoFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
721 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fZon, 'VISCx_Vm',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
722 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fMer, 'VISCy_Vm',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
724 |
MOM_FLUXFORM |
& CALL DIAGNOSTICS_FILL(fVrUp,'VISrE_Vm',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
732 |
MOM_FLUXFORM |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_fluxform.F |
746 |
MOM_FLUXFORM |
CALL MOM_V_BOTTOMDRAG(bi,bj,k,vFld,KE,KappaRV,vF,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
756 |
MOM_FLUXFORM |
CALL SHELFICE_V_DRAG(bi,bj,k,vFld,KE,KappaRU,vF,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
777 |
MOM_FLUXFORM |
CALL MOM_V_METRIC_NH(bi,bj,k,vFld,wVel,mT,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
77 |
MOM_FLUXFORM |
INTEGER k,kUp,kDown |
|
./pkg/mom_fluxform/mom_fluxform.F |
780 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+mtNHFacV*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
786 |
MOM_FLUXFORM |
CALL MOM_V_METRIC_SPHERE(bi,bj,k,uFld,mT,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
789 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+mtFacV*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
795 |
MOM_FLUXFORM |
CALL MOM_V_METRIC_CYLINDER(bi,bj,k,uFld,vFld,mT,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
798 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+mtFacV*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
811 |
MOM_FLUXFORM |
CALL MOM_U_CORIOLIS(bi,bj,k,vFld,cf,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
814 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+fuFac*cf(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
819 |
MOM_FLUXFORM |
& CALL DIAGNOSTICS_FILL(cf,'Um_Cori ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
821 |
MOM_FLUXFORM |
CALL MOM_V_CORIOLIS(bi,bj,k,uFld,cf,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
824 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+fvFac*cf(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
829 |
MOM_FLUXFORM |
& CALL DIAGNOSTICS_FILL(cf,'Vm_Cori ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
835 |
MOM_FLUXFORM |
CALL MOM_U_CORIOLIS_NH(bi,bj,k,wVel,cf,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
838 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+fuFac*cf(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
843 |
MOM_FLUXFORM |
CALL MOM_V_CORIOLIS_NH(bi,bj,k,wVel,cf,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
846 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+fvFac*cf(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
855 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
856 |
MOM_FLUXFORM |
guDiss(i,j) = guDiss(i,j) *_maskW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
857 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
858 |
MOM_FLUXFORM |
gvDiss(i,j) = gvDiss(i,j) *_maskS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
864 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(KE, 'momKE ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
865 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(gU(1-Olx,1-Oly,k,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
866 |
MOM_FLUXFORM |
& 'Um_Advec',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
867 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(gV(1-Olx,1-Oly,k,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
868 |
MOM_FLUXFORM |
& 'Vm_Advec',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
870 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(guDiss,'Um_Diss ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
871 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(gvDiss,'Vm_Diss ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_u_adv_uu.F |
11 |
MOM_U_ADV_UU |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_u_adv_uu.F |
35 |
MOM_U_ADV_UU |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_u_adv_uu.F |
54 |
MOM_U_ADV_UU |
& *( uFld(i,j)*_maskW(i+1,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_uu.F |
55 |
MOM_U_ADV_UU |
& + uFld(i+1,j)*_maskW(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
11 |
MOM_U_ADV_VU |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
35 |
MOM_U_ADV_VU |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
54 |
MOM_U_ADV_VU |
& *( uFld(i,j)*_maskW(i,j-1,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
55 |
MOM_U_ADV_VU |
& + uFld(i,j-1)*_maskW(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
60 |
MOM_U_ADV_VU |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
61 |
MOM_U_ADV_VU |
& *_maskW(i,j-1,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
100 |
MOM_U_ADV_WU |
& (maskC( i ,j,k,bi,bj)-maskC( i ,j,k-1,bi,bj)) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
101 |
MOM_U_ADV_WU |
& +wFld(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj)* |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
102 |
MOM_U_ADV_WU |
& (maskC(i-1,j,k,bi,bj)-maskC(i-1,j,k-1,bi,bj)) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
103 |
MOM_U_ADV_WU |
& )*deepFac2F(k)*rhoFacF(k) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
104 |
MOM_U_ADV_WU |
& *uFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
11 |
MOM_U_ADV_WU |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
36 |
MOM_U_ADV_WU |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
51 |
MOM_U_ADV_WU |
IF ( k.EQ.Nr+1 .AND. |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
55 |
MOM_U_ADV_WU |
advectiveFluxWU(i,j) = rTrans(i,j)*uFld(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
59 |
MOM_U_ADV_WU |
ELSEIF ( k.GT.Nr .OR. (k.EQ.1.AND.rigidLid) ) THEN |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
68 |
MOM_U_ADV_WU |
ELSEIF (k.EQ.1) THEN |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
73 |
MOM_U_ADV_WU |
advectiveFluxWU(i,j) = rTrans(i,j)*uFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
84 |
MOM_U_ADV_WU |
& 0.5 _d 0*( uFld(i,j,k,bi,bj)*_maskW(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
85 |
MOM_U_ADV_WU |
& +uFld(i,j,k-1,bi,bj)*_maskW(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
87 |
MOM_U_ADV_WU |
& 0.5 _d 0*( uFld(i,j,k,bi,bj)+uFld(i,j,k-1,bi,bj) ) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
99 |
MOM_U_ADV_WU |
& wFld(i, j ,k,bi,bj)*rA(i, j ,bi,bj)* |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
11 |
MOM_U_CORIOLIS |
I bi,bj,k,vFld, |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
34 |
MOM_U_CORIOLIS |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
83 |
MOM_U_CORIOLIS |
& maskS( i , j ,k,bi,bj)+maskS( i ,j+1,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
84 |
MOM_U_CORIOLIS |
& +maskS(i-1, j ,k,bi,bj)+maskS(i-1,j+1,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
104 |
MOM_U_DEL2U |
& )*drF(k)*2.*uFld(i,j) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
105 |
MOM_U_DEL2U |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
11 |
MOM_U_DEL2U |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_u_del2u.F |
32 |
MOM_U_DEL2U |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_u_del2u.F |
52 |
MOM_U_DEL2U |
fZon(i,j) = drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
67 |
MOM_U_DEL2U |
fMer(i,j) = drF(k)*hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
83 |
MOM_U_DEL2U |
& recip_drF(k)*_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
84 |
MOM_U_DEL2U |
& *recip_rAw(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
87 |
MOM_U_DEL2U |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
95 |
MOM_U_DEL2U |
hFacZClosedS = _hFacW(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
96 |
MOM_U_DEL2U |
hFacZClosedN = _hFacW(i,j,k,bi,bj) - hFacZ(i,j+1) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
98 |
MOM_U_DEL2U |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
99 |
MOM_U_DEL2U |
& *recip_rAw(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_u_metric_cylinder.F |
11 |
MOM_U_METRIC_CYLINDER |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_u_metric_cylinder.F |
35 |
MOM_U_METRIC_CYLINDER |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_u_metric_sphere.F |
11 |
MOM_U_METRIC_SPHERE |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_u_metric_sphere.F |
35 |
MOM_U_METRIC_SPHERE |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_u_metric_sphere.F |
52 |
MOM_U_METRIC_SPHERE |
& uFld(i,j)*recip_rSphere*recip_deepFacC(k) |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
11 |
MOM_U_XVISCFLUX |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
37 |
MOM_U_XVISCFLUX |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
57 |
MOM_U_XVISCFLUX |
& _dyF(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj) |
|
./model/src/calc_gs.F |
11 |
CALC_GS |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
|
./model/src/calc_gs.F |
124 |
CALC_GS |
kkey = (itdkey-1)*Nr + k |
|
./model/src/calc_gs.F |
163 |
CALC_GS |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
|
./model/src/calc_gs.F |
175 |
CALC_GS |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
|
./model/src/calc_gs.F |
189 |
CALC_GS |
I iMin,iMax,jMin,jMax,bi,bj,k, |
|
./model/src/calc_gs.F |
195 |
CALC_GS |
I bi, bj, k, |
|
./model/src/calc_gs.F |
200 |
CALC_GS |
I bi, bj, k, |
|
./model/src/calc_gs.F |
209 |
CALC_GS |
I iMin,iMax,jMin,jMax,bi,bj,k, |
|
./model/src/calc_gs.F |
215 |
CALC_GS |
I bi, bj, k, |
|
./model/src/calc_gs.F |
229 |
CALC_GS |
I bi, bj, k, |
|
./model/src/calc_gs.F |
233 |
CALC_GS |
I bi, bj, k, |
|
./model/src/calc_gs.F |
238 |
CALC_GS |
I bi, bj, k, |
|
./model/src/calc_gs.F |
87 |
CALC_GS |
INTEGER k,kUp,kDown,kM1 |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
11 |
MOM_U_YVISCFLUX |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
37 |
MOM_U_YVISCFLUX |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
58 |
MOM_U_YVISCFLUX |
& _dxV(i,j,bi,bj)*drF(k)*hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
100 |
MOM_UV_BOUNDARY |
& * drF(k)*hFacS(i,j,k,bi,bj)*rhoFacC(k) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
11 |
MOM_UV_BOUNDARY |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
129 |
MOM_UV_BOUNDARY |
IF (maskW(i,j,k,bi,bj).EQ.0.) THEN |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
135 |
MOM_UV_BOUNDARY |
& *(uFld(i-1,j,k,bi,bj)+uFld(i+1,j,k,bi,bj)) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
137 |
MOM_UV_BOUNDARY |
& *(uFld(i,j-1,k,bi,bj)+uFld(i,j+1,k,bi,bj)) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
143 |
MOM_UV_BOUNDARY |
IF (maskS(i,j,k,bi,bj).EQ.0.) THEN |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
149 |
MOM_UV_BOUNDARY |
& *(vFld(i-1,j,k,bi,bj)+vFld(i+1,j,k,bi,bj)) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
151 |
MOM_UV_BOUNDARY |
& *(vFld(i,j-1,k,bi,bj)+vFld(i,j+1,k,bi,bj)) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
38 |
MOM_UV_BOUNDARY |
INTEGER k |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
70 |
MOM_UV_BOUNDARY |
uBnd(i,j) = uFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
71 |
MOM_UV_BOUNDARY |
vBnd(i,j) = vFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
78 |
MOM_UV_BOUNDARY |
km1 = MAX( k-1, 1 ) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
79 |
MOM_UV_BOUNDARY |
kp1 = MIN( k+1, Nr ) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
82 |
MOM_UV_BOUNDARY |
IF ( k.EQ.1 ) maskM1 = 0. |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
83 |
MOM_UV_BOUNDARY |
IF ( k.EQ.Nr ) maskP1 = 0. |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
95 |
MOM_UV_BOUNDARY |
uTrans(i,j) = uFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
96 |
MOM_UV_BOUNDARY |
& * dyG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
97 |
MOM_UV_BOUNDARY |
& * drF(k)*hFacW(i,j,k,bi,bj)*rhoFacC(k) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
98 |
MOM_UV_BOUNDARY |
vTrans(i,j) = vFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
99 |
MOM_UV_BOUNDARY |
& * dxG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/mom_fluxform/mom_v_adv_uv.F |
11 |
MOM_V_ADV_UV |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_v_adv_uv.F |
35 |
MOM_V_ADV_UV |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_v_adv_uv.F |
53 |
MOM_V_ADV_UV |
& *( vFld(i,j)*_maskS(i-1,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_uv.F |
54 |
MOM_V_ADV_UV |
& + vFld(i-1,j)*_maskS(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_v_adv_uv.F |
59 |
MOM_V_ADV_UV |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_uv.F |
60 |
MOM_V_ADV_UV |
& *_maskS(i-1,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_vv.F |
11 |
MOM_V_ADV_VV |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_v_adv_vv.F |
35 |
MOM_V_ADV_VV |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_v_adv_vv.F |
54 |
MOM_V_ADV_VV |
& *( vFld(i,j)*_maskS(i,j+1,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_vv.F |
55 |
MOM_V_ADV_VV |
& + vFld(i,j+1)*_maskS(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
100 |
MOM_V_ADV_WV |
& wFld(i, j ,k,bi,bj)*rA(i, j ,bi,bj)* |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
101 |
MOM_V_ADV_WV |
& (maskC(i, j ,k,bi,bj)-maskC(i, j ,k-1,bi,bj)) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
102 |
MOM_V_ADV_WV |
& +wFld(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj)* |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
103 |
MOM_V_ADV_WV |
& (maskC(i,j-1,k,bi,bj)-maskC(i,j-1,k-1,bi,bj)) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
104 |
MOM_V_ADV_WV |
& )*deepFac2F(k)*rhoFacF(k) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
105 |
MOM_V_ADV_WV |
& *vFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
12 |
MOM_V_ADV_WV |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
37 |
MOM_V_ADV_WV |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
52 |
MOM_V_ADV_WV |
IF ( k.EQ.Nr+1 .AND. |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
56 |
MOM_V_ADV_WV |
advectiveFluxWV(i,j) = rTrans(i,j)*vFld(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
60 |
MOM_V_ADV_WV |
ELSEIF ( k.GT.Nr .OR. (k.EQ.1.AND.rigidLid) ) THEN |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
69 |
MOM_V_ADV_WV |
ELSEIF (k.EQ.1) THEN |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
74 |
MOM_V_ADV_WV |
advectiveFluxWV(i,j) = rTrans(i,j)*vFld(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
85 |
MOM_V_ADV_WV |
& 0.5 _d 0*( vFld(i,j,k,bi,bj)*_maskS(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
86 |
MOM_V_ADV_WV |
& +vFld(i,j,k-1,bi,bj)*_maskS(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
88 |
MOM_V_ADV_WV |
& 0.5 _d 0*( vFld(i,j,k,bi,bj)+vFld(i,j,k-1,bi,bj) ) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
11 |
MOM_V_CORIOLIS |
I bi,bj,k,uFld, |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
34 |
MOM_V_CORIOLIS |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
81 |
MOM_V_CORIOLIS |
& maskW( i , j ,k,bi,bj)+maskW(i+1, j ,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
82 |
MOM_V_CORIOLIS |
& +maskW( i ,j-1,k,bi,bj)+maskW(i+1,j-1,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
103 |
MOM_V_DEL2V |
& )*drF(k)*2.*vFld(i,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
104 |
MOM_V_DEL2V |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
11 |
MOM_V_DEL2V |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_v_del2v.F |
32 |
MOM_V_DEL2V |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_v_del2v.F |
51 |
MOM_V_DEL2V |
fZon(i,j) = drF(k)*hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
66 |
MOM_V_DEL2V |
fMer(i,j) = drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
82 |
MOM_V_DEL2V |
& recip_drF(k)*_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
83 |
MOM_V_DEL2V |
& *recip_rAs(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
86 |
MOM_V_DEL2V |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
94 |
MOM_V_DEL2V |
hFacZClosedW = _hFacS(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
95 |
MOM_V_DEL2V |
hFacZClosedE = _hFacS(i,j,k,bi,bj) - hFacZ(i+1,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
97 |
MOM_V_DEL2V |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
98 |
MOM_V_DEL2V |
& *recip_rAs(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
11 |
MOM_V_METRIC_CYLINDER |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
35 |
MOM_V_METRIC_CYLINDER |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_v_metric_sphere.F |
11 |
MOM_V_METRIC_SPHERE |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_v_metric_sphere.F |
34 |
MOM_V_METRIC_SPHERE |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_v_metric_sphere.F |
49 |
MOM_V_METRIC_SPHERE |
vMetricTerms(i,j) = -recip_rSphere*recip_deepFacC(k) |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
11 |
MOM_V_XVISCFLUX |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
37 |
MOM_V_XVISCFLUX |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
58 |
MOM_V_XVISCFLUX |
& _dyU(i,j,bi,bj)*drF(k)*hFacZ(i,j) |
|
./model/src/calc_gt.F |
11 |
CALC_GT |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
|
./model/src/calc_gt.F |
123 |
CALC_GT |
kkey = (itdkey-1)*Nr + k |
|
./model/src/calc_gt.F |
162 |
CALC_GT |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
|
./model/src/calc_gt.F |
174 |
CALC_GT |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
|
./model/src/calc_gt.F |
188 |
CALC_GT |
I iMin,iMax,jMin,jMax,bi,bj,k, |
|
./model/src/calc_gt.F |
194 |
CALC_GT |
I bi, bj, k, |
|
./model/src/calc_gt.F |
199 |
CALC_GT |
I bi, bj, k, |
|
./model/src/calc_gt.F |
208 |
CALC_GT |
I iMin,iMax,jMin,jMax,bi,bj,k, |
|
./model/src/calc_gt.F |
214 |
CALC_GT |
I bi, bj, k, |
|
./model/src/calc_gt.F |
228 |
CALC_GT |
I bi, bj, k, |
|
./model/src/calc_gt.F |
232 |
CALC_GT |
I bi, bj, k, |
|
./model/src/calc_gt.F |
237 |
CALC_GT |
I bi, bj, k, |
|
./model/src/calc_gt.F |
86 |
CALC_GT |
INTEGER k,kUp,kDown,kM1 |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
11 |
MOM_V_YVISCFLUX |
I bi,bj,k, |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
37 |
MOM_V_YVISCFLUX |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
57 |
MOM_V_YVISCFLUX |
& _dxF(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
124 |
MOM_VECINV |
act0 = k - 1 |
|
./pkg/mom_vecinv/mom_vecinv.F |
149 |
MOM_VECINV |
IF ((bi .EQ. 1).AND.(bj .EQ. 1).AND.(k .EQ. 1)) THEN |
|
./pkg/mom_vecinv/mom_vecinv.F |
158 |
MOM_VECINV |
offsets(3) = k |
|
./pkg/mom_vecinv/mom_vecinv.F |
217 |
MOM_VECINV |
CALL MOM_CALC_HFACZ(bi,bj,k,hFacZ,r_hFacZ,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
222 |
MOM_VECINV |
uFld(i,j) = uVel(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
223 |
MOM_VECINV |
vFld(i,j) = vVel(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
231 |
MOM_VECINV |
CALL MOM_CALC_KE(bi,bj,k,selectKEscheme,uFld,vFld,KE,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
233 |
MOM_VECINV |
CALL MOM_CALC_RELVORT3(bi,bj,k,uFld,vFld,hFacZ,vort3,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
244 |
MOM_VECINV |
CALL MOM_CALC_HDIV(bi,bj,k,2,uFld,vFld,hDiv,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
246 |
MOM_VECINV |
CALL MOM_CALC_TENSION(bi,bj,k,uFld,vFld,tension,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
248 |
MOM_VECINV |
CALL MOM_CALC_STRAIN(bi,bj,k,uFld,vFld,hFacZ,strain,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
262 |
MOM_VECINV |
I bi,bj,k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
270 |
MOM_VECINV |
CALL MOM_VI_DEL2UV(bi,bj,k,hDiv,vort3,hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
273 |
MOM_VECINV |
CALL MOM_CALC_HDIV(bi,bj,k,2,del2u,del2v,dStar,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
274 |
MOM_VECINV |
CALL MOM_CALC_RELVORT3(bi,bj,k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
281 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Ds','I10',1,strain,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
292 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(strain, 'Strain ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
306 |
MOM_VECINV |
CALL MOM_HDISSIP(bi,bj,k,hDiv,vort3,tension,strain,KE, |
|
./pkg/mom_vecinv/mom_vecinv.F |
314 |
MOM_VECINV |
CALL MOM_VI_HDISSIP(bi,bj,k,hDiv,vort3,tension,strain,KE, |
|
./pkg/mom_vecinv/mom_vecinv.F |
333 |
MOM_VECINV |
CALL MOM_U_RVISCFLUX(bi,bj,k+1,uVel,KappaRU,vrF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
346 |
MOM_VECINV |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_vecinv/mom_vecinv.F |
359 |
MOM_VECINV |
I bi,bj,k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
373 |
MOM_VECINV |
CALL MOM_U_BOTTOMDRAG(bi,bj,k,uFld,KE,KappaRU,vF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
382 |
MOM_VECINV |
CALL SHELFICE_U_DRAG(bi,bj,k,uFld,KE,KappaRU,vF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
398 |
MOM_VECINV |
CALL MOM_V_RVISCFLUX(bi,bj,k+1,vVel,KappaRV,vrF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
411 |
MOM_VECINV |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_vecinv/mom_vecinv.F |
424 |
MOM_VECINV |
I bi,bj,k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
438 |
MOM_VECINV |
CALL MOM_V_BOTTOMDRAG(bi,bj,k,vFld,KE,KappaRV,vF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
447 |
MOM_VECINV |
CALL SHELFICE_V_DRAG(bi,bj,k,vFld,KE,KappaRU,vF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
460 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Z3','I10',1,vort3, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
471 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(vort3, 'momVort3',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
485 |
MOM_VECINV |
& CALL MOM_CALC_ABSVORT3(bi,bj,k,vort3,omega3,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
500 |
MOM_VECINV |
CALL MOM_VI_CORIOLIS(bi,bj,k,uFld,vFld,hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
505 |
MOM_VECINV |
gU(i,j,k,bi,bj) = uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
506 |
MOM_VECINV |
gV(i,j,k,bi,bj) = vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
511 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('fV','I10',1,uCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
512 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('fU','I10',1,vCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
525 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(uCf,'Um_Cori ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
526 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(vCf,'Vm_Cori ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
532 |
MOM_VECINV |
gU(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
533 |
MOM_VECINV |
gV(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
542 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS_C4(bi,bj,k,vFld,omega3,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
545 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS_C4(bi,bj,k,vFld,vort3, r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
551 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS(bi,bj,k,vFld,vort3, hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
556 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
570 |
MOM_VECINV |
CALL MOM_VI_V_CORIOLIS(bi,bj,k,uFld,vort3, hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
575 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
581 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('zV','I10',1,uCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
582 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('zU','I10',1,vCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
597 |
MOM_VECINV |
& Nr, k, bi, bj, myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
599 |
MOM_VECINV |
& Nr, k, bi, bj, myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
604 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(uCf,'Um_AdvZ3',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
605 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(vCf,'Vm_AdvZ3',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
614 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
620 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
625 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(uCf,'Um_AdvRe',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
626 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(vCf,'Vm_AdvRe',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
635 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
641 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
646 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('KEx','I10',1,uCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
647 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('KEy','I10',1,vCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
664 |
MOM_VECINV |
CALL MOM_U_CORIOLIS_NH(bi,bj,k,wVel,uCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
667 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
672 |
MOM_VECINV |
CALL MOM_V_CORIOLIS_NH(bi,bj,k,wVel,vCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
675 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
683 |
MOM_VECINV |
CALL MOM_U_METRIC_NH(bi,bj,k,uFld,wVel,uCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
686 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
689 |
MOM_VECINV |
CALL MOM_V_METRIC_NH(bi,bj,k,vFld,wVel,vCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
692 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
700 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
701 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
707 |
MOM_VECINV |
& .AND. k.EQ.4 .AND. myIter.EQ.nIter0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
711 |
MOM_VECINV |
& guDiss,gvDiss, k, standardMessageUnit,bi,bj,myThid ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
717 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('W3','I10',1,omega3, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
718 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('KE','I10',1,KE, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
719 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('D', 'I10',1,hDiv, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
720 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Dt','I10',1,tension,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
721 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Du','I10',1,guDiss, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
722 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Dv','I10',1,gvDiss, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
744 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(KE, 'momKE ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
746 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(hDiv, 'momHDiv ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
747 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(tension,'Tension ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
748 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(guDiss, 'Um_Diss ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
749 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(gvDiss, 'Vm_Diss ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
751 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(gU(1-Olx,1-Oly,k,bi,bj), |
|
./pkg/mom_vecinv/mom_vecinv.F |
752 |
MOM_VECINV |
& 'Um_Advec',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
753 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(gV(1-Olx,1-Oly,k,bi,bj), |
|
./pkg/mom_vecinv/mom_vecinv.F |
754 |
MOM_VECINV |
& 'Vm_Advec',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
7 |
MOM_VECINV |
I bi,bj,iMin,iMax,jMin,jMax,k,kUp,kDown, |
|
./pkg/mom_vecinv/mom_vecinv.F |
97 |
MOM_VECINV |
INTEGER i,j,k |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
44 |
MOM_VI_CORIOLIS |
& (vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
45 |
MOM_VI_CORIOLIS |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
46 |
MOM_VI_CORIOLIS |
& +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
47 |
MOM_VI_CORIOLIS |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj))) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
48 |
MOM_VI_CORIOLIS |
& / MAX( epsil,(_hFacS(i, j ,k,bi,bj)+_hFacS(i-1, j ,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
49 |
MOM_VI_CORIOLIS |
& +(_hFacS(i,j+1,k,bi,bj)+_hFacS(i-1,j+1,k,bi,bj)) ) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
77 |
MOM_VI_CORIOLIS |
& (uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
78 |
MOM_VI_CORIOLIS |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
79 |
MOM_VI_CORIOLIS |
& +(uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
80 |
MOM_VI_CORIOLIS |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj))) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
81 |
MOM_VI_CORIOLIS |
& / MAX( epsil,(_hFacW( i ,j,k,bi,bj)+_hFacW( i ,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
82 |
MOM_VI_CORIOLIS |
& +(_hFacW(i+1,j,k,bi,bj)+_hFacW(i+1,j-1,k,bi,bj)) ) |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
116 |
MOM_VI_DEL2UV |
& +_recip_hFacS(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
22 |
MOM_VI_DEL2UV |
INTEGER bi,bj,k |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
7 |
MOM_VI_DEL2UV |
I bi,bj,k, |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
95 |
MOM_VI_DEL2UV |
& -_recip_hFacW(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
101 |
MOM_VI_HDISSIP |
vD2 = viscAhZ*_recip_hFacS(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
160 |
MOM_VI_HDISSIP |
& -_recip_hFacW(i,j,k,bi,bj)*( Zip-Zij ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
166 |
MOM_VI_HDISSIP |
& _recip_hFacS(i,j,k,bi,bj)*( (Zpj-Zij)*cosFacV(j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
178 |
MOM_VI_HDISSIP |
& -_recip_hFacW(i,j,k,bi,bj)*viscA4*( Zip-Zij ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
184 |
MOM_VI_HDISSIP |
& _recip_hFacS(i,j,k,bi,bj)*viscA4*( (Zpj-Zij)*cosFacV(j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
193 |
MOM_VI_HDISSIP |
& -_recip_hFacW(i,j,k,bi,bj)*( Zip-Zij )*recip_DYG(i,j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
198 |
MOM_VI_HDISSIP |
& _recip_hFacS(i,j,k,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
210 |
MOM_VI_HDISSIP |
& - viscA4Z*_recip_hFacW(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
215 |
MOM_VI_HDISSIP |
vD4 = viscA4Z*_recip_hFacS(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
34 |
MOM_VI_HDISSIP |
INTEGER bi,bj,k |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
75 |
MOM_VI_HDISSIP |
& -_recip_hFacW(i,j,k,bi,bj)*( Zip-Zij )*recip_DYG(i,j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
7 |
MOM_VI_HDISSIP |
I bi,bj,k, |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
80 |
MOM_VI_HDISSIP |
& _recip_hFacS(i,j,k,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
96 |
MOM_VI_HDISSIP |
& - viscAhZ*_recip_hFacW(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
107 |
MOM_VI_U_CORIOLIS |
& * _maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
10 |
MOM_VI_U_CORIOLIS |
I bi, bj, k, |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
117 |
MOM_VI_U_CORIOLIS |
& vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
118 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
120 |
MOM_VI_U_CORIOLIS |
& vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
121 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
134 |
MOM_VI_U_CORIOLIS |
& * _maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
152 |
MOM_VI_U_CORIOLIS |
& *vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
158 |
MOM_VI_U_CORIOLIS |
& *vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
164 |
MOM_VI_U_CORIOLIS |
& *vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
170 |
MOM_VI_U_CORIOLIS |
& *vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
174 |
MOM_VI_U_CORIOLIS |
& * _maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
191 |
MOM_VI_U_CORIOLIS |
& * 4. _d 0 * _hFacW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
193 |
MOM_VI_U_CORIOLIS |
& (_hFacS(i, j ,k,bi,bj)+_hFacS(i-1, j ,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
194 |
MOM_VI_U_CORIOLIS |
& +(_hFacS(i,j+1,k,bi,bj)+_hFacS(i-1,j+1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
34 |
MOM_VI_U_CORIOLIS |
INTEGER bi, bj, k |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
66 |
MOM_VI_U_CORIOLIS |
& (vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
67 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
68 |
MOM_VI_U_CORIOLIS |
& +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
69 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
82 |
MOM_VI_U_CORIOLIS |
& * _maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
10 |
MOM_VI_U_CORIOLIS_C4 |
I bi,bj,k, |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
129 |
MOM_VI_U_CORIOLIS_C4 |
& (vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
130 |
MOM_VI_U_CORIOLIS_C4 |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
131 |
MOM_VI_U_CORIOLIS_C4 |
& +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
132 |
MOM_VI_U_CORIOLIS_C4 |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
151 |
MOM_VI_U_CORIOLIS_C4 |
& * _maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
165 |
MOM_VI_U_CORIOLIS_C4 |
& vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
166 |
MOM_VI_U_CORIOLIS_C4 |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
168 |
MOM_VI_U_CORIOLIS_C4 |
& vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
169 |
MOM_VI_U_CORIOLIS_C4 |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
185 |
MOM_VI_U_CORIOLIS_C4 |
& * _maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
38 |
MOM_VI_U_CORIOLIS_C4 |
INTEGER bi,bj,k |
|
./pkg/mom_vecinv/mom_vi_u_grad_ke.F |
34 |
MOM_VI_U_GRAD_KE |
& *_maskW(i,j,k,BI,BJ) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
126 |
MOM_VI_U_VERTSHEAR |
& )*_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
131 |
MOM_VI_U_VERTSHEAR |
& *_recip_hFacW(i,j,k,bi,bj) |
|
./model/src/calc_gw.F |
123 |
CALC_GW |
DO k=1,Nr |
|
./model/src/calc_gw.F |
126 |
CALC_GW |
gW(i,j,k,bi,bj) = 0. |
|
./model/src/calc_gw.F |
155 |
CALC_GW |
DO k=1,Nr |
|
./model/src/calc_gw.F |
156 |
CALC_GW |
km1 = MAX( k-1, 1 ) |
|
./model/src/calc_gw.F |
157 |
CALC_GW |
kp1 = MIN( k+1,Nr ) |
|
./model/src/calc_gw.F |
160 |
CALC_GW |
IF ( k.EQ. 1 ) mskM1 = 0. |
|
./model/src/calc_gw.F |
161 |
CALC_GW |
IF ( k.EQ.Nr ) mskP1 = 0. |
|
./model/src/calc_gw.F |
162 |
CALC_GW |
IF ( k.GT.1 ) THEN |
|
./model/src/calc_gw.F |
167 |
CALC_GW |
IF ( maskC(i,j,k-1,bi,bj).EQ.0. .OR. |
|
./model/src/calc_gw.F |
168 |
CALC_GW |
& maskC(i,j, k ,bi,bj).EQ.0. ) THEN |
|
./model/src/calc_gw.F |
173 |
CALC_GW |
& ( MIN( Ro_surf(i,j,bi,bj),rC(k-1) ) |
|
./model/src/calc_gw.F |
174 |
CALC_GW |
& - MAX( R_low(i,j,bi,bj), rC(k) ) |
|
./model/src/calc_gw.F |
183 |
CALC_GW |
& MIN( Ro_surf(i,j,bi,bj), rC(k-1) ) |
|
./model/src/calc_gw.F |
184 |
CALC_GW |
& -MAX( R_low(i,j,bi,bj), rC(k) ) |
|
./model/src/calc_gw.F |
191 |
CALC_GW |
& MIN( rSurfW(i,j,bi,bj), rC(k-1) ) |
|
./model/src/calc_gw.F |
192 |
CALC_GW |
& -MAX( rLowW(i,j,bi,bj), rC(k) ) |
|
./model/src/calc_gw.F |
202 |
CALC_GW |
& MIN( rSurfS(i,j,bi,bj), rC(k-1) ) |
|
./model/src/calc_gw.F |
203 |
CALC_GW |
& -MAX( rLowS(i,j,bi,bj), rC(k) ) |
|
./model/src/calc_gw.F |
217 |
CALC_GW |
IF ( maskC(i,j,k,bi,bj).EQ.0. ) THEN |
|
./model/src/calc_gw.F |
221 |
CALC_GW |
& ( drF(k-1)*halfRS |
|
./model/src/calc_gw.F |
222 |
CALC_GW |
& + drF( k )*MIN( _hFacC(i,j, k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
228 |
CALC_GW |
& drF(k-1)*MAX( h0FacC(i,j,k-1,bi,bj)-halfRS, zeroRS ) |
|
./model/src/calc_gw.F |
229 |
CALC_GW |
& + drF( k )*MIN( h0FacC(i,j,k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
232 |
CALC_GW |
& drF(k-1)*MAX( _hFacC(i,j,k-1,bi,bj)-halfRS, zeroRS ) |
|
./model/src/calc_gw.F |
233 |
CALC_GW |
& + drF( k )*MIN( _hFacC(i,j,k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
236 |
CALC_GW |
& drF(k-1)*MAX( _hFacW(i,j,k-1,bi,bj)-halfRS, zeroRS ) |
|
./model/src/calc_gw.F |
237 |
CALC_GW |
& + drF( k )*MIN( _hFacW(i,j,k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
239 |
CALC_GW |
& drF(k-1)*MAX( _hFacS(i,j,k-1,bi,bj)-halfRS, zeroRS ) |
|
./model/src/calc_gw.F |
240 |
CALC_GW |
& + drF( k )*MIN( _hFacS(i,j, k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
256 |
CALC_GW |
recip_rThickC(i,j) = recip_drC(k) |
|
./model/src/calc_gw.F |
269 |
CALC_GW |
wFld(i,j) = wVel(i,j,k,bi,bj) |
|
./model/src/calc_gw.F |
274 |
CALC_GW |
IF ( momViscosity .AND. k.GT.1 .AND. viscA4W.NE.0. ) THEN |
|
./model/src/calc_gw.F |
324 |
CALC_GW |
& *recip_deepFac2F(k) |
|
./model/src/calc_gw.F |
330 |
CALC_GW |
IF ( momViscosity .AND. k.GT.1 ) THEN |
|
./model/src/calc_gw.F |
335 |
CALC_GW |
& - (viscAh_W(i,j,k,bi,bj)+viscAh_W(i-1,j,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
336 |
CALC_GW |
& *(wVel(i,j,k,bi,bj)-wVel(i-1,j,k,bi,bj)) |
|
./model/src/calc_gw.F |
339 |
CALC_GW |
& + (viscA4_W(i,j,k,bi,bj)+viscA4_W(i-1,j,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
353 |
CALC_GW |
& - (viscAh_W(i,j,k,bi,bj)+viscAh_W(i,j-1,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
354 |
CALC_GW |
& *(wVel(i,j,k,bi,bj)-wVel(i,j-1,k,bi,bj)) |
|
./model/src/calc_gw.F |
359 |
CALC_GW |
& + (viscA4_W(i,j,k,bi,bj)+viscA4_W(i,j-1,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
375 |
CALC_GW |
viscLoc = ( KappaRU(i,j,k) +KappaRU(i+1,j,k) |
|
./model/src/calc_gw.F |
377 |
CALC_GW |
& +KappaRV(i,j,k) +KappaRV(i,j+1,k) |
|
./model/src/calc_gw.F |
382 |
CALC_GW |
& -wVel(i,j, k ,bi,bj) )*rkSign |
|
./model/src/calc_gw.F |
383 |
CALC_GW |
& *recip_drF(k)*rA(i,j,bi,bj) |
|
./model/src/calc_gw.F |
384 |
CALC_GW |
& *deepFac2C(k)*rhoFacC(k) |
|
./model/src/calc_gw.F |
387 |
CALC_GW |
IF ( k.EQ.2 ) THEN |
|
./model/src/calc_gw.F |
395 |
CALC_GW |
viscLoc = ( KappaRU(i,j,k) + KappaRU(i+1,j,k) |
|
./model/src/calc_gw.F |
396 |
CALC_GW |
& +KappaRV(i,j,k) + KappaRV(i,j+1,k) |
|
./model/src/calc_gw.F |
399 |
CALC_GW |
& - viscLoc*( wVel(i,j, k ,bi,bj) |
|
./model/src/calc_gw.F |
400 |
CALC_GW |
& -wVel(i,j,k-1,bi,bj) )*rkSign |
|
./model/src/calc_gw.F |
401 |
CALC_GW |
& *recip_drF(k-1)*rA(i,j,bi,bj) |
|
./model/src/calc_gw.F |
402 |
CALC_GW |
& *deepFac2C(k-1)*rhoFacC(k-1) |
|
./model/src/calc_gw.F |
416 |
CALC_GW |
& *recip_rhoFacF(k) |
|
./model/src/calc_gw.F |
418 |
CALC_GW |
& *recip_deepFac2F(k) |
|
./model/src/calc_gw.F |
425 |
CALC_GW |
IF ( momViscosity .AND. k.GT.1 .AND. no_slip_sides ) THEN |
|
./model/src/calc_gw.F |
428 |
CALC_GW |
I bi,bj,k, |
|
./model/src/calc_gw.F |
445 |
CALC_GW |
IF ( k.GT.1 .OR. selectNHfreeSurf.GE.1 ) THEN |
|
./model/src/calc_gw.F |
453 |
CALC_GW |
& + drF( k )*_hFacW(i,j, k ,bi,bj)*uVel(i,j, k ,bi,bj) |
|
./model/src/calc_gw.F |
454 |
CALC_GW |
& *rhoFacC(k) |
|
./model/src/calc_gw.F |
455 |
CALC_GW |
& )*halfRL*_dyG(i,j,bi,bj)*deepFacF(k) |
|
./model/src/calc_gw.F |
468 |
CALC_GW |
& +drF( k )*_hFacS(i,j, k ,bi,bj)*vVel(i,j, k ,bi,bj) |
|
./model/src/calc_gw.F |
469 |
CALC_GW |
& *rhoFacC(k) |
|
./model/src/calc_gw.F |
470 |
CALC_GW |
& )*halfRL*_dxG(i,j,bi,bj)*deepFacF(k) |
|
./model/src/calc_gw.F |
483 |
CALC_GW |
& ( wVel(i,j, k ,bi,bj)*rVel2wUnit( k ) |
|
./model/src/calc_gw.F |
487 |
CALC_GW |
& ( wVel(i,j, k ,bi,bj)*deepFac2F( k )*rhoFacF( k ) |
|
./model/src/calc_gw.F |
495 |
CALC_GW |
IF ( k.EQ.1 .AND. selectNHfreeSurf.GE.1 ) THEN |
|
./model/src/calc_gw.F |
499 |
CALC_GW |
tmp_WbarZ = wVel(i,j,k,bi,bj)*rVel2wUnit(k) |
|
./model/src/calc_gw.F |
500 |
CALC_GW |
rTrans = wVel(i,j,k,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./model/src/calc_gw.F |
507 |
CALC_GW |
IF ( k.GT.1 .OR. selectNHfreeSurf.GE.1 ) THEN |
|
./model/src/calc_gw.F |
514 |
CALC_GW |
gW(i,j,k,bi,bj) = |
|
./model/src/calc_gw.F |
517 |
CALC_GW |
& + ( flx_Dn(i,j)-flxAdvUp(i,j) )*rkSign*wUnit2rVel(k) |
|
./model/src/calc_gw.F |
519 |
CALC_GW |
& *recip_deepFac2F(k)*recip_rhoFacF(k) |
|
./model/src/calc_gw.F |
544 |
CALC_GW |
IF ( useNHMTerms .AND. k.GT.1 ) THEN |
|
./model/src/calc_gw.F |
546 |
CALC_GW |
I bi,bj,k, |
|
./model/src/calc_gw.F |
552 |
CALC_GW |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)+gwAdd(i,j) |
|
./model/src/calc_gw.F |
556 |
CALC_GW |
IF ( use3dCoriolis .AND. k.GT.1 ) THEN |
|
./model/src/calc_gw.F |
558 |
CALC_GW |
I bi,bj,k, |
|
./model/src/calc_gw.F |
564 |
CALC_GW |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)+gwAdd(i,j) |
|
./model/src/calc_gw.F |
574 |
CALC_GW |
& k, 1, 2, bi,bj, myThid ) |
|
./model/src/calc_gw.F |
581 |
CALC_GW |
& k,Nr, 1, bi,bj, myThid ) |
|
./model/src/calc_gw.F |
590 |
CALC_GW |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)+gwDiss(i,j) |
|
./model/src/calc_gw.F |
599 |
CALC_GW |
I bi, bj, k, |
|
./model/src/calc_gw.F |
604 |
CALC_GW |
I bi, bj, k, |
|
./model/src/calc_gw.F |
613 |
CALC_GW |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)+gwDiss(i,j) |
|
./model/src/calc_gw.F |
92 |
CALC_GW |
INTEGER i,j,k, km1, kp1 |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
107 |
MOM_VI_V_CORIOLIS |
& * _maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
10 |
MOM_VI_V_CORIOLIS |
I bi, bj, k, |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
117 |
MOM_VI_V_CORIOLIS |
& uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
118 |
MOM_VI_V_CORIOLIS |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
120 |
MOM_VI_V_CORIOLIS |
& uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
121 |
MOM_VI_V_CORIOLIS |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
134 |
MOM_VI_V_CORIOLIS |
& * _maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
152 |
MOM_VI_V_CORIOLIS |
& *uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
158 |
MOM_VI_V_CORIOLIS |
& *uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
164 |
MOM_VI_V_CORIOLIS |
& *uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
170 |
MOM_VI_V_CORIOLIS |
& *uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
174 |
MOM_VI_V_CORIOLIS |
& * _maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
191 |
MOM_VI_V_CORIOLIS |
& * 4. _d 0 * _hFacS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
193 |
MOM_VI_V_CORIOLIS |
& (_hFacW( i ,j,k,bi,bj)+_hFacW( i ,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
194 |
MOM_VI_V_CORIOLIS |
& +(_hFacW(i+1,j,k,bi,bj)+_hFacW(i+1,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
34 |
MOM_VI_V_CORIOLIS |
INTEGER bi, bj, k |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
66 |
MOM_VI_V_CORIOLIS |
& (uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
67 |
MOM_VI_V_CORIOLIS |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
68 |
MOM_VI_V_CORIOLIS |
& +(uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
69 |
MOM_VI_V_CORIOLIS |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
82 |
MOM_VI_V_CORIOLIS |
& * _maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
10 |
MOM_VI_V_CORIOLIS_C4 |
I bi,bj,k, |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
129 |
MOM_VI_V_CORIOLIS_C4 |
& (uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
130 |
MOM_VI_V_CORIOLIS_C4 |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
131 |
MOM_VI_V_CORIOLIS_C4 |
& +(uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
132 |
MOM_VI_V_CORIOLIS_C4 |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
151 |
MOM_VI_V_CORIOLIS_C4 |
& * _maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
165 |
MOM_VI_V_CORIOLIS_C4 |
& uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
166 |
MOM_VI_V_CORIOLIS_C4 |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
168 |
MOM_VI_V_CORIOLIS_C4 |
& uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
169 |
MOM_VI_V_CORIOLIS_C4 |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
185 |
MOM_VI_V_CORIOLIS_C4 |
& * _maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
38 |
MOM_VI_V_CORIOLIS_C4 |
INTEGER bi,bj,k |
|
./pkg/mom_vecinv/mom_vi_v_grad_ke.F |
34 |
MOM_VI_V_GRAD_KE |
& *_maskS(i,j,k,BI,BJ) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
126 |
MOM_VI_V_VERTSHEAR |
& )*_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
131 |
MOM_VI_V_VERTSHEAR |
& *_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
101 |
MON_CALC_STATS_RL |
tmpVol = arrArea(i,j,bi,bj)*arrDr(k)*tmpMask |
|
./pkg/monitor/mon_calc_stats_rl.F |
138 |
MON_CALC_STATS_RL |
DO k=1,myNr |
|
./pkg/monitor/mon_calc_stats_rl.F |
141 |
MON_CALC_STATS_RL |
tmpVal=arr(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
142 |
MON_CALC_STATS_RL |
tmpMask = arrMask(i,j,bi,bj)*arrhFac(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
144 |
MON_CALC_STATS_RL |
tmpVol = arrArea(i,j,bi,bj)*arrDr(k)*tmpMask |
|
./pkg/monitor/mon_calc_stats_rl.F |
36 |
MON_CALC_STATS_RL |
INTEGER bi,bj,i,j,k |
|
./pkg/monitor/mon_calc_stats_rl.F |
66 |
MON_CALC_STATS_RL |
DO k=1,myNr |
|
./pkg/monitor/mon_calc_stats_rl.F |
69 |
MON_CALC_STATS_RL |
tmpVal = arr(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
70 |
MON_CALC_STATS_RL |
tmpMask = arrMask(i,j,bi,bj)*arrhFac(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
88 |
MON_CALC_STATS_RL |
ddx = arrhFac(i+1,j,k,bi,bj)*arrhFac(i-1,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
90 |
MON_CALC_STATS_RL |
ddx = (arr(i+1,j,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rl.F |
91 |
MON_CALC_STATS_RL |
& + (arr(i-1,j,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rl.F |
93 |
MON_CALC_STATS_RL |
ddy = arrhFac(i,j+1,k,bi,bj)*arrhFac(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
95 |
MON_CALC_STATS_RL |
ddy = (arr(i,j+1,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rl.F |
96 |
MON_CALC_STATS_RL |
& + (arr(i,j-1,k,bi,bj)-tmpVal) |
|
./model/src/calc_ivdc.F |
51 |
CALC_IVDC |
IF ( _hFacC(i,j,k,bi,bj) .GT. 0. .AND. |
|
./model/src/calc_ivdc.F |
53 |
CALC_IVDC |
IVDConvCount(i,j,k,bi,bj) = 1. _d 0 |
|
./model/src/calc_ivdc.F |
55 |
CALC_IVDC |
IVDConvCount(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/monitor/mon_calc_stats_rs.F |
101 |
MON_CALC_STATS_RS |
tmpVol = arrArea(i,j,bi,bj)*arrDr(k)*tmpMask |
|
./pkg/monitor/mon_calc_stats_rs.F |
138 |
MON_CALC_STATS_RS |
DO k=1,myNr |
|
./pkg/monitor/mon_calc_stats_rs.F |
141 |
MON_CALC_STATS_RS |
tmpVal=arr(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
142 |
MON_CALC_STATS_RS |
tmpMask = arrMask(i,j,bi,bj)*arrhFac(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
144 |
MON_CALC_STATS_RS |
tmpVol = arrArea(i,j,bi,bj)*arrDr(k)*tmpMask |
|
./pkg/monitor/mon_calc_stats_rs.F |
36 |
MON_CALC_STATS_RS |
INTEGER bi,bj,i,j,k |
|
./pkg/monitor/mon_calc_stats_rs.F |
66 |
MON_CALC_STATS_RS |
DO k=1,myNr |
|
./pkg/monitor/mon_calc_stats_rs.F |
69 |
MON_CALC_STATS_RS |
tmpVal = arr(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
70 |
MON_CALC_STATS_RS |
tmpMask = arrMask(i,j,bi,bj)*arrhFac(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
88 |
MON_CALC_STATS_RS |
ddx = arrhFac(i+1,j,k,bi,bj)*arrhFac(i-1,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
90 |
MON_CALC_STATS_RS |
ddx = (arr(i+1,j,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
91 |
MON_CALC_STATS_RS |
& + (arr(i-1,j,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
93 |
MON_CALC_STATS_RS |
ddy = arrhFac(i,j+1,k,bi,bj)*arrhFac(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
95 |
MON_CALC_STATS_RS |
ddy = (arr(i,j+1,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
96 |
MON_CALC_STATS_RS |
& + (arr(i,j-1,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_ke.F |
102 |
MON_KE |
& )*maskC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
104 |
MON_KE |
& + tmpWke*rA(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
106 |
MON_KE |
& + tmpWke*recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/monitor/mon_ke.F |
32 |
MON_KE |
INTEGER bi,bj,i,j,k,kp1 |
|
./pkg/monitor/mon_ke.F |
56 |
MON_KE |
DO k=1,Nr |
|
./pkg/monitor/mon_ke.F |
57 |
MON_KE |
kp1 = MIN(k+1,Nr) |
|
./pkg/monitor/mon_ke.F |
59 |
MON_KE |
IF ( k.GE.Nr ) mskp1 = 0. |
|
./pkg/monitor/mon_ke.F |
63 |
MON_KE |
IF ( k.EQ. 1 ) msk_1 = 0. |
|
./pkg/monitor/mon_ke.F |
67 |
MON_KE |
& + rA(i,j,bi,bj)*deepFac2C(k) |
|
./pkg/monitor/mon_ke.F |
68 |
MON_KE |
& *rhoFacC(k)*drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
82 |
MON_KE |
& uVel( i ,j,k,bi,bj)*uVel( i ,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
83 |
MON_KE |
& *dyG( i ,j,bi,bj)*dxC( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
84 |
MON_KE |
& +uVel(i+1,j,k,bi,bj)*uVel(i+1,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
85 |
MON_KE |
& *dyG(i+1,j,bi,bj)*dxC(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
86 |
MON_KE |
& +vVel(i, j ,k,bi,bj)*vVel(i, j ,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
87 |
MON_KE |
& *dxG(i, j ,bi,bj)*dyC(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
88 |
MON_KE |
& +vVel(i,j+1,k,bi,bj)*vVel(i,j+1,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
89 |
MON_KE |
& *dxG(i,j+1,bi,bj)*dyC(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
92 |
MON_KE |
& + tmpVal*deepFac2C(k)*rhoFacC(k)*drF(k) |
|
./pkg/monitor/mon_ke.F |
93 |
MON_KE |
tmpVal= tmpVal*_recip_hFacC(i,j,k,bi,bj)*recip_rA(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
98 |
MON_KE |
& ( wVel(i,j, k, bi,bj)*wVel(i,j, k, bi,bj)*msk_1 |
|
./pkg/monitor/mon_ke.F |
99 |
MON_KE |
& *deepFac2F( k )*rhoFacF( k ) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
103 |
MON_STATS_LATBND_RL |
tmpVal=arr(i,j,k,bi,bj) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
112 |
MON_STATS_LATBND_RL |
tmpVol = arrArea(i,j,bi,bj)*arrhFac(i,j,km,bi,bj)*arrDr(k) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
51 |
MON_STATS_LATBND_RL |
INTEGER bi,bj,i,j,k,n |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
98 |
MON_STATS_LATBND_RL |
DO k=k1,k2 |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
99 |
MON_STATS_LATBND_RL |
km = MIN(k,mskNr) |
|
./model/src/calc_oce_mxlayer.F |
107 |
CALC_OCE_MXLAYER |
DO k = 2,Nr |
|
./model/src/calc_oce_mxlayer.F |
111 |
CALC_OCE_MXLAYER |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/calc_oce_mxlayer.F |
113 |
CALC_OCE_MXLAYER |
I k, bi, bj, myThid ) |
|
./model/src/calc_oce_mxlayer.F |
117 |
CALC_OCE_MXLAYER |
IF ( k.LE.klowC(i,j,bi,bj) .AND. |
|
./model/src/calc_oce_mxlayer.F |
125 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k) |
|
./model/src/calc_oce_mxlayer.F |
153 |
CALC_OCE_MXLAYER |
DO k = 2,Nr-1 |
|
./model/src/calc_oce_mxlayer.F |
157 |
CALC_OCE_MXLAYER |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/calc_oce_mxlayer.F |
159 |
CALC_OCE_MXLAYER |
I k, bi, bj, myThid ) |
|
./model/src/calc_oce_mxlayer.F |
163 |
CALC_OCE_MXLAYER |
IF ( k.LT.klowC(i,j,bi,bj) |
|
./model/src/calc_oce_mxlayer.F |
166 |
CALC_OCE_MXLAYER |
& / ( rC(1)-rC(k) ) |
|
./model/src/calc_oce_mxlayer.F |
167 |
CALC_OCE_MXLAYER |
IF ( -sigmaR(i,j,k+1).GT.sigmAv*hMixCriteria ) THEN |
|
./model/src/calc_oce_mxlayer.F |
170 |
CALC_OCE_MXLAYER |
tmpFac = hMixCriteria*sigmaR(i,j,k)/sigmaR(i,j,k+1) |
|
./model/src/calc_oce_mxlayer.F |
177 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rF(1)-rF(k+1) |
|
./model/src/calc_oce_mxlayer.F |
178 |
CALC_OCE_MXLAYER |
& - drF(k)*tmpFac*0.5 _d 0 |
|
./model/src/calc_oce_mxlayer.F |
56 |
CALC_OCE_MXLAYER |
INTEGER i,j,k |
|
./pkg/monitor/mon_surfcor.F |
121 |
MON_SURFCOR |
DO k=2,Nr |
|
./pkg/monitor/mon_surfcor.F |
127 |
MON_SURFCOR |
& - ddPI*rA(i,j,bi,bj)*wVel(i,j,k,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
128 |
MON_SURFCOR |
& *(theta(i,j,k,bi,bj)+theta(i,j,k-1,bi,bj))*0.5 _d 0 |
|
./pkg/monitor/mon_surfcor.F |
129 |
MON_SURFCOR |
& *maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
143 |
MON_SURFCOR |
DO k=1,Nr |
|
./pkg/monitor/mon_surfcor.F |
145 |
MON_SURFCOR |
& atm_cp*((rC(k)/atm_po)**atm_kappa) |
|
./pkg/monitor/mon_surfcor.F |
148 |
MON_SURFCOR |
tmpVol = rA(i,j,bi,bj)*h0FacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/monitor/mon_surfcor.F |
149 |
MON_SURFCOR |
tmpVal = rStarDhCDt(i,j,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
152 |
MON_SURFCOR |
& +tmpVol*rStarDhCDt(i,j,bi,bj)*salt(i,j,k,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
53 |
MON_SURFCOR |
INTEGER i,j,k,ks,bi,bj |
|
./pkg/monitor/mon_vort3.F |
124 |
MON_VORT3 |
& )*recip_drF(k) |
|
./pkg/monitor/mon_vort3.F |
129 |
MON_VORT3 |
& 0.25 _d 0*( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
130 |
MON_VORT3 |
& + _hFacW(i, j ,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
131 |
MON_VORT3 |
& + _hFacS(i-1,j,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
132 |
MON_VORT3 |
& + _hFacS( i ,j,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
136 |
MON_VORT3 |
& vVel( i ,j,k,bi,bj)*dyC( i ,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
137 |
MON_VORT3 |
& -vVel(i-1,j,k,bi,bj)*dyC(i-1,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
138 |
MON_VORT3 |
& -uVel(i, j ,k,bi,bj)*dxC(i, j ,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
139 |
MON_VORT3 |
& +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
188 |
MON_VORT3 |
& vVel(i,j,k,bi,bj)*dyC(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
189 |
MON_VORT3 |
& -uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
190 |
MON_VORT3 |
& +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
192 |
MON_VORT3 |
hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
193 |
MON_VORT3 |
& + _hFacW(i, j ,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
194 |
MON_VORT3 |
& + _hFacS( i ,j,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
203 |
MON_VORT3 |
& -vVel(i-1,j,k,bi,bj)*dyC(i-1,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
204 |
MON_VORT3 |
& -uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
205 |
MON_VORT3 |
& +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
207 |
MON_VORT3 |
hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
208 |
MON_VORT3 |
& + _hFacW(i, j ,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
209 |
MON_VORT3 |
& + _hFacS(i-1,j,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
218 |
MON_VORT3 |
& vVel(i,j,k,bi,bj)*dyC(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
219 |
MON_VORT3 |
& -uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
220 |
MON_VORT3 |
& +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
222 |
MON_VORT3 |
hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
223 |
MON_VORT3 |
& + _hFacW(i, j ,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
224 |
MON_VORT3 |
& + _hFacS( i ,j,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
233 |
MON_VORT3 |
& -vVel(i-1,j,k,bi,bj)*dyC(i-1,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
234 |
MON_VORT3 |
& -uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
235 |
MON_VORT3 |
& +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
237 |
MON_VORT3 |
hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
238 |
MON_VORT3 |
& + _hFacW(i, j ,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
239 |
MON_VORT3 |
& + _hFacS(i-1,j,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
252 |
MON_VORT3 |
& + uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
255 |
MON_VORT3 |
hFacZ(1,j) = hFacZ(1,j) + _hFacW(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
260 |
MON_VORT3 |
hFacZ(1,j) = sNx + hFacZ(1,j)*recip_drF(k) |
|
./pkg/monitor/mon_vort3.F |
270 |
MON_VORT3 |
& - uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
273 |
MON_VORT3 |
hFacZ(1,j) = hFacZ(1,j) + _hFacW(i,j,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
278 |
MON_VORT3 |
hFacZ(1,j) = sNx + hFacZ(1,j)*recip_drF(k) |
|
./pkg/monitor/mon_vort3.F |
291 |
MON_VORT3 |
tmpAre = rAz(i,j,bi,bj)*drF(k) |
|
./pkg/monitor/mon_vort3.F |
292 |
MON_VORT3 |
tmpVol = rAz(i,j,bi,bj)*drF(k)*hFacZ(i,j) |
|
./pkg/monitor/mon_vort3.F |
35 |
MON_VORT3 |
INTEGER bi,bj,i,j,k |
|
./pkg/monitor/mon_vort3.F |
90 |
MON_VORT3 |
DO k=1,Nr |
|
./pkg/monitor/monitor.F |
123 |
MONITOR |
k = 1 |
|
./pkg/monitor/monitor.F |
124 |
MONITOR |
IF ( usingPCoords ) k = Nr |
|
./pkg/monitor/monitor.F |
125 |
MONITOR |
CALL MON_WRITESTATS_RL( 1, theta(1-OLx,1-OLy,k,1,1), '_sst', |
|
./pkg/monitor/monitor.F |
127 |
MONITOR |
CALL MON_WRITESTATS_RL( 1, salt(1-OLx,1-OLy,k,1,1), '_sss', |
|
./pkg/monitor/monitor.F |
49 |
MONITOR |
INTEGER k |
|
./pkg/monitor/monitor.F |
65 |
MONITOR |
DO k = 1,MAX_LEN_MBUF |
|
./pkg/monitor/monitor.F |
66 |
MONITOR |
mon_fname(k:k) = ' ' |
|
./pkg/monitor/monitor.F |
96 |
MONITOR |
DO k=1,Nr |
|
./pkg/monitor/monitor.F |
97 |
MONITOR |
thickFacC(k) = drF(k)*deepFac2C(k)*rhoFacC(k) |
|
./pkg/monitor/monitor.F |
98 |
MONITOR |
thickFacF(k) = drC(k)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/monitor/monitor_ad.F |
125 |
ADMONITOR |
k = 1 |
|
./pkg/monitor/monitor_ad.F |
126 |
ADMONITOR |
IF ( usingPCoords ) k = Nr |
|
./pkg/monitor/monitor_ad.F |
127 |
ADMONITOR |
CALL MON_WRITESTATS_RL( 1,adtheta(1-OLx,1-OLy,k,1,1),'_adsst', |
|
./pkg/monitor/monitor_ad.F |
129 |
ADMONITOR |
CALL MON_WRITESTATS_RL( 1, adsalt(1-OLx,1-OLy,k,1,1),'_adsss', |
|
./pkg/monitor/monitor_ad.F |
58 |
ADMONITOR |
INTEGER k |
|
./pkg/monitor/monitor_ad.F |
74 |
ADMONITOR |
DO k = 1,MAX_LEN_MBUF |
|
./pkg/monitor/monitor_ad.F |
75 |
ADMONITOR |
mon_fname(k:k) = ' ' |
|
./pkg/monitor/monitor_g.F |
126 |
G_MONITOR |
k = 1 |
|
./pkg/monitor/monitor_g.F |
127 |
G_MONITOR |
IF ( usingPCoords ) k = Nr |
|
./pkg/monitor/monitor_g.F |
128 |
G_MONITOR |
CALL MON_WRITESTATS_RL( 1,g_theta(1-OLx,1-OLy,k,1,1),'_g_sst', |
|
./pkg/monitor/monitor_g.F |
130 |
G_MONITOR |
CALL MON_WRITESTATS_RL( 1, g_salt(1-OLx,1-OLy,k,1,1),'_g_sss', |
|
./pkg/monitor/monitor_g.F |
58 |
G_MONITOR |
INTEGER k |
|
./pkg/monitor/monitor_g.F |
74 |
G_MONITOR |
DO k = 1,MAX_LEN_MBUF |
|
./pkg/monitor/monitor_g.F |
75 |
G_MONITOR |
mon_fname(k:k) = ' ' |
|
./model/src/calc_phi_hyd.F |
11 |
CALC_PHI_HYD |
I bi, bj, iMin, iMax, jMin, jMax, k, |
|
./model/src/calc_phi_hyd.F |
125 |
CALC_PHI_HYD |
IF (k.EQ.1) THEN |
|
./model/src/calc_phi_hyd.F |
145 |
CALC_PHI_HYD |
kkey = (ikey-1)*Nr + k |
|
./model/src/calc_phi_hyd.F |
152 |
CALC_PHI_HYD |
I iMin, iMax, jMin, jMax, k, |
|
./model/src/calc_phi_hyd.F |
153 |
CALC_PHI_HYD |
I tFld(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/calc_phi_hyd.F |
154 |
CALC_PHI_HYD |
I sFld(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/calc_phi_hyd.F |
156 |
CALC_PHI_HYD |
I k, bi, bj, myThid ) |
|
./model/src/calc_phi_hyd.F |
160 |
CALC_PHI_HYD |
alphaRho(i,j) = rhoInSitu(i,j,k,bi,bj) |
|
./model/src/calc_phi_hyd.F |
174 |
CALC_PHI_HYD |
IF ( k.LT.kSurfC(i,j,bi,bj) ) alphaRho(i,j) = 0. _d 0 |
|
./model/src/calc_phi_hyd.F |
180 |
CALC_PHI_HYD |
alphaRho(i,j) = alphaRho(i,j)*maskC(i,j,k,bi,bj) |
|
./model/src/calc_phi_hyd.F |
189 |
CALC_PHI_HYD |
CALL MOM_QUASIHYDROSTATIC(bi,bj,k,uVel,vVel,alphaRho,myThid) |
|
./model/src/calc_phi_hyd.F |
194 |
CALC_PHI_HYD |
IF (k.EQ.1 .AND. addSurfPhiAnom) THEN |
|
./model/src/calc_phi_hyd.F |
217 |
CALC_PHI_HYD |
& + half*drF(k)*gravity*alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
219 |
CALC_PHI_HYD |
& + drF(k)*gravity*alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
226 |
CALC_PHI_HYD |
dRlocM=half*drC(k) |
|
./model/src/calc_phi_hyd.F |
227 |
CALC_PHI_HYD |
IF (k.EQ.1) dRlocM=rF(k)-rC(k) |
|
./model/src/calc_phi_hyd.F |
228 |
CALC_PHI_HYD |
IF (k.EQ.Nr) THEN |
|
./model/src/calc_phi_hyd.F |
229 |
CALC_PHI_HYD |
dRlocP=rC(k)-rF(k+1) |
|
./model/src/calc_phi_hyd.F |
231 |
CALC_PHI_HYD |
dRlocP=half*drC(k+1) |
|
./model/src/calc_phi_hyd.F |
262 |
CALC_PHI_HYD |
kkey = (ikey-1)*Nr + k |
|
./model/src/calc_phi_hyd.F |
269 |
CALC_PHI_HYD |
I iMin, iMax, jMin, jMax, k, |
|
./model/src/calc_phi_hyd.F |
270 |
CALC_PHI_HYD |
I tFld(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/calc_phi_hyd.F |
271 |
CALC_PHI_HYD |
I sFld(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/calc_phi_hyd.F |
273 |
CALC_PHI_HYD |
I k, bi, bj, myThid ) |
|
./model/src/calc_phi_hyd.F |
281 |
CALC_PHI_HYD |
alphaRho(i,j) = rhoInSitu(i,j,k,bi,bj) |
|
./model/src/calc_phi_hyd.F |
290 |
CALC_PHI_HYD |
alphaRho(i,j)=maskC(i,j,k,bi,bj)* |
|
./model/src/calc_phi_hyd.F |
307 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
308 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
319 |
CALC_PHI_HYD |
phiHydC(i,j) = phiHydF(i,j) + half*drF(k)*alphaRho(i,j) |
|
./model/src/calc_phi_hyd.F |
323 |
CALC_PHI_HYD |
phiHydF(i,j) = phiHydC(i,j) + half*drF(k)*alphaRho(i,j) |
|
./model/src/calc_phi_hyd.F |
331 |
CALC_PHI_HYD |
dRlocM=half*drC(k) |
|
./model/src/calc_phi_hyd.F |
332 |
CALC_PHI_HYD |
IF (k.EQ.1) dRlocM=rF(k)-rC(k) |
|
./model/src/calc_phi_hyd.F |
333 |
CALC_PHI_HYD |
IF (k.EQ.Nr) THEN |
|
./model/src/calc_phi_hyd.F |
334 |
CALC_PHI_HYD |
dRlocP=rC(k)-rF(k+1) |
|
./model/src/calc_phi_hyd.F |
336 |
CALC_PHI_HYD |
dRlocP=half*drC(k+1) |
|
./model/src/calc_phi_hyd.F |
338 |
CALC_PHI_HYD |
rec_dRm = one/(rF(k)-rC(k)) |
|
./model/src/calc_phi_hyd.F |
339 |
CALC_PHI_HYD |
rec_dRp = one/(rC(k)-rF(k+1)) |
|
./model/src/calc_phi_hyd.F |
346 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
347 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
373 |
CALC_PHI_HYD |
alphaRho(i,j)=maskC(i,j,k,bi,bj) |
|
./model/src/calc_phi_hyd.F |
374 |
CALC_PHI_HYD |
& *( tFld(i,j,k,bi,bj)*(sFld(i,j,k,bi,bj)*atm_Rq+one) |
|
./model/src/calc_phi_hyd.F |
375 |
CALC_PHI_HYD |
& -tRef(k) ) |
|
./model/src/calc_phi_hyd.F |
389 |
CALC_PHI_HYD |
IF (k.EQ.1) THEN |
|
./model/src/calc_phi_hyd.F |
390 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rF( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
391 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
393 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rC(k-1)/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
394 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) )*half |
|
./model/src/calc_phi_hyd.F |
396 |
CALC_PHI_HYD |
IF (k.EQ.Nr) THEN |
|
./model/src/calc_phi_hyd.F |
397 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
398 |
CALC_PHI_HYD |
& -((rF(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
400 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
401 |
CALC_PHI_HYD |
& -((rC(k+1)/atm_Po)**atm_kappa) )*half |
|
./model/src/calc_phi_hyd.F |
423 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rF( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
424 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
425 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
426 |
CALC_PHI_HYD |
& -((rF(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
429 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
430 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
434 |
CALC_PHI_HYD |
phiHydC(i,j) = ddRloc*recip_drF(k)*2. _d 0 |
|
./model/src/calc_phi_hyd.F |
455 |
CALC_PHI_HYD |
IF (k.EQ.1) THEN |
|
./model/src/calc_phi_hyd.F |
456 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rF( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
457 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
459 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rC(k-1)/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
460 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) )*half |
|
./model/src/calc_phi_hyd.F |
462 |
CALC_PHI_HYD |
IF (k.EQ.Nr) THEN |
|
./model/src/calc_phi_hyd.F |
463 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
464 |
CALC_PHI_HYD |
& -((rF(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
466 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
467 |
CALC_PHI_HYD |
& -((rC(k+1)/atm_Po)**atm_kappa) )*half |
|
./model/src/calc_phi_hyd.F |
469 |
CALC_PHI_HYD |
rec_dRm = one/(rF(k)-rC(k)) |
|
./model/src/calc_phi_hyd.F |
470 |
CALC_PHI_HYD |
rec_dRp = one/(rC(k)-rF(k+1)) |
|
./model/src/calc_phi_hyd.F |
473 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
474 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
505 |
CALC_PHI_HYD |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./model/src/calc_phi_hyd.F |
512 |
CALC_PHI_HYD |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./model/src/calc_phi_hyd.F |
518 |
CALC_PHI_HYD |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./model/src/calc_phi_hyd.F |
65 |
CALC_PHI_HYD |
INTEGER bi,bj,iMin,iMax,jMin,jMax,k |
|
./pkg/my82/my82_calc.F |
164 |
MY82_CALC |
& viscArnr(k) ) |
|
./pkg/my82/my82_calc.F |
166 |
MY82_CALC |
& diffKrNrT(k) ) |
|
./pkg/my82/my82_calc_diff.F |
45 |
MY82_CALC_DIFF |
INTEGER i,j,k |
|
./pkg/my82/my82_calc_diff.F |
50 |
MY82_CALC_DIFF |
DO k=1,MIN(Nr,kSize) |
|
./pkg/my82/my82_calc_diff.F |
53 |
MY82_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k) |
|
./pkg/my82/my82_calc_diff.F |
54 |
MY82_CALC_DIFF |
& +( MYdiffKr(i,j,k,bi,bj) |
|
./pkg/my82/my82_calc_diff.F |
56 |
MY82_CALC_DIFF |
& - diffKr(i,j,k,bi,bj) ) |
|
./pkg/my82/my82_calc_diff.F |
58 |
MY82_CALC_DIFF |
& - diffKrNrT(k) ) |
|
./pkg/my82/my82_calc_diff.F |
65 |
MY82_CALC_DIFF |
k = MIN(kArg,kSize) |
|
./pkg/my82/my82_calc_diff.F |
68 |
MY82_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k) |
|
./pkg/my82/my82_calc_visc.F |
41 |
MY82_CALC_VISC |
KappaRU(i,j,k) = max ( KappaRU(i,j,k), |
|
./pkg/my82/my82_calc_visc.F |
42 |
MY82_CALC_VISC |
& KappaRU(i,j,k) - viscArNr(k) + _maskW(i,j,k,bi,bj) * |
|
./pkg/my82/my82_calc_visc.F |
43 |
MY82_CALC_VISC |
& 0.5 _d 0*(MYviscAr(i,j,k,bi,bj)+MYviscAr(i-1,j,k,bi,bj)) ) |
|
./pkg/my82/my82_calc_visc.F |
49 |
MY82_CALC_VISC |
KappaRV(i,j,k) = max ( KappaRV(i,j,k), |
|
./pkg/my82/my82_calc_visc.F |
50 |
MY82_CALC_VISC |
& KappaRV(i,j,k) - viscArNr(k) + _maskS(i,j,k,bi,bj) * |
|
./pkg/my82/my82_calc_visc.F |
51 |
MY82_CALC_VISC |
& 0.5 _d 0*(MYviscAr(i,j,k,bi,bj)+MYviscAr(i,j-1,k,bi,bj)) ) |
|
./pkg/my82/my82_init_varia.F |
31 |
MY82_INIT_VARIA |
INTEGER i, j, k, bi, bj |
|
./pkg/my82/my82_init_varia.F |
50 |
MY82_INIT_VARIA |
DO k = 1, Nr |
|
./pkg/my82/my82_init_varia.F |
54 |
MY82_INIT_VARIA |
MYviscAr (i,j,k,bi,bj) = viscArNr(k) |
|
./pkg/my82/my82_init_varia.F |
55 |
MY82_INIT_VARIA |
MYdiffKr (i,j,k,bi,bj) = diffKrNrT(k) |
|
./pkg/my82/my82_ri_number.F |
45 |
MY82_RI_NUMBER |
INTEGER bi, bj, iMin, iMax, jMin, jMax, k |
|
./pkg/mypackage/mypackage_init_varia.F |
33 |
MYPACKAGE_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/mypackage/mypackage_init_varia.F |
40 |
MYPACKAGE_INIT_VARIA |
DO k=1,Nr |
|
./pkg/mypackage/mypackage_init_varia.F |
44 |
MYPACKAGE_INIT_VARIA |
myPa_StatScal1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
45 |
MYPACKAGE_INIT_VARIA |
myPa_StatScal2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
46 |
MYPACKAGE_INIT_VARIA |
myPa_StatVelU (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
47 |
MYPACKAGE_INIT_VARIA |
myPa_StatVelV (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
50 |
MYPACKAGE_INIT_VARIA |
myPa_TendScal1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
51 |
MYPACKAGE_INIT_VARIA |
myPa_TendScal2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
52 |
MYPACKAGE_INIT_VARIA |
myPa_TendVelU (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
53 |
MYPACKAGE_INIT_VARIA |
myPa_TendVelV (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_tendency_apply.F |
101 |
MYPACKAGE_TENDENCY_APPLY_V |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
102 |
MYPACKAGE_TENDENCY_APPLY_V |
& + maskS(i,j,k,bi,bj) * myPa_TendVelV(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
109 |
MYPACKAGE_TENDENCY_APPLY_V |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
110 |
MYPACKAGE_TENDENCY_APPLY_V |
& + maskS(i,j,k,bi,bj)*( myPa_TendVelV(i,j-1,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
111 |
MYPACKAGE_TENDENCY_APPLY_V |
& +myPa_TendVelV(i, j ,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
129 |
MYPACKAGE_TENDENCY_APPLY_T |
& bi, bj, k, myTime, myThid ) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
144 |
MYPACKAGE_TENDENCY_APPLY_T |
INTEGER iMin, iMax, jMin, jMax, k, bi, bj, myThid |
|
./pkg/mypackage/mypackage_tendency_apply.F |
155 |
MYPACKAGE_TENDENCY_APPLY_T |
gT(i,j,k,bi,bj) = gT(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
156 |
MYPACKAGE_TENDENCY_APPLY_T |
& + maskC(i,j,k,bi,bj) * myPa_TendScal1(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
173 |
MYPACKAGE_TENDENCY_APPLY_S |
& bi, bj, k, myTime, myThid ) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
188 |
MYPACKAGE_TENDENCY_APPLY_S |
INTEGER iMin, iMax, jMin, jMax, k, bi, bj, myThid |
|
./pkg/mypackage/mypackage_tendency_apply.F |
199 |
MYPACKAGE_TENDENCY_APPLY_S |
gS(i,j,k,bi,bj) = gS(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
19 |
MYPACKAGE_TENDENCY_APPLY_U |
& bi, bj, k, myTime, myThid ) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
200 |
MYPACKAGE_TENDENCY_APPLY_S |
& + maskC(i,j,k,bi,bj) * myPa_TendScal2(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
35 |
MYPACKAGE_TENDENCY_APPLY_U |
INTEGER iMin, iMax, jMin, jMax, k, bi, bj, myThid |
|
./pkg/mypackage/mypackage_tendency_apply.F |
46 |
MYPACKAGE_TENDENCY_APPLY_U |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
47 |
MYPACKAGE_TENDENCY_APPLY_U |
& + maskW(i,j,k,bi,bj) * myPa_TendVelU(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
54 |
MYPACKAGE_TENDENCY_APPLY_U |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
55 |
MYPACKAGE_TENDENCY_APPLY_U |
& + maskW(i,j,k,bi,bj)*( myPa_TendVelU(i-1,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
56 |
MYPACKAGE_TENDENCY_APPLY_U |
& +myPa_TendVelU( i ,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
74 |
MYPACKAGE_TENDENCY_APPLY_V |
& bi, bj, k, myTime, myThid ) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
90 |
MYPACKAGE_TENDENCY_APPLY_V |
INTEGER iMin, iMax, jMin, jMax, k, bi, bj, myThid |
|
./model/src/calc_viscosity.F |
47 |
CALC_VISCOSITY |
INTEGER i,j,k |
|
./model/src/calc_viscosity.F |
50 |
CALC_VISCOSITY |
DO k = 1,Nr |
|
./model/src/calc_viscosity.F |
54 |
CALC_VISCOSITY |
KappaRU(i,j,k) = viscArNr(k) |
|
./model/src/calc_viscosity.F |
55 |
CALC_VISCOSITY |
KappaRV(i,j,k) = viscArNr(k) |
|
./model/src/calc_viscosity.F |
61 |
CALC_VISCOSITY |
I bi,bj, iMin,iMax,jMin,jMax, k, |
|
./model/src/calc_viscosity.F |
68 |
CALC_VISCOSITY |
I bi,bj, iMin,iMax,jMin,jMax, k, |
|
./model/src/calc_viscosity.F |
75 |
CALC_VISCOSITY |
I bi,bj, iMin,iMax,jMin,jMax, k, |
|
./model/src/calc_viscosity.F |
82 |
CALC_VISCOSITY |
I bi,bj, iMin,iMax,jMin,jMax, k, |
|
./pkg/obcs/obcs_apply_ptracer.F |
113 |
OBCS_APPLY_PTRACER |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_ptracer.F |
114 |
OBCS_APPLY_PTRACER |
kl = MIN(k,kMx) |
|
./pkg/obcs/obcs_apply_ptracer.F |
115 |
OBCS_APPLY_PTRACER |
obc_mask = _maskW(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
117 |
OBCS_APPLY_PTRACER |
pFld(i,j,kl) = OBEptr(j,k,bi,bj,iTracer)*obc_mask |
|
./pkg/obcs/obcs_apply_ptracer.F |
131 |
OBCS_APPLY_PTRACER |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_ptracer.F |
132 |
OBCS_APPLY_PTRACER |
kl = MIN(k,kMx) |
|
./pkg/obcs/obcs_apply_ptracer.F |
133 |
OBCS_APPLY_PTRACER |
obc_mask = _maskW(Iobc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
135 |
OBCS_APPLY_PTRACER |
pFld(i,j,kl) = OBWptr(j,k,bi,bj,iTracer)*obc_mask |
|
./pkg/obcs/obcs_apply_ptracer.F |
53 |
OBCS_APPLY_PTRACER |
INTEGER k, kLo, kHi |
|
./pkg/obcs/obcs_apply_ptracer.F |
76 |
OBCS_APPLY_PTRACER |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_ptracer.F |
77 |
OBCS_APPLY_PTRACER |
kl = MIN(k,kMx) |
|
./pkg/obcs/obcs_apply_ptracer.F |
78 |
OBCS_APPLY_PTRACER |
obc_mask = _maskS(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ptracer.F |
80 |
OBCS_APPLY_PTRACER |
pFld(i,j,kl) = OBNptr(i,k,bi,bj,iTracer)*obc_mask |
|
./pkg/obcs/obcs_apply_ptracer.F |
94 |
OBCS_APPLY_PTRACER |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_ptracer.F |
95 |
OBCS_APPLY_PTRACER |
kl = MIN(k,kMx) |
|
./pkg/obcs/obcs_apply_ptracer.F |
98 |
OBCS_APPLY_PTRACER |
pFld(i,j,kl) = OBSptr(i,k,bi,bj,iTracer)*obc_mask |
|
./pkg/obcs/obcs_apply_seaice.F |
131 |
OBCS_APPLY_SEAICE |
k = 1 |
|
./pkg/obcs/obcs_apply_seaice.F |
139 |
OBCS_APPLY_SEAICE |
IF ( _maskS(i,Jobc-1,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
178 |
OBCS_APPLY_SEAICE |
IF ( _maskS(i,Jobc+2,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
217 |
OBCS_APPLY_SEAICE |
IF ( _maskW(Iobc-1,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
256 |
OBCS_APPLY_SEAICE |
IF ( _maskW(Iobc+2,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
45 |
OBCS_APPLY_SEAICE |
INTEGER k |
|
./pkg/obcs/obcs_apply_ts.F |
101 |
OBCS_APPLY_TS |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_ts.F |
102 |
OBCS_APPLY_TS |
obc_mask = _maskS(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
104 |
OBCS_APPLY_TS |
tFld(i,j,k,bi,bj) = OBSt(i,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
105 |
OBCS_APPLY_TS |
sFld(i,j,k,bi,bj) = OBSs(i,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
120 |
OBCS_APPLY_TS |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_ts.F |
121 |
OBCS_APPLY_TS |
obc_mask = _maskW(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
123 |
OBCS_APPLY_TS |
tFld(i,j,k,bi,bj) = OBEt(j,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
124 |
OBCS_APPLY_TS |
sFld(i,j,k,bi,bj) = OBEs(j,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
138 |
OBCS_APPLY_TS |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_ts.F |
139 |
OBCS_APPLY_TS |
obc_mask = _maskW(Iobc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
141 |
OBCS_APPLY_TS |
tFld(i,j,k,bi,bj) = OBWt(j,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
142 |
OBCS_APPLY_TS |
sFld(i,j,k,bi,bj) = OBWs(j,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
49 |
OBCS_APPLY_TS |
INTEGER k, kLo, kHi |
|
./pkg/obcs/obcs_apply_ts.F |
83 |
OBCS_APPLY_TS |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_ts.F |
84 |
OBCS_APPLY_TS |
obc_mask = _maskS(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
86 |
OBCS_APPLY_TS |
tFld(i,j,k,bi,bj) = OBNt(i,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
87 |
OBCS_APPLY_TS |
sFld(i,j,k,bi,bj) = OBNs(i,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_uv.F |
100 |
OBCS_APPLY_UV |
vFld(i,Jobc+1,k,bi,bj) = OBSv(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
101 |
OBCS_APPLY_UV |
& *_maskS(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
102 |
OBCS_APPLY_UV |
uFld(i,Jobc,k,bi,bj) = OBSu(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
103 |
OBCS_APPLY_UV |
& *_maskW(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
104 |
OBCS_APPLY_UV |
vFld(i,Jobc,k,bi,bj) = OBSv(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
105 |
OBCS_APPLY_UV |
& *_maskS(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
119 |
OBCS_APPLY_UV |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_uv.F |
120 |
OBCS_APPLY_UV |
uFld(Iobc,j,k,bi,bj) = OBEu(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
121 |
OBCS_APPLY_UV |
& *_maskW(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
122 |
OBCS_APPLY_UV |
vFld(Iobc,j,k,bi,bj) = OBEv(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
123 |
OBCS_APPLY_UV |
& *_maskS(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
124 |
OBCS_APPLY_UV |
uFld(Iobc+1,j,k,bi,bj) = OBEu(j,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
125 |
OBCS_APPLY_UV |
& *_maskW(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
137 |
OBCS_APPLY_UV |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_uv.F |
138 |
OBCS_APPLY_UV |
uFld(Iobc+1,j,k,bi,bj) = OBWu(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
139 |
OBCS_APPLY_UV |
& *_maskW(Iobc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
140 |
OBCS_APPLY_UV |
vFld(Iobc,j,k,bi,bj) = OBWv(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
141 |
OBCS_APPLY_UV |
& *_maskS(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
142 |
OBCS_APPLY_UV |
uFld(Iobc,j,k,bi,bj) = OBWu(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
143 |
OBCS_APPLY_UV |
& *_maskW(Iobc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
48 |
OBCS_APPLY_UV |
INTEGER k, kLo, kHi |
|
./pkg/obcs/obcs_apply_uv.F |
81 |
OBCS_APPLY_UV |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_uv.F |
82 |
OBCS_APPLY_UV |
vFld(i,Jobc,k,bi,bj) = OBNv(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
83 |
OBCS_APPLY_UV |
& *_maskS(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
84 |
OBCS_APPLY_UV |
uFld(i,Jobc,k,bi,bj) = OBNu(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
85 |
OBCS_APPLY_UV |
& *_maskW(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
86 |
OBCS_APPLY_UV |
vFld(i,Jobc+1,k,bi,bj) = OBNv(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
87 |
OBCS_APPLY_UV |
& *_maskS(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
99 |
OBCS_APPLY_UV |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_calc.F |
100 |
OBCS_CALC |
OBEt(j,k,bi,bj)= T_F1(j,k,2) |
|
./pkg/obcs/obcs_calc.F |
101 |
OBCS_CALC |
OBEs(j,k,bi,bj)= S_F1(j,k,2) |
|
./pkg/obcs/obcs_calc.F |
146 |
OBCS_CALC |
DO k=1,Nr |
|
./pkg/obcs/obcs_calc.F |
150 |
OBCS_CALC |
OBWu(j,k,bi,bj)= U_F1(j,k,1) |
|
./pkg/obcs/obcs_calc.F |
151 |
OBCS_CALC |
OBWv(j,k,bi,bj)= V_F1(j,k,1) |
|
./pkg/obcs/obcs_calc.F |
152 |
OBCS_CALC |
OBWt(j,k,bi,bj)= T_F1(j,k,1) |
|
./pkg/obcs/obcs_calc.F |
153 |
OBCS_CALC |
OBWs(j,k,bi,bj)= S_F1(j,k,1) |
|
./pkg/obcs/obcs_calc.F |
446 |
OBCS_CALC |
Ar = drF(k)*hFacC(I_obc,j,k,bi,bj)*dyG(I_obc,j,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
483 |
OBCS_CALC |
Ar = drF(k)*hFacC(I_obc,j,k,bi,bj)*dyG(I_obc,j,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
520 |
OBCS_CALC |
Ar = drF(k)*hFacC(i,J_obc,k,bi,bj)*dxG(i,J_obc,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
557 |
OBCS_CALC |
Ar = drF(k)*hFacC(i,J_obc,k,bi,bj)*dxG(i,J_obc,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
94 |
OBCS_CALC |
DO k=1,Nr |
|
./pkg/obcs/obcs_calc.F |
98 |
OBCS_CALC |
OBEu(j,k,bi,bj)= U_F1(j,k,2) |
|
./pkg/obcs/obcs_calc.F |
99 |
OBCS_CALC |
OBEv(j,k,bi,bj)= V_F1(j,k,2) |
|
./pkg/obcs/obcs_calc_stevens.F |
609 |
OBCS_CALC_STEVENS |
& *drF(k)* _hFacW(I,J,K,bi,bj)*dyG(I,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
612 |
OBCS_CALC_STEVENS |
& *drF(k)* _hFacW(I+1,J,K,bi,bj)*dyG(I+1,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
614 |
OBCS_CALC_STEVENS |
& *drF(k)* _hFacW(I+1,J,K,bi,bj)*dyG(I+1,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
616 |
OBCS_CALC_STEVENS |
& *drF(k)* _hFacW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_copy_tracer.F |
112 |
OBCS_COPY_TRACER |
DO k = 1,kSiz |
|
./pkg/obcs/obcs_copy_tracer.F |
114 |
OBCS_COPY_TRACER |
trFld(i,j,k) = trFld(Iobc,j,k) |
|
./pkg/obcs/obcs_copy_tracer.F |
53 |
OBCS_COPY_TRACER |
INTEGER i, j, k |
|
./pkg/obcs/obcs_copy_tracer.F |
63 |
OBCS_COPY_TRACER |
DO k = 1,kSiz |
|
./pkg/obcs/obcs_copy_tracer.F |
65 |
OBCS_COPY_TRACER |
trFld(i,j,k) = trFld(i,Jobc,k) |
|
./pkg/obcs/obcs_copy_tracer.F |
79 |
OBCS_COPY_TRACER |
DO k = 1,kSiz |
|
./pkg/obcs/obcs_copy_tracer.F |
81 |
OBCS_COPY_TRACER |
trFld(i,j,k) = trFld(i,Jobc,k) |
|
./pkg/obcs/obcs_copy_tracer.F |
96 |
OBCS_COPY_TRACER |
DO k = 1,kSiz |
|
./pkg/obcs/obcs_copy_tracer.F |
98 |
OBCS_COPY_TRACER |
trFld(i,j,k) = trFld(Iobc,j,k) |
|
./pkg/obcs/obcs_external_fields_load.F |
664 |
OBCS_EXTERNAL_FIELDS_INTERP_XZ |
INTEGER bi,bj,i,k |
|
./pkg/obcs/obcs_external_fields_load.F |
670 |
OBCS_EXTERNAL_FIELDS_INTERP_XZ |
fld(i,k,bi,bj) = bWght*fld0(i,k,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
671 |
OBCS_EXTERNAL_FIELDS_INTERP_XZ |
& +aWght*fld1(i,k,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
714 |
OBCS_EXTERNAL_FIELDS_INTERP_YZ |
INTEGER bi,bj,j,k |
|
./pkg/obcs/obcs_external_fields_load.F |
720 |
OBCS_EXTERNAL_FIELDS_INTERP_YZ |
fld(j,k,bi,bj) = bWght*fld0(j,k,bi,bj) |
|
./pkg/obcs/obcs_external_fields_load.F |
721 |
OBCS_EXTERNAL_FIELDS_INTERP_YZ |
& +aWght*fld1(j,k,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
101 |
OBCS_INIT_FIXED |
k = ksurfS(i,j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
102 |
OBCS_INIT_FIXED |
IF (k.LE.Nr) OBNhFac0(i,bi,bj)=hFacS(i,j,k,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
107 |
OBCS_INIT_FIXED |
k = ksurfS(i,j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
108 |
OBCS_INIT_FIXED |
IF (k.LE.Nr) OBShFac0(i,bi,bj)=hFacS(i,j,k,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
119 |
OBCS_INIT_FIXED |
k = ksurfW(i,j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
120 |
OBCS_INIT_FIXED |
IF (k.LE.Nr) OBEhFac0(j,bi,bj)=hFacW(i,j,k,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
125 |
OBCS_INIT_FIXED |
k = ksurfW(i,j,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
126 |
OBCS_INIT_FIXED |
IF (k.LE.Nr) OBWhFac0(j,bi,bj)=hFacW(i,j,k,bi,bj) |
|
./pkg/obcs/obcs_init_fixed.F |
33 |
OBCS_INIT_FIXED |
INTEGER k |
|
./model/src/cg3d.F |
137 |
CG3D |
DO k=1,Nr |
|
./model/src/cg3d.F |
140 |
CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*cg3dNorm |
|
./model/src/cg3d.F |
141 |
CG3D |
& * maskC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
142 |
CG3D |
rhsMax = MAX(ABS(cg3d_b(i,j,k,bi,bj)),rhsMax) |
|
./model/src/cg3d.F |
153 |
CG3D |
DO k=1,Nr |
|
./model/src/cg3d.F |
156 |
CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*rhsNorm |
|
./model/src/cg3d.F |
157 |
CG3D |
cg3d_x(i,j,k,bi,bj) = cg3d_x(i,j,k,bi,bj)*rhsNorm |
|
./model/src/cg3d.F |
182 |
CG3D |
DO k=1,Nr |
|
./model/src/cg3d.F |
186 |
CG3D |
& +cg3d_x(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
201 |
CG3D |
DO k=1,Nr |
|
./model/src/cg3d.F |
202 |
CG3D |
km1 = MAX(k-1, 1 ) |
|
./model/src/cg3d.F |
203 |
CG3D |
kp1 = MIN(k+1, Nr) |
|
./model/src/cg3d.F |
206 |
CG3D |
IF ( k .EQ. 1 ) maskM1 = 0. _d 0 |
|
./model/src/cg3d.F |
207 |
CG3D |
IF ( k .EQ. Nr) maskP1 = 0. _d 0 |
|
./model/src/cg3d.F |
213 |
CG3D |
cg3d_r(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
215 |
CG3D |
& +aW3d( i, j, k, bi,bj)*cg3d_x(i-1,j, k, bi,bj) |
|
./model/src/cg3d.F |
216 |
CG3D |
& +aW3d(i+1,j, k, bi,bj)*cg3d_x(i+1,j, k, bi,bj) |
|
./model/src/cg3d.F |
217 |
CG3D |
& +aS3d( i, j, k, bi,bj)*cg3d_x( i,j-1,k, bi,bj) |
|
./model/src/cg3d.F |
218 |
CG3D |
& +aS3d( i,j+1,k, bi,bj)*cg3d_x( i,j+1,k, bi,bj) |
|
./model/src/cg3d.F |
219 |
CG3D |
& +aV3d( i, j, k, bi,bj)*cg3d_x( i, j,km1,bi,bj)*maskM1 |
|
./model/src/cg3d.F |
221 |
CG3D |
& +aC3d( i, j, k, bi,bj)*cg3d_x( i, j, k, bi,bj) |
|
./model/src/cg3d.F |
223 |
CG3D |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
227 |
CG3D |
& +cg3d_r(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
228 |
CG3D |
sumRHStile(bi,bj) = sumRHStile(bi,bj)+cg3d_b(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
233 |
CG3D |
cg3d_s(i,j,k,bi,bj) = 0. |
|
./model/src/cg3d.F |
278 |
CG3D |
DO k=1,1 |
|
./model/src/cg3d.F |
284 |
CG3D |
cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
285 |
CG3D |
& *cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
289 |
CG3D |
DO k=2,Nr |
|
./model/src/cg3d.F |
295 |
CG3D |
cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
296 |
CG3D |
& *( cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
297 |
CG3D |
& -zML(i,j,k,bi,bj)*cg3d_q(i,j,k-1,bi,bj) |
|
./model/src/cg3d.F |
302 |
CG3D |
DO k=Nr,Nr |
|
./model/src/cg3d.F |
309 |
CG3D |
& +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
313 |
CG3D |
DO k=Nr-1,1,-1 |
|
./model/src/cg3d.F |
319 |
CG3D |
cg3d_q(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
320 |
CG3D |
& -zMU(i,j,k,bi,bj)*cg3d_q(i,j,k+1,bi,bj) |
|
./model/src/cg3d.F |
329 |
CG3D |
& +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
348 |
CG3D |
DO k=1,Nr |
|
./model/src/cg3d.F |
351 |
CG3D |
cg3d_s(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
352 |
CG3D |
& + cgBeta*cg3d_s(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
372 |
CG3D |
DO k=1,Nr |
|
./model/src/cg3d.F |
376 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
392 |
CG3D |
k=1 |
|
./model/src/cg3d.F |
398 |
CG3D |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d.F |
399 |
CG3D |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d.F |
400 |
CG3D |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d.F |
401 |
CG3D |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d.F |
402 |
CG3D |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d.F |
403 |
CG3D |
& +aV3d( i, j,k+1,bi,bj)*cg3d_s( i, j,k+1,bi,bj) |
|
./model/src/cg3d.F |
404 |
CG3D |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d.F |
406 |
CG3D |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
409 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
413 |
CG3D |
k=1 |
|
./model/src/cg3d.F |
419 |
CG3D |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d.F |
420 |
CG3D |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d.F |
421 |
CG3D |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d.F |
422 |
CG3D |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d.F |
423 |
CG3D |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d.F |
424 |
CG3D |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d.F |
426 |
CG3D |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
429 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
433 |
CG3D |
DO k=2,Nr-1 |
|
./model/src/cg3d.F |
439 |
CG3D |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d.F |
440 |
CG3D |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d.F |
441 |
CG3D |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d.F |
442 |
CG3D |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d.F |
443 |
CG3D |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d.F |
444 |
CG3D |
& +aV3d( i, j, k, bi,bj)*cg3d_s( i, j,k-1,bi,bj) |
|
./model/src/cg3d.F |
445 |
CG3D |
& +aV3d( i, j,k+1,bi,bj)*cg3d_s( i, j,k+1,bi,bj) |
|
./model/src/cg3d.F |
446 |
CG3D |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d.F |
448 |
CG3D |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
451 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
456 |
CG3D |
k=Nr |
|
./model/src/cg3d.F |
462 |
CG3D |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d.F |
463 |
CG3D |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d.F |
464 |
CG3D |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d.F |
465 |
CG3D |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d.F |
466 |
CG3D |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d.F |
467 |
CG3D |
& +aV3d( i, j, k, bi,bj)*cg3d_s( i, j,k-1,bi,bj) |
|
./model/src/cg3d.F |
468 |
CG3D |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d.F |
470 |
CG3D |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
473 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
494 |
CG3D |
DO k=1,Nr |
|
./model/src/cg3d.F |
500 |
CG3D |
cg3d_x(i,j,k,bi,bj)=cg3d_x(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
501 |
CG3D |
& +alpha*cg3d_s(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
502 |
CG3D |
cg3d_r(i,j,k,bi,bj)=cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
503 |
CG3D |
& -alpha*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
505 |
CG3D |
& +cg3d_r(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
541 |
CG3D |
DO k=1,Nr |
|
./model/src/cg3d.F |
544 |
CG3D |
cg3d_x(i,j,k,bi,bj) = cg3d_x(i,j,k,bi,bj)/rhsNorm |
|
./model/src/cg3d.F |
98 |
CG3D |
INTEGER i, j, k, it3d |
|
./pkg/offline/offline_fields_load.F |
337 |
OFFLINE_FIELDS_LOAD |
DO k=1,Nr |
|
./pkg/offline/offline_fields_load.F |
340 |
OFFLINE_FIELDS_LOAD |
Uvel(i,j,k,bi,bj) = bWght*uvel0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
341 |
OFFLINE_FIELDS_LOAD |
& +aWght*uvel1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
342 |
OFFLINE_FIELDS_LOAD |
Vvel(i,j,k,bi,bj) = bWght*vvel0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
343 |
OFFLINE_FIELDS_LOAD |
& +aWght*vvel1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
344 |
OFFLINE_FIELDS_LOAD |
Wvel(i,j,k,bi,bj) = bWght*wvel0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
345 |
OFFLINE_FIELDS_LOAD |
& +aWght*wvel1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
346 |
OFFLINE_FIELDS_LOAD |
theta(i,j,k,bi,bj) = bWght*tave0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
347 |
OFFLINE_FIELDS_LOAD |
& +aWght*tave1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
348 |
OFFLINE_FIELDS_LOAD |
salt(i,j,k,bi,bj) = bWght*save0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
349 |
OFFLINE_FIELDS_LOAD |
& +aWght*save1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
350 |
OFFLINE_FIELDS_LOAD |
ConvectCount(i,j,k,bi,bj) = bWght*conv0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
351 |
OFFLINE_FIELDS_LOAD |
& +aWght*conv1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
352 |
OFFLINE_FIELDS_LOAD |
IVDConvCount(i,j,k,bi,bj) = bWght*conv0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
353 |
OFFLINE_FIELDS_LOAD |
& +aWght*conv1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
355 |
OFFLINE_FIELDS_LOAD |
Kwx(i,j,k,bi,bj) = bWght*gmkx0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
356 |
OFFLINE_FIELDS_LOAD |
& +aWght*gmkx1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
357 |
OFFLINE_FIELDS_LOAD |
Kwy(i,j,k,bi,bj) = bWght*gmky0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
358 |
OFFLINE_FIELDS_LOAD |
& +aWght*gmky1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
359 |
OFFLINE_FIELDS_LOAD |
Kwz(i,j,k,bi,bj) = bWght*gmkz0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
360 |
OFFLINE_FIELDS_LOAD |
& +aWght*gmkz1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
363 |
OFFLINE_FIELDS_LOAD |
KPPdiffKzS(i,j,k,bi,bj) = bWght*kdfs0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
364 |
OFFLINE_FIELDS_LOAD |
& +aWght*kdfs1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
367 |
OFFLINE_FIELDS_LOAD |
KPPghat(i,j,k,bi,bj) = bWght*kght0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
368 |
OFFLINE_FIELDS_LOAD |
& +aWght*kght1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
433 |
LEF_ZERO3 |
INTEGER i,j,bi,bj,k |
|
./pkg/offline/offline_fields_load.F |
438 |
LEF_ZERO3 |
do k=1,Nr |
|
./pkg/offline/offline_fields_load.F |
441 |
LEF_ZERO3 |
arr(i,j,k,bi,bj)=0. |
|
./pkg/offline/offline_fields_load.F |
66 |
OFFLINE_FIELDS_LOAD |
INTEGER bi,bj,i,j,k,intime0,intime1 |
|
./pkg/offline/offline_init_varia.F |
28 |
OFFLINE_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/offline/offline_init_varia.F |
32 |
OFFLINE_INIT_VARIA |
DO k=1,Nr |
|
./pkg/offline/offline_init_varia.F |
35 |
OFFLINE_INIT_VARIA |
save0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
36 |
OFFLINE_INIT_VARIA |
tave0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
37 |
OFFLINE_INIT_VARIA |
uvel0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
38 |
OFFLINE_INIT_VARIA |
vvel0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
39 |
OFFLINE_INIT_VARIA |
wvel0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
40 |
OFFLINE_INIT_VARIA |
conv0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
41 |
OFFLINE_INIT_VARIA |
gmkx0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
42 |
OFFLINE_INIT_VARIA |
gmky0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
43 |
OFFLINE_INIT_VARIA |
gmkz0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
45 |
OFFLINE_INIT_VARIA |
save1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
46 |
OFFLINE_INIT_VARIA |
tave1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
47 |
OFFLINE_INIT_VARIA |
uvel1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
48 |
OFFLINE_INIT_VARIA |
vvel1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
49 |
OFFLINE_INIT_VARIA |
wvel1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
50 |
OFFLINE_INIT_VARIA |
conv1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
51 |
OFFLINE_INIT_VARIA |
gmkx1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
52 |
OFFLINE_INIT_VARIA |
gmky1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
53 |
OFFLINE_INIT_VARIA |
gmkz1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/opps/opps_calc.F |
1030 |
NLOPPS |
ttemp(k) = ttemp(k)- |
|
./pkg/opps/opps_calc.F |
1031 |
NLOPPS |
* (mda(k)*(tda(k)-taa(k)))*dt*recip_drF(k) |
|
./pkg/opps/opps_calc.F |
1033 |
NLOPPS |
stemp(k) = stemp(k)- |
|
./pkg/opps/opps_calc.F |
1034 |
NLOPPS |
* (mda(k)*(sda(k)-saa(k)))*dt*recip_drF(k) |
|
./pkg/opps/opps_calc.F |
1039 |
NLOPPS |
if(Maxdepth-k.gt.1) then |
|
./pkg/opps/opps_calc.F |
1040 |
NLOPPS |
do k2=k+1,Maxdepth-1 |
|
./pkg/opps/opps_calc.F |
1082 |
NLOPPS |
do k2=k,maxdepth |
|
./pkg/opps/opps_calc.F |
1093 |
NLOPPS |
if(sa(i,k).gt.40..or.ta(i,k).lt.-4.0) then |
|
./pkg/opps/opps_calc.F |
128 |
OPPS_CALC |
DO k=1,KMax-1 |
|
./pkg/opps/opps_calc.F |
133 |
OPPS_CALC |
Pd(k,ktr) = tracerEnv(k,ktr) |
|
./pkg/opps/opps_calc.F |
135 |
OPPS_CALC |
Dd(k)=state1(Pd(k,2),Pd(k,1),i,j,k,bi,bj,myThid) |
|
./pkg/opps/opps_calc.F |
136 |
OPPS_CALC |
De(k)=Dd(k) |
|
./pkg/opps/opps_calc.F |
140 |
OPPS_CALC |
Wd(k)= - .5*(wVel(K)+wVel(K+1)) |
|
./pkg/opps/opps_calc.F |
156 |
OPPS_CALC |
wsqr=Wd(k)*Wd(k) |
|
./pkg/opps/opps_calc.F |
157 |
OPPS_CALC |
PlumeEntrainment(k) = 0.0 |
|
./pkg/opps/opps_calc.F |
164 |
OPPS_CALC |
& 'S/R OPPS_CALC: doing old lowerparcel', k |
|
./pkg/opps/opps_calc.F |
170 |
OPPS_CALC |
StartingFlux=radius*radius*Wd(k)*Dd(k) |
|
./pkg/opps/opps_calc.F |
173 |
OPPS_CALC |
dz2=DrF(k) |
|
./pkg/opps/opps_calc.F |
174 |
OPPS_CALC |
DO k2=k,KMax-1 |
|
./pkg/opps/opps_calc.F |
187 |
OPPS_CALC |
IF (D2-D1 .LT. STABILITY_THRESHOLD.or.k2.ne.k) THEN |
|
./pkg/opps/opps_calc.F |
210 |
OPPS_CALC |
if(maxdepth.eq.k) goto 1000 |
|
./pkg/opps/opps_calc.F |
272 |
OPPS_CALC |
if(maxdepth.eq.k) goto 1000 |
|
./pkg/opps/opps_calc.F |
283 |
OPPS_CALC |
if(maxdepth.eq.k) goto 1000 |
|
./pkg/opps/opps_calc.F |
294 |
OPPS_CALC |
Ad(k)=FRACTIONAL_AREA |
|
./pkg/opps/opps_calc.F |
305 |
OPPS_CALC |
Md(k)=Wd(k)*Ad(k) |
|
./pkg/opps/opps_calc.F |
307 |
OPPS_CALC |
DO k2=k+1,maxDepth |
|
./pkg/opps/opps_calc.F |
308 |
OPPS_CALC |
Md(k2)=Md(k)*PlumeEntrainment(k2) |
|
./pkg/opps/opps_calc.F |
330 |
OPPS_CALC |
do k2=k,maxDepth-1 |
|
./pkg/opps/opps_calc.F |
376 |
OPPS_CALC |
tracerEnv(k,ktr) = tracerEnv(k,ktr)- |
|
./pkg/opps/opps_calc.F |
377 |
OPPS_CALC |
& (mda(k)*(Pda(k,ktr)-Paa(k,ktr)))*dt*recip_drF(k) |
|
./pkg/opps/opps_calc.F |
387 |
OPPS_CALC |
DO k2=k+1,kmx |
|
./pkg/opps/opps_calc.F |
388 |
OPPS_CALC |
k2m1 = max(k,k2-1) |
|
./pkg/opps/opps_calc.F |
726 |
NLOPPS |
INTEGER i,j,k |
|
./pkg/opps/opps_calc.F |
785 |
NLOPPS |
do k=1,km |
|
./pkg/opps/opps_calc.F |
786 |
NLOPPS |
dz(k) = 0.01*gcmdz(k) |
|
./pkg/opps/opps_calc.F |
789 |
NLOPPS |
do k=1,km |
|
./pkg/opps/opps_calc.F |
790 |
NLOPPS |
GridThickness(k) = dz(k) |
|
./pkg/opps/opps_calc.F |
810 |
NLOPPS |
DO k=1,NumGridPoints |
|
./pkg/opps/opps_calc.F |
811 |
NLOPPS |
stemp(k)=sa(i,k) |
|
./pkg/opps/opps_calc.F |
812 |
NLOPPS |
ttemp(k)=ta(i,k) |
|
./pkg/opps/opps_calc.F |
821 |
NLOPPS |
if(sa(i,k).gt.40..or.ta(i,k).lt.-4.0) then |
|
./pkg/opps/opps_calc.F |
831 |
NLOPPS |
write(*,*)(ta(i,k),sa(i,k),k=1,NumGridPoints) |
|
./pkg/opps/opps_calc.F |
834 |
NLOPPS |
DO k=1,NumGridPoints-1 |
|
./pkg/opps/opps_calc.F |
838 |
NLOPPS |
Sd(k)=stemp(k) |
|
./pkg/opps/opps_calc.F |
839 |
NLOPPS |
Td(k)=ttemp(k) |
|
./pkg/opps/opps_calc.F |
840 |
NLOPPS |
Dd(k)=state1(stemp(k),ttemp(k),k) |
|
./pkg/opps/opps_calc.F |
841 |
NLOPPS |
De(k)=Dd(k) |
|
./pkg/opps/opps_calc.F |
846 |
NLOPPS |
Wd(k) = 0.03 |
|
./pkg/opps/opps_calc.F |
854 |
NLOPPS |
wsqr=Wd(k)*Wd(k) |
|
./pkg/opps/opps_calc.F |
855 |
NLOPPS |
PlumeEntrainment(k) = 0.0 |
|
./pkg/opps/opps_calc.F |
861 |
NLOPPS |
StartingFlux=radius*radius*Wd(k)*Dd(k) |
|
./pkg/opps/opps_calc.F |
864 |
NLOPPS |
dz2=GridThickness(k) |
|
./pkg/opps/opps_calc.F |
865 |
NLOPPS |
DO k2=k,NumGridPoints-1 |
|
./pkg/opps/opps_calc.F |
874 |
NLOPPS |
IF (D2-D1 .LT. STABILITY_THRESHOLD.or.k2.ne.k) THEN |
|
./pkg/opps/opps_calc.F |
890 |
NLOPPS |
if(maxdepth.eq.k) goto 1000 |
|
./pkg/opps/opps_calc.F |
937 |
NLOPPS |
if(maxdepth.eq.k) goto 1000 |
|
./pkg/opps/opps_calc.F |
947 |
NLOPPS |
if(maxdepth.eq.k) goto 1000 |
|
./pkg/opps/opps_calc.F |
958 |
NLOPPS |
Ad(k)=FRACTIONAL_AREA |
|
./pkg/opps/opps_calc.F |
970 |
NLOPPS |
Md(k)=Wd(k)*Ad(k) |
|
./pkg/opps/opps_calc.F |
972 |
NLOPPS |
DO k2=k+1,MaxDepth |
|
./pkg/opps/opps_calc.F |
973 |
NLOPPS |
Md(k2)=Md(k)*PlumeEntrainment(k2) |
|
./pkg/opps/opps_calc.F |
990 |
NLOPPS |
do k2=k,maxdepth-1 |
|
./pkg/opps/opps_init.F |
31 |
OPPS_INIT |
INTEGER i, j, k, bi, bj |
|
./pkg/opps/opps_init.F |
39 |
OPPS_INIT |
do k = 1, Nr |
|
./pkg/pp81/pp81_calc.F |
82 |
PP81_CALC |
PPviscAr(I,J,K,bi,bj) = MAX(PPviscTmp,viscArNr(k)) |
|
./pkg/pp81/pp81_calc.F |
84 |
PP81_CALC |
& diffKrNrT(k)) |
|
./pkg/pp81/pp81_calc_diff.F |
45 |
PP81_CALC_DIFF |
INTEGER i,j,k |
|
./pkg/pp81/pp81_calc_diff.F |
50 |
PP81_CALC_DIFF |
DO k=1,MIN(Nr,kSize) |
|
./pkg/pp81/pp81_calc_diff.F |
53 |
PP81_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k) |
|
./pkg/pp81/pp81_calc_diff.F |
54 |
PP81_CALC_DIFF |
& +( PPdiffKr(i,j,k,bi,bj) |
|
./pkg/pp81/pp81_calc_diff.F |
56 |
PP81_CALC_DIFF |
& - diffKr(i,j,k,bi,bj) ) |
|
./pkg/pp81/pp81_calc_diff.F |
58 |
PP81_CALC_DIFF |
& - diffKrNrT(k) ) |
|
./pkg/pp81/pp81_calc_diff.F |
65 |
PP81_CALC_DIFF |
k = MIN(kArg,kSize) |
|
./pkg/pp81/pp81_calc_diff.F |
68 |
PP81_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k) |
|
./pkg/pp81/pp81_calc_visc.F |
31 |
PP81_CALC_VISC |
INTEGER bi,bj,iMin,iMax,jMin,jMax,k |
|
./pkg/pp81/pp81_calc_visc.F |
44 |
PP81_CALC_VISC |
KappaRU(i,j,k) = max ( KappaRU(i,j,k), |
|
./pkg/pp81/pp81_calc_visc.F |
45 |
PP81_CALC_VISC |
& KappaRU(i,j,k) - viscArNr(k) + _maskW(i,j,k,bi,bj) * |
|
./pkg/pp81/pp81_calc_visc.F |
46 |
PP81_CALC_VISC |
& 0.5*(PPviscAr(i,j,k,bi,bj)+PPviscAr(i-1,j,k,bi,bj)) ) |
|
./pkg/pp81/pp81_calc_visc.F |
52 |
PP81_CALC_VISC |
KappaRV(i,j,k) = max ( KappaRV(i,j,k), |
|
./pkg/pp81/pp81_calc_visc.F |
53 |
PP81_CALC_VISC |
& KappaRV(i,j,k) - viscArNr(k) + _maskS(i,j,k,bi,bj) * |
|
./pkg/pp81/pp81_calc_visc.F |
54 |
PP81_CALC_VISC |
& 0.5*(PPviscAr(i,j,k,bi,bj)+PPviscAr(i,j-1,k,bi,bj)) ) |
|
./pkg/pp81/pp81_calc_visc.F |
6 |
PP81_CALC_VISC |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./model/src/config_summary.F |
196 |
CONFIG_SUMMARY |
DO k = 1, Nr |
|
./model/src/config_summary.F |
198 |
CONFIG_SUMMARY |
& k,eosRefT(k),eosRefS(k),eosSig0(k), (eosC(i,k),i=1,9) |
|
./model/src/config_summary.F |
52 |
CONFIG_SUMMARY |
INTEGER i, k |
|
./pkg/pp81/pp81_init_varia.F |
31 |
PP81_INIT_VARIA |
INTEGER i, j, k, bi, bj |
|
./pkg/pp81/pp81_init_varia.F |
39 |
PP81_INIT_VARIA |
DO k = 1, Nr |
|
./pkg/pp81/pp81_init_varia.F |
42 |
PP81_INIT_VARIA |
PPviscAr (i,j,k,bi,bj) = viscArNr(k) |
|
./pkg/pp81/pp81_init_varia.F |
43 |
PP81_INIT_VARIA |
PPdiffKr (i,j,k,bi,bj) = diffKrNrT(k) |
|
./pkg/pp81/pp81_ri_number.F |
47 |
PP81_RI_NUMBER |
INTEGER bi, bj, iMin, iMax, jMin, jMax, k |
|
./pkg/profiles/cost_profiles.F |
66 |
COST_PROFILES |
do k=1,NUM_INTERP_POINTS |
|
./pkg/profiles/cost_profiles.F |
67 |
COST_PROFILES |
prof_i1D(k)= prof_interp_i(num_file,prof_num,k,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
68 |
COST_PROFILES |
prof_j1D(k)= prof_interp_j(num_file,prof_num,k,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
69 |
COST_PROFILES |
prof_w1D(k)= prof_interp_weights(num_file,prof_num,k,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
76 |
COST_PROFILES |
prof_traj1D(k)=0. |
|
./pkg/profiles/cost_profiles.F |
77 |
COST_PROFILES |
prof_traj1D_mean(k)=0. |
|
./pkg/profiles/cost_profiles.F |
78 |
COST_PROFILES |
prof_mask1D_cur(k,bi,bj)=0. |
|
./pkg/profiles/cost_profiles.F |
79 |
COST_PROFILES |
prof_data1D(k)=0. |
|
./pkg/profiles/cost_profiles.F |
80 |
COST_PROFILES |
prof_weights1D(k)=0. |
|
./model/src/convective_adjustment.F |
134 |
CONVECTIVE_ADJUSTMENT |
kkey = (ikey-1)*Nr + k |
|
./model/src/convective_adjustment.F |
184 |
CONVECTIVE_ADJUSTMENT |
I bi,bj,k,weightA,weightB, |
|
./model/src/convective_adjustment.F |
190 |
CONVECTIVE_ADJUSTMENT |
I bi,bj,k,weightA,weightB, |
|
./model/src/convective_adjustment.F |
198 |
CONVECTIVE_ADJUSTMENT |
I bi,bj,k,weightA,weightB,myThid) |
|
./pkg/profiles/profiles_init_fixed.F |
149 |
PROFILES_INIT_FIXED |
do k=1,ProfDepthNo(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
150 |
PROFILES_INIT_FIXED |
err = NF_GET_VAR1_DOUBLE(fid,varid1a,k, |
|
./pkg/profiles/profiles_init_fixed.F |
151 |
PROFILES_INIT_FIXED |
& prof_depth(num_file,k,bi,bj)) |
|
./pkg/profiles/profiles_init_fixed.F |
185 |
PROFILES_INIT_FIXED |
do k=1,NOBSGLOB |
|
./pkg/profiles/profiles_init_fixed.F |
186 |
PROFILES_INIT_FIXED |
prof_time(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
187 |
PROFILES_INIT_FIXED |
prof_lon(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
188 |
PROFILES_INIT_FIXED |
prof_lat(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
189 |
PROFILES_INIT_FIXED |
prof_ind_glob(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
192 |
PROFILES_INIT_FIXED |
prof_interp_i(num_file,k,q,bi,bj) = -999 |
|
./pkg/profiles/profiles_init_fixed.F |
193 |
PROFILES_INIT_FIXED |
prof_interp_j(num_file,k,q,bi,bj) = -999 |
|
./pkg/profiles/profiles_init_fixed.F |
194 |
PROFILES_INIT_FIXED |
prof_interp_weights(num_file,k,q,bi,bj) = -999 |
|
./pkg/profiles/profiles_init_fixed.F |
196 |
PROFILES_INIT_FIXED |
prof_interp_xC11(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
197 |
PROFILES_INIT_FIXED |
prof_interp_yC11(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
198 |
PROFILES_INIT_FIXED |
prof_interp_xCNINJ(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
199 |
PROFILES_INIT_FIXED |
prof_interp_yCNINJ(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
267 |
PROFILES_INIT_FIXED |
do k=1,min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1)) |
|
./pkg/profiles/profiles_init_fixed.F |
271 |
PROFILES_INIT_FIXED |
call CAL_FULLDATE( int(tmpyymmdd(k)),int(tmphhmmss(k)), |
|
./pkg/profiles/profiles_init_fixed.F |
283 |
PROFILES_INIT_FIXED |
if ((xC(1,1,bi,bj).LE.tmp_lon2(k)).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
284 |
PROFILES_INIT_FIXED |
& (tmp_lon.GT.tmp_lon2(k)).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
285 |
PROFILES_INIT_FIXED |
& (yC(1,1,bi,bj).LE.tmp_lat2(k)).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
286 |
PROFILES_INIT_FIXED |
& (yC(1,sNy+1,bi,bj).GT.tmp_lat2(k)) |
|
./pkg/profiles/profiles_init_fixed.F |
290 |
PROFILES_INIT_FIXED |
prof_lon(num_file,length_for_tile,bi,bj)=tmp_lon2(k) |
|
./pkg/profiles/profiles_init_fixed.F |
291 |
PROFILES_INIT_FIXED |
prof_lat(num_file,length_for_tile,bi,bj)=tmp_lat2(k) |
|
./pkg/profiles/profiles_init_fixed.F |
292 |
PROFILES_INIT_FIXED |
prof_ind_glob(num_file,length_for_tile,bi,bj)=k+1000*(kk-1) |
|
./pkg/profiles/profiles_init_fixed.F |
302 |
PROFILES_INIT_FIXED |
if ((xC(1,1,bi,bj).LE.tmp_lon2(k)+360).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
303 |
PROFILES_INIT_FIXED |
& (tmp_lon.GT.tmp_lon2(k)+360).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
304 |
PROFILES_INIT_FIXED |
& (yC(1,1,bi,bj).LE.tmp_lat2(k)).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
305 |
PROFILES_INIT_FIXED |
& (yC(1,sNy+1,bi,bj).GT.tmp_lat2(k)) |
|
./pkg/profiles/profiles_init_fixed.F |
309 |
PROFILES_INIT_FIXED |
prof_lon(num_file,length_for_tile,bi,bj)=tmp_lon2(k)+360 |
|
./pkg/profiles/profiles_init_fixed.F |
310 |
PROFILES_INIT_FIXED |
prof_lat(num_file,length_for_tile,bi,bj)=tmp_lat2(k) |
|
./pkg/profiles/profiles_init_fixed.F |
311 |
PROFILES_INIT_FIXED |
prof_ind_glob(num_file,length_for_tile,bi,bj)=k+1000*(kk-1) |
|
./pkg/profiles/profiles_init_fixed.F |
325 |
PROFILES_INIT_FIXED |
if ( ( abs( tmp_xC11(k) - xC(1,1,bi,bj) ).LT.0.0001 ) .AND. |
|
./pkg/profiles/profiles_init_fixed.F |
326 |
PROFILES_INIT_FIXED |
& ( abs( tmp_yC11(k) - yC(1,1,bi,bj) ).LT.0.0001 ) .AND. |
|
./pkg/profiles/profiles_init_fixed.F |
327 |
PROFILES_INIT_FIXED |
& ( abs( tmp_xCNINJ(k) - xC(sNx,sNy,bi,bj) ).LT.0.0001 ) .AND. |
|
./pkg/profiles/profiles_init_fixed.F |
328 |
PROFILES_INIT_FIXED |
& ( abs( tmp_yCNINJ(k) - yC(sNx,sNy,bi,bj) ).LT.0.0001 ) ) then |
|
./pkg/profiles/profiles_init_fixed.F |
32 |
PROFILES_INIT_FIXED |
integer k,l,m,q,bi,bj,iG,jG, myThid,num_file,length_for_tile |
|
./pkg/profiles/profiles_init_fixed.F |
332 |
PROFILES_INIT_FIXED |
prof_interp_xC11(num_file,length_for_tile,bi,bj)=tmp_xC11(k) |
|
./pkg/profiles/profiles_init_fixed.F |
333 |
PROFILES_INIT_FIXED |
prof_interp_yC11(num_file,length_for_tile,bi,bj)=tmp_yC11(k) |
|
./pkg/profiles/profiles_init_fixed.F |
334 |
PROFILES_INIT_FIXED |
prof_interp_xCNINJ(num_file,length_for_tile,bi,bj)=tmp_xCNINJ(k) |
|
./pkg/profiles/profiles_init_fixed.F |
335 |
PROFILES_INIT_FIXED |
prof_interp_yCNINJ(num_file,length_for_tile,bi,bj)=tmp_yCNINJ(k) |
|
./pkg/profiles/profiles_init_fixed.F |
339 |
PROFILES_INIT_FIXED |
& =tmp_weights(k,q) |
|
./pkg/profiles/profiles_init_fixed.F |
341 |
PROFILES_INIT_FIXED |
& =tmp_i(k,q) |
|
./pkg/profiles/profiles_init_fixed.F |
343 |
PROFILES_INIT_FIXED |
& =tmp_j(k,q) |
|
./pkg/profiles/profiles_init_fixed.F |
344 |
PROFILES_INIT_FIXED |
tmp_sum_weights=tmp_sum_weights+tmp_weights(k,q) |
|
./pkg/profiles/profiles_init_fixed.F |
347 |
PROFILES_INIT_FIXED |
if ( (tmp_i(k,q).LT.0).OR.(tmp_j(k,q).LT.0) |
|
./pkg/profiles/profiles_init_fixed.F |
348 |
PROFILES_INIT_FIXED |
& .OR.(tmp_i(k,q).GT.sNx+1).OR.(tmp_j(k,q).GT.sNy+1) ) then |
|
./pkg/profiles/profiles_init_fixed.F |
354 |
PROFILES_INIT_FIXED |
if ( tmp_weights(k,q) .NE. 0. ) then |
|
./pkg/profiles/profiles_init_fixed.F |
355 |
PROFILES_INIT_FIXED |
if ( ((tmp_i(k,q).EQ.0).AND.(tmp_j(k,q).EQ.0)) |
|
./pkg/profiles/profiles_init_fixed.F |
356 |
PROFILES_INIT_FIXED |
& .OR.((tmp_i(k,q).EQ.sNx+1).AND.(tmp_j(k,q).EQ.sNy+1)) |
|
./pkg/profiles/profiles_init_fixed.F |
357 |
PROFILES_INIT_FIXED |
& .OR.((tmp_i(k,q).EQ.0).AND.(tmp_j(k,q).EQ.sNy+1)) |
|
./pkg/profiles/profiles_init_fixed.F |
358 |
PROFILES_INIT_FIXED |
& .OR.((tmp_i(k,q).EQ.sNx+1).AND.(tmp_j(k,q).EQ.0)) ) then |
|
./pkg/profiles/profiles_init_fixed.F |
363 |
PROFILES_INIT_FIXED |
& k,q,tmp_i(k,q),tmp_j(k,q),tmp_weights(k,q) |
|
./pkg/profiles/profiles_init_fixed.F |
367 |
PROFILES_INIT_FIXED |
if ( (tmp_weights(k,q).LT.0).OR.(tmp_weights(k,q).GT.1) ) then |
|
./pkg/profiles/profiles_init_fixed.F |
371 |
PROFILES_INIT_FIXED |
& k,q,tmp_weights(k,q) |
|
./pkg/profiles/profiles_init_fixed.F |
381 |
PROFILES_INIT_FIXED |
& k,tmp_sum_weights |
|
./pkg/profiles/profiles_init_fixed.F |
385 |
PROFILES_INIT_FIXED |
prof_ind_glob(num_file,length_for_tile,bi,bj)=k+1000*(kk-1) |
|
./pkg/profiles/profiles_init_fixed.F |
415 |
PROFILES_INIT_FIXED |
do k=1,NVARMAX |
|
./pkg/profiles/profiles_init_fixed.F |
416 |
PROFILES_INIT_FIXED |
prof_num_var_cur(num_file,k,bi,bj)=0 |
|
./pkg/profiles/profiles_init_fixed.F |
549 |
PROFILES_INIT_FIXED |
do k=1,NVARMAX |
|
./pkg/profiles/profiles_init_fixed.F |
550 |
PROFILES_INIT_FIXED |
prof_num_var_cur(num_file,k,bi,bj)=0 |
|
./pkg/profiles/profiles_init_fixed.F |
551 |
PROFILES_INIT_FIXED |
vec_quantities(num_file,k,bi,bj)=.FALSE. |
|
./pkg/profiles/profiles_init_fixed.F |
554 |
PROFILES_INIT_FIXED |
do k=1,NOBSGLOB |
|
./pkg/profiles/profiles_init_fixed.F |
555 |
PROFILES_INIT_FIXED |
prof_time(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
556 |
PROFILES_INIT_FIXED |
prof_lon(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
557 |
PROFILES_INIT_FIXED |
prof_lat(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
558 |
PROFILES_INIT_FIXED |
prof_ind_glob(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
561 |
PROFILES_INIT_FIXED |
prof_interp_i(num_file,k,q,bi,bj) = -999 |
|
./pkg/profiles/profiles_init_fixed.F |
562 |
PROFILES_INIT_FIXED |
prof_interp_j(num_file,k,q,bi,bj) = -999 |
|
./pkg/profiles/profiles_init_fixed.F |
563 |
PROFILES_INIT_FIXED |
prof_interp_weights(num_file,k,q,bi,bj) = -999 |
|
./pkg/profiles/profiles_init_fixed.F |
565 |
PROFILES_INIT_FIXED |
prof_interp_xC11(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
566 |
PROFILES_INIT_FIXED |
prof_interp_yC11(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
567 |
PROFILES_INIT_FIXED |
prof_interp_xCNINJ(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
568 |
PROFILES_INIT_FIXED |
prof_interp_yCNINJ(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
590 |
PROFILES_INIT_FIXED |
k=MDS_RECLEN(64,(sNx+2)*(sNy+2),mythid) |
|
./pkg/profiles/profiles_init_fixed.F |
595 |
PROFILES_INIT_FIXED |
& status='unknown',access='direct', recl= k) |
|
./pkg/profiles/profiles_init_fixed.F |
610 |
PROFILES_INIT_FIXED |
k=MDS_RECLEN(64,(sNx+2)*(sNy+2),mythid) |
|
./pkg/profiles/profiles_init_fixed.F |
615 |
PROFILES_INIT_FIXED |
& status='unknown', access='direct', recl= k) |
|
./pkg/profiles/profiles_init_fixed.F |
80 |
PROFILES_INIT_FIXED |
do k=1,NVARMAX |
|
./pkg/profiles/profiles_init_fixed.F |
81 |
PROFILES_INIT_FIXED |
profiles_data_buff(m,l,k,bi,bj)=0 |
|
./pkg/profiles/profiles_init_fixed.F |
82 |
PROFILES_INIT_FIXED |
profiles_weight_buff(m,l,k,bi,bj)=0 |
|
./pkg/profiles/profiles_init_varia.F |
45 |
PROFILES_INIT_VARIA |
integer i,j,k |
|
./pkg/profiles/profiles_inloop.F |
42 |
PROFILES_INLOOP |
integer k,bi,bj,prof_num, num_file, num_var |
|
./pkg/profiles/profiles_inloop.F |
71 |
PROFILES_INLOOP |
do k=1,NUM_INTERP_POINTS |
|
./pkg/profiles/profiles_inloop.F |
72 |
PROFILES_INLOOP |
prof_i1D(k)= prof_interp_i(num_file,prof_num,k,bi,bj) |
|
./pkg/profiles/profiles_inloop.F |
73 |
PROFILES_INLOOP |
prof_j1D(k)= prof_interp_j(num_file,prof_num,k,bi,bj) |
|
./pkg/profiles/profiles_inloop.F |
74 |
PROFILES_INLOOP |
prof_w1D(k)= prof_interp_weights(num_file,prof_num,k,bi,bj) |
|
./pkg/profiles/profiles_inloop.F |
79 |
PROFILES_INLOOP |
do k=1,NLEVELMAX |
|
./pkg/profiles/profiles_inloop.F |
80 |
PROFILES_INLOOP |
prof_traj1D(k)=0 |
|
./pkg/profiles/profiles_inloop.F |
81 |
PROFILES_INLOOP |
prof_mask1D(k)=0 |
|
./pkg/profiles/profiles_interp.F |
148 |
PROFILES_INTERP |
do k=1,nr |
|
./pkg/profiles/profiles_interp.F |
150 |
PROFILES_INTERP |
tab_coeffs1(1,1)=theta(prof_i,prof_j,k,bi,bj) !SO |
|
./pkg/profiles/profiles_interp.F |
151 |
PROFILES_INTERP |
tab_coeffs1(1,2)=theta(prof_i+1,prof_j,k,bi,bj) !SE |
|
./pkg/profiles/profiles_interp.F |
152 |
PROFILES_INTERP |
tab_coeffs1(2,1)=theta(prof_i,prof_j+1,k,bi,bj) !NO |
|
./pkg/profiles/profiles_interp.F |
153 |
PROFILES_INTERP |
tab_coeffs1(2,2)=theta(prof_i+1,prof_j+1,k,bi,bj) !NZ |
|
./pkg/profiles/profiles_interp.F |
154 |
PROFILES_INTERP |
tab_coeffs3(1,1)=maskC(prof_i,prof_j,k,bi,bj) !SO |
|
./pkg/profiles/profiles_interp.F |
155 |
PROFILES_INTERP |
tab_coeffs3(1,2)=maskC(prof_i+1,prof_j,k,bi,bj) !SE |
|
./pkg/profiles/profiles_interp.F |
156 |
PROFILES_INTERP |
tab_coeffs3(2,1)=maskC(prof_i,prof_j+1,k,bi,bj) !NO |
|
./pkg/profiles/profiles_interp.F |
157 |
PROFILES_INTERP |
tab_coeffs3(2,2)=maskC(prof_i+1,prof_j+1,k,bi,bj) !NZ |
|
./pkg/profiles/profiles_interp.F |
159 |
PROFILES_INTERP |
tab_coeffs1(1,1)=salt(prof_i,prof_j,k,bi,bj) !SO |
|
./pkg/profiles/profiles_interp.F |
160 |
PROFILES_INTERP |
tab_coeffs1(1,2)=salt(prof_i+1,prof_j,k,bi,bj) !SE |
|
./pkg/profiles/profiles_interp.F |
161 |
PROFILES_INTERP |
tab_coeffs1(2,1)=salt(prof_i,prof_j+1,k,bi,bj) !NO |
|
./pkg/profiles/profiles_interp.F |
162 |
PROFILES_INTERP |
tab_coeffs1(2,2)=salt(prof_i+1,prof_j+1,k,bi,bj) !NZ |
|
./pkg/profiles/profiles_interp.F |
163 |
PROFILES_INTERP |
tab_coeffs3(1,1)=maskC(prof_i,prof_j,k,bi,bj) !SO |
|
./pkg/profiles/profiles_interp.F |
164 |
PROFILES_INTERP |
tab_coeffs3(1,2)=maskC(prof_i+1,prof_j,k,bi,bj) !SE |
|
./pkg/profiles/profiles_interp.F |
165 |
PROFILES_INTERP |
tab_coeffs3(2,1)=maskC(prof_i,prof_j+1,k,bi,bj) !NO |
|
./pkg/profiles/profiles_interp.F |
166 |
PROFILES_INTERP |
tab_coeffs3(2,2)=maskC(prof_i+1,prof_j+1,k,bi,bj) !NZ |
|
./pkg/profiles/profiles_interp.F |
168 |
PROFILES_INTERP |
tab_coeffs1(1,1)=uVel(prof_i,prof_j,k,bi,bj) !SO |
|
./pkg/profiles/profiles_interp.F |
169 |
PROFILES_INTERP |
tab_coeffs1(1,2)=uVel(prof_i+1,prof_j,k,bi,bj) !SE |
|
./pkg/profiles/profiles_interp.F |
170 |
PROFILES_INTERP |
tab_coeffs1(2,1)=uVel(prof_i,prof_j+1,k,bi,bj) !NO |
|
./pkg/profiles/profiles_interp.F |
171 |
PROFILES_INTERP |
tab_coeffs1(2,2)=uVel(prof_i+1,prof_j+1,k,bi,bj) !NZ |
|
./pkg/profiles/profiles_interp.F |
172 |
PROFILES_INTERP |
tab_coeffs3(1,1)=maskW(prof_i,prof_j,k,bi,bj) !SO |
|
./pkg/profiles/profiles_interp.F |
173 |
PROFILES_INTERP |
tab_coeffs3(1,2)=maskW(prof_i+1,prof_j,k,bi,bj) !SE |
|
./pkg/profiles/profiles_interp.F |
174 |
PROFILES_INTERP |
tab_coeffs3(2,1)=maskW(prof_i,prof_j+1,k,bi,bj) !NO |
|
./pkg/profiles/profiles_interp.F |
175 |
PROFILES_INTERP |
tab_coeffs3(2,2)=maskW(prof_i+1,prof_j+1,k,bi,bj) !NZ |
|
./pkg/profiles/profiles_interp.F |
177 |
PROFILES_INTERP |
tab_coeffs1(1,1)=vVel(prof_i,prof_j,k,bi,bj) !SO |
|
./pkg/profiles/profiles_interp.F |
178 |
PROFILES_INTERP |
tab_coeffs1(1,2)=vVel(prof_i+1,prof_j,k,bi,bj) !SE |
|
./pkg/profiles/profiles_interp.F |
179 |
PROFILES_INTERP |
tab_coeffs1(2,1)=vVel(prof_i,prof_j+1,k,bi,bj) !NO |
|
./pkg/profiles/profiles_interp.F |
180 |
PROFILES_INTERP |
tab_coeffs1(2,2)=vVel(prof_i+1,prof_j+1,k,bi,bj) !NZ |
|
./pkg/profiles/profiles_interp.F |
181 |
PROFILES_INTERP |
tab_coeffs3(1,1)=maskS(prof_i,prof_j,k,bi,bj) !SO |
|
./pkg/profiles/profiles_interp.F |
182 |
PROFILES_INTERP |
tab_coeffs3(1,2)=maskS(prof_i+1,prof_j,k,bi,bj) !SE |
|
./pkg/profiles/profiles_interp.F |
183 |
PROFILES_INTERP |
tab_coeffs3(2,1)=maskS(prof_i,prof_j+1,k,bi,bj) !NO |
|
./pkg/profiles/profiles_interp.F |
184 |
PROFILES_INTERP |
tab_coeffs3(2,2)=maskS(prof_i+1,prof_j+1,k,bi,bj) !NZ |
|
./pkg/profiles/profiles_interp.F |
189 |
PROFILES_INTERP |
tab_coeffs1(1,1)=pTracer(prof_i,prof_j,k,bi,bj,1) !SO |
|
./pkg/profiles/profiles_interp.F |
190 |
PROFILES_INTERP |
tab_coeffs1(1,2)=pTracer(prof_i+1,prof_j,k,bi,bj,1) !SE |
|
./pkg/profiles/profiles_interp.F |
191 |
PROFILES_INTERP |
tab_coeffs1(2,1)=pTracer(prof_i,prof_j+1,k,bi,bj,1) !NO |
|
./pkg/profiles/profiles_interp.F |
192 |
PROFILES_INTERP |
tab_coeffs1(2,2)=pTracer(prof_i+1,prof_j+1,k,bi,bj,1) !NZ |
|
./pkg/profiles/profiles_interp.F |
199 |
PROFILES_INTERP |
tab_coeffs3(1,1)=maskC(prof_i,prof_j,k,bi,bj) !SO |
|
./pkg/profiles/profiles_interp.F |
200 |
PROFILES_INTERP |
tab_coeffs3(1,2)=maskC(prof_i+1,prof_j,k,bi,bj) !SE |
|
./pkg/profiles/profiles_interp.F |
201 |
PROFILES_INTERP |
tab_coeffs3(2,1)=maskC(prof_i,prof_j+1,k,bi,bj) !NO |
|
./pkg/profiles/profiles_interp.F |
202 |
PROFILES_INTERP |
tab_coeffs3(2,2)=maskC(prof_i+1,prof_j+1,k,bi,bj) !NZ |
|
./pkg/profiles/profiles_interp.F |
235 |
PROFILES_INTERP |
traj_cur(k)=tab_coeffs1(1,1)+tab_coeffs1(2,1)+ |
|
./pkg/profiles/profiles_interp.F |
237 |
PROFILES_INTERP |
mask_cur(k)=1 |
|
./pkg/profiles/profiles_interp.F |
239 |
PROFILES_INTERP |
traj_cur(k)=0 |
|
./pkg/profiles/profiles_interp.F |
240 |
PROFILES_INTERP |
mask_cur(k)=0 |
|
./pkg/profiles/profiles_interp.F |
245 |
PROFILES_INTERP |
do k=1,nr |
|
./pkg/profiles/profiles_interp.F |
246 |
PROFILES_INTERP |
traj_cur(k)=0 |
|
./pkg/profiles/profiles_interp.F |
247 |
PROFILES_INTERP |
mask_cur(k)=0 |
|
./pkg/profiles/profiles_interp.F |
271 |
PROFILES_INTERP |
do k=1,nr-1 |
|
./pkg/profiles/profiles_interp.F |
272 |
PROFILES_INTERP |
if ((prof_depth(file_cur,kk,bi,bj).GE.-rC(k)).AND. |
|
./pkg/profiles/profiles_interp.F |
273 |
PROFILES_INTERP |
& (prof_depth(file_cur,kk,bi,bj).LT.-rC(k+1))) then |
|
./pkg/profiles/profiles_interp.F |
274 |
PROFILES_INTERP |
kcur=k |
|
./pkg/profiles/profiles_interp.F |
58 |
PROFILES_INTERP |
integer i,j,k,kk,kcur,iG,jG,bi,bj |
|
./pkg/profiles/profiles_interp_gg.F |
107 |
PROFILES_INTERP_GG |
mask_cur(k)=1 |
|
./pkg/profiles/profiles_interp_gg.F |
108 |
PROFILES_INTERP_GG |
traj_cur(k)=0 |
|
./pkg/profiles/profiles_interp_gg.F |
110 |
PROFILES_INTERP_GG |
traj_cur(k)=traj_cur(k)+tab_coeffs1(q)*ponderations(q)/pondsSUM |
|
./pkg/profiles/profiles_interp_gg.F |
113 |
PROFILES_INTERP_GG |
traj_cur(k)=0 |
|
./pkg/profiles/profiles_interp_gg.F |
114 |
PROFILES_INTERP_GG |
mask_cur(k)=0 |
|
./pkg/profiles/profiles_interp_gg.F |
139 |
PROFILES_INTERP_GG |
do k=1,nr-1 |
|
./pkg/profiles/profiles_interp_gg.F |
140 |
PROFILES_INTERP_GG |
if ((prof_depth(file_cur,kk,bi,bj).GE.-rC(k)).AND. |
|
./pkg/profiles/profiles_interp_gg.F |
141 |
PROFILES_INTERP_GG |
& (prof_depth(file_cur,kk,bi,bj).LT.-rC(k+1))) then |
|
./pkg/profiles/profiles_interp_gg.F |
142 |
PROFILES_INTERP_GG |
kcur=k |
|
./pkg/profiles/profiles_interp_gg.F |
63 |
PROFILES_INTERP_GG |
integer q,i,j,k,kk,kcur,iG,jG,bi,bj |
|
./pkg/profiles/profiles_interp_gg.F |
68 |
PROFILES_INTERP_GG |
do k=1,nr |
|
./pkg/profiles/profiles_interp_gg.F |
74 |
PROFILES_INTERP_GG |
tab_coeffs1(q)=theta(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/profiles/profiles_interp_gg.F |
75 |
PROFILES_INTERP_GG |
tab_coeffs3(q)=maskC(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/profiles/profiles_interp_gg.F |
77 |
PROFILES_INTERP_GG |
tab_coeffs1(q)=salt(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/profiles/profiles_interp_gg.F |
78 |
PROFILES_INTERP_GG |
tab_coeffs3(q)=maskC(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/profiles/profiles_interp_gg.F |
80 |
PROFILES_INTERP_GG |
tab_coeffs1(q)=uVel(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/profiles/profiles_interp_gg.F |
81 |
PROFILES_INTERP_GG |
tab_coeffs3(q)=maskW(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/profiles/profiles_interp_gg.F |
83 |
PROFILES_INTERP_GG |
tab_coeffs1(q)=vVel(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/profiles/profiles_interp_gg.F |
84 |
PROFILES_INTERP_GG |
tab_coeffs3(q)=maskS(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/profiles/profiles_interp_gg.F |
89 |
PROFILES_INTERP_GG |
tab_coeffs1(q)=pTracer(i_cur(q),j_cur(q),k,bi,bj,1) |
|
./pkg/profiles/profiles_interp_gg.F |
93 |
PROFILES_INTERP_GG |
tab_coeffs3(q)=maskC(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/profiles/profiles_interp_mean.F |
148 |
PROFILES_INTERP_MEAN |
do k=1,nr |
|
./pkg/profiles/profiles_interp_mean.F |
181 |
PROFILES_INTERP_MEAN |
traj_cur(k)=tab_coeffs1(1,1)+tab_coeffs1(2,1)+ |
|
./pkg/profiles/profiles_interp_mean.F |
183 |
PROFILES_INTERP_MEAN |
mask_cur(k)=1 |
|
./pkg/profiles/profiles_interp_mean.F |
185 |
PROFILES_INTERP_MEAN |
traj_cur(k)=0 |
|
./pkg/profiles/profiles_interp_mean.F |
186 |
PROFILES_INTERP_MEAN |
mask_cur(k)=0 |
|
./pkg/profiles/profiles_interp_mean.F |
191 |
PROFILES_INTERP_MEAN |
do k=1,nr |
|
./pkg/profiles/profiles_interp_mean.F |
192 |
PROFILES_INTERP_MEAN |
traj_cur(k)=0 |
|
./pkg/profiles/profiles_interp_mean.F |
193 |
PROFILES_INTERP_MEAN |
mask_cur(k)=0 |
|
./pkg/profiles/profiles_interp_mean.F |
217 |
PROFILES_INTERP_MEAN |
do k=1,nr-1 |
|
./pkg/profiles/profiles_interp_mean.F |
218 |
PROFILES_INTERP_MEAN |
if ((prof_depth(file_cur,kk,bi,bj).GE.-rC(k)).AND. |
|
./pkg/profiles/profiles_interp_mean.F |
219 |
PROFILES_INTERP_MEAN |
& (prof_depth(file_cur,kk,bi,bj).LT.-rC(k+1))) then |
|
./pkg/profiles/profiles_interp_mean.F |
220 |
PROFILES_INTERP_MEAN |
kcur=k |
|
./pkg/profiles/profiles_interp_mean.F |
58 |
PROFILES_INTERP_MEAN |
integer i,j,k,kk,kcur,iG,jG,bi,bj |
|
./pkg/profiles/profiles_interp_mean_gg.F |
118 |
PROFILES_INTERP_MEAN_GG |
do k=1,nr-1 |
|
./pkg/profiles/profiles_interp_mean_gg.F |
119 |
PROFILES_INTERP_MEAN_GG |
if ((prof_depth(file_cur,kk,bi,bj).GE.-rC(k)).AND. |
|
./pkg/profiles/profiles_interp_mean_gg.F |
120 |
PROFILES_INTERP_MEAN_GG |
& (prof_depth(file_cur,kk,bi,bj).LT.-rC(k+1))) then |
|
./pkg/profiles/profiles_interp_mean_gg.F |
121 |
PROFILES_INTERP_MEAN_GG |
kcur=k |
|
./pkg/profiles/profiles_interp_mean_gg.F |
63 |
PROFILES_INTERP_MEAN_GG |
integer q,i,j,k,kk,kcur,iG,jG,bi,bj |
|
./pkg/profiles/profiles_interp_mean_gg.F |
68 |
PROFILES_INTERP_MEAN_GG |
do k=1,nr |
|
./pkg/profiles/profiles_interp_mean_gg.F |
86 |
PROFILES_INTERP_MEAN_GG |
mask_cur(k)=1 |
|
./pkg/profiles/profiles_interp_mean_gg.F |
87 |
PROFILES_INTERP_MEAN_GG |
traj_cur(k)=0 |
|
./pkg/profiles/profiles_interp_mean_gg.F |
89 |
PROFILES_INTERP_MEAN_GG |
traj_cur(k)=traj_cur(k)+tab_coeffs1(q)*ponderations(q)/pondsSUM |
|
./pkg/profiles/profiles_interp_mean_gg.F |
92 |
PROFILES_INTERP_MEAN_GG |
traj_cur(k)=0 |
|
./pkg/profiles/profiles_interp_mean_gg.F |
93 |
PROFILES_INTERP_MEAN_GG |
mask_cur(k)=0 |
|
./model/src/convective_adjustment_ini.F |
134 |
CONVECTIVE_ADJUSTMENT_INI |
kkey = (ikey-1)*Nr + k |
|
./model/src/convective_adjustment_ini.F |
182 |
CONVECTIVE_ADJUSTMENT_INI |
I bi,bj,k,weightA,weightB, |
|
./model/src/convective_adjustment_ini.F |
188 |
CONVECTIVE_ADJUSTMENT_INI |
I bi,bj,k,weightA,weightB, |
|
./model/src/convective_adjustment_ini.F |
196 |
CONVECTIVE_ADJUSTMENT_INI |
I bi,bj,k,weightA,weightB,myThid) |
|
./model/src/convective_adjustment_ini.F |
89 |
CONVECTIVE_ADJUSTMENT_INI |
ConvectCount(i,j,k) = 0. |
|
./pkg/profiles/profiles_readvector.F |
104 |
PROFILES_READVECTOR |
do k=1,vec_loc_length |
|
./pkg/profiles/profiles_readvector.F |
105 |
PROFILES_READVECTOR |
vec_loc(k)= profiles_weight_buff |
|
./pkg/profiles/profiles_readvector.F |
106 |
PROFILES_READVECTOR |
& (k,irec-profiles_minind_buff(bi,bj)+1,-vNb,bi,bj) |
|
./pkg/profiles/profiles_readvector.F |
110 |
PROFILES_READVECTOR |
do k=1,vec_loc_length |
|
./pkg/profiles/profiles_readvector.F |
111 |
PROFILES_READVECTOR |
vec_loc(k)=profiles_data_buff |
|
./pkg/profiles/profiles_readvector.F |
112 |
PROFILES_READVECTOR |
& (k,irec-profiles_minind_buff(bi,bj)+1,vNb,bi,bj) |
|
./pkg/profiles/profiles_readvector.F |
27 |
PROFILES_READVECTOR |
integer vec_loc_length, vNb, k, kk, kkk,bi,bj |
|
./pkg/profiles/profiles_readvector.F |
89 |
PROFILES_READVECTOR |
do k=1,vec_count(1) |
|
./pkg/profiles/profiles_readvector.F |
91 |
PROFILES_READVECTOR |
profiles_data_buff(k,kk,kkk,bi,bj)=vec_tmp1((kk-1)*vec_count(1)+k) |
|
./pkg/profiles/profiles_readvector.F |
92 |
PROFILES_READVECTOR |
profiles_weight_buff(k,kk,kkk,bi,bj)=vec_tmp2((kk-1)*vec_count(1) |
|
./pkg/profiles/profiles_readvector.F |
93 |
PROFILES_READVECTOR |
& +k) |
|
./model/src/convective_weights.F |
10 |
CONVECTIVE_WEIGHTS |
I bi,bj,k,rhoKm1,rhoK, |
|
./model/src/convective_weights.F |
40 |
CONVECTIVE_WEIGHTS |
INTEGER bi,bj,k |
|
./model/src/convective_weights.F |
59 |
CONVECTIVE_WEIGHTS |
IF ( _hFacC(i,j,k-1,bi,bj) |
|
./model/src/convective_weights.F |
60 |
CONVECTIVE_WEIGHTS |
& *_hFacC(i,j,k,bi,bj) .GT. 0. |
|
./model/src/convective_weights.F |
65 |
CONVECTIVE_WEIGHTS |
d1 = _hFacC(i,j,k-1,bi,bj)*drF(k-1) |
|
./model/src/convective_weights.F |
66 |
CONVECTIVE_WEIGHTS |
d2 = _hFacC(i,j, k ,bi,bj)*drF( k ) |
|
./model/src/convective_weights.F |
70 |
CONVECTIVE_WEIGHTS |
ConvectCount(i,j,k) = ConvectCount(i,j,k) + 1. |
|
./pkg/ptracers/ptracers_calc_diff.F |
104 |
PTRACERS_CALC_DIFF |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./pkg/ptracers/ptracers_calc_diff.F |
10 |
PTRACERS_CALC_DIFF |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./pkg/ptracers/ptracers_calc_diff.F |
113 |
PTRACERS_CALC_DIFF |
I bi,bj,iMin,iMax,jMin,jMax,k,1, |
|
./pkg/ptracers/ptracers_calc_diff.F |
122 |
PTRACERS_CALC_DIFF |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./pkg/ptracers/ptracers_calc_diff.F |
131 |
PTRACERS_CALC_DIFF |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./pkg/ptracers/ptracers_calc_diff.F |
140 |
PTRACERS_CALC_DIFF |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./pkg/ptracers/ptracers_calc_diff.F |
50 |
PTRACERS_CALC_DIFF |
INTEGER bi,bj,iMin,iMax,jMin,jMax,k |
|
./pkg/ptracers/ptracers_calc_diff.F |
66 |
PTRACERS_CALC_DIFF |
& *(atan(-(rF(k)-diffKrBL79Ho)/diffKrBL79scl)/PI+0.5 _d 0) |
|
./pkg/ptracers/ptracers_calc_diff.F |
69 |
PTRACERS_CALC_DIFF |
& *(atan(-(rF(k)-diffKrBLEQHo)/diffKrBLEQscl)/PI+0.5 _d 0) |
|
./pkg/ptracers/ptracers_calc_diff.F |
82 |
PTRACERS_CALC_DIFF |
& LS_IVDConvCount(i,j,k,bi,bj)*ivdc_kappa |
|
./pkg/ptracers/ptracers_calc_diff.F |
84 |
PTRACERS_CALC_DIFF |
& IVDConvCount(i,j,k,bi,bj)*ivdc_kappa |
|
./pkg/ptracers/ptracers_calc_diff.F |
88 |
PTRACERS_CALC_DIFF |
& + diffKr(i,j,k,bi,bj) |
|
./pkg/ptracers/ptracers_calc_diff.F |
90 |
PTRACERS_CALC_DIFF |
& + PTRACERS_diffKrNr(k,iTr) |
|
./pkg/ptracers/ptracers_convect.F |
10 |
PTRACERS_CONVECT |
SUBROUTINE PTRACERS_CONVECT( bi,bj,k,weightA,weightB,myThid ) |
|
./pkg/ptracers/ptracers_convect.F |
28 |
PTRACERS_CONVECT |
INTEGER bi,bj,k |
|
./pkg/ptracers/ptracers_convect.F |
47 |
PTRACERS_CONVECT |
I bi,bj,k,weightA,weightB, |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
111 |
PTRACERS_DIAGNOSTICS_STATE |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
118 |
PTRACERS_DIAGNOSTICS_STATE |
dummy(i,j,k,bi,bj) = |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
119 |
PTRACERS_DIAGNOSTICS_STATE |
& LS_vVel(i,j,k,bi,bj)*hFacS(i,j,k,bi,bj) * |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
120 |
PTRACERS_DIAGNOSTICS_STATE |
& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
121 |
PTRACERS_DIAGNOSTICS_STATE |
& + pTracer(i,j-1,k,bi,bj,iTr) ) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
126 |
PTRACERS_DIAGNOSTICS_STATE |
dummy(i,j,k,bi,bj) = |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
127 |
PTRACERS_DIAGNOSTICS_STATE |
& vVel(i,j,k,bi,bj)*hFacS(i,j,k,bi,bj) * |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
128 |
PTRACERS_DIAGNOSTICS_STATE |
& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
129 |
PTRACERS_DIAGNOSTICS_STATE |
& + pTracer(i,j-1,k,bi,bj,iTr) ) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
144 |
PTRACERS_DIAGNOSTICS_STATE |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
145 |
PTRACERS_DIAGNOSTICS_STATE |
km1 = MAX(k-1,1) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
152 |
PTRACERS_DIAGNOSTICS_STATE |
dummy(i,j,k,bi,bj) = LS_wVel(i,j,k,bi,bj) * |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
153 |
PTRACERS_DIAGNOSTICS_STATE |
& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
159 |
PTRACERS_DIAGNOSTICS_STATE |
dummy(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) * |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
160 |
PTRACERS_DIAGNOSTICS_STATE |
& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
41 |
PTRACERS_DIAGNOSTICS_STATE |
INTEGER i,j,k,bi,bj,iTr |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
78 |
PTRACERS_DIAGNOSTICS_STATE |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
85 |
PTRACERS_DIAGNOSTICS_STATE |
dummy(i,j,k,bi,bj) = |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
86 |
PTRACERS_DIAGNOSTICS_STATE |
& LS_uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) * |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
87 |
PTRACERS_DIAGNOSTICS_STATE |
& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
88 |
PTRACERS_DIAGNOSTICS_STATE |
& + pTracer(i-1,j,k,bi,bj,iTr) ) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
93 |
PTRACERS_DIAGNOSTICS_STATE |
dummy(i,j,k,bi,bj) = |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
94 |
PTRACERS_DIAGNOSTICS_STATE |
& uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) * |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
95 |
PTRACERS_DIAGNOSTICS_STATE |
& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
96 |
PTRACERS_DIAGNOSTICS_STATE |
& + pTracer(i-1,j,k,bi,bj,iTr) ) |
|
./model/src/convectively_mixtracer.F |
10 |
CONVECTIVELY_MIXTRACER |
I bi,bj,k,weightA,weightB, |
|
./model/src/convectively_mixtracer.F |
31 |
CONVECTIVELY_MIXTRACER |
INTEGER bi,bj,k |
|
./model/src/convectively_mixtracer.F |
49 |
CONVECTIVELY_MIXTRACER |
delTrac=Tracer(i,j,k,bi,bj)-Tracer(i,j,k-1,bi,bj) |
|
./model/src/convectively_mixtracer.F |
50 |
CONVECTIVELY_MIXTRACER |
Tracer(i,j,k-1,bi,bj)=Tracer(i,j,k-1,bi,bj) |
|
./model/src/convectively_mixtracer.F |
52 |
CONVECTIVELY_MIXTRACER |
Tracer(i,j,k,bi,bj)=Tracer(i,j,k,bi,bj) |
|
./pkg/ptracers/ptracers_forcing.F |
11 |
PTRACERS_FORCING |
I bi,bj,iMin,iMax,jMin,jMax,k,iTracer, |
|
./pkg/ptracers/ptracers_forcing.F |
35 |
PTRACERS_FORCING |
INTEGER bi,bj,iMin,iMax,jMin,jMax,k,iTracer |
|
./pkg/ptracers/ptracers_forcing.F |
67 |
PTRACERS_FORCING |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./pkg/ptracers/ptracers_forcing.F |
72 |
PTRACERS_FORCING |
IF ( k .EQ. kSurface ) THEN |
|
./pkg/ptracers/ptracers_forcing.F |
75 |
PTRACERS_FORCING |
gPtracer(i,j,k,bi,bj) = gPtracer(i,j,k,bi,bj) |
|
./pkg/ptracers/ptracers_forcing.F |
77 |
PTRACERS_FORCING |
& *recip_drF(k)*recip_hFacC(i,j,k,bi,bj) |
|
./pkg/ptracers/ptracers_forcing.F |
85 |
PTRACERS_FORCING |
I bi,bj,k,iTracer+2, |
|
./pkg/ptracers/ptracers_init_varia.F |
103 |
PTRACERS_INIT_VARIA |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_init_varia.F |
106 |
PTRACERS_INIT_VARIA |
IF (maskC(i,j,k,bi,bj).EQ.0.) |
|
./pkg/ptracers/ptracers_init_varia.F |
107 |
PTRACERS_INIT_VARIA |
& pTracer(i,j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/ptracers/ptracers_init_varia.F |
37 |
PTRACERS_INIT_VARIA |
INTEGER i,j,k,bi,bj,iTracer |
|
./pkg/ptracers/ptracers_init_varia.F |
51 |
PTRACERS_INIT_VARIA |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_init_varia.F |
54 |
PTRACERS_INIT_VARIA |
pTracer(i,j,k,bi,bj,iTracer) = PTRACERS_ref(k,iTracer) |
|
./pkg/ptracers/ptracers_init_varia.F |
55 |
PTRACERS_INIT_VARIA |
gPtr(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/ptracers/ptracers_init_varia.F |
56 |
PTRACERS_INIT_VARIA |
gpTrNm1(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/ptracers/ptracers_init_varia.F |
70 |
PTRACERS_INIT_VARIA |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_init_varia.F |
73 |
PTRACERS_INIT_VARIA |
_Ptracers_som(i,j,k,bi,bj,n,iTracer) = 0. _d 0 |
|
./pkg/ptracers/ptracers_integrate.F |
100 |
PTRACERS_INTEGRATE |
kUp = 1+MOD(k+1,2) |
|
./pkg/ptracers/ptracers_integrate.F |
101 |
PTRACERS_INTEGRATE |
kDown= 1+MOD(k,2) |
|
./pkg/ptracers/ptracers_integrate.F |
11 |
PTRACERS_INTEGRATE |
I bi,bj,k, |
|
./pkg/ptracers/ptracers_integrate.F |
121 |
PTRACERS_INTEGRATE |
kkey = (iptrkey-1)*Nr + k |
|
./pkg/ptracers/ptracers_integrate.F |
138 |
PTRACERS_INTEGRATE |
I bi,bj,iMin,iMax,jMin,jMax,k,km1,kUp,kDown, |
|
./pkg/ptracers/ptracers_integrate.F |
160 |
PTRACERS_INTEGRATE |
I bi,bj,iMin,iMax,jMin,jMax,k,iTracer, |
|
./pkg/ptracers/ptracers_integrate.F |
194 |
PTRACERS_INTEGRATE |
I bi,bj,iMin,iMax,jMin,jMax,k,iTracer, |
|
./pkg/ptracers/ptracers_integrate.F |
216 |
PTRACERS_INTEGRATE |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./pkg/ptracers/ptracers_integrate.F |
218 |
PTRACERS_INTEGRATE |
I PTRACERS_dTLev(k), |
|
./pkg/ptracers/ptracers_integrate.F |
57 |
PTRACERS_INTEGRATE |
INTEGER bi,bj,k |
|
./pkg/ptracers/ptracers_integrate.F |
99 |
PTRACERS_INTEGRATE |
km1 = MAX(1,k-1) |
|
./model/src/correction_step.F |
10 |
CORRECTION_STEP |
I k, phiSurfX, phiSurfY, |
|
./model/src/correction_step.F |
44 |
CORRECTION_STEP |
INTEGER k |
|
./model/src/correction_step.F |
58 |
CORRECTION_STEP |
& *recip_deepFacC(k)*recip_rhoFacC(k) |
|
./model/src/correction_step.F |
61 |
CORRECTION_STEP |
& *recip_deepFacC(k)*recip_rhoFacC(k) |
|
./model/src/correction_step.F |
69 |
CORRECTION_STEP |
uVel(i,j,k,bi,bj)=( gU(i,j,k,bi,bj) |
|
./model/src/correction_step.F |
73 |
CORRECTION_STEP |
& *(phi_nh(i,j,k,bi,bj)-phi_nh(i-1,j,k,bi,bj)) |
|
./model/src/correction_step.F |
75 |
CORRECTION_STEP |
& )*_maskW(i,j,k,bi,bj) |
|
./model/src/correction_step.F |
82 |
CORRECTION_STEP |
vVel(i,j,k,bi,bj)=( gV(i,j,k,bi,bj) |
|
./model/src/correction_step.F |
86 |
CORRECTION_STEP |
& *(phi_nh(i,j,k,bi,bj)-phi_nh(i,j-1,k,bi,bj)) |
|
./model/src/correction_step.F |
88 |
CORRECTION_STEP |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/ptracers/ptracers_readparms.F |
110 |
PTRACERS_READPARMS |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_readparms.F |
111 |
PTRACERS_READPARMS |
PTRACERS_diffKrNr(k,iTracer)=diffKrNrS(k) |
|
./pkg/ptracers/ptracers_readparms.F |
112 |
PTRACERS_READPARMS |
PTRACERS_ref (k,iTracer)=0. _d 0 |
|
./pkg/ptracers/ptracers_readparms.F |
141 |
PTRACERS_READPARMS |
DO k = 1,Nr |
|
./pkg/ptracers/ptracers_readparms.F |
143 |
PTRACERS_READPARMS |
PTRACERS_dTLev(k) = LS_nIter*dTtracerLev(k) |
|
./pkg/ptracers/ptracers_readparms.F |
145 |
PTRACERS_READPARMS |
PTRACERS_dTLev(k) = dTtracerLev(k) |
|
./pkg/ptracers/ptracers_readparms.F |
255 |
PTRACERS_READPARMS |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_readparms.F |
256 |
PTRACERS_READPARMS |
PTRACERS_diffKrNr(k,iTracer)=PTRACERS_diffKr(iTracer) |
|
./pkg/ptracers/ptracers_readparms.F |
43 |
PTRACERS_READPARMS |
INTEGER k, iTracer |
|
./model/src/cycle_tracer.F |
43 |
CYCLE_TRACER |
INTEGER i,j,k |
|
./model/src/cycle_tracer.F |
47 |
CYCLE_TRACER |
DO k=1,Nr |
|
./model/src/cycle_tracer.F |
52 |
CYCLE_TRACER |
tracer(i,j,k,bi,bj)=gTracer(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_add_tendency.F |
11 |
RBCS_ADD_TENDENCY |
I bi, bj, k, tracerNum, |
|
./pkg/rbcs/rbcs_add_tendency.F |
37 |
RBCS_ADD_TENDENCY |
INTEGER bi, bj, k |
|
./pkg/rbcs/rbcs_add_tendency.F |
57 |
RBCS_ADD_TENDENCY |
gT(i,j,k,bi,bj) = gT(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_add_tendency.F |
58 |
RBCS_ADD_TENDENCY |
& - maskC(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_add_tendency.F |
59 |
RBCS_ADD_TENDENCY |
& *RBC_mask(i,j,k,bi,bj,1)/tauRelaxT |
|
./pkg/rbcs/rbcs_add_tendency.F |
60 |
RBCS_ADD_TENDENCY |
& *( theta(i,j,k,bi,bj)- RBCtemp(i,j,k,bi,bj) ) |
|
./pkg/rbcs/rbcs_add_tendency.F |
68 |
RBCS_ADD_TENDENCY |
gS(i,j,k,bi,bj) = gS(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_add_tendency.F |
69 |
RBCS_ADD_TENDENCY |
& - maskC(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_add_tendency.F |
70 |
RBCS_ADD_TENDENCY |
& *RBC_mask(i,j,k,bi,bj,2)/tauRelaxS |
|
./pkg/rbcs/rbcs_add_tendency.F |
71 |
RBCS_ADD_TENDENCY |
& *( salt(i,j,k,bi,bj)- RBCsalt(i,j,k,bi,bj) ) |
|
./pkg/rbcs/rbcs_add_tendency.F |
83 |
RBCS_ADD_TENDENCY |
gPtr(i,j,k,bi,bj,iTracer) = gPtr(i,j,k,bi,bj,iTracer) |
|
./pkg/rbcs/rbcs_add_tendency.F |
84 |
RBCS_ADD_TENDENCY |
& - maskC(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_add_tendency.F |
85 |
RBCS_ADD_TENDENCY |
& *RBC_mask(i,j,k,bi,bj,irbc)/tauRelaxPTR(iTracer) |
|
./pkg/rbcs/rbcs_add_tendency.F |
86 |
RBCS_ADD_TENDENCY |
& *( pTracer(i,j,k,bi,bj,iTracer) |
|
./pkg/rbcs/rbcs_add_tendency.F |
87 |
RBCS_ADD_TENDENCY |
& - RBC_ptracers(i,j,k,bi,bj,iTracer) ) |
|
./pkg/rbcs/rbcs_fields_load.F |
238 |
RBCS_FIELDS_LOAD |
DO k=1,Nr |
|
./pkg/rbcs/rbcs_fields_load.F |
241 |
RBCS_FIELDS_LOAD |
RBCtemp(i,j,k,bi,bj) = bWght*rbct0(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
242 |
RBCS_FIELDS_LOAD |
& +aWght*rbct1(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
243 |
RBCS_FIELDS_LOAD |
RBCsalt(i,j,k,bi,bj) = bWght*rbcs0(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
244 |
RBCS_FIELDS_LOAD |
& +aWght*rbcs1(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
257 |
RBCS_FIELDS_LOAD |
DO k=1,Nr |
|
./pkg/rbcs/rbcs_fields_load.F |
260 |
RBCS_FIELDS_LOAD |
RBC_ptracers(i,j,k,bi,bj,iTracer) = |
|
./pkg/rbcs/rbcs_fields_load.F |
261 |
RBCS_FIELDS_LOAD |
& bWght*rbcptr0(i,j,k,bi,bj,iTracer) |
|
./pkg/rbcs/rbcs_fields_load.F |
262 |
RBCS_FIELDS_LOAD |
& +aWght*rbcptr1(i,j,k,bi,bj,iTracer) |
|
./pkg/rbcs/rbcs_fields_load.F |
55 |
RBCS_FIELDS_LOAD |
INTEGER bi,bj,i,j,k,intime0,intime1 |
|
./pkg/rbcs/rbcs_fields_load.F |
77 |
RBCS_FIELDS_LOAD |
DO k=1,Nr |
|
./pkg/rbcs/rbcs_fields_load.F |
80 |
RBCS_FIELDS_LOAD |
rbct0(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/rbcs/rbcs_fields_load.F |
81 |
RBCS_FIELDS_LOAD |
rbcs0(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/rbcs/rbcs_fields_load.F |
82 |
RBCS_FIELDS_LOAD |
rbct1(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/rbcs/rbcs_fields_load.F |
83 |
RBCS_FIELDS_LOAD |
rbcs1(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/rbcs/rbcs_fields_load.F |
93 |
RBCS_FIELDS_LOAD |
DO k=1,Nr |
|
./pkg/rbcs/rbcs_fields_load.F |
96 |
RBCS_FIELDS_LOAD |
rbcptr0(i,j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/rbcs/rbcs_fields_load.F |
97 |
RBCS_FIELDS_LOAD |
rbcptr1(i,j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/rbcs/rbcs_init_fixed.F |
32 |
RBCS_INIT_FIXED |
INTEGER i,j,k,bi,bj |
|
./pkg/rbcs/rbcs_init_fixed.F |
43 |
RBCS_INIT_FIXED |
DO k=1,Nr |
|
./pkg/rbcs/rbcs_init_fixed.F |
46 |
RBCS_INIT_FIXED |
RBC_mask(i,j,k,bi,bj,irbc) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
32 |
RBCS_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/rbcs/rbcs_init_varia.F |
39 |
RBCS_INIT_VARIA |
DO k=1,Nr |
|
./pkg/rbcs/rbcs_init_varia.F |
42 |
RBCS_INIT_VARIA |
rbct0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
43 |
RBCS_INIT_VARIA |
rbcs0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
44 |
RBCS_INIT_VARIA |
rbct1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
45 |
RBCS_INIT_VARIA |
rbcs1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
46 |
RBCS_INIT_VARIA |
RBCtemp(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
47 |
RBCS_INIT_VARIA |
RBCsalt(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
59 |
RBCS_INIT_VARIA |
DO k=1,Nr |
|
./pkg/rbcs/rbcs_init_varia.F |
62 |
RBCS_INIT_VARIA |
rbcptr0(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
63 |
RBCS_INIT_VARIA |
rbcptr1(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
64 |
RBCS_INIT_VARIA |
RBC_ptracers(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/regrid/regrid_init_varia.F |
127 |
REGRID_INIT_VARIA |
DO k = 1,MAX_LEN_FNAM |
|
./pkg/regrid/regrid_init_varia.F |
128 |
REGRID_INIT_VARIA |
fname(k:k) = ' ' |
|
./pkg/regrid/regrid_init_varia.F |
37 |
REGRID_INIT_VARIA |
INTEGER i,k, iface, uniq_tnum, bi,bj |
|
./pkg/regrid/regrid_mnc_init.F |
32 |
REGRID_MNC_INIT |
INTEGER i, k, ndim |
|
./model/src/diags_phi_hyd.F |
10 |
DIAGS_PHI_HYD |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./model/src/diags_phi_hyd.F |
43 |
DIAGS_PHI_HYD |
INTEGER k, bi,bj, iMin,iMax, jMin,jMax |
|
./model/src/diags_phi_hyd.F |
57 |
DIAGS_PHI_HYD |
totPhiHyd(i,j,k,bi,bj) = phiHydC(i,j) |
|
./model/src/diags_phi_rlow.F |
100 |
DIAGS_PHI_RLOW |
IF (k.GT.1 ) ratioRm = half*drC(k)/(rF(k)-rC(k)) |
|
./model/src/diags_phi_rlow.F |
101 |
DIAGS_PHI_RLOW |
IF (k.LT.Nr) ratioRp = half*drC(k+1)/(rC(k)-rF(k+1)) |
|
./model/src/diags_phi_rlow.F |
105 |
DIAGS_PHI_RLOW |
IF ( k .EQ. kLowC(i,j,bi,bj) ) THEN |
|
./model/src/diags_phi_rlow.F |
106 |
DIAGS_PHI_RLOW |
ddRloc = rC(k)-R_low(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
10 |
DIAGS_PHI_RLOW |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./model/src/diags_phi_rlow.F |
121 |
DIAGS_PHI_RLOW |
IF ( k.EQ.Nr ) THEN |
|
./model/src/diags_phi_rlow.F |
47 |
DIAGS_PHI_RLOW |
INTEGER k, bi,bj, iMin,iMax, jMin,jMax |
|
./model/src/diags_phi_rlow.F |
74 |
DIAGS_PHI_RLOW |
IF ( k.EQ.1 ) THEN |
|
./model/src/diags_phi_rlow.F |
87 |
DIAGS_PHI_RLOW |
IF ( k .EQ. kLowC(i,j,bi,bj) ) THEN |
|
./model/src/diags_phi_rlow.F |
88 |
DIAGS_PHI_RLOW |
ddRloc = rC(k)-R_low(i,j,bi,bj) |
|
./model/src/diags_rho.F |
132 |
DIAGS_RHO_G |
INTEGER k, bi,bj |
|
./model/src/diags_rho.F |
149 |
DIAGS_RHO_G |
DO k=1,Nr |
|
./model/src/diags_rho.F |
152 |
DIAGS_RHO_G |
tmpFld(i,j) = uFld(i,j,k,bi,bj)*_hFacW(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
153 |
DIAGS_RHO_G |
& *(rho3d(i-1,j,k,bi,bj)+rho3d(i,j,k,bi,bj)) |
|
./model/src/diags_rho.F |
157 |
DIAGS_RHO_G |
CALL DIAGNOSTICS_FILL(tmpFld,'URHOMASS',k,1,2,bi,bj,myThid) |
|
./model/src/diags_rho.F |
166 |
DIAGS_RHO_G |
DO k=1,Nr |
|
./model/src/diags_rho.F |
169 |
DIAGS_RHO_G |
tmpFld(i,j) = vFld(i,j,k,bi,bj)*_hFacS(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
170 |
DIAGS_RHO_G |
& *(rho3d(i,j-1,k,bi,bj)+rho3d(i,j,k,bi,bj)) |
|
./model/src/diags_rho.F |
174 |
DIAGS_RHO_G |
CALL DIAGNOSTICS_FILL(tmpFld,'VRHOMASS',k,1,2,bi,bj,myThid) |
|
./model/src/diags_rho.F |
17 |
DIAGS_RHO_L |
I k, bi, bj, |
|
./model/src/diags_rho.F |
47 |
DIAGS_RHO_L |
INTEGER k, bi, bj |
|
./model/src/diags_rho.F |
65 |
DIAGS_RHO_L |
IF ( k.EQ.1 ) THEN |
|
./model/src/diags_rho.F |
68 |
DIAGS_RHO_L |
tmpFld(i,j) = wFld(i,j,k,bi,bj)*rhoK(i,j) |
|
./model/src/diags_rho.F |
74 |
DIAGS_RHO_L |
tmpFld(i,j) = wFld(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
79 |
DIAGS_RHO_L |
CALL DIAGNOSTICS_FILL(tmpFld,'WRHOMASS',k,1,2,bi,bj,myThid) |
|
./pkg/rw/write_fld_s3d_rl.F |
57 |
WRITE_FLD_S3D_RL |
INTEGER i,j,k,bi,bj |
|
./pkg/rw/write_fld_s3d_rl.F |
89 |
WRITE_FLD_S3D_RL |
DO k=1,nNz |
|
./pkg/rw/write_fld_s3d_rl.F |
92 |
WRITE_FLD_S3D_RL |
locVar(i,j,k,bi,bj) = field(i,j,k,bi,bj) |
|
./pkg/rw/write_fld_s3d_rs.F |
57 |
WRITE_FLD_S3D_RS |
INTEGER i,j,k,bi,bj |
|
./pkg/rw/write_fld_s3d_rs.F |
89 |
WRITE_FLD_S3D_RS |
DO k=1,nNz |
|
./pkg/rw/write_fld_s3d_rs.F |
92 |
WRITE_FLD_S3D_RS |
locVar(i,j,k,bi,bj) = field(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
104 |
SALT_PLUME_CALC_DEPTH |
DO k=2,Nr |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
107 |
SALT_PLUME_CALC_DEPTH |
GG =-1.0*sigmaR(i,j,k) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
108 |
SALT_PLUME_CALC_DEPTH |
GGm1=-1.0*sigmaR(i,j,k-1) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
109 |
SALT_PLUME_CALC_DEPTH |
IF ( k.LE.klowC(i,j,bi,bj) .AND. |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
115 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
51 |
SALT_PLUME_CALC_DEPTH |
INTEGER i,j,k |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
75 |
SALT_PLUME_CALC_DEPTH |
DO k = 2,Nr |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
85 |
SALT_PLUME_CALC_DEPTH |
IF ( k.LE.klowC(i,j,bi,bj) .AND. |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
93 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k) |
|
./pkg/sbo/sbo_calc.F |
160 |
SBO_CALC |
integer bi, bj, i, j, k, kn0 |
|
./pkg/sbo/sbo_calc.F |
199 |
SBO_CALC |
DO k = 0, Nr |
|
./pkg/sbo/sbo_calc.F |
200 |
SBO_CALC |
kn0 = max(k,1) |
|
./pkg/sbo/sbo_calc.F |
224 |
SBO_CALC |
IF ( k .EQ. 0 ) THEN |
|
./pkg/sbo/sbo_calc.F |
236 |
SBO_CALC |
radius = ae - ABS(rC(k)) |
|
./pkg/sbo/sbo_calc.F |
237 |
SBO_CALC |
dradius = drF(k) * maskC(i,j,k,bi,bj) |
|
./model/src/do_oceanic_phys.F |
106 |
DO_OCEANIC_PHYS |
INTEGER i, j, k |
|
./model/src/do_oceanic_phys.F |
376 |
DO_OCEANIC_PHYS |
DO k=1,Nr |
|
./model/src/do_oceanic_phys.F |
380 |
DO_OCEANIC_PHYS |
sigmaX(i,j,k) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
381 |
DO_OCEANIC_PHYS |
sigmaY(i,j,k) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
382 |
DO_OCEANIC_PHYS |
sigmaR(i,j,k) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
387 |
DO_OCEANIC_PHYS |
IVDConvCount(i,j,k,bi,bj) = 0. |
|
./model/src/do_oceanic_phys.F |
389 |
DO_OCEANIC_PHYS |
Kwx(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
390 |
DO_OCEANIC_PHYS |
Kwy(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
391 |
DO_OCEANIC_PHYS |
Kwz(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
393 |
DO_OCEANIC_PHYS |
Kux(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
394 |
DO_OCEANIC_PHYS |
Kvy(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
397 |
DO_OCEANIC_PHYS |
Kuz(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
398 |
DO_OCEANIC_PHYS |
Kvz(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
401 |
DO_OCEANIC_PHYS |
GM_PsiX(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
402 |
DO_OCEANIC_PHYS |
GM_PsiY(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
409 |
DO_OCEANIC_PHYS |
KPPdiffKzS(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
410 |
DO_OCEANIC_PHYS |
KPPdiffKzT(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
413 |
DO_OCEANIC_PHYS |
GGL90viscArU(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
414 |
DO_OCEANIC_PHYS |
GGL90viscArV(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
415 |
DO_OCEANIC_PHYS |
GGL90diffKr(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
448 |
DO_OCEANIC_PHYS |
DO k=Nr,1,-1 |
|
./model/src/do_oceanic_phys.F |
455 |
DO_OCEANIC_PHYS |
kkey = (itdkey-1)*Nr + k |
|
./model/src/do_oceanic_phys.F |
474 |
DO_OCEANIC_PHYS |
O rhoInSitu(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/do_oceanic_phys.F |
475 |
DO_OCEANIC_PHYS |
I k, bi, bj, myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
479 |
DO_OCEANIC_PHYS |
I iMin, iMax, jMin, jMax, k, |
|
./model/src/do_oceanic_phys.F |
480 |
DO_OCEANIC_PHYS |
I theta(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/do_oceanic_phys.F |
481 |
DO_OCEANIC_PHYS |
I salt (1-OLx,1-OLy,k,bi,bj), |
|
./model/src/do_oceanic_phys.F |
482 |
DO_OCEANIC_PHYS |
O rhoInSitu(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/do_oceanic_phys.F |
483 |
DO_OCEANIC_PHYS |
I k, bi, bj, myThid ) |
|
./model/src/do_oceanic_phys.F |
492 |
DO_OCEANIC_PHYS |
rhoInSitu(i,j,k,bi,bj) = 0. |
|
./model/src/do_oceanic_phys.F |
500 |
DO_OCEANIC_PHYS |
IF ( useGMRedi .OR. (k.GT.1 .AND. ivdc_kappa.NE.0.) |
|
./model/src/do_oceanic_phys.F |
502 |
DO_OCEANIC_PHYS |
IF (k.GT.1) THEN |
|
./model/src/do_oceanic_phys.F |
512 |
DO_OCEANIC_PHYS |
I iMin, iMax, jMin, jMax, k, |
|
./model/src/do_oceanic_phys.F |
513 |
DO_OCEANIC_PHYS |
I theta(1-OLx,1-OLy,k-1,bi,bj), |
|
./model/src/do_oceanic_phys.F |
514 |
DO_OCEANIC_PHYS |
I salt (1-OLx,1-OLy,k-1,bi,bj), |
|
./model/src/do_oceanic_phys.F |
516 |
DO_OCEANIC_PHYS |
I k-1, bi, bj, myThid ) |
|
./model/src/do_oceanic_phys.F |
524 |
DO_OCEANIC_PHYS |
rhoKp1(i,j) = rhoInSitu(i,j,k,bi,bj) |
|
./model/src/do_oceanic_phys.F |
528 |
DO_OCEANIC_PHYS |
I bi, bj, iMin, iMax, jMin, jMax, k, |
|
./model/src/do_oceanic_phys.F |
529 |
DO_OCEANIC_PHYS |
I rhoInSitu(1-OLx,1-OLy,k,bi,bj), rhoKm1, rhoKp1, |
|
./model/src/do_oceanic_phys.F |
545 |
DO_OCEANIC_PHYS |
IF (k.GT.1 .AND. ivdc_kappa.NE.0.) THEN |
|
./model/src/do_oceanic_phys.F |
550 |
DO_OCEANIC_PHYS |
I bi, bj, iMin, iMax, jMin, jMax, k, |
|
./model/src/do_oceanic_phys.F |
551 |
DO_OCEANIC_PHYS |
I rhoKm1, rhoInSitu(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/do_oceanic_phys.F |
557 |
DO_OCEANIC_PHYS |
CALL DIAGS_RHO_L( k, bi, bj, |
|
./model/src/do_oceanic_phys.F |
558 |
DO_OCEANIC_PHYS |
I rhoInSitu(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/seaice/advect.F |
166 |
ADVECT |
DO k = 1,2 |
|
./pkg/seaice/advect.F |
172 |
ADVECT |
IF ( k .EQ. 1 ) THEN |
|
./pkg/seaice/advect.F |
40 |
ADVECT |
INTEGER k |
|
./pkg/seaice/advect.F |
59 |
ADVECT |
DO k=1,2 |
|
./pkg/seaice/seaice_advection.F |
123 |
SEAICE_ADVECTION |
INTEGER i,j,k |
|
./pkg/seaice/seaice_advection.F |
224 |
SEAICE_ADVECTION |
k = 1 |
|
./pkg/seaice/seaice_advection.F |
227 |
SEAICE_ADVECTION |
kkey = (igadkey-1)*Nr + k |
|
./pkg/seaice/seaice_advection.F |
239 |
SEAICE_ADVECTION |
maskLocW(i,j)=maskW(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
240 |
SEAICE_ADVECTION |
maskLocS(i,j)=maskS(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
266 |
SEAICE_ADVECTION |
passkey = ipass + (k-1) *maxcube |
|
./pkg/seaice/seaice_advection.F |
342 |
SEAICE_ADVECTION |
CALL GAD_DST2U1_ADV_X( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
352 |
SEAICE_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_X( bi,bj,k, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
356 |
SEAICE_ADVECTION |
CALL GAD_DST3_ADV_X( bi,bj,k, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
360 |
SEAICE_ADVECTION |
CALL GAD_DST3FL_ADV_X( bi,bj,k, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
365 |
SEAICE_ADVECTION |
CALL GAD_OS7MP_ADV_X( bi,bj,k, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
541 |
SEAICE_ADVECTION |
CALL GAD_DST2U1_ADV_Y( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
551 |
SEAICE_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_Y( bi,bj,k, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
555 |
SEAICE_ADVECTION |
CALL GAD_DST3_ADV_Y( bi,bj,k, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
559 |
SEAICE_ADVECTION |
CALL GAD_DST3FL_ADV_Y( bi,bj,k, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
564 |
SEAICE_ADVECTION |
CALL GAD_OS7MP_ADV_Y( bi,bj,k, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
717 |
SEAICE_ADVECTION |
CALL DIAGNOSTICS_FILL(afx,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/seaice/seaice_advection.F |
719 |
SEAICE_ADVECTION |
CALL DIAGNOSTICS_FILL(afy,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/seaice/seaice_advection.F |
726 |
SEAICE_ADVECTION |
& .AND. k.LE.3 .AND. myIter.EQ.1+nIter0 |
|
./pkg/seaice/seaice_advection.F |
730 |
SEAICE_ADVECTION |
& afx,afy, k, standardMessageUnit,bi,bj,myThid ) |
|
./pkg/seaice/seaice_calc_strainrates.F |
114 |
SEAICE_CALC_STRAINRATES |
hFacU = _maskW(i,j,k,bi,bj) - _maskW(i,j-1,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
115 |
SEAICE_CALC_STRAINRATES |
hFacV = _maskS(i,j,k,bi,bj) - _maskS(i-1,j,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
121 |
SEAICE_CALC_STRAINRATES |
& *maskC(I ,J ,k,bi,bj)*maskC(I-1,J ,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
122 |
SEAICE_CALC_STRAINRATES |
& *maskC(I ,J-1,k,bi,bj)*maskC(I-1,J-1,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
55 |
SEAICE_CALC_STRAINRATES |
INTEGER k |
|
./pkg/seaice/seaice_calc_strainrates.F |
66 |
SEAICE_CALC_STRAINRATES |
k = 1 |
|
./pkg/seaice/seaice_check_pickup.F |
59 |
SEAICE_CHECK_PICKUP |
INTEGER i,j,k,bi,bj |
|
./pkg/seaice/seaice_check_pickup.F |
92 |
SEAICE_CHECK_PICKUP |
DO k=1,MULTDIM |
|
./pkg/seaice/seaice_check_pickup.F |
95 |
SEAICE_CHECK_PICKUP |
TICES(i,j,k,bi,bj) = TICE(i,j,bi,bj) |
|
./pkg/seaice/seaice_cost_concentration.F |
241 |
SEAICE_COST_CONCENTRATION |
do k = 1,nnzobs |
|
./pkg/seaice/seaice_cost_concentration.F |
244 |
SEAICE_COST_CONCENTRATION |
localobs(i,j,k,bi,bj) = spval |
|
./pkg/seaice/seaice_cost_concentration.F |
255 |
SEAICE_COST_CONCENTRATION |
do k = 1,nnzobs |
|
./pkg/seaice/seaice_cost_concentration.F |
269 |
SEAICE_COST_CONCENTRATION |
IF (localobs(i,j,k,bi,bj) .eq. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
271 |
SEAICE_COST_CONCENTRATION |
ELSEIF ((localobs(i,j,k,bi,bj).gt.0. _d 0 ) .and. |
|
./pkg/seaice/seaice_cost_concentration.F |
272 |
SEAICE_COST_CONCENTRATION |
& (localobs(i,j,k,bi,bj).lt.0.15 _d 0)) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
274 |
SEAICE_COST_CONCENTRATION |
ELSEIF ((localobs(i,j,k,bi,bj).ge.0.15 _d 0) .and. |
|
./pkg/seaice/seaice_cost_concentration.F |
275 |
SEAICE_COST_CONCENTRATION |
& (localobs(i,j,k,bi,bj).le.0.25 _d 0)) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
296 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj), localweight(i,j,bi,bj), |
|
./pkg/seaice/seaice_cost_concentration.F |
314 |
SEAICE_COST_CONCENTRATION |
do k = 1,nnzobs |
|
./pkg/seaice/seaice_cost_concentration.F |
317 |
SEAICE_COST_CONCENTRATION |
if (localobs(i,j,k,bi,bj) .LT. -1) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
333 |
SEAICE_COST_CONCENTRATION |
do k = 1,nnzobs |
|
./pkg/seaice/seaice_cost_concentration.F |
336 |
SEAICE_COST_CONCENTRATION |
cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_concentration.F |
337 |
SEAICE_COST_CONCENTRATION |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/seaice/seaice_cost_concentration.F |
338 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/seaice/seaice_cost_concentration.F |
339 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/seaice/seaice_cost_concentration.F |
340 |
SEAICE_COST_CONCENTRATION |
cmask(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_concentration.F |
346 |
SEAICE_COST_CONCENTRATION |
do k = 1,nnzobs |
|
./pkg/seaice/seaice_cost_concentration.F |
349 |
SEAICE_COST_CONCENTRATION |
localwww = localweight(i,j,bi,bj)*cmask(i,j,k) |
|
./pkg/seaice/seaice_cost_concentration.F |
352 |
SEAICE_COST_CONCENTRATION |
localwww = localModWeight(i,j,bi,bj)*cmask(i,j,k) |
|
./pkg/seaice/seaice_cost_concentration.F |
355 |
SEAICE_COST_CONCENTRATION |
junk = ( localbar(i,j,k,bi,bj) - |
|
./pkg/seaice/seaice_cost_concentration.F |
356 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj) ) |
|
./pkg/seaice/seaice_cost_concentration.F |
365 |
SEAICE_COST_CONCENTRATION |
& localbar(i,j,k,bi,bj), |
|
./pkg/seaice/seaice_cost_concentration.F |
366 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_concentration.F |
73 |
SEAICE_COST_CONCENTRATION |
integer i,j,k |
|
./pkg/seaice/seaice_cost_export.F |
31 |
SEAICE_COST_EXPORT |
integer i, j, k |
|
./pkg/seaice/seaice_cost_export.F |
49 |
SEAICE_COST_EXPORT |
do k = 1, kmaxdepth |
|
./pkg/seaice/seaice_cost_init_varia.F |
44 |
SEAICE_COST_INIT_VARIA |
integer i,j,k |
|
./pkg/seaice/seaice_cost_init_varia.F |
76 |
SEAICE_COST_INIT_VARIA |
k = 1 |
|
./pkg/seaice/seaice_cost_sss.F |
259 |
SEAICE_COST_SSS |
do k = 1,nnzobs |
|
./pkg/seaice/seaice_cost_sss.F |
262 |
SEAICE_COST_SSS |
localobs(i,j,k,bi,bj) = spval |
|
./pkg/seaice/seaice_cost_sss.F |
274 |
SEAICE_COST_SSS |
do k = 1,nnzobs |
|
./pkg/seaice/seaice_cost_sss.F |
277 |
SEAICE_COST_SSS |
if (localobs(i,j,k,bi,bj) .LT. -1) THEN |
|
./pkg/seaice/seaice_cost_sss.F |
293 |
SEAICE_COST_SSS |
do k = 1,nnzobs |
|
./pkg/seaice/seaice_cost_sss.F |
296 |
SEAICE_COST_SSS |
cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_sss.F |
297 |
SEAICE_COST_SSS |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/seaice/seaice_cost_sss.F |
298 |
SEAICE_COST_SSS |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/seaice/seaice_cost_sss.F |
299 |
SEAICE_COST_SSS |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/seaice/seaice_cost_sss.F |
300 |
SEAICE_COST_SSS |
cmask(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_sss.F |
306 |
SEAICE_COST_SSS |
do k = 1,nnzobs |
|
./pkg/seaice/seaice_cost_sss.F |
309 |
SEAICE_COST_SSS |
localwww = localweight(i,j,bi,bj)*cmask(i,j,k) |
|
./pkg/seaice/seaice_cost_sss.F |
312 |
SEAICE_COST_SSS |
if ( localobs(i,j,k,bi,bj) .GT. 0.0 .AND. |
|
./pkg/seaice/seaice_cost_sss.F |
318 |
SEAICE_COST_SSS |
junk = ( localbar(i,j,k,bi,bj) - SEAICE_clamp_salt ) |
|
./pkg/seaice/seaice_cost_sss.F |
334 |
SEAICE_COST_SSS |
& localbar(i,j,k,bi,bj), |
|
./pkg/seaice/seaice_cost_sss.F |
335 |
SEAICE_COST_SSS |
& areabar(i,j,k,bi,bj), |
|
./pkg/seaice/seaice_cost_sss.F |
336 |
SEAICE_COST_SSS |
& localobs(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_sss.F |
74 |
SEAICE_COST_SSS |
integer i,j,k |
|
./pkg/seaice/seaice_cost_sst.F |
254 |
SEAICE_COST_SST |
do k = 1,nnzobs |
|
./pkg/seaice/seaice_cost_sst.F |
257 |
SEAICE_COST_SST |
localobs(i,j,k,bi,bj) = spval |
|
./pkg/seaice/seaice_cost_sst.F |
269 |
SEAICE_COST_SST |
do k = 1,nnzobs |
|
./pkg/seaice/seaice_cost_sst.F |
272 |
SEAICE_COST_SST |
if (localobs(i,j,k,bi,bj) .LT. -1) THEN |
|
./pkg/seaice/seaice_cost_sst.F |
288 |
SEAICE_COST_SST |
do k = 1,nnzobs |
|
./pkg/seaice/seaice_cost_sst.F |
291 |
SEAICE_COST_SST |
cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_sst.F |
292 |
SEAICE_COST_SST |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/seaice/seaice_cost_sst.F |
293 |
SEAICE_COST_SST |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/seaice/seaice_cost_sst.F |
294 |
SEAICE_COST_SST |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/seaice/seaice_cost_sst.F |
295 |
SEAICE_COST_SST |
cmask(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_sst.F |
301 |
SEAICE_COST_SST |
do k = 1,nnzobs |
|
./pkg/seaice/seaice_cost_sst.F |
304 |
SEAICE_COST_SST |
localwww = localweight(i,j,bi,bj)*cmask(i,j,k) |
|
./pkg/seaice/seaice_cost_sst.F |
307 |
SEAICE_COST_SST |
if ( localobs(i,j,k,bi,bj) .GT. 0.0 .AND. |
|
./pkg/seaice/seaice_cost_sst.F |
310 |
SEAICE_COST_SST |
junk = ( localbar(i,j,k,bi,bj) - |
|
./pkg/seaice/seaice_cost_sst.F |
325 |
SEAICE_COST_SST |
& localbar(i,j,k,bi,bj), |
|
./pkg/seaice/seaice_cost_sst.F |
326 |
SEAICE_COST_SST |
& areabar(i,j,k,bi,bj), |
|
./pkg/seaice/seaice_cost_sst.F |
327 |
SEAICE_COST_SST |
& localobs(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_sst.F |
72 |
SEAICE_COST_SST |
integer i,j,k |
|
./pkg/seaice/seaice_cost_weights.F |
111 |
SEAICE_COST_WEIGHTS |
& *frame(i,j)*_hFacC(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_weights.F |
122 |
SEAICE_COST_WEIGHTS |
& *frame(i,j)*_hFacC(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_weights.F |
42 |
SEAICE_COST_WEIGHTS |
integer i,j,k |
|
./pkg/seaice/seaice_cost_weights.F |
98 |
SEAICE_COST_WEIGHTS |
k = 1 |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
46 |
SEAICE_CTRL_MAP_INI |
integer i,j,k |
|
./pkg/seaice/seaice_diagnostics_state.F |
52 |
SEAICE_DIAGNOSTICS_STATE |
INTEGER k |
|
./pkg/seaice/seaice_diagnostics_state.F |
78 |
SEAICE_DIAGNOSTICS_STATE |
DO k=1,MULTDIM |
|
./pkg/seaice/seaice_diffusion.F |
106 |
SEAICE_DIFFUSION |
CALL DIAGNOSTICS_FILL(fZon,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/seaice/seaice_diffusion.F |
108 |
SEAICE_DIFFUSION |
CALL DIAGNOSTICS_FILL(fMer,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/seaice/seaice_diffusion.F |
62 |
SEAICE_DIFFUSION |
INTEGER i, j, k |
|
./pkg/seaice/seaice_diffusion.F |
74 |
SEAICE_DIFFUSION |
k = 1 |
|
./pkg/seaice/seaice_diffusion.F |
82 |
SEAICE_DIFFUSION |
CALL GAD_DIFF_X(bi,bj,k,xA,diff1,iceFld,fZon,myThid) |
|
./pkg/seaice/seaice_diffusion.F |
84 |
SEAICE_DIFFUSION |
CALL GAD_DIFF_Y(bi,bj,k,yA,diff1,iceFld,fMer,myThid) |
|
./pkg/seaice/seaice_get_dynforcing.F |
119 |
SEAICE_GET_DYNFORCING |
& + 0.5 _d 0 * (uVel(i,j,k,bi,bj)+uVel(i+1,j,k,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
122 |
SEAICE_GET_DYNFORCING |
& + 0.5 _d 0 * (vVel(i,j,k,bi,bj)+vVel(i,j+1,k,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
163 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(uVel(i,j,k,bi,bj)+uVel(i+1,j,k,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
167 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(vVel(i,j,k,bi,bj)+vVel(i,j+1,k,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
171 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(uVel(i-1,j,k,bi,bj)+uVel(i,j,k,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
175 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(vVel(i-1,j,k,bi,bj)+vVel(i-1,j+1,k,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
181 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(uVel(i,j,k,bi,bj)+uVel(i+1,j,k,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
185 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(vVel(i,j,k,bi,bj)+vVel(i,j+1,k,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
189 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(uVel(i,j-1,k,bi,bj)+uVel(i+1,j-1,k,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
193 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(vVel(i,j-1,k,bi,bj)+vVel(i,j,k,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
56 |
SEAICE_GET_DYNFORCING |
INTEGER k |
|
./pkg/seaice/seaice_get_dynforcing.F |
70 |
SEAICE_GET_DYNFORCING |
k = 1 |
|
./pkg/seaice/seaice_init_varia.F |
261 |
SEAICE_INIT_VARIA |
DO k=1,MULTDIM |
|
./pkg/seaice/seaice_init_varia.F |
262 |
SEAICE_INIT_VARIA |
TICES(i,j,k,bi,bj)=273.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
47 |
SEAICE_INIT_VARIA |
INTEGER k |
|
./pkg/seaice/seaice_init_varia.F |
81 |
SEAICE_INIT_VARIA |
DO k=1,MULTDIM |
|
./pkg/seaice/seaice_init_varia.F |
84 |
SEAICE_INIT_VARIA |
TICES(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
144 |
SEAICE_LSR |
k = 1 |
|
./pkg/seaice/seaice_lsr.F |
303 |
SEAICE_LSR |
& / MAX(1.D0,maskC(I,J, k,bi,bj)+maskC(I-1,J, k,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
304 |
SEAICE_LSR |
& + maskC(I,J-1,k,bi,bj)+maskC(I-1,J-1,k,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
314 |
SEAICE_LSR |
& *maskC(I,J, k,bi,bj)*maskC(I-1,J, k,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
315 |
SEAICE_LSR |
& *maskC(I,J-1,k,bi,bj)*maskC(I-1,J-1,k,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
457 |
SEAICE_LSR |
& *maskC(I ,J ,k,bi,bj)*maskC(I-1,J ,k,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
458 |
SEAICE_LSR |
& *maskC(I ,J-1,k,bi,bj)*maskC(I-1,J-1,k,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
57 |
SEAICE_LSR |
INTEGER i, j, k, m, bi, bj, j1, j2, im, jm |
|
./pkg/seaice/seaice_lsr.F |
715 |
SEAICE_LSR |
& *maskC(I ,J ,k,bi,bj)*maskC(I-1,J ,k,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
716 |
SEAICE_LSR |
& *maskC(I ,J-1,k,bi,bj)*maskC(I-1,J-1,k,bi,bj) |
|
./model/src/dynamics.F |
196 |
DYNAMICS |
INTEGER k, km1, kp1, kup, kDown |
|
./model/src/dynamics.F |
304 |
DYNAMICS |
DO k=1,Nr |
|
./model/src/dynamics.F |
307 |
DYNAMICS |
KappaRU(i,j,k) = 0. _d 0 |
|
./model/src/dynamics.F |
308 |
DYNAMICS |
KappaRV(i,j,k) = 0. _d 0 |
|
./model/src/dynamics.F |
312 |
DYNAMICS |
gU(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/dynamics.F |
313 |
DYNAMICS |
gV(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/dynamics.F |
384 |
DYNAMICS |
DO k=1,Nr |
|
./model/src/dynamics.F |
387 |
DYNAMICS |
KappaRU(i,j,k) = 0. _d 0 |
|
./model/src/dynamics.F |
388 |
DYNAMICS |
KappaRV(i,j,k) = 0. _d 0 |
|
./model/src/dynamics.F |
402 |
DYNAMICS |
DO k=1,Nr |
|
./model/src/dynamics.F |
408 |
DYNAMICS |
km1 = MAX(1,k-1) |
|
./model/src/dynamics.F |
409 |
DYNAMICS |
kp1 = MIN(k+1,Nr) |
|
./model/src/dynamics.F |
410 |
DYNAMICS |
kup = 1+MOD(k+1,2) |
|
./model/src/dynamics.F |
411 |
DYNAMICS |
kDown= 1+MOD(k,2) |
|
./model/src/dynamics.F |
414 |
DYNAMICS |
kkey = (idynkey-1)*Nr + k |
|
./model/src/dynamics.F |
484 |
DYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./model/src/dynamics.F |
491 |
DYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./model/src/dynamics.F |
501 |
DYNAMICS |
& 'Um_dPHdx', k, 1, 2, bi, bj, myThid ) |
|
./model/src/dynamics.F |
503 |
DYNAMICS |
& 'Vm_dPHdy', k, 1, 2, bi, bj, myThid ) |
|
./model/src/dynamics.F |
526 |
DYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax,k,kup,kDown, |
|
./model/src/dynamics.F |
545 |
DYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax,k,kup,kDown, |
|
./model/src/dynamics.F |
554 |
DYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
50 |
SHAP_FILT_APPLY_TS |
INTEGER bi, bj, k |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
71 |
SHAP_FILT_APPLY_TS |
DO k=1, Nr |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
73 |
SHAP_FILT_APPLY_TS |
& CALL SHAP_FILT_TRACEROLD( tFld,bi,bj,k,myTime,myThid ) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
75 |
SHAP_FILT_APPLY_TS |
& CALL SHAP_FILT_TRACEROLD( sFld,bi,bj,k,myTime,myThid ) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
134 |
SHAP_FILT_APPLY_UV |
DO k=1,Nr |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
139 |
SHAP_FILT_APPLY_UV |
& Shap_tmpFld1(i ,j,k,bi,bj)*uFld(i ,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
140 |
SHAP_FILT_APPLY_UV |
& *_hFacW(i ,j, k,bi,bj)*rAw(i ,j, bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
141 |
SHAP_FILT_APPLY_UV |
& +Shap_tmpFld1(i+1,j,k,bi,bj)*uFld(i+1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
142 |
SHAP_FILT_APPLY_UV |
& *_hFacW(i+1,j,k,bi,bj)*rAw(i+1,j,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
145 |
SHAP_FILT_APPLY_UV |
& Shap_tmpFld2(i,j ,k,bi,bj)*vFld(i,j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
146 |
SHAP_FILT_APPLY_UV |
& *_hFacS(i,j ,k,bi,bj)*rAs(i,j ,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
147 |
SHAP_FILT_APPLY_UV |
& +Shap_tmpFld2(i,j+1,k,bi,bj)*vFld(i,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
148 |
SHAP_FILT_APPLY_UV |
& *_hFacS(i,j+1,k,bi,bj)*rAs(i,j+1,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
153 |
SHAP_FILT_APPLY_UV |
& k,1,2,bi,bj,myThid) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
54 |
SHAP_FILT_APPLY_UV |
INTEGER bi, bj, k |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
60 |
SHAP_FILT_APPLY_UV |
INTEGER bi, bj, k, i, j |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
74 |
SHAP_FILT_APPLY_UV |
DO k=1, Nr |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
75 |
SHAP_FILT_APPLY_UV |
CALL SHAP_FILT_U( uFld,bi,bj,k,myTime,myThid ) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
76 |
SHAP_FILT_APPLY_UV |
CALL SHAP_FILT_V( vFld,bi,bj,k,myTime,myThid ) |
|
./pkg/shap_filt/shap_filt_computvort.F |
105 |
SHAP_FILT_COMPUTVORT |
maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
106 |
SHAP_FILT_COMPUTVORT |
& +maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
119 |
SHAP_FILT_COMPUTVORT |
maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
120 |
SHAP_FILT_COMPUTVORT |
& +maskS(i-1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
12 |
SHAP_FILT_COMPUTVORT |
I k, bi,bj, myThid ) |
|
./pkg/shap_filt/shap_filt_computvort.F |
141 |
SHAP_FILT_COMPUTVORT |
maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
142 |
SHAP_FILT_COMPUTVORT |
& +maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
163 |
SHAP_FILT_COMPUTVORT |
maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
164 |
SHAP_FILT_COMPUTVORT |
& +maskS(i-1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_computvort.F |
44 |
SHAP_FILT_COMPUTVORT |
INTEGER k, bi,bj |
|
./pkg/shap_filt/shap_filt_computvort.F |
75 |
SHAP_FILT_COMPUTVORT |
maskZ = (maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj)) |
|
./pkg/shap_filt/shap_filt_computvort.F |
76 |
SHAP_FILT_COMPUTVORT |
& *(maskS(i,j,k,bi,bj)+maskS(i-1,j,k,bi,bj)) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
32 |
SHAP_FILT_RELVORT3 |
INTEGER bi,bj,k |
|
./pkg/shap_filt/shap_filt_relvort3.F |
8 |
SHAP_FILT_RELVORT3 |
I bi,bj,k, |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
111 |
SHAP_FILT_TRACER_S1 |
tmpScal=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
112 |
SHAP_FILT_TRACER_S1 |
field(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
113 |
SHAP_FILT_TRACER_S1 |
& -0.5*tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
114 |
SHAP_FILT_TRACER_S1 |
tmpFld(i,j,k,bi,bj)=tmpScal |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
139 |
SHAP_FILT_TRACER_S1 |
& ( tmpFld(i,j+1,k,bi,bj)-tmpFld(i, j ,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
140 |
SHAP_FILT_TRACER_S1 |
& *_maskS(i,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
141 |
SHAP_FILT_TRACER_S1 |
& -( tmpFld(i, j ,k,bi,bj)-tmpFld(i,j-1,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
142 |
SHAP_FILT_TRACER_S1 |
& *_maskS(i,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
148 |
SHAP_FILT_TRACER_S1 |
tmpFld(i,j,k,bi,bj) = tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
164 |
SHAP_FILT_TRACER_S1 |
field(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
165 |
SHAP_FILT_TRACER_S1 |
& -0.5*tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
61 |
SHAP_FILT_TRACER_S1 |
tmpFld(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
86 |
SHAP_FILT_TRACER_S1 |
& ( tmpFld(i+1,j,k,bi,bj)-tmpFld( i ,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
87 |
SHAP_FILT_TRACER_S1 |
& *_maskW(i+1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
88 |
SHAP_FILT_TRACER_S1 |
& -( tmpFld( i ,j,k,bi,bj)-tmpFld(i-1,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
89 |
SHAP_FILT_TRACER_S1 |
& *_maskW(i,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
95 |
SHAP_FILT_TRACER_S1 |
tmpFld(i,j,k,bi,bj) = tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
108 |
SHAP_FILT_TRACER_S2 |
DO k=1,kSize |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
118 |
SHAP_FILT_TRACER_S2 |
& tmpFld(1-Olx,1-Oly,k,bi,bj), |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
127 |
SHAP_FILT_TRACER_S2 |
& ( tmpFld(i,j,k,bi,bj)-tmpFld(i-1,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
128 |
SHAP_FILT_TRACER_S2 |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
136 |
SHAP_FILT_TRACER_S2 |
& ( tmpFld(i,j,k,bi,bj)-tmpFld(i-1,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
137 |
SHAP_FILT_TRACER_S2 |
& *_hFacW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
149 |
SHAP_FILT_TRACER_S2 |
& tmpFld(1-Olx,1-Oly,k,bi,bj), |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
158 |
SHAP_FILT_TRACER_S2 |
& ( tmpFld(i,j,k,bi,bj)-tmpFld(i,j-1,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
159 |
SHAP_FILT_TRACER_S2 |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
167 |
SHAP_FILT_TRACER_S2 |
& ( tmpFld(i,j,k,bi,bj)-tmpFld(i,j-1,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
168 |
SHAP_FILT_TRACER_S2 |
& *_hFacS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
186 |
SHAP_FILT_TRACER_S2 |
tmpFld(i,j,k,bi,bj) = -0.125*tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
193 |
SHAP_FILT_TRACER_S2 |
tmpFld(i,j,k,bi,bj) = -0.125*tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
194 |
SHAP_FILT_TRACER_S2 |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
200 |
SHAP_FILT_TRACER_S2 |
tmpFld(i,j,k,bi,bj) = -0.125*tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
201 |
SHAP_FILT_TRACER_S2 |
& *recip_hFacC(i,j,k,bi,bj)*recip_rA(i,j,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
218 |
SHAP_FILT_TRACER_S2 |
DO k=1,kSize |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
221 |
SHAP_FILT_TRACER_S2 |
field(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
222 |
SHAP_FILT_TRACER_S2 |
& -tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
223 |
SHAP_FILT_TRACER_S2 |
tmpFld(i,j,k,bi,bj)= -tmpFld(i,j,k,bi,bj)/Shap_Trtau |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
61 |
SHAP_FILT_TRACER_S2 |
INTEGER bi,bj,k,i,j,n |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
80 |
SHAP_FILT_TRACER_S2 |
DO k=1,kSize |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
83 |
SHAP_FILT_TRACER_S2 |
tmpFld(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
110 |
SHAP_FILT_TRACER_S4 |
field(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
111 |
SHAP_FILT_TRACER_S4 |
& -tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
112 |
SHAP_FILT_TRACER_S4 |
tmpFld(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
137 |
SHAP_FILT_TRACER_S4 |
& ( tmpFld(i,j+1,k,bi,bj)-tmpFld(i, j ,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
138 |
SHAP_FILT_TRACER_S4 |
& *_maskS(i,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
139 |
SHAP_FILT_TRACER_S4 |
& -( tmpFld(i, j ,k,bi,bj)-tmpFld(i,j-1,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
140 |
SHAP_FILT_TRACER_S4 |
& *_maskS(i,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
146 |
SHAP_FILT_TRACER_S4 |
tmpFld(i,j,k,bi,bj) = tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
162 |
SHAP_FILT_TRACER_S4 |
field(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
163 |
SHAP_FILT_TRACER_S4 |
& -tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
60 |
SHAP_FILT_TRACER_S4 |
tmpFld(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
85 |
SHAP_FILT_TRACER_S4 |
& ( tmpFld(i+1,j,k,bi,bj)-tmpFld( i ,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
86 |
SHAP_FILT_TRACER_S4 |
& *_maskW(i+1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
87 |
SHAP_FILT_TRACER_S4 |
& -( tmpFld( i ,j,k,bi,bj)-tmpFld(i-1,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
88 |
SHAP_FILT_TRACER_S4 |
& *_maskW(i,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
94 |
SHAP_FILT_TRACER_S4 |
tmpFld(i,j,k,bi,bj) = tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
38 |
SHAP_FILT_TRACEROLD |
tmpFldX(i,j,1) = field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
50 |
SHAP_FILT_TRACEROLD |
& *_maskW(i+1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
52 |
SHAP_FILT_TRACEROLD |
& *_maskW(i,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
60 |
SHAP_FILT_TRACEROLD |
tmpFldX(i,j,N2) = field(i,j,k,bi,bj) - tmpFldX(i,j,N2) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
67 |
SHAP_FILT_TRACEROLD |
tmpFldY(i,j,1) = field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
80 |
SHAP_FILT_TRACEROLD |
& *_maskS(i,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
82 |
SHAP_FILT_TRACEROLD |
& *_maskS(i,j,k,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
91 |
SHAP_FILT_TRACEROLD |
field(i,j,k,bi,bj) = tmpFldX(i,j,N2) - tmpFldY(i,j,N2) |
|
./pkg/shap_filt/shap_filt_tracerold.F |
97 |
SHAP_FILT_TRACEROLD |
field(i,j,k,bi,bj) = field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
101 |
SHAP_FILT_U |
uVel(i,j,k,bi,bj) = tmpFldX(i,j,N2) - tmpFldY(i,j,N2) |
|
./pkg/shap_filt/shap_filt_u.F |
107 |
SHAP_FILT_U |
uVel(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
37 |
SHAP_FILT_U |
tmpFldX(i,j,1) = uVel(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
38 |
SHAP_FILT_U |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
51 |
SHAP_FILT_U |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
59 |
SHAP_FILT_U |
maskZ(i,j) = _maskS(i-1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
60 |
SHAP_FILT_U |
& *_maskS( i ,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
67 |
SHAP_FILT_U |
tmpFldX(i,j,N2) = uVel(i,j,k,bi,bj) - tmpFldX(i,j,N2) |
|
./pkg/shap_filt/shap_filt_u.F |
74 |
SHAP_FILT_U |
tmpFldY(i,j,1) = uVel(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
75 |
SHAP_FILT_U |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_u.F |
92 |
SHAP_FILT_U |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
100 |
SHAP_FILT_UV_S1 |
& - 2.*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
101 |
SHAP_FILT_UV_S1 |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
107 |
SHAP_FILT_UV_S1 |
tmpFldU(i,j,k,bi,bj) = tmpGrdU(i,j) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
115 |
SHAP_FILT_UV_S1 |
& tmpFldV(i,j-1,k,bi,bj) + tmpFldV(i,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
116 |
SHAP_FILT_UV_S1 |
& - 2.*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
117 |
SHAP_FILT_UV_S1 |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
123 |
SHAP_FILT_UV_S1 |
tmpFldV(i,j,k,bi,bj) = tmpGrdV(i,j) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
139 |
SHAP_FILT_UV_S1 |
tmpScal = uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
140 |
SHAP_FILT_UV_S1 |
uFld(i,j,k,bi,bj) = uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
141 |
SHAP_FILT_UV_S1 |
& -0.5*tmpFldU(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
142 |
SHAP_FILT_UV_S1 |
tmpFldU(i,j,k,bi,bj) = tmpScal*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
147 |
SHAP_FILT_UV_S1 |
tmpScal = vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
148 |
SHAP_FILT_UV_S1 |
vFld(i,j,k,bi,bj) = vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
149 |
SHAP_FILT_UV_S1 |
& -0.5*tmpFldV(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
150 |
SHAP_FILT_UV_S1 |
tmpFldV(i,j,k,bi,bj) = tmpScal*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
175 |
SHAP_FILT_UV_S1 |
maskZj=_maskS(i-1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
176 |
SHAP_FILT_UV_S1 |
& *_maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
177 |
SHAP_FILT_UV_S1 |
maskZp=_maskS(i-1,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
178 |
SHAP_FILT_UV_S1 |
& *_maskS( i ,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
180 |
SHAP_FILT_UV_S1 |
& (tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
181 |
SHAP_FILT_UV_S1 |
& -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
182 |
SHAP_FILT_UV_S1 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
183 |
SHAP_FILT_UV_S1 |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
190 |
SHAP_FILT_UV_S1 |
maskZj=maskS(i-1, j ,k,bi,bj)*maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
191 |
SHAP_FILT_UV_S1 |
maskZp=maskS(i-1,j+1,k,bi,bj)*maskS( i ,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
193 |
SHAP_FILT_UV_S1 |
& (tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
194 |
SHAP_FILT_UV_S1 |
& -(tmpFldU(i, j ,k,bi,bj)-0*tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
195 |
SHAP_FILT_UV_S1 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
196 |
SHAP_FILT_UV_S1 |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
198 |
SHAP_FILT_UV_S1 |
maskZj=maskS(i-1, j ,k,bi,bj)*maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
199 |
SHAP_FILT_UV_S1 |
maskZp=maskS(i-1,j+1,k,bi,bj)*maskS( i ,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
201 |
SHAP_FILT_UV_S1 |
& (0*tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
202 |
SHAP_FILT_UV_S1 |
& -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
203 |
SHAP_FILT_UV_S1 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
204 |
SHAP_FILT_UV_S1 |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
210 |
SHAP_FILT_UV_S1 |
tmpFldU(i,j,k,bi,bj) = tmpGrdU(i,j) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
217 |
SHAP_FILT_UV_S1 |
maskZj=_maskW( i ,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
218 |
SHAP_FILT_UV_S1 |
& *_maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
219 |
SHAP_FILT_UV_S1 |
maskZp=_maskW(i+1,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
220 |
SHAP_FILT_UV_S1 |
& *_maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
222 |
SHAP_FILT_UV_S1 |
& (tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
223 |
SHAP_FILT_UV_S1 |
& -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
224 |
SHAP_FILT_UV_S1 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
225 |
SHAP_FILT_UV_S1 |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
232 |
SHAP_FILT_UV_S1 |
maskZj=maskW( i ,j-1,k,bi,bj)*maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
233 |
SHAP_FILT_UV_S1 |
maskZp=maskW(i+1,j-1,k,bi,bj)*maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
235 |
SHAP_FILT_UV_S1 |
& (tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
236 |
SHAP_FILT_UV_S1 |
& -(tmpFldV( i ,j,k,bi,bj)-0*tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
237 |
SHAP_FILT_UV_S1 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
238 |
SHAP_FILT_UV_S1 |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
240 |
SHAP_FILT_UV_S1 |
maskZj=maskW( i ,j-1,k,bi,bj)*maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
241 |
SHAP_FILT_UV_S1 |
maskZp=maskW(i+1,j-1,k,bi,bj)*maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
243 |
SHAP_FILT_UV_S1 |
& (0*tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
244 |
SHAP_FILT_UV_S1 |
& -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
245 |
SHAP_FILT_UV_S1 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
246 |
SHAP_FILT_UV_S1 |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
252 |
SHAP_FILT_UV_S1 |
tmpFldV(i,j,k,bi,bj) = tmpGrdV(i,j) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
268 |
SHAP_FILT_UV_S1 |
uFld(i,j,k,bi,bj) = uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
269 |
SHAP_FILT_UV_S1 |
& -0.5*tmpFldU(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
274 |
SHAP_FILT_UV_S1 |
vFld(i,j,k,bi,bj) = vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
275 |
SHAP_FILT_UV_S1 |
& -0.5*tmpFldV(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
53 |
SHAP_FILT_UV_S1 |
INTEGER bi,bj,k,i,j,N |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
70 |
SHAP_FILT_UV_S1 |
tmpFldU(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
71 |
SHAP_FILT_UV_S1 |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
72 |
SHAP_FILT_UV_S1 |
tmpFldV(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
73 |
SHAP_FILT_UV_S1 |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
99 |
SHAP_FILT_UV_S1 |
& tmpFldU(i-1,j,k,bi,bj) + tmpFldU(i+1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
112 |
SHAP_FILT_UV_S2 |
DO k=1,kSize |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
116 |
SHAP_FILT_UV_S2 |
& CALL MOM_CALC_HFACZ(bi,bj,k,hFacZ,r_hFacZ,myThid) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
120 |
SHAP_FILT_UV_S2 |
CALL MOM_CALC_HDIV(bi,bj,k,2, |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
121 |
SHAP_FILT_UV_S2 |
I tmpFldU(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
122 |
SHAP_FILT_UV_S2 |
I tmpFldV(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
125 |
SHAP_FILT_UV_S2 |
CALL SHAP_FILT_RELVORT3(bi,bj,k, |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
126 |
SHAP_FILT_UV_S2 |
I tmpFldU(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
127 |
SHAP_FILT_UV_S2 |
I tmpFldV(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
130 |
SHAP_FILT_UV_S2 |
CALL MOM_CALC_RELVORT3(bi,bj,k, |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
131 |
SHAP_FILT_UV_S2 |
I tmpFldU(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
132 |
SHAP_FILT_UV_S2 |
I tmpFldV(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
139 |
SHAP_FILT_UV_S2 |
hDiv(i,j)=(tmpFldU(i+1,j,k,bi,bj)-tmpFldU(i,j,k,bi,bj)) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
140 |
SHAP_FILT_UV_S2 |
& +(tmpFldV(i,j+1,k,bi,bj)-tmpFldV(i,j,k,bi,bj)) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
144 |
SHAP_FILT_UV_S2 |
I tmpFldU(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
145 |
SHAP_FILT_UV_S2 |
I tmpFldV(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
147 |
SHAP_FILT_UV_S2 |
I k,bi,bj,myThid) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
166 |
SHAP_FILT_UV_S2 |
I bi,bj,k,hDiv,vort3,hFacZ, |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
167 |
SHAP_FILT_UV_S2 |
O tmpFldU(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
168 |
SHAP_FILT_UV_S2 |
O tmpFldV(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
173 |
SHAP_FILT_UV_S2 |
tmpFldU(i,j,k,bi,bj) = -0.125 _d 0*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
174 |
SHAP_FILT_UV_S2 |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
175 |
SHAP_FILT_UV_S2 |
tmpFldV(i,j,k,bi,bj) = -0.125 _d 0*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
176 |
SHAP_FILT_UV_S2 |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
182 |
SHAP_FILT_UV_S2 |
tmpFldU(i,j,k,bi,bj) = -0.125 _d 0*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
183 |
SHAP_FILT_UV_S2 |
& *rAw(i,j,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
184 |
SHAP_FILT_UV_S2 |
tmpFldV(i,j,k,bi,bj) = -0.125 _d 0*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
185 |
SHAP_FILT_UV_S2 |
& *rAs(i,j,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
191 |
SHAP_FILT_UV_S2 |
tmpFldU(i,j,k,bi,bj) = -0.125 _d 0*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
192 |
SHAP_FILT_UV_S2 |
& *Shap_uvLength*Shap_uvLength*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
193 |
SHAP_FILT_UV_S2 |
tmpFldV(i,j,k,bi,bj) = -0.125 _d 0*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
194 |
SHAP_FILT_UV_S2 |
& *Shap_uvLength*Shap_uvLength*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
210 |
SHAP_FILT_UV_S2 |
tmpFldU(i,j,k,bi,bj) = -0.125 _d 0* |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
213 |
SHAP_FILT_UV_S2 |
& )*maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
226 |
SHAP_FILT_UV_S2 |
tmpFldV(i,j,k,bi,bj) = -0.125 _d 0* |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
229 |
SHAP_FILT_UV_S2 |
& )*maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
247 |
SHAP_FILT_UV_S2 |
DO k=1,kSize |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
250 |
SHAP_FILT_UV_S2 |
uFld(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
251 |
SHAP_FILT_UV_S2 |
& -tmpFldU(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
252 |
SHAP_FILT_UV_S2 |
tmpFldU(i,j,k,bi,bj)= -tmpFldU(i,j,k,bi,bj)/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
257 |
SHAP_FILT_UV_S2 |
vFld(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
258 |
SHAP_FILT_UV_S2 |
& -tmpFldV(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
259 |
SHAP_FILT_UV_S2 |
tmpFldV(i,j,k,bi,bj)= -tmpFldV(i,j,k,bi,bj)/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
67 |
SHAP_FILT_UV_S2 |
INTEGER bi,bj,k,i,j,n |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
87 |
SHAP_FILT_UV_S2 |
DO k=1,kSize |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
90 |
SHAP_FILT_UV_S2 |
tmpFldU(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
91 |
SHAP_FILT_UV_S2 |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
92 |
SHAP_FILT_UV_S2 |
tmpFldV(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
93 |
SHAP_FILT_UV_S2 |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
100 |
SHAP_FILT_UV_S2C |
maskZj=_maskS(i-1, j ,k,bi,bj)*_maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
101 |
SHAP_FILT_UV_S2C |
maskZp=_maskS(i-1,j+1,k,bi,bj)*_maskS( i ,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
103 |
SHAP_FILT_UV_S2C |
& tmpFldU(i-1,j,k,bi,bj) + tmpFldU(i+1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
104 |
SHAP_FILT_UV_S2C |
& - 2.*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
105 |
SHAP_FILT_UV_S2C |
& +(tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
106 |
SHAP_FILT_UV_S2C |
& -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
107 |
SHAP_FILT_UV_S2C |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
114 |
SHAP_FILT_UV_S2C |
maskZj=_maskS(i-1, j ,k,bi,bj)*_maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
115 |
SHAP_FILT_UV_S2C |
maskZp=_maskS(i-1,j+1,k,bi,bj)*_maskS( i ,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
117 |
SHAP_FILT_UV_S2C |
& tmpFldU(i-1,j,k,bi,bj) + tmpFldU(i+1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
118 |
SHAP_FILT_UV_S2C |
& - 2.*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
119 |
SHAP_FILT_UV_S2C |
& +(tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
120 |
SHAP_FILT_UV_S2C |
& -(tmpFldU(i,j,k,bi,bj)-0*tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
121 |
SHAP_FILT_UV_S2C |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
123 |
SHAP_FILT_UV_S2C |
maskZj=_maskS(i-1, j ,k,bi,bj)*_maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
124 |
SHAP_FILT_UV_S2C |
maskZp=_maskS(i-1,j+1,k,bi,bj)*_maskS( i ,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
126 |
SHAP_FILT_UV_S2C |
& tmpFldU(i-1,j,k,bi,bj) + tmpFldU(i+1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
127 |
SHAP_FILT_UV_S2C |
& - 2.*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
128 |
SHAP_FILT_UV_S2C |
& +(0*tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i,j,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
129 |
SHAP_FILT_UV_S2C |
& -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
130 |
SHAP_FILT_UV_S2C |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
136 |
SHAP_FILT_UV_S2C |
tmpFldU(i,j,k,bi,bj) = |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
137 |
SHAP_FILT_UV_S2C |
& -0.125 _d 0*tmpGrdU(i,j)*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
144 |
SHAP_FILT_UV_S2C |
maskZj=_maskW( i ,j-1,k,bi,bj)*_maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
145 |
SHAP_FILT_UV_S2C |
maskZp=_maskW(i+1,j-1,k,bi,bj)*_maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
147 |
SHAP_FILT_UV_S2C |
& tmpFldV(i,j-1,k,bi,bj) + tmpFldV(i,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
148 |
SHAP_FILT_UV_S2C |
& - 2.*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
149 |
SHAP_FILT_UV_S2C |
& +(tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
150 |
SHAP_FILT_UV_S2C |
& -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
151 |
SHAP_FILT_UV_S2C |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
158 |
SHAP_FILT_UV_S2C |
maskZj=_maskW( i ,j-1,k,bi,bj)*_maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
159 |
SHAP_FILT_UV_S2C |
maskZp=_maskW(i+1,j-1,k,bi,bj)*_maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
161 |
SHAP_FILT_UV_S2C |
& tmpFldV(i,j-1,k,bi,bj) + tmpFldV(i,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
162 |
SHAP_FILT_UV_S2C |
& - 2.*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
163 |
SHAP_FILT_UV_S2C |
& +(tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
164 |
SHAP_FILT_UV_S2C |
& -(tmpFldV(i,j,k,bi,bj)-0*tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
165 |
SHAP_FILT_UV_S2C |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
167 |
SHAP_FILT_UV_S2C |
maskZj=_maskW( i ,j-1,k,bi,bj)*_maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
168 |
SHAP_FILT_UV_S2C |
maskZp=_maskW(i+1,j-1,k,bi,bj)*_maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
170 |
SHAP_FILT_UV_S2C |
& tmpFldV(i,j-1,k,bi,bj) + tmpFldV(i,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
171 |
SHAP_FILT_UV_S2C |
& - 2.*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
172 |
SHAP_FILT_UV_S2C |
& +(0*tmpFldV(i+1,j,k,bi,bj)-tmpFldV(i,j,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
173 |
SHAP_FILT_UV_S2C |
& -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
174 |
SHAP_FILT_UV_S2C |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
180 |
SHAP_FILT_UV_S2C |
tmpFldV(i,j,k,bi,bj) = |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
181 |
SHAP_FILT_UV_S2C |
& -0.125 _d 0*tmpGrdV(i,j)*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
197 |
SHAP_FILT_UV_S2C |
DO k=1,kSize |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
200 |
SHAP_FILT_UV_S2C |
uFld(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
201 |
SHAP_FILT_UV_S2C |
& -tmpFldU(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
202 |
SHAP_FILT_UV_S2C |
tmpFldU(i,j,k,bi,bj)= -tmpFldU(i,j,k,bi,bj)/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
207 |
SHAP_FILT_UV_S2C |
vFld(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
208 |
SHAP_FILT_UV_S2C |
& -tmpFldV(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
209 |
SHAP_FILT_UV_S2C |
tmpFldV(i,j,k,bi,bj)= -tmpFldV(i,j,k,bi,bj)/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
53 |
SHAP_FILT_UV_S2C |
INTEGER bi,bj,k,i,j,N |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
66 |
SHAP_FILT_UV_S2C |
DO k=1,kSize |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
69 |
SHAP_FILT_UV_S2C |
tmpFldU(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
70 |
SHAP_FILT_UV_S2C |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
71 |
SHAP_FILT_UV_S2C |
tmpFldV(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
72 |
SHAP_FILT_UV_S2C |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
95 |
SHAP_FILT_UV_S2C |
DO k=1,kSize |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
100 |
SHAP_FILT_UV_S4 |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
106 |
SHAP_FILT_UV_S4 |
tmpFldU(i,j,k,bi,bj) = tmpGrdU(i,j) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
114 |
SHAP_FILT_UV_S4 |
& tmpFldV(i,j-1,k,bi,bj) + tmpFldV(i,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
115 |
SHAP_FILT_UV_S4 |
& - 2.*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
116 |
SHAP_FILT_UV_S4 |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
122 |
SHAP_FILT_UV_S4 |
tmpFldV(i,j,k,bi,bj) = tmpGrdV(i,j) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
138 |
SHAP_FILT_UV_S4 |
uFld(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
139 |
SHAP_FILT_UV_S4 |
& -tmpFldU(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
140 |
SHAP_FILT_UV_S4 |
tmpFldU(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
145 |
SHAP_FILT_UV_S4 |
vFld(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
146 |
SHAP_FILT_UV_S4 |
& -tmpFldV(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
147 |
SHAP_FILT_UV_S4 |
tmpFldV(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
172 |
SHAP_FILT_UV_S4 |
maskZj=_maskS(i-1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
173 |
SHAP_FILT_UV_S4 |
& *_maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
174 |
SHAP_FILT_UV_S4 |
maskZp=_maskS(i-1,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
175 |
SHAP_FILT_UV_S4 |
& *_maskS( i ,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
177 |
SHAP_FILT_UV_S4 |
& (tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
178 |
SHAP_FILT_UV_S4 |
& -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
179 |
SHAP_FILT_UV_S4 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
180 |
SHAP_FILT_UV_S4 |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
187 |
SHAP_FILT_UV_S4 |
maskZj=maskS(i-1, j ,k,bi,bj)*maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
188 |
SHAP_FILT_UV_S4 |
maskZp=maskS(i-1,j+1,k,bi,bj)*maskS( i ,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
190 |
SHAP_FILT_UV_S4 |
& (tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
191 |
SHAP_FILT_UV_S4 |
& -(tmpFldU(i, j ,k,bi,bj)-0*tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
192 |
SHAP_FILT_UV_S4 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
193 |
SHAP_FILT_UV_S4 |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
197 |
SHAP_FILT_UV_S4 |
maskZj=maskS(i-1, j ,k,bi,bj)*maskS( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
198 |
SHAP_FILT_UV_S4 |
maskZp=maskS(i-1,j+1,k,bi,bj)*maskS( i ,j+1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
200 |
SHAP_FILT_UV_S4 |
& (0*tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
201 |
SHAP_FILT_UV_S4 |
& -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
202 |
SHAP_FILT_UV_S4 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
203 |
SHAP_FILT_UV_S4 |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
209 |
SHAP_FILT_UV_S4 |
tmpFldU(i,j,k,bi,bj) = tmpGrdU(i,j) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
216 |
SHAP_FILT_UV_S4 |
maskZj=_maskW( i ,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
217 |
SHAP_FILT_UV_S4 |
& *_maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
218 |
SHAP_FILT_UV_S4 |
maskZp=_maskW(i+1,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
219 |
SHAP_FILT_UV_S4 |
& *_maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
221 |
SHAP_FILT_UV_S4 |
& (tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
222 |
SHAP_FILT_UV_S4 |
& -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
223 |
SHAP_FILT_UV_S4 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
224 |
SHAP_FILT_UV_S4 |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
231 |
SHAP_FILT_UV_S4 |
maskZj=maskW( i ,j-1,k,bi,bj)*maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
232 |
SHAP_FILT_UV_S4 |
maskZp=maskW(i+1,j-1,k,bi,bj)*maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
234 |
SHAP_FILT_UV_S4 |
& (tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
235 |
SHAP_FILT_UV_S4 |
& -(tmpFldV( i ,j,k,bi,bj)-0*tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
236 |
SHAP_FILT_UV_S4 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
237 |
SHAP_FILT_UV_S4 |
& -2.*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
238 |
SHAP_FILT_UV_S4 |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
242 |
SHAP_FILT_UV_S4 |
maskZj=maskW( i ,j-1,k,bi,bj)*maskW( i , j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
243 |
SHAP_FILT_UV_S4 |
maskZp=maskW(i+1,j-1,k,bi,bj)*maskW(i+1, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
245 |
SHAP_FILT_UV_S4 |
& (0*tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
246 |
SHAP_FILT_UV_S4 |
& -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
247 |
SHAP_FILT_UV_S4 |
& -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
248 |
SHAP_FILT_UV_S4 |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
254 |
SHAP_FILT_UV_S4 |
tmpFldV(i,j,k,bi,bj) = tmpGrdV(i,j) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
270 |
SHAP_FILT_UV_S4 |
uFld(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
271 |
SHAP_FILT_UV_S4 |
& -tmpFldU(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
276 |
SHAP_FILT_UV_S4 |
vFld(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
277 |
SHAP_FILT_UV_S4 |
& -tmpFldV(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
53 |
SHAP_FILT_UV_S4 |
INTEGER bi,bj,k,i,j,N |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
69 |
SHAP_FILT_UV_S4 |
tmpFldU(i,j,k,bi,bj)=uFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
70 |
SHAP_FILT_UV_S4 |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
71 |
SHAP_FILT_UV_S4 |
tmpFldV(i,j,k,bi,bj)=vFld(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
72 |
SHAP_FILT_UV_S4 |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
98 |
SHAP_FILT_UV_S4 |
& tmpFldU(i-1,j,k,bi,bj) + tmpFldU(i+1,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
99 |
SHAP_FILT_UV_S4 |
& - 2.*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_v.F |
101 |
SHAP_FILT_V |
vVel(i,j,k,bi,bj) = tmpFldX(i,j,N2) - tmpFldY(i,j,N2) |
|
./pkg/shap_filt/shap_filt_v.F |
107 |
SHAP_FILT_V |
vVel(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_v.F |
38 |
SHAP_FILT_V |
maskZ(i,j) = _maskW(i,j-1,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_v.F |
39 |
SHAP_FILT_V |
& *_maskW(i, j ,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_v.F |
45 |
SHAP_FILT_V |
tmpFldX(i,j,1) = vVel(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_v.F |
46 |
SHAP_FILT_V |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_v.F |
62 |
SHAP_FILT_V |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_v.F |
70 |
SHAP_FILT_V |
tmpFldX(i,j,N2) = vVel(i,j,k,bi,bj) - tmpFldX(i,j,N2) |
|
./pkg/shap_filt/shap_filt_v.F |
77 |
SHAP_FILT_V |
tmpFldY(i,j,1) = vVel(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_v.F |
78 |
SHAP_FILT_V |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_v.F |
92 |
SHAP_FILT_V |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/shelfice/shelfice_u_drag.F |
12 |
SHELFICE_U_DRAG |
I bi,bj,k, |
|
./pkg/shelfice/shelfice_u_drag.F |
39 |
SHELFICE_U_DRAG |
INTEGER bi,bj,k |
|
./pkg/shelfice/shelfice_u_drag.F |
61 |
SHELFICE_U_DRAG |
kUp = max(k-1,kTop) |
|
./pkg/shelfice/shelfice_u_drag.F |
62 |
SHELFICE_U_DRAG |
kUpC = k |
|
./pkg/shelfice/shelfice_u_drag.F |
65 |
SHELFICE_U_DRAG |
kUp = min(k+1,kTop) |
|
./pkg/shelfice/shelfice_u_drag.F |
77 |
SHELFICE_U_DRAG |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_u_drag.F |
84 |
SHELFICE_U_DRAG |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_u_drag.F |
93 |
SHELFICE_U_DRAG |
CALL DIAGNOSTICS_FILL(uDragTerms,'USHIDrag',k,1,2,bi,bj, |
|
./pkg/shelfice/shelfice_update_masks.F |
87 |
SHELFICE_UPDATE_MASKS |
hFacMnSz=max( hFacMin, min(hFacMinDr*recip_drF(k),1. _d 0) ) |
|
./pkg/shelfice/shelfice_update_masks.F |
91 |
SHELFICE_UPDATE_MASKS |
hFacCtmp = (rF(k)-R_shelfIce(I,J,bi,bj))*recip_drF(K) |
|
./pkg/shelfice/shelfice_v_drag.F |
12 |
SHELFICE_V_DRAG |
I bi,bj,k, |
|
./pkg/shelfice/shelfice_v_drag.F |
39 |
SHELFICE_V_DRAG |
INTEGER bi,bj,k |
|
./pkg/shelfice/shelfice_v_drag.F |
61 |
SHELFICE_V_DRAG |
kUp = max(k-1,kTop) |
|
./pkg/shelfice/shelfice_v_drag.F |
62 |
SHELFICE_V_DRAG |
kUpC = k |
|
./pkg/shelfice/shelfice_v_drag.F |
65 |
SHELFICE_V_DRAG |
kUp = min(k+1,kTop) |
|
./pkg/shelfice/shelfice_v_drag.F |
77 |
SHELFICE_V_DRAG |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_v_drag.F |
84 |
SHELFICE_V_DRAG |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_v_drag.F |
93 |
SHELFICE_V_DRAG |
CALL DIAGNOSTICS_FILL(vDragTerms,'VSHIDrag',k,1,2,bi,bj,myThid) |
|
./model/src/find_alpha.F |
11 |
FIND_ALPHA |
I bi, bj, iMin, iMax, jMin, jMax, k, kRef, |
|
./model/src/find_alpha.F |
121 |
FIND_ALPHA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
127 |
FIND_ALPHA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
135 |
FIND_ALPHA |
t1 = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
139 |
FIND_ALPHA |
s1 = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
225 |
FIND_ALPHA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
231 |
FIND_ALPHA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
237 |
FIND_ALPHA |
t1 = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
239 |
FIND_ALPHA |
s1 = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
279 |
FIND_BETA |
I bi, bj, iMin, iMax, jMin, jMax, k, kRef, |
|
./model/src/find_alpha.F |
310 |
FIND_BETA |
INTEGER k |
|
./model/src/find_alpha.F |
350 |
FIND_BETA |
tP=theta(i,j,k,bi,bj)-refTemp |
|
./model/src/find_alpha.F |
351 |
FIND_BETA |
sP=salt(i,j,k,bi,bj)-refSalt |
|
./model/src/find_alpha.F |
381 |
FIND_BETA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
387 |
FIND_BETA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
395 |
FIND_BETA |
t1 = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
399 |
FIND_BETA |
s1 = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
471 |
FIND_BETA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
477 |
FIND_BETA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
47 |
FIND_ALPHA |
INTEGER k |
|
./model/src/find_alpha.F |
483 |
FIND_BETA |
t1 = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
485 |
FIND_BETA |
s1 = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
88 |
FIND_ALPHA |
tP=theta(i,j,k,bi,bj)-refTemp |
|
./model/src/find_alpha.F |
89 |
FIND_ALPHA |
sP=salt(i,j,k,bi,bj)-refSalt |
|
./pkg/smooth/smooth_correl3d.F |
105 |
SMOOTH_CORREL3D |
DO k = 1,nR |
|
./pkg/smooth/smooth_correl3d.F |
106 |
SMOOTH_CORREL3D |
fld_in(i,j,k,bi,bj)=fld_in(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_correl3d.F |
107 |
SMOOTH_CORREL3D |
& *smooth3Dnorm(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_correl3d.F |
28 |
SMOOTH_CORREL3D |
integer i,j,k,bi,bj |
|
./pkg/smooth/smooth_correl3d.F |
84 |
SMOOTH_CORREL3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_correl3d.F |
87 |
SMOOTH_CORREL3D |
fld_in(i,j,k,bi,bj)=fld_in(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_correl3d.F |
88 |
SMOOTH_CORREL3D |
& *sqrt(recip_rA(i,j,bi,bj)*recip_drF(k)) |
|
./pkg/smooth/smooth_diff2d.F |
25 |
SMOOTH_DIFF2D |
integer i,j,k, bi, bj |
|
./pkg/smooth/smooth_diff3d.F |
121 |
SMOOTH_DIFF3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_diff3d.F |
124 |
SMOOTH_DIFF3D |
gT_in(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_diff3d.F |
140 |
SMOOTH_DIFF3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_diff3d.F |
142 |
SMOOTH_DIFF3D |
& bi, bj, k, |
|
./pkg/smooth/smooth_diff3d.F |
147 |
SMOOTH_DIFF3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_diff3d.F |
150 |
SMOOTH_DIFF3D |
if (maskc(i,j,k,bi,bj).NE.0.) then |
|
./pkg/smooth/smooth_diff3d.F |
151 |
SMOOTH_DIFF3D |
fld_in(i,j,k,bi,bj)=fld_in(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_diff3d.F |
152 |
SMOOTH_DIFF3D |
& +smooth3DdelTime*gT_in(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_diff3d.F |
153 |
SMOOTH_DIFF3D |
gT_in(i,j,k,bi,bj)=0 |
|
./pkg/smooth/smooth_diff3d.F |
29 |
SMOOTH_DIFF3D |
integer i,j,k, bi,bj, iMin,iMax,jMin,jMax |
|
./pkg/smooth/smooth_diff3d.F |
58 |
SMOOTH_DIFF3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_diff3d.F |
61 |
SMOOTH_DIFF3D |
gT_in(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_diff3d.F |
62 |
SMOOTH_DIFF3D |
gTm1_in(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar2d.F |
26 |
SMOOTH_FILTERVAR2D |
integer i,j,k, bi, bj, ii, jj, kk |
|
./pkg/smooth/smooth_filtervar3d.F |
118 |
SMOOTH_FILTERVAR3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_filtervar3d.F |
121 |
SMOOTH_FILTERVAR3D |
smoothTmpFld(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_filtervar3d.F |
126 |
SMOOTH_FILTERVAR3D |
DO k=kk,Nr,dkLoc |
|
./pkg/smooth/smooth_filtervar3d.F |
129 |
SMOOTH_FILTERVAR3D |
smoothTmpFld(i,j,k,bi,bj)=1. |
|
./pkg/smooth/smooth_filtervar3d.F |
149 |
SMOOTH_FILTERVAR3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_filtervar3d.F |
153 |
SMOOTH_FILTERVAR3D |
smoothTmpFld(i,j,k,bi,bj)=smoothTmpFld(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_filtervar3d.F |
154 |
SMOOTH_FILTERVAR3D |
& *(recip_rA(i,j,bi,bj)*recip_drF(k)) |
|
./pkg/smooth/smooth_filtervar3d.F |
171 |
SMOOTH_FILTERVAR3D |
DO k=1,Nr,dkLoc |
|
./pkg/smooth/smooth_filtervar3d.F |
174 |
SMOOTH_FILTERVAR3D |
if (smoothTmpFld(i,j,k,bi,bj).NE.0.) then |
|
./pkg/smooth/smooth_filtervar3d.F |
175 |
SMOOTH_FILTERVAR3D |
smooth3Dnorm(i,j,k,bi,bj)= |
|
./pkg/smooth/smooth_filtervar3d.F |
176 |
SMOOTH_FILTERVAR3D |
& 1/sqrt(smoothTmpFld(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_filtervar3d.F |
194 |
SMOOTH_FILTERVAR3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_filtervar3d.F |
197 |
SMOOTH_FILTERVAR3D |
smoothTmpMean(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar3d.F |
198 |
SMOOTH_FILTERVAR3D |
smoothTmpVar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar3d.F |
216 |
SMOOTH_FILTERVAR3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_filtervar3d.F |
219 |
SMOOTH_FILTERVAR3D |
smoothTmpFld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar3d.F |
220 |
SMOOTH_FILTERVAR3D |
if (maskC(i,j,k,bi,bj).NE.0) then |
|
./pkg/smooth/smooth_filtervar3d.F |
221 |
SMOOTH_FILTERVAR3D |
smoothTmpFld(i,j,k,bi,bj)=port_rand_norm() |
|
./pkg/smooth/smooth_filtervar3d.F |
224 |
SMOOTH_FILTERVAR3D |
smoothTmpFld(i,j,k,bi,bj)=smoothTmpFld(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_filtervar3d.F |
225 |
SMOOTH_FILTERVAR3D |
& *sqrt(recip_rA(i,j,bi,bj)*recip_drF(k)) |
|
./pkg/smooth/smooth_filtervar3d.F |
240 |
SMOOTH_FILTERVAR3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_filtervar3d.F |
243 |
SMOOTH_FILTERVAR3D |
smoothTmpVar(i,j,k,bi,bj)=smoothTmpVar(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_filtervar3d.F |
244 |
SMOOTH_FILTERVAR3D |
& +smoothTmpFld(i,j,k,bi,bj)*smoothTmpFld(i,j,k,bi,bj)/nbRand |
|
./pkg/smooth/smooth_filtervar3d.F |
245 |
SMOOTH_FILTERVAR3D |
smoothTmpMean(i,j,k,bi,bj)=smoothTmpMean(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_filtervar3d.F |
246 |
SMOOTH_FILTERVAR3D |
& +smoothTmpFld(i,j,k,bi,bj)/nbRand |
|
./pkg/smooth/smooth_filtervar3d.F |
258 |
SMOOTH_FILTERVAR3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_filtervar3d.F |
261 |
SMOOTH_FILTERVAR3D |
if (maskC(i,j,k,bi,bj).NE.0) then |
|
./pkg/smooth/smooth_filtervar3d.F |
262 |
SMOOTH_FILTERVAR3D |
smooth3Dnorm(i,j,k,bi,bj)= |
|
./pkg/smooth/smooth_filtervar3d.F |
263 |
SMOOTH_FILTERVAR3D |
& 1/sqrt ( nbRand/(nbRand-1)* ( smoothTmpVar(i,j,k,bi,bj) - |
|
./pkg/smooth/smooth_filtervar3d.F |
264 |
SMOOTH_FILTERVAR3D |
& smoothTmpMean(i,j,k,bi,bj)*smoothTmpMean(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_filtervar3d.F |
27 |
SMOOTH_FILTERVAR3D |
integer i,j,k, bi, bj, ii, jj, kk |
|
./pkg/smooth/smooth_filtervar3d.F |
88 |
SMOOTH_FILTERVAR3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_filtervar3d.F |
91 |
SMOOTH_FILTERVAR3D |
smooth3Dnorm(i,j,k,bi,bj)=0. |
|
./model/src/find_rho.F |
25 |
FIND_RHO_2D |
I k, bi, bj, myThid ) |
|
./model/src/find_rho.F |
56 |
FIND_RHO_2D |
INTEGER k, bi, bj |
|
./model/src/find_rho.F |
783 |
LOOK_FOR_NEG_SALINITY |
I k, bi, bj, myThid ) |
|
./model/src/find_rho.F |
808 |
LOOK_FOR_NEG_SALINITY |
INTEGER k, bi, bj |
|
./model/src/find_rho.F |
830 |
LOOK_FOR_NEG_SALINITY |
& ' from level k =', k, ' ; bi,bj =', bi, bj |
|
./model/src/find_rho.F |
85 |
FIND_RHO_2D |
I k, bi, bj, myThid ) |
|
./pkg/smooth/smooth_impldiff.F |
109 |
SMOOTH_IMPLDIFF |
DO k=1,Nr |
|
./pkg/smooth/smooth_impldiff.F |
112 |
SMOOTH_IMPLDIFF |
b(i,j,k) = 1. _d 0 - c(i,j,k) - a(i,j,k) |
|
./pkg/smooth/smooth_impldiff.F |
118 |
SMOOTH_IMPLDIFF |
DO k=1,Nr |
|
./pkg/smooth/smooth_impldiff.F |
121 |
SMOOTH_IMPLDIFF |
bet(i,j,k) = 1. _d 0 |
|
./pkg/smooth/smooth_impldiff.F |
122 |
SMOOTH_IMPLDIFF |
gam(i,j,k) = 0. _d 0 |
|
./pkg/smooth/smooth_impldiff.F |
130 |
SMOOTH_IMPLDIFF |
k = 1 |
|
./pkg/smooth/smooth_impldiff.F |
144 |
SMOOTH_IMPLDIFF |
DO k=2,Nr |
|
./pkg/smooth/smooth_impldiff.F |
148 |
SMOOTH_IMPLDIFF |
gam(i,j,k) = c(i,j,k-1)*bet(i,j,k-1) |
|
./pkg/smooth/smooth_impldiff.F |
149 |
SMOOTH_IMPLDIFF |
IF ( ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) .NE. 0.) |
|
./pkg/smooth/smooth_impldiff.F |
150 |
SMOOTH_IMPLDIFF |
& bet(i,j,k) = 1. _d 0 / ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) |
|
./pkg/smooth/smooth_impldiff.F |
164 |
SMOOTH_IMPLDIFF |
DO k=2,Nr |
|
./pkg/smooth/smooth_impldiff.F |
167 |
SMOOTH_IMPLDIFF |
gYnm1(i,j,k,bi,bj) = bet(i,j,k)* |
|
./pkg/smooth/smooth_impldiff.F |
168 |
SMOOTH_IMPLDIFF |
& (gXnm1(i,j,k,bi,bj) - a(i,j,k)*gYnm1(i,j,k-1,bi,bj)) |
|
./pkg/smooth/smooth_impldiff.F |
176 |
SMOOTH_IMPLDIFF |
DO k=Nr-1,1,-1 |
|
./pkg/smooth/smooth_impldiff.F |
179 |
SMOOTH_IMPLDIFF |
gYnm1(i,j,k,bi,bj)=gYnm1(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_impldiff.F |
180 |
SMOOTH_IMPLDIFF |
& -gam(i,j,k+1)*gYnm1(i,j,k+1,bi,bj) |
|
./pkg/smooth/smooth_impldiff.F |
185 |
SMOOTH_IMPLDIFF |
DO k=1,Nr |
|
./pkg/smooth/smooth_impldiff.F |
188 |
SMOOTH_IMPLDIFF |
gXnm1(i,j,k,bi,bj)=gYnm1(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_impldiff.F |
51 |
SMOOTH_IMPLDIFF |
INTEGER i,j,k |
|
./pkg/smooth/smooth_impldiff.F |
64 |
SMOOTH_IMPLDIFF |
DO k=1,Nr |
|
./pkg/smooth/smooth_impldiff.F |
67 |
SMOOTH_IMPLDIFF |
gYNm1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_impldiff.F |
78 |
SMOOTH_IMPLDIFF |
DO k=2,Nr |
|
./pkg/smooth/smooth_impldiff.F |
81 |
SMOOTH_IMPLDIFF |
a(i,j,k) = -deltaTX*recip_hFac(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/smooth/smooth_impldiff.F |
82 |
SMOOTH_IMPLDIFF |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/smooth/smooth_impldiff.F |
83 |
SMOOTH_IMPLDIFF |
& *KappaRX(i,j, k )*recip_drC( k ) |
|
./pkg/smooth/smooth_impldiff.F |
84 |
SMOOTH_IMPLDIFF |
& *deepFac2F(k)*rhoFacF(k) |
|
./pkg/smooth/smooth_impldiff.F |
85 |
SMOOTH_IMPLDIFF |
IF (recip_hFac(i,j,k-1,bi,bj).EQ.0.) a(i,j,k)=0. |
|
./pkg/smooth/smooth_impldiff.F |
91 |
SMOOTH_IMPLDIFF |
DO k=1,Nr-1 |
|
./pkg/smooth/smooth_impldiff.F |
94 |
SMOOTH_IMPLDIFF |
c(i,j,k) = -deltaTX*recip_hFac(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/smooth/smooth_impldiff.F |
95 |
SMOOTH_IMPLDIFF |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/smooth/smooth_impldiff.F |
96 |
SMOOTH_IMPLDIFF |
& *KappaRX(i,j,k+1)*recip_drC(k+1) |
|
./pkg/smooth/smooth_impldiff.F |
97 |
SMOOTH_IMPLDIFF |
& *deepFac2F(k+1)*rhoFacF(k+1) |
|
./pkg/smooth/smooth_impldiff.F |
98 |
SMOOTH_IMPLDIFF |
IF (recip_hFac(i,j,k+1,bi,bj).EQ.0.) c(i,j,k)=0. |
|
./pkg/smooth/smooth_init2d.F |
23 |
SMOOTH_INIT2D |
integer i,j,k, bi, bj |
|
./pkg/smooth/smooth_init3d.F |
101 |
SMOOTH_INIT3D |
if (smooth3D_kappaR(i,j,k,bi,bj).GT.smooth3D_KzMax) then |
|
./pkg/smooth/smooth_init3d.F |
102 |
SMOOTH_INIT3D |
smooth3D_kappaR(i,j,k,bi,bj)=smooth3D_KzMax |
|
./pkg/smooth/smooth_init3d.F |
128 |
SMOOTH_INIT3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_init3d.F |
131 |
SMOOTH_INIT3D |
smooth3D_Lx(i,j,k,bi,bj)=smooth3D_Lx0(smoothOpNb) |
|
./pkg/smooth/smooth_init3d.F |
132 |
SMOOTH_INIT3D |
smooth3D_Ly(i,j,k,bi,bj)=smooth3D_Ly0(smoothOpNb) |
|
./pkg/smooth/smooth_init3d.F |
142 |
SMOOTH_INIT3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_init3d.F |
145 |
SMOOTH_INIT3D |
smooth3D_Kuy(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
146 |
SMOOTH_INIT3D |
smooth3D_Kvx(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
147 |
SMOOTH_INIT3D |
smooth3D_Kwx(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
148 |
SMOOTH_INIT3D |
smooth3D_Kwy(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
149 |
SMOOTH_INIT3D |
smooth3D_Kwz(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
150 |
SMOOTH_INIT3D |
smooth3D_Kux(i,j,k,bi,bj)=smooth3D_Lx(i,j,k,bi,bj)* |
|
./pkg/smooth/smooth_init3d.F |
151 |
SMOOTH_INIT3D |
& smooth3D_Lx(i,j,k,bi,bj)/smooth3DtotTime/2 |
|
./pkg/smooth/smooth_init3d.F |
152 |
SMOOTH_INIT3D |
smooth3D_Kvy(i,j,k,bi,bj)=smooth3D_Ly(i,j,k,bi,bj)* |
|
./pkg/smooth/smooth_init3d.F |
153 |
SMOOTH_INIT3D |
& smooth3D_Ly(i,j,k,bi,bj)/smooth3DtotTime/2 |
|
./pkg/smooth/smooth_init3d.F |
154 |
SMOOTH_INIT3D |
smooth3D_Kuz(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
155 |
SMOOTH_INIT3D |
smooth3D_Kvz(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
33 |
SMOOTH_INIT3D |
integer i,j,k, bi, bj, imin, imax, jmin, jmax |
|
./pkg/smooth/smooth_init3d.F |
67 |
SMOOTH_INIT3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_init3d.F |
70 |
SMOOTH_INIT3D |
smooth3D_Lz(i,j,k,bi,bj)=smooth3D_Lz0(smoothOpNb) |
|
./pkg/smooth/smooth_init3d.F |
80 |
SMOOTH_INIT3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_init3d.F |
83 |
SMOOTH_INIT3D |
smooth3D_kappaR(i,j,k,bi,bj)=smooth3D_Lz(i,j,k,bi,bj)* |
|
./pkg/smooth/smooth_init3d.F |
84 |
SMOOTH_INIT3D |
& smooth3D_Lz(i,j,k,bi,bj)/smooth3DtotTime/2 |
|
./pkg/smooth/smooth_init3d.F |
95 |
SMOOTH_INIT3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_init3d.F |
99 |
SMOOTH_INIT3D |
smooth3D_KzMax=drC(k) |
|
./pkg/smooth/smooth_init_fixed.F |
30 |
SMOOTH_INIT_FIXED |
integer k |
|
./pkg/smooth/smooth_rhs.F |
101 |
SMOOTH_RHS |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
103 |
SMOOTH_RHS |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
108 |
SMOOTH_RHS |
& maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
120 |
SMOOTH_RHS |
& *smooth3D_Kux(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
122 |
SMOOTH_RHS |
& *(fld_in(i,j,k,bi,bj)-fld_in(i-1,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
129 |
SMOOTH_RHS |
& +0.5*recip_drC(k)* |
|
./pkg/smooth/smooth_rhs.F |
130 |
SMOOTH_RHS |
& ( maskC(i-1,j,k,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
131 |
SMOOTH_RHS |
& (fld_in(i-1,j, MAX(k-1,1) ,bi,bj)-fld_in(i-1,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
132 |
SMOOTH_RHS |
& +maskC( i ,j,k,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
133 |
SMOOTH_RHS |
& (fld_in( i ,j, MAX(k-1,1) ,bi,bj)-fld_in( i ,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
135 |
SMOOTH_RHS |
& +0.5*recip_drC(MIN(k+1,Nr))* |
|
./pkg/smooth/smooth_rhs.F |
136 |
SMOOTH_RHS |
& ( maskC(i-1,j,MIN(k+1,Nr),bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
137 |
SMOOTH_RHS |
& (fld_in(i-1,j,k,bi,bj)-fld_in(i-1,j,MIN(k+1,Nr),bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
138 |
SMOOTH_RHS |
& +maskC( i ,j,MIN(k+1,Nr),bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
139 |
SMOOTH_RHS |
& (fld_in( i ,j,k,bi,bj)-fld_in( i ,j,MIN(k+1,Nr),bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
142 |
SMOOTH_RHS |
& - xA(i,j,bi,bj)*smooth3D_Kuz(i,j,k,bi,bj)*dTdz(bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
149 |
SMOOTH_RHS |
& +0.5*(maskS(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
151 |
SMOOTH_RHS |
& (fld_in(i,j,k,bi,bj)-fld_in(i,j-1,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
152 |
SMOOTH_RHS |
& +maskS(i,j+1,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
154 |
SMOOTH_RHS |
& (fld_in(i,j+1,k,bi,bj)-fld_in(i,j,k,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
155 |
SMOOTH_RHS |
& +0.5*(maskS(i-1,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
157 |
SMOOTH_RHS |
& (fld_in(i-1,j,k,bi,bj)-fld_in(i-1,j-1,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
158 |
SMOOTH_RHS |
& +maskS(i-1,j+1,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
160 |
SMOOTH_RHS |
& (fld_in(i-1,j+1,k,bi,bj)-fld_in(i-1,j,k,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
163 |
SMOOTH_RHS |
& - xA(i,j,bi,bj)*smooth3D_Kuy(i,j,k,bi,bj)*dTdy(bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
172 |
SMOOTH_RHS |
fZon(i,j,k,bi,bj) = fZon(i,j,k,bi,bj) + df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
188 |
SMOOTH_RHS |
& *smooth3D_Kvy(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
190 |
SMOOTH_RHS |
& *(fld_in(i,j,k,bi,bj)-fld_in(i,j-1,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
197 |
SMOOTH_RHS |
& +0.5*recip_drC(k)* |
|
./pkg/smooth/smooth_rhs.F |
198 |
SMOOTH_RHS |
& ( maskC(i,j-1,k,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
199 |
SMOOTH_RHS |
& (fld_in(i,j-1,MAX(k-1,1),bi,bj)-fld_in(i,j-1,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
200 |
SMOOTH_RHS |
& +maskC(i, j ,k,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
201 |
SMOOTH_RHS |
& (fld_in(i, j ,MAX(k-1,1),bi,bj)-fld_in(i, j ,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
203 |
SMOOTH_RHS |
& +0.5*recip_drC(MIN(k+1,Nr))* |
|
./pkg/smooth/smooth_rhs.F |
204 |
SMOOTH_RHS |
& ( maskC(i,j-1,MIN(k+1,Nr),bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
205 |
SMOOTH_RHS |
& (fld_in(i,j-1,k,bi,bj)-fld_in(i,j-1,MIN(k+1,Nr),bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
206 |
SMOOTH_RHS |
& +maskC(i, j ,MIN(k+1,Nr),bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
207 |
SMOOTH_RHS |
& (fld_in(i, j ,k,bi,bj)-fld_in(i, j ,MIN(k+1,Nr),bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
210 |
SMOOTH_RHS |
& - yA(i,j,bi,bj)*smooth3D_Kvz(i,j,k,bi,bj)*dTdz(bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
217 |
SMOOTH_RHS |
& +0.5*(maskW(i+1,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
219 |
SMOOTH_RHS |
& (fld_in(i+1,j,k,bi,bj)-fld_in(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
220 |
SMOOTH_RHS |
& +maskW(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
222 |
SMOOTH_RHS |
& (fld_in(i,j,k,bi,bj)-fld_in(i-1,j,k,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
223 |
SMOOTH_RHS |
& +0.5*(maskW(i+1,j-1,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
225 |
SMOOTH_RHS |
& (fld_in(i+1,j-1,k,bi,bj)-fld_in(i,j-1,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
226 |
SMOOTH_RHS |
& +maskW(i,j-1,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
228 |
SMOOTH_RHS |
& (fld_in(i,j-1,k,bi,bj)-fld_in(i-1,j-1,k,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
231 |
SMOOTH_RHS |
& - yA(i,j,bi,bj)*smooth3D_Kvx(i,j,k,bi,bj)*dTdx(bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
239 |
SMOOTH_RHS |
fMer(i,j,k,bi,bj) = fMer(i,j,k,bi,bj) + df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
253 |
SMOOTH_RHS |
IF (k.gt.1) then |
|
./pkg/smooth/smooth_rhs.F |
258 |
SMOOTH_RHS |
& *smooth3D_kappaR(i,j,k,bi,bj)*recip_drC(k) |
|
./pkg/smooth/smooth_rhs.F |
259 |
SMOOTH_RHS |
& *(fld_in(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
260 |
SMOOTH_RHS |
& -fld_in(i,j,k-1,bi,bj))*rkSign |
|
./pkg/smooth/smooth_rhs.F |
273 |
SMOOTH_RHS |
& +0.5*(maskW(i+1,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
275 |
SMOOTH_RHS |
& (fld_in(i+1,j,k,bi,bj)-fld_in(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
276 |
SMOOTH_RHS |
& +maskW(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
278 |
SMOOTH_RHS |
& (fld_in(i,j,k,bi,bj)-fld_in(i-1,j,k,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
279 |
SMOOTH_RHS |
& +0.5*(maskW(i+1,j,k-1,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
281 |
SMOOTH_RHS |
& (fld_in(i+1,j,k-1,bi,bj)-fld_in(i,j,k-1,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
282 |
SMOOTH_RHS |
& +maskW(i,j,k-1,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
284 |
SMOOTH_RHS |
& (fld_in(i,j,k-1,bi,bj)-fld_in(i-1,j,k-1,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
288 |
SMOOTH_RHS |
& +0.5*(maskS(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
290 |
SMOOTH_RHS |
& (fld_in(i,j,k,bi,bj)-fld_in(i,j-1,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
291 |
SMOOTH_RHS |
& +maskS(i,j+1,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
293 |
SMOOTH_RHS |
& (fld_in(i,j+1,k,bi,bj)-fld_in(i,j,k,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
294 |
SMOOTH_RHS |
& +0.5*(maskS(i,j,k-1,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
296 |
SMOOTH_RHS |
& (fld_in(i,j,k-1,bi,bj)-fld_in(i,j-1,k-1,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
297 |
SMOOTH_RHS |
& +maskS(i,j+1,k-1,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
299 |
SMOOTH_RHS |
& (fld_in(i,j+1,k-1,bi,bj)-fld_in(i,j,k-1,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
304 |
SMOOTH_RHS |
& *( smooth3D_Kwx(i,j,k,bi,bj)*dTdx(bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
305 |
SMOOTH_RHS |
& +smooth3D_Kwy(i,j,k,bi,bj)*dTdy(bi,bj) ) |
|
./pkg/smooth/smooth_rhs.F |
318 |
SMOOTH_RHS |
fVerT(i,j,k-1,bi,bj) = fVerT(i,j,k-1,bi,bj) + |
|
./pkg/smooth/smooth_rhs.F |
342 |
SMOOTH_RHS |
DO k=1,Nr |
|
./pkg/smooth/smooth_rhs.F |
346 |
SMOOTH_RHS |
gt_in(i,j,k,bi,bj)=gt_in(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
347 |
SMOOTH_RHS |
& -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)*recip_rA(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
348 |
SMOOTH_RHS |
& *( (fZon(i+1,j,k,bi,bj)-fZon(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
349 |
SMOOTH_RHS |
& +(fMer(i,j+1,k,bi,bj)-fMer(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
350 |
SMOOTH_RHS |
& +(fVerT(i,j,k,bi,bj)-fVerT(i,j,k-1,bi,bj))*rkSign |
|
./pkg/smooth/smooth_rhs.F |
357 |
SMOOTH_RHS |
gt_in(i,j,k,bi,bj)=gt_in(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
358 |
SMOOTH_RHS |
& -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)*recip_rA(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
359 |
SMOOTH_RHS |
& *( (fZon(i+1,j,k,bi,bj)-fZon(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
360 |
SMOOTH_RHS |
& +(fMer(i,j+1,k,bi,bj)-fMer(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
361 |
SMOOTH_RHS |
& +(fVerT(i,j,k,bi,bj))*rkSign |
|
./pkg/smooth/smooth_rhs.F |
63 |
SMOOTH_RHS |
INTEGER i,j,k |
|
./pkg/smooth/smooth_rhs.F |
77 |
SMOOTH_RHS |
DO k=1,Nr |
|
./pkg/smooth/smooth_rhs.F |
80 |
SMOOTH_RHS |
fZon(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_rhs.F |
81 |
SMOOTH_RHS |
fMer(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_rhs.F |
82 |
SMOOTH_RHS |
fVerT(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_rhs.F |
83 |
SMOOTH_RHS |
gt_in(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_rhs.F |
95 |
SMOOTH_RHS |
DO k=1,Nr |
|
./pkg/sphere/sphere.F |
322 |
SHC2ZONE |
do k = 1,lmax |
|
./pkg/sphere/sphere.F |
323 |
SHC2ZONE |
fact(k) = 1.0 |
|
./model/src/freesurf_rescale_g.F |
10 |
FREESURF_RESCALE_G |
I bi, bj, k, |
|
./model/src/freesurf_rescale_g.F |
32 |
FREESURF_RESCALE_G |
INTEGER bi,bj,k |
|
./model/src/freesurf_rescale_g.F |
47 |
FREESURF_RESCALE_G |
gTracer(i,j,k,bi,bj) = gTracer(i,j,k,bi,bj) |
|
./model/src/freesurf_rescale_g.F |
56 |
FREESURF_RESCALE_G |
gTracer(i,j,k,bi,bj) = gTracer(i,j,k,bi,bj) |
|
./model/src/freesurf_rescale_g.F |
58 |
FREESURF_RESCALE_G |
& *dBHybSigF(k)*recip_drF(k) |
|
./model/src/freesurf_rescale_g.F |
59 |
FREESURF_RESCALE_G |
& *recip_hFacC(i,j,k,bi,bj) |
|
./model/src/freesurf_rescale_g.F |
67 |
FREESURF_RESCALE_G |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/freesurf_rescale_g.F |
68 |
FREESURF_RESCALE_G |
gTracer(i,j,k,bi,bj) = gTracer(i,j,k,bi,bj) |
|
./model/src/freesurf_rescale_g.F |
69 |
FREESURF_RESCALE_G |
& *_hFacC(i,j,k,bi,bj)/hFac_surfC(i,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
127 |
THSICE_ADVECTION |
INTEGER i,j,k |
|
./pkg/thsice/thsice_advection.F |
160 |
THSICE_ADVECTION |
k = 1 |
|
./pkg/thsice/thsice_advection.F |
334 |
THSICE_ADVECTION |
CALL GAD_DST2U1_ADV_X( bi,bj,k, advectionScheme, .FALSE., |
|
./pkg/thsice/thsice_advection.F |
341 |
THSICE_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_X( bi,bj,k, .FALSE., deltaTadvect, |
|
./pkg/thsice/thsice_advection.F |
345 |
THSICE_ADVECTION |
CALL GAD_DST3_ADV_X( bi,bj,k, .FALSE., deltaTadvect, |
|
./pkg/thsice/thsice_advection.F |
349 |
THSICE_ADVECTION |
CALL GAD_DST3FL_ADV_X( bi,bj,k, .FALSE., deltaTadvect, |
|
./pkg/thsice/thsice_advection.F |
549 |
THSICE_ADVECTION |
CALL GAD_DST2U1_ADV_Y( bi,bj,k, advectionScheme, .FALSE., |
|
./pkg/thsice/thsice_advection.F |
556 |
THSICE_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_Y( bi,bj,k, .FALSE., deltaTadvect, |
|
./pkg/thsice/thsice_advection.F |
560 |
THSICE_ADVECTION |
CALL GAD_DST3_ADV_Y( bi,bj,k, .FALSE., deltaTadvect, |
|
./pkg/thsice/thsice_advection.F |
564 |
THSICE_ADVECTION |
CALL GAD_DST3FL_ADV_Y( bi,bj,k, .FALSE., deltaTadvect, |
|
./pkg/thsice/thsice_advection.F |
727 |
THSICE_ADVECTION |
& .AND. k.LE.3 .AND. myIter.EQ.1+nIter0 |
|
./pkg/thsice/thsice_advection.F |
731 |
THSICE_ADVECTION |
& afx,afy, k, standardMessageUnit,bi,bj,myThid ) |
|
./pkg/thsice/thsice_calc_thickn.F |
171 |
THSICE_CALC_THICKN |
INTEGER i,j,k |
|
./pkg/thsice/thsice_calc_thickn.F |
290 |
THSICE_CALC_THICKN |
DO k = 1,nlyr |
|
./pkg/thsice/thsice_calc_thickn.F |
293 |
THSICE_CALC_THICKN |
hnew(i,j,k) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
344 |
THSICE_CALC_THICKN |
DO k=1,powerLawExp2 |
|
./pkg/thsice/thsice_calc_thickn.F |
482 |
THSICE_CALC_THICKN |
DO k = 1, nlyr |
|
./pkg/thsice/thsice_calc_thickn.F |
485 |
THSICE_CALC_THICKN |
hnew(i,j,k) = hIce(i,j) * rec_nlyr |
|
./pkg/thsice/thsice_calc_thickn.F |
518 |
THSICE_CALC_THICKN |
DO k = 1, nlyr |
|
./pkg/thsice/thsice_calc_thickn.F |
536 |
THSICE_CALC_THICKN |
rq = rhoi * qicen(i,j,k) |
|
./pkg/thsice/thsice_calc_thickn.F |
537 |
THSICE_CALC_THICKN |
rqh = rq * hnew(i,j,k) |
|
./pkg/thsice/thsice_calc_thickn.F |
539 |
THSICE_CALC_THICKN |
hnew(i,j,k) = hnew(i,j,k) - etop(i,j) / rq |
|
./pkg/thsice/thsice_calc_thickn.F |
543 |
THSICE_CALC_THICKN |
hnew(i,j,k) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
594 |
THSICE_CALC_THICKN |
DO k = nlyr, 1, -1 |
|
./pkg/thsice/thsice_calc_thickn.F |
613 |
THSICE_CALC_THICKN |
& hnew(i,j,k) .GT. 0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
614 |
THSICE_CALC_THICKN |
rq = rhoi * qicen(i,j,k) |
|
./pkg/thsice/thsice_calc_thickn.F |
615 |
THSICE_CALC_THICKN |
rqh = rq * hnew(i,j,k) |
|
./pkg/thsice/thsice_calc_thickn.F |
617 |
THSICE_CALC_THICKN |
hnew(i,j,k) = hnew(i,j,k) - ebot(i,j) / rq |
|
./pkg/thsice/thsice_calc_thickn.F |
621 |
THSICE_CALC_THICKN |
hnew(i,j,k) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
749 |
THSICE_CALC_THICKN |
DO k = 1, nlyr |
|
./pkg/thsice/thsice_calc_thickn.F |
788 |
THSICE_CALC_THICKN |
IF (dhi.GE.hnew(i,j,k)) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
789 |
THSICE_CALC_THICKN |
evapLoc(i,j)=evapLoc(i,j)-hnew(i,j,k)*rhoi/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
791 |
THSICE_CALC_THICKN |
& - hnew(i,j,k)*rhoi*(qicen(i,j,k)-Lfresh) |
|
./pkg/thsice/thsice_calc_thickn.F |
792 |
THSICE_CALC_THICKN |
hnew(i,j,k)=0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
797 |
THSICE_CALC_THICKN |
hq = hnew(i,j,k)*qicen(i,j,k)-dhi*Lfresh |
|
./pkg/thsice/thsice_calc_thickn.F |
798 |
THSICE_CALC_THICKN |
hnew(i,j,k) = hnew(i,j,1) - dhi |
|
./pkg/thsice/thsice_calc_thickn.F |
799 |
THSICE_CALC_THICKN |
qicen(i,j,k)=hq/hnew(i,j,k) |
|
./model/src/freeze.F |
46 |
FREEZE |
IF (gT(i,j,k,bi,bj) .LT. Tfreezing) THEN |
|
./model/src/freeze.F |
47 |
FREEZE |
gT(i,j,k,bi,bj)=Tfreezing |
|
./model/src/freeze_surface.F |
41 |
FREEZE_SURFACE |
INTEGER bi,bj,i,j,k |
|
./model/src/freeze_surface.F |
46 |
FREEZE_SURFACE |
k = Nr |
|
./model/src/freeze_surface.F |
48 |
FREEZE_SURFACE |
k = 1 |
|
./model/src/freeze_surface.F |
58 |
FREEZE_SURFACE |
IF (theta(i,j,k,bi,bj) .LT. Tfreezing) THEN |
|
./model/src/freeze_surface.F |
60 |
FREEZE_SURFACE |
& ( Tfreezing - theta(i,j,k,bi,bj) ) |
|
./model/src/freeze_surface.F |
61 |
FREEZE_SURFACE |
& *drF(k)*_hFacC(i,j,k,bi,bj) / dTtracerLev(k) |
|
./model/src/freeze_surface.F |
62 |
FREEZE_SURFACE |
theta(i,j,k,bi,bj) = Tfreezing |
|
./pkg/thsice/thsice_monitor.F |
60 |
THSICE_MONITOR |
INTEGER k |
|
./pkg/thsice/thsice_monitor.F |
85 |
THSICE_MONITOR |
DO k = 1,MAX_LEN_MBUF |
|
./pkg/thsice/thsice_monitor.F |
86 |
THSICE_MONITOR |
mon_fname(k:k) = ' ' |
|
./pkg/thsice/thsice_solve4temp.F |
145 |
THSICE_SOLVE4TEMP |
INTEGER i, j, k, iterMax |
|
./pkg/thsice/thsice_solve4temp.F |
395 |
THSICE_SOLVE4TEMP |
DO k = 1,iterMax |
|
./pkg/thsice/thsice_solve4temp.F |
462 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: k,ts,t1,dTs=',k,Tsf(i,j),tIc1(i,j),dTsrf(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
491 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: k,ts,t1,dTs=', k,Tsf(i,j),tIc1(i,j),dTsrf(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
492 |
THSICE_SOLVE4TEMP |
IF ( useBlkFlx .AND. k.EQ.nitMaxTsf .AND. iceFlag(i,j) ) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
531 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: k, Ts, Tice=',k,Tsf(i,j),tIc1(i,j),tIc2(i,j) |
|
./model/src/grad_sigma.F |
67 |
GRAD_SIGMA |
sigmaX(i,j,k)=_maskW(i,j,k,bi,bj) |
|
./model/src/grad_sigma.F |
82 |
GRAD_SIGMA |
sigmaY(i,j,k)=_maskS(i,j,k,bi,bj) |
|
./model/src/grad_sigma.F |
91 |
GRAD_SIGMA |
sigmaR(i,j,k)=0. |
|
./model/src/grad_sigma.F |
97 |
GRAD_SIGMA |
sigmaR(i,j,k)= maskC(i,j,k,bi,bj) |
|
./model/src/grad_sigma.F |
98 |
GRAD_SIGMA |
& *recip_drC(k)*rkSign |
|
./pkg/timeave/timeave_cumul_1k1t.F |
31 |
TIMEAVE_CUMUL_1K1T |
INTEGER k, bi, bj, myThid |
|
./pkg/timeave/timeave_cumul_1k1t.F |
41 |
TIMEAVE_CUMUL_1K1T |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_1k1t.F |
9 |
TIMEAVE_CUMUL_1K1T |
I Ksize, k, bi, bj, myThid ) |
|
./pkg/timeave/timeave_cumul_1t.F |
35 |
TIMEAVE_CUMUL_1T |
INTEGER i, j, k |
|
./pkg/timeave/timeave_cumul_1t.F |
37 |
TIMEAVE_CUMUL_1T |
DO k=1,Ksize |
|
./pkg/timeave/timeave_cumul_1t.F |
40 |
TIMEAVE_CUMUL_1T |
fldtave(i,j,k,bi,bj)= |
|
./pkg/timeave/timeave_cumul_1t.F |
41 |
TIMEAVE_CUMUL_1T |
& fldtave(i,j,k,bi,bj)+fld(i,j,k)*deltaTloc |
|
./pkg/timeave/timeave_cumul_1vfc.F |
38 |
TIMEAVE_CUMUL_1VFC |
INTEGER i, j, k |
|
./pkg/timeave/timeave_cumul_1vfc.F |
42 |
TIMEAVE_CUMUL_1VFC |
DO k=1,Ksize |
|
./pkg/timeave/timeave_cumul_1vfc.F |
45 |
TIMEAVE_CUMUL_1VFC |
fldtave(i,j,k,bi,bj)= fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_1vfc.F |
46 |
TIMEAVE_CUMUL_1VFC |
& + deltaTloc*fld1(i,j,k,bi,bj)*fld2(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
109 |
TIMEAVE_CUMUL_2V |
DO k=1,Ksize |
|
./pkg/timeave/timeave_cumul_2v.F |
112 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
113 |
TIMEAVE_CUMUL_2V |
& + .25 _d 0*( fld1(i,j-1,k,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
114 |
TIMEAVE_CUMUL_2V |
& *( fld2(i-1,j,k,bi,bj) + fld2(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
123 |
TIMEAVE_CUMUL_2V |
DO k=1,Ksize |
|
./pkg/timeave/timeave_cumul_2v.F |
124 |
TIMEAVE_CUMUL_2V |
km1 = MAX(k-1,1) |
|
./pkg/timeave/timeave_cumul_2v.F |
127 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
128 |
TIMEAVE_CUMUL_2V |
& + .25 _d 0*( fld1(i,j,km1,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
129 |
TIMEAVE_CUMUL_2V |
& *( fld2(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
130 |
TIMEAVE_CUMUL_2V |
& +fld2( i ,j,k,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
140 |
TIMEAVE_CUMUL_2V |
DO k=1,Ksize |
|
./pkg/timeave/timeave_cumul_2v.F |
141 |
TIMEAVE_CUMUL_2V |
km1 = MAX(k-1,1) |
|
./pkg/timeave/timeave_cumul_2v.F |
144 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
145 |
TIMEAVE_CUMUL_2V |
& + .25 _d 0*( fld1(i,j,km1,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
146 |
TIMEAVE_CUMUL_2V |
& *( fld2(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
147 |
TIMEAVE_CUMUL_2V |
& +fld2(i, j ,k,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
158 |
TIMEAVE_CUMUL_2V |
DO k=2,Ksize |
|
./pkg/timeave/timeave_cumul_2v.F |
161 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
162 |
TIMEAVE_CUMUL_2V |
& + .5 _d 0*( fld1(i,j,k-1,bi,bj) - fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
163 |
TIMEAVE_CUMUL_2V |
& *( fld2(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
164 |
TIMEAVE_CUMUL_2V |
& +fld2( i ,j,k,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
175 |
TIMEAVE_CUMUL_2V |
DO k=2,Ksize |
|
./pkg/timeave/timeave_cumul_2v.F |
178 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
179 |
TIMEAVE_CUMUL_2V |
& + .5 _d 0*( fld1(i,j,k-1,bi,bj) - fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
180 |
TIMEAVE_CUMUL_2V |
& *( fld2(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
181 |
TIMEAVE_CUMUL_2V |
& +fld2(i, j ,k,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
43 |
TIMEAVE_CUMUL_2V |
INTEGER i, j, k |
|
./pkg/timeave/timeave_cumul_2v.F |
51 |
TIMEAVE_CUMUL_2V |
DO k=1,Ksize |
|
./pkg/timeave/timeave_cumul_2v.F |
54 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj)= fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
55 |
TIMEAVE_CUMUL_2V |
& + fld1(i,j,k,bi,bj)*fld2(i,j,k,bi,bj)*deltaTloc |
|
./pkg/timeave/timeave_cumul_2v.F |
65 |
TIMEAVE_CUMUL_2V |
DO k=1,Ksize |
|
./pkg/timeave/timeave_cumul_2v.F |
68 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj)= fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
69 |
TIMEAVE_CUMUL_2V |
& + .5 * ( fld1(i-1,j,k,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
70 |
TIMEAVE_CUMUL_2V |
& * fld2(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
79 |
TIMEAVE_CUMUL_2V |
DO k=1,Ksize |
|
./pkg/timeave/timeave_cumul_2v.F |
82 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj)= fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
83 |
TIMEAVE_CUMUL_2V |
& + .5 * ( fld1(i,j-1,k,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
84 |
TIMEAVE_CUMUL_2V |
& * fld2(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
93 |
TIMEAVE_CUMUL_2V |
DO k=1,Ksize |
|
./pkg/timeave/timeave_cumul_2v.F |
94 |
TIMEAVE_CUMUL_2V |
km1 = MAX(k-1,1) |
|
./pkg/timeave/timeave_cumul_2v.F |
97 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj)= fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
98 |
TIMEAVE_CUMUL_2V |
& + .5 * ( fld1(i,j,km1,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
99 |
TIMEAVE_CUMUL_2V |
& * fld2(i,j,k,bi,bj) |
|
./model/src/impldiff.F |
100 |
IMPLDIFF |
DO k=1,Nr |
|
./model/src/impldiff.F |
101 |
IMPLDIFF |
deltaTX(k) = deltaTmom |
|
./model/src/impldiff.F |
106 |
IMPLDIFF |
DO k=1,Nr |
|
./model/src/impldiff.F |
114 |
IMPLDIFF |
gYNm1(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/impldiff.F |
130 |
IMPLDIFF |
DO k=2,Nr |
|
./model/src/impldiff.F |
138 |
IMPLDIFF |
a(i,j,k) = -deltaTX(k)*recip_hFac(i,j,k,bi,bj)*recip_drF(k) |
|
./model/src/impldiff.F |
139 |
IMPLDIFF |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./model/src/impldiff.F |
140 |
IMPLDIFF |
& *KappaRX(i,j, k )*recip_drC( k ) |
|
./model/src/impldiff.F |
141 |
IMPLDIFF |
& *deepFac2F(k)*rhoFacF(k) |
|
./model/src/impldiff.F |
142 |
IMPLDIFF |
IF (recip_hFac(i,j,k-1,bi,bj).EQ.0.) a(i,j,k)=0. |
|
./model/src/impldiff.F |
148 |
IMPLDIFF |
DO k=1,Nr-1 |
|
./model/src/impldiff.F |
156 |
IMPLDIFF |
c(i,j,k) = -deltaTX(k)*recip_hFac(i,j,k,bi,bj)*recip_drF(k) |
|
./model/src/impldiff.F |
157 |
IMPLDIFF |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./model/src/impldiff.F |
158 |
IMPLDIFF |
& *KappaRX(i,j,k+1)*recip_drC(k+1) |
|
./model/src/impldiff.F |
159 |
IMPLDIFF |
& *deepFac2F(k+1)*rhoFacF(k+1) |
|
./model/src/impldiff.F |
160 |
IMPLDIFF |
IF (recip_hFac(i,j,k+1,bi,bj).EQ.0.) c(i,j,k)=0. |
|
./model/src/impldiff.F |
176 |
IMPLDIFF |
DO k=1,Nr |
|
./model/src/impldiff.F |
184 |
IMPLDIFF |
b(i,j,k) = 1. _d 0 - c(i,j,k) - a(i,j,k) |
|
./model/src/impldiff.F |
190 |
IMPLDIFF |
DO k=1,Nr |
|
./model/src/impldiff.F |
198 |
IMPLDIFF |
bet(i,j,k) = 1. _d 0 |
|
./model/src/impldiff.F |
199 |
IMPLDIFF |
gam(i,j,k) = 0. _d 0 |
|
./model/src/impldiff.F |
207 |
IMPLDIFF |
k = 1 |
|
./model/src/impldiff.F |
226 |
IMPLDIFF |
DO k=2,Nr |
|
./model/src/impldiff.F |
235 |
IMPLDIFF |
gam(i,j,k) = c(i,j,k-1)*bet(i,j,k-1) |
|
./model/src/impldiff.F |
236 |
IMPLDIFF |
IF ( ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) .NE. 0.) |
|
./model/src/impldiff.F |
237 |
IMPLDIFF |
& bet(i,j,k) = 1. _d 0 / ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) |
|
./model/src/impldiff.F |
256 |
IMPLDIFF |
DO k=2,Nr |
|
./model/src/impldiff.F |
264 |
IMPLDIFF |
gYnm1(i,j,k,bi,bj) = bet(i,j,k)* |
|
./model/src/impldiff.F |
265 |
IMPLDIFF |
& (gXnm1(i,j,k,bi,bj) - a(i,j,k)*gYnm1(i,j,k-1,bi,bj)) |
|
./model/src/impldiff.F |
273 |
IMPLDIFF |
DO k=Nr-1,1,-1 |
|
./model/src/impldiff.F |
281 |
IMPLDIFF |
gYnm1(i,j,k,bi,bj)=gYnm1(i,j,k,bi,bj) |
|
./model/src/impldiff.F |
282 |
IMPLDIFF |
& -gam(i,j,k+1)*gYnm1(i,j,k+1,bi,bj) |
|
./model/src/impldiff.F |
287 |
IMPLDIFF |
DO k=1,Nr |
|
./model/src/impldiff.F |
295 |
IMPLDIFF |
gXnm1(i,j,k,bi,bj)=gYnm1(i,j,k,bi,bj) |
|
./model/src/impldiff.F |
318 |
IMPLDIFF |
DO k= 1,Nr |
|
./model/src/impldiff.F |
319 |
IMPLDIFF |
IF ( k.EQ.1 ) THEN |
|
./model/src/impldiff.F |
336 |
IMPLDIFF |
& -rA(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./model/src/impldiff.F |
337 |
IMPLDIFF |
& * KappaRX(i,j,k)*recip_drC(k) |
|
./model/src/impldiff.F |
338 |
IMPLDIFF |
& * (gXnm1(i,j,k,bi,bj) - gXnm1(i,j,k-1,bi,bj))*rkSign |
|
./model/src/impldiff.F |
350 |
IMPLDIFF |
& -rAw(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./model/src/impldiff.F |
351 |
IMPLDIFF |
& * KappaRX(i,j,k)*recip_drC(k) |
|
./model/src/impldiff.F |
352 |
IMPLDIFF |
& * (gXnm1(i,j,k,bi,bj) - gXnm1(i,j,k-1,bi,bj))*rkSign |
|
./model/src/impldiff.F |
353 |
IMPLDIFF |
& * _maskW(i,j,k,bi,bj) |
|
./model/src/impldiff.F |
354 |
IMPLDIFF |
& * _maskW(i,j,k-1,bi,bj) |
|
./model/src/impldiff.F |
366 |
IMPLDIFF |
& -rAs(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./model/src/impldiff.F |
367 |
IMPLDIFF |
& * KappaRX(i,j,k)*recip_drC(k) |
|
./model/src/impldiff.F |
368 |
IMPLDIFF |
& * (gXnm1(i,j,k,bi,bj) - gXnm1(i,j,k-1,bi,bj))*rkSign |
|
./model/src/impldiff.F |
369 |
IMPLDIFF |
& * _maskS(i,j,k,bi,bj) |
|
./model/src/impldiff.F |
370 |
IMPLDIFF |
& * _maskS(i,j,k-1,bi,bj) |
|
./model/src/impldiff.F |
374 |
IMPLDIFF |
CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid) |
|
./model/src/impldiff.F |
61 |
IMPLDIFF |
INTEGER i,j,k |
|
./model/src/impldiff.F |
89 |
IMPLDIFF |
DO k=1,Nr |
|
./model/src/impldiff.F |
90 |
IMPLDIFF |
deltaTX(k) = PTRACERS_dTLev(k) |
|
./model/src/impldiff.F |
96 |
IMPLDIFF |
DO k=1,Nr |
|
./model/src/impldiff.F |
97 |
IMPLDIFF |
deltaTX(k) = dTtracerLev(k) |
|
./pkg/timeave/timeave_cumul_2vfc.F |
44 |
TIMEAVE_CUMUL_2VFC |
INTEGER i, j, k |
|
./pkg/timeave/timeave_cumul_2vfc.F |
50 |
TIMEAVE_CUMUL_2VFC |
DO k=1,Ksize |
|
./pkg/timeave/timeave_cumul_2vfc.F |
53 |
TIMEAVE_CUMUL_2VFC |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) + deltaTloc* |
|
./pkg/timeave/timeave_cumul_2vfc.F |
54 |
TIMEAVE_CUMUL_2VFC |
& fld1(i,j,k,bi,bj)*fld2(i,j,k,bi,bj)*fld3(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2vfc.F |
65 |
TIMEAVE_CUMUL_2VFC |
DO k=1,Ksize |
|
./pkg/timeave/timeave_cumul_2vfc.F |
68 |
TIMEAVE_CUMUL_2VFC |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) + deltaTloc* |
|
./pkg/timeave/timeave_cumul_2vfc.F |
69 |
TIMEAVE_CUMUL_2VFC |
& 0.5*( fld1(i-1,j,k,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2vfc.F |
70 |
TIMEAVE_CUMUL_2VFC |
& *fld2(i,j,k,bi,bj)*fld3(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2vfc.F |
81 |
TIMEAVE_CUMUL_2VFC |
DO k=1,Ksize |
|
./pkg/timeave/timeave_cumul_2vfc.F |
84 |
TIMEAVE_CUMUL_2VFC |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) + deltaTloc* |
|
./pkg/timeave/timeave_cumul_2vfc.F |
85 |
TIMEAVE_CUMUL_2VFC |
& 0.5*( fld1(i,j-1,k,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2vfc.F |
86 |
TIMEAVE_CUMUL_2VFC |
& *fld2(i,j,k,bi,bj)*fld3(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
40 |
TIMEAVE_CUMUL_DIF_1T |
INTEGER i, j, k |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
44 |
TIMEAVE_CUMUL_DIF_1T |
DO k=1,Ksize |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
47 |
TIMEAVE_CUMUL_DIF_1T |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
48 |
TIMEAVE_CUMUL_DIF_1T |
& - ( fld1(i,j,k,bi,bj) - fld1(i-1,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
50 |
TIMEAVE_CUMUL_DIF_1T |
& * fld2(i,j,k) * deltaTloc |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
57 |
TIMEAVE_CUMUL_DIF_1T |
DO k=1,Ksize |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
60 |
TIMEAVE_CUMUL_DIF_1T |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
61 |
TIMEAVE_CUMUL_DIF_1T |
& - ( fld1(i,j,k,bi,bj) - fld1(i,j-1,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
63 |
TIMEAVE_CUMUL_DIF_1T |
& * fld2(i,j,k) * deltaTloc |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
70 |
TIMEAVE_CUMUL_DIF_1T |
DO k=2,Ksize |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
73 |
TIMEAVE_CUMUL_DIF_1T |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
74 |
TIMEAVE_CUMUL_DIF_1T |
& + ( fld1(i,j,k,bi,bj) - fld1(i,j,k-1,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
75 |
TIMEAVE_CUMUL_DIF_1T |
& * recip_drC(k) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
76 |
TIMEAVE_CUMUL_DIF_1T |
& * fld2(i,j,k) * deltaTloc |
|
./pkg/timeave/timeave_cumulate.F |
35 |
TIMEAVE_CUMULATE |
INTEGER i, j, k |
|
./pkg/timeave/timeave_cumulate.F |
39 |
TIMEAVE_CUMULATE |
DO k=1,Ksize |
|
./pkg/timeave/timeave_cumulate.F |
42 |
TIMEAVE_CUMULATE |
fldtave(i,j,k,bi,bj)= |
|
./pkg/timeave/timeave_cumulate.F |
43 |
TIMEAVE_CUMULATE |
& fldtave(i,j,k,bi,bj)+fld(i,j,k,bi,bj)*deltaTloc |
|
./pkg/timeave/timeave_norma_2v.F |
33 |
TIMEAVE_NORMA_2V |
INTEGER i, j, k |
|
./pkg/timeave/timeave_norma_2v.F |
37 |
TIMEAVE_NORMA_2V |
DO k=1,Ksize |
|
./pkg/timeave/timeave_norma_2v.F |
40 |
TIMEAVE_NORMA_2V |
IF ( cumulWeight(i,j,k,bi,bj) .GT. 0. _d 0 ) THEN |
|
./pkg/timeave/timeave_norma_2v.F |
41 |
TIMEAVE_NORMA_2V |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_norma_2v.F |
42 |
TIMEAVE_NORMA_2V |
& / cumulWeight(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_normaliz.F |
40 |
TIMEAVE_NORMALIZ |
INTEGER i, j, k |
|
./pkg/timeave/timeave_normaliz.F |
45 |
TIMEAVE_NORMALIZ |
DO k=1,kSize |
|
./pkg/timeave/timeave_normaliz.F |
46 |
TIMEAVE_NORMALIZ |
IF ( cumulTime(k,bi,bj) .NE. 0. ) THEN |
|
./pkg/timeave/timeave_normaliz.F |
49 |
TIMEAVE_NORMALIZ |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_normaliz.F |
50 |
TIMEAVE_NORMALIZ |
& / cumulTime(k,bi,bj) |
|
./pkg/timeave/timeave_normalize.F |
42 |
TIMEAVE_NORMALIZE |
INTEGER i, j, k |
|
./pkg/timeave/timeave_normalize.F |
49 |
TIMEAVE_NORMALIZE |
DO k=1,Ksize |
|
./pkg/timeave/timeave_normalize.F |
52 |
TIMEAVE_NORMALIZE |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_reset.F |
29 |
TIMEAVE_RESET |
INTEGER i, j, k |
|
./pkg/timeave/timeave_reset.F |
33 |
TIMEAVE_RESET |
DO k=1,Ksize |
|
./pkg/timeave/timeave_reset.F |
36 |
TIMEAVE_RESET |
fldtave(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/timeave/timeave_surf_flux.F |
104 |
TIMEAVE_SURF_FLUX |
& *salt(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_surf_flux.F |
41 |
TIMEAVE_SURF_FLUX |
k=Nr |
|
./pkg/timeave/timeave_surf_flux.F |
43 |
TIMEAVE_SURF_FLUX |
k=1 |
|
./pkg/timeave/timeave_surf_flux.F |
49 |
TIMEAVE_SURF_FLUX |
tmpFld(i,j)=fu(i,j,bi,bj)*foFacMom*_maskW(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_surf_flux.F |
58 |
TIMEAVE_SURF_FLUX |
tmpFld(i,j)=fv(i,j,bi,bj)*foFacMom*_maskS(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_surf_flux.F |
82 |
TIMEAVE_SURF_FLUX |
& *theta(i,j,k,bi,bj)*HeatCapacity_Cp |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
39 |
ZONAL_FILT_APPLY_UV |
INTEGER i, j, k |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
47 |
ZONAL_FILT_APPLY_UV |
DO k=1,Nr |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
51 |
ZONAL_FILT_APPLY_UV |
uFlow(i,j) = uFld(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
56 |
ZONAL_FILT_APPLY_UV |
I hFacW(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
60 |
ZONAL_FILT_APPLY_UV |
uFld(i,j,k,bi,bj) = uFlow(i,j)*recip_hFacW(i,j,k,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
43 |
ZONAL_FILT_NOFILL |
DO k=kMin, kMax |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
48 |
ZONAL_FILT_NOFILL |
phi(I) = field(i,j,k,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
77 |
ZONAL_FILT_NOFILL |
field(i,j,k,bi,bj) = phi(sNx+i) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
80 |
ZONAL_FILT_NOFILL |
field(i,j,k,bi,bj) = phi(I) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
83 |
ZONAL_FILT_NOFILL |
field(i,j,k,bi,bj) = phi(i-sNx) |
|
./model/src/ini_cg2d.F |
102 |
INI_CG2D |
faceArea = _dyG(i,j,bi,bj)*drF(k) |
|
./model/src/ini_cg2d.F |
103 |
INI_CG2D |
& *_hFacW(i,j,k,bi,bj) |
|
./model/src/ini_cg2d.F |
107 |
INI_CG2D |
faceArea = _dxG(i,j,bi,bj)*drF(k) |
|
./model/src/ini_cg2d.F |
108 |
INI_CG2D |
& *_hFacS(i,j,k,bi,bj) |
|
./model/src/ini_cg2d.F |
49 |
INI_CG2D |
INTEGER i, j, k, ks |
|
./model/src/ini_cg2d.F |
98 |
INI_CG2D |
DO k=1,Nr |
|
./pkg/zonal_filt/zonal_filter.F |
100 |
ZONAL_FILTER |
field(i,j,k) = phi(sNx+i) |
|
./pkg/zonal_filt/zonal_filter.F |
103 |
ZONAL_FILTER |
field(i,j,k) = phi(i) |
|
./pkg/zonal_filt/zonal_filter.F |
106 |
ZONAL_FILTER |
field(i,j,k) = phi(i-sNx) |
|
./pkg/zonal_filt/zonal_filter.F |
54 |
ZONAL_FILTER |
INTEGER i, j, k |
|
./pkg/zonal_filt/zonal_filter.F |
56 |
ZONAL_FILTER |
DO k= 1, kSize |
|
./pkg/zonal_filt/zonal_filter.F |
64 |
ZONAL_FILTER |
phi(i) = field(i,j,k) |
|
./pkg/zonal_filt/zonal_filter.F |
65 |
ZONAL_FILTER |
phiMask(i) = fieldMask(i,j,k) |
|
./model/src/ini_cg3d.F |
111 |
INI_CG3D |
DO k=1,Nr |
|
./model/src/ini_cg3d.F |
114 |
INI_CG3D |
faceArea = _dyG(i,j,bi,bj)*drF(k) |
|
./model/src/ini_cg3d.F |
115 |
INI_CG3D |
& *_hFacW(i,j,k,bi,bj) |
|
./model/src/ini_cg3d.F |
116 |
INI_CG3D |
aW3d(i,j,k,bi,bj) = faceArea*recip_dxC(i,j,bi,bj) |
|
./model/src/ini_cg3d.F |
118 |
INI_CG3D |
myNorm = MAX(ABS(aW3d(i,j,k,bi,bj)),myNorm) |
|
./model/src/ini_cg3d.F |
125 |
INI_CG3D |
& *_hFacS(i,j,k,bi,bj) |
|
./model/src/ini_cg3d.F |
126 |
INI_CG3D |
aS3d(i,j,k,bi,bj) = faceArea*recip_dyC(i,j,bi,bj) |
|
./model/src/ini_cg3d.F |
128 |
INI_CG3D |
myNorm = MAX(ABS(aS3d(i,j,k,bi,bj)),myNorm) |
|
./model/src/ini_cg3d.F |
132 |
INI_CG3D |
DO k=1,1 |
|
./model/src/ini_cg3d.F |
135 |
INI_CG3D |
aV3d(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
139 |
INI_CG3D |
DO k=2,Nr |
|
./model/src/ini_cg3d.F |
140 |
INI_CG3D |
tmpFac = nh_Fac*rVel2wUnit(k)*rVel2wUnit(k) |
|
./model/src/ini_cg3d.F |
141 |
INI_CG3D |
& + igwFac*dBdrRef(k)*deltaTMom*dTtracerLev(k) |
|
./model/src/ini_cg3d.F |
145 |
INI_CG3D |
faceArea = _rA(i,j,bi,bj)*maskC(i,j, k ,bi,bj) |
|
./model/src/ini_cg3d.F |
146 |
INI_CG3D |
& *maskC(i,j,k-1,bi,bj) |
|
./model/src/ini_cg3d.F |
147 |
INI_CG3D |
& *deepFac2F(k) |
|
./model/src/ini_cg3d.F |
148 |
INI_CG3D |
theRecip_Dr = recip_drC(k) |
|
./model/src/ini_cg3d.F |
154 |
INI_CG3D |
aV3d(i,j,k,bi,bj) = faceArea*theRecip_Dr*tmpFac |
|
./model/src/ini_cg3d.F |
156 |
INI_CG3D |
myNorm = MAX(ABS(aV3d(i,j,k,bi,bj)),myNorm) |
|
./model/src/ini_cg3d.F |
162 |
INI_CG3D |
DO k=1,Nr |
|
./model/src/ini_cg3d.F |
165 |
INI_CG3D |
aS3d( i, OB_Jn(i,bi,bj), k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
166 |
INI_CG3D |
aS3d( i,OB_Jn(i,bi,bj)+1,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
167 |
INI_CG3D |
aW3d( i, OB_Jn(i,bi,bj), k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
168 |
INI_CG3D |
aW3d(i+1,OB_Jn(i,bi,bj), k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
169 |
INI_CG3D |
aV3d( i, OB_Jn(i,bi,bj), k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
172 |
INI_CG3D |
aS3d( i,OB_Js(i,bi,bj)+1,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
173 |
INI_CG3D |
aS3d( i, OB_Js(i,bi,bj), k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
174 |
INI_CG3D |
aW3d( i, OB_Js(i,bi,bj), k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
175 |
INI_CG3D |
aW3d(i+1,OB_Js(i,bi,bj), k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
176 |
INI_CG3D |
aV3d( i, OB_Js(i,bi,bj), k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
181 |
INI_CG3D |
aW3d( OB_Ie(j,bi,bj), j, k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
182 |
INI_CG3D |
aW3d(OB_Ie(j,bi,bj)+1,j, k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
183 |
INI_CG3D |
aS3d( OB_Ie(j,bi,bj), j, k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
184 |
INI_CG3D |
aS3d( OB_Ie(j,bi,bj),j+1,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
185 |
INI_CG3D |
aV3d( OB_Ie(j,bi,bj), j, k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
188 |
INI_CG3D |
aW3d(OB_Iw(j,bi,bj)+1,j, k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
189 |
INI_CG3D |
aW3d( OB_Iw(j,bi,bj), j, k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
190 |
INI_CG3D |
aS3d( OB_Iw(j,bi,bj), j, k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
191 |
INI_CG3D |
aS3d( OB_Iw(j,bi,bj),j+1,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
192 |
INI_CG3D |
aV3d( OB_Iw(j,bi,bj), j, k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
222 |
INI_CG3D |
DO k=1,Nr |
|
./model/src/ini_cg3d.F |
225 |
INI_CG3D |
aW = aW3d( i, j, k, bi,bj) |
|
./model/src/ini_cg3d.F |
226 |
INI_CG3D |
aE = aW3d(i+1,j, k, bi,bj) |
|
./model/src/ini_cg3d.F |
227 |
INI_CG3D |
aN = aS3d( i,j+1,k, bi,bj) |
|
./model/src/ini_cg3d.F |
228 |
INI_CG3D |
aS = aS3d( i, j, k, bi,bj) |
|
./model/src/ini_cg3d.F |
229 |
INI_CG3D |
aU = aV3d( i, j, k, bi,bj) |
|
./model/src/ini_cg3d.F |
230 |
INI_CG3D |
IF ( k .NE. Nr ) THEN |
|
./model/src/ini_cg3d.F |
231 |
INI_CG3D |
aL = aV3d(i, j,k+1,bi,bj) |
|
./model/src/ini_cg3d.F |
235 |
INI_CG3D |
aC3d(i,j,k,bi,bj) = -aW-aE-aN-aS-aU-aL |
|
./model/src/ini_cg3d.F |
261 |
INI_CG3D |
DO k=1,Nr |
|
./model/src/ini_cg3d.F |
264 |
INI_CG3D |
aW3d(i,j,k,bi,bj) = aW3d(i,j,k,bi,bj)*myNorm |
|
./model/src/ini_cg3d.F |
265 |
INI_CG3D |
aS3d(i,j,k,bi,bj) = aS3d(i,j,k,bi,bj)*myNorm |
|
./model/src/ini_cg3d.F |
266 |
INI_CG3D |
aV3d(i,j,k,bi,bj) = aV3d(i,j,k,bi,bj)*myNorm |
|
./model/src/ini_cg3d.F |
267 |
INI_CG3D |
aC3d(i,j,k,bi,bj) = aC3d(i,j,k,bi,bj)*myNorm |
|
./model/src/ini_cg3d.F |
290 |
INI_CG3D |
DO k=1,Nr |
|
./model/src/ini_cg3d.F |
293 |
INI_CG3D |
IF ( aC3d(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./model/src/ini_cg3d.F |
294 |
INI_CG3D |
zMC(i,j,k,bi,bj) = aC3d(i,j,k,bi,bj) |
|
./model/src/ini_cg3d.F |
295 |
INI_CG3D |
zML(i,j,k,bi,bj) = aV3d(i,j,k,bi,bj) |
|
./model/src/ini_cg3d.F |
296 |
INI_CG3D |
IF ( k.NE.Nr ) THEN |
|
./model/src/ini_cg3d.F |
297 |
INI_CG3D |
zMU(i,j,k,bi,bj)= aV3d(i,j,k+1,bi,bj) |
|
./model/src/ini_cg3d.F |
299 |
INI_CG3D |
zMU(i,j,k,bi,bj)= 0. |
|
./model/src/ini_cg3d.F |
307 |
INI_CG3D |
zMC(i,j,k,bi,bj) = 1. _d 0 |
|
./model/src/ini_cg3d.F |
308 |
INI_CG3D |
zMU(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
309 |
INI_CG3D |
zML(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
314 |
INI_CG3D |
k = 1 |
|
./model/src/ini_cg3d.F |
317 |
INI_CG3D |
zMC(i,j,k,bi,bj) = 1. _d 0 / zMC(i,j,k,bi,bj) |
|
./model/src/ini_cg3d.F |
318 |
INI_CG3D |
zMU(i,j,k,bi,bj) = zMU(i,j,k,bi,bj)*zMC(i,j,k,bi,bj) |
|
./model/src/ini_cg3d.F |
321 |
INI_CG3D |
DO k=2,Nr |
|
./model/src/ini_cg3d.F |
324 |
INI_CG3D |
zMC(i,j,k,bi,bj) = 1. _d 0 / |
|
./model/src/ini_cg3d.F |
325 |
INI_CG3D |
& (zMC(i,j,k,bi,bj)-zML(i,j,k,bi,bj)*zMU(i,j,k-1,bi,bj)) |
|
./model/src/ini_cg3d.F |
326 |
INI_CG3D |
zMU(i,j,k,bi,bj) = zMU(i,j,k,bi,bj)*zMC(i,j,k,bi,bj) |
|
./model/src/ini_cg3d.F |
330 |
INI_CG3D |
DO k=1,Nr |
|
./model/src/ini_cg3d.F |
333 |
INI_CG3D |
IF ( aC3d(i,j,k,bi,bj) .EQ. 0. ) THEN |
|
./model/src/ini_cg3d.F |
334 |
INI_CG3D |
zMC(i,j,k,bi,bj) = 1. |
|
./model/src/ini_cg3d.F |
335 |
INI_CG3D |
zML(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
336 |
INI_CG3D |
zMU(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
50 |
INI_CG3D |
INTEGER i, j, k, ks |
|
./model/src/ini_cg3d.F |
66 |
INI_CG3D |
DO k=1,Nr |
|
./model/src/ini_cg3d.F |
70 |
INI_CG3D |
aW3d(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
71 |
INI_CG3D |
aS3d(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
72 |
INI_CG3D |
aV3d(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
73 |
INI_CG3D |
aC3d(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
74 |
INI_CG3D |
zMC (i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
75 |
INI_CG3D |
zML (i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
76 |
INI_CG3D |
zMU (i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
82 |
INI_CG3D |
cg3d_q(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
83 |
INI_CG3D |
cg3d_r(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
84 |
INI_CG3D |
cg3d_s(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
90 |
INI_CG3D |
cg3d_b(i,j,k,bi,bj) = 0. |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
35 |
COST_TEST |
integer i, j, k |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
59 |
COST_TEST |
k=1 |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
69 |
COST_TEST |
objf_test(bi,bj) = objf_test(bi,bj) + maskW(i,j,k,bi,bj) |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
70 |
COST_TEST |
& *( uVel(i,j,k,bi,bj) ) |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
71 |
COST_TEST |
& *( uVel(i,j,k,bi,bj) ) |
|
./verification/OpenAD/code_oad_all/cost_dependent_init.F |
39 |
COST_DEPENDENT_INIT |
integer i,j,k |
|
./verification/OpenAD/code_oad_all/cost_dependent_init.F |
68 |
COST_DEPENDENT_INIT |
do k=1,4*Nr |
|
./verification/OpenAD/code_oad_all/cost_dependent_init.F |
69 |
COST_DEPENDENT_INIT |
objf_state_final(i,j,bi,bj,k) = 0. _d 0 |
|
./verification/OpenAD/code_oad_all/ctrl_pack.F |
196 |
CTRL_PACK |
write(cunit) (nWetcGlobal(k), k=1,nr) |
|
./verification/OpenAD/code_oad_all/ctrl_pack.F |
197 |
CTRL_PACK |
write(cunit) (nWetsGlobal(k), k=1,nr) |
|
./verification/OpenAD/code_oad_all/ctrl_pack.F |
198 |
CTRL_PACK |
write(cunit) (nWetwGlobal(k), k=1,nr) |
|
./verification/OpenAD/code_oad_all/ctrl_pack.F |
200 |
CTRL_PACK |
write(cunit) (nWetvGlobal(k), k=1,nr) |
|
./verification/OpenAD/code_oad_all/ctrl_pack.F |
204 |
CTRL_PACK |
write(cunit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./verification/OpenAD/code_oad_all/ctrl_pack.F |
207 |
CTRL_PACK |
write(cunit) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./verification/OpenAD/code_oad_all/ctrl_pack.F |
210 |
CTRL_PACK |
write(cunit) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./verification/OpenAD/code_oad_all/ctrl_pack.F |
213 |
CTRL_PACK |
write(cunit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./verification/OpenAD/code_oad_all/ctrl_pack.F |
66 |
CTRL_PACK |
integer i, j, k |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
100 |
GAD_IMPLICIT_R |
d5d(i,j,k) = 0. _d 0 |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
101 |
GAD_IMPLICIT_R |
e5d(i,j,k) = 0. _d 0 |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
111 |
GAD_IMPLICIT_R |
DO k=1,Nr |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
114 |
GAD_IMPLICIT_R |
localTijk(i,j,k) = gTracer(i,j,k,bi,bj) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
119 |
GAD_IMPLICIT_R |
DO k=1,Nr |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
122 |
GAD_IMPLICIT_R |
localTijk(i,j,k) = tracer(i,j,k,bi,bj) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
133 |
GAD_IMPLICIT_R |
DO k=2,Nr |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
136 |
GAD_IMPLICIT_R |
b5d(i,j,k) = -dTtracerLev(k)*maskC(i,j,k-1,bi,bj) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
137 |
GAD_IMPLICIT_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
138 |
GAD_IMPLICIT_R |
& *kappaRX(i,j, k )*recip_drC( k ) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
143 |
GAD_IMPLICIT_R |
DO k=1,Nr-1 |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
146 |
GAD_IMPLICIT_R |
d5d(i,j,k) = -dTtracerLev(k)*maskC(i,j,k+1,bi,bj) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
147 |
GAD_IMPLICIT_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
148 |
GAD_IMPLICIT_R |
& *KappaRX(i,j,k+1)*recip_drC(k+1) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
153 |
GAD_IMPLICIT_R |
DO k=1,Nr |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
156 |
GAD_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 - b5d(i,j,k) - d5d(i,j,k) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
166 |
GAD_IMPLICIT_R |
DO k=Nr,1,-1 |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
169 |
GAD_IMPLICIT_R |
IF (k.EQ.Nr) THEN |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
183 |
GAD_IMPLICIT_R |
IF (k.EQ.1) THEN |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
193 |
GAD_IMPLICIT_R |
wFld(i,j) = wVel(i,j,k,bi,bj) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
194 |
GAD_IMPLICIT_R |
rTrans(i,j) = wFld(i,j)*rA(i,j,bi,bj)v*maskC(i,j,k-1,bi,bj) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
202 |
GAD_IMPLICIT_R |
I k, bi, bj, myThid ) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
208 |
GAD_IMPLICIT_R |
gTracer(i,j,k,bi,bj) = gTracer(i,j,k,bi,bj) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
210 |
GAD_IMPLICIT_R |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
211 |
GAD_IMPLICIT_R |
& *tracer(i,j,k,bi,bj)*(rTransKp1(i,j)-rTrans(i,j))*rkSign |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
226 |
GAD_IMPLICIT_R |
CALL GAD_C2_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
233 |
GAD_IMPLICIT_R |
CALL GAD_DST2U1_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
239 |
GAD_IMPLICIT_R |
CALL GAD_FLUXLIMIT_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
247 |
GAD_IMPLICIT_R |
CALL GAD_U3C4_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
253 |
GAD_IMPLICIT_R |
CALL GAD_DST3FL_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
299 |
GAD_IMPLICIT_R |
DO k= 1,Nr |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
300 |
GAD_IMPLICIT_R |
IF ( k.EQ.1 ) THEN |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
313 |
GAD_IMPLICIT_R |
& * KappaRX(i,j,k)*recip_drC(k) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
314 |
GAD_IMPLICIT_R |
& * (gTracer(i,j,k,bi,bj) - gTracer(i,j,k-1,bi,bj)) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
318 |
GAD_IMPLICIT_R |
CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
65 |
GAD_IMPLICIT_R |
INTEGER i,j,k |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
94 |
GAD_IMPLICIT_R |
DO k=1,Nr |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
97 |
GAD_IMPLICIT_R |
a5d(i,j,k) = 0. _d 0 |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
98 |
GAD_IMPLICIT_R |
b5d(i,j,k) = 0. _d 0 |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
99 |
GAD_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
102 |
GRDCHK_MAIN |
integer k |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
172 |
GRDCHK_MAIN |
do k = 1, nr |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
175 |
GRDCHK_MAIN |
tmpplot1(i,j,k,bi,bj) = 0. _d 0 |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
176 |
GRDCHK_MAIN |
tmpplot2(i,j,k,bi,bj) = 0. _d 0 |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
177 |
GRDCHK_MAIN |
tmpplot3(i,j,k,bi,bj) = 0. _d 0 |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
272 |
GRDCHK_MAIN |
do k=1,4*Nr+1 |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
275 |
GRDCHK_MAIN |
g_objf_state_final(i,j,1,1,k) = 0. |
|
./verification/advect_cs/code/ini_vel.F |
36 |
INI_VEL |
INTEGER bi,bj,i,j,k |
|
./verification/advect_cs/code/ini_vel.F |
54 |
INI_VEL |
DO k=1,Nr |
|
./verification/advect_cs/code/ini_vel.F |
59 |
INI_VEL |
uVel(i,j,k,bi,bj)=0. _d 0 |
|
./verification/advect_cs/code/ini_vel.F |
61 |
INI_VEL |
vVel(i,j,k,bi,bj)=0. _d 0 |
|
./verification/advect_cs/code/ini_vel.F |
83 |
INI_VEL |
DO k=1,Nr |
|
./verification/advect_cs/code/ini_vel.F |
86 |
INI_VEL |
uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./verification/advect_cs/code/ini_vel.F |
87 |
INI_VEL |
vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./verification/advect_xy/code/ini_salt.F |
47 |
INI_SALT |
INTEGER i, j, k, localWarnings |
|
./verification/advect_xy/code/ini_salt.F |
55 |
INI_SALT |
DO k=1,Nr |
|
./verification/advect_xy/code/ini_salt.F |
58 |
INI_SALT |
salt(i,j,k,bi,bj) = sRef(k) |
|
./verification/advect_xy/code/ini_salt.F |
67 |
INI_SALT |
& +( rC(k) + 50. _d 3 )**2 |
|
./verification/advect_xy/code/ini_salt.F |
69 |
INI_SALT |
IF ( rD.LE.60. _d 3 ) salt(i,j,k,bi,bj) = sRef(k)+1. _d 0 |
|
./verification/advect_xy/code/ini_salt.F |
86 |
INI_SALT |
DO k=1,Nr |
|
./verification/advect_xy/code/ini_salt.F |
90 |
INI_SALT |
IF (maskC(i,j,k,bi,bj).EQ.0.) salt(i,j,k,bi,bj) = 0. |
|
./verification/advect_xy/code/ini_salt.F |
94 |
INI_SALT |
IF ( sRef(k).NE.0. ) THEN |
|
./verification/advect_xy/code/ini_salt.F |
97 |
INI_SALT |
IF ( maskC(i,j,k,bi,bj).NE.0. |
|
./verification/advect_xy/code/ini_salt.F |
98 |
INI_SALT |
& .AND. salt(i,j,k,bi,bj).EQ.0. ) THEN |
|
./verification/advect_xy/code/ini_theta.F |
101 |
INI_THETA |
IF ( maskC(i,j,k,bi,bj).NE.0. |
|
./verification/advect_xy/code/ini_theta.F |
102 |
INI_THETA |
& .AND. theta(i,j,k,bi,bj).EQ.0. ) THEN |
|
./verification/advect_xy/code/ini_theta.F |
136 |
INI_THETA |
DO k=1,Nr |
|
./verification/advect_xy/code/ini_theta.F |
139 |
INI_THETA |
IF (theta(i,j,k,bi,bj) .LT. Tfreezing) THEN |
|
./verification/advect_xy/code/ini_theta.F |
140 |
INI_THETA |
theta(i,j,k,bi,bj) = Tfreezing |
|
./verification/advect_xy/code/ini_theta.F |
47 |
INI_THETA |
INTEGER i, j, k, localWarnings |
|
./verification/advect_xy/code/ini_theta.F |
56 |
INI_THETA |
DO k=1,Nr |
|
./verification/advect_xy/code/ini_theta.F |
59 |
INI_THETA |
theta(i,j,k,bi,bj) = tRef(k) |
|
./verification/advect_xy/code/ini_theta.F |
68 |
INI_THETA |
& +( rC(k) + 50. _d 3 )**2 |
|
./verification/advect_xy/code/ini_theta.F |
70 |
INI_THETA |
theta(i,j,k,bi,bj) = EXP( -0.5 _d 0*( rD/20. _d 3 )**2 ) |
|
./verification/advect_xy/code/ini_theta.F |
90 |
INI_THETA |
DO k=1,Nr |
|
./verification/advect_xy/code/ini_theta.F |
94 |
INI_THETA |
IF (maskC(i,j,k,bi,bj).EQ.0.) theta(i,j,k,bi,bj) = 0. |
|
./verification/advect_xy/code/ini_theta.F |
98 |
INI_THETA |
IF ( tRef(k).NE.0. ) THEN |
|
./verification/advect_xy/code/ini_vel.F |
36 |
INI_VEL |
INTEGER bi,bj,i,j,k |
|
./verification/advect_xy/code/ini_vel.F |
48 |
INI_VEL |
DO k=1,Nr |
|
./verification/advect_xy/code/ini_vel.F |
51 |
INI_VEL |
uVel(i,j,k,bi,bj)=1. _d 0 |
|
./verification/advect_xy/code/ini_vel.F |
52 |
INI_VEL |
vVel(i,j,k,bi,bj)=1. _d 0 |
|
./verification/advect_xy/code/ini_vel.F |
73 |
INI_VEL |
DO k=1,Nr |
|
./verification/advect_xy/code/ini_vel.F |
76 |
INI_VEL |
uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./verification/advect_xy/code/ini_vel.F |
77 |
INI_VEL |
vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./model/src/ini_dynvars.F |
78 |
INI_DYNVARS |
IVDConvCount(i,j,k,bi,bj) = 0. _d 0 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
435 |
AIM_SURF_BC |
DO k=1,3 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
437 |
AIM_SURF_BC |
dTsurf(J,k,myThid) = 0. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
86 |
AIM_SURF_BC |
INTEGER i,j,I2,k, nm0 |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
24 |
MOM_VI_HFACZ_DISS |
INTEGER bi,bj,k |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
44 |
MOM_VI_HFACZ_DISS |
hFacZOpen=MIN(_hFacW(i,j,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
45 |
MOM_VI_HFACZ_DISS |
& + _hFacW(i,j-1,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
46 |
MOM_VI_HFACZ_DISS |
& , _hFacS(i,j,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
47 |
MOM_VI_HFACZ_DISS |
& + _hFacS(i-1,j,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
64 |
MOM_VI_HFACZ_DISS |
hFacZOpen=MIN( _hFacW(i,j,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
65 |
MOM_VI_HFACZ_DISS |
& , _hFacW(i,j-1,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
66 |
MOM_VI_HFACZ_DISS |
& , _hFacS(i,j,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
67 |
MOM_VI_HFACZ_DISS |
& , _hFacS(i-1,j,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
7 |
MOM_VI_HFACZ_DISS |
I bi,bj,k, |
|
./model/src/ini_eos.F |
306 |
EOS_CHECK |
INTEGER i, j, k |
|
./model/src/ini_eos.F |
374 |
EOS_CHECK |
k = 1 |
|
./model/src/ini_eos.F |
391 |
EOS_CHECK |
mskSave = maskC(i,j,k,bi,bj) |
|
./model/src/ini_eos.F |
392 |
EOS_CHECK |
rC_Save = rC(k) |
|
./model/src/ini_eos.F |
393 |
EOS_CHECK |
maskC(i,j,k,bi,bj) = 1. |
|
./model/src/ini_eos.F |
394 |
EOS_CHECK |
totPhiHyd(i,j,k,bi,bj) = 0. |
|
./model/src/ini_eos.F |
398 |
EOS_CHECK |
rC(k) = -pLoc(kcheck)*recip_rhoConst*recip_gravity |
|
./model/src/ini_eos.F |
400 |
EOS_CHECK |
rC(k) = pLoc(kcheck) |
|
./model/src/ini_eos.F |
412 |
EOS_CHECK |
I iMin, iMax, jMin, jMax, k, |
|
./model/src/ini_eos.F |
415 |
EOS_CHECK |
I k, bi, bj, myThid ) |
|
./model/src/ini_eos.F |
41 |
INI_EOS |
INTEGER i, k |
|
./model/src/ini_eos.F |
466 |
EOS_CHECK |
maskC(i,j,k,bi,bj) = mskSave |
|
./model/src/ini_eos.F |
467 |
EOS_CHECK |
rC(k) = rC_Save |
|
./model/src/ini_eos.F |
51 |
INI_EOS |
DO k = 1,6 |
|
./model/src/ini_eos.F |
52 |
INI_EOS |
eosJMDCFw(k) = 0. _d 0 |
|
./model/src/ini_eos.F |
54 |
INI_EOS |
DO k = 1,9 |
|
./model/src/ini_eos.F |
55 |
INI_EOS |
eosJMDCSw(k) = 0. _d 0 |
|
./model/src/ini_eos.F |
57 |
INI_EOS |
DO k = 1,5 |
|
./model/src/ini_eos.F |
58 |
INI_EOS |
eosJMDCKFw(k) = 0. _d 0 |
|
./model/src/ini_eos.F |
60 |
INI_EOS |
DO k = 1,7 |
|
./model/src/ini_eos.F |
61 |
INI_EOS |
eosJMDCKSw(k) = 0. _d 0 |
|
./model/src/ini_eos.F |
63 |
INI_EOS |
DO k = 1,14 |
|
./model/src/ini_eos.F |
64 |
INI_EOS |
eosJMDCKP(k) = 0. _d 0 |
|
./model/src/ini_eos.F |
66 |
INI_EOS |
DO k = 0,11 |
|
./model/src/ini_eos.F |
67 |
INI_EOS |
eosMDJWFnum(k) = 0. _d 0 |
|
./model/src/ini_eos.F |
69 |
INI_EOS |
DO k = 0,12 |
|
./model/src/ini_eos.F |
70 |
INI_EOS |
eosMDJWFden(k) = 0. _d 0 |
|
./model/src/ini_eos.F |
78 |
INI_EOS |
READ(37,*) k |
|
./model/src/ini_eos.F |
79 |
INI_EOS |
IF (k.NE.Nr) THEN |
|
./model/src/ini_eos.F |
88 |
INI_EOS |
READ(37,*) (eosRefT(k),eosRefS(k),eosSig0(k),k=1,Nr) |
|
./model/src/ini_eos.F |
89 |
INI_EOS |
DO k=1,Nr |
|
./model/src/ini_eos.F |
90 |
INI_EOS |
READ(37,*) (eosC(i,k),i=1,9) |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
22 |
MOM_VI_MASK_VORT3 |
INTEGER bi,bj,k |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
43 |
MOM_VI_MASK_VORT3 |
hFacZOpen=min(_hFacW(i,j,k,bi,bj), |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
44 |
MOM_VI_MASK_VORT3 |
& _hFacW(i,j-1,k,bi,bj)) |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
45 |
MOM_VI_MASK_VORT3 |
hFacZOpen=min(_hFacS(i,j,k,bi,bj),hFacZOpen) |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
46 |
MOM_VI_MASK_VORT3 |
hFacZOpen=min(_hFacS(i-1,j,k,bi,bj),hFacZOpen) |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
7 |
MOM_VI_MASK_VORT3 |
I bi,bj,k, |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
34 |
COST_TEST |
integer i, j, k |
|
./verification/dome/code/obcs_calc.F |
133 |
OBCS_CALC |
OBWt(J,K,bi,bj)= Tref(k) |
|
./verification/dome/code/obcs_calc.F |
158 |
OBCS_CALC |
zt=(z(k) + Dmax - (hinit + Dmax))/(hinit+Dmax) |
|
./model/src/ini_linear_phisurf.F |
174 |
INI_LINEAR_PHISURF |
k = ksurfC(I,J,bi,bj) |
|
./model/src/ini_linear_phisurf.F |
177 |
INI_LINEAR_PHISURF |
I tRef(k), sRef(k), pLoc, |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
111 |
FIZHI_INIT_VEG |
do k=1,maxtyp |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
114 |
FIZHI_INIT_VEG |
if(surftype(i,j,k,bi,bj).ge.100 .and. |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
115 |
FIZHI_INIT_VEG |
. tilefrac(i,j,k,bi,bj).gt.0.) then |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
118 |
FIZHI_INIT_VEG |
ityp (nchptot(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
119 |
FIZHI_INIT_VEG |
chfr (nchptot(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
66 |
FIZHI_INIT_VEG |
integer i,j,k,bi,bj |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
79 |
FIZHI_INIT_VEG |
do k = 3,maxtyp |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
82 |
FIZHI_INIT_VEG |
surftype(i,j,k,bi,bj) = 0 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
83 |
FIZHI_INIT_VEG |
tilefrac(i,j,k,bi,bj) = 0. |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
108 |
INI_SALT |
call QSAT(temperature(i,j,k,bi,bj),pinmb,qstar(i,j,k,bi,bj), |
|
./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 |
130 |
INI_SALT |
& .AND. sRef(k).NE.0.) THEN |
|
./model/src/ini_masks_etc.F |
104 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj)=0. |
|
./model/src/ini_masks_etc.F |
106 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj)=hFacMnSz |
|
./model/src/ini_masks_etc.F |
109 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj)=hFacCtmp |
|
./model/src/ini_masks_etc.F |
119 |
INI_MASKS_ETC |
DO k=Nr,1,-1 |
|
./model/src/ini_masks_etc.F |
121 |
INI_MASKS_ETC |
& - drF(k)*hFacC(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
133 |
INI_MASKS_ETC |
DO k=1, Nr |
|
./model/src/ini_masks_etc.F |
134 |
INI_MASKS_ETC |
hFacMnSz=max( hFacMin, min(hFacMinDr*recip_drF(k),1. _d 0) ) |
|
./model/src/ini_masks_etc.F |
138 |
INI_MASKS_ETC |
hFacCtmp = (rF(k)-Ro_surf(i,j,bi,bj))*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
140 |
INI_MASKS_ETC |
hFacCtmp = hFacC(i,j,k,bi,bj) - max( hFacCtmp, 0. _d 0) |
|
./model/src/ini_masks_etc.F |
146 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj)=0. |
|
./model/src/ini_masks_etc.F |
148 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj)=hFacMnSz |
|
./model/src/ini_masks_etc.F |
151 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj)=hFacCtmp |
|
./model/src/ini_masks_etc.F |
181 |
INI_MASKS_ETC |
DO k=Nr,1,-1 |
|
./model/src/ini_masks_etc.F |
183 |
INI_MASKS_ETC |
& + drF(k)*hFacC(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
184 |
INI_MASKS_ETC |
IF (hFacC(i,j,k,bi,bj).NE.0.) THEN |
|
./model/src/ini_masks_etc.F |
185 |
INI_MASKS_ETC |
kSurfC(i,j,bi,bj) = k |
|
./model/src/ini_masks_etc.F |
191 |
INI_MASKS_ETC |
DO k= 1, Nr |
|
./model/src/ini_masks_etc.F |
192 |
INI_MASKS_ETC |
IF (hFacC(i,j,k,bi,bj).NE.0) THEN |
|
./model/src/ini_masks_etc.F |
193 |
INI_MASKS_ETC |
kLowC(i,j,bi,bj) = k |
|
./model/src/ini_masks_etc.F |
235 |
INI_MASKS_ETC |
DO k=1, Nr |
|
./model/src/ini_masks_etc.F |
237 |
INI_MASKS_ETC |
hFacW(1-OLx,j,k,bi,bj)= 0. |
|
./model/src/ini_masks_etc.F |
239 |
INI_MASKS_ETC |
hFacW(i,j,k,bi,bj)= |
|
./model/src/ini_masks_etc.F |
240 |
INI_MASKS_ETC |
& MIN(hFacC(i,j,k,bi,bj),hFacC(i-1,j,k,bi,bj)) |
|
./model/src/ini_masks_etc.F |
244 |
INI_MASKS_ETC |
hFacS(i,1-OLy,k,bi,bj)= 0. |
|
./model/src/ini_masks_etc.F |
248 |
INI_MASKS_ETC |
hFacS(i,j,k,bi,bj)= |
|
./model/src/ini_masks_etc.F |
249 |
INI_MASKS_ETC |
& MIN(hFacC(i,j,k,bi,bj),hFacC(i,j-1,k,bi,bj)) |
|
./model/src/ini_masks_etc.F |
292 |
INI_MASKS_ETC |
DO k=1, Nr |
|
./model/src/ini_masks_etc.F |
295 |
INI_MASKS_ETC |
IF (dyG(i,j,bi,bj).EQ.0.) hFacW(i,j,k,bi,bj)=0. |
|
./model/src/ini_masks_etc.F |
296 |
INI_MASKS_ETC |
IF (dxG(i,j,bi,bj).EQ.0.) hFacS(i,j,k,bi,bj)=0. |
|
./model/src/ini_masks_etc.F |
310 |
INI_MASKS_ETC |
DO k=Nr,1,-1 |
|
./model/src/ini_masks_etc.F |
311 |
INI_MASKS_ETC |
IF (hFacW(i,j,k,bi,bj).NE.0.) kSurfW(i,j,bi,bj) = k |
|
./model/src/ini_masks_etc.F |
312 |
INI_MASKS_ETC |
IF (hFacS(i,j,k,bi,bj).NE.0.) kSurfS(i,j,bi,bj) = k |
|
./model/src/ini_masks_etc.F |
348 |
INI_MASKS_ETC |
DO k=1,Nr |
|
./model/src/ini_masks_etc.F |
351 |
INI_MASKS_ETC |
IF (hFacC(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./model/src/ini_masks_etc.F |
352 |
INI_MASKS_ETC |
recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / hFacC(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
353 |
INI_MASKS_ETC |
maskC(i,j,k,bi,bj) = 1. |
|
./model/src/ini_masks_etc.F |
355 |
INI_MASKS_ETC |
recip_hFacC(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
356 |
INI_MASKS_ETC |
maskC(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
358 |
INI_MASKS_ETC |
IF (hFacW(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./model/src/ini_masks_etc.F |
359 |
INI_MASKS_ETC |
recip_hFacW(i,j,k,bi,bj) = 1. _d 0 / hFacW(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
360 |
INI_MASKS_ETC |
maskW(i,j,k,bi,bj) = 1. |
|
./model/src/ini_masks_etc.F |
362 |
INI_MASKS_ETC |
recip_hFacW(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
363 |
INI_MASKS_ETC |
maskW(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
365 |
INI_MASKS_ETC |
IF (hFacS(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./model/src/ini_masks_etc.F |
366 |
INI_MASKS_ETC |
recip_hFacS(i,j,k,bi,bj) = 1. _d 0 / hFacS(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
367 |
INI_MASKS_ETC |
maskS(i,j,k,bi,bj) = 1. |
|
./model/src/ini_masks_etc.F |
369 |
INI_MASKS_ETC |
recip_hFacS(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
370 |
INI_MASKS_ETC |
maskS(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
45 |
INI_MASKS_ETC |
INTEGER i, j, k |
|
./model/src/ini_masks_etc.F |
93 |
INI_MASKS_ETC |
DO k=1, Nr |
|
./model/src/ini_masks_etc.F |
94 |
INI_MASKS_ETC |
hFacMnSz=max( hFacMin, min(hFacMinDr*recip_drF(k),1. _d 0) ) |
|
./model/src/ini_masks_etc.F |
98 |
INI_MASKS_ETC |
hFacCtmp = (rF(k)-R_low(i,j,bi,bj))*recip_drF(k) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
118 |
FIZHI_INIT_VEG |
do k=1,maxtyp |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
121 |
FIZHI_INIT_VEG |
if(surftype(i,j,k,bi,bj).lt.100 .and. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
122 |
FIZHI_INIT_VEG |
. tilefrac(i,j,k,bi,bj).gt.0.) then |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
125 |
FIZHI_INIT_VEG |
ityp (nchpland(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
126 |
FIZHI_INIT_VEG |
chfr (nchpland(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
138 |
FIZHI_INIT_VEG |
do k=1,maxtyp |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
141 |
FIZHI_INIT_VEG |
if(surftype(i,j,k,bi,bj).ge.100 .and. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
142 |
FIZHI_INIT_VEG |
. tilefrac(i,j,k,bi,bj).gt.0.) then |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
145 |
FIZHI_INIT_VEG |
ityp (nchptot(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
146 |
FIZHI_INIT_VEG |
chfr (nchptot(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
66 |
FIZHI_INIT_VEG |
integer i,j,k,bi,bj |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
91 |
FIZHI_INIT_VEG |
do k = 3,maxtyp |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
94 |
FIZHI_INIT_VEG |
surftype(i,j,k,bi,bj) = 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
95 |
FIZHI_INIT_VEG |
tilefrac(i,j,k,bi,bj) = 0. |
|
./model/src/ini_mixing.F |
44 |
INI_MIXING |
INTEGER i, j, k |
|
./model/src/ini_mixing.F |
49 |
INI_MIXING |
DO k=1,Nr |
|
./model/src/ini_mixing.F |
53 |
INI_MIXING |
diffKr(i,j,k,bi,bj) = diffKrNrS(k) |
|
./model/src/ini_mixing.F |
56 |
INI_MIXING |
KapGM(i,j,k,bi,bj) = GM_background_K |
|
./model/src/ini_mixing.F |
59 |
INI_MIXING |
kapredi(i,j,k,bi,bj) = GM_isopycK |
|
./verification/flt_example/extra/cvprofiles.F |
200 |
NO PROCEDURE |
do k=1,Nr |
|
./verification/flt_example/extra/cvprofiles.F |
201 |
NO PROCEDURE |
if (.not. preflag) uvel(m,k,n) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
202 |
NO PROCEDURE |
if (.not. preflag) vvel(m,k,n) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
203 |
NO PROCEDURE |
temp(m,k,n) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
204 |
NO PROCEDURE |
if (.not. preflag) salt(m,k,n) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
215 |
NO PROCEDURE |
do k=2,Nr |
|
./verification/flt_example/extra/cvprofiles.F |
216 |
NO PROCEDURE |
if (delZ(k) .ne. delZ(k-1)) then |
|
./verification/flt_example/extra/cvprofiles.F |
225 |
NO PROCEDURE |
do k=2,Nr+1 |
|
./verification/flt_example/extra/cvprofiles.F |
226 |
NO PROCEDURE |
Dep_w(k)=Dep_w(k-1)+delZ(k-1) |
|
./verification/flt_example/extra/cvprofiles.F |
227 |
NO PROCEDURE |
if (k .ne. Nr+1) Dep_wm1(k) = Dep_w(k) |
|
./verification/flt_example/extra/cvprofiles.F |
230 |
NO PROCEDURE |
do k=1,Nr |
|
./verification/flt_example/extra/cvprofiles.F |
231 |
NO PROCEDURE |
Dep_t(k)=(Dep_w(k)+Dep_w(k+1))*0.5 |
|
./verification/flt_example/extra/cvprofiles.F |
288 |
NO PROCEDURE |
do k=1,Nr |
|
./verification/flt_example/extra/cvprofiles.F |
289 |
NO PROCEDURE |
if (.not. preflag) uvel(ip,k,np) = SNGL(tmp(6+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
290 |
NO PROCEDURE |
if (.not. preflag) vvel(ip,k,np) = SNGL(tmp(6+1*Nr+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
291 |
NO PROCEDURE |
temp(ip,k,np) = SNGL(tmp(6+2*Nr+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
292 |
NO PROCEDURE |
if (.not. preflag) salt(ip,k,np) = SNGL(tmp(6+3*Nr+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
293 |
NO PROCEDURE |
if (temp(ip,k,np) .eq. 0.) then |
|
./verification/flt_example/extra/cvprofiles.F |
294 |
NO PROCEDURE |
if (.not. preflag) uvel(ip,k,np) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
295 |
NO PROCEDURE |
if (.not. preflag) vvel(ip,k,np) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
296 |
NO PROCEDURE |
temp(ip,k,np) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
297 |
NO PROCEDURE |
if (.not. preflag) salt(ip,k,np) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
558 |
NO PROCEDURE |
do k=1,Nr |
|
./verification/flt_example/extra/cvprofiles.F |
559 |
NO PROCEDURE |
temp(ip,k,np) = SNGL(tmp(6+3*Nr+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
560 |
NO PROCEDURE |
if (SNGL(tmp(6+2*Nr+k)) .eq. 0.) then |
|
./verification/flt_example/extra/cvprofiles.F |
561 |
NO PROCEDURE |
temp(ip,k,np) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
588 |
NO PROCEDURE |
do k=1,Nr |
|
./verification/flt_example/extra/cvprofiles.F |
589 |
NO PROCEDURE |
temp(ip,k,np) = SNGL(tmp(6+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
590 |
NO PROCEDURE |
if (SNGL(tmp(6+2*Nr+k)) .eq. 0.) then |
|
./verification/flt_example/extra/cvprofiles.F |
591 |
NO PROCEDURE |
temp(ip,k,np) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
618 |
NO PROCEDURE |
do k=1,Nr |
|
./verification/flt_example/extra/cvprofiles.F |
619 |
NO PROCEDURE |
temp(ip,k,np) = SNGL(tmp(6+1*Nr+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
620 |
NO PROCEDURE |
if (SNGL(tmp(6+2*Nr+k)) .eq. 0.) then |
|
./verification/flt_example/extra/cvprofiles.F |
621 |
NO PROCEDURE |
temp(ip,k,np) = spval |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
100 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
101 |
ECCO_COST_WEIGHTS |
wti(k) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
102 |
ECCO_COST_WEIGHTS |
wsi(k) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
103 |
ECCO_COST_WEIGHTS |
wui(k) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
104 |
ECCO_COST_WEIGHTS |
wvi(k) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1126 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1127 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1128 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = ratio/wtheta(k,bi,bj)/wtheta(k,bi,bj)/2. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1130 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1132 |
ECCO_COST_WEIGHTS |
if (wsalt(k,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1133 |
ECCO_COST_WEIGHTS |
wsalt(k,bi,bj) = ratio/wsalt(k,bi,bj)/wsalt(k,bi,bj)/2. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1135 |
ECCO_COST_WEIGHTS |
wsalt(k,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1142 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1144 |
ECCO_COST_WEIGHTS |
if (wobcsn(k,iobcs) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1145 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1146 |
ECCO_COST_WEIGHTS |
& ratio/wobcsn(k,iobcs)/wobcsn(k,iobcs) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1148 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1152 |
ECCO_COST_WEIGHTS |
if (wobcss(k,iobcs) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1153 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1154 |
ECCO_COST_WEIGHTS |
& ratio/wobcss(k,iobcs)/wobcss(k,iobcs) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1156 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1160 |
ECCO_COST_WEIGHTS |
if (wobcsw(k,iobcs) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1161 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1162 |
ECCO_COST_WEIGHTS |
& ratio/wobcsw(k,iobcs)/wobcsw(k,iobcs) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1164 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1168 |
ECCO_COST_WEIGHTS |
if (wobcse(k,iobcs) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1169 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1170 |
ECCO_COST_WEIGHTS |
& ratio/wobcse(k,iobcs)/wobcse(k,iobcs) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1172 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
142 |
ECCO_COST_WEIGHTS |
do k = 1,Nr |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
143 |
ECCO_COST_WEIGHTS |
wtheta (k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
144 |
ECCO_COST_WEIGHTS |
wsalt (k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
145 |
ECCO_COST_WEIGHTS |
wctdt (k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
146 |
ECCO_COST_WEIGHTS |
wctds (k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
149 |
ECCO_COST_WEIGHTS |
wtheta2 (i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
150 |
ECCO_COST_WEIGHTS |
wsalt2 (i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
151 |
ECCO_COST_WEIGHTS |
wthetaLev (i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
152 |
ECCO_COST_WEIGHTS |
wsaltLev (i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
162 |
ECCO_COST_WEIGHTS |
do k = 1,Nr |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
165 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
169 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
173 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
177 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
249 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
250 |
ECCO_COST_WEIGHTS |
read(gwunit,*) wti(k), wsi(k) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
253 |
ECCO_COST_WEIGHTS |
& , wvi(k) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
279 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
280 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = wti(k) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
281 |
ECCO_COST_WEIGHTS |
wsalt (k,bi,bj) = wsi(k) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
282 |
ECCO_COST_WEIGHTS |
wcurrent(k,bi,bj) = wvi(k) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
285 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
287 |
ECCO_COST_WEIGHTS |
wobcsn(k,1) = wti(k) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
288 |
ECCO_COST_WEIGHTS |
wobcsn(k,2) = wsi(k) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
289 |
ECCO_COST_WEIGHTS |
wobcsn(k,3) = wti(k)*0.02 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
290 |
ECCO_COST_WEIGHTS |
wobcsn(k,4) = wti(k)*0.02 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
293 |
ECCO_COST_WEIGHTS |
wobcss(k,1) = wti(k) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
294 |
ECCO_COST_WEIGHTS |
wobcss(k,2) = wsi(k) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
295 |
ECCO_COST_WEIGHTS |
wobcss(k,3) = wti(k)*0.02 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
296 |
ECCO_COST_WEIGHTS |
wobcss(k,4) = wti(k)*0.02 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
299 |
ECCO_COST_WEIGHTS |
wobcsw(k,1) = wti(k) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
300 |
ECCO_COST_WEIGHTS |
wobcsw(k,2) = wsi(k) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
301 |
ECCO_COST_WEIGHTS |
wobcsw(k,3) = wti(k)*0.02 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
302 |
ECCO_COST_WEIGHTS |
wobcsw(k,4) = wti(k)*0.02 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
305 |
ECCO_COST_WEIGHTS |
wobcse(k,1) = wti(k) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
306 |
ECCO_COST_WEIGHTS |
wobcse(k,2) = wsi(k) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
307 |
ECCO_COST_WEIGHTS |
wobcse(k,3) = wti(k)*0.02 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
308 |
ECCO_COST_WEIGHTS |
wobcse(k,4) = wti(k)*0.02 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
320 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
324 |
ECCO_COST_WEIGHTS |
if ( wsaltLev(i,j,k,bi,bj).eq.0 ) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
325 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
327 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj)=frame(i,j)/ |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
328 |
ECCO_COST_WEIGHTS |
$ ( wsaltLev(i,j,k,bi,bj)*wsaltLev(i,j,k,bi,bj) ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
338 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
341 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj)=ratio/(wsalt(k,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
342 |
ECCO_COST_WEIGHTS |
$ *wsalt(k,bi,bj)) *frame(i,j) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
359 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
363 |
ECCO_COST_WEIGHTS |
if ( wthetaLev(i,j,k,bi,bj).eq.0 ) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
364 |
ECCO_COST_WEIGHTS |
wthetaLev(i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
366 |
ECCO_COST_WEIGHTS |
wthetaLev(i,j,k,bi,bj)=frame(i,j)/ |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
367 |
ECCO_COST_WEIGHTS |
$ ( wthetaLev(i,j,k,bi,bj)*wthetaLev(i,j,k,bi,bj) ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
377 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
380 |
ECCO_COST_WEIGHTS |
wthetaLev(i,j,k,bi,bj)=ratio/(wtheta(k,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
381 |
ECCO_COST_WEIGHTS |
$ *wtheta(k,bi,bj)) *frame(i,j) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
402 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
406 |
ECCO_COST_WEIGHTS |
if (wsalt(k,bi,bj).eq.0 .and. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
407 |
ECCO_COST_WEIGHTS |
$ wsalt2(i,j,k,bi,bj).eq.0) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
408 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
411 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj)=frame(i,j)/( |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
412 |
ECCO_COST_WEIGHTS |
$ wsalt2(i,j,k,bi,bj)*wsalt2(i,j,k,bi,bj) ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
422 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
425 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj)=ratio/(wsalt(k,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
426 |
ECCO_COST_WEIGHTS |
$ *wsalt(k,bi,bj)) *frame(i,j) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
445 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
449 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj).eq.0 .and. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
450 |
ECCO_COST_WEIGHTS |
$ wtheta2(i,j,k,bi,bj).eq.0) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
451 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
454 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj)=frame(i,j)/( |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
455 |
ECCO_COST_WEIGHTS |
$ wtheta2(i,j,k,bi,bj)*wtheta2(i,j,k,bi,bj) ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
465 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
468 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj).eq.0 ) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
469 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
471 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj) = ratio/(wtheta(k,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
472 |
ECCO_COST_WEIGHTS |
$ *wtheta(k,bi,bj))*frame(i,j) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
482 |
ECCO_COST_WEIGHTS |
k = 1 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
487 |
ECCO_COST_WEIGHTS |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
494 |
ECCO_COST_WEIGHTS |
wsst(i,j,bi,bj) = wtheta(k,bi,bj)*frame(i,j) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
495 |
ECCO_COST_WEIGHTS |
wsss(i,j,bi,bj) = wsalt(k,bi,bj)*frame(i,j) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
50 |
ECCO_COST_WEIGHTS |
integer i,j,k |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
560 |
ECCO_COST_WEIGHTS |
k = 1 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
565 |
ECCO_COST_WEIGHTS |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
620 |
ECCO_COST_WEIGHTS |
k = 1 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
631 |
ECCO_COST_WEIGHTS |
& maskW(i,j,k,bi,bj).NE.0. ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
638 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = wscatx(i,j,bi,bj)*maskW(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
648 |
ECCO_COST_WEIGHTS |
& maskS(i,j,k,bi,bj).NE.0. ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
655 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = wscaty(i,j,bi,bj)*maskS(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
675 |
ECCO_COST_WEIGHTS |
k = 1 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
709 |
ECCO_COST_WEIGHTS |
k = 1 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
720 |
ECCO_COST_WEIGHTS |
& maskW(i,j,k,bi,bj).NE.0. ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
727 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = wtauu(i,j,bi,bj)*maskW(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
752 |
ECCO_COST_WEIGHTS |
k = 1 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
761 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = wuwind(i,j,bi,bj)*maskC(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
794 |
ECCO_COST_WEIGHTS |
& maskS(i,j,k,bi,bj).NE.0. ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
801 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = wtauv(i,j,bi,bj)*maskS(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
835 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = wvwind(i,j,bi,bj)*maskC(i,j,k,bi,bj) |
|
./model/src/ini_nh_fields.F |
100 |
INI_NH_FIELDS |
DO k=1,Nr |
|
./model/src/ini_nh_fields.F |
104 |
INI_NH_FIELDS |
& + phi_nh(i,j,k,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./model/src/ini_nh_fields.F |
126 |
INI_NH_FIELDS |
DO k = 1,Nr |
|
./model/src/ini_nh_fields.F |
129 |
INI_NH_FIELDS |
viscAh_W(i,j,k,bi,bj) = viscAhW |
|
./model/src/ini_nh_fields.F |
130 |
INI_NH_FIELDS |
viscA4_W(i,j,k,bi,bj) = viscA4W |
|
./model/src/ini_nh_fields.F |
44 |
INI_NH_FIELDS |
INTEGER i,j,k |
|
./model/src/ini_nh_vars.F |
39 |
INI_NH_VARS |
INTEGER i, j, k |
|
./model/src/ini_nh_vars.F |
51 |
INI_NH_VARS |
DO k=1,Nr |
|
./model/src/ini_nh_vars.F |
54 |
INI_NH_VARS |
phi_nh(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_nh_vars.F |
55 |
INI_NH_VARS |
gW (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_nh_vars.F |
57 |
INI_NH_VARS |
gWnm (i,j,k,bi,bj,1) = 0. _d 0 |
|
./model/src/ini_nh_vars.F |
58 |
INI_NH_VARS |
gWnm (i,j,k,bi,bj,2) = 0. _d 0 |
|
./model/src/ini_nh_vars.F |
60 |
INI_NH_VARS |
gWnm1(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_nh_vars.F |
62 |
INI_NH_VARS |
viscAh_W(i,j,k,bi,bj)= 0. _d 0 |
|
./model/src/ini_nh_vars.F |
63 |
INI_NH_VARS |
viscA4_W(i,j,k,bi,bj)= 0. _d 0 |
|
./model/src/ini_nlfs_vars.F |
38 |
INI_NLFS_VARS |
INTEGER i,j,k,bi,bj |
|
./model/src/ini_nlfs_vars.F |
82 |
INI_NLFS_VARS |
DO k=1,Nr |
|
./model/src/ini_nlfs_vars.F |
85 |
INI_NLFS_VARS |
h0FacC(i,j,k,bi,bj) = _hFacC(i,j,k,bi,bj) |
|
./model/src/ini_nlfs_vars.F |
86 |
INI_NLFS_VARS |
h0FacW(i,j,k,bi,bj) = _hFacW(i,j,k,bi,bj) |
|
./model/src/ini_nlfs_vars.F |
87 |
INI_NLFS_VARS |
h0FacS(i,j,k,bi,bj) = _hFacS(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
100 |
ECCO_COST_WEIGHTS |
wti(k) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
101 |
ECCO_COST_WEIGHTS |
wsi(k) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
102 |
ECCO_COST_WEIGHTS |
wui(k) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
103 |
ECCO_COST_WEIGHTS |
wvi(k) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1119 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1120 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1121 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = ratio/wtheta(k,bi,bj)/wtheta(k,bi,bj)/2. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1123 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1125 |
ECCO_COST_WEIGHTS |
if (wsalt(k,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1126 |
ECCO_COST_WEIGHTS |
wsalt(k,bi,bj) = ratio/wsalt(k,bi,bj)/wsalt(k,bi,bj)/2. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1128 |
ECCO_COST_WEIGHTS |
wsalt(k,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1135 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1137 |
ECCO_COST_WEIGHTS |
if (wobcsn(k,iobcs) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1138 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1139 |
ECCO_COST_WEIGHTS |
& ratio/wobcsn(k,iobcs)/wobcsn(k,iobcs) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1141 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1145 |
ECCO_COST_WEIGHTS |
if (wobcss(k,iobcs) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1146 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1147 |
ECCO_COST_WEIGHTS |
& ratio/wobcss(k,iobcs)/wobcss(k,iobcs) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1149 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1153 |
ECCO_COST_WEIGHTS |
if (wobcsw(k,iobcs) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1154 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1155 |
ECCO_COST_WEIGHTS |
& ratio/wobcsw(k,iobcs)/wobcsw(k,iobcs) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1157 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1161 |
ECCO_COST_WEIGHTS |
if (wobcse(k,iobcs) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1162 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1163 |
ECCO_COST_WEIGHTS |
& ratio/wobcse(k,iobcs)/wobcse(k,iobcs) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1165 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
140 |
ECCO_COST_WEIGHTS |
do k = 1,Nr |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
141 |
ECCO_COST_WEIGHTS |
wtheta (k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
142 |
ECCO_COST_WEIGHTS |
wsalt (k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
143 |
ECCO_COST_WEIGHTS |
wctdt (k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
144 |
ECCO_COST_WEIGHTS |
wctds (k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
147 |
ECCO_COST_WEIGHTS |
wtheta2 (i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
148 |
ECCO_COST_WEIGHTS |
wsalt2 (i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
149 |
ECCO_COST_WEIGHTS |
wthetaLev (i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
150 |
ECCO_COST_WEIGHTS |
wsaltLev (i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
160 |
ECCO_COST_WEIGHTS |
do k = 1,Nr |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
163 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
167 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
171 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
175 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
247 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
248 |
ECCO_COST_WEIGHTS |
read(gwunit,*) wti(k), wsi(k) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
251 |
ECCO_COST_WEIGHTS |
& , wvi(k) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
277 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
278 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = wti(k) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
279 |
ECCO_COST_WEIGHTS |
wsalt (k,bi,bj) = wsi(k) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
280 |
ECCO_COST_WEIGHTS |
wcurrent(k,bi,bj) = wvi(k) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
283 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
285 |
ECCO_COST_WEIGHTS |
wobcsn(k,1) = wti(k) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
286 |
ECCO_COST_WEIGHTS |
wobcsn(k,2) = wsi(k) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
287 |
ECCO_COST_WEIGHTS |
wobcsn(k,3) = wti(k)*0.02 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
288 |
ECCO_COST_WEIGHTS |
wobcsn(k,4) = wti(k)*0.02 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
291 |
ECCO_COST_WEIGHTS |
wobcss(k,1) = wti(k) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
292 |
ECCO_COST_WEIGHTS |
wobcss(k,2) = wsi(k) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
293 |
ECCO_COST_WEIGHTS |
wobcss(k,3) = wti(k)*0.02 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
294 |
ECCO_COST_WEIGHTS |
wobcss(k,4) = wti(k)*0.02 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
297 |
ECCO_COST_WEIGHTS |
wobcsw(k,1) = wti(k) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
298 |
ECCO_COST_WEIGHTS |
wobcsw(k,2) = wsi(k) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
299 |
ECCO_COST_WEIGHTS |
wobcsw(k,3) = wti(k)*0.02 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
300 |
ECCO_COST_WEIGHTS |
wobcsw(k,4) = wti(k)*0.02 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
303 |
ECCO_COST_WEIGHTS |
wobcse(k,1) = wti(k) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
304 |
ECCO_COST_WEIGHTS |
wobcse(k,2) = wsi(k) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
305 |
ECCO_COST_WEIGHTS |
wobcse(k,3) = wti(k)*0.02 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
306 |
ECCO_COST_WEIGHTS |
wobcse(k,4) = wti(k)*0.02 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
318 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
322 |
ECCO_COST_WEIGHTS |
if ( wsaltLev(i,j,k,bi,bj).eq.0 ) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
323 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
325 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj)=frame(i,j)/ |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
326 |
ECCO_COST_WEIGHTS |
$ ( wsaltLev(i,j,k,bi,bj)*wsaltLev(i,j,k,bi,bj) ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
336 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
339 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj)=ratio/(wsalt(k,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
340 |
ECCO_COST_WEIGHTS |
$ *wsalt(k,bi,bj)) *frame(i,j) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
357 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
361 |
ECCO_COST_WEIGHTS |
if ( wthetaLev(i,j,k,bi,bj).eq.0 ) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
362 |
ECCO_COST_WEIGHTS |
wthetaLev(i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
364 |
ECCO_COST_WEIGHTS |
wthetaLev(i,j,k,bi,bj)=frame(i,j)/ |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
365 |
ECCO_COST_WEIGHTS |
$ ( wthetaLev(i,j,k,bi,bj)*wthetaLev(i,j,k,bi,bj) ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
375 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
378 |
ECCO_COST_WEIGHTS |
wthetaLev(i,j,k,bi,bj)=ratio/(wtheta(k,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
379 |
ECCO_COST_WEIGHTS |
$ *wtheta(k,bi,bj)) *frame(i,j) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
400 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
404 |
ECCO_COST_WEIGHTS |
if (wsalt(k,bi,bj).eq.0 .and. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
405 |
ECCO_COST_WEIGHTS |
$ wsalt2(i,j,k,bi,bj).eq.0) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
406 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
409 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj)=frame(i,j)/( |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
410 |
ECCO_COST_WEIGHTS |
$ wsalt2(i,j,k,bi,bj)*wsalt2(i,j,k,bi,bj) ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
420 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
423 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj)=ratio/(wsalt(k,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
424 |
ECCO_COST_WEIGHTS |
$ *wsalt(k,bi,bj)) *frame(i,j) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
443 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
447 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj).eq.0 .and. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
448 |
ECCO_COST_WEIGHTS |
$ wtheta2(i,j,k,bi,bj).eq.0) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
449 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
452 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj)=frame(i,j)/( |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
453 |
ECCO_COST_WEIGHTS |
$ wtheta2(i,j,k,bi,bj)*wtheta2(i,j,k,bi,bj) ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
463 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
466 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj).eq.0 ) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
467 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
469 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj) = ratio/(wtheta(k,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
470 |
ECCO_COST_WEIGHTS |
$ *wtheta(k,bi,bj))*frame(i,j) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
480 |
ECCO_COST_WEIGHTS |
k = 1 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
485 |
ECCO_COST_WEIGHTS |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
492 |
ECCO_COST_WEIGHTS |
wsst(i,j,bi,bj) = wtheta(k,bi,bj)*frame(i,j) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
493 |
ECCO_COST_WEIGHTS |
wsss(i,j,bi,bj) = wsalt(k,bi,bj)*frame(i,j) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
49 |
ECCO_COST_WEIGHTS |
integer i,j,k |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
558 |
ECCO_COST_WEIGHTS |
k = 1 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
563 |
ECCO_COST_WEIGHTS |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
616 |
ECCO_COST_WEIGHTS |
k = 1 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
627 |
ECCO_COST_WEIGHTS |
& maskW(i,j,k,bi,bj).NE.0. ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
634 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = wscatx(i,j,bi,bj)*maskW(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
644 |
ECCO_COST_WEIGHTS |
& maskS(i,j,k,bi,bj).NE.0. ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
651 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = wscaty(i,j,bi,bj)*maskS(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
671 |
ECCO_COST_WEIGHTS |
k = 1 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
705 |
ECCO_COST_WEIGHTS |
k = 1 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
716 |
ECCO_COST_WEIGHTS |
& maskW(i,j,k,bi,bj).NE.0. ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
723 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = wtauu(i,j,bi,bj)*maskW(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
748 |
ECCO_COST_WEIGHTS |
k = 1 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
757 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = wuwind(i,j,bi,bj)*maskC(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
790 |
ECCO_COST_WEIGHTS |
& maskS(i,j,k,bi,bj).NE.0. ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
797 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = wtauv(i,j,bi,bj)*maskS(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
831 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = wvwind(i,j,bi,bj)*maskC(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
99 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./model/src/ini_p_ground.F |
135 |
INI_P_GROUND |
DO k=1,nLevHvR |
|
./model/src/ini_p_ground.F |
136 |
INI_P_GROUND |
pLevHvR(k+1)= pLevHvR(1) - float(k)*dpHvR |
|
./model/src/ini_p_ground.F |
137 |
INI_P_GROUND |
PiHvR(k+1) = atm_Cp*(pLevHvR(k+1)**atm_kappa) |
|
./model/src/ini_p_ground.F |
138 |
INI_P_GROUND |
pMidHvR(k)= (pLevHvR(k)+pLevHvR(k+1))*0.5 _d 0 |
|
./model/src/ini_p_ground.F |
139 |
INI_P_GROUND |
dPiHvR(k) = PiHvR(k) - PiHvR(k+1) |
|
./model/src/ini_p_ground.F |
144 |
INI_P_GROUND |
DO k=1,Nr |
|
./model/src/ini_p_ground.F |
145 |
INI_P_GROUND |
ratioRm(k) = 1. _d 0 |
|
./model/src/ini_p_ground.F |
146 |
INI_P_GROUND |
ratioRp(k) = 1. _d 0 |
|
./model/src/ini_p_ground.F |
147 |
INI_P_GROUND |
IF (k.GT.1 ) ratioRm(k) = 0.5 _d 0*drC(k)/(rF(k)-rC(k)) |
|
./model/src/ini_p_ground.F |
148 |
INI_P_GROUND |
IF (k.LT.Nr) ratioRp(k) = 0.5 _d 0*drC(k+1)/(rC(k)-rF(k+1)) |
|
./model/src/ini_p_ground.F |
186 |
INI_P_GROUND |
DO k=1,nLevHvR |
|
./model/src/ini_p_ground.F |
189 |
INI_P_GROUND |
dzLoc = dPiHvR(k)*thetaHvR(k)*recip_gravity |
|
./model/src/ini_p_ground.F |
192 |
INI_P_GROUND |
PiLoc = PiHvR(k) |
|
./model/src/ini_p_ground.F |
193 |
INI_P_GROUND |
& - gravity*(Hfld(i,j,bi,bj)-zLoc)/thetaHvR(k) |
|
./model/src/ini_p_ground.F |
231 |
INI_P_GROUND |
DO k=1,Nr |
|
./model/src/ini_p_ground.F |
232 |
INI_P_GROUND |
IF ( findPoSurf .AND. Po_surf.GE.rC(k) ) THEN |
|
./model/src/ini_p_ground.F |
233 |
INI_P_GROUND |
Po_surf = rC(k) + (Po_surf-rC(k))/ratioRm(k) |
|
./model/src/ini_p_ground.F |
236 |
INI_P_GROUND |
rMidKp1 = rF(k+1) |
|
./model/src/ini_p_ground.F |
237 |
INI_P_GROUND |
IF (k.LT.Nr) rMidKp1 = (rC(k)+rC(k+1))*0.5 _d 0 |
|
./model/src/ini_p_ground.F |
239 |
INI_P_GROUND |
Po_surf = rC(k) + (Po_surf-rC(k))/ratioRp(k) |
|
./model/src/ini_p_ground.F |
276 |
INI_P_GROUND |
DO k=2,Nr |
|
./model/src/ini_p_ground.F |
277 |
INI_P_GROUND |
IF ( Pfld(i,j,bi,bj).LT.rF(k) ) ks = k |
|
./model/src/ini_p_ground.F |
315 |
INI_P_GROUND |
DO k=1,Nr |
|
./model/src/ini_p_ground.F |
316 |
INI_P_GROUND |
IF ( findPoSurf .AND. Po_surf.GE.rC(k) ) THEN |
|
./model/src/ini_p_ground.F |
317 |
INI_P_GROUND |
Po_surf = rC(k) + (Po_surf-rC(k))*ratioRm(k) |
|
./model/src/ini_p_ground.F |
320 |
INI_P_GROUND |
IF ( findPoSurf .AND. Po_surf.GE.rF(k+1) ) THEN |
|
./model/src/ini_p_ground.F |
321 |
INI_P_GROUND |
Po_surf = rC(k) + (Po_surf-rC(k))*ratioRp(k) |
|
./model/src/ini_p_ground.F |
334 |
INI_P_GROUND |
DO k=1,kLev-1 |
|
./model/src/ini_p_ground.F |
335 |
INI_P_GROUND |
dzLoc = dPiHvR(k)*thetaHvR(k)*recip_gravity |
|
./model/src/ini_p_ground.F |
402 |
ANALYLIC_THETA |
INTEGER k |
|
./model/src/ini_p_ground.F |
436 |
ANALYLIC_THETA |
DO k=1,kSize |
|
./model/src/ini_p_ground.F |
437 |
ANALYLIC_THETA |
ppl = MIN(pNlev(k),ppN1) |
|
./model/src/ini_p_ground.F |
438 |
ANALYLIC_THETA |
ppm = MIN(MAX(pNlev(k),ppN1),ppN2) |
|
./model/src/ini_p_ground.F |
439 |
ANALYLIC_THETA |
pph = MAX(pNlev(k),ppN2) |
|
./model/src/ini_p_ground.F |
441 |
ANALYLIC_THETA |
thetaLev(k) = |
|
./model/src/ini_p_ground.F |
447 |
ANALYLIC_THETA |
& + (ttdC+yCtmp)*MAX(0. _d 0,pNlev(k)-yDtmp)/(1-yDtmp) |
|
./model/src/ini_parms.F |
1144 |
INI_PARMS |
DO k=1,Nr+1 |
|
./model/src/ini_parms.F |
1145 |
INI_PARMS |
IF ( delRc(k).EQ.UNSET_RL ) THEN |
|
./model/src/ini_parms.F |
1148 |
INI_PARMS |
& 'S/R INI_PARMS: No value for delRc at k =', k |
|
./model/src/ini_parms.F |
1153 |
INI_PARMS |
IF ( k.EQ.1 ) setCenterDr = .TRUE. |
|
./model/src/ini_parms.F |
1156 |
INI_PARMS |
& 'S/R INI_PARMS: No value for delRc at k <', k |
|
./model/src/ini_parms.F |
1165 |
INI_PARMS |
DO k = 1, Nr |
|
./model/src/ini_parms.F |
1166 |
INI_PARMS |
IF ( delZ(k) .NE. UNSET_RL ) zCoordInputData = .TRUE. |
|
./model/src/ini_parms.F |
1167 |
INI_PARMS |
IF ( delP(k) .NE. UNSET_RL ) pCoordInputData = .TRUE. |
|
./model/src/ini_parms.F |
1168 |
INI_PARMS |
IF ( delR(k) .NE. UNSET_RL ) rCoordInputData = .TRUE. |
|
./model/src/ini_parms.F |
1169 |
INI_PARMS |
IF ( delR(k) .EQ. UNSET_RL ) delR(k) = delZ(k) |
|
./model/src/ini_parms.F |
1170 |
INI_PARMS |
IF ( delR(k) .EQ. UNSET_RL ) delR(k) = delP(k) |
|
./model/src/ini_parms.F |
1171 |
INI_PARMS |
IF ( delR(k) .EQ. UNSET_RL ) THEN |
|
./model/src/ini_parms.F |
1174 |
INI_PARMS |
& 'S/R INI_PARMS: No value for delZ/delP/delR at k =', k |
|
./model/src/ini_parms.F |
1179 |
INI_PARMS |
IF ( k.EQ.1 ) setInterFDr = .TRUE. |
|
./model/src/ini_parms.F |
1182 |
INI_PARMS |
& 'S/R INI_PARMS: No value for delZ/delP/delR at k <', k |
|
./model/src/ini_parms.F |
336 |
INI_PARMS |
DO k=1,Nr |
|
./model/src/ini_parms.F |
337 |
INI_PARMS |
viscArNr(k) = UNSET_RL |
|
./model/src/ini_parms.F |
338 |
INI_PARMS |
diffKrNrT(k) = UNSET_RL |
|
./model/src/ini_parms.F |
339 |
INI_PARMS |
diffKrNrS(k) = UNSET_RL |
|
./model/src/ini_parms.F |
340 |
INI_PARMS |
tRef(k) = UNSET_RL |
|
./model/src/ini_parms.F |
341 |
INI_PARMS |
sRef(k) = UNSET_RL |
|
./model/src/ini_parms.F |
456 |
INI_PARMS |
DO k=1,Nr |
|
./model/src/ini_parms.F |
457 |
INI_PARMS |
IF ( viscArNr(k).EQ.UNSET_RL ) THEN |
|
./model/src/ini_parms.F |
458 |
INI_PARMS |
viscArNr(k) = viscAr |
|
./model/src/ini_parms.F |
482 |
INI_PARMS |
DO k=1,Nr |
|
./model/src/ini_parms.F |
483 |
INI_PARMS |
IF ( diffKrNrT(k).EQ.UNSET_RL ) THEN |
|
./model/src/ini_parms.F |
484 |
INI_PARMS |
diffKrNrT(k) = diffKrT |
|
./model/src/ini_parms.F |
49 |
INI_PARMS |
INTEGER k, i, j, iUnit |
|
./model/src/ini_parms.F |
508 |
INI_PARMS |
DO k=1,Nr |
|
./model/src/ini_parms.F |
509 |
INI_PARMS |
IF ( diffKrNrS(k).EQ.UNSET_RL ) THEN |
|
./model/src/ini_parms.F |
510 |
INI_PARMS |
diffKrNrS(k) = diffKrS |
|
./model/src/ini_parms.F |
814 |
INI_PARMS |
DO k=1,Nr |
|
./model/src/ini_parms.F |
815 |
INI_PARMS |
IF (dTtracerLev(k).EQ.0.) dTtracerLev(k)= deltaTtracer |
|
./model/src/ini_parms.F |
969 |
INI_PARMS |
DO k =1,Nr |
|
./model/src/ini_parms.F |
970 |
INI_PARMS |
delZ(k) = UNSET_RL |
|
./model/src/ini_parms.F |
971 |
INI_PARMS |
delP(k) = UNSET_RL |
|
./model/src/ini_parms.F |
972 |
INI_PARMS |
delR(k) = UNSET_RL |
|
./model/src/ini_pressure.F |
105 |
INI_PRESSURE |
DO k = 1, Nr |
|
./model/src/ini_pressure.F |
109 |
INI_PRESSURE |
oldPhi(i,j) = totPhiHyd(i,j,k,bi,bj) |
|
./model/src/ini_pressure.F |
113 |
INI_PRESSURE |
I bi, bj, iMin, iMax, jMin, jMax, k, |
|
./model/src/ini_pressure.F |
122 |
INI_PRESSURE |
& + (totPhiHyd(i,j,k,bi,bj)-oldPhi(i,j))**2 |
|
./model/src/ini_pressure.F |
123 |
INI_PRESSURE |
& * maskC(i,j,k,bi,bj) |
|
./model/src/ini_pressure.F |
124 |
INI_PRESSURE |
sumTile = sumTile + maskC(i,j,k,bi,bj) |
|
./model/src/ini_pressure.F |
44 |
INI_PRESSURE |
INTEGER i, j, k |
|
./model/src/ini_pressure.F |
70 |
INI_PRESSURE |
DO k = 1,Nr |
|
./model/src/ini_pressure.F |
73 |
INI_PRESSURE |
totPhiHyd(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_salt.F |
100 |
INI_SALT |
IF ( maskC(i,j,k,bi,bj).NE.0. |
|
./model/src/ini_salt.F |
101 |
INI_SALT |
& .AND. salt(i,j,k,bi,bj).EQ.0. ) THEN |
|
./model/src/ini_salt.F |
50 |
INI_SALT |
INTEGER i, j, k, localWarnings |
|
./model/src/ini_salt.F |
57 |
INI_SALT |
DO k=1,Nr |
|
./model/src/ini_salt.F |
60 |
INI_SALT |
salt(i,j,k,bi,bj) = sRef(k) |
|
./model/src/ini_salt.F |
89 |
INI_SALT |
DO k=1,Nr |
|
./model/src/ini_salt.F |
93 |
INI_SALT |
IF (maskC(i,j,k,bi,bj).EQ.0.) salt(i,j,k,bi,bj) = 0. |
|
./model/src/ini_salt.F |
97 |
INI_SALT |
IF ( sRef(k).NE.0. ) THEN |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
36 |
COST_TEST |
integer i, j, k |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
63 |
COST_TEST |
k=1 |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
84 |
COST_TEST |
do k=1,nr |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
85 |
COST_TEST |
if (maskC(i,j,k,bi,bj).NE.0.) then |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
87 |
COST_TEST |
& (theta(i,j,k,bi,bj)-thetaLev(i,j,k,bi,bj))**2 |
|
./model/src/ini_sigma_hfac.F |
101 |
INI_SIGMA_HFAC |
DO k=1, Nr |
|
./model/src/ini_sigma_hfac.F |
105 |
INI_SIGMA_HFAC |
hFactmp = ( dAHybSigF(k)*rFullDepth |
|
./model/src/ini_sigma_hfac.F |
106 |
INI_SIGMA_HFAC |
& + dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/ini_sigma_hfac.F |
107 |
INI_SIGMA_HFAC |
& )*recip_drF(k) |
|
./model/src/ini_sigma_hfac.F |
108 |
INI_SIGMA_HFAC |
hFacC(i,j,k,bi,bj) = hFactmp |
|
./model/src/ini_sigma_hfac.F |
111 |
INI_SIGMA_HFAC |
hFacC(i,j,k,bi,bj) = 0. |
|
./model/src/ini_sigma_hfac.F |
215 |
INI_SIGMA_HFAC |
DO k=1, Nr |
|
./model/src/ini_sigma_hfac.F |
219 |
INI_SIGMA_HFAC |
& ( dAHybSigF(k)*rFullDepth |
|
./model/src/ini_sigma_hfac.F |
220 |
INI_SIGMA_HFAC |
& + dBHybSigF(k)*( rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj) ) |
|
./model/src/ini_sigma_hfac.F |
221 |
INI_SIGMA_HFAC |
& )*recip_drF(k) |
|
./model/src/ini_sigma_hfac.F |
222 |
INI_SIGMA_HFAC |
hFacW(i,j,k,bi,bj) = hFactmp*maskInW(i,j,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
226 |
INI_SIGMA_HFAC |
DO k=1, Nr |
|
./model/src/ini_sigma_hfac.F |
230 |
INI_SIGMA_HFAC |
& ( dAHybSigF(k)*rFullDepth |
|
./model/src/ini_sigma_hfac.F |
231 |
INI_SIGMA_HFAC |
& + dBHybSigF(k)*( rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj) ) |
|
./model/src/ini_sigma_hfac.F |
232 |
INI_SIGMA_HFAC |
& )*recip_drF(k) |
|
./model/src/ini_sigma_hfac.F |
233 |
INI_SIGMA_HFAC |
hFacS(i,j,k,bi,bj) = hFactmp*maskInS(i,j,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
45 |
INI_SIGMA_HFAC |
INTEGER i, j, k |
|
./verification/hs94.1x64x5/code/ini_theta.F |
104 |
INI_THETA |
IF ( tRef(k).NE.0. ) THEN |
|
./model/src/ini_theta.F |
101 |
INI_THETA |
IF ( maskC(i,j,k,bi,bj).NE.0. |
|
./model/src/ini_theta.F |
102 |
INI_THETA |
& .AND. theta(i,j,k,bi,bj).EQ.0. ) THEN |
|
./model/src/ini_theta.F |
136 |
INI_THETA |
DO k=1,Nr |
|
./model/src/ini_theta.F |
139 |
INI_THETA |
IF (theta(i,j,k,bi,bj) .LT. Tfreezing) THEN |
|
./model/src/ini_theta.F |
140 |
INI_THETA |
theta(i,j,k,bi,bj) = Tfreezing |
|
./model/src/ini_theta.F |
50 |
INI_THETA |
INTEGER i, j, k, localWarnings |
|
./model/src/ini_theta.F |
58 |
INI_THETA |
DO k=1,Nr |
|
./model/src/ini_theta.F |
61 |
INI_THETA |
theta(i,j,k,bi,bj) = tRef(k) |
|
./model/src/ini_theta.F |
90 |
INI_THETA |
DO k=1,Nr |
|
./model/src/ini_theta.F |
94 |
INI_THETA |
IF (maskC(i,j,k,bi,bj).EQ.0.) theta(i,j,k,bi,bj) = 0. |
|
./model/src/ini_theta.F |
98 |
INI_THETA |
IF ( tRef(k).NE.0. ) THEN |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
39 |
COST_TEST |
integer i, j, k |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
62 |
COST_TEST |
k=1 |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
104 |
INI_THETA |
IF ( tRef(k).NE.0. ) THEN |
|
./model/src/ini_vel.F |
36 |
INI_VEL |
INTEGER bi,bj,i,j,k |
|
./model/src/ini_vel.F |
48 |
INI_VEL |
DO k=1,Nr |
|
./model/src/ini_vel.F |
51 |
INI_VEL |
uVel(i,j,k,bi,bj)=0. _d 0 |
|
./model/src/ini_vel.F |
52 |
INI_VEL |
vVel(i,j,k,bi,bj)=0. _d 0 |
|
./model/src/ini_vel.F |
72 |
INI_VEL |
DO k=1,Nr |
|
./model/src/ini_vel.F |
75 |
INI_VEL |
uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./model/src/ini_vel.F |
76 |
INI_VEL |
vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
104 |
INI_THETA |
IF ( tRef(k).NE.0. ) THEN |
|
./verification/internal_wave/code/obcs_calc.F |
125 |
OBCS_CALC |
& + Uinflow*sin(mz*PI*(float(k)-0.5 _d 0)/float(Nr)) |
|
./verification/internal_wave/code/obcs_calc.F |
139 |
OBCS_CALC |
& *sin(mz*PI*(float(k)-0.5 _d 0)/float(Nr)) |
|
./model/src/ini_vertical_grid.F |
104 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
105 |
INI_VERTICAL_GRID |
drC(k) = delRc(k) |
|
./model/src/ini_vertical_grid.F |
108 |
INI_VERTICAL_GRID |
DO k=1,Nr+1 |
|
./model/src/ini_vertical_grid.F |
109 |
INI_VERTICAL_GRID |
IF (delRc(k).LE.0.) THEN |
|
./model/src/ini_vertical_grid.F |
111 |
INI_VERTICAL_GRID |
& 'S/R INI_VERTICAL_GRID: delRc(k=',k,' )=',delRc(k) |
|
./model/src/ini_vertical_grid.F |
123 |
INI_VERTICAL_GRID |
DO k=2,Nr |
|
./model/src/ini_vertical_grid.F |
124 |
INI_VERTICAL_GRID |
drC(k) = 0.5 _d 0 *(delR(k-1)+delR(k)) |
|
./model/src/ini_vertical_grid.F |
130 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
131 |
INI_VERTICAL_GRID |
rF(k+1) = rF(k) + rkSign*drF(k) |
|
./model/src/ini_vertical_grid.F |
134 |
INI_VERTICAL_GRID |
DO k=2,Nr |
|
./model/src/ini_vertical_grid.F |
135 |
INI_VERTICAL_GRID |
rC(k) = rC(k-1) + rkSign*drC(k) |
|
./model/src/ini_vertical_grid.F |
141 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
143 |
INI_VERTICAL_GRID |
IF ( (rC(k)-rF(k+1)) .NE. 0. ) |
|
./model/src/ini_vertical_grid.F |
144 |
INI_VERTICAL_GRID |
& tmpRatio = (rF(k)-rC(k)) / (rC(k)-rF(k+1)) |
|
./model/src/ini_vertical_grid.F |
152 |
INI_VERTICAL_GRID |
& k, ' :', tmpRatio |
|
./model/src/ini_vertical_grid.F |
155 |
INI_VERTICAL_GRID |
& 'S/R INI_VERTICAL_GRID: rC=', rC(k), |
|
./model/src/ini_vertical_grid.F |
156 |
INI_VERTICAL_GRID |
& ' , rF(k,k+1)=',rF(k),rF(k+1) |
|
./model/src/ini_vertical_grid.F |
163 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
164 |
INI_VERTICAL_GRID |
recip_drC(k) = 1. _d 0/drC(k) |
|
./model/src/ini_vertical_grid.F |
165 |
INI_VERTICAL_GRID |
recip_drF(k) = 1. _d 0/drF(k) |
|
./model/src/ini_vertical_grid.F |
170 |
INI_VERTICAL_GRID |
DO k=1,Nr+1 |
|
./model/src/ini_vertical_grid.F |
171 |
INI_VERTICAL_GRID |
aHybSigmF(k) = 0. _d 0 |
|
./model/src/ini_vertical_grid.F |
172 |
INI_VERTICAL_GRID |
bHybSigmF(k) = 0. _d 0 |
|
./model/src/ini_vertical_grid.F |
173 |
INI_VERTICAL_GRID |
dAHybSigC(k) = 0. _d 0 |
|
./model/src/ini_vertical_grid.F |
174 |
INI_VERTICAL_GRID |
dAHybSigC(k) = 0. _d 0 |
|
./model/src/ini_vertical_grid.F |
176 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
177 |
INI_VERTICAL_GRID |
aHybSigmC(k) = 0. _d 0 |
|
./model/src/ini_vertical_grid.F |
178 |
INI_VERTICAL_GRID |
bHybSigmC(k) = 0. _d 0 |
|
./model/src/ini_vertical_grid.F |
179 |
INI_VERTICAL_GRID |
dAHybSigF(k) = 0. _d 0 |
|
./model/src/ini_vertical_grid.F |
180 |
INI_VERTICAL_GRID |
dAHybSigF(k) = 0. _d 0 |
|
./model/src/ini_vertical_grid.F |
213 |
INI_VERTICAL_GRID |
DO k=1,Nr+1 |
|
./model/src/ini_vertical_grid.F |
224 |
INI_VERTICAL_GRID |
tmpRS = MIN( rF(k), rSigBndRS ) |
|
./model/src/ini_vertical_grid.F |
225 |
INI_VERTICAL_GRID |
bHybSigmF(k) = ( rF(k) - tmpRS )/(rF(1)-rSigBndRS) |
|
./model/src/ini_vertical_grid.F |
226 |
INI_VERTICAL_GRID |
aHybSigmF(k) = (1. _d 0 - bHybSigmF(k)) |
|
./model/src/ini_vertical_grid.F |
231 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
242 |
INI_VERTICAL_GRID |
tmpRS = MIN( rC(k), rSigBndRS ) |
|
./model/src/ini_vertical_grid.F |
243 |
INI_VERTICAL_GRID |
bHybSigmC(k) = ( rC(k) - tmpRS )/(rF(1)-rSigBndRS) |
|
./model/src/ini_vertical_grid.F |
244 |
INI_VERTICAL_GRID |
aHybSigmC(k) = (1. _d 0 - bHybSigmC(k)) |
|
./model/src/ini_vertical_grid.F |
251 |
INI_VERTICAL_GRID |
DO k=1,Nr+1 |
|
./model/src/ini_vertical_grid.F |
261 |
INI_VERTICAL_GRID |
tmpRS = MAX( rF(k), rSigBndRS ) |
|
./model/src/ini_vertical_grid.F |
262 |
INI_VERTICAL_GRID |
bHybSigmF(k) = ( rF(k)-rF(Nr+1) )/( tmpRS-rF(Nr+1) ) |
|
./model/src/ini_vertical_grid.F |
263 |
INI_VERTICAL_GRID |
aHybSigmF(k) = bHybSigmF(k)*( tmpRS-rF(1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
267 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
277 |
INI_VERTICAL_GRID |
tmpRS = MAX( rC(k), rSigBndRS ) |
|
./model/src/ini_vertical_grid.F |
278 |
INI_VERTICAL_GRID |
bHybSigmC(k) = ( rC(k)-rF(Nr+1) )/( tmpRS-rF(Nr+1) ) |
|
./model/src/ini_vertical_grid.F |
279 |
INI_VERTICAL_GRID |
aHybSigmC(k) = bHybSigmC(k)*( tmpRS-rF(1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
296 |
INI_VERTICAL_GRID |
DO k=2,Nr |
|
./model/src/ini_vertical_grid.F |
297 |
INI_VERTICAL_GRID |
bHybSigmF(k) = ( bHybSigmC(k) + bHybSigmC(k-1) )*0.5 _d 0 |
|
./model/src/ini_vertical_grid.F |
298 |
INI_VERTICAL_GRID |
aHybSigmF(k) = ( aHybSigmC(k) + aHybSigmC(k-1) )*0.5 _d 0 |
|
./model/src/ini_vertical_grid.F |
303 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
304 |
INI_VERTICAL_GRID |
bHybSigmC(k) = ( bHybSigmF(k) + bHybSigmF(k+1) )*0.5 _d 0 |
|
./model/src/ini_vertical_grid.F |
305 |
INI_VERTICAL_GRID |
aHybSigmC(k) = ( aHybSigmF(k) + aHybSigmF(k+1) )*0.5 _d 0 |
|
./model/src/ini_vertical_grid.F |
310 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
311 |
INI_VERTICAL_GRID |
dAHybSigF(k) = ( aHybSigmF(k+1) - aHybSigmF(k) )*rkSign |
|
./model/src/ini_vertical_grid.F |
312 |
INI_VERTICAL_GRID |
dBHybSigF(k) = ( bHybSigmF(k+1) - bHybSigmF(k) )*rkSign |
|
./model/src/ini_vertical_grid.F |
314 |
INI_VERTICAL_GRID |
DO k=2,Nr |
|
./model/src/ini_vertical_grid.F |
315 |
INI_VERTICAL_GRID |
dAHybSigC(k) = ( aHybSigmC(k) - aHybSigmC(k-1) )*rkSign |
|
./model/src/ini_vertical_grid.F |
316 |
INI_VERTICAL_GRID |
dBHybSigC(k) = ( bHybSigmC(k) - bHybSigmC(k-1) )*rkSign |
|
./model/src/ini_vertical_grid.F |
327 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
328 |
INI_VERTICAL_GRID |
tmpError = ( rC(k)-rF(Nr+1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
329 |
INI_VERTICAL_GRID |
& - ( aHybSigmC(k)+bHybSigmC(k) ) |
|
./model/src/ini_vertical_grid.F |
337 |
INI_VERTICAL_GRID |
& ' k=', k,' , err=', tmpError, ' ; rC=', rC(k), |
|
./model/src/ini_vertical_grid.F |
338 |
INI_VERTICAL_GRID |
& ' , a & b=', aHybSigmC(k), bHybSigmC(k) |
|
./model/src/ini_vertical_grid.F |
343 |
INI_VERTICAL_GRID |
DO k=1,Nr+1 |
|
./model/src/ini_vertical_grid.F |
344 |
INI_VERTICAL_GRID |
tmpError = ( rF(k)-rF(Nr+1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
345 |
INI_VERTICAL_GRID |
& - ( aHybSigmF(k)+bHybSigmF(k) ) |
|
./model/src/ini_vertical_grid.F |
353 |
INI_VERTICAL_GRID |
& ' k=', k,' , err=', tmpError, ' ; rF=', rF(k), |
|
./model/src/ini_vertical_grid.F |
354 |
INI_VERTICAL_GRID |
& ' , a & b=', aHybSigmF(k), bHybSigmF(k) |
|
./model/src/ini_vertical_grid.F |
35 |
INI_VERTICAL_GRID |
INTEGER k |
|
./model/src/ini_vertical_grid.F |
76 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
77 |
INI_VERTICAL_GRID |
drF(k) = delR(k) |
|
./model/src/ini_vertical_grid.F |
80 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
81 |
INI_VERTICAL_GRID |
IF (delR(k).LE.0.) THEN |
|
./model/src/ini_vertical_grid.F |
83 |
INI_VERTICAL_GRID |
& 'S/R INI_VERTICAL_GRID: delR(k=',k,' )=',delR(k) |
|
./model/src/ini_vertical_grid.F |
95 |
INI_VERTICAL_GRID |
DO k=2,Nr |
|
./model/src/ini_vertical_grid.F |
96 |
INI_VERTICAL_GRID |
drF(k-1) = 0.5 _d 0 *delRc(k) + drF(k-1) |
|
./model/src/ini_vertical_grid.F |
97 |
INI_VERTICAL_GRID |
drF( k ) = 0.5 _d 0 *delRc(k) |
|
./model/src/integr_continuity.F |
100 |
INTEGR_CONTINUITY |
& *deepFacC(k)*rhoFacC(k) |
|
./model/src/integr_continuity.F |
101 |
INTEGR_CONTINUITY |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./model/src/integr_continuity.F |
109 |
INTEGR_CONTINUITY |
& +maskC(i,j,k,bi,bj)*( uTrans(i+1,j)-uTrans(i,j) |
|
./model/src/integr_continuity.F |
112 |
INTEGR_CONTINUITY |
& -facMass*addMass(i,j,k,bi,bj) |
|
./model/src/integr_continuity.F |
226 |
INTEGR_CONTINUITY |
DO k=Nr,1,-1 |
|
./model/src/integr_continuity.F |
230 |
INTEGR_CONTINUITY |
I bi, bj, k, uFld, vFld, addMass, |
|
./model/src/integr_continuity.F |
235 |
INTEGR_CONTINUITY |
IF ( k.EQ.Nr .AND. myTime.NE.baseTime .AND. usingPCoords |
|
./model/src/integr_continuity.F |
240 |
INTEGR_CONTINUITY |
wVel(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) |
|
./model/src/integr_continuity.F |
241 |
INTEGR_CONTINUITY |
& +mass2rUnit*PmEpR(i,j,bi,bj)*maskC(i,j,k,bi,bj) |
|
./model/src/integr_continuity.F |
250 |
INTEGR_CONTINUITY |
IF ( useOBCS ) CALL OBCS_APPLY_W( bi, bj, k, wVel, myThid ) |
|
./model/src/integr_continuity.F |
56 |
INTEGR_CONTINUITY |
INTEGER k |
|
./model/src/integr_continuity.F |
90 |
INTEGR_CONTINUITY |
DO k=1,Nr |
|
./model/src/integr_continuity.F |
96 |
INTEGR_CONTINUITY |
uTrans(i,j) = uFld(i,j,k,bi,bj)*_dyG(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
97 |
INTEGR_CONTINUITY |
& *deepFacC(k)*rhoFacC(k) |
|
./model/src/integr_continuity.F |
98 |
INTEGR_CONTINUITY |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./model/src/integr_continuity.F |
99 |
INTEGR_CONTINUITY |
vTrans(i,j) = vFld(i,j,k,bi,bj)*_dxG(i,j,bi,bj) |
|
./model/src/integrate_for_w.F |
100 |
INTEGRATE_FOR_W |
& *maskC(i,j,k,bi,bj)*maskC(i,j,k-1,bi,bj) |
|
./model/src/integrate_for_w.F |
101 |
INTEGRATE_FOR_W |
& *recip_deepFac2F(k)*recip_rhoFacF(k) |
|
./model/src/integrate_for_w.F |
107 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
108 |
INTEGRATE_FOR_W |
& ( wFld(i,j,k+1,bi,bj)*deepFac2F(k+1)*rhoFacF(k+1) |
|
./model/src/integrate_for_w.F |
10 |
INTEGRATE_FOR_W |
I bi, bj, k, uFld, vFld, mFld, |
|
./model/src/integrate_for_w.F |
110 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj)*maskC(i,j,k-1,bi,bj) |
|
./model/src/integrate_for_w.F |
111 |
INTEGRATE_FOR_W |
& *recip_deepFac2F(k)*recip_rhoFacF(k) |
|
./model/src/integrate_for_w.F |
120 |
INTEGRATE_FOR_W |
IF (k.EQ.Nr) THEN |
|
./model/src/integrate_for_w.F |
123 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
125 |
INTEGRATE_FOR_W |
& -rStarDhCDt(i,j,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
126 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
127 |
INTEGRATE_FOR_W |
& *recip_deepFac2F(k)*recip_rhoFacF(k) |
|
./model/src/integrate_for_w.F |
133 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
134 |
INTEGRATE_FOR_W |
& ( wFld(i,j,k+1,bi,bj)*deepFac2F(k+1)*rhoFacF(k+1) |
|
./model/src/integrate_for_w.F |
136 |
INTEGRATE_FOR_W |
& -rStarDhCDt(i,j,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
137 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
138 |
INTEGRATE_FOR_W |
& *recip_deepFac2F(k)*recip_rhoFacF(k) |
|
./model/src/integrate_for_w.F |
146 |
INTEGRATE_FOR_W |
IF (k.EQ.Nr) THEN |
|
./model/src/integrate_for_w.F |
149 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
151 |
INTEGRATE_FOR_W |
& -dEtaHdt(i,j,bi,bj)*dBHybSigF(k) |
|
./model/src/integrate_for_w.F |
152 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
158 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
159 |
INTEGRATE_FOR_W |
& ( wFld(i,j,k+1,bi,bj) |
|
./model/src/integrate_for_w.F |
161 |
INTEGRATE_FOR_W |
& -dEtaHdt(i,j,bi,bj)*dBHybSigF(k) |
|
./model/src/integrate_for_w.F |
162 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
171 |
INTEGRATE_FOR_W |
IF (k.EQ.Nr) THEN |
|
./model/src/integrate_for_w.F |
174 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
176 |
INTEGRATE_FOR_W |
& *maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
177 |
INTEGRATE_FOR_W |
& *recip_deepFac2F(k)*recip_rhoFacF(k) |
|
./model/src/integrate_for_w.F |
183 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
184 |
INTEGRATE_FOR_W |
& ( wFld(i,j,k+1,bi,bj)*deepFac2F(k+1)*rhoFacF(k+1) |
|
./model/src/integrate_for_w.F |
186 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
187 |
INTEGRATE_FOR_W |
& *recip_deepFac2F(k)*recip_rhoFacF(k) |
|
./model/src/integrate_for_w.F |
35 |
INTEGRATE_FOR_W |
INTEGER bi,bj,k |
|
./model/src/integrate_for_w.F |
60 |
INTEGRATE_FOR_W |
uTrans(i,j) = uFld(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
61 |
INTEGRATE_FOR_W |
& *_dyG(i,j,bi,bj)*deepFacC(k)*rhoFacC(k) |
|
./model/src/integrate_for_w.F |
62 |
INTEGRATE_FOR_W |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
63 |
INTEGRATE_FOR_W |
vTrans(i,j) = vFld(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
64 |
INTEGRATE_FOR_W |
& *_dxG(i,j,bi,bj)*deepFacC(k)*rhoFacC(k) |
|
./model/src/integrate_for_w.F |
65 |
INTEGRATE_FOR_W |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
79 |
INTEGRATE_FOR_W |
& + mFld(i,j,k,bi,bj)*mass2rUnit |
|
./model/src/integrate_for_w.F |
89 |
INTEGRATE_FOR_W |
IF (k.EQ.1) THEN |
|
./model/src/integrate_for_w.F |
92 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = 0. |
|
./model/src/integrate_for_w.F |
95 |
INTEGRATE_FOR_W |
ELSEIF (k.EQ.Nr) THEN |
|
./model/src/integrate_for_w.F |
98 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./verification/natl_box/results/comp_orig.F |
15 |
NO PROCEDURE |
integer lbuffer1, lbuffer2, i, j, k, irec |
|
./verification/natl_box/results/comp_orig.F |
28 |
NO PROCEDURE |
do k=1,nrec |
|
./model/src/load_ref_files.F |
41 |
LOAD_REF_FILES |
INTEGER k, kLen |
|
./model/src/load_ref_files.F |
52 |
LOAD_REF_FILES |
DO k=1,Nr |
|
./model/src/load_ref_files.F |
53 |
LOAD_REF_FILES |
IF (tRef(k).EQ.UNSET_RL) tRef(k) = tracerDefault |
|
./model/src/load_ref_files.F |
54 |
LOAD_REF_FILES |
tracerDefault = tRef(k) |
|
./model/src/load_ref_files.F |
58 |
LOAD_REF_FILES |
DO k=1,Nr |
|
./model/src/load_ref_files.F |
59 |
LOAD_REF_FILES |
IF (tRef(k).NE.UNSET_RL) THEN |
|
./model/src/load_ref_files.F |
61 |
LOAD_REF_FILES |
& ' Cannot set both tRef(k=', k, ') and tRefFile' |
|
./model/src/load_ref_files.F |
82 |
LOAD_REF_FILES |
DO k=1,Nr |
|
./model/src/load_ref_files.F |
83 |
LOAD_REF_FILES |
IF (sRef(k).EQ.UNSET_RL) sRef(k) = tracerDefault |
|
./model/src/load_ref_files.F |
84 |
LOAD_REF_FILES |
tracerDefault = sRef(k) |
|
./model/src/load_ref_files.F |
88 |
LOAD_REF_FILES |
DO k=1,Nr |
|
./model/src/load_ref_files.F |
89 |
LOAD_REF_FILES |
IF (sRef(k).NE.UNSET_RL) THEN |
|
./model/src/load_ref_files.F |
91 |
LOAD_REF_FILES |
& ' Cannot set both sRef(k=', k, ') and sRefFile' |
|
./model/src/momentum_correction_step.F |
101 |
MOMENTUM_CORRECTION_STEP |
DO k=1,Nr |
|
./model/src/momentum_correction_step.F |
104 |
MOMENTUM_CORRECTION_STEP |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./model/src/momentum_correction_step.F |
71 |
MOMENTUM_CORRECTION_STEP |
INTEGER k,i,j |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
34 |
INI_VEL |
INTEGER bi,bj,i,j,k |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
51 |
INI_VEL |
DO k=1,Nr |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
56 |
INI_VEL |
uVel(i,j,k,bi,bj)=0. |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
58 |
INI_VEL |
vVel(i,j,k,bi,bj)=0. |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
60 |
INI_VEL |
wVel(i,j,k,bi,bj)=0. |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
88 |
INI_VEL |
DO k=1,Nr |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
91 |
INI_VEL |
uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
92 |
INI_VEL |
vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
44 |
COST_TRACER |
integer i, j, k |
|
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
51 |
COST_TRACER |
k=1 |
|
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
55 |
COST_TRACER |
locfc = locfc + maskC(i,j,k,bi,bj)* |
|
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
56 |
COST_TRACER |
& ptracer(i,j,k,bi,bj,6)* |
|
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
57 |
COST_TRACER |
& rA(i,j,bi,bj)*drF(k) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F |
11 |
PTRACERS_FORCING |
I bi,bj,iMin,iMax,jMin,jMax,k,iTracer, |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F |
39 |
PTRACERS_FORCING |
INTEGER bi,bj,iMin,iMax,jMin,jMax,k,iTracer |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F |
71 |
PTRACERS_FORCING |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F |
76 |
PTRACERS_FORCING |
IF ( k .EQ. kSurface ) THEN |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F |
79 |
PTRACERS_FORCING |
gPtracer(i,j,k,bi,bj) = gPtracer(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F |
81 |
PTRACERS_FORCING |
& *recip_drF(k)*recip_hFacC(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F |
84 |
PTRACERS_FORCING |
ELSEIF ( k .NE. kSurface ) THEN |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F |
87 |
PTRACERS_FORCING |
gPtracer(i,j,k,bi,bj) = gPtracer(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F |
88 |
PTRACERS_FORCING |
& + 1. _d 0 * maskC(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F |
96 |
PTRACERS_FORCING |
I bi,bj,k,iTracer+2, |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
34 |
COST_TEMP |
INTEGER i, j, k |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
49 |
COST_TEMP |
DO k=1, Nk |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
52 |
COST_TEMP |
tmp = tmp + maskC(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
75 |
COST_TEMP |
DO k=1,Nk |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
78 |
COST_TEMP |
locfc = locfc + tmp*maskC(i,j,k,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
79 |
COST_TEMP |
& wtheta(k,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
80 |
COST_TEMP |
& ( cMeanTheta(i,j,k,bi,bj) - thetalev(i,j,k,bi,bj) )**2 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
105 |
COST_WEIGHTS |
DO k = 1, Nr |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
106 |
COST_WEIGHTS |
wtheta(k,bi,bj) = 1. _d 0/wti(k)/wti(k) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
36 |
COST_WEIGHTS |
INTEGER i,j,k |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
58 |
COST_WEIGHTS |
DO k = 1,Nr |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
59 |
COST_WEIGHTS |
wti(k) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
68 |
COST_WEIGHTS |
DO k = 1,Nr |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
69 |
COST_WEIGHTS |
wunit(k,bi,bj) = 1. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
70 |
COST_WEIGHTS |
wtheta(k,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
71 |
COST_WEIGHTS |
wsalt(k,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
93 |
COST_WEIGHTS |
DO k=1,Nr |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
94 |
COST_WEIGHTS |
wti(k) = tmpwti(k) |
|
./model/src/port_rand.F |
52 |
NO PROCEDURE |
INTEGER i,ii,inext,inextp,k |
|
./model/src/port_rand.F |
71 |
NO PROCEDURE |
DO k=1,4 |
|
./model/src/post_cg3d.F |
137 |
POST_CG3D |
DO k=1,Nr |
|
./model/src/post_cg3d.F |
140 |
POST_CG3D |
phi_nh(i,j,k,bi,bj) = ( phi_nh(i,j,k,bi,bj) |
|
./model/src/post_cg3d.F |
142 |
POST_CG3D |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/post_cg3d.F |
50 |
POST_CG3D |
INTEGER i,j,k,bi,bj |
|
./model/src/post_cg3d.F |
89 |
POST_CG3D |
DO k=1,Nr |
|
./model/src/post_cg3d.F |
93 |
POST_CG3D |
& + phi_nh(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/pre_cg3d.F |
136 |
PRE_CG3D |
DO k=1,Nr |
|
./model/src/pre_cg3d.F |
139 |
PRE_CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/pre_cg3d.F |
140 |
PRE_CG3D |
& + tmpVar(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/pre_cg3d.F |
202 |
PRE_CG3D |
k=1 |
|
./model/src/pre_cg3d.F |
203 |
PRE_CG3D |
kp1 = MIN(k+1,Nr) |
|
./model/src/pre_cg3d.F |
205 |
PRE_CG3D |
IF (k.GE.Nr) wFacKp = 0. |
|
./model/src/pre_cg3d.F |
208 |
PRE_CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/pre_cg3d.F |
209 |
PRE_CG3D |
& +drF(k)*dyG(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj)*uf(i+1,j) |
|
./model/src/pre_cg3d.F |
210 |
PRE_CG3D |
& -drF(k)*dyG( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)*uf( i ,j) |
|
./model/src/pre_cg3d.F |
211 |
PRE_CG3D |
& +drF(k)*dxG(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj)*vf(i,j+1) |
|
./model/src/pre_cg3d.F |
212 |
PRE_CG3D |
& -drF(k)*dxG(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)*vf(i, j ) |
|
./model/src/pre_cg3d.F |
218 |
PRE_CG3D |
DO k=2,Nr |
|
./model/src/pre_cg3d.F |
219 |
PRE_CG3D |
kp1 = MIN(k+1,Nr) |
|
./model/src/pre_cg3d.F |
222 |
PRE_CG3D |
wFacKm = implicDiv2DFlow*deepFac2F( k )*rhoFacF( k ) |
|
./model/src/pre_cg3d.F |
224 |
PRE_CG3D |
IF (k.GE.Nr) wFacKp = 0. |
|
./model/src/pre_cg3d.F |
227 |
PRE_CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/pre_cg3d.F |
228 |
PRE_CG3D |
& +drF(k)*dyG(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj)*uf(i+1,j) |
|
./model/src/pre_cg3d.F |
229 |
PRE_CG3D |
& -drF(k)*dyG( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)*uf( i ,j) |
|
./model/src/pre_cg3d.F |
230 |
PRE_CG3D |
& +drF(k)*dxG(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj)*vf(i,j+1) |
|
./model/src/pre_cg3d.F |
231 |
PRE_CG3D |
& -drF(k)*dxG(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)*vf(i, j ) |
|
./model/src/pre_cg3d.F |
232 |
PRE_CG3D |
& +( wVel(i,j, k ,bi,bj)*wFacKm*maskC(i,j,k-1,bi,bj) |
|
./model/src/pre_cg3d.F |
242 |
PRE_CG3D |
DO k=1,Nr |
|
./model/src/pre_cg3d.F |
246 |
PRE_CG3D |
& cg3d_b(i,OB_Jn(i,bi,bj),k,bi,bj) = 0. |
|
./model/src/pre_cg3d.F |
249 |
PRE_CG3D |
& cg3d_b(i,OB_Js(i,bi,bj),k,bi,bj) = 0. |
|
./model/src/pre_cg3d.F |
254 |
PRE_CG3D |
& cg3d_b(OB_Ie(j,bi,bj),j,k,bi,bj) = 0. |
|
./model/src/pre_cg3d.F |
257 |
PRE_CG3D |
& cg3d_b(OB_Iw(j,bi,bj),j,k,bi,bj) = 0. |
|
./model/src/pre_cg3d.F |
59 |
PRE_CG3D |
INTEGER i,j,k,bi,bj |
|
./model/src/pressure_for_eos.F |
35 |
PRESSURE_FOR_EOS |
INTEGER bi, bj, k |
|
./model/src/pressure_for_eos.F |
60 |
PRESSURE_FOR_EOS |
& totPhiHyd(i,j,k,bi,bj) |
|
./model/src/pressure_for_eos.F |
61 |
PRESSURE_FOR_EOS |
& -rC(k)*gravity ) |
|
./model/src/pressure_for_eos.F |
68 |
PRESSURE_FOR_EOS |
locPres(i,j) = -rhoConst*rC(k)*gravity |
|
./model/src/pressure_for_eos.F |
78 |
PRESSURE_FOR_EOS |
locPres(i,j) = rC(k) |
|
./model/src/pressure_for_eos.F |
9 |
PRESSURE_FOR_EOS |
I bi, bj, iMin, iMax, jMin, jMax, k, |
|
./model/src/rotate_uv2en.F |
101 |
ROTATE_UV2EN_RL |
& *( vFldY(i,j+1,k,bi,bj) + vFldY(i,j,k,bi,bj) ) |
|
./model/src/rotate_uv2en.F |
112 |
ROTATE_UV2EN_RL |
tmpU(i,j) = uFldX(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
113 |
ROTATE_UV2EN_RL |
tmpV(i,j) = vFldY(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
125 |
ROTATE_UV2EN_RL |
uFldE(i,j,k,bi,bj) = |
|
./model/src/rotate_uv2en.F |
128 |
ROTATE_UV2EN_RL |
vFldN(i,j,k,bi,bj) = |
|
./model/src/rotate_uv2en.F |
141 |
ROTATE_UV2EN_RL |
& angleCosC(i,j,bi,bj)*uFldE(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
142 |
ROTATE_UV2EN_RL |
& +angleSinC(i,j,bi,bj)*vFldN(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
144 |
ROTATE_UV2EN_RL |
& -angleSinC(i,j,bi,bj)*uFldE(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
145 |
ROTATE_UV2EN_RL |
& +angleCosC(i,j,bi,bj)*vFldN(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
152 |
ROTATE_UV2EN_RL |
uFldX(i,1,k,bi,bj)=0. |
|
./model/src/rotate_uv2en.F |
153 |
ROTATE_UV2EN_RL |
vFldY(i,1,k,bi,bj)=0. |
|
./model/src/rotate_uv2en.F |
156 |
ROTATE_UV2EN_RL |
uFldX(1,j,k,bi,bj)=0. |
|
./model/src/rotate_uv2en.F |
157 |
ROTATE_UV2EN_RL |
vFldY(1,j,k,bi,bj)=0. |
|
./model/src/rotate_uv2en.F |
159 |
ROTATE_UV2EN_RL |
uFldX(i,j,k,bi,bj) = 0.5 _d 0 |
|
./model/src/rotate_uv2en.F |
161 |
ROTATE_UV2EN_RL |
vFldY(i,j,k,bi,bj) = 0.5 _d 0 |
|
./model/src/rotate_uv2en.F |
164 |
ROTATE_UV2EN_RL |
uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskW(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
165 |
ROTATE_UV2EN_RL |
vFldY(i,j,k,bi,bj)=vFldY(i,j,k,bi,bj)*maskS(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
173 |
ROTATE_UV2EN_RL |
uFldX(i,j,k,bi,bj) = tmpU(i,j) |
|
./model/src/rotate_uv2en.F |
174 |
ROTATE_UV2EN_RL |
vFldY(i,j,k,bi,bj) = tmpV(i,j) |
|
./model/src/rotate_uv2en.F |
176 |
ROTATE_UV2EN_RL |
uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
177 |
ROTATE_UV2EN_RL |
vFldY(i,j,k,bi,bj)=vFldY(i,j,k,bi,bj)*maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
242 |
ROTATE_UV2EN_RS |
integer i,j,k,kk |
|
./model/src/rotate_uv2en.F |
259 |
ROTATE_UV2EN_RS |
do k = 1,kSize |
|
./model/src/rotate_uv2en.F |
264 |
ROTATE_UV2EN_RS |
kk=k |
|
./model/src/rotate_uv2en.F |
280 |
ROTATE_UV2EN_RS |
& *( uFldX(i+1,j,k,bi,bj) + uFldX(i,j,k,bi,bj) ) |
|
./model/src/rotate_uv2en.F |
282 |
ROTATE_UV2EN_RS |
& *( vFldY(i,j+1,k,bi,bj) + vFldY(i,j,k,bi,bj) ) |
|
./model/src/rotate_uv2en.F |
293 |
ROTATE_UV2EN_RS |
tmpU(i,j) = uFldX(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
294 |
ROTATE_UV2EN_RS |
tmpV(i,j) = vFldY(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
306 |
ROTATE_UV2EN_RS |
uFldE(i,j,k,bi,bj) = |
|
./model/src/rotate_uv2en.F |
309 |
ROTATE_UV2EN_RS |
vFldN(i,j,k,bi,bj) = |
|
./model/src/rotate_uv2en.F |
322 |
ROTATE_UV2EN_RS |
& angleCosC(i,j,bi,bj)*uFldE(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
323 |
ROTATE_UV2EN_RS |
& +angleSinC(i,j,bi,bj)*vFldN(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
325 |
ROTATE_UV2EN_RS |
& -angleSinC(i,j,bi,bj)*uFldE(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
326 |
ROTATE_UV2EN_RS |
& +angleCosC(i,j,bi,bj)*vFldN(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
333 |
ROTATE_UV2EN_RS |
uFldX(i,1,k,bi,bj)=0. |
|
./model/src/rotate_uv2en.F |
334 |
ROTATE_UV2EN_RS |
vFldY(i,1,k,bi,bj)=0. |
|
./model/src/rotate_uv2en.F |
337 |
ROTATE_UV2EN_RS |
uFldX(1,j,k,bi,bj)=0. |
|
./model/src/rotate_uv2en.F |
338 |
ROTATE_UV2EN_RS |
vFldY(1,j,k,bi,bj)=0. |
|
./model/src/rotate_uv2en.F |
340 |
ROTATE_UV2EN_RS |
uFldX(i,j,k,bi,bj) = 0.5 _d 0 |
|
./model/src/rotate_uv2en.F |
342 |
ROTATE_UV2EN_RS |
vFldY(i,j,k,bi,bj) = 0.5 _d 0 |
|
./model/src/rotate_uv2en.F |
345 |
ROTATE_UV2EN_RS |
uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskW(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
346 |
ROTATE_UV2EN_RS |
vFldY(i,j,k,bi,bj)=vFldY(i,j,k,bi,bj)*maskS(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
354 |
ROTATE_UV2EN_RS |
uFldX(i,j,k,bi,bj) = tmpU(i,j) |
|
./model/src/rotate_uv2en.F |
355 |
ROTATE_UV2EN_RS |
vFldY(i,j,k,bi,bj) = tmpV(i,j) |
|
./model/src/rotate_uv2en.F |
357 |
ROTATE_UV2EN_RS |
uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
358 |
ROTATE_UV2EN_RS |
vFldY(i,j,k,bi,bj)=vFldY(i,j,k,bi,bj)*maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
61 |
ROTATE_UV2EN_RL |
integer i,j,k,kk |
|
./model/src/rotate_uv2en.F |
78 |
ROTATE_UV2EN_RL |
do k = 1,kSize |
|
./model/src/rotate_uv2en.F |
83 |
ROTATE_UV2EN_RL |
kk=k |
|
./model/src/rotate_uv2en.F |
99 |
ROTATE_UV2EN_RL |
& *( uFldX(i+1,j,k,bi,bj) + uFldX(i,j,k,bi,bj) ) |
|
./model/src/set_defaults.F |
254 |
SET_DEFAULTS |
DO k=1,Nr |
|
./model/src/set_defaults.F |
255 |
SET_DEFAULTS |
dTtracerLev(k) = 0. _d 0 |
|
./model/src/set_defaults.F |
37 |
SET_DEFAULTS |
INTEGER i, j, k |
|
./model/src/set_defaults.F |
48 |
SET_DEFAULTS |
DO k=1,Nr |
|
./model/src/set_defaults.F |
49 |
SET_DEFAULTS |
delRdefault(k) = 0. |
|
./model/src/set_defaults.F |
51 |
SET_DEFAULTS |
DO k=1,Nr+1 |
|
./model/src/set_defaults.F |
52 |
SET_DEFAULTS |
delRc(k) = UNSET_RL |
|
./model/src/set_grid_factors.F |
35 |
SET_GRID_FACTORS |
INTEGER k |
|
./model/src/set_grid_factors.F |
51 |
SET_GRID_FACTORS |
DO k=1,Nr |
|
./model/src/set_grid_factors.F |
52 |
SET_GRID_FACTORS |
deepFacC(k) = 1. _d 0 |
|
./model/src/set_grid_factors.F |
53 |
SET_GRID_FACTORS |
deepFac2C(k)= 1. _d 0 |
|
./model/src/set_grid_factors.F |
54 |
SET_GRID_FACTORS |
recip_deepFacC(k) = 1. _d 0 |
|
./model/src/set_grid_factors.F |
55 |
SET_GRID_FACTORS |
recip_deepFac2C(k)= 1. _d 0 |
|
./model/src/set_grid_factors.F |
57 |
SET_GRID_FACTORS |
DO k=1,Nr+1 |
|
./model/src/set_grid_factors.F |
58 |
SET_GRID_FACTORS |
deepFacF(k) = 1. _d 0 |
|
./model/src/set_grid_factors.F |
59 |
SET_GRID_FACTORS |
deepFac2F(k)= 1. _d 0 |
|
./model/src/set_grid_factors.F |
60 |
SET_GRID_FACTORS |
recip_deepFacF(k) = 1. _d 0 |
|
./model/src/set_grid_factors.F |
61 |
SET_GRID_FACTORS |
recip_deepFac2F(k)= 1. _d 0 |
|
./model/src/set_grid_factors.F |
66 |
SET_GRID_FACTORS |
DO k=1,Nr |
|
./model/src/set_grid_factors.F |
67 |
SET_GRID_FACTORS |
deepFacC(k) = (rSphere+rC(k))*recip_rSphere |
|
./model/src/set_grid_factors.F |
68 |
SET_GRID_FACTORS |
deepFac2C(k) = deepFacC(k)*deepFacC(k) |
|
./model/src/set_grid_factors.F |
70 |
SET_GRID_FACTORS |
DO k=1,Nr+1 |
|
./model/src/set_grid_factors.F |
71 |
SET_GRID_FACTORS |
deepFacF(k) = (rSphere+rF(k))*recip_rSphere |
|
./model/src/set_grid_factors.F |
72 |
SET_GRID_FACTORS |
deepFac2F(k) = deepFacF(k)*deepFacF(k) |
|
./model/src/set_grid_factors.F |
75 |
SET_GRID_FACTORS |
DO k=1,Nr |
|
./model/src/set_grid_factors.F |
76 |
SET_GRID_FACTORS |
deepFacC(k) = ( rSphere + phiRef(2*k)*recip_gravity |
|
./model/src/set_grid_factors.F |
78 |
SET_GRID_FACTORS |
deepFac2C(k) = deepFacC(k)*deepFacC(k) |
|
./model/src/set_grid_factors.F |
80 |
SET_GRID_FACTORS |
DO k=1,Nr+1 |
|
./model/src/set_grid_factors.F |
81 |
SET_GRID_FACTORS |
deepFacF(k) = ( rSphere + phiRef(2*k-1)*recip_gravity |
|
./model/src/set_grid_factors.F |
83 |
SET_GRID_FACTORS |
deepFac2F(k) = deepFacF(k)*deepFacF(k) |
|
./model/src/set_grid_factors.F |
87 |
SET_GRID_FACTORS |
DO k=1,Nr |
|
./model/src/set_grid_factors.F |
88 |
SET_GRID_FACTORS |
recip_deepFacC(k) = 1. _d 0/deepFacC(k) |
|
./model/src/set_grid_factors.F |
89 |
SET_GRID_FACTORS |
recip_deepFac2C(k)= 1. _d 0/deepFac2C(k) |
|
./model/src/set_grid_factors.F |
91 |
SET_GRID_FACTORS |
DO k=1,Nr+1 |
|
./model/src/set_grid_factors.F |
92 |
SET_GRID_FACTORS |
recip_deepFacF(k) = 1. _d 0/deepFacF(k) |
|
./model/src/set_grid_factors.F |
93 |
SET_GRID_FACTORS |
recip_deepFac2F(k)= 1. _d 0/deepFac2F(k) |
|
./model/src/set_ref_state.F |
112 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
113 |
SET_REF_STATE |
pLoc = -rhoConst*rC(k)*gravity |
|
./model/src/set_ref_state.F |
115 |
SET_REF_STATE |
I tRef(k), sRef(k), pLoc, |
|
./model/src/set_ref_state.F |
116 |
SET_REF_STATE |
O rhoRef(k), myThid ) |
|
./model/src/set_ref_state.F |
121 |
SET_REF_STATE |
DO k=2,Nr |
|
./model/src/set_ref_state.F |
122 |
SET_REF_STATE |
pLoc = -rhoConst*rF(k)*gravity |
|
./model/src/set_ref_state.F |
124 |
SET_REF_STATE |
I tRef(k-1), sRef(k-1), pLoc, |
|
./model/src/set_ref_state.F |
127 |
SET_REF_STATE |
I tRef(k), sRef(k), pLoc, |
|
./model/src/set_ref_state.F |
129 |
SET_REF_STATE |
dBdrRef(k) = (rhoDw - rhoUp)*recip_drC(k) |
|
./model/src/set_ref_state.F |
133 |
SET_REF_STATE |
dBdrRef(k) = ( sBeta *(sRef(k)-sRef(k-1)) |
|
./model/src/set_ref_state.F |
134 |
SET_REF_STATE |
& -tAlpha*(tRef(k)-tRef(k-1)) |
|
./model/src/set_ref_state.F |
135 |
SET_REF_STATE |
& )*recip_drC(k) |
|
./model/src/set_ref_state.F |
144 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
145 |
SET_REF_STATE |
pLoc = rC(k) |
|
./model/src/set_ref_state.F |
147 |
SET_REF_STATE |
I tRef(k), sRef(k), pLoc, |
|
./model/src/set_ref_state.F |
148 |
SET_REF_STATE |
O rhoRef(k), myThid ) |
|
./model/src/set_ref_state.F |
153 |
SET_REF_STATE |
DO k=1,Nr+1 |
|
./model/src/set_ref_state.F |
154 |
SET_REF_STATE |
pLoc = rF(k) |
|
./model/src/set_ref_state.F |
155 |
SET_REF_STATE |
IF ( k.GE.2 ) CALL FIND_RHO_SCALAR( |
|
./model/src/set_ref_state.F |
156 |
SET_REF_STATE |
I tRef(k-1), sRef(k-1), pLoc, |
|
./model/src/set_ref_state.F |
158 |
SET_REF_STATE |
IF ( k.LE.Nr ) CALL FIND_RHO_SCALAR( |
|
./model/src/set_ref_state.F |
159 |
SET_REF_STATE |
I tRef(k), sRef(k), pLoc, |
|
./model/src/set_ref_state.F |
161 |
SET_REF_STATE |
IF ( k.GE.2 .AND. k.LE.Nr ) THEN |
|
./model/src/set_ref_state.F |
162 |
SET_REF_STATE |
dBdrRef(k) = (rhoDw - rhoUp)*recip_drC(k) |
|
./model/src/set_ref_state.F |
165 |
SET_REF_STATE |
ELSEIF ( k.EQ.1 ) THEN |
|
./model/src/set_ref_state.F |
174 |
SET_REF_STATE |
wUnit2rVel(k) = gravity*rhoLoc |
|
./model/src/set_ref_state.F |
175 |
SET_REF_STATE |
rVel2wUnit(k) = 1. _d 0 / wUnit2rVel(k) |
|
./model/src/set_ref_state.F |
183 |
SET_REF_STATE |
DO k=2,Nr |
|
./model/src/set_ref_state.F |
184 |
SET_REF_STATE |
conv_theta2T = (rF(k)/atm_Po)**atm_kappa |
|
./model/src/set_ref_state.F |
187 |
SET_REF_STATE |
ddPI=atm_Cp*( ((rC(k-1)/atm_Po)**atm_kappa) |
|
./model/src/set_ref_state.F |
188 |
SET_REF_STATE |
& -((rC( k )/atm_Po)**atm_kappa) ) |
|
./model/src/set_ref_state.F |
189 |
SET_REF_STATE |
dBdrRef(k) = (tRef(k) - tRef(k-1))*recip_drC(k) |
|
./model/src/set_ref_state.F |
190 |
SET_REF_STATE |
& * ddPI*recip_drC(k) |
|
./model/src/set_ref_state.F |
198 |
SET_REF_STATE |
DO k=1,Nr+1 |
|
./model/src/set_ref_state.F |
199 |
SET_REF_STATE |
IF ( k.EQ.1 ) THEN |
|
./model/src/set_ref_state.F |
200 |
SET_REF_STATE |
thetaLoc = tRef(k) |
|
./model/src/set_ref_state.F |
201 |
SET_REF_STATE |
ELSEIF ( k.GT.Nr ) THEN |
|
./model/src/set_ref_state.F |
202 |
SET_REF_STATE |
thetaLoc = tRef(k-1) |
|
./model/src/set_ref_state.F |
204 |
SET_REF_STATE |
thetaLoc = (tRef(k) + tRef(k-1))*0.5 _d 0 |
|
./model/src/set_ref_state.F |
206 |
SET_REF_STATE |
IF ( thetaLoc.GT.0. _d 0 .AND. rF(k).GT.0. _d 0 ) THEN |
|
./model/src/set_ref_state.F |
207 |
SET_REF_STATE |
conv_theta2T = (rF(k)/atm_Po)**atm_kappa |
|
./model/src/set_ref_state.F |
208 |
SET_REF_STATE |
wUnit2rVel(k) = gravity |
|
./model/src/set_ref_state.F |
209 |
SET_REF_STATE |
& * rF(k)/(atm_Rd*conv_theta2T*thetaLoc) |
|
./model/src/set_ref_state.F |
210 |
SET_REF_STATE |
rVel2wUnit(k) = 1. _d 0 / wUnit2rVel(k) |
|
./model/src/set_ref_state.F |
221 |
SET_REF_STATE |
DO k=1,2*Nr |
|
./model/src/set_ref_state.F |
222 |
SET_REF_STATE |
ks = (k+1)/2 |
|
./model/src/set_ref_state.F |
223 |
SET_REF_STATE |
ddPI=atm_Cp*( ((rHalf( k )/atm_Po)**atm_kappa) |
|
./model/src/set_ref_state.F |
224 |
SET_REF_STATE |
& -((rHalf(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/set_ref_state.F |
225 |
SET_REF_STATE |
phiRef(k+1) = phiRef(k)+ddPI*tRef(ks) |
|
./model/src/set_ref_state.F |
231 |
SET_REF_STATE |
k = 1 |
|
./model/src/set_ref_state.F |
232 |
SET_REF_STATE |
ddPI=atm_Cp*( ((rF(k)/atm_Po)**atm_kappa) |
|
./model/src/set_ref_state.F |
233 |
SET_REF_STATE |
& -((rC(k)/atm_Po)**atm_kappa) ) |
|
./model/src/set_ref_state.F |
234 |
SET_REF_STATE |
phiRef(2*k) = phiRef(1) + ddPI*tRef(k) |
|
./model/src/set_ref_state.F |
235 |
SET_REF_STATE |
DO k=1,Nr-1 |
|
./model/src/set_ref_state.F |
236 |
SET_REF_STATE |
ddPI=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/set_ref_state.F |
237 |
SET_REF_STATE |
& -((rC(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/set_ref_state.F |
238 |
SET_REF_STATE |
phiRef(2*k+1) = phiRef(2*k) + ddPI*0.5*tRef(k) |
|
./model/src/set_ref_state.F |
239 |
SET_REF_STATE |
phiRef(2*k+2) = phiRef(2*k) |
|
./model/src/set_ref_state.F |
240 |
SET_REF_STATE |
& + ddPI*0.5*(tRef(k)+tRef(k+1)) |
|
./model/src/set_ref_state.F |
242 |
SET_REF_STATE |
k = Nr |
|
./model/src/set_ref_state.F |
243 |
SET_REF_STATE |
ddPI=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/set_ref_state.F |
244 |
SET_REF_STATE |
& -((rF(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/set_ref_state.F |
245 |
SET_REF_STATE |
phiRef(2*k+1) = phiRef(2*k) + ddPI*tRef(k) |
|
./model/src/set_ref_state.F |
259 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
260 |
SET_REF_STATE |
phiRef(2*k) = gravitySign*gravity*(rC(k) - Ro_SeaLevel) |
|
./model/src/set_ref_state.F |
261 |
SET_REF_STATE |
phiRef(2*k+1) = gravitySign*gravity*(rF(k+1)-Ro_SeaLevel) |
|
./model/src/set_ref_state.F |
268 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
269 |
SET_REF_STATE |
phiRef(2*k) = -recip_rhoConst*rC(k) |
|
./model/src/set_ref_state.F |
270 |
SET_REF_STATE |
phiRef(2*k+1) = -recip_rhoConst*rF(k+1) |
|
./model/src/set_ref_state.F |
281 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
282 |
SET_REF_STATE |
rhoFacC(k) = rho1Ref(k)/rhoConst |
|
./model/src/set_ref_state.F |
284 |
SET_REF_STATE |
DO k=2,Nr |
|
./model/src/set_ref_state.F |
285 |
SET_REF_STATE |
rhoFacF(k) = (rhoFacC(k-1)*drF(k)+rhoFacC(k)*drF(k-1)) |
|
./model/src/set_ref_state.F |
286 |
SET_REF_STATE |
& / (drF(k)+drF(k-1)) |
|
./model/src/set_ref_state.F |
291 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
292 |
SET_REF_STATE |
recip_rhoFacC(k) = 1. _d 0/rhoFacC(k) |
|
./model/src/set_ref_state.F |
294 |
SET_REF_STATE |
DO k=1,Nr+1 |
|
./model/src/set_ref_state.F |
295 |
SET_REF_STATE |
recip_rhoFacF(k) = 1. _d 0/rhoFacF(k) |
|
./model/src/set_ref_state.F |
311 |
SET_REF_STATE |
DO k=1,2*Nr+1 |
|
./model/src/set_ref_state.F |
313 |
SET_REF_STATE |
& ' K=',k*0.5,' ; r=',rHalf(k),' ; phiRef/g=', |
|
./model/src/set_ref_state.F |
314 |
SET_REF_STATE |
& phiRef(k)*recip_gravity |
|
./model/src/set_ref_state.F |
41 |
SET_REF_STATE |
INTEGER k, ks, stdUnit |
|
./model/src/set_ref_state.F |
51 |
SET_REF_STATE |
DO k=1,2*Nr |
|
./model/src/set_ref_state.F |
52 |
SET_REF_STATE |
phiRef(k) = 0. |
|
./model/src/set_ref_state.F |
56 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
57 |
SET_REF_STATE |
rhoRef(k) = 0. |
|
./model/src/set_ref_state.F |
58 |
SET_REF_STATE |
dBdrRef(k) = 0. |
|
./model/src/set_ref_state.F |
59 |
SET_REF_STATE |
rHalf(2*k-1) = rF(k) |
|
./model/src/set_ref_state.F |
60 |
SET_REF_STATE |
rHalf(2*k) = rC(k) |
|
./model/src/set_ref_state.F |
64 |
SET_REF_STATE |
DO k=1,Nr+1 |
|
./model/src/set_ref_state.F |
65 |
SET_REF_STATE |
rVel2wUnit(k) = 1. _d 0 |
|
./model/src/set_ref_state.F |
66 |
SET_REF_STATE |
wUnit2rVel(k) = 1. _d 0 |
|
./model/src/set_ref_state.F |
70 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
71 |
SET_REF_STATE |
rhoFacC(k) = 1. _d 0 |
|
./model/src/set_ref_state.F |
72 |
SET_REF_STATE |
recip_rhoFacC(k) = 1. _d 0 |
|
./model/src/set_ref_state.F |
74 |
SET_REF_STATE |
DO k=1,Nr+1 |
|
./model/src/set_ref_state.F |
75 |
SET_REF_STATE |
rhoFacF(k) = 1. _d 0 |
|
./model/src/set_ref_state.F |
76 |
SET_REF_STATE |
recip_rhoFacF(k) = 1. _d 0 |
|
./model/src/solve_for_pressure.F |
174 |
SOLVE_FOR_PRESSURE |
DO k=Nr,1,-1 |
|
./model/src/solve_for_pressure.F |
176 |
SOLVE_FOR_PRESSURE |
I bi,bj,k, |
|
./model/src/solve_for_pressure.F |
57 |
SOLVE_FOR_PRESSURE |
INTEGER i,j,k,bi,bj |
|
./model/src/solve_pentadiagonal.F |
100 |
SOLVE_PENTADIAGONAL |
& - b5d(i,j,k)*y5d(i,j,k-1,bi,bj) |
|
./model/src/solve_pentadiagonal.F |
101 |
SOLVE_PENTADIAGONAL |
IF ( c5d(i,j,k).NE.0. _d 0 ) THEN |
|
./model/src/solve_pentadiagonal.F |
102 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = 1. _d 0 / c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
104 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
115 |
SOLVE_PENTADIAGONAL |
a5d(i,j,k) = a5d(i,j,k)*c5d(i,j,k-2) |
|
./model/src/solve_pentadiagonal.F |
116 |
SOLVE_PENTADIAGONAL |
b5d(i,j,k) = b5d(i,j,k) - a5d(i,j,k)*d5d(i,j,k-2) |
|
./model/src/solve_pentadiagonal.F |
117 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = c5d(i,j,k) - a5d(i,j,k)*e5d(i,j,k-2) |
|
./model/src/solve_pentadiagonal.F |
119 |
SOLVE_PENTADIAGONAL |
b5d(i,j,k) = b5d(i,j,k)*c5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
120 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = c5d(i,j,k) - b5d(i,j,k)*d5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
121 |
SOLVE_PENTADIAGONAL |
d5d(i,j,k) = d5d(i,j,k) - b5d(i,j,k)*e5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
122 |
SOLVE_PENTADIAGONAL |
y5d(i,j,k,bi,bj) = y5d(i,j,k,bi,bj) |
|
./model/src/solve_pentadiagonal.F |
123 |
SOLVE_PENTADIAGONAL |
& - b5d(i,j,k)*y5d(i,j,k-1,bi,bj) |
|
./model/src/solve_pentadiagonal.F |
124 |
SOLVE_PENTADIAGONAL |
& - a5d(i,j,k)*y5d(i,j,k-2,bi,bj) |
|
./model/src/solve_pentadiagonal.F |
125 |
SOLVE_PENTADIAGONAL |
IF ( c5d(i,j,k).NE.0. _d 0 ) THEN |
|
./model/src/solve_pentadiagonal.F |
126 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = 1. _d 0 / c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
128 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
138 |
SOLVE_PENTADIAGONAL |
DO k=Nr,1,-1 |
|
./model/src/solve_pentadiagonal.F |
139 |
SOLVE_PENTADIAGONAL |
IF (k.EQ.Nr) THEN |
|
./model/src/solve_pentadiagonal.F |
142 |
SOLVE_PENTADIAGONAL |
y5d(i,j,k,bi,bj) = y5d(i,j,k,bi,bj)*c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
145 |
SOLVE_PENTADIAGONAL |
ELSEIF (k.EQ.Nr-1) THEN |
|
./model/src/solve_pentadiagonal.F |
148 |
SOLVE_PENTADIAGONAL |
y5d(i,j,k,bi,bj) = ( y5d(i,j,k,bi,bj) |
|
./model/src/solve_pentadiagonal.F |
149 |
SOLVE_PENTADIAGONAL |
& - d5d(i,j,k)*y5d(i,j,k+1,bi,bj) |
|
./model/src/solve_pentadiagonal.F |
150 |
SOLVE_PENTADIAGONAL |
& )*c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
156 |
SOLVE_PENTADIAGONAL |
y5d(i,j,k,bi,bj) = ( y5d(i,j,k,bi,bj) |
|
./model/src/solve_pentadiagonal.F |
157 |
SOLVE_PENTADIAGONAL |
& - d5d(i,j,k)*y5d(i,j,k+1,bi,bj) |
|
./model/src/solve_pentadiagonal.F |
158 |
SOLVE_PENTADIAGONAL |
& - e5d(i,j,k)*y5d(i,j,k+2,bi,bj) |
|
./model/src/solve_pentadiagonal.F |
159 |
SOLVE_PENTADIAGONAL |
& )*c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
173 |
SOLVE_PENTADIAGONAL |
DO k=1,Nr |
|
./model/src/solve_pentadiagonal.F |
174 |
SOLVE_PENTADIAGONAL |
y5d_m1(i,j,k) = y5d(i,j,k,bi,bj) |
|
./model/src/solve_pentadiagonal.F |
183 |
SOLVE_PENTADIAGONAL |
DO k=1,Nr |
|
./model/src/solve_pentadiagonal.F |
184 |
SOLVE_PENTADIAGONAL |
a5d_prime(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
185 |
SOLVE_PENTADIAGONAL |
b5d_prime(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
186 |
SOLVE_PENTADIAGONAL |
c5d_prime(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
187 |
SOLVE_PENTADIAGONAL |
d5d_prime(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
188 |
SOLVE_PENTADIAGONAL |
e5d_prime(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
189 |
SOLVE_PENTADIAGONAL |
y5d_prime(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
190 |
SOLVE_PENTADIAGONAL |
y5d_update(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
193 |
SOLVE_PENTADIAGONAL |
DO k=1,Nr |
|
./model/src/solve_pentadiagonal.F |
196 |
SOLVE_PENTADIAGONAL |
IF (k.EQ.1) THEN |
|
./model/src/solve_pentadiagonal.F |
198 |
SOLVE_PENTADIAGONAL |
a5d_prime(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
199 |
SOLVE_PENTADIAGONAL |
b5d_prime(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
200 |
SOLVE_PENTADIAGONAL |
c5d_prime(k) = c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
201 |
SOLVE_PENTADIAGONAL |
d5d_prime(k) = d5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
202 |
SOLVE_PENTADIAGONAL |
e5d_prime(k) = e5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
203 |
SOLVE_PENTADIAGONAL |
y5d_prime(k) = y5d_m1(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
204 |
SOLVE_PENTADIAGONAL |
ELSEIF (k.EQ.2) THEN |
|
./model/src/solve_pentadiagonal.F |
206 |
SOLVE_PENTADIAGONAL |
a5d_prime(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
207 |
SOLVE_PENTADIAGONAL |
b5d_prime(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
208 |
SOLVE_PENTADIAGONAL |
c5d_prime(k) = c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
209 |
SOLVE_PENTADIAGONAL |
& -b5d(i,j,k)*d5d_prime(k-1) |
|
./model/src/solve_pentadiagonal.F |
210 |
SOLVE_PENTADIAGONAL |
d5d_prime(k) = d5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
211 |
SOLVE_PENTADIAGONAL |
& -b5d(i,j,k)*e5d_prime(k-1) |
|
./model/src/solve_pentadiagonal.F |
212 |
SOLVE_PENTADIAGONAL |
e5d_prime(k) = e5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
213 |
SOLVE_PENTADIAGONAL |
y5d_prime(k) = y5d_m1(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
214 |
SOLVE_PENTADIAGONAL |
& -b5d(i,j,k)*y5d_prime(k-1) |
|
./model/src/solve_pentadiagonal.F |
217 |
SOLVE_PENTADIAGONAL |
a5d_prime(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
218 |
SOLVE_PENTADIAGONAL |
b5d_prime(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
219 |
SOLVE_PENTADIAGONAL |
c5d_prime(k) = c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
220 |
SOLVE_PENTADIAGONAL |
& -a5d(i,j,k)*e5d_prime(k-2) |
|
./model/src/solve_pentadiagonal.F |
221 |
SOLVE_PENTADIAGONAL |
& -(b5d(i,j,k)-a5d(i,j,k)*d5d_prime(k-2))*d5d_prime(k-1) |
|
./model/src/solve_pentadiagonal.F |
222 |
SOLVE_PENTADIAGONAL |
d5d_prime(k) = d5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
223 |
SOLVE_PENTADIAGONAL |
& -(b5d(i,j,k)-a5d(i,j,k)*d5d_prime(k-2))*e5d_prime(k-1) |
|
./model/src/solve_pentadiagonal.F |
224 |
SOLVE_PENTADIAGONAL |
e5d_prime(k) = e5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
225 |
SOLVE_PENTADIAGONAL |
y5d_prime(k) = y5d_m1(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
226 |
SOLVE_PENTADIAGONAL |
& -a5d(i,j,k)*y5d_prime(k-2) |
|
./model/src/solve_pentadiagonal.F |
227 |
SOLVE_PENTADIAGONAL |
& -(b5d(i,j,k)-a5d(i,j,k)*d5d_prime(k-2))*y5d_prime(k-1) |
|
./model/src/solve_pentadiagonal.F |
231 |
SOLVE_PENTADIAGONAL |
tmpval=c5d_prime(k) |
|
./model/src/solve_pentadiagonal.F |
233 |
SOLVE_PENTADIAGONAL |
a5d_prime(k) = a5d_prime(k) / tmpval |
|
./model/src/solve_pentadiagonal.F |
234 |
SOLVE_PENTADIAGONAL |
b5d_prime(k) = b5d_prime(k) / tmpval |
|
./model/src/solve_pentadiagonal.F |
235 |
SOLVE_PENTADIAGONAL |
c5d_prime(k) = 1. _d 0 |
|
./model/src/solve_pentadiagonal.F |
236 |
SOLVE_PENTADIAGONAL |
d5d_prime(k) = d5d_prime(k) / tmpval |
|
./model/src/solve_pentadiagonal.F |
237 |
SOLVE_PENTADIAGONAL |
e5d_prime(k) = e5d_prime(k) / tmpval |
|
./model/src/solve_pentadiagonal.F |
238 |
SOLVE_PENTADIAGONAL |
y5d_prime(k) = y5d_prime(k) / tmpval |
|
./model/src/solve_pentadiagonal.F |
240 |
SOLVE_PENTADIAGONAL |
a5d_prime(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
241 |
SOLVE_PENTADIAGONAL |
b5d_prime(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
242 |
SOLVE_PENTADIAGONAL |
c5d_prime(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
243 |
SOLVE_PENTADIAGONAL |
d5d_prime(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
244 |
SOLVE_PENTADIAGONAL |
e5d_prime(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
245 |
SOLVE_PENTADIAGONAL |
y5d_prime(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
252 |
SOLVE_PENTADIAGONAL |
DO k=Nr,1,-1 |
|
./model/src/solve_pentadiagonal.F |
253 |
SOLVE_PENTADIAGONAL |
IF (k.EQ.Nr) THEN |
|
./model/src/solve_pentadiagonal.F |
254 |
SOLVE_PENTADIAGONAL |
y5d_update(k) = y5d_prime(k) |
|
./model/src/solve_pentadiagonal.F |
255 |
SOLVE_PENTADIAGONAL |
ELSEIF (k.EQ.Nr-1) THEN |
|
./model/src/solve_pentadiagonal.F |
256 |
SOLVE_PENTADIAGONAL |
y5d_update(k) = y5d_prime(k) |
|
./model/src/solve_pentadiagonal.F |
257 |
SOLVE_PENTADIAGONAL |
& - y5d_update(k+1)*d5d_prime(k) |
|
./model/src/solve_pentadiagonal.F |
259 |
SOLVE_PENTADIAGONAL |
y5d_update(k) = y5d_prime(k) |
|
./model/src/solve_pentadiagonal.F |
260 |
SOLVE_PENTADIAGONAL |
& - y5d_update(k+1)*d5d_prime(k) |
|
./model/src/solve_pentadiagonal.F |
261 |
SOLVE_PENTADIAGONAL |
& - y5d_update(k+2)*e5d_prime(k) |
|
./model/src/solve_pentadiagonal.F |
266 |
SOLVE_PENTADIAGONAL |
DO k=1,Nr |
|
./model/src/solve_pentadiagonal.F |
267 |
SOLVE_PENTADIAGONAL |
y5d(i,j,k,bi,bj)=y5d_update(k) |
|
./model/src/solve_pentadiagonal.F |
65 |
SOLVE_PENTADIAGONAL |
INTEGER i,j,k |
|
./model/src/solve_pentadiagonal.F |
78 |
SOLVE_PENTADIAGONAL |
DO k=1,Nr |
|
./model/src/solve_pentadiagonal.F |
80 |
SOLVE_PENTADIAGONAL |
IF (k.EQ.1) THEN |
|
./model/src/solve_pentadiagonal.F |
83 |
SOLVE_PENTADIAGONAL |
IF ( c5d(i,j,k).NE.0. _d 0 ) THEN |
|
./model/src/solve_pentadiagonal.F |
84 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = 1. _d 0 / c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
86 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
92 |
SOLVE_PENTADIAGONAL |
ELSEIF (k.EQ.2) THEN |
|
./model/src/solve_pentadiagonal.F |
96 |
SOLVE_PENTADIAGONAL |
b5d(i,j,k) = b5d(i,j,k)*c5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
97 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = c5d(i,j,k) - b5d(i,j,k)*d5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
98 |
SOLVE_PENTADIAGONAL |
d5d(i,j,k) = d5d(i,j,k) - b5d(i,j,k)*e5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
99 |
SOLVE_PENTADIAGONAL |
y5d(i,j,k,bi,bj) = y5d(i,j,k,bi,bj) |
|
./model/src/solve_tridiagonal.F |
100 |
SOLVE_TRIDIAGONAL |
DO k=2,Nr |
|
./model/src/solve_tridiagonal.F |
103 |
SOLVE_TRIDIAGONAL |
y3d(i,j,k,bi,bj) = ( y3d(i,j,k,bi,bj) |
|
./model/src/solve_tridiagonal.F |
104 |
SOLVE_TRIDIAGONAL |
& - a3d(i,j,k)*y3d(i,j,k-1,bi,bj) |
|
./model/src/solve_tridiagonal.F |
105 |
SOLVE_TRIDIAGONAL |
& )*bet(i,j,k) |
|
./model/src/solve_tridiagonal.F |
112 |
SOLVE_TRIDIAGONAL |
DO k=Nr-1,1,-1 |
|
./model/src/solve_tridiagonal.F |
115 |
SOLVE_TRIDIAGONAL |
y3d(i,j,k,bi,bj) = y3d(i,j,k,bi,bj) |
|
./model/src/solve_tridiagonal.F |
116 |
SOLVE_TRIDIAGONAL |
& - c3d(i,j,k)*bet(i,j,k)*y3d(i,j,k+1,bi,bj) |
|
./model/src/solve_tridiagonal.F |
128 |
SOLVE_TRIDIAGONAL |
DO k=1,Nr |
|
./model/src/solve_tridiagonal.F |
129 |
SOLVE_TRIDIAGONAL |
c3d_m1(i,j,k) = c3d(i,j,k) |
|
./model/src/solve_tridiagonal.F |
130 |
SOLVE_TRIDIAGONAL |
y3d_m1(i,j,k) = y3d(i,j,k,bi,bj) |
|
./model/src/solve_tridiagonal.F |
139 |
SOLVE_TRIDIAGONAL |
DO k=1,Nr |
|
./model/src/solve_tridiagonal.F |
140 |
SOLVE_TRIDIAGONAL |
c3d_prime(k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
141 |
SOLVE_TRIDIAGONAL |
y3d_prime(k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
142 |
SOLVE_TRIDIAGONAL |
y3d_update(k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
146 |
SOLVE_TRIDIAGONAL |
DO k=1,Nr |
|
./model/src/solve_tridiagonal.F |
147 |
SOLVE_TRIDIAGONAL |
IF ( k.EQ.1 ) THEN |
|
./model/src/solve_tridiagonal.F |
157 |
SOLVE_TRIDIAGONAL |
tmpvar = b3d(i,j,k) - a3d(i,j,k)*c3d_prime(k-1) |
|
./model/src/solve_tridiagonal.F |
159 |
SOLVE_TRIDIAGONAL |
c3d_prime(k) = c3d_m1(i,j,k) / tmpvar |
|
./model/src/solve_tridiagonal.F |
160 |
SOLVE_TRIDIAGONAL |
y3d_prime(k) = (y3d_m1(i,j,k) - y3d_prime(k-1)*a3d(i,j,k)) |
|
./model/src/solve_tridiagonal.F |
163 |
SOLVE_TRIDIAGONAL |
c3d_prime(k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
164 |
SOLVE_TRIDIAGONAL |
y3d_prime(k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
171 |
SOLVE_TRIDIAGONAL |
DO k=Nr,1,-1 |
|
./model/src/solve_tridiagonal.F |
172 |
SOLVE_TRIDIAGONAL |
IF ( k.EQ.Nr ) THEN |
|
./model/src/solve_tridiagonal.F |
173 |
SOLVE_TRIDIAGONAL |
y3d_update(k)=y3d_prime(k) |
|
./model/src/solve_tridiagonal.F |
175 |
SOLVE_TRIDIAGONAL |
y3d_update(k)=y3d_prime(k)-c3d_prime(k)*y3d_update(k+1) |
|
./model/src/solve_tridiagonal.F |
180 |
SOLVE_TRIDIAGONAL |
DO k=1,Nr |
|
./model/src/solve_tridiagonal.F |
181 |
SOLVE_TRIDIAGONAL |
y3d(i,j,k,bi,bj)=y3d_update(k) |
|
./model/src/solve_tridiagonal.F |
53 |
SOLVE_TRIDIAGONAL |
INTEGER i,j,k |
|
./model/src/solve_tridiagonal.F |
81 |
SOLVE_TRIDIAGONAL |
DO k=2,Nr |
|
./model/src/solve_tridiagonal.F |
84 |
SOLVE_TRIDIAGONAL |
tmpvar = b3d(i,j,k) - a3d(i,j,k)*c3d(i,j,k-1)*bet(i,j,k-1) |
|
./model/src/solve_tridiagonal.F |
86 |
SOLVE_TRIDIAGONAL |
bet(i,j,k) = 1. _d 0 / tmpvar |
|
./model/src/solve_tridiagonal.F |
88 |
SOLVE_TRIDIAGONAL |
bet(i,j,k) = 0. _d 0 |
|
./model/src/taueddy_init_varia.F |
37 |
TAUEDDY_INIT_VARIA |
INTEGER i, j, k |
|
./model/src/taueddy_init_varia.F |
43 |
TAUEDDY_INIT_VARIA |
DO k=1,Nr |
|
./model/src/taueddy_init_varia.F |
46 |
TAUEDDY_INIT_VARIA |
eddyPsiX(i,j,k,bi,bj)=0. |
|
./model/src/taueddy_init_varia.F |
47 |
TAUEDDY_INIT_VARIA |
eddyPsiY(i,j,k,bi,bj)=0. |
|
./model/src/thermodynamics.F |
183 |
THERMODYNAMICS |
INTEGER k, km1, kup, kDown |
|
./model/src/thermodynamics.F |
279 |
THERMODYNAMICS |
DO k=1,Nr |
|
./model/src/thermodynamics.F |
283 |
THERMODYNAMICS |
kappaRk(i,j,k) = 0. _d 0 |
|
./model/src/thermodynamics.F |
285 |
THERMODYNAMICS |
gT(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/thermodynamics.F |
286 |
THERMODYNAMICS |
gS(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/thermodynamics.F |
305 |
THERMODYNAMICS |
DO k=1,Nr |
|
./model/src/thermodynamics.F |
308 |
THERMODYNAMICS |
gPTr(i,j,k,bi,bj,itracer) = 0. _d 0 |
|
./model/src/thermodynamics.F |
456 |
THERMODYNAMICS |
DO k=Nr,1,-1 |
|
./model/src/thermodynamics.F |
461 |
THERMODYNAMICS |
kkey = (itdkey-1)*Nr + k |
|
./model/src/thermodynamics.F |
468 |
THERMODYNAMICS |
km1 = MAX(1,k-1) |
|
./model/src/thermodynamics.F |
469 |
THERMODYNAMICS |
kup = 1+MOD(k+1,2) |
|
./model/src/thermodynamics.F |
470 |
THERMODYNAMICS |
kDown= 1+MOD(k,2) |
|
./model/src/thermodynamics.F |
477 |
THERMODYNAMICS |
IF (k.EQ.Nr) THEN |
|
./model/src/thermodynamics.F |
500 |
THERMODYNAMICS |
I k,bi,bj, myThid ) |
|
./model/src/thermodynamics.F |
503 |
THERMODYNAMICS |
IF (k.EQ.1) THEN |
|
./model/src/thermodynamics.F |
517 |
THERMODYNAMICS |
wFld(i,j) = wVel(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
518 |
THERMODYNAMICS |
maskUp(i,j) = maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
520 |
THERMODYNAMICS |
& *deepFac2F(k)*rhoFacF(k) |
|
./model/src/thermodynamics.F |
530 |
THERMODYNAMICS |
I k, bi, bj, myThid ) |
|
./model/src/thermodynamics.F |
534 |
THERMODYNAMICS |
I k, bi, bj, myThid ) |
|
./model/src/thermodynamics.F |
553 |
THERMODYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./model/src/thermodynamics.F |
625 |
THERMODYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax, k,km1,kup,kDown, |
|
./model/src/thermodynamics.F |
634 |
THERMODYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax,k,tempAdvScheme,dTtracerLev(k), |
|
./model/src/thermodynamics.F |
641 |
THERMODYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax,k,tempAdvScheme,dTtracerLev(k), |
|
./model/src/thermodynamics.F |
675 |
THERMODYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax, k,km1,kup,kDown, |
|
./model/src/thermodynamics.F |
684 |
THERMODYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax,k,saltAdvScheme,dTtracerLev(k), |
|
./model/src/thermodynamics.F |
691 |
THERMODYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax,k,saltAdvScheme,dTtracerLev(k), |
|
./model/src/thermodynamics.F |
705 |
THERMODYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./model/src/thermodynamics.F |
714 |
THERMODYNAMICS |
I bi,bj,k, |
|
./model/src/thermodynamics.F |
728 |
THERMODYNAMICS |
& .AND. .NOT.(useThSIce.AND.k.EQ.1) ) THEN |
|
./model/src/thermodynamics.F |
733 |
THERMODYNAMICS |
CALL FREEZE( bi, bj, iMin, iMax, jMin, jMax, k, myThid ) |
|
./model/src/timestep.F |
116 |
TIMESTEP |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) - phxFac*dPhiHydX(i,j) |
|
./model/src/timestep.F |
117 |
TIMESTEP |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) - phyFac*dPhiHydY(i,j) |
|
./model/src/timestep.F |
130 |
TIMESTEP |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) + guDissip(i,j) |
|
./model/src/timestep.F |
131 |
TIMESTEP |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) + gvDissip(i,j) |
|
./model/src/timestep.F |
13 |
TIMESTEP |
SUBROUTINE TIMESTEP( bi, bj, iMin, iMax, jMin, jMax, k, |
|
./model/src/timestep.F |
142 |
TIMESTEP |
gUext(i,j) = gU(i,j,k,bi,bj) |
|
./model/src/timestep.F |
143 |
TIMESTEP |
gVext(i,j) = gV(i,j,k,bi,bj) |
|
./model/src/timestep.F |
150 |
TIMESTEP |
I iMin,iMax,jMin,jMax,bi,bj,k, |
|
./model/src/timestep.F |
153 |
TIMESTEP |
I iMin,iMax,jMin,jMax,bi,bj,k, |
|
./model/src/timestep.F |
160 |
TIMESTEP |
gUext(i,j) = gU(i,j,k,bi,bj)-gUext(i,j) |
|
./model/src/timestep.F |
161 |
TIMESTEP |
gVext(i,j) = gV(i,j,k,bi,bj)-gVext(i,j) |
|
./model/src/timestep.F |
173 |
TIMESTEP |
gUtmp(i,j) = gU(i,j,k,bi,bj) |
|
./model/src/timestep.F |
174 |
TIMESTEP |
gVtmp(i,j) = gV(i,j,k,bi,bj) |
|
./model/src/timestep.F |
184 |
TIMESTEP |
I bi, bj, k, |
|
./model/src/timestep.F |
188 |
TIMESTEP |
I bi, bj, k, |
|
./model/src/timestep.F |
193 |
TIMESTEP |
I bi, bj, k, |
|
./model/src/timestep.F |
197 |
TIMESTEP |
I bi, bj, k, |
|
./model/src/timestep.F |
209 |
TIMESTEP |
gUext(i,j) = gU(i,j,k,bi,bj) |
|
./model/src/timestep.F |
210 |
TIMESTEP |
gVext(i,j) = gV(i,j,k,bi,bj) |
|
./model/src/timestep.F |
217 |
TIMESTEP |
I iMin,iMax,jMin,jMax,bi,bj,k, |
|
./model/src/timestep.F |
220 |
TIMESTEP |
I iMin,iMax,jMin,jMax,bi,bj,k, |
|
./model/src/timestep.F |
227 |
TIMESTEP |
gUext(i,j) = gU(i,j,k,bi,bj)-gUext(i,j) |
|
./model/src/timestep.F |
228 |
TIMESTEP |
gVext(i,j) = gV(i,j,k,bi,bj)-gVext(i,j) |
|
./model/src/timestep.F |
253 |
TIMESTEP |
gUtmp(i,j) = gU(i,j,k,bi,bj) |
|
./model/src/timestep.F |
254 |
TIMESTEP |
gVtmp(i,j) = gV(i,j,k,bi,bj) |
|
./model/src/timestep.F |
270 |
TIMESTEP |
I bi,bj,k, dPhiHydX,dPhiHydY, gUtmp,gVtmp, |
|
./model/src/timestep.F |
275 |
TIMESTEP |
gUtmp(i,j) = gU(i,j,k,bi,bj) |
|
./model/src/timestep.F |
277 |
TIMESTEP |
gVtmp(i,j) = gV(i,j,k,bi,bj) |
|
./model/src/timestep.F |
285 |
TIMESTEP |
gUtmp(i,j) = gU(i,j,k,bi,bj) |
|
./model/src/timestep.F |
286 |
TIMESTEP |
gVtmp(i,j) = gV(i,j,k,bi,bj) |
|
./model/src/timestep.F |
311 |
TIMESTEP |
& *dBHybSigF(k)*recip_drF(k) |
|
./model/src/timestep.F |
312 |
TIMESTEP |
& *recip_hFacW(i,j,k,bi,bj) |
|
./model/src/timestep.F |
316 |
TIMESTEP |
& *dBHybSigF(k)*recip_drF(k) |
|
./model/src/timestep.F |
317 |
TIMESTEP |
& *recip_hFacS(i,j,k,bi,bj) |
|
./model/src/timestep.F |
325 |
TIMESTEP |
IF ( k.EQ.kSurfW(i,j,bi,bj) ) THEN |
|
./model/src/timestep.F |
327 |
TIMESTEP |
& *_hFacW(i,j,k,bi,bj)/hFac_surfW(i,j,bi,bj) |
|
./model/src/timestep.F |
329 |
TIMESTEP |
IF ( k.EQ.kSurfS(i,j,bi,bj) ) THEN |
|
./model/src/timestep.F |
331 |
TIMESTEP |
& *_hFacS(i,j,k,bi,bj)/hFac_surfS(i,j,bi,bj) |
|
./model/src/timestep.F |
355 |
TIMESTEP |
& *recip_deepFacC(k)*recip_rhoFacC(k) |
|
./model/src/timestep.F |
361 |
TIMESTEP |
& ( (phi_nh(i,j,k,bi,bj)-phi_nh(i-1,j,k,bi,bj)) |
|
./model/src/timestep.F |
366 |
TIMESTEP |
& ( (phi_nh(i,j,k,bi,bj)-phi_nh(i,j-1,k,bi,bj)) |
|
./model/src/timestep.F |
376 |
TIMESTEP |
& (phi_nh(i,j,k,bi,bj)-phi_nh(i-1,j,k,bi,bj)) |
|
./model/src/timestep.F |
379 |
TIMESTEP |
& (phi_nh(i,j,k,bi,bj)-phi_nh(i,j-1,k,bi,bj)) |
|
./model/src/timestep.F |
389 |
TIMESTEP |
gU(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) |
|
./model/src/timestep.F |
394 |
TIMESTEP |
& )*_maskW(i,j,k,bi,bj) |
|
./model/src/timestep.F |
401 |
TIMESTEP |
gV(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) |
|
./model/src/timestep.F |
406 |
TIMESTEP |
& )*_maskS(i,j,k,bi,bj) |
|
./model/src/timestep.F |
412 |
TIMESTEP |
CALL DIAGNOSTICS_FILL( gUext,'Um_Ext ',k,1,2,bi,bj,myThid ) |
|
./model/src/timestep.F |
413 |
TIMESTEP |
CALL DIAGNOSTICS_FILL( gVext,'Vm_Ext ',k,1,2,bi,bj,myThid ) |
|
./model/src/timestep.F |
417 |
TIMESTEP |
CALL DIAGNOSTICS_FILL( guCor,'Um_Cori ',k,1,2,bi,bj,myThid ) |
|
./model/src/timestep.F |
418 |
TIMESTEP |
CALL DIAGNOSTICS_FILL( gvCor,'Vm_Cori ',k,1,2,bi,bj,myThid ) |
|
./model/src/timestep.F |
47 |
TIMESTEP |
INTEGER k |
|
./model/src/timestep.F |
84 |
TIMESTEP |
& *recip_deepFacC(k)*recip_rhoFacC(k) |
|
./model/src/timestep_tracer.F |
47 |
TIMESTEP_TRACER |
gTracer(i,j,k,bi,bj)=tracer(i,j,k,bi,bj) |
|
./model/src/timestep_tracer.F |
48 |
TIMESTEP_TRACER |
& +deltaTloc*gTracer(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
113 |
TIMESTEP_WVEL |
DO k=1,Nr |
|
./model/src/timestep_wvel.F |
114 |
TIMESTEP_WVEL |
CALL OBCS_APPLY_W( bi, bj, k, wVel, myThid ) |
|
./model/src/timestep_wvel.F |
121 |
TIMESTEP_WVEL |
DO k=1,Nr |
|
./model/src/timestep_wvel.F |
124 |
TIMESTEP_WVEL |
gW(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
40 |
TIMESTEP_WVEL |
INTEGER i, j, k, km1 |
|
./model/src/timestep_wvel.F |
59 |
TIMESTEP_WVEL |
DO k=1,Nr |
|
./model/src/timestep_wvel.F |
60 |
TIMESTEP_WVEL |
km1 = MAX( k-1, 1 ) |
|
./model/src/timestep_wvel.F |
65 |
TIMESTEP_WVEL |
& * wUnit2rVel(k)*wUnit2rVel(k)*recip_rhoFacF(k) |
|
./model/src/timestep_wvel.F |
66 |
TIMESTEP_WVEL |
IF ( k.GE.2 ) THEN |
|
./model/src/timestep_wvel.F |
69 |
TIMESTEP_WVEL |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
70 |
TIMESTEP_WVEL |
& - tmpFac*rkSign*recip_drC(k) |
|
./model/src/timestep_wvel.F |
71 |
TIMESTEP_WVEL |
& *( phi_nh(i,j,k,bi,bj) - phi_nh(i,j,k-1,bi,bj) ) |
|
./model/src/timestep_wvel.F |
77 |
TIMESTEP_WVEL |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
78 |
TIMESTEP_WVEL |
& - tmpFac*rkSign*recip_drC(k) |
|
./model/src/timestep_wvel.F |
79 |
TIMESTEP_WVEL |
& *( phi_nh(i,j,k,bi,bj) - dPhiNH(i,j,bi,bj) ) |
|
./model/src/timestep_wvel.F |
87 |
TIMESTEP_WVEL |
gWtmp(i,j) = gW(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
88 |
TIMESTEP_WVEL |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./model/src/timestep_wvel.F |
89 |
TIMESTEP_WVEL |
gW(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
93 |
TIMESTEP_WVEL |
tmpFac = nh_Fac + igwFac*wUnit2rVel(k)*wUnit2rVel(k) |
|
./model/src/timestep_wvel.F |
94 |
TIMESTEP_WVEL |
& *dBdrRef(k)*deltaTMom*dTtracerLev(k) |
|
./model/src/timestep_wvel.F |
98 |
TIMESTEP_WVEL |
wVel(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) |
|
./model/src/tracers_iigw_correction.F |
101 |
TRACERS_IIGW_CORRECTION |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/tracers_iigw_correction.F |
47 |
TRACERS_IIGW_CORRECTION |
INTEGER i,j,k |
|
./model/src/tracers_iigw_correction.F |
62 |
TRACERS_IIGW_CORRECTION |
DO k=1,Nr |
|
./model/src/tracers_iigw_correction.F |
65 |
TRACERS_IIGW_CORRECTION |
kp1 = MIN(k+1,Nr) |
|
./model/src/tracers_iigw_correction.F |
70 |
TRACERS_IIGW_CORRECTION |
& - gW(i,j,kp1,bi,bj) )*maskC(i,j,k,bi,bj) |
|
./model/src/tracers_iigw_correction.F |
76 |
TRACERS_IIGW_CORRECTION |
IF ( k.GT.1 ) dTr_k = (tRef(k) - tRef(k-1))*rkSign |
|
./model/src/tracers_iigw_correction.F |
77 |
TRACERS_IIGW_CORRECTION |
dTrp1 = (tRef(kp1) - tRef(k))*rkSign |
|
./model/src/tracers_iigw_correction.F |
82 |
TRACERS_IIGW_CORRECTION |
theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj) |
|
./model/src/tracers_iigw_correction.F |
83 |
TRACERS_IIGW_CORRECTION |
& -dTtracerLev(k)*0.5 _d 0 |
|
./model/src/tracers_iigw_correction.F |
85 |
TRACERS_IIGW_CORRECTION |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/tracers_iigw_correction.F |
92 |
TRACERS_IIGW_CORRECTION |
IF ( k.GT.1 ) dTr_k = (sRef(k) - sRef(k-1))*rkSign |
|
./model/src/tracers_iigw_correction.F |
93 |
TRACERS_IIGW_CORRECTION |
dTrp1 = (sRef(kp1) - sRef(k))*rkSign |
|
./model/src/tracers_iigw_correction.F |
98 |
TRACERS_IIGW_CORRECTION |
salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) |
|
./model/src/tracers_iigw_correction.F |
99 |
TRACERS_IIGW_CORRECTION |
& -dTtracerLev(k)*0.5 _d 0 |
|
./model/src/update_masks_etc.F |
127 |
UPDATE_MASKS_ETC |
& - drF(k)*hFacC(I,J,K,bi,bj) |
|
./model/src/update_masks_etc.F |
340 |
UPDATE_MASKS_ETC |
DO k=Nr,1,-1 |
|
./model/src/update_masks_etc.F |
343 |
UPDATE_MASKS_ETC |
ksurfW(I,J,bi,bj) = k |
|
./model/src/update_masks_etc.F |
347 |
UPDATE_MASKS_ETC |
ksurfS(I,J,bi,bj) = k |
|
./model/src/update_masks_etc.F |
68 |
UPDATE_MASKS_ETC |
hFacMnSz=max( hFacMin, min(hFacMinDr*recip_drF(k),1. _d 0) ) |
|
./model/src/update_r_star.F |
100 |
UPDATE_R_STAR |
& / ( _hFacC(i,j,k,bi,bj) + (1.-maskC(i,j,k,bi,bj)) ) |
|
./model/src/update_r_star.F |
101 |
UPDATE_R_STAR |
recip_hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
102 |
UPDATE_R_STAR |
& / ( _hFacW(i,j,k,bi,bj) + (1.-maskW(i,j,k,bi,bj)) ) |
|
./model/src/update_r_star.F |
103 |
UPDATE_R_STAR |
recip_hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
104 |
UPDATE_R_STAR |
& / ( _hFacS(i,j,k,bi,bj) + (1.-maskS(i,j,k,bi,bj)) ) |
|
./model/src/update_r_star.F |
106 |
UPDATE_R_STAR |
IF (maskC(i,j,k,bi,bj).NE.0.) |
|
./model/src/update_r_star.F |
107 |
UPDATE_R_STAR |
& recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / _hFacC(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
108 |
UPDATE_R_STAR |
IF (maskW(i,j,k,bi,bj).NE.0.) |
|
./model/src/update_r_star.F |
109 |
UPDATE_R_STAR |
& recip_hFacW(i,j,k,bi,bj) = 1. _d 0 / _hFacW(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
110 |
UPDATE_R_STAR |
IF (maskS(i,j,k,bi,bj).NE.0.) |
|
./model/src/update_r_star.F |
111 |
UPDATE_R_STAR |
& recip_hFacS(i,j,k,bi,bj) = 1. _d 0 / _hFacS(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
46 |
UPDATE_R_STAR |
INTEGER i,j,k,bi,bj |
|
./model/src/update_r_star.F |
85 |
UPDATE_R_STAR |
DO k=1,Nr |
|
./model/src/update_r_star.F |
90 |
UPDATE_R_STAR |
hFacC(i,j,k,bi,bj) = h0FacC(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
92 |
UPDATE_R_STAR |
hFacW(i,j,k,bi,bj) = h0FacW(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
94 |
UPDATE_R_STAR |
hFacS(i,j,k,bi,bj) = h0FacS(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
99 |
UPDATE_R_STAR |
recip_hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj) |
|
./model/src/update_sigma.F |
111 |
UPDATE_SIGMA |
DO k=1,Nr |
|
./model/src/update_sigma.F |
114 |
UPDATE_SIGMA |
hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj) |
|
./model/src/update_sigma.F |
115 |
UPDATE_SIGMA |
& *( dAHybSigF(k)*rFullDepth |
|
./model/src/update_sigma.F |
116 |
UPDATE_SIGMA |
& +dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/update_sigma.F |
117 |
UPDATE_SIGMA |
& )*recip_drF(k) |
|
./model/src/update_sigma.F |
118 |
UPDATE_SIGMA |
recip_hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj)*drF(k) |
|
./model/src/update_sigma.F |
119 |
UPDATE_SIGMA |
& /( dAHybSigF(k)*rFullDepth |
|
./model/src/update_sigma.F |
120 |
UPDATE_SIGMA |
& +dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/update_sigma.F |
137 |
UPDATE_SIGMA |
DO k=1,Nr |
|
./model/src/update_sigma.F |
140 |
UPDATE_SIGMA |
hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj) |
|
./model/src/update_sigma.F |
141 |
UPDATE_SIGMA |
& *( dAHybSigF(k)*rFullDepth |
|
./model/src/update_sigma.F |
142 |
UPDATE_SIGMA |
& +dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/update_sigma.F |
143 |
UPDATE_SIGMA |
& )*recip_drF(k) |
|
./model/src/update_sigma.F |
144 |
UPDATE_SIGMA |
recip_hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj)*drF(k) |
|
./model/src/update_sigma.F |
145 |
UPDATE_SIGMA |
& /( dAHybSigF(k)*rFullDepth |
|
./model/src/update_sigma.F |
146 |
UPDATE_SIGMA |
& +dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/update_sigma.F |
163 |
UPDATE_SIGMA |
DO k=1,Nr |
|
./model/src/update_sigma.F |
166 |
UPDATE_SIGMA |
hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj) |
|
./model/src/update_sigma.F |
167 |
UPDATE_SIGMA |
& *( dAHybSigF(k)*rFullDepth |
|
./model/src/update_sigma.F |
168 |
UPDATE_SIGMA |
& +dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/update_sigma.F |
169 |
UPDATE_SIGMA |
& )*recip_drF(k) |
|
./model/src/update_sigma.F |
170 |
UPDATE_SIGMA |
recip_hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj)*drF(k) |
|
./model/src/update_sigma.F |
171 |
UPDATE_SIGMA |
& /( dAHybSigF(k)*rFullDepth |
|
./model/src/update_sigma.F |
172 |
UPDATE_SIGMA |
& +dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/update_sigma.F |
55 |
UPDATE_SIGMA |
INTEGER i, j, k |
|
./model/src/write_grid.F |
126 |
WRITE_GRID |
DO k=1,Nr+1 |
|
./model/src/write_grid.F |
127 |
WRITE_GRID |
tmpVar(k) = phiRef(2*k-1) |
|
./model/src/write_grid.F |
130 |
WRITE_GRID |
DO k=1,Nr |
|
./model/src/write_grid.F |
131 |
WRITE_GRID |
tmpVar(k) = phiRef(2*k) |
|
./model/src/write_grid.F |
48 |
WRITE_GRID |
INTEGER i,j,k,bi,bj |
|
./optim/optim_readdata.F |
151 |
OPTIM_READDATA |
read( funit ) (nWetcGlobal(k), k=1,nr) |
|
./optim/optim_readdata.F |
152 |
OPTIM_READDATA |
read( funit ) (nWetsGlobal(k), k=1,nr) |
|
./optim/optim_readdata.F |
153 |
OPTIM_READDATA |
read( funit ) (nWetwGlobal(k), k=1,nr) |
|
./optim/optim_readdata.F |
155 |
OPTIM_READDATA |
read( funit ) (nWetvGlobal(k), k=1,nr) |
|
./optim/optim_readdata.F |
160 |
OPTIM_READDATA |
read( funit ) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_readdata.F |
163 |
OPTIM_READDATA |
read( funit ) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_readdata.F |
166 |
OPTIM_READDATA |
read( funit ) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_readdata.F |
169 |
OPTIM_READDATA |
read( funit ) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_readdata.F |
193 |
OPTIM_READDATA |
& (nWetcGlobal(k), k=1,nr) |
|
./optim/optim_readdata.F |
195 |
OPTIM_READDATA |
& (nWetsGlobal(k), k=1,nr) |
|
./optim/optim_readdata.F |
197 |
OPTIM_READDATA |
& (nWetwGlobal(k), k=1,nr) |
|
./optim/optim_readdata.F |
199 |
OPTIM_READDATA |
& (nWetvGlobal(k), k=1,nr) |
|
./optim/optim_readdata.F |
262 |
OPTIM_READDATA |
do k = 1,ncvarnrmax(icvar) |
|
./optim/optim_readdata.F |
265 |
OPTIM_READDATA |
cbuffindex = nWetcGlobal(k) |
|
./optim/optim_readdata.F |
267 |
OPTIM_READDATA |
cbuffindex = nWetsGlobal(k) |
|
./optim/optim_readdata.F |
269 |
OPTIM_READDATA |
cbuffindex = nWetwGlobal(k) |
|
./optim/optim_readdata.F |
271 |
OPTIM_READDATA |
cbuffindex = nWetvGlobal(k) |
|
./optim/optim_readdata.F |
280 |
OPTIM_READDATA |
cbuffindex = nWetobcsnGlo(k,iobcs) |
|
./optim/optim_readdata.F |
285 |
OPTIM_READDATA |
cbuffindex = nWetobcssGlo(k,iobcs) |
|
./optim/optim_readdata.F |
290 |
OPTIM_READDATA |
cbuffindex = nWetobcswGlo(k,iobcs) |
|
./optim/optim_readdata.F |
295 |
OPTIM_READDATA |
cbuffindex = nWetobcseGlo(k,iobcs) |
|
./optim/optim_readdata.F |
68 |
OPTIM_READDATA |
integer ii,k |
|
./optim/optim_writedata.F |
117 |
OPTIM_WRITEDATA |
& (nWetcGlobal(k), k=1,nr) |
|
./optim/optim_writedata.F |
119 |
OPTIM_WRITEDATA |
& (nWetsGlobal(k), k=1,nr) |
|
./optim/optim_writedata.F |
121 |
OPTIM_WRITEDATA |
& (nWetwGlobal(k), k=1,nr) |
|
./optim/optim_writedata.F |
123 |
OPTIM_WRITEDATA |
& (nWetvGlobal(k), k=1,nr) |
|
./optim/optim_writedata.F |
148 |
OPTIM_WRITEDATA |
write( funit ) (nWetcGlobal(k), k=1,nr) |
|
./optim/optim_writedata.F |
149 |
OPTIM_WRITEDATA |
write( funit ) (nWetsGlobal(k), k=1,nr) |
|
./optim/optim_writedata.F |
150 |
OPTIM_WRITEDATA |
write( funit ) (nWetwGlobal(k), k=1,nr) |
|
./optim/optim_writedata.F |
152 |
OPTIM_WRITEDATA |
write( funit ) (nWetvGlobal(k), k=1,nr) |
|
./optim/optim_writedata.F |
157 |
OPTIM_WRITEDATA |
write(funit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_writedata.F |
160 |
OPTIM_WRITEDATA |
write(funit) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_writedata.F |
163 |
OPTIM_WRITEDATA |
write(funit) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_writedata.F |
166 |
OPTIM_WRITEDATA |
write(funit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_writedata.F |
188 |
OPTIM_WRITEDATA |
do k = 1,ncvarnrmax(icvar) |
|
./optim/optim_writedata.F |
191 |
OPTIM_WRITEDATA |
cbuffindex = nWetcGlobal(k) |
|
./optim/optim_writedata.F |
193 |
OPTIM_WRITEDATA |
cbuffindex = nWetsGlobal(k) |
|
./optim/optim_writedata.F |
195 |
OPTIM_WRITEDATA |
cbuffindex = nWetwGlobal(k) |
|
./optim/optim_writedata.F |
197 |
OPTIM_WRITEDATA |
cbuffindex = nWetvGlobal(k) |
|
./optim/optim_writedata.F |
207 |
OPTIM_WRITEDATA |
cbuffindex = nWetobcsnGlo(k,iobcs) |
|
./optim/optim_writedata.F |
212 |
OPTIM_WRITEDATA |
cbuffindex = nWetobcssGlo(k,iobcs) |
|
./optim/optim_writedata.F |
217 |
OPTIM_WRITEDATA |
cbuffindex = nWetobcswGlo(k,iobcs) |
|
./optim/optim_writedata.F |
222 |
OPTIM_WRITEDATA |
cbuffindex = nWetobcseGlo(k,iobcs) |
|
./optim/optim_writedata.F |
238 |
OPTIM_WRITEDATA |
write( funit ) k |
|
./optim/optim_writedata.F |
52 |
OPTIM_WRITEDATA |
integer i,j,k |
|
./pkg/admtlm/admtlm_bypassad.F |
113 |
ADMTLM_BYPASSAD |
do k = 1, nr |
|
./pkg/admtlm/admtlm_bypassad.F |
116 |
ADMTLM_BYPASSAD |
tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
117 |
ADMTLM_BYPASSAD |
& + advvel(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
131 |
ADMTLM_BYPASSAD |
do k = 1, nr |
|
./pkg/admtlm/admtlm_bypassad.F |
134 |
ADMTLM_BYPASSAD |
tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
135 |
ADMTLM_BYPASSAD |
& + aduvel(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
149 |
ADMTLM_BYPASSAD |
do k = 1, nr |
|
./pkg/admtlm/admtlm_bypassad.F |
152 |
ADMTLM_BYPASSAD |
tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
153 |
ADMTLM_BYPASSAD |
& + adsalt(i,j,k,bi,bj)*fac |
|
./pkg/admtlm/admtlm_bypassad.F |
167 |
ADMTLM_BYPASSAD |
do k = 1, nr |
|
./pkg/admtlm/admtlm_bypassad.F |
170 |
ADMTLM_BYPASSAD |
tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
171 |
ADMTLM_BYPASSAD |
& + adtheta(i,j,k,bi,bj)*fac |
|
./pkg/admtlm/admtlm_bypassad.F |
33 |
ADMTLM_BYPASSAD |
integer i, j, k |
|
./pkg/admtlm/admtlm_bypassad.F |
76 |
ADMTLM_BYPASSAD |
DO k=1,Nr |
|
./pkg/admtlm/admtlm_bypassad.F |
77 |
ADMTLM_BYPASSAD |
adtheta(i,j,k,bi,bj) = |
|
./pkg/admtlm/admtlm_bypassad.F |
78 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,k) |
|
./pkg/admtlm/admtlm_bypassad.F |
79 |
ADMTLM_BYPASSAD |
adsalt(i,j,k,bi,bj) = |
|
./pkg/admtlm/admtlm_bypassad.F |
80 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,1*Nr+k) |
|
./pkg/admtlm/admtlm_bypassad.F |
81 |
ADMTLM_BYPASSAD |
aduvel(i,j,k,bi,bj) = |
|
./pkg/admtlm/admtlm_bypassad.F |
82 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,2*Nr+k) |
|
./pkg/admtlm/admtlm_bypassad.F |
83 |
ADMTLM_BYPASSAD |
advvel(i,j,k,bi,bj) = |
|
./pkg/admtlm/admtlm_bypassad.F |
84 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,3*Nr+k) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
222 |
ADMTLM_DSVD2MODEL |
read(cunit) (filenWetcGlobal(k), k=1,nr) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
223 |
ADMTLM_DSVD2MODEL |
read(cunit) (filenWetsGlobal(k), k=1,nr) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
224 |
ADMTLM_DSVD2MODEL |
read(cunit) (filenWetwGlobal(k), k=1,nr) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
226 |
ADMTLM_DSVD2MODEL |
read(cunit) (filenWetvGlobal(k), k=1,nr) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
231 |
ADMTLM_DSVD2MODEL |
read(cunit) ((filenWetobcsnGlo(k,iobcs), |
|
./pkg/admtlm/admtlm_dsvd2model.F |
232 |
ADMTLM_DSVD2MODEL |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
235 |
ADMTLM_DSVD2MODEL |
read(cunit) ((filenWetobcssGlo(k,iobcs), |
|
./pkg/admtlm/admtlm_dsvd2model.F |
236 |
ADMTLM_DSVD2MODEL |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
239 |
ADMTLM_DSVD2MODEL |
read(cunit) ((filenWetobcswGlo(k,iobcs), |
|
./pkg/admtlm/admtlm_dsvd2model.F |
240 |
ADMTLM_DSVD2MODEL |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
243 |
ADMTLM_DSVD2MODEL |
read(cunit) ((filenWetobcseGlo(k,iobcs), |
|
./pkg/admtlm/admtlm_dsvd2model.F |
244 |
ADMTLM_DSVD2MODEL |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
266 |
ADMTLM_DSVD2MODEL |
do k = 1, nr |
|
./pkg/admtlm/admtlm_dsvd2model.F |
267 |
ADMTLM_DSVD2MODEL |
if ( filenWetcGlobal(k) .NE. nWetcGlobal(k) .OR. |
|
./pkg/admtlm/admtlm_dsvd2model.F |
268 |
ADMTLM_DSVD2MODEL |
& filenWetsGlobal(k) .NE. nWetsGlobal(k) .OR. |
|
./pkg/admtlm/admtlm_dsvd2model.F |
269 |
ADMTLM_DSVD2MODEL |
& filenWetwGlobal(k) .NE. nWetwGlobal(k) .OR. |
|
./pkg/admtlm/admtlm_dsvd2model.F |
270 |
ADMTLM_DSVD2MODEL |
& filenWetvGlobal(k) .NE. nWetvGlobal(k) ) then |
|
./pkg/admtlm/admtlm_dsvd2model.F |
271 |
ADMTLM_DSVD2MODEL |
print *, 'WARNING: wrong nWet?Global for k = ', k |
|
./pkg/admtlm/admtlm_dsvd2model.F |
280 |
ADMTLM_DSVD2MODEL |
do k = 1, nr |
|
./pkg/admtlm/admtlm_dsvd2model.F |
281 |
ADMTLM_DSVD2MODEL |
if (filenWetobcsnGlo(k,iobcs) .NE. |
|
./pkg/admtlm/admtlm_dsvd2model.F |
282 |
ADMTLM_DSVD2MODEL |
& nWetobcsnGlo(k,iobcs)) then |
|
./pkg/admtlm/admtlm_dsvd2model.F |
283 |
ADMTLM_DSVD2MODEL |
print *, 'WARNING: OBCSN wrong nWet?Global for k = ', k |
|
./pkg/admtlm/admtlm_dsvd2model.F |
292 |
ADMTLM_DSVD2MODEL |
do k = 1, nr |
|
./pkg/admtlm/admtlm_dsvd2model.F |
293 |
ADMTLM_DSVD2MODEL |
if (filenWetobcssGlo(k,iobcs) .NE. |
|
./pkg/admtlm/admtlm_dsvd2model.F |
294 |
ADMTLM_DSVD2MODEL |
& nWetobcssGlo(k,iobcs)) then |
|
./pkg/admtlm/admtlm_dsvd2model.F |
295 |
ADMTLM_DSVD2MODEL |
print *, 'WARNING: OBCSS wrong nWet?Global for k = ', k |
|
./pkg/admtlm/admtlm_dsvd2model.F |
304 |
ADMTLM_DSVD2MODEL |
do k = 1, nr |
|
./pkg/admtlm/admtlm_dsvd2model.F |
305 |
ADMTLM_DSVD2MODEL |
if (filenWetobcswGlo(k,iobcs) .NE. |
|
./pkg/admtlm/admtlm_dsvd2model.F |
306 |
ADMTLM_DSVD2MODEL |
& nWetobcswGlo(k,iobcs)) then |
|
./pkg/admtlm/admtlm_dsvd2model.F |
307 |
ADMTLM_DSVD2MODEL |
print *, 'WARNING: OBCSW wrong nWet?Global for k = ', k |
|
./pkg/admtlm/admtlm_dsvd2model.F |
316 |
ADMTLM_DSVD2MODEL |
do k = 1, nr |
|
./pkg/admtlm/admtlm_dsvd2model.F |
317 |
ADMTLM_DSVD2MODEL |
if (filenWetobcseGlo(k,iobcs) .NE. |
|
./pkg/admtlm/admtlm_dsvd2model.F |
318 |
ADMTLM_DSVD2MODEL |
& nWetobcseGlo(k,iobcs)) then |
|
./pkg/admtlm/admtlm_dsvd2model.F |
319 |
ADMTLM_DSVD2MODEL |
print *, 'WARNING: OBCSE wrong nWet?Global for k = ', k |
|
./pkg/admtlm/admtlm_dsvd2model.F |
71 |
ADMTLM_DSVD2MODEL |
integer i, j, k |
|
./pkg/admtlm/admtlm_init_fixed.F |
28 |
ADMTLM_INIT_FIXED |
integer i, j, k |
|
./pkg/admtlm/admtlm_init_fixed.F |
42 |
ADMTLM_INIT_FIXED |
DO k=1,Nr |
|
./pkg/admtlm/admtlm_init_fixed.F |
43 |
ADMTLM_INIT_FIXED |
wtheta(k,bi,bj) = 1. / (1. _d 0)**2 |
|
./pkg/admtlm/admtlm_init_fixed.F |
44 |
ADMTLM_INIT_FIXED |
wsalt (k,bi,bj) = 1. / (0.1 _d 0)**2 |
|
./pkg/admtlm/admtlm_init_fixed.F |
45 |
ADMTLM_INIT_FIXED |
wuvvel(k,bi,bj) = 1. / (0.01 _d 0)**2 |
|
./pkg/admtlm/admtlm_map.F |
28 |
ADMTLM_MAP |
integer i, j, k |
|
./pkg/admtlm/admtlm_map.F |
35 |
ADMTLM_MAP |
DO k=1,4*Nr |
|
./pkg/admtlm/admtlm_map.F |
36 |
ADMTLM_MAP |
adobjf_state_final(i,j,bi,bj,k) = |
|
./pkg/admtlm/admtlm_map.F |
37 |
ADMTLM_MAP |
& g_objf_state_final(i,j,bi,bj,k) |
|
./pkg/admtlm/admtlm_metric.F |
31 |
ADMTLM_METRIC |
integer i, j, k |
|
./pkg/admtlm/admtlm_metric.F |
55 |
ADMTLM_METRIC |
DO k=1,Nr |
|
./pkg/admtlm/admtlm_metric.F |
57 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,k+0*Nr)**2/stdDevtheta**2 |
|
./pkg/admtlm/admtlm_metric.F |
58 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,k+1*Nr)**2/stdDevsalt**2 |
|
./pkg/admtlm/admtlm_metric.F |
59 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,k+2*Nr)**2/stdDevuvel**2 |
|
./pkg/admtlm/admtlm_metric.F |
60 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,k+3*Nr)**2/stdDevvvel**2 |
|
./pkg/admtlm/admtlm_model2dsvd.F |
214 |
ADMTLM_MODEL2DSVD |
write(cunit) (nWetcGlobal(k), k=1,nr) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
215 |
ADMTLM_MODEL2DSVD |
write(cunit) (nWetsGlobal(k), k=1,nr) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
216 |
ADMTLM_MODEL2DSVD |
write(cunit) (nWetwGlobal(k), k=1,nr) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
218 |
ADMTLM_MODEL2DSVD |
write(cunit) (nWetvGlobal(k), k=1,nr) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
222 |
ADMTLM_MODEL2DSVD |
write(cunit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
225 |
ADMTLM_MODEL2DSVD |
write(cunit) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
228 |
ADMTLM_MODEL2DSVD |
write(cunit) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
231 |
ADMTLM_MODEL2DSVD |
write(cunit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
68 |
ADMTLM_MODEL2DSVD |
integer i, j, k |
|
./pkg/aim_compon_interf/atm_store_taux.F |
51 |
ATM_STORE_TAUX |
INTEGER i,j,k |
|
./pkg/aim_compon_interf/atm_store_taux.F |
59 |
ATM_STORE_TAUX |
k = 1 |
|
./pkg/aim_compon_interf/atm_store_taux.F |
67 |
ATM_STORE_TAUX |
IF ( hFacW(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_compon_interf/atm_store_taux.F |
73 |
ATM_STORE_TAUX |
& )* 0.5 _d 0 * uVel(i,j,k,bi,bj) |
|
./pkg/aim_compon_interf/atm_store_taux.F |
86 |
ATM_STORE_TAUX |
IF ( hFacW(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_compon_interf/atm_store_taux.F |
89 |
ATM_STORE_TAUX |
& * 0.5 _d 0 * uVel(i,j,k,bi,bj) |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
51 |
ATM_STORE_TAUY |
INTEGER i,j,k |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
59 |
ATM_STORE_TAUY |
k = 1 |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
67 |
ATM_STORE_TAUY |
IF ( hFacS(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
73 |
ATM_STORE_TAUY |
& )* 0.5 _d 0 * vVel(i,j,k,bi,bj) |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
86 |
ATM_STORE_TAUY |
IF ( hFacS(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_compon_interf/atm_store_tauy.F |
89 |
ATM_STORE_TAUY |
& * 0.5 _d 0 * vVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
103 |
AIM_AIM2DYN |
aim_dTdt(i,j,k,bi,bj) = ( TT_CNV(I2,Katm,myThid) |
|
./pkg/aim_v23/aim_aim2dyn.F |
110 |
AIM_AIM2DYN |
aim_dSdt(i,j,k,bi,bj) = QT_CNV(I2,Katm,myThid) |
|
./pkg/aim_v23/aim_aim2dyn.F |
119 |
AIM_AIM2DYN |
& k, Nr, 1,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_aim2dyn.F |
121 |
AIM_AIM2DYN |
& k, Nr, 1,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_aim2dyn.F |
131 |
AIM_AIM2DYN |
aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
132 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
134 |
AIM_AIM2DYN |
aim_dSdt(i,j,k,bi,bj) = aim_dSdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
135 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
142 |
AIM_AIM2DYN |
IF ( k.EQ.ksurfC(i,j,bi,bj) ) THEN |
|
./pkg/aim_v23/aim_aim2dyn.F |
143 |
AIM_AIM2DYN |
aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
145 |
AIM_AIM2DYN |
aim_dSdt(i,j,k,bi,bj) = aim_dSdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
148 |
AIM_AIM2DYN |
aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
149 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
150 |
AIM_AIM2DYN |
aim_dSdt(i,j,k,bi,bj) = aim_dSdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
151 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
162 |
AIM_AIM2DYN |
aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
163 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
164 |
AIM_AIM2DYN |
aim_dSdt(i,j,k,bi,bj) = aim_dSdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
165 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
65 |
AIM_AIM2DYN |
INTEGER i,j,k |
|
./pkg/aim_v23/aim_aim2dyn.F |
93 |
AIM_AIM2DYN |
DO k=1,Nr |
|
./pkg/aim_v23/aim_aim2dyn.F |
94 |
AIM_AIM2DYN |
Katm = _KD2KA( k ) |
|
./pkg/aim_v23/aim_aim2dyn.F |
95 |
AIM_AIM2DYN |
conv_T2theta = (atm_po/rC(k))**atm_kappa |
|
./pkg/aim_v23/aim_aim2land.F |
61 |
AIM_AIM2LAND |
INTEGER i,j,k,I2 |
|
./pkg/aim_v23/aim_aim2land.F |
82 |
AIM_AIM2LAND |
k = 0 |
|
./pkg/aim_v23/aim_aim2land.F |
83 |
AIM_AIM2LAND |
IF (aim_splitSIOsFx) k = 1 |
|
./pkg/aim_v23/aim_aim2land.F |
90 |
AIM_AIM2LAND |
& SSR(I2,k,myThid) |
|
./pkg/aim_v23/aim_aim2land.F |
91 |
AIM_AIM2LAND |
& - SLR(I2,k,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
353 |
AIM_DIAGNOSTICS |
DO k=1,Nr |
|
./pkg/aim_v23/aim_diagnostics.F |
354 |
AIM_DIAGNOSTICS |
Katm = _KD2KA( k ) |
|
./pkg/aim_v23/aim_diagnostics.F |
358 |
AIM_DIAGNOSTICS |
aimRHtave(i,j,k,bi,bj) = aimRHtave(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_do_physics.F |
73 |
AIM_DO_PHYSICS |
INTEGER i,j,k,I2 |
|
./pkg/aim_v23/aim_do_physics.F |
92 |
AIM_DO_PHYSICS |
k = ksurfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_do_physics.F |
93 |
AIM_DO_PHYSICS |
IF (k.LE.Nr) |
|
./pkg/aim_v23/aim_do_physics.F |
94 |
AIM_DO_PHYSICS |
& salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_do_physics.F |
95 |
AIM_DO_PHYSICS |
& + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(k) |
|
./pkg/aim_v23/aim_do_physics.F |
96 |
AIM_DO_PHYSICS |
& *hFacC(i,j,Nr,bi,bj)*recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
107 |
AIM_DYN2AIM |
DO k = 1,Nr |
|
./pkg/aim_v23/aim_dyn2aim.F |
108 |
AIM_DYN2AIM |
Katm = _KD2KA( k ) |
|
./pkg/aim_v23/aim_dyn2aim.F |
112 |
AIM_DYN2AIM |
dpFac(I2,Katm) = h0FacC(i,j,k,bi,bj)*rStarFacC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
118 |
AIM_DYN2AIM |
DO k = 1,Nr |
|
./pkg/aim_v23/aim_dyn2aim.F |
119 |
AIM_DYN2AIM |
Katm = _KD2KA( k ) |
|
./pkg/aim_v23/aim_dyn2aim.F |
123 |
AIM_DYN2AIM |
IF ( k.EQ.ksurfC(i,j,bi,bj) ) THEN |
|
./pkg/aim_v23/aim_dyn2aim.F |
126 |
AIM_DYN2AIM |
dpFac(I2,Katm) = hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
137 |
AIM_DYN2AIM |
DO k = 1,Nr |
|
./pkg/aim_v23/aim_dyn2aim.F |
138 |
AIM_DYN2AIM |
Katm = _KD2KA( k ) |
|
./pkg/aim_v23/aim_dyn2aim.F |
142 |
AIM_DYN2AIM |
dpFac(I2,Katm) = hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
165 |
AIM_DYN2AIM |
IF (maskC(i,j,k,bi,bj).EQ.1. _d 0) THEN |
|
./pkg/aim_v23/aim_dyn2aim.F |
217 |
AIM_DYN2AIM |
& i,j,k,bi,bj,myThid,I2,xC(i,j,bi,bj),yC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_initialise.F |
49 |
AIM_INITIALISE |
INTEGER i, j, k |
|
./pkg/aim_v23/aim_initialise.F |
59 |
AIM_INITIALISE |
DO k=1,Nr |
|
./pkg/aim_v23/aim_initialise.F |
60 |
AIM_INITIALISE |
Katm = _KD2KA( k ) |
|
./pkg/aim_v23/aim_initialise.F |
61 |
AIM_INITIALISE |
HSG(Katm) = rF(k)/pGround |
|
./pkg/aim_v23/aim_initialise.F |
63 |
AIM_INITIALISE |
k=Nr+1 |
|
./pkg/aim_v23/aim_initialise.F |
64 |
AIM_INITIALISE |
Katm = _KD2KA( k ) |
|
./pkg/aim_v23/aim_initialise.F |
65 |
AIM_INITIALISE |
HSG(Katm) = rF(k)/pGround |
|
./pkg/aim_v23/aim_land2aim.F |
101 |
AIM_LAND2AIM |
DO k=1,land_nLev |
|
./pkg/aim_v23/aim_land2aim.F |
104 |
AIM_LAND2AIM |
land_groundT(i,j,k,bi,bj) = aimTld(i,j)-celsius2K |
|
./pkg/aim_v23/aim_land2aim.F |
147 |
AIM_LAND2AIM |
DO k=1,kFillW |
|
./pkg/aim_v23/aim_land2aim.F |
150 |
AIM_LAND2AIM |
land_groundW(i,j,k,bi,bj) = aimSWA(i,j) |
|
./pkg/aim_v23/aim_land2aim.F |
161 |
AIM_LAND2AIM |
DO k=1,land_nLev |
|
./pkg/aim_v23/aim_land2aim.F |
163 |
AIM_LAND2AIM |
& *land_groundW(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_land2aim.F |
166 |
AIM_LAND2AIM |
land_enthalp(i,j,k,bi,bj) = |
|
./pkg/aim_v23/aim_land2aim.F |
167 |
AIM_LAND2AIM |
& grd_HeatCp*land_groundT(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_land2aim.F |
84 |
AIM_LAND2AIM |
INTEGER i,j,k |
|
./pkg/aim_v23/aim_surf_bc.F |
416 |
AIM_SURF_BC |
DO k=1,3 |
|
./pkg/aim_v23/aim_surf_bc.F |
418 |
AIM_SURF_BC |
dTsurf(J,k,myThid) = 0. |
|
./pkg/aim_v23/aim_surf_bc.F |
86 |
AIM_SURF_BC |
INTEGER i,j,I2,k, nm0 |
|
./pkg/aim_v23/aim_write_local.F |
52 |
AIM_WRITE_LOCAL |
INTEGER i, j, k, Katm |
|
./pkg/aim_v23/aim_write_local.F |
73 |
AIM_WRITE_LOCAL |
DO k=1,Nr |
|
./pkg/aim_v23/aim_write_local.F |
74 |
AIM_WRITE_LOCAL |
Katm = _KD2KA( k ) |
|
./pkg/aim_v23/aim_write_local.F |
77 |
AIM_WRITE_LOCAL |
tmpFld(i,j,k) = field(i,j,Katm) |
|
./pkg/aim_v23/aim_write_local.F |
83 |
AIM_WRITE_LOCAL |
DO k=1,nNr |
|
./pkg/aim_v23/aim_write_local.F |
86 |
AIM_WRITE_LOCAL |
tmpFld(i,j,k) = field(i,j,k) |
|
./pkg/aim_v23/aim_write_phys.F |
112 |
AIM_WRITE_PHYS |
DO k=1,Nr |
|
./pkg/aim_v23/aim_write_phys.F |
113 |
AIM_WRITE_PHYS |
Katm = _KD2KA( k ) |
|
./pkg/aim_v23/aim_write_phys.F |
116 |
AIM_WRITE_PHYS |
tmpFld(i,j,k) = field(i,j,Katm,ith) |
|
./pkg/aim_v23/aim_write_phys.F |
122 |
AIM_WRITE_PHYS |
DO k=1,nNr |
|
./pkg/aim_v23/aim_write_phys.F |
125 |
AIM_WRITE_PHYS |
tmpFld(i,j,k) = field(i,j,k,ith) |
|
./pkg/aim_v23/aim_write_phys.F |
55 |
AIM_WRITE_PHYS |
INTEGER i, j, k, Katm, nLoc |
|
./pkg/aim_v23/phy_convmf.F |
176 |
CONVMF |
DO k=Ktmp-2,2,-1 |
|
./pkg/aim_v23/phy_inphys.F |
109 |
INPHYS |
& k,SIG(k),SIGH(k),SIGL(k),WVI(K,1),WVI(K,2) |
|
./pkg/autodiff/active_file_control.F |
150 |
ACTIVE_READ_RL |
do k = 1,mynr |
|
./pkg/autodiff/active_file_control.F |
153 |
ACTIVE_READ_RL |
active_data_t(i,j,k,bi,bj)= 0. _d 0 |
|
./pkg/autodiff/active_file_control.F |
197 |
ACTIVE_READ_RL |
do k = 1,mynr |
|
./pkg/autodiff/active_file_control.F |
200 |
ACTIVE_READ_RL |
active_data_t(i,j,k,bi,bj) = |
|
./pkg/autodiff/active_file_control.F |
201 |
ACTIVE_READ_RL |
& active_data_t(i,j,k,bi,bj) + |
|
./pkg/autodiff/active_file_control.F |
202 |
ACTIVE_READ_RL |
& active_var(i,j,k,bi,bj) |
|
./pkg/autodiff/active_file_control.F |
224 |
ACTIVE_READ_RL |
do k=1,mynr |
|
./pkg/autodiff/active_file_control.F |
227 |
ACTIVE_READ_RL |
active_var(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control.F |
326 |
ACTIVE_WRITE_RL |
integer i,j,k |
|
./pkg/autodiff/active_file_control.F |
383 |
ACTIVE_WRITE_RL |
do k = 1, mynr |
|
./pkg/autodiff/active_file_control.F |
386 |
ACTIVE_WRITE_RL |
active_var(i,j,k,bi,bj) = |
|
./pkg/autodiff/active_file_control.F |
387 |
ACTIVE_WRITE_RL |
& active_var(i,j,k,bi,bj) + |
|
./pkg/autodiff/active_file_control.F |
388 |
ACTIVE_WRITE_RL |
& active_data_t(i,j,k,bi,bj) |
|
./pkg/autodiff/active_file_control.F |
389 |
ACTIVE_WRITE_RL |
active_data_t(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control.F |
522 |
ACTIVE_READ_TILE_RL |
integer i,j,k |
|
./pkg/autodiff/active_file_control.F |
565 |
ACTIVE_READ_TILE_RL |
do k=1,mynr |
|
./pkg/autodiff/active_file_control.F |
569 |
ACTIVE_READ_TILE_RL |
& (irec-1)*mynr+k, mythid ) |
|
./pkg/autodiff/active_file_control.F |
579 |
ACTIVE_READ_TILE_RL |
& ( k-1 )*(snx+2*olx)*(sny+2*oly) + |
|
./pkg/autodiff/active_file_control.F |
606 |
ACTIVE_READ_TILE_RL |
do k = 1,mynr |
|
./pkg/autodiff/active_file_control.F |
610 |
ACTIVE_READ_TILE_RL |
& (irec-1)*mynr+k, myOptimIter, |
|
./pkg/autodiff/active_file_control.F |
630 |
ACTIVE_READ_TILE_RL |
do k=1,mynr |
|
./pkg/autodiff/active_file_control.F |
635 |
ACTIVE_READ_TILE_RL |
& (irec-1)*mynr+k, mythid ) |
|
./pkg/autodiff/active_file_control.F |
645 |
ACTIVE_READ_TILE_RL |
& ( k-1 )*(snx+2*olx)*(sny+2*oly) + |
|
./pkg/autodiff/active_file_control.F |
659 |
ACTIVE_READ_TILE_RL |
& (irec-1)*mynr+k, myOptimIter, |
|
./pkg/autodiff/active_file_control.F |
668 |
ACTIVE_READ_TILE_RL |
do k = 1,nr |
|
./pkg/autodiff/active_file_control.F |
674 |
ACTIVE_READ_TILE_RL |
& ( k-1 )*(snx+2*olx)*(sny+2*oly) + |
|
./pkg/autodiff/active_file_control.F |
700 |
ACTIVE_READ_TILE_RL |
do k=1,mynr |
|
./pkg/autodiff/active_file_control.F |
704 |
ACTIVE_READ_TILE_RL |
& (irec-1)*mynr+k, mythid ) |
|
./pkg/autodiff/active_file_control.F |
714 |
ACTIVE_READ_TILE_RL |
& ( k-1 )*(snx+2*olx)*(sny+2*oly) + |
|
./pkg/autodiff/active_file_control.F |
813 |
ACTIVE_WRITE_TILE_RL |
integer i,j,k |
|
./pkg/autodiff/active_file_control.F |
838 |
ACTIVE_WRITE_TILE_RL |
do k=1,mynr |
|
./pkg/autodiff/active_file_control.F |
846 |
ACTIVE_WRITE_TILE_RL |
& ( k-1 )*(snx+2*olx)*(sny+2*oly) + |
|
./pkg/autodiff/active_file_control.F |
856 |
ACTIVE_WRITE_TILE_RL |
& (irec-1)*mynr+k, myOptimIter, |
|
./pkg/autodiff/active_file_control.F |
875 |
ACTIVE_WRITE_TILE_RL |
do k=1,mynr |
|
./pkg/autodiff/active_file_control.F |
880 |
ACTIVE_WRITE_TILE_RL |
& (irec-1)*mynr+k, mythid ) |
|
./pkg/autodiff/active_file_control.F |
890 |
ACTIVE_WRITE_TILE_RL |
& ( k-1 )*(snx+2*olx)*(sny+2*oly) + |
|
./pkg/autodiff/active_file_control.F |
902 |
ACTIVE_WRITE_TILE_RL |
& (irec-1)*mynr+k, myOptimIter, |
|
./pkg/autodiff/active_file_control.F |
920 |
ACTIVE_WRITE_TILE_RL |
do k=1,mynr |
|
./pkg/autodiff/active_file_control.F |
928 |
ACTIVE_WRITE_TILE_RL |
& ( k-1 )*(snx+2*olx)*(sny+2*oly) + |
|
./pkg/autodiff/active_file_control.F |
938 |
ACTIVE_WRITE_TILE_RL |
& (irec-1)*mynr+k, myOptimIter, |
|
./pkg/autodiff/active_file_control.F |
98 |
ACTIVE_READ_RL |
integer i,j,k |
|
./pkg/autodiff/active_file_control_slice.F |
136 |
ACTIVE_READ_XZ_RL |
do k = 1,mynr |
|
./pkg/autodiff/active_file_control_slice.F |
138 |
ACTIVE_READ_XZ_RL |
active_data_t(i,k,bi,bj)= 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
181 |
ACTIVE_READ_XZ_RL |
do k = 1,mynr |
|
./pkg/autodiff/active_file_control_slice.F |
183 |
ACTIVE_READ_XZ_RL |
active_data_t(i,k,bi,bj) = |
|
./pkg/autodiff/active_file_control_slice.F |
184 |
ACTIVE_READ_XZ_RL |
& active_data_t(i,k,bi,bj) + |
|
./pkg/autodiff/active_file_control_slice.F |
185 |
ACTIVE_READ_XZ_RL |
& active_var(i,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
206 |
ACTIVE_READ_XZ_RL |
do k=1,mynr |
|
./pkg/autodiff/active_file_control_slice.F |
208 |
ACTIVE_READ_XZ_RL |
active_var(i,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
296 |
ACTIVE_WRITE_XZ_RL |
integer i,j,k |
|
./pkg/autodiff/active_file_control_slice.F |
352 |
ACTIVE_WRITE_XZ_RL |
do k = 1,nr |
|
./pkg/autodiff/active_file_control_slice.F |
354 |
ACTIVE_WRITE_XZ_RL |
active_var(i,k,bi,bj) = |
|
./pkg/autodiff/active_file_control_slice.F |
355 |
ACTIVE_WRITE_XZ_RL |
& active_var(i,k,bi,bj) + |
|
./pkg/autodiff/active_file_control_slice.F |
356 |
ACTIVE_WRITE_XZ_RL |
& active_data_t(i,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
357 |
ACTIVE_WRITE_XZ_RL |
active_data_t(i,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
466 |
ACTIVE_READ_YZ_RL |
integer i,j,k |
|
./pkg/autodiff/active_file_control_slice.F |
520 |
ACTIVE_READ_YZ_RL |
do k = 1, mynr |
|
./pkg/autodiff/active_file_control_slice.F |
522 |
ACTIVE_READ_YZ_RL |
active_data_t(j,k,bi,bj)= 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
565 |
ACTIVE_READ_YZ_RL |
do k = 1,mynr |
|
./pkg/autodiff/active_file_control_slice.F |
567 |
ACTIVE_READ_YZ_RL |
active_data_t(j,k,bi,bj) = |
|
./pkg/autodiff/active_file_control_slice.F |
568 |
ACTIVE_READ_YZ_RL |
& active_data_t(j,k,bi,bj) + |
|
./pkg/autodiff/active_file_control_slice.F |
569 |
ACTIVE_READ_YZ_RL |
& active_var(j,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
590 |
ACTIVE_READ_YZ_RL |
do k=1,mynr |
|
./pkg/autodiff/active_file_control_slice.F |
592 |
ACTIVE_READ_YZ_RL |
active_var(j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
680 |
ACTIVE_WRITE_YZ_RL |
integer i,j,k |
|
./pkg/autodiff/active_file_control_slice.F |
736 |
ACTIVE_WRITE_YZ_RL |
do k = 1, mynr |
|
./pkg/autodiff/active_file_control_slice.F |
738 |
ACTIVE_WRITE_YZ_RL |
active_var(j,k,bi,bj) = |
|
./pkg/autodiff/active_file_control_slice.F |
739 |
ACTIVE_WRITE_YZ_RL |
& active_var(j,k,bi,bj) + |
|
./pkg/autodiff/active_file_control_slice.F |
740 |
ACTIVE_WRITE_YZ_RL |
& active_data_t(j,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
741 |
ACTIVE_WRITE_YZ_RL |
active_data_t(j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
82 |
ACTIVE_READ_XZ_RL |
integer i,j,k |
|
./pkg/autodiff/active_file_loc_control.F |
136 |
ACTIVE_READ_RL_LOC |
do k = 1, mynr |
|
./pkg/autodiff/active_file_loc_control.F |
139 |
ACTIVE_READ_RL_LOC |
active_data_t(i,j,k,bi,bj)= 0. _d 0 |
|
./pkg/autodiff/active_file_loc_control.F |
183 |
ACTIVE_READ_RL_LOC |
do k = 1, mynr |
|
./pkg/autodiff/active_file_loc_control.F |
186 |
ACTIVE_READ_RL_LOC |
active_data_t(i,j,k,bi,bj) = |
|
./pkg/autodiff/active_file_loc_control.F |
187 |
ACTIVE_READ_RL_LOC |
& active_data_t(i,j,k,bi,bj) + |
|
./pkg/autodiff/active_file_loc_control.F |
188 |
ACTIVE_READ_RL_LOC |
& active_var(i,j,k,bi,bj) |
|
./pkg/autodiff/active_file_loc_control.F |
210 |
ACTIVE_READ_RL_LOC |
do k=1,mynr |
|
./pkg/autodiff/active_file_loc_control.F |
213 |
ACTIVE_READ_RL_LOC |
active_var(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_loc_control.F |
308 |
ACTIVE_WRITE_RL_LOC |
integer i,j,k |
|
./pkg/autodiff/active_file_loc_control.F |
365 |
ACTIVE_WRITE_RL_LOC |
do k = 1,mynr |
|
./pkg/autodiff/active_file_loc_control.F |
368 |
ACTIVE_WRITE_RL_LOC |
active_var(i,j,k,bi,bj) = |
|
./pkg/autodiff/active_file_loc_control.F |
369 |
ACTIVE_WRITE_RL_LOC |
& active_var(i,j,k,bi,bj) + |
|
./pkg/autodiff/active_file_loc_control.F |
370 |
ACTIVE_WRITE_RL_LOC |
& active_data_t(i,j,k,bi,bj) |
|
./pkg/autodiff/active_file_loc_control.F |
371 |
ACTIVE_WRITE_RL_LOC |
active_data_t(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_loc_control.F |
84 |
ACTIVE_READ_RL_LOC |
integer i,j,k |
|
./pkg/autodiff/active_file_loc_control_slice.F |
132 |
ACTIVE_READ_XZ_RL_LOC |
do k = 1,mynr |
|
./pkg/autodiff/active_file_loc_control_slice.F |
134 |
ACTIVE_READ_XZ_RL_LOC |
active_data_t(i,k,bi,bj)= 0. _d 0 |
|
./pkg/autodiff/active_file_loc_control_slice.F |
177 |
ACTIVE_READ_XZ_RL_LOC |
do k = 1,mynr |
|
./pkg/autodiff/active_file_loc_control_slice.F |
179 |
ACTIVE_READ_XZ_RL_LOC |
active_data_t(i,k,bi,bj) = |
|
./pkg/autodiff/active_file_loc_control_slice.F |
180 |
ACTIVE_READ_XZ_RL_LOC |
& active_data_t(i,k,bi,bj) + |
|
./pkg/autodiff/active_file_loc_control_slice.F |
181 |
ACTIVE_READ_XZ_RL_LOC |
& active_var(i,k,bi,bj) |
|
./pkg/autodiff/active_file_loc_control_slice.F |
202 |
ACTIVE_READ_XZ_RL_LOC |
do k=1,mynr |
|
./pkg/autodiff/active_file_loc_control_slice.F |
204 |
ACTIVE_READ_XZ_RL_LOC |
active_var(i,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_loc_control_slice.F |
288 |
ACTIVE_WRITE_XZ_RL_LOC |
integer i,j,k |
|
./pkg/autodiff/active_file_loc_control_slice.F |
344 |
ACTIVE_WRITE_XZ_RL_LOC |
do k = 1,mynr |
|
./pkg/autodiff/active_file_loc_control_slice.F |
346 |
ACTIVE_WRITE_XZ_RL_LOC |
active_var(i,k,bi,bj) = |
|
./pkg/autodiff/active_file_loc_control_slice.F |
347 |
ACTIVE_WRITE_XZ_RL_LOC |
& active_var(i,k,bi,bj) + |
|
./pkg/autodiff/active_file_loc_control_slice.F |
348 |
ACTIVE_WRITE_XZ_RL_LOC |
& active_data_t(i,k,bi,bj) |
|
./pkg/autodiff/active_file_loc_control_slice.F |
349 |
ACTIVE_WRITE_XZ_RL_LOC |
active_data_t(i,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_loc_control_slice.F |
454 |
ACTIVE_READ_YZ_RL_LOC |
integer i,j,k |
|
./pkg/autodiff/active_file_loc_control_slice.F |
508 |
ACTIVE_READ_YZ_RL_LOC |
do k = 1,mynr |
|
./pkg/autodiff/active_file_loc_control_slice.F |
510 |
ACTIVE_READ_YZ_RL_LOC |
active_data_t(j,k,bi,bj)= 0. _d 0 |
|
./pkg/autodiff/active_file_loc_control_slice.F |
553 |
ACTIVE_READ_YZ_RL_LOC |
do k = 1,mynr |
|
./pkg/autodiff/active_file_loc_control_slice.F |
555 |
ACTIVE_READ_YZ_RL_LOC |
active_data_t(j,k,bi,bj) = |
|
./pkg/autodiff/active_file_loc_control_slice.F |
556 |
ACTIVE_READ_YZ_RL_LOC |
& active_data_t(j,k,bi,bj) + |
|
./pkg/autodiff/active_file_loc_control_slice.F |
557 |
ACTIVE_READ_YZ_RL_LOC |
& active_var(j,k,bi,bj) |
|
./pkg/autodiff/active_file_loc_control_slice.F |
578 |
ACTIVE_READ_YZ_RL_LOC |
do k = 1,mynr |
|
./pkg/autodiff/active_file_loc_control_slice.F |
580 |
ACTIVE_READ_YZ_RL_LOC |
active_var(j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_loc_control_slice.F |
664 |
ACTIVE_WRITE_YZ_RL_LOC |
integer i,j,k |
|
./pkg/autodiff/active_file_loc_control_slice.F |
720 |
ACTIVE_WRITE_YZ_RL_LOC |
do k = 1,mynr |
|
./pkg/autodiff/active_file_loc_control_slice.F |
722 |
ACTIVE_WRITE_YZ_RL_LOC |
active_var(j,k,bi,bj) = |
|
./pkg/autodiff/active_file_loc_control_slice.F |
723 |
ACTIVE_WRITE_YZ_RL_LOC |
& active_var(j,k,bi,bj) + |
|
./pkg/autodiff/active_file_loc_control_slice.F |
724 |
ACTIVE_WRITE_YZ_RL_LOC |
& active_data_t(j,k,bi,bj) |
|
./pkg/autodiff/active_file_loc_control_slice.F |
725 |
ACTIVE_WRITE_YZ_RL_LOC |
active_data_t(j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_loc_control_slice.F |
78 |
ACTIVE_READ_XZ_RL_LOC |
integer i,j,k |
|
./pkg/autodiff/addamp_adj.F |
30 |
ADDAMP_ADJ |
integer bi,bj,i,j,k |
|
./pkg/autodiff/addamp_adj.F |
34 |
ADDAMP_ADJ |
DO k=1,NrIn |
|
./pkg/autodiff/addamp_adj.F |
37 |
ADDAMP_ADJ |
if ( (fieldRef(i,j,k,bi,bj).GE.maxRef).OR. |
|
./pkg/autodiff/addamp_adj.F |
38 |
ADDAMP_ADJ |
& (fieldRef(i,j,k,bi,bj).LE.minRef) ) then |
|
./pkg/autodiff/addamp_adj.F |
43 |
ADDAMP_ADJ |
adfieldDamp(i,j,k,bi,bj)=facDamp* |
|
./pkg/autodiff/addamp_adj.F |
44 |
ADDAMP_ADJ |
& adfieldDamp(i,j,k,bi,bj) |
|
./pkg/autodiff/adzero_adj.F |
101 |
ADZERO_ADJ |
DO k=1,NrIn |
|
./pkg/autodiff/adzero_adj.F |
104 |
ADZERO_ADJ |
adFieldFwd(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/adzero_adj.F |
29 |
ADZERO_ADJ_1D |
integer bi,bj,i,j,k |
|
./pkg/autodiff/adzero_adj.F |
31 |
ADZERO_ADJ_1D |
DO k=1,NrIn |
|
./pkg/autodiff/adzero_adj.F |
32 |
ADZERO_ADJ_1D |
adFieldFwd(k) = 0. _d 0 |
|
./pkg/autodiff/adzero_adj.F |
61 |
ADZERO_ADJ_LOC |
integer bi,bj,i,j,k |
|
./pkg/autodiff/adzero_adj.F |
63 |
ADZERO_ADJ_LOC |
DO k=1,NrIn |
|
./pkg/autodiff/adzero_adj.F |
66 |
ADZERO_ADJ_LOC |
adFieldFwd(i,j,k) = 0. _d 0 |
|
./pkg/autodiff/adzero_adj.F |
97 |
ADZERO_ADJ |
integer bi,bj,i,j,k |
|
./pkg/autodiff/damp_adj.F |
30 |
DAMP_ADJ |
integer bi,bj,i,j,k |
|
./pkg/autodiff/ini_autodiff.F |
55 |
INI_AUTODIFF |
EfluxY(i,j,k,bi,bj)=0. |
|
./pkg/autodiff/ini_autodiff.F |
56 |
INI_AUTODIFF |
EfluxP(i,j,k,bi,bj)=0. |
|
./pkg/cal/cal_set.F |
106 |
CAL_SET |
integer i,j,k |
|
./pkg/cal/cal_set.F |
237 |
CAL_SET |
k=2773 |
|
./pkg/cal/cal_set.F |
239 |
CAL_SET |
j = mod(k,2) |
|
./pkg/cal/cal_set.F |
240 |
CAL_SET |
k = (k-j)/2 |
|
./pkg/cd_code/cd_code_scheme.F |
117 |
CD_CODE_SCHEME |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
11 |
CD_CODE_SCHEME |
I bi,bj,k, dPhiHydX,dPhiHydY, guFld,gvFld, |
|
./pkg/cd_code/cd_code_scheme.F |
126 |
CD_CODE_SCHEME |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
130 |
CD_CODE_SCHEME |
& *uVel(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
132 |
CD_CODE_SCHEME |
& *( ab15*uVel(i,j,k,bi,bj) + ab05*uNM1(i,j,k,bi,bj) ) |
|
./pkg/cd_code/cd_code_scheme.F |
139 |
CD_CODE_SCHEME |
vVelD(i,j,k,bi,bj) = vVelD(i,j,k,bi,bj) + deltaTmom*vf(i,j) |
|
./pkg/cd_code/cd_code_scheme.F |
145 |
CD_CODE_SCHEME |
vVelD(i,j,k,bi,bj) = ( rCD*vVelD(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
148 |
CD_CODE_SCHEME |
& (vVel(i,j,k,bi,bj)+vVel(i-1,j+1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
149 |
CD_CODE_SCHEME |
& +(vVel(i-1,j,k,bi,bj)+vVel(i,j+1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
152 |
CD_CODE_SCHEME |
& (vNM1(i,j,k,bi,bj)+vNM1(i-1,j+1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
153 |
CD_CODE_SCHEME |
& +(vNM1(i-1,j,k,bi,bj)+vNM1(i,j+1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
155 |
CD_CODE_SCHEME |
& ) )*_maskW(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
164 |
CD_CODE_SCHEME |
& *vVelD(i,j,k,bi,bj)*cfFacMom |
|
./pkg/cd_code/cd_code_scheme.F |
176 |
CD_CODE_SCHEME |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
185 |
CD_CODE_SCHEME |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
189 |
CD_CODE_SCHEME |
& *vVel(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
191 |
CD_CODE_SCHEME |
& *( ab15*vVel(i,j,k,bi,bj) + ab05*vNM1(i,j,k,bi,bj) ) |
|
./pkg/cd_code/cd_code_scheme.F |
198 |
CD_CODE_SCHEME |
uVelD(i,j,k,bi,bj) = uVelD(i,j,k,bi,bj) + deltaTmom*vf(i,j) |
|
./pkg/cd_code/cd_code_scheme.F |
204 |
CD_CODE_SCHEME |
uVelD(i,j,k,bi,bj) = ( rCD*uVelD(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
207 |
CD_CODE_SCHEME |
& (uVel(i,j,k,bi,bj)+uVel(i+1,j-1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
208 |
CD_CODE_SCHEME |
& +(uVel(i,j-1,k,bi,bj)+uVel(i+1,j,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
211 |
CD_CODE_SCHEME |
& (uNM1(i,j,k,bi,bj)+uNM1(i+1,j-1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
212 |
CD_CODE_SCHEME |
& +(uNM1(i,j-1,k,bi,bj)+uNM1(i+1,j,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
214 |
CD_CODE_SCHEME |
& ) )*_maskS(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
223 |
CD_CODE_SCHEME |
& *uVelD(i,j,k,bi,bj)*cfFacMom |
|
./pkg/cd_code/cd_code_scheme.F |
230 |
CD_CODE_SCHEME |
uNM1(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
231 |
CD_CODE_SCHEME |
vNM1(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
41 |
CD_CODE_SCHEME |
INTEGER bi,bj,k |
|
./pkg/cfc/cfc11_surfforcing.F |
52 |
CFC11_SURFFORCING |
IF (maskC(i,j,k,bi,bj).NE.0.) THEN |
|
./pkg/cfc/cfc11_surfforcing.F |
56 |
CFC11_SURFFORCING |
& + sca_11_2 * theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc11_surfforcing.F |
57 |
CFC11_SURFFORCING |
& + sca_11_3 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc11_surfforcing.F |
58 |
CFC11_SURFFORCING |
& + sca_11_4 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc11_surfforcing.F |
59 |
CFC11_SURFFORCING |
& *theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc11_surfforcing.F |
61 |
CFC11_SURFFORCING |
ttemp=( theta(i,j,k,bi,bj) + 273.16 _d 0)* 0.01 _d 0 |
|
./pkg/cfc/cfc11_surfforcing.F |
69 |
CFC11_SURFFORCING |
& + Salt(i,j,k,bi,bj)* ttemp2 ) |
|
./pkg/cfc/cfc12_surfforcing.F |
52 |
CFC12_SURFFORCING |
IF (maskC(i,j,k,bi,bj).NE.0.) THEN |
|
./pkg/cfc/cfc12_surfforcing.F |
56 |
CFC12_SURFFORCING |
& + sca_12_2 * theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc12_surfforcing.F |
57 |
CFC12_SURFFORCING |
& + sca_12_3 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc12_surfforcing.F |
58 |
CFC12_SURFFORCING |
& + sca_12_4 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc12_surfforcing.F |
59 |
CFC12_SURFFORCING |
& *theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc12_surfforcing.F |
61 |
CFC12_SURFFORCING |
ttemp=( theta(i,j,k,bi,bj) + 273.16 _d 0)* 0.01 _d 0 |
|
./pkg/cfc/cfc12_surfforcing.F |
69 |
CFC12_SURFFORCING |
& + Salt(i,j,k,bi,bj)* ttemp2 ) |
|
./pkg/cheapaml/gad_diff_2d_x.F |
35 |
GAD_DIFF_2D_X |
INTEGER bi,bj,k |
|
./pkg/cheapaml/gad_diff_2d_y.F |
35 |
GAD_DIFF_2D_Y |
INTEGER bi,bj,k,jG |
|
./pkg/chronos/chronos.F |
737 |
ASTRO |
integer i,nsecf,k,km,kp |
|
./pkg/compon_communic/comprecv_r4tiles.F |
20 |
COMPRECV_R4TILES |
integer i,j,ij,nx,ny,k,bibj,bi,bj |
|
./pkg/compon_communic/comprecv_r4tiles.F |
76 |
COMPRECV_R4TILES |
k=1 |
|
./pkg/compon_communic/comprecv_r4tiles.F |
80 |
COMPRECV_R4TILES |
arr(i,j,k,bi,bj)=r4buf(ij) |
|
./pkg/compon_communic/comprecv_r8tiles.F |
20 |
COMPRECV_R8TILES |
integer i,j,ij,nx,ny,k,bibj,bi,bj |
|
./pkg/compon_communic/comprecv_r8tiles.F |
76 |
COMPRECV_R8TILES |
k=1 |
|
./pkg/compon_communic/comprecv_r8tiles.F |
80 |
COMPRECV_R8TILES |
arr(i,j,k,bi,bj)=r8buf(ij) |
|
./pkg/compon_communic/compsend_r4tiles.F |
19 |
COMPSEND_R4TILES |
integer i,j,ij,bi,bj,k,bibj |
|
./pkg/compon_communic/compsend_r4tiles.F |
44 |
COMPSEND_R4TILES |
k=1 |
|
./pkg/compon_communic/compsend_r4tiles.F |
48 |
COMPSEND_R4TILES |
r4buf(ij)=arr(i,j,k,bi,bj) |
|
./pkg/compon_communic/compsend_r8tiles.F |
19 |
COMPSEND_R8TILES |
integer i,j,ij,bi,bj,k,bibj |
|
./pkg/compon_communic/compsend_r8tiles.F |
44 |
COMPSEND_R8TILES |
k=1 |
|
./pkg/compon_communic/compsend_r8tiles.F |
48 |
COMPSEND_R8TILES |
r8buf(ij)=arr(i,j,k,bi,bj) |
|
./pkg/compon_communic/mitcplr_sortranks.F |
11 |
MITCPLR_SORTRANKS |
integer j,k,itmp |
|
./pkg/compon_communic/mitcplr_sortranks.F |
15 |
MITCPLR_SORTRANKS |
do k=j+1,nranks |
|
./pkg/compon_communic/mitcplr_sortranks.F |
16 |
MITCPLR_SORTRANKS |
if ( ranks(k) .lt. ranks(j) ) then |
|
./pkg/compon_communic/mitcplr_sortranks.F |
17 |
MITCPLR_SORTRANKS |
itmp=ranks(k) |
|
./pkg/compon_communic/mitcplr_sortranks.F |
18 |
MITCPLR_SORTRANKS |
ranks(k)=ranks(j) |
|
./pkg/cost/cost_accumulate_mean.F |
33 |
COST_ACCUMULATE_MEAN |
integer i, j, k |
|
./pkg/cost/cost_accumulate_mean.F |
46 |
COST_ACCUMULATE_MEAN |
do k = 1, Nr |
|
./pkg/cost/cost_accumulate_mean.F |
49 |
COST_ACCUMULATE_MEAN |
cMeanTheta(i,j,k,bi,bj) = cMeanTheta(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
50 |
COST_ACCUMULATE_MEAN |
& + theta(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
52 |
COST_ACCUMULATE_MEAN |
cMeanUVel(i,j,k,bi,bj) = cMeanUVel(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
53 |
COST_ACCUMULATE_MEAN |
& + uVel(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
55 |
COST_ACCUMULATE_MEAN |
cMeanVVel(i,j,k,bi,bj) = cMeanVVel(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
56 |
COST_ACCUMULATE_MEAN |
& + vVel(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
59 |
COST_ACCUMULATE_MEAN |
cMeanThetaUVel(i,j,k,bi,bj) = |
|
./pkg/cost/cost_accumulate_mean.F |
60 |
COST_ACCUMULATE_MEAN |
& cMeanThetaUVel(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
61 |
COST_ACCUMULATE_MEAN |
& + (theta(i,j,k,bi,bj)+theta(i-1,j,k,bi,bj)) |
|
./pkg/cost/cost_accumulate_mean.F |
62 |
COST_ACCUMULATE_MEAN |
& /2.*uvel(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
63 |
COST_ACCUMULATE_MEAN |
& *maskW(i,j,k,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
65 |
COST_ACCUMULATE_MEAN |
cMeanThetaVVel(i,j,k,bi,bj) = |
|
./pkg/cost/cost_accumulate_mean.F |
66 |
COST_ACCUMULATE_MEAN |
& cMeanThetaVVel(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
67 |
COST_ACCUMULATE_MEAN |
& + (theta(i,j,k,bi,bj)+theta(i,j-1,k,bi,bj)) |
|
./pkg/cost/cost_accumulate_mean.F |
68 |
COST_ACCUMULATE_MEAN |
& /2.*vvel(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
69 |
COST_ACCUMULATE_MEAN |
& *maskS(i,j,k,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
101 |
COST_ATLANTIC_HEAT |
vVel_bar(k) = vVel_bar(k) |
|
./pkg/cost/cost_atlantic_heat.F |
102 |
COST_ATLANTIC_HEAT |
& + cMeanVVel(i,j,k,bi,bj)*dxG(i,j,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
103 |
COST_ATLANTIC_HEAT |
& *maskS(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
105 |
COST_ATLANTIC_HEAT |
thetaVvel_bar(k) = thetaVvel_bar(k) |
|
./pkg/cost/cost_atlantic_heat.F |
106 |
COST_ATLANTIC_HEAT |
& + cMeanThetaVVel(i,j,k,bi,bj)*dxG(i,j,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
107 |
COST_ATLANTIC_HEAT |
& *maskS(i,j,k,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
109 |
COST_ATLANTIC_HEAT |
countTV(k) = countTV(k) + |
|
./pkg/cost/cost_atlantic_heat.F |
110 |
COST_ATLANTIC_HEAT |
& maskS(i,j,k,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
111 |
COST_ATLANTIC_HEAT |
countV(k) = countV(k) + |
|
./pkg/cost/cost_atlantic_heat.F |
112 |
COST_ATLANTIC_HEAT |
& maskS(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
118 |
COST_ATLANTIC_HEAT |
do k = 1, Nr |
|
./pkg/cost/cost_atlantic_heat.F |
120 |
COST_ATLANTIC_HEAT |
if ( k .LE. kmaxdepth .AND. countV(k) .NE. 0) then |
|
./pkg/cost/cost_atlantic_heat.F |
122 |
COST_ATLANTIC_HEAT |
& + vVel_bar(k)*drF(k)/countV(k) |
|
./pkg/cost/cost_atlantic_heat.F |
125 |
COST_ATLANTIC_HEAT |
if ( k .LE. kmaxdepth .AND. countTV(k) .NE. 0) then |
|
./pkg/cost/cost_atlantic_heat.F |
127 |
COST_ATLANTIC_HEAT |
& + thetaVVel_bar(k)*drF(k)/countTV(k) |
|
./pkg/cost/cost_atlantic_heat.F |
144 |
COST_ATLANTIC_HEAT |
do k = 1, Nr |
|
./pkg/cost/cost_atlantic_heat.F |
145 |
COST_ATLANTIC_HEAT |
uVel_bar(k) = 0.0 |
|
./pkg/cost/cost_atlantic_heat.F |
146 |
COST_ATLANTIC_HEAT |
theta_bar(k) = 0.0 |
|
./pkg/cost/cost_atlantic_heat.F |
147 |
COST_ATLANTIC_HEAT |
countT(k) = 0.0 |
|
./pkg/cost/cost_atlantic_heat.F |
148 |
COST_ATLANTIC_HEAT |
countU(k) = 0.0 |
|
./pkg/cost/cost_atlantic_heat.F |
153 |
COST_ATLANTIC_HEAT |
uVel_bar(k) = uVel_bar(k) |
|
./pkg/cost/cost_atlantic_heat.F |
154 |
COST_ATLANTIC_HEAT |
& + cMeanUVel(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
155 |
COST_ATLANTIC_HEAT |
& *maskW(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
156 |
COST_ATLANTIC_HEAT |
& *maskC(i,j,k,bi,bj)*maskC(i-1,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
157 |
COST_ATLANTIC_HEAT |
theta_bar(k) = theta_bar(k) + |
|
./pkg/cost/cost_atlantic_heat.F |
158 |
COST_ATLANTIC_HEAT |
& 0.5*( cMeanTheta(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
159 |
COST_ATLANTIC_HEAT |
& +cMeanTheta(i-,j,k,bi,bj) ) |
|
./pkg/cost/cost_atlantic_heat.F |
160 |
COST_ATLANTIC_HEAT |
& *maskW(i,j,k,bi,bj)*dyG(i,j,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
161 |
COST_ATLANTIC_HEAT |
& *maskC(i,j,k,bi,bj)*maskC(i-1,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
162 |
COST_ATLANTIC_HEAT |
countT(k) = countT(k) + maskW(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
163 |
COST_ATLANTIC_HEAT |
& *maskC(i,j,k,bi,bj)*maskC(i-1,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
164 |
COST_ATLANTIC_HEAT |
countU(k) = countU(k) + maskW(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
165 |
COST_ATLANTIC_HEAT |
& *maskC(i,j,k,bi,bj)*maskC(i-1,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
171 |
COST_ATLANTIC_HEAT |
do k = 1, Nr |
|
./pkg/cost/cost_atlantic_heat.F |
172 |
COST_ATLANTIC_HEAT |
if ( k .LE. kmaxdepth .AND. |
|
./pkg/cost/cost_atlantic_heat.F |
173 |
COST_ATLANTIC_HEAT |
& countT(k) .NE. 0 .AND. countU(k) .NE. 0) then |
|
./pkg/cost/cost_atlantic_heat.F |
175 |
COST_ATLANTIC_HEAT |
& + uVel_bar(k) * theta_bar(k) * drF(k) |
|
./pkg/cost/cost_atlantic_heat.F |
176 |
COST_ATLANTIC_HEAT |
& / ( countT(k) * countU(k) ) |
|
./pkg/cost/cost_atlantic_heat.F |
32 |
COST_ATLANTIC_HEAT |
integer i, j, k |
|
./pkg/cost/cost_atlantic_heat.F |
77 |
COST_ATLANTIC_HEAT |
do k = 1, kmaxdepth |
|
./pkg/cost/cost_atlantic_heat.F |
79 |
COST_ATLANTIC_HEAT |
& + (vVel(i,j,k,bi,bj) * maskS(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
80 |
COST_ATLANTIC_HEAT |
& * drF(k))**2 |
|
./pkg/cost/cost_atlantic_heat.F |
92 |
COST_ATLANTIC_HEAT |
do k = 1, Nr |
|
./pkg/cost/cost_atlantic_heat.F |
93 |
COST_ATLANTIC_HEAT |
vVel_bar(k) = 0.0 |
|
./pkg/cost/cost_atlantic_heat.F |
94 |
COST_ATLANTIC_HEAT |
thetaVvel_bar(k) = 0.0 |
|
./pkg/cost/cost_atlantic_heat.F |
95 |
COST_ATLANTIC_HEAT |
countV(k) = 0.0 |
|
./pkg/cost/cost_atlantic_heat.F |
96 |
COST_ATLANTIC_HEAT |
countTV(k) = 0.0 |
|
./pkg/cost/cost_dependent_init.F |
39 |
COST_DEPENDENT_INIT |
integer i,j,k |
|
./pkg/cost/cost_dependent_init.F |
71 |
COST_DEPENDENT_INIT |
do k=1,4*Nr |
|
./pkg/cost/cost_dependent_init.F |
72 |
COST_DEPENDENT_INIT |
objf_state_final(i,j,bi,bj,k) = 0. _d 0 |
|
./pkg/cost/cost_final.F |
46 |
COST_FINAL |
integer i,j,k |
|
./pkg/cost/cost_init_varia.F |
41 |
COST_INIT_VARIA |
integer i,j,k |
|
./pkg/cost/cost_init_varia.F |
73 |
COST_INIT_VARIA |
do k=1,nr |
|
./pkg/cost/cost_init_varia.F |
76 |
COST_INIT_VARIA |
cMeanTheta(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
77 |
COST_INIT_VARIA |
cMeanUVel(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
78 |
COST_INIT_VARIA |
cMeanVVel(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
79 |
COST_INIT_VARIA |
cMeanThetaUVel(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
80 |
COST_INIT_VARIA |
cMeanThetaVVel(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
89 |
COST_INIT_VARIA |
do k=1,4*Nr |
|
./pkg/cost/cost_init_varia.F |
90 |
COST_INIT_VARIA |
objf_state_final(i,j,bi,bj,k) = 0. _d 0 |
|
./pkg/cost/cost_state_final.F |
28 |
COST_STATE_FINAL |
integer i, j, k |
|
./pkg/cost/cost_state_final.F |
35 |
COST_STATE_FINAL |
DO k=1,nr |
|
./pkg/cost/cost_state_final.F |
36 |
COST_STATE_FINAL |
objf_state_final(i,j,bi,bj,0*Nr+k) = theta(i,j,k,bi,bj) |
|
./pkg/cost/cost_state_final.F |
37 |
COST_STATE_FINAL |
objf_state_final(i,j,bi,bj,1*Nr+k) = salt(i,j,k,bi,bj) |
|
./pkg/cost/cost_state_final.F |
38 |
COST_STATE_FINAL |
objf_state_final(i,j,bi,bj,2*Nr+k) = uvel(i,j,k,bi,bj) |
|
./pkg/cost/cost_state_final.F |
39 |
COST_STATE_FINAL |
objf_state_final(i,j,bi,bj,3*Nr+k) = vvel(i,j,k,bi,bj) |
|
./pkg/cost/cost_test.F |
36 |
COST_TEST |
integer i, j, k |
|
./pkg/cost/cost_test.F |
60 |
COST_TEST |
k=1 |
|
./pkg/cost/cost_tracer.F |
44 |
COST_TRACER |
integer i, j, k |
|
./pkg/cost/cost_tracer.F |
51 |
COST_TRACER |
k=1 |
|
./pkg/cost/cost_tracer.F |
55 |
COST_TRACER |
locfc = locfc + maskC(i,j,k,bi,bj)* |
|
./pkg/cost/cost_tracer.F |
56 |
COST_TRACER |
& lambdaTr1ClimRelax*ptracer(i,j,k,bi,bj,1)* |
|
./pkg/cost/cost_tracer.F |
57 |
COST_TRACER |
& rA(i,j,bi,bj)*drF(k)*dTtracerLev(k) |
|
./pkg/cost/cost_vector.F |
32 |
COST_VECTOR |
integer i, j, k |
|
./pkg/cost/cost_vector.F |
68 |
COST_VECTOR |
do k = 1, kmaxdepth |
|
./pkg/cost/cost_vector.F |
70 |
COST_VECTOR |
& + vVel(i,j,k,bi,bj) * maskS(i,j,k,bi,bj) |
|
./pkg/cost/cost_vector.F |
71 |
COST_VECTOR |
& * drF(k) |
|
./pkg/ctrl/adctrl_bound.F |
111 |
ADCTRL_BOUND_2D |
integer myThid,bi,bj,i,j,k |
|
./pkg/ctrl/adctrl_bound.F |
31 |
ADCTRL_BOUND_3D |
integer bi,bj,i,j,k |
|
./pkg/ctrl/adctrl_bound.F |
60 |
ADCTRL_BOUND_3D |
do k = 1,nr |
|
./pkg/ctrl/adctrl_bound.F |
63 |
ADCTRL_BOUND_3D |
IF (maskFld3d(i,j,k,bi,bj).NE.0.) then |
|
./pkg/ctrl/adctrl_bound.F |
64 |
ADCTRL_BOUND_3D |
xCur=fieldCur(i,j,k,bi,bj) |
|
./pkg/ctrl/adctrl_bound.F |
65 |
ADCTRL_BOUND_3D |
adxCur=adjFieldCur(i,j,k,bi,bj) |
|
./pkg/ctrl/adctrl_bound.F |
68 |
ADCTRL_BOUND_3D |
adjFieldCur(i,j,k,bi,bj)=abs(adxCur)* |
|
./pkg/ctrl/adctrl_bound.F |
73 |
ADCTRL_BOUND_3D |
adjFieldCur(i,j,k,bi,bj)=abs(adxCur)* |
|
./pkg/ctrl/ctrl_bound.F |
23 |
CTRL_BOUND_3D |
integer myThid,bi,bj,i,j,k |
|
./pkg/ctrl/ctrl_bound.F |
38 |
CTRL_BOUND_3D |
do k = 1,nr |
|
./pkg/ctrl/ctrl_bound.F |
41 |
CTRL_BOUND_3D |
IF (maskFld3d(i,j,k,bi,bj).NE.0.) then |
|
./pkg/ctrl/ctrl_bound.F |
42 |
CTRL_BOUND_3D |
IF (fieldCur(i,j,k,bi,bj).gt.boundsVec(4)) then |
|
./pkg/ctrl/ctrl_bound.F |
43 |
CTRL_BOUND_3D |
fieldCur(i,j,k,bi,bj)=boundsVec(4) |
|
./pkg/ctrl/ctrl_bound.F |
45 |
CTRL_BOUND_3D |
IF (fieldCur(i,j,k,bi,bj).lt.boundsVec(1)) then |
|
./pkg/ctrl/ctrl_bound.F |
46 |
CTRL_BOUND_3D |
fieldCur(i,j,k,bi,bj)=boundsVec(1) |
|
./pkg/ctrl/ctrl_bound.F |
77 |
CTRL_BOUND_2D |
integer myThid,bi,bj,i,j,k |
|
./pkg/ctrl/ctrl_depth_ini.F |
40 |
CTRL_DEPTH_INI |
integer i,j,k |
|
./pkg/ctrl/ctrl_get_gen.F |
204 |
CTRL_GET_GEN |
k = 1 |
|
./pkg/ctrl/ctrl_get_gen.F |
211 |
CTRL_GET_GEN |
& genmask(i,j,k,bi,bj)*( genfld (i,j,bi,bj) - |
|
./pkg/ctrl/ctrl_get_gen.F |
64 |
CTRL_GET_GEN |
integer i,j,k |
|
./pkg/ctrl/ctrl_getobcse.F |
147 |
CTRL_GETOBCSE |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcse.F |
154 |
CTRL_GETOBCSE |
utop = tmpfldyz(j,k,bi,bj)* |
|
./pkg/ctrl/ctrl_getobcse.F |
155 |
CTRL_GETOBCSE |
& maskW(i+ip1,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcse.F |
157 |
CTRL_GETOBCSE |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcse.F |
158 |
CTRL_GETOBCSE |
tmpfldyz(j,k,bi,bj) = tmpfldyz(j,k,bi,bj)+ ubaro |
|
./pkg/ctrl/ctrl_getobcse.F |
182 |
CTRL_GETOBCSE |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcse.F |
189 |
CTRL_GETOBCSE |
utop = tmpfldyz(j,k,bi,bj)* |
|
./pkg/ctrl/ctrl_getobcse.F |
190 |
CTRL_GETOBCSE |
& maskS(i,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcse.F |
192 |
CTRL_GETOBCSE |
if (maskS(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcse.F |
193 |
CTRL_GETOBCSE |
tmpfldyz(j,k,bi,bj) = tmpfldyz(j,k,bi,bj)+ ubaro |
|
./pkg/ctrl/ctrl_getobcse.F |
209 |
CTRL_GETOBCSE |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcse.F |
211 |
CTRL_GETOBCSE |
xx_obcse1(j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
224 |
CTRL_GETOBCSE |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcse.F |
225 |
CTRL_GETOBCSE |
tmpfldyz(j,k,bi,bj) = xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
236 |
CTRL_GETOBCSE |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcse.F |
237 |
CTRL_GETOBCSE |
xx_obcse0(j,k,bi,bj,iobcs) = tmpfldyz2(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
265 |
CTRL_GETOBCSE |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcse.F |
272 |
CTRL_GETOBCSE |
utop = tmpfldyz(j,k,bi,bj)* |
|
./pkg/ctrl/ctrl_getobcse.F |
273 |
CTRL_GETOBCSE |
& maskW(i+ip1,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcse.F |
275 |
CTRL_GETOBCSE |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcse.F |
276 |
CTRL_GETOBCSE |
tmpfldyz(j,k,bi,bj) = tmpfldyz(j,k,bi,bj)+ ubaro |
|
./pkg/ctrl/ctrl_getobcse.F |
300 |
CTRL_GETOBCSE |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcse.F |
307 |
CTRL_GETOBCSE |
utop = tmpfldyz(j,k,bi,bj)* |
|
./pkg/ctrl/ctrl_getobcse.F |
308 |
CTRL_GETOBCSE |
& maskS(i,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcse.F |
310 |
CTRL_GETOBCSE |
if (maskS(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcse.F |
311 |
CTRL_GETOBCSE |
tmpfldyz(j,k,bi,bj) = tmpfldyz(j,k,bi,bj)+ ubaro |
|
./pkg/ctrl/ctrl_getobcse.F |
327 |
CTRL_GETOBCSE |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcse.F |
329 |
CTRL_GETOBCSE |
xx_obcse1 (j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
341 |
CTRL_GETOBCSE |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcse.F |
345 |
CTRL_GETOBCSE |
OBEt(j,k,bi,bj) = OBEt (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
346 |
CTRL_GETOBCSE |
& + obcsefac *xx_obcse0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
347 |
CTRL_GETOBCSE |
& + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
348 |
CTRL_GETOBCSE |
OBEt(j,k,bi,bj) = OBEt(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
349 |
CTRL_GETOBCSE |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
351 |
CTRL_GETOBCSE |
OBEs(j,k,bi,bj) = OBEs (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
352 |
CTRL_GETOBCSE |
& + obcsefac *xx_obcse0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
353 |
CTRL_GETOBCSE |
& + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
354 |
CTRL_GETOBCSE |
OBEs(j,k,bi,bj) = OBEs(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
355 |
CTRL_GETOBCSE |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
357 |
CTRL_GETOBCSE |
OBEu(j,k,bi,bj) = OBEu (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
358 |
CTRL_GETOBCSE |
& + obcsefac *xx_obcse0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
359 |
CTRL_GETOBCSE |
& + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
360 |
CTRL_GETOBCSE |
OBEu(j,k,bi,bj) = OBEu(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
361 |
CTRL_GETOBCSE |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
363 |
CTRL_GETOBCSE |
OBEv(j,k,bi,bj) = OBEv (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
364 |
CTRL_GETOBCSE |
& + obcsefac *xx_obcse0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
365 |
CTRL_GETOBCSE |
& + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
366 |
CTRL_GETOBCSE |
OBEv(j,k,bi,bj) = OBEv(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
367 |
CTRL_GETOBCSE |
& *maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
54 |
CTRL_GETOBCSE |
integer i,j,k |
|
./pkg/ctrl/ctrl_getobcsn.F |
159 |
CTRL_GETOBCSN |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsn.F |
166 |
CTRL_GETOBCSN |
vtop = tmpfldxz(i,k,bi,bj)* |
|
./pkg/ctrl/ctrl_getobcsn.F |
167 |
CTRL_GETOBCSN |
& maskS(i,j+jp1,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcsn.F |
169 |
CTRL_GETOBCSN |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
170 |
CTRL_GETOBCSN |
tmpfldxz(i,k,bi,bj) = tmpfldxz(i,k,bi,bj)+ vbaro |
|
./pkg/ctrl/ctrl_getobcsn.F |
197 |
CTRL_GETOBCSN |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsn.F |
204 |
CTRL_GETOBCSN |
vtop = tmpfldxz(i,k,bi,bj)* |
|
./pkg/ctrl/ctrl_getobcsn.F |
205 |
CTRL_GETOBCSN |
& maskW(i,j,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcsn.F |
207 |
CTRL_GETOBCSN |
if (maskW(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
208 |
CTRL_GETOBCSN |
tmpfldxz(i,k,bi,bj) = tmpfldxz(i,k,bi,bj)+ vbaro |
|
./pkg/ctrl/ctrl_getobcsn.F |
225 |
CTRL_GETOBCSN |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcsn.F |
227 |
CTRL_GETOBCSN |
xx_obcsn1(i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
239 |
CTRL_GETOBCSN |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcsn.F |
241 |
CTRL_GETOBCSN |
tmpfldxz(i,k,bi,bj) = xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
251 |
CTRL_GETOBCSN |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcsn.F |
253 |
CTRL_GETOBCSN |
xx_obcsn0(i,k,bi,bj,iobcs) = tmpfldxz2(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
290 |
CTRL_GETOBCSN |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsn.F |
297 |
CTRL_GETOBCSN |
vtop = tmpfldxz(i,k,bi,bj)* |
|
./pkg/ctrl/ctrl_getobcsn.F |
298 |
CTRL_GETOBCSN |
& maskS(i,j+jp1,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcsn.F |
300 |
CTRL_GETOBCSN |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
301 |
CTRL_GETOBCSN |
tmpfldxz(i,k,bi,bj) = tmpfldxz(i,k,bi,bj)+ vbaro |
|
./pkg/ctrl/ctrl_getobcsn.F |
327 |
CTRL_GETOBCSN |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsn.F |
334 |
CTRL_GETOBCSN |
vtop = tmpfldxz(i,k,bi,bj)* |
|
./pkg/ctrl/ctrl_getobcsn.F |
335 |
CTRL_GETOBCSN |
& maskW(i,j,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcsn.F |
337 |
CTRL_GETOBCSN |
if (maskW(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
338 |
CTRL_GETOBCSN |
tmpfldxz(i,k,bi,bj) = tmpfldxz(i,k,bi,bj)+ vbaro |
|
./pkg/ctrl/ctrl_getobcsn.F |
354 |
CTRL_GETOBCSN |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcsn.F |
356 |
CTRL_GETOBCSN |
xx_obcsn1 (i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
369 |
CTRL_GETOBCSN |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcsn.F |
373 |
CTRL_GETOBCSN |
OBNt(i,k,bi,bj) = OBNt (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
374 |
CTRL_GETOBCSN |
& + obcsnfac *xx_obcsn0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
375 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
376 |
CTRL_GETOBCSN |
OBNt(i,k,bi,bj) = OBNt(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
377 |
CTRL_GETOBCSN |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
380 |
CTRL_GETOBCSN |
OBNs(i,k,bi,bj) = OBNs (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
381 |
CTRL_GETOBCSN |
& + obcsnfac *xx_obcsn0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
382 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
383 |
CTRL_GETOBCSN |
OBNs(i,k,bi,bj) = OBNs(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
384 |
CTRL_GETOBCSN |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
387 |
CTRL_GETOBCSN |
OBNu(i,k,bi,bj) = OBNu (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
388 |
CTRL_GETOBCSN |
& + obcsnfac *xx_obcsn0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
389 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
390 |
CTRL_GETOBCSN |
OBNu(i,k,bi,bj) = OBNu(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
391 |
CTRL_GETOBCSN |
& *maskW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
394 |
CTRL_GETOBCSN |
OBNv(i,k,bi,bj) = OBNv (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
395 |
CTRL_GETOBCSN |
& + obcsnfac *xx_obcsn0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
396 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
397 |
CTRL_GETOBCSN |
OBNv(i,k,bi,bj) = OBNv(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
398 |
CTRL_GETOBCSN |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
55 |
CTRL_GETOBCSN |
integer i,j,k |
|
./pkg/ctrl/ctrl_getobcss.F |
148 |
CTRL_GETOBCSS |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcss.F |
155 |
CTRL_GETOBCSS |
vtop = tmpfldxz(i,k,bi,bj)* |
|
./pkg/ctrl/ctrl_getobcss.F |
156 |
CTRL_GETOBCSS |
& maskS(i,j+jp1,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcss.F |
158 |
CTRL_GETOBCSS |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcss.F |
159 |
CTRL_GETOBCSS |
tmpfldxz(i,k,bi,bj) = tmpfldxz(i,k,bi,bj)+ vbaro |
|
./pkg/ctrl/ctrl_getobcss.F |
184 |
CTRL_GETOBCSS |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcss.F |
191 |
CTRL_GETOBCSS |
vtop = tmpfldxz(i,k,bi,bj)* |
|
./pkg/ctrl/ctrl_getobcss.F |
192 |
CTRL_GETOBCSS |
& maskW(i,j,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcss.F |
194 |
CTRL_GETOBCSS |
if (maskW(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcss.F |
195 |
CTRL_GETOBCSS |
tmpfldxz(i,k,bi,bj) = tmpfldxz(i,k,bi,bj)+ vbaro |
|
./pkg/ctrl/ctrl_getobcss.F |
211 |
CTRL_GETOBCSS |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcss.F |
213 |
CTRL_GETOBCSS |
xx_obcss1(i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
225 |
CTRL_GETOBCSS |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcss.F |
227 |
CTRL_GETOBCSS |
tmpfldxz(i,k,bi,bj) = xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
237 |
CTRL_GETOBCSS |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcss.F |
239 |
CTRL_GETOBCSS |
xx_obcss0(i,k,bi,bj,iobcs) = tmpfldxz2(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
267 |
CTRL_GETOBCSS |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcss.F |
274 |
CTRL_GETOBCSS |
vtop = tmpfldxz(i,k,bi,bj)* |
|
./pkg/ctrl/ctrl_getobcss.F |
275 |
CTRL_GETOBCSS |
& maskS(i,j+jp1,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcss.F |
277 |
CTRL_GETOBCSS |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcss.F |
278 |
CTRL_GETOBCSS |
tmpfldxz(i,k,bi,bj) = tmpfldxz(i,k,bi,bj)+ vbaro |
|
./pkg/ctrl/ctrl_getobcss.F |
303 |
CTRL_GETOBCSS |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcss.F |
310 |
CTRL_GETOBCSS |
vtop = tmpfldxz(i,k,bi,bj)* |
|
./pkg/ctrl/ctrl_getobcss.F |
311 |
CTRL_GETOBCSS |
& maskW(i,j,k,bi,bj) * delR(k) + vtop |
|
./pkg/ctrl/ctrl_getobcss.F |
313 |
CTRL_GETOBCSS |
if (maskW(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcss.F |
314 |
CTRL_GETOBCSS |
tmpfldxz(i,k,bi,bj) = tmpfldxz(i,k,bi,bj)+ vbaro |
|
./pkg/ctrl/ctrl_getobcss.F |
330 |
CTRL_GETOBCSS |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcss.F |
332 |
CTRL_GETOBCSS |
xx_obcss1 (i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
344 |
CTRL_GETOBCSS |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcss.F |
348 |
CTRL_GETOBCSS |
OBSt(i,k,bi,bj) = OBSt (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
349 |
CTRL_GETOBCSS |
& + obcssfac *xx_obcss0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
350 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
351 |
CTRL_GETOBCSS |
OBSt(i,k,bi,bj) = OBSt(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
352 |
CTRL_GETOBCSS |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
354 |
CTRL_GETOBCSS |
OBSs(i,k,bi,bj) = OBSs (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
355 |
CTRL_GETOBCSS |
& + obcssfac *xx_obcss0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
356 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
357 |
CTRL_GETOBCSS |
OBSs(i,k,bi,bj) = OBSs(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
358 |
CTRL_GETOBCSS |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
360 |
CTRL_GETOBCSS |
OBSu(i,k,bi,bj) = OBSu (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
361 |
CTRL_GETOBCSS |
& + obcssfac *xx_obcss0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
362 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
363 |
CTRL_GETOBCSS |
OBSu(i,k,bi,bj) = OBSu(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
364 |
CTRL_GETOBCSS |
& *maskW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
366 |
CTRL_GETOBCSS |
OBSv(i,k,bi,bj) = OBSv (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
367 |
CTRL_GETOBCSS |
& + obcssfac *xx_obcss0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
368 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
369 |
CTRL_GETOBCSS |
OBSv(i,k,bi,bj) = OBSv(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
370 |
CTRL_GETOBCSS |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
56 |
CTRL_GETOBCSS |
integer i,j,k |
|
./pkg/ctrl/ctrl_getobcsw.F |
147 |
CTRL_GETOBCSW |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsw.F |
154 |
CTRL_GETOBCSW |
utop = tmpfldyz(j,k,bi,bj)* |
|
./pkg/ctrl/ctrl_getobcsw.F |
155 |
CTRL_GETOBCSW |
& maskW(i+ip1,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcsw.F |
157 |
CTRL_GETOBCSW |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
158 |
CTRL_GETOBCSW |
tmpfldyz(j,k,bi,bj) = tmpfldyz(j,k,bi,bj)+ ubaro |
|
./pkg/ctrl/ctrl_getobcsw.F |
182 |
CTRL_GETOBCSW |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsw.F |
189 |
CTRL_GETOBCSW |
utop = tmpfldyz(j,k,bi,bj)* |
|
./pkg/ctrl/ctrl_getobcsw.F |
190 |
CTRL_GETOBCSW |
& maskS(i,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcsw.F |
192 |
CTRL_GETOBCSW |
if (maskS(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
193 |
CTRL_GETOBCSW |
tmpfldyz(j,k,bi,bj) = tmpfldyz(j,k,bi,bj)+ ubaro |
|
./pkg/ctrl/ctrl_getobcsw.F |
209 |
CTRL_GETOBCSW |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcsw.F |
211 |
CTRL_GETOBCSW |
xx_obcsw1(j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
226 |
CTRL_GETOBCSW |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcsw.F |
228 |
CTRL_GETOBCSW |
tmpfldyz(j,k,bi,bj) = xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
238 |
CTRL_GETOBCSW |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcsw.F |
240 |
CTRL_GETOBCSW |
xx_obcsw0(j,k,bi,bj,iobcs) = tmpfldyz2(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
268 |
CTRL_GETOBCSW |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsw.F |
275 |
CTRL_GETOBCSW |
utop = tmpfldyz(j,k,bi,bj)* |
|
./pkg/ctrl/ctrl_getobcsw.F |
276 |
CTRL_GETOBCSW |
& maskW(i+ip1,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcsw.F |
278 |
CTRL_GETOBCSW |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
279 |
CTRL_GETOBCSW |
tmpfldyz(j,k,bi,bj) = tmpfldyz(j,k,bi,bj)+ ubaro |
|
./pkg/ctrl/ctrl_getobcsw.F |
303 |
CTRL_GETOBCSW |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsw.F |
310 |
CTRL_GETOBCSW |
utop = tmpfldyz(j,k,bi,bj)* |
|
./pkg/ctrl/ctrl_getobcsw.F |
311 |
CTRL_GETOBCSW |
& maskS(i,j,k,bi,bj) * delR(k) + utop |
|
./pkg/ctrl/ctrl_getobcsw.F |
313 |
CTRL_GETOBCSW |
if (maskS(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
314 |
CTRL_GETOBCSW |
tmpfldyz(j,k,bi,bj) = tmpfldyz(j,k,bi,bj)+ ubaro |
|
./pkg/ctrl/ctrl_getobcsw.F |
330 |
CTRL_GETOBCSW |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcsw.F |
332 |
CTRL_GETOBCSW |
xx_obcsw1 (j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
344 |
CTRL_GETOBCSW |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcsw.F |
348 |
CTRL_GETOBCSW |
OBWt(j,k,bi,bj) = OBWt (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
349 |
CTRL_GETOBCSW |
& + obcswfac *xx_obcsw0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
350 |
CTRL_GETOBCSW |
& + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
351 |
CTRL_GETOBCSW |
OBWt(j,k,bi,bj) = OBWt(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
352 |
CTRL_GETOBCSW |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
354 |
CTRL_GETOBCSW |
OBWs(j,k,bi,bj) = OBWs (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
355 |
CTRL_GETOBCSW |
& + obcswfac *xx_obcsw0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
356 |
CTRL_GETOBCSW |
& + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
357 |
CTRL_GETOBCSW |
OBWs(j,k,bi,bj) = OBWs(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
358 |
CTRL_GETOBCSW |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
360 |
CTRL_GETOBCSW |
OBWu(j,k,bi,bj) = OBWu (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
361 |
CTRL_GETOBCSW |
& + obcswfac *xx_obcsw0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
362 |
CTRL_GETOBCSW |
& + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
363 |
CTRL_GETOBCSW |
OBWu(j,k,bi,bj) = OBWu(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
364 |
CTRL_GETOBCSW |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
366 |
CTRL_GETOBCSW |
OBWv(j,k,bi,bj) = OBWv (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
367 |
CTRL_GETOBCSW |
& + obcswfac *xx_obcsw0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
368 |
CTRL_GETOBCSW |
& + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
369 |
CTRL_GETOBCSW |
OBWv(j,k,bi,bj) = OBWv(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
370 |
CTRL_GETOBCSW |
& *maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
55 |
CTRL_GETOBCSW |
integer i,j,k |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
101 |
CTRL_HFACC_INI |
do k = 1,nr |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
104 |
CTRL_HFACC_INI |
hFacC(i,j,k,bi,bj) = 0. |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
105 |
CTRL_HFACC_INI |
tmpfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
126 |
CTRL_HFACC_INI |
do k = 1,nr |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
129 |
CTRL_HFACC_INI |
hFacC(i,j,k,bi,bj) = hFacC(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
130 |
CTRL_HFACC_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
144 |
CTRL_HFACC_INI |
k = k_lowC(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
146 |
CTRL_HFACC_INI |
hFacC(i,j,k,bi,bj) = hFacC(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
40 |
CTRL_HFACC_INI |
integer i,j,k |
|
./pkg/ctrl/ctrl_init.F |
89 |
CTRL_INIT |
integer i,j,k |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
100 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcsw1(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
112 |
CTRL_INIT_OBCS_VARIABLES |
do k = 1,nr |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
114 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcse0(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
115 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcse1(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
43 |
CTRL_INIT_OBCS_VARIABLES |
integer i,j,k |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
67 |
CTRL_INIT_OBCS_VARIABLES |
do k = 1,nr |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
69 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcsn0(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
70 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcsn1(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
82 |
CTRL_INIT_OBCS_VARIABLES |
do k = 1,nr |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
84 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcss0(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
85 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcss1(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
97 |
CTRL_INIT_OBCS_VARIABLES |
do k = 1,nr |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
99 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcsw0(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
38 |
CTRL_INIT_VARIABLES |
integer i,j,k |
|
./pkg/ctrl/ctrl_init_wet.F |
104 |
CTRL_INIT_WET |
do k = 1,nr |
|
./pkg/ctrl/ctrl_init_wet.F |
108 |
CTRL_INIT_WET |
if (hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_init_wet.F |
109 |
CTRL_INIT_WET |
nwetctile(bi,bj,k) = nwetctile(bi,bj,k) + 1 |
|
./pkg/ctrl/ctrl_init_wet.F |
112 |
CTRL_INIT_WET |
if (maskS(i,j,k,bi,bj) .eq. 1.) then |
|
./pkg/ctrl/ctrl_init_wet.F |
113 |
CTRL_INIT_WET |
nwetstile(bi,bj,k) = nwetstile(bi,bj,k) + 1 |
|
./pkg/ctrl/ctrl_init_wet.F |
116 |
CTRL_INIT_WET |
if (maskW(i,j,k,bi,bj) .eq. 1.) then |
|
./pkg/ctrl/ctrl_init_wet.F |
117 |
CTRL_INIT_WET |
nwetwtile(bi,bj,k) = nwetwtile(bi,bj,k) + 1 |
|
./pkg/ctrl/ctrl_init_wet.F |
121 |
CTRL_INIT_WET |
if (hFacV(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_init_wet.F |
122 |
CTRL_INIT_WET |
nwetvtile(bi,bj,k) = nwetvtile(bi,bj,k) + 1 |
|
./pkg/ctrl/ctrl_init_wet.F |
169 |
CTRL_INIT_WET |
do k = 1,ncvarnrmax(i) |
|
./pkg/ctrl/ctrl_init_wet.F |
172 |
CTRL_INIT_WET |
& ncvarrecs(i)*nwetctile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
175 |
CTRL_INIT_WET |
& ncvarrecs(i)*nwetstile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
178 |
CTRL_INIT_WET |
& ncvarrecs(i)*nwetwtile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
181 |
CTRL_INIT_WET |
& ncvarrecs(i)*nwetvtile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
191 |
CTRL_INIT_WET |
& *nwetobcsn(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
197 |
CTRL_INIT_WET |
& *nwetobcss(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
203 |
CTRL_INIT_WET |
& *nwetobcsw(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
209 |
CTRL_INIT_WET |
& *nwetobcse(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
249 |
CTRL_INIT_WET |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_init_wet.F |
250 |
CTRL_INIT_WET |
nwetc3d = nwetc3d + nwetctile(1,1,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
340 |
CTRL_INIT_WET |
do k = 1, nr |
|
./pkg/ctrl/ctrl_init_wet.F |
345 |
CTRL_INIT_WET |
ntmp2(1)=ntmp2(1)+nWetcTile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
349 |
CTRL_INIT_WET |
nWetcGlobal(k)=ntmp2(1) |
|
./pkg/ctrl/ctrl_init_wet.F |
34 |
CTRL_INIT_WET |
integer i,j,k |
|
./pkg/ctrl/ctrl_init_wet.F |
354 |
CTRL_INIT_WET |
ntmp2(2)=ntmp2(2)+nWetsTile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
358 |
CTRL_INIT_WET |
nWetsGlobal(k)=ntmp2(2) |
|
./pkg/ctrl/ctrl_init_wet.F |
363 |
CTRL_INIT_WET |
ntmp2(3)=ntmp2(3)+nWetwTile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
367 |
CTRL_INIT_WET |
nWetwGlobal(k)=ntmp2(3) |
|
./pkg/ctrl/ctrl_init_wet.F |
372 |
CTRL_INIT_WET |
ntmp2(4)=ntmp2(4)+nWetvTile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
376 |
CTRL_INIT_WET |
nWetvGlobal(k)=ntmp2(4) |
|
./pkg/ctrl/ctrl_init_wet.F |
379 |
CTRL_INIT_WET |
& 'ctrl-wet 14: global nWet C/S/W/V k=', k, ntmp2 |
|
./pkg/ctrl/ctrl_init_wet.F |
390 |
CTRL_INIT_WET |
do k = 1, nr |
|
./pkg/ctrl/ctrl_init_wet.F |
397 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcsn(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
401 |
CTRL_INIT_WET |
nwetobcsnglo(k,iobcs)=ntmpob(iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
404 |
CTRL_INIT_WET |
& 'ctrl-wet 15a: global obcsN T,S,U,V k=', k, ntmpob |
|
./pkg/ctrl/ctrl_init_wet.F |
413 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcss(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
417 |
CTRL_INIT_WET |
nwetobcssglo(k,iobcs)=ntmpob(iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
420 |
CTRL_INIT_WET |
& 'ctrl-wet 15b: global obcsS T,S,U,V k=', k, ntmpob |
|
./pkg/ctrl/ctrl_init_wet.F |
429 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcsw(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
433 |
CTRL_INIT_WET |
nwetobcswglo(k,iobcs)=ntmpob(iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
436 |
CTRL_INIT_WET |
& 'ctrl-wet 15c: global obcsW T,S,U,V k=', k, ntmpob |
|
./pkg/ctrl/ctrl_init_wet.F |
445 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcse(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
449 |
CTRL_INIT_WET |
nwetobcseglo(k,iobcs)=ntmpob(iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
452 |
CTRL_INIT_WET |
& 'ctrl-wet 15d: global obcsE T,S,U,V k=', k, ntmpob |
|
./pkg/ctrl/ctrl_init_wet.F |
467 |
CTRL_INIT_WET |
do k = 1, nr |
|
./pkg/ctrl/ctrl_init_wet.F |
468 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcsnglo(k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
479 |
CTRL_INIT_WET |
do k = 1, nr |
|
./pkg/ctrl/ctrl_init_wet.F |
480 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcssglo(k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
491 |
CTRL_INIT_WET |
do k = 1, nr |
|
./pkg/ctrl/ctrl_init_wet.F |
492 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcswglo(k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
503 |
CTRL_INIT_WET |
do k = 1, nr |
|
./pkg/ctrl/ctrl_init_wet.F |
504 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcseglo(k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
533 |
CTRL_INIT_WET |
do k=1, nr |
|
./pkg/ctrl/ctrl_init_wet.F |
534 |
CTRL_INIT_WET |
wunit(k,bi,bj) = 1. _d 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
536 |
CTRL_INIT_WET |
do k=1,Nr |
|
./pkg/ctrl/ctrl_init_wet.F |
539 |
CTRL_INIT_WET |
tmpfld3d(i,j,k,bi,bj) = 1. _d 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
68 |
CTRL_INIT_WET |
do k = 1,nr |
|
./pkg/ctrl/ctrl_init_wet.F |
69 |
CTRL_INIT_WET |
nwetctile(bi,bj,k) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
70 |
CTRL_INIT_WET |
nwetstile(bi,bj,k) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
71 |
CTRL_INIT_WET |
nwetwtile(bi,bj,k) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
72 |
CTRL_INIT_WET |
nwetvtile(bi,bj,k) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
81 |
CTRL_INIT_WET |
do k = 1,nr |
|
./pkg/ctrl/ctrl_init_wet.F |
84 |
CTRL_INIT_WET |
nwetobcsn(bi,bj,k,iobcs) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
87 |
CTRL_INIT_WET |
nwetobcss(bi,bj,k,iobcs) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
90 |
CTRL_INIT_WET |
nwetobcsw(bi,bj,k,iobcs) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
93 |
CTRL_INIT_WET |
nwetobcse(bi,bj,k,iobcs) = 0 |
|
./pkg/ctrl/ctrl_map_forcing.F |
45 |
CTRL_MAP_FORCING |
integer i,j,k |
|
./pkg/ctrl/ctrl_map_ini.F |
104 |
CTRL_MAP_INI |
do k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini.F |
108 |
CTRL_MAP_INI |
IF (abs(tmpfld3d(i,j,k,bi,bj)).gt. |
|
./pkg/ctrl/ctrl_map_ini.F |
109 |
CTRL_MAP_INI |
$ 2.0/sqrt(wtheta(k,bi,bj))) |
|
./pkg/ctrl/ctrl_map_ini.F |
110 |
CTRL_MAP_INI |
$ tmpfld3d(i,j,k,bi,bj)= |
|
./pkg/ctrl/ctrl_map_ini.F |
111 |
CTRL_MAP_INI |
$ sign(2.0/sqrt(wtheta(k,bi,bj)),tmpfld3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini.F |
114 |
CTRL_MAP_INI |
theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
115 |
CTRL_MAP_INI |
& fac*xx_theta(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
116 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
118 |
CTRL_MAP_INI |
theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
119 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
122 |
CTRL_MAP_INI |
if(theta(i,j,k,bi,bj).lt.-2.0) |
|
./pkg/ctrl/ctrl_map_ini.F |
123 |
CTRL_MAP_INI |
& theta(i,j,k,bi,bj)= -2.0 |
|
./pkg/ctrl/ctrl_map_ini.F |
144 |
CTRL_MAP_INI |
do k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini.F |
148 |
CTRL_MAP_INI |
IF (abs(tmpfld3d(i,j,k,bi,bj)).gt. |
|
./pkg/ctrl/ctrl_map_ini.F |
149 |
CTRL_MAP_INI |
$ 2.0/sqrt(wsalt(k,bi,bj))) |
|
./pkg/ctrl/ctrl_map_ini.F |
150 |
CTRL_MAP_INI |
$ tmpfld3d(i,j,k,bi,bj)= |
|
./pkg/ctrl/ctrl_map_ini.F |
151 |
CTRL_MAP_INI |
$ sign(2.0/sqrt(wsalt(k,bi,bj)),tmpfld3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini.F |
154 |
CTRL_MAP_INI |
salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
155 |
CTRL_MAP_INI |
& fac*xx_salt(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
156 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
158 |
CTRL_MAP_INI |
salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
159 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
181 |
CTRL_MAP_INI |
do k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini.F |
184 |
CTRL_MAP_INI |
ptracer(i,j,k,bi,bj,1) = ptracer(i,j,k,bi,bj,1) + |
|
./pkg/ctrl/ctrl_map_ini.F |
185 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
247 |
CTRL_MAP_INI |
do k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini.F |
251 |
CTRL_MAP_INI |
diffkr(i,j,k,bi,bj) = diffkr(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
252 |
CTRL_MAP_INI |
& xx_diffkr(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
253 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
255 |
CTRL_MAP_INI |
diffkr(i,j,k,bi,bj) = diffkr(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
256 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
277 |
CTRL_MAP_INI |
do k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini.F |
281 |
CTRL_MAP_INI |
kapgm(i,j,k,bi,bj) = kapgm(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
282 |
CTRL_MAP_INI |
& xx_kapgm(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
283 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
285 |
CTRL_MAP_INI |
kapgm(i,j,k,bi,bj) = kapgm(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
286 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
307 |
CTRL_MAP_INI |
do k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini.F |
310 |
CTRL_MAP_INI |
kapredi(i,j,k,bi,bj) = kapredi(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
311 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
331 |
CTRL_MAP_INI |
do k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini.F |
334 |
CTRL_MAP_INI |
EfluxY(i,j,k,bi,bj) = EfluxY(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
335 |
CTRL_MAP_INI |
& - fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
336 |
CTRL_MAP_INI |
& *maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
358 |
CTRL_MAP_INI |
do k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini.F |
361 |
CTRL_MAP_INI |
EfluxP(i,j,k,bi,bj) = EfluxP(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
363 |
CTRL_MAP_INI |
& *fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
364 |
CTRL_MAP_INI |
& *hFacV(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
406 |
CTRL_MAP_INI |
do k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini.F |
409 |
CTRL_MAP_INI |
eddyPsiX(i,j,k,bi,bj) = eddyPsiX(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
410 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
425 |
CTRL_MAP_INI |
do k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini.F |
428 |
CTRL_MAP_INI |
eddyPsiY(i,j,k,bi,bj) = eddyPsiY(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
429 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
447 |
CTRL_MAP_INI |
do k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini.F |
451 |
CTRL_MAP_INI |
uVel(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
452 |
CTRL_MAP_INI |
& fac*xx_uvel(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
454 |
CTRL_MAP_INI |
uVel(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
455 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
474 |
CTRL_MAP_INI |
do k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini.F |
478 |
CTRL_MAP_INI |
vVel(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
479 |
CTRL_MAP_INI |
& fac*xx_vvel(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
481 |
CTRL_MAP_INI |
vVel(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
482 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
50 |
CTRL_MAP_INI |
integer i,j,k |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
125 |
CTRL_MAP_INI_ECCO |
do k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
128 |
CTRL_MAP_INI_ECCO |
tmpfld3d(i,j,k,bi,bj)=1. |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
67 |
CTRL_MAP_INI_ECCO |
integer i,j,k |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
116 |
CTRL_MAP_INI_GEN3D |
do k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
119 |
CTRL_MAP_INI_GEN3D |
if ( (maskFld3d(i,j,k,bi,bj).NE.0.).AND. |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
120 |
CTRL_MAP_INI_GEN3D |
& (wFld3d(i,j,k,bi,bj).GT.0.) ) then |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
121 |
CTRL_MAP_INI_GEN3D |
tmpMax=boundsVec(5)/sqrt(wFld3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
122 |
CTRL_MAP_INI_GEN3D |
if ( abs(xxFld3d(i,j,k,bi,bj)).GT.tmpMax ) then |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
123 |
CTRL_MAP_INI_GEN3D |
xxFld3d(i,j,k,bi,bj)=sign(tmpMax,xxFld3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
125 |
CTRL_MAP_INI_GEN3D |
xxFld3d(i,j,k,bi,bj)=xxFld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
143 |
CTRL_MAP_INI_GEN3D |
do k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
148 |
CTRL_MAP_INI_GEN3D |
if ( (maskFld3d(i,j,k,bi,bj).NE.0.) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
149 |
CTRL_MAP_INI_GEN3D |
& .AND. (wFld3d(i,j,k,bi,bj).GT.0.) ) then |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
150 |
CTRL_MAP_INI_GEN3D |
xxFld3d(i,j,k,bi,bj)=xxFld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
151 |
CTRL_MAP_INI_GEN3D |
& /sqrt( wFld3d(i,j,k,bi,bj) ) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
153 |
CTRL_MAP_INI_GEN3D |
xxFld3d(i,j,k,bi,bj)=0. |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
156 |
CTRL_MAP_INI_GEN3D |
paramFld3d(i,j,k,bi,bj) = paramFld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
157 |
CTRL_MAP_INI_GEN3D |
& + xxFld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
233 |
CTRL_MAP_INI_GEN2D |
integer i,j,k |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
61 |
CTRL_MAP_INI_GEN3D |
integer i,j,k |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
101 |
CTRL_MASK_SET_XZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
107 |
CTRL_MASK_SET_XZ |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
108 |
CTRL_MASK_SET_XZ |
nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
109 |
CTRL_MASK_SET_XZ |
maskxz(i,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
114 |
CTRL_MASK_SET_XZ |
if (maskW(i,j,k,bi,bj) .eq. 1.) then |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
115 |
CTRL_MASK_SET_XZ |
nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
116 |
CTRL_MASK_SET_XZ |
maskxz(i,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
133 |
CTRL_MASK_SET_XZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
135 |
CTRL_MASK_SET_XZ |
gg(i,k,bi,bj) = maskxz(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
45 |
CTRL_MASK_SET_XZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
89 |
CTRL_MASK_SET_XZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
91 |
CTRL_MASK_SET_XZ |
maskxz(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
102 |
CTRL_MASK_SET_YZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
108 |
CTRL_MASK_SET_YZ |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
109 |
CTRL_MASK_SET_YZ |
nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
110 |
CTRL_MASK_SET_YZ |
maskyz(j,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
115 |
CTRL_MASK_SET_YZ |
if (maskS(i,j,k,bi,bj) .eq. 1.) then |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
116 |
CTRL_MASK_SET_YZ |
nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
117 |
CTRL_MASK_SET_YZ |
maskyz(j,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
134 |
CTRL_MASK_SET_YZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
136 |
CTRL_MASK_SET_YZ |
gg(j,k,bi,bj) = maskyz(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
45 |
CTRL_MASK_SET_YZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
90 |
CTRL_MASK_SET_YZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
92 |
CTRL_MASK_SET_YZ |
maskyz(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_obcsbal.F |
57 |
CTRL_OBCSBAL |
integer i,j,k |
|
./pkg/ctrl/ctrl_obcsvol.F |
182 |
CTRL_OBCSVOL |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_obcsvol.F |
185 |
CTRL_OBCSVOL |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
188 |
CTRL_OBCSVOL |
tmpx = tmpfldxz(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
190 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpx* delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
191 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
218 |
CTRL_OBCSVOL |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_obcsvol.F |
221 |
CTRL_OBCSVOL |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
224 |
CTRL_OBCSVOL |
tmpx = tmpfldxz(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
226 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpx* delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
227 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
254 |
CTRL_OBCSVOL |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_obcsvol.F |
257 |
CTRL_OBCSVOL |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
260 |
CTRL_OBCSVOL |
tmpy = tmpfldyz(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
262 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
263 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
290 |
CTRL_OBCSVOL |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_obcsvol.F |
293 |
CTRL_OBCSVOL |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
296 |
CTRL_OBCSVOL |
tmpy = tmpfldyz(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
298 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
299 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
340 |
CTRL_OBCSVOL |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_obcsvol.F |
343 |
CTRL_OBCSVOL |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
346 |
CTRL_OBCSVOL |
tmpx = tmpfldxz(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
348 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpx* delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
349 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
376 |
CTRL_OBCSVOL |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_obcsvol.F |
379 |
CTRL_OBCSVOL |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
382 |
CTRL_OBCSVOL |
tmpx = tmpfldxz(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
384 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpx* delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
385 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
412 |
CTRL_OBCSVOL |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_obcsvol.F |
415 |
CTRL_OBCSVOL |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
418 |
CTRL_OBCSVOL |
tmpy = tmpfldyz(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
420 |
CTRL_OBCSVOL |
tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
421 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
448 |
CTRL_OBCSVOL |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_obcsvol.F |
451 |
CTRL_OBCSVOL |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_obcsvol.F |
454 |
CTRL_OBCSVOL |
tmpy = tmpfldyz(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
456 |
CTRL_OBCSVOL |
tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
457 |
CTRL_OBCSVOL |
tmparea = tmparea + delR(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_obcsvol.F |
54 |
CTRL_OBCSVOL |
integer i,j,k |
|
./pkg/ctrl/ctrl_pack.F |
199 |
CTRL_PACK |
write(cunit) (nWetcGlobal(k), k=1,nr) |
|
./pkg/ctrl/ctrl_pack.F |
200 |
CTRL_PACK |
write(cunit) (nWetsGlobal(k), k=1,nr) |
|
./pkg/ctrl/ctrl_pack.F |
201 |
CTRL_PACK |
write(cunit) (nWetwGlobal(k), k=1,nr) |
|
./pkg/ctrl/ctrl_pack.F |
203 |
CTRL_PACK |
write(cunit) (nWetvGlobal(k), k=1,nr) |
|
./pkg/ctrl/ctrl_pack.F |
207 |
CTRL_PACK |
write(cunit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_pack.F |
210 |
CTRL_PACK |
write(cunit) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_pack.F |
213 |
CTRL_PACK |
write(cunit) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_pack.F |
216 |
CTRL_PACK |
write(cunit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_pack.F |
66 |
CTRL_PACK |
integer i, j, k |
|
./pkg/ctrl/ctrl_readparms.F |
45 |
CTRL_READPARMS |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
47 |
CTRL_SET_GLOBFLD_XY |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
83 |
CTRL_SET_GLOBFLD_XY |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
86 |
CTRL_SET_GLOBFLD_XY |
globfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_globfld_xyz.F |
42 |
CTRL_SET_GLOBFLD_XYZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_globfld_xyz.F |
67 |
CTRL_SET_GLOBFLD_XYZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_globfld_xyz.F |
70 |
CTRL_SET_GLOBFLD_XYZ |
globfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
47 |
CTRL_SET_GLOBFLD_XZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
73 |
CTRL_SET_GLOBFLD_XZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
75 |
CTRL_SET_GLOBFLD_XZ |
globfldxz(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
83 |
CTRL_SET_GLOBFLD_XZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
86 |
CTRL_SET_GLOBFLD_XZ |
globfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
47 |
CTRL_SET_GLOBFLD_YZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
74 |
CTRL_SET_GLOBFLD_YZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
76 |
CTRL_SET_GLOBFLD_YZ |
globfldyz(j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
84 |
CTRL_SET_GLOBFLD_YZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
87 |
CTRL_SET_GLOBFLD_YZ |
globfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
102 |
CTRL_SET_PACK_XY |
globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
103 |
CTRL_SET_PACK_XY |
globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
163 |
CTRL_SET_PACK_XY |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
164 |
CTRL_SET_PACK_XY |
irectrue = (irec-1)*nr + k |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
181 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
187 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) * |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
192 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) / |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
197 |
CTRL_SET_PACK_XY |
cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
202 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
206 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
254 |
CTRL_SET_PACK_XY |
do k = 1, 1 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
263 |
CTRL_SET_PACK_XY |
if (globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
267 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
273 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) * |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
278 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) / |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
283 |
CTRL_SET_PACK_XY |
cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
288 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
292 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
314 |
CTRL_SET_PACK_XY |
write(cunit) k |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
342 |
CTRL_SET_PACK_XY |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
465 |
CTRL_SET_PACK_XY |
do k = 1, 1 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
468 |
CTRL_SET_PACK_XY |
& 0, 0, 1, k, 1, 0, 0, .FALSE., myThid ) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
475 |
CTRL_SET_PACK_XY |
& 0, 0, 1, k, Nr, 0, 0, .FALSE., myThid ) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
501 |
CTRL_SET_PACK_XY |
write(cunit) k |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
52 |
CTRL_SET_PACK_XY |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
95 |
CTRL_SET_PACK_XY |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
104 |
CTRL_SET_PACK_XYZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
111 |
CTRL_SET_PACK_XYZ |
globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
112 |
CTRL_SET_PACK_XYZ |
globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
178 |
CTRL_SET_PACK_XYZ |
do k = 1, nr |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
179 |
CTRL_SET_PACK_XYZ |
irectrue = (irec-1)*nr + k |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
181 |
CTRL_SET_PACK_XYZ |
delZnorm = (delR(1)/delR(k))**delZexp |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
192 |
CTRL_SET_PACK_XYZ |
if (globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
196 |
CTRL_SET_PACK_XYZ |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
202 |
CTRL_SET_PACK_XYZ |
& * globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
204 |
CTRL_SET_PACK_XYZ |
& * sqrt(weightfld3d(i,bi,ip,j,bj,jp,k)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
206 |
CTRL_SET_PACK_XYZ |
& * sqrt(weightfld(k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
210 |
CTRL_SET_PACK_XYZ |
& * globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
212 |
CTRL_SET_PACK_XYZ |
& / sqrt(weightfld3d(i,bi,ip,j,bj,jp,k)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
214 |
CTRL_SET_PACK_XYZ |
& / sqrt(weightfld(k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
221 |
CTRL_SET_PACK_XYZ |
cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
224 |
CTRL_SET_PACK_XYZ |
cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
241 |
CTRL_SET_PACK_XYZ |
write(cunit) k |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
269 |
CTRL_SET_PACK_XYZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
340 |
CTRL_SET_PACK_XYZ |
DO k=1,Nr |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
342 |
CTRL_SET_PACK_XYZ |
delZnorm = (delR(1)/delR(k))**delZexp |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
348 |
CTRL_SET_PACK_XYZ |
if (msk3d(i,j,k,bi,bj).EQ.0. _d 0) then |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
349 |
CTRL_SET_PACK_XYZ |
fld3dDim(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
350 |
CTRL_SET_PACK_XYZ |
fld3dNodim(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
353 |
CTRL_SET_PACK_XYZ |
fld3dNodim(i,j,k,bi,bj)=fld3dDim(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
356 |
CTRL_SET_PACK_XYZ |
fld3dNodim(i,j,k,bi,bj) = fld3dDim(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
359 |
CTRL_SET_PACK_XYZ |
fld3dNodim(i,j,k,bi,bj) = |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
360 |
CTRL_SET_PACK_XYZ |
& fld3dDim(i,j,k,bi,bj) / delZnorm |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
362 |
CTRL_SET_PACK_XYZ |
& * sqrt(wei3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
364 |
CTRL_SET_PACK_XYZ |
& * sqrt(weightfld(k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
367 |
CTRL_SET_PACK_XYZ |
fld3dNodim(i,j,k,bi,bj) = |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
368 |
CTRL_SET_PACK_XYZ |
& fld3dDim(i,j,k,bi,bj) * delZnorm |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
370 |
CTRL_SET_PACK_XYZ |
& / sqrt(wei3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
372 |
CTRL_SET_PACK_XYZ |
& / sqrt(weightfld(k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
406 |
CTRL_SET_PACK_XYZ |
do k = 1, nr |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
409 |
CTRL_SET_PACK_XYZ |
& 0, 0, 1, k, Nr, 0, 0, .FALSE., myThid ) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
416 |
CTRL_SET_PACK_XYZ |
& 0, 0, 1, k, Nr, 0, 0, .FALSE., myThid ) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
442 |
CTRL_SET_PACK_XYZ |
write(cunit) k |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
53 |
CTRL_SET_PACK_XYZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
98 |
CTRL_SET_PACK_XYZ |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
99 |
CTRL_SET_PACK_XYZ |
delZnorm = delZnorm + delR(k)/FLOAT(Nr) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
102 |
CTRL_SET_PACK_XZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
108 |
CTRL_SET_PACK_XZ |
globfldxz (i,bi,ip,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
112 |
CTRL_SET_PACK_XZ |
globmskxz(i,bi,ip,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
121 |
CTRL_SET_PACK_XZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
128 |
CTRL_SET_PACK_XZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
182 |
CTRL_SET_PACK_XZ |
k = 1 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
214 |
CTRL_SET_PACK_XZ |
k = 1 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
223 |
CTRL_SET_PACK_XZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
236 |
CTRL_SET_PACK_XZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
237 |
CTRL_SET_PACK_XZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
244 |
CTRL_SET_PACK_XZ |
jj=mod((j-1)*nr+k-1,sny)+1 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
246 |
CTRL_SET_PACK_XZ |
if (globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
257 |
CTRL_SET_PACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
259 |
CTRL_SET_PACK_XZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
265 |
CTRL_SET_PACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
267 |
CTRL_SET_PACK_XZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
285 |
CTRL_SET_PACK_XZ |
write(cunit) k |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
312 |
CTRL_SET_PACK_XZ |
k = 1 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
321 |
CTRL_SET_PACK_XZ |
globfldxz(i,bi,ip,bj,jp,k) = 0. |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
334 |
CTRL_SET_PACK_XZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
335 |
CTRL_SET_PACK_XZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
342 |
CTRL_SET_PACK_XZ |
if (globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
346 |
CTRL_SET_PACK_XZ |
& globfldxz(i,bi,ip,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
351 |
CTRL_SET_PACK_XZ |
& globfldxz(i,bi,ip,bj,jp,k) * |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
353 |
CTRL_SET_PACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
355 |
CTRL_SET_PACK_XZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
359 |
CTRL_SET_PACK_XZ |
& globfldxz(i,bi,ip,bj,jp,k) / |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
361 |
CTRL_SET_PACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
363 |
CTRL_SET_PACK_XZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
370 |
CTRL_SET_PACK_XZ |
cbuff(cbuffindex) = globfldxz(i,bi,ip,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
381 |
CTRL_SET_PACK_XZ |
write(cunit) k |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
55 |
CTRL_SET_PACK_XZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
100 |
CTRL_SET_PACK_YZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
106 |
CTRL_SET_PACK_YZ |
globfldyz (bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
110 |
CTRL_SET_PACK_YZ |
globmskyz(bi,ip,j,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
119 |
CTRL_SET_PACK_YZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
126 |
CTRL_SET_PACK_YZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
180 |
CTRL_SET_PACK_YZ |
k = 1 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
216 |
CTRL_SET_PACK_YZ |
k = 1 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
225 |
CTRL_SET_PACK_YZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
238 |
CTRL_SET_PACK_YZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
239 |
CTRL_SET_PACK_YZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
246 |
CTRL_SET_PACK_YZ |
ii=mod ( (i-1)*nr*sny+(k-1)*sny+j-1 , snx ) + 1 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
247 |
CTRL_SET_PACK_YZ |
jj=mod( ((i-1)*nr*sny+(k-1)*sny+j-1)/snx , sny ) + 1 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
248 |
CTRL_SET_PACK_YZ |
kk=int((i-1)*nr*sny+(k-1)*sny+j-1)/(snx*sny) + 1 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
249 |
CTRL_SET_PACK_YZ |
if (globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
260 |
CTRL_SET_PACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
262 |
CTRL_SET_PACK_YZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
268 |
CTRL_SET_PACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
270 |
CTRL_SET_PACK_YZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
288 |
CTRL_SET_PACK_YZ |
write(cunit) k |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
317 |
CTRL_SET_PACK_YZ |
k = 1 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
326 |
CTRL_SET_PACK_YZ |
globfldyz(bi,ip,j,bj,jp,k) = 0. |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
339 |
CTRL_SET_PACK_YZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
340 |
CTRL_SET_PACK_YZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
347 |
CTRL_SET_PACK_YZ |
if (globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
351 |
CTRL_SET_PACK_YZ |
& globfldyz(bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
356 |
CTRL_SET_PACK_YZ |
& globfldyz(bi,ip,j,bj,jp,k) * |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
358 |
CTRL_SET_PACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
360 |
CTRL_SET_PACK_YZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
364 |
CTRL_SET_PACK_YZ |
& globfldyz(bi,ip,j,bj,jp,k) / |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
366 |
CTRL_SET_PACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
368 |
CTRL_SET_PACK_YZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
375 |
CTRL_SET_PACK_YZ |
cbuff(cbuffindex) = globfldyz(bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
386 |
CTRL_SET_PACK_YZ |
write(cunit) k |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
55 |
CTRL_SET_PACK_YZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
104 |
CTRL_SET_UNPACK_XY |
globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
105 |
CTRL_SET_UNPACK_XY |
globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
162 |
CTRL_SET_UNPACK_XY |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
163 |
CTRL_SET_UNPACK_XY |
irectrue = (irec-1)*nr + k |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
204 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
210 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
220 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
221 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k)/ |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
225 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
226 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k)* |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
233 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
234 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
237 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
238 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
243 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
247 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
281 |
CTRL_SET_UNPACK_XY |
do k = 1,1 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
283 |
CTRL_SET_UNPACK_XY |
cbuffindex = nwetglobal(k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
293 |
CTRL_SET_UNPACK_XY |
if (filek .NE. k) then |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
295 |
CTRL_SET_UNPACK_XY |
& filek, k |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
310 |
CTRL_SET_UNPACK_XY |
if ( globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
312 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
318 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
328 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
329 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k)/ |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
333 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
334 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k)* |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
341 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
342 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
345 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
346 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
351 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
355 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
389 |
CTRL_SET_UNPACK_XY |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
468 |
CTRL_SET_UNPACK_XY |
do k = 1, 1 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
471 |
CTRL_SET_UNPACK_XY |
& 0, 0, 1, k, Nr, 0, 0, .FALSE., myThid ) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
478 |
CTRL_SET_UNPACK_XY |
cbuffindex = nwetglobal(k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
518 |
CTRL_SET_UNPACK_XY |
& 0, 0, 1, k, 1, 0, 0, .TRUE., myThid ) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
53 |
CTRL_SET_UNPACK_XY |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
97 |
CTRL_SET_UNPACK_XY |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
100 |
CTRL_SET_UNPACK_XYZ |
delZnorm = delZnorm + delR(k)/FLOAT(Nr) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
105 |
CTRL_SET_UNPACK_XYZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
112 |
CTRL_SET_UNPACK_XYZ |
globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
113 |
CTRL_SET_UNPACK_XYZ |
globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
128 |
CTRL_SET_UNPACK_XYZ |
do k = 1, nr |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
129 |
CTRL_SET_UNPACK_XYZ |
print *, 'ph-delznorm ', k, delZnorm, delR(k) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
130 |
CTRL_SET_UNPACK_XYZ |
print *, 'ph-weight ', weightfld(k,1,1) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
188 |
CTRL_SET_UNPACK_XYZ |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
189 |
CTRL_SET_UNPACK_XYZ |
irectrue = (irec-1)*nr + k |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
191 |
CTRL_SET_UNPACK_XYZ |
delZnorm = (delR(1)/delR(k))**delZexp |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
195 |
CTRL_SET_UNPACK_XYZ |
cbuffindex = nwetglobal(k) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
205 |
CTRL_SET_UNPACK_XYZ |
if (filek .NE. k) then |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
207 |
CTRL_SET_UNPACK_XYZ |
& filek, k |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
222 |
CTRL_SET_UNPACK_XYZ |
if ( globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
224 |
CTRL_SET_UNPACK_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
230 |
CTRL_SET_UNPACK_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
240 |
CTRL_SET_UNPACK_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = delZnorm |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
241 |
CTRL_SET_UNPACK_XYZ |
& * globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
243 |
CTRL_SET_UNPACK_XYZ |
& / sqrt(weightfld3d(i,bi,ip,j,bj,jp,k)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
245 |
CTRL_SET_UNPACK_XYZ |
& / sqrt(weightfld(k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
248 |
CTRL_SET_UNPACK_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 1/delZnorm |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
249 |
CTRL_SET_UNPACK_XYZ |
& * globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
251 |
CTRL_SET_UNPACK_XYZ |
& * sqrt(weightfld3d(i,bi,ip,j,bj,jp,k)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
253 |
CTRL_SET_UNPACK_XYZ |
& * sqrt(weightfld(k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
259 |
CTRL_SET_UNPACK_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
263 |
CTRL_SET_UNPACK_XYZ |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
297 |
CTRL_SET_UNPACK_XYZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
380 |
CTRL_SET_UNPACK_XYZ |
do k = 1, nr |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
383 |
CTRL_SET_UNPACK_XYZ |
& 0, 0, 1, k, Nr, 0, 0, .FALSE., myThid ) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
390 |
CTRL_SET_UNPACK_XYZ |
cbuffindex = nwetglobal(k) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
402 |
CTRL_SET_UNPACK_XYZ |
if (filek .NE. k) then |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
404 |
CTRL_SET_UNPACK_XYZ |
& filek, k |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
430 |
CTRL_SET_UNPACK_XYZ |
& 0, 0, 1, k, Nr, 0, 0, .TRUE., myThid ) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
437 |
CTRL_SET_UNPACK_XYZ |
DO k=1,Nr |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
439 |
CTRL_SET_UNPACK_XYZ |
delZnorm = (delR(1)/delR(k))**delZexp |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
445 |
CTRL_SET_UNPACK_XYZ |
if (msk3d(i,j,k,bi,bj).EQ.0. _d 0) then |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
446 |
CTRL_SET_UNPACK_XYZ |
fld3dDim(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
447 |
CTRL_SET_UNPACK_XYZ |
fld3dNodim(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
451 |
CTRL_SET_UNPACK_XYZ |
fld3dNodim(i,j,k,bi,bj)=phtmpadmtlm(nveccount) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
454 |
CTRL_SET_UNPACK_XYZ |
fld3dDim(i,j,k,bi,bj)=fld3dNodim(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
457 |
CTRL_SET_UNPACK_XYZ |
fld3dDim(i,j,k,bi,bj) = fld3dNodim(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
460 |
CTRL_SET_UNPACK_XYZ |
fld3dDim(i,j,k,bi,bj) = |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
461 |
CTRL_SET_UNPACK_XYZ |
& fld3dNodim(i,j,k,bi,bj) * delZnorm |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
463 |
CTRL_SET_UNPACK_XYZ |
& / sqrt(wei3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
465 |
CTRL_SET_UNPACK_XYZ |
& / sqrt(weightfld(k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
468 |
CTRL_SET_UNPACK_XYZ |
fld3dDim(i,j,k,bi,bj) = |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
469 |
CTRL_SET_UNPACK_XYZ |
& fld3dNodim(i,j,k,bi,bj) / delZnorm |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
471 |
CTRL_SET_UNPACK_XYZ |
& * sqrt(wei3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
473 |
CTRL_SET_UNPACK_XYZ |
& * sqrt(weightfld(k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
53 |
CTRL_SET_UNPACK_XYZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
99 |
CTRL_SET_UNPACK_XYZ |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
105 |
CTRL_SET_UNPACK_XZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
111 |
CTRL_SET_UNPACK_XZ |
globfldxz (i,bi,ip,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
115 |
CTRL_SET_UNPACK_XZ |
globmskxz(i,bi,ip,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
124 |
CTRL_SET_UNPACK_XZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
131 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
185 |
CTRL_SET_UNPACK_XZ |
k = 1 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
223 |
CTRL_SET_UNPACK_XZ |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
224 |
CTRL_SET_UNPACK_XZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
225 |
CTRL_SET_UNPACK_XZ |
cbuffindex = nwetglobal(k,iobcs) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
234 |
CTRL_SET_UNPACK_XZ |
if (filek .NE. k) then |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
236 |
CTRL_SET_UNPACK_XZ |
& filek, k |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
243 |
CTRL_SET_UNPACK_XZ |
jj=mod((j-1)*nr+k-1,sny)+1 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
244 |
CTRL_SET_UNPACK_XZ |
kk=int((j-1)*nr+k-1)/sny+1 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
250 |
CTRL_SET_UNPACK_XZ |
if ( globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
262 |
CTRL_SET_UNPACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
264 |
CTRL_SET_UNPACK_XZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
313 |
CTRL_SET_UNPACK_XZ |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
314 |
CTRL_SET_UNPACK_XZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
315 |
CTRL_SET_UNPACK_XZ |
cbuffindex = nwetglobal(k,iobcs) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
324 |
CTRL_SET_UNPACK_XZ |
if (filek .NE. k) then |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
326 |
CTRL_SET_UNPACK_XZ |
& filek, k |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
338 |
CTRL_SET_UNPACK_XZ |
if ( globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
340 |
CTRL_SET_UNPACK_XZ |
globfldxz(i,bi,ip,bj,jp,k) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
345 |
CTRL_SET_UNPACK_XZ |
globfldxz(i,bi,ip,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
346 |
CTRL_SET_UNPACK_XZ |
& globfldxz(i,bi,ip,bj,jp,k)/ |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
348 |
CTRL_SET_UNPACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
350 |
CTRL_SET_UNPACK_XZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
354 |
CTRL_SET_UNPACK_XZ |
globfldxz(i,bi,ip,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
358 |
CTRL_SET_UNPACK_XZ |
& globfldxz(i,bi,ip,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
56 |
CTRL_SET_UNPACK_XZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
105 |
CTRL_SET_UNPACK_YZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
111 |
CTRL_SET_UNPACK_YZ |
globfldyz (bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
115 |
CTRL_SET_UNPACK_YZ |
globmskyz(bi,ip,j,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
124 |
CTRL_SET_UNPACK_YZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
131 |
CTRL_SET_UNPACK_YZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
185 |
CTRL_SET_UNPACK_YZ |
k = 1 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
223 |
CTRL_SET_UNPACK_YZ |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
224 |
CTRL_SET_UNPACK_YZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
225 |
CTRL_SET_UNPACK_YZ |
cbuffindex = nwetglobal(k,iobcs) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
234 |
CTRL_SET_UNPACK_YZ |
if (filek .NE. k) then |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
236 |
CTRL_SET_UNPACK_YZ |
& filek, k |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
247 |
CTRL_SET_UNPACK_YZ |
ii=mod((i-1)*nr*sny+(k-1)*sny+j-1,snx)+1 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
248 |
CTRL_SET_UNPACK_YZ |
jj=mod(((i-1)*nr*sny+(k-1)*sny+j-1)/snx,sny)+1 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
249 |
CTRL_SET_UNPACK_YZ |
kk=int((i-1)*nr*sny+(k-1)*sny+j-1)/(snx*sny)+1 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
250 |
CTRL_SET_UNPACK_YZ |
if ( globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
262 |
CTRL_SET_UNPACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
264 |
CTRL_SET_UNPACK_YZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
311 |
CTRL_SET_UNPACK_YZ |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
312 |
CTRL_SET_UNPACK_YZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
313 |
CTRL_SET_UNPACK_YZ |
cbuffindex = nwetglobal(k,iobcs) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
322 |
CTRL_SET_UNPACK_YZ |
if (filek .NE. k) then |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
324 |
CTRL_SET_UNPACK_YZ |
& filek, k |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
335 |
CTRL_SET_UNPACK_YZ |
if ( globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
337 |
CTRL_SET_UNPACK_YZ |
globfldyz(bi,ip,j,bj,jp,k) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
342 |
CTRL_SET_UNPACK_YZ |
globfldyz(bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
343 |
CTRL_SET_UNPACK_YZ |
& globfldyz(bi,ip,j,bj,jp,k)/ |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
345 |
CTRL_SET_UNPACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
347 |
CTRL_SET_UNPACK_YZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
351 |
CTRL_SET_UNPACK_YZ |
globfldyz(bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
355 |
CTRL_SET_UNPACK_YZ |
& globfldyz(bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
56 |
CTRL_SET_UNPACK_YZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_smooth.F |
17 |
CTRL_SMOOTH |
integer k, bi, bj |
|
./pkg/ctrl/ctrl_smooth.F |
41 |
CTRL_SMOOTH |
k=1 |
|
./pkg/ctrl/ctrl_smooth.F |
51 |
CTRL_SMOOTH |
& p25 * mask(i ,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
52 |
CTRL_SMOOTH |
& p125 * ( mask(im1,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
53 |
CTRL_SMOOTH |
& mask(ip1,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
54 |
CTRL_SMOOTH |
& mask(i ,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
55 |
CTRL_SMOOTH |
& mask(i ,jp1,k,bi,bj) ) + |
|
./pkg/ctrl/ctrl_smooth.F |
56 |
CTRL_SMOOTH |
& p0625 * ( mask(im1,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
57 |
CTRL_SMOOTH |
& mask(im1,jp1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
58 |
CTRL_SMOOTH |
& mask(ip1,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
59 |
CTRL_SMOOTH |
& mask(ip1,jp1,k,bi,bj) ) |
|
./pkg/ctrl/ctrl_smooth.F |
62 |
CTRL_SMOOTH |
& p25 * fld(i ,j,bi,bj )*mask(i ,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
63 |
CTRL_SMOOTH |
& p125 *(fld(im1,j ,bi,bj )*mask(im1,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
64 |
CTRL_SMOOTH |
& fld(ip1,j ,bi,bj )*mask(ip1,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
65 |
CTRL_SMOOTH |
& fld(i ,jm1,bi,bj)*mask(i ,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
66 |
CTRL_SMOOTH |
& fld(i ,jp1,bi,bj)*mask(i ,jp1,k,bi,bj))+ |
|
./pkg/ctrl/ctrl_smooth.F |
67 |
CTRL_SMOOTH |
& p0625*(fld(im1,jm1,bi,bj)*mask(im1,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
68 |
CTRL_SMOOTH |
& fld(im1,jp1,bi,bj)*mask(im1,jp1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
69 |
CTRL_SMOOTH |
& fld(ip1,jm1,bi,bj)*mask(ip1,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
70 |
CTRL_SMOOTH |
& fld(ip1,jp1,bi,bj)*mask(ip1,jp1,k,bi,bj))) |
|
./pkg/ctrl/ctrl_summary.F |
111 |
CTRL_SUMMARY |
do k = 1,nr |
|
./pkg/ctrl/ctrl_summary.F |
112 |
CTRL_SUMMARY |
nwetcenter = nwetcenter + nwetctile(bi,bj,k) |
|
./pkg/ctrl/ctrl_summary.F |
113 |
CTRL_SUMMARY |
nwetsouth = nwetsouth + nwetstile(bi,bj,k) |
|
./pkg/ctrl/ctrl_summary.F |
114 |
CTRL_SUMMARY |
nwetwest = nwetwest + nwetwtile(bi,bj,k) |
|
./pkg/ctrl/ctrl_summary.F |
42 |
CTRL_SUMMARY |
integer i,k |
|
./pkg/ctrl/ctrl_unpack.F |
208 |
CTRL_UNPACK |
read(cunit) (filenWetcGlobal(k), k=1,nr) |
|
./pkg/ctrl/ctrl_unpack.F |
209 |
CTRL_UNPACK |
read(cunit) (filenWetsGlobal(k), k=1,nr) |
|
./pkg/ctrl/ctrl_unpack.F |
210 |
CTRL_UNPACK |
read(cunit) (filenWetwGlobal(k), k=1,nr) |
|
./pkg/ctrl/ctrl_unpack.F |
212 |
CTRL_UNPACK |
read(cunit) (filenWetvGlobal(k), k=1,nr) |
|
./pkg/ctrl/ctrl_unpack.F |
217 |
CTRL_UNPACK |
read(cunit) ((filenWetobcsnGlo(k,iobcs), |
|
./pkg/ctrl/ctrl_unpack.F |
218 |
CTRL_UNPACK |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_unpack.F |
221 |
CTRL_UNPACK |
read(cunit) ((filenWetobcssGlo(k,iobcs), |
|
./pkg/ctrl/ctrl_unpack.F |
222 |
CTRL_UNPACK |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_unpack.F |
225 |
CTRL_UNPACK |
read(cunit) ((filenWetobcswGlo(k,iobcs), |
|
./pkg/ctrl/ctrl_unpack.F |
226 |
CTRL_UNPACK |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_unpack.F |
229 |
CTRL_UNPACK |
read(cunit) ((filenWetobcseGlo(k,iobcs), |
|
./pkg/ctrl/ctrl_unpack.F |
230 |
CTRL_UNPACK |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_unpack.F |
252 |
CTRL_UNPACK |
do k = 1, nr |
|
./pkg/ctrl/ctrl_unpack.F |
253 |
CTRL_UNPACK |
if ( filenWetcGlobal(k) .NE. nWetcGlobal(k) .OR. |
|
./pkg/ctrl/ctrl_unpack.F |
254 |
CTRL_UNPACK |
& filenWetsGlobal(k) .NE. nWetsGlobal(k) .OR. |
|
./pkg/ctrl/ctrl_unpack.F |
255 |
CTRL_UNPACK |
& filenWetwGlobal(k) .NE. nWetwGlobal(k) .OR. |
|
./pkg/ctrl/ctrl_unpack.F |
256 |
CTRL_UNPACK |
& filenWetvGlobal(k) .NE. nWetvGlobal(k) ) then |
|
./pkg/ctrl/ctrl_unpack.F |
257 |
CTRL_UNPACK |
print *, 'WARNING: wrong nWet?Global for k = ', k |
|
./pkg/ctrl/ctrl_unpack.F |
266 |
CTRL_UNPACK |
do k = 1, nr |
|
./pkg/ctrl/ctrl_unpack.F |
267 |
CTRL_UNPACK |
if (filenWetobcsnGlo(k,iobcs) .NE. |
|
./pkg/ctrl/ctrl_unpack.F |
268 |
CTRL_UNPACK |
& nWetobcsnGlo(k,iobcs)) then |
|
./pkg/ctrl/ctrl_unpack.F |
269 |
CTRL_UNPACK |
print *, 'WARNING: OBCSN wrong nWet?Global for k = ', k |
|
./pkg/ctrl/ctrl_unpack.F |
278 |
CTRL_UNPACK |
do k = 1, nr |
|
./pkg/ctrl/ctrl_unpack.F |
279 |
CTRL_UNPACK |
if (filenWetobcssGlo(k,iobcs) .NE. |
|
./pkg/ctrl/ctrl_unpack.F |
280 |
CTRL_UNPACK |
& nWetobcssGlo(k,iobcs)) then |
|
./pkg/ctrl/ctrl_unpack.F |
281 |
CTRL_UNPACK |
print *, 'WARNING: OBCSS wrong nWet?Global for k = ', k |
|
./pkg/ctrl/ctrl_unpack.F |
290 |
CTRL_UNPACK |
do k = 1, nr |
|
./pkg/ctrl/ctrl_unpack.F |
291 |
CTRL_UNPACK |
if (filenWetobcswGlo(k,iobcs) .NE. |
|
./pkg/ctrl/ctrl_unpack.F |
292 |
CTRL_UNPACK |
& nWetobcswGlo(k,iobcs)) then |
|
./pkg/ctrl/ctrl_unpack.F |
293 |
CTRL_UNPACK |
print *, 'WARNING: OBCSW wrong nWet?Global for k = ', k |
|
./pkg/ctrl/ctrl_unpack.F |
302 |
CTRL_UNPACK |
do k = 1, nr |
|
./pkg/ctrl/ctrl_unpack.F |
303 |
CTRL_UNPACK |
if (filenWetobcseGlo(k,iobcs) .NE. |
|
./pkg/ctrl/ctrl_unpack.F |
304 |
CTRL_UNPACK |
& nWetobcseGlo(k,iobcs)) then |
|
./pkg/ctrl/ctrl_unpack.F |
305 |
CTRL_UNPACK |
print *, 'WARNING: OBCSE wrong nWet?Global for k = ', k |
|
./pkg/ctrl/ctrl_unpack.F |
69 |
CTRL_UNPACK |
integer i, j, k |
|
./pkg/ctrl/ctrl_volflux.F |
182 |
CTRL_VOLFLUX |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_volflux.F |
187 |
CTRL_VOLFLUX |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_volflux.F |
198 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
202 |
CTRL_VOLFLUX |
tmpflux = tmpflux -tmpx*delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
231 |
CTRL_VOLFLUX |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_volflux.F |
235 |
CTRL_VOLFLUX |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_volflux.F |
247 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
252 |
CTRL_VOLFLUX |
tmpflux = tmpflux +tmpx*delR(k)*dxg(i,j+jp1,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
285 |
CTRL_VOLFLUX |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_volflux.F |
289 |
CTRL_VOLFLUX |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_volflux.F |
302 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) * dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
308 |
CTRL_VOLFLUX |
tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
347 |
CTRL_VOLFLUX |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_volflux.F |
351 |
CTRL_VOLFLUX |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_volflux.F |
365 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) * dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
373 |
CTRL_VOLFLUX |
tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
377 |
CTRL_VOLFLUX |
tmparea = tmparea + delR(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ctrl/ctrl_volflux.F |
60 |
CTRL_VOLFLUX |
integer i,j,k |
|
./pkg/debug/debug_cs_corner_uv.F |
109 |
DEBUG_CS_CORNER_UV |
& n1,tmpU(1,k,n1,1), n2,tmpV(4,k,n2,1), |
|
./pkg/debug/debug_cs_corner_uv.F |
110 |
DEBUG_CS_CORNER_UV |
& tmpU(1,k,n1,1) - tmpV(4,k,n2,1) |
|
./pkg/debug/debug_cs_corner_uv.F |
112 |
DEBUG_CS_CORNER_UV |
& n1,tmpU(2,k,n1,1), n2,tmpV(3,k,n2,1), |
|
./pkg/debug/debug_cs_corner_uv.F |
113 |
DEBUG_CS_CORNER_UV |
& tmpU(2,k,n1,1) - tmpV(3,k,n2,1) |
|
./pkg/debug/debug_cs_corner_uv.F |
117 |
DEBUG_CS_CORNER_UV |
& n1,tmpU(1,k,n1,1), n2,tmpU(3,k,n2,1), |
|
./pkg/debug/debug_cs_corner_uv.F |
118 |
DEBUG_CS_CORNER_UV |
& tmpU(1,k,n1,1) - tmpU(3,k,n2,1) |
|
./pkg/debug/debug_cs_corner_uv.F |
120 |
DEBUG_CS_CORNER_UV |
& n1,tmpU(2,k,n1,1), n2,tmpU(4,k,n2,1), |
|
./pkg/debug/debug_cs_corner_uv.F |
121 |
DEBUG_CS_CORNER_UV |
& tmpU(2,k,n1,1) - tmpU(4,k,n2,1) |
|
./pkg/debug/debug_cs_corner_uv.F |
125 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(1,k,n1,1), n3,tmpV(3,k,n3,1), |
|
./pkg/debug/debug_cs_corner_uv.F |
126 |
DEBUG_CS_CORNER_UV |
& tmpV(1,k,n1,1) - tmpV(3,k,n3,1) |
|
./pkg/debug/debug_cs_corner_uv.F |
128 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(2,k,n1,1), n3,tmpV(4,k,n3,1), |
|
./pkg/debug/debug_cs_corner_uv.F |
129 |
DEBUG_CS_CORNER_UV |
& tmpV(2,k,n1,1) - tmpV(4,k,n3,1) |
|
./pkg/debug/debug_cs_corner_uv.F |
133 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(1,k,n1,1), n3,tmpU(4,k,n3,1), |
|
./pkg/debug/debug_cs_corner_uv.F |
134 |
DEBUG_CS_CORNER_UV |
& tmpV(1,k,n1,1) - tmpU(4,k,n3,1) |
|
./pkg/debug/debug_cs_corner_uv.F |
136 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(2,k,n1,1), n3,tmpU(3,k,n3,1), |
|
./pkg/debug/debug_cs_corner_uv.F |
137 |
DEBUG_CS_CORNER_UV |
& tmpV(2,k,n1,1) - tmpU(3,k,n3,1) |
|
./pkg/debug/debug_cs_corner_uv.F |
151 |
DEBUG_CS_CORNER_UV |
& n1,tmpU(1,k,n1,1), n2,tmpV(4,k,n2,1), |
|
./pkg/debug/debug_cs_corner_uv.F |
152 |
DEBUG_CS_CORNER_UV |
& tmpU(1,k,n1,1) - tmpV(4,k,n2,1) |
|
./pkg/debug/debug_cs_corner_uv.F |
154 |
DEBUG_CS_CORNER_UV |
& n1,tmpU(2,k,n1,1), n2,tmpV(3,k,n2,1), |
|
./pkg/debug/debug_cs_corner_uv.F |
155 |
DEBUG_CS_CORNER_UV |
& tmpU(2,k,n1,1) - tmpV(3,k,n2,1) |
|
./pkg/debug/debug_cs_corner_uv.F |
157 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(1,k,n1,1), n3,tmpV(3,k,n3,1), |
|
./pkg/debug/debug_cs_corner_uv.F |
158 |
DEBUG_CS_CORNER_UV |
& tmpV(1,k,n1,1) - tmpV(3,k,n3,1) |
|
./pkg/debug/debug_cs_corner_uv.F |
160 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(2,k,n1,1), n3,tmpV(4,k,n3,1), |
|
./pkg/debug/debug_cs_corner_uv.F |
161 |
DEBUG_CS_CORNER_UV |
& tmpV(2,k,n1,1) - tmpV(4,k,n3,1) |
|
./pkg/debug/debug_cs_corner_uv.F |
172 |
DEBUG_CS_CORNER_UV |
& n1,tmpU(1,k,n1,1), n2,tmpU(3,k,n2,1), |
|
./pkg/debug/debug_cs_corner_uv.F |
173 |
DEBUG_CS_CORNER_UV |
& tmpU(1,k,n1,1) - tmpU(3,k,n2,1) |
|
./pkg/debug/debug_cs_corner_uv.F |
175 |
DEBUG_CS_CORNER_UV |
& n1,tmpU(2,k,n1,1), n2,tmpU(4,k,n2,1), |
|
./pkg/debug/debug_cs_corner_uv.F |
176 |
DEBUG_CS_CORNER_UV |
& tmpU(2,k,n1,1) - tmpU(4,k,n2,1) |
|
./pkg/debug/debug_cs_corner_uv.F |
178 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(1,k,n1,1), n3,tmpU(4,k,n3,1), |
|
./pkg/debug/debug_cs_corner_uv.F |
179 |
DEBUG_CS_CORNER_UV |
& tmpV(1,k,n1,1) - tmpU(4,k,n3,1) |
|
./pkg/debug/debug_cs_corner_uv.F |
181 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(2,k,n1,1), n3,tmpU(3,k,n3,1), |
|
./pkg/debug/debug_cs_corner_uv.F |
182 |
DEBUG_CS_CORNER_UV |
& tmpV(2,k,n1,1) - tmpU(3,k,n3,1) |
|
./pkg/debug/debug_cs_corner_uv.F |
48 |
DEBUG_CS_CORNER_UV |
INTEGER k, ioUnit |
|
./pkg/debug/debug_cs_corner_uv.F |
78 |
DEBUG_CS_CORNER_UV |
tmpU(1,k,bi,bj)= uFld(1,j) |
|
./pkg/debug/debug_cs_corner_uv.F |
79 |
DEBUG_CS_CORNER_UV |
tmpU(2,k,bi,bj)= uFld(1,sNy+1-j) |
|
./pkg/debug/debug_cs_corner_uv.F |
80 |
DEBUG_CS_CORNER_UV |
tmpU(3,k,bi,bj)= uFld(sNx+1,j) |
|
./pkg/debug/debug_cs_corner_uv.F |
81 |
DEBUG_CS_CORNER_UV |
tmpU(4,k,bi,bj)= uFld(sNx+1,sNy+1-j) |
|
./pkg/debug/debug_cs_corner_uv.F |
82 |
DEBUG_CS_CORNER_UV |
tmpV(1,k,bi,bj)= vFld(j,1) |
|
./pkg/debug/debug_cs_corner_uv.F |
83 |
DEBUG_CS_CORNER_UV |
tmpV(2,k,bi,bj)= vFld(sNx+1-j,1) |
|
./pkg/debug/debug_cs_corner_uv.F |
84 |
DEBUG_CS_CORNER_UV |
tmpV(3,k,bi,bj)= vFld(j,sNy+1) |
|
./pkg/debug/debug_cs_corner_uv.F |
85 |
DEBUG_CS_CORNER_UV |
tmpV(4,k,bi,bj)= vFld(sNx+1-j,sNy+1) |
|
./pkg/debug/debug_cs_corner_uv.F |
98 |
DEBUG_CS_CORNER_UV |
& ' Edges values near a corner, lev=',k |
|
./pkg/debug/debug_cs_corner_uv.F |
9 |
DEBUG_CS_CORNER_UV |
I k, ioUnit, bi,bj, myThid ) |
|
./pkg/debug/fill_in_corners_rl.F |
37 |
FILL_IN_CORNERS_RL |
INTEGER i, j, k |
|
./pkg/debug/fill_in_corners_rl.F |
43 |
FILL_IN_CORNERS_RL |
DO k=1,Ksize |
|
./pkg/debug/fill_in_corners_rl.F |
48 |
FILL_IN_CORNERS_RL |
fld(i,j,k,bi,bj) = spvFld |
|
./pkg/debug/fill_in_corners_rl.F |
49 |
FILL_IN_CORNERS_RL |
fld(ii,j,k,bi,bj) = spvFld |
|
./pkg/debug/fill_in_corners_rl.F |
50 |
FILL_IN_CORNERS_RL |
fld(i,jj,k,bi,bj) = spvFld |
|
./pkg/debug/fill_in_corners_rl.F |
51 |
FILL_IN_CORNERS_RL |
fld(ii,jj,k,bi,bj) = spvFld |
|
./pkg/debug/write_fullarray_rl.F |
119 |
WRITE_FULLARRAY_RL |
DO k = 1,kSize |
|
./pkg/debug/write_fullarray_rl.F |
120 |
WRITE_FULLARRAY_RL |
kRec = k + (iRec-1)*kSize |
|
./pkg/debug/write_fullarray_rl.F |
121 |
WRITE_FULLARRAY_RL |
WRITE(dUnit,rec=kRec) (( fld(i,j,k,1,1), |
|
./pkg/debug/write_fullarray_rl.F |
51 |
WRITE_FULLARRAY_RL |
INTEGER i,j,k,bi,bj,iG,jG |
|
./pkg/debug/write_fullarray_rl.F |
90 |
WRITE_FULLARRAY_RL |
DO k = 1,kSize |
|
./pkg/debug/write_fullarray_rl.F |
91 |
WRITE_FULLARRAY_RL |
kRec = k + (iRec-1)*kSize |
|
./pkg/debug/write_fullarray_rl.F |
92 |
WRITE_FULLARRAY_RL |
WRITE(dUnit,rec=kRec) (( fld(i,j,k,bi,bj), |
|
./pkg/diagnostics/diag_vegtile_fill.F |
151 |
DIAG_VEGTILE_FILL |
DO k = kFirst,kLast |
|
./pkg/diagnostics/diag_vegtile_fill.F |
152 |
DIAG_VEGTILE_FILL |
kd = kd0 + ksgn*k |
|
./pkg/diagnostics/diag_vegtile_fill.F |
158 |
DIAG_VEGTILE_FILL |
IF ( field(ivt,k).EQ.undef ) THEN |
|
./pkg/diagnostics/diag_vegtile_fill.F |
162 |
DIAG_VEGTILE_FILL |
& + field(ivt,k)*chfr(ivt) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
171 |
DIAG_VEGTILE_FILL |
& + field(ivt,k)*chfr(ivt) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
202 |
DIAG_VEGTILE_FILL |
DO k=1,diagSt_nbActv(l) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
203 |
DIAG_VEGTILE_FILL |
IF ( iSdiag(k,l).EQ.-iSp ) THEN |
|
./pkg/diagnostics/diag_vegtile_fill.F |
233 |
DIAG_VEGTILE_FILL |
DO k = kFirst,kLast |
|
./pkg/diagnostics/diag_vegtile_fill.F |
235 |
DIAG_VEGTILE_FILL |
gridField(ij,k)= 0. |
|
./pkg/diagnostics/diag_vegtile_fill.F |
240 |
DIAG_VEGTILE_FILL |
IF ( field(ivt,k).EQ.undef ) THEN |
|
./pkg/diagnostics/diag_vegtile_fill.F |
241 |
DIAG_VEGTILE_FILL |
gridField(ij,k) = undef |
|
./pkg/diagnostics/diag_vegtile_fill.F |
243 |
DIAG_VEGTILE_FILL |
gridField(ij,k) = gridField(ij,k) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
244 |
DIAG_VEGTILE_FILL |
& + field(ivt,k)*chfr(ivt)/gridFrac(ij) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
251 |
DIAG_VEGTILE_FILL |
gridField(ij,k) = gridField(ij,k) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
252 |
DIAG_VEGTILE_FILL |
& + field(ivt,k)*chfr(ivt)/gridFrac(ij) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
60 |
DIAG_VEGTILE_FILL |
INTEGER k, kFirst, kLast |
|
./pkg/diagnostics/diagnostics_check.F |
124 |
DIAGNOSTICS_CHECK |
DO k=1,nlevels(ld) |
|
./pkg/diagnostics/diagnostics_check.F |
125 |
DIAGNOSTICS_CHECK |
IF ( levs(k,ld)-MAX(rF(1),rF(Nr+1)).GT.margin |
|
./pkg/diagnostics/diagnostics_check.F |
126 |
DIAGNOSTICS_CHECK |
& .OR. levs(k,ld)-MIN(rF(1),rF(Nr+1)).LT.-margin |
|
./pkg/diagnostics/diagnostics_check.F |
127 |
DIAGNOSTICS_CHECK |
& .OR. levs(k,ld).LE.0. ) THEN |
|
./pkg/diagnostics/diagnostics_check.F |
134 |
DIAGNOSTICS_CHECK |
& ' lev(k=', k, ') p=', levs(k,ld), |
|
./pkg/diagnostics/diagnostics_check.F |
32 |
DIAGNOSTICS_CHECK |
INTEGER k,m |
|
./pkg/diagnostics/diagnostics_clear.F |
77 |
DIAGNOSTICS_CLRDIAG |
INTEGER i,j,k |
|
./pkg/diagnostics/diagnostics_clear.F |
86 |
DIAGNOSTICS_CLRDIAG |
DO k = 1,nLev |
|
./pkg/diagnostics/diagnostics_clear.F |
87 |
DIAGNOSTICS_CLRDIAG |
kl = ipt+k-1 |
|
./pkg/diagnostics/diagnostics_fill.F |
123 |
DIAGNOSTICS_FILL |
DO k=1,diagSt_nbActv(l) |
|
./pkg/diagnostics/diagnostics_fill.F |
124 |
DIAGNOSTICS_FILL |
IF ( iSdiag(k,l).EQ.-iSp ) THEN |
|
./pkg/diagnostics/diagnostics_fill.F |
65 |
DIAGNOSTICS_FILL |
INTEGER m, n, j, k, l, bi, bj |
|
./pkg/diagnostics/diagnostics_fill_field.F |
219 |
DIAGNOSTICS_FILL_FIELD |
DO k = kFirst,kLast |
|
./pkg/diagnostics/diagnostics_fill_field.F |
220 |
DIAGNOSTICS_FILL_FIELD |
kd = kd0 + ksgn*k |
|
./pkg/diagnostics/diagnostics_fill_field.F |
226 |
DIAGNOSTICS_FILL_FIELD |
I iRun,jRun,k,bi,bj, |
|
./pkg/diagnostics/diagnostics_fill_field.F |
234 |
DIAGNOSTICS_FILL_FIELD |
DO k = kFirst,kLast |
|
./pkg/diagnostics/diagnostics_fill_field.F |
235 |
DIAGNOSTICS_FILL_FIELD |
kd = kd0 + ksgn*k |
|
./pkg/diagnostics/diagnostics_fill_field.F |
241 |
DIAGNOSTICS_FILL_FIELD |
I iRun,jRun,k,bi,bj, |
|
./pkg/diagnostics/diagnostics_fill_field.F |
267 |
DIAGNOSTICS_CUMULATE |
I iRun,jRun,k,bi,bj, |
|
./pkg/diagnostics/diagnostics_fill_field.F |
312 |
DIAGNOSTICS_CUMULATE |
INTEGER iRun, jRun, k, bi, bj |
|
./pkg/diagnostics/diagnostics_fill_field.F |
327 |
DIAGNOSTICS_CUMULATE |
l = MIN(k,sizF) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
333 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
334 |
DIAGNOSTICS_CUMULATE |
& *inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
342 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
343 |
DIAGNOSTICS_CUMULATE |
& *inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
351 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
352 |
DIAGNOSTICS_CUMULATE |
& *inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
360 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
361 |
DIAGNOSTICS_CUMULATE |
& *inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
370 |
DIAGNOSTICS_CUMULATE |
l = MIN(k,sizF) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
376 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
384 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
392 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
400 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
414 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
415 |
DIAGNOSTICS_CUMULATE |
& *inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
422 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
423 |
DIAGNOSTICS_CUMULATE |
& *inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
440 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
447 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
96 |
DIAGNOSTICS_FILL_FIELD |
INTEGER iRun, jRun, k, bi, bj |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
123 |
DIAGNOSTICS_FILL_RS |
DO k=1,diagSt_nbActv(l) |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
124 |
DIAGNOSTICS_FILL_RS |
IF ( iSdiag(k,l).EQ.-iSp ) THEN |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
65 |
DIAGNOSTICS_FILL_RS |
INTEGER m, n, j, k, l, bi, bj |
|
./pkg/diagnostics/diagnostics_fill_state.F |
121 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpU,'UE_VEL_C',k,1,2,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
122 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpV,'VN_VEL_C',k,1,2,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
150 |
DIAGNOSTICS_FILL_STATE |
km1 = MAX(k-1,1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
170 |
DIAGNOSTICS_FILL_STATE |
km1 = MAX(k-1,1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
224 |
DIAGNOSTICS_FILL_STATE |
km1 = MAX(k-1,1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
273 |
DIAGNOSTICS_FILL_STATE |
km1 = MAX(k-1,1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
292 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = uVel(i,j,K,bi,bj)*hFacW(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
308 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,K,bi,bj) = vVel(i,j,K,bi,bj)*hFacS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
326 |
DIAGNOSTICS_FILL_STATE |
DO k = Nr,1,-1 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
329 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = tmp1k(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
330 |
DIAGNOSTICS_FILL_STATE |
& + (rF(k)-rC(k))*hFacC(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
334 |
DIAGNOSTICS_FILL_STATE |
& + drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
430 |
DIAGNOSTICS_FILL_STATE |
dummy1 = theta(i,j,k,bi,bj) * ((rc(k)/100.)/1000.)**kappa |
|
./pkg/diagnostics/diagnostics_fill_state.F |
431 |
DIAGNOSTICS_FILL_STATE |
dummy2 = rc(k) / 100. |
|
./pkg/diagnostics/diagnostics_fill_state.F |
434 |
DIAGNOSTICS_FILL_STATE |
. salt(i,j,k,bi,bj) * 100. / dummy3 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
568 |
DIAGNOSTICS_FILL_STATE |
km1 = MAX(k-1,1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
619 |
DIAGNOSTICS_FILL_STATE |
km1 = MAX(k-1,1) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
169 |
DIAGNOSTICS_FRACT_FILL |
DO k=1,diagSt_nbActv(l) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
170 |
DIAGNOSTICS_FRACT_FILL |
IF ( iSdiag(k,l).EQ.-iSp ) THEN |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
78 |
DIAGNOSTICS_FRACT_FILL |
INTEGER m, n, j, k, l, bi, bj |
|
./pkg/diagnostics/diagnostics_init_varia.F |
30 |
DIAGNOSTICS_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/diagnostics/diagnostics_init_varia.F |
35 |
DIAGNOSTICS_INIT_VARIA |
DO k = 1,numDiags |
|
./pkg/diagnostics/diagnostics_init_varia.F |
38 |
DIAGNOSTICS_INIT_VARIA |
qdiag(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diagnostics_init_varia.F |
42 |
DIAGNOSTICS_INIT_VARIA |
ndiag(k,bi,bj) = 0 |
|
./pkg/diagnostics/diagnostics_init_varia.F |
44 |
DIAGNOSTICS_INIT_VARIA |
DO k = 1,numlists |
|
./pkg/diagnostics/diagnostics_init_varia.F |
46 |
DIAGNOSTICS_INIT_VARIA |
pdiag(k,bi,bj) = 0 |
|
./pkg/diagnostics/diagnostics_init_varia.F |
54 |
DIAGNOSTICS_INIT_VARIA |
DO k = 1,diagSt_size |
|
./pkg/diagnostics/diagnostics_init_varia.F |
57 |
DIAGNOSTICS_INIT_VARIA |
qSdiag(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
118 |
DIAGNOSTICS_INTERP_VERT |
DO k = 1,kdiag(jpoint2) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
119 |
DIAGNOSTICS_INTERP_VERT |
tmpLev = k |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
121 |
DIAGNOSTICS_INTERP_VERT |
O qtmp2(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
137 |
DIAGNOSTICS_INTERP_VERT |
DO k = 1,kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
140 |
DIAGNOSTICS_INTERP_VERT |
qtmp2(i,j,k,bi,bj) = rC(k) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
161 |
DIAGNOSTICS_INTERP_VERT |
DO k = 1,kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
164 |
DIAGNOSTICS_INTERP_VERT |
qinp(i,j,k) = qtmp1(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
165 |
DIAGNOSTICS_INTERP_VERT |
pkz(i,j,k) = qtmp2(i,j,k,bi,bj)**kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
170 |
DIAGNOSTICS_INTERP_VERT |
DO k = 1,kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
172 |
DIAGNOSTICS_INTERP_VERT |
kLev = kdiag(ndId)-k+1 |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
178 |
DIAGNOSTICS_INTERP_VERT |
qinp(i,j,k)= qtmp1(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
180 |
DIAGNOSTICS_INTERP_VERT |
qinp(i,j,k)= undef |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
182 |
DIAGNOSTICS_INTERP_VERT |
pkz(i,j,k) = qtmp2(i,j,kLev,bi,bj)**kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
189 |
DIAGNOSTICS_INTERP_VERT |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
190 |
DIAGNOSTICS_INTERP_VERT |
pk = levs(k,listId)**kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
199 |
DIAGNOSTICS_INTERP_VERT |
qtmp1(i,j,k,bi,bj) = 0. |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
201 |
DIAGNOSTICS_INTERP_VERT |
qtmp1(i,j,k,bi,bj) = qprs(i,j) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
63 |
DIAGNOSTICS_INTERP_VERT |
INTEGER i, j, k |
|
./pkg/diagnostics/diagnostics_out.F |
368 |
DIAGNOSTICS_OUT |
DO k = 1,nLevOutp |
|
./pkg/diagnostics/diagnostics_out.F |
371 |
DIAGNOSTICS_OUT |
qtmp1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diagnostics_out.F |
408 |
DIAGNOSTICS_OUT |
DO k = 1,kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_out.F |
409 |
DIAGNOSTICS_OUT |
tmpLev = k |
|
./pkg/diagnostics/diagnostics_out.F |
412 |
DIAGNOSTICS_OUT |
O qtmp1(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/diagnostics/diagnostics_out.F |
421 |
DIAGNOSTICS_OUT |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
423 |
DIAGNOSTICS_OUT |
I levs(k,listId),undef, |
|
./pkg/diagnostics/diagnostics_out.F |
424 |
DIAGNOSTICS_OUT |
O qtmp1(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/diagnostics/diagnostics_out.F |
568 |
DIAGNOSTICS_OUT |
DO k = 1,nLevOutp |
|
./pkg/diagnostics/diagnostics_out.F |
569 |
DIAGNOSTICS_OUT |
klev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_out.F |
574 |
DIAGNOSTICS_OUT |
& qtmp1(i,j,k,bi,bj) = misvalLoc |
|
./pkg/diagnostics/diagnostics_out.F |
67 |
DIAGNOSTICS_OUT |
INTEGER i, j, k, lm |
|
./pkg/diagnostics/diagnostics_readparms.F |
102 |
DIAGNOSTICS_READPARMS |
DO k=1,LEN(blkFilName) |
|
./pkg/diagnostics/diagnostics_readparms.F |
103 |
DIAGNOSTICS_READPARMS |
blkFilName(k:k) = ' ' |
|
./pkg/diagnostics/diagnostics_readparms.F |
116 |
DIAGNOSTICS_READPARMS |
DO k = 1,kdimLoc |
|
./pkg/diagnostics/diagnostics_readparms.F |
117 |
DIAGNOSTICS_READPARMS |
levels(k,l) = UNSET_RL |
|
./pkg/diagnostics/diagnostics_readparms.F |
133 |
DIAGNOSTICS_READPARMS |
DO k = 1,rdimLoc |
|
./pkg/diagnostics/diagnostics_readparms.F |
134 |
DIAGNOSTICS_READPARMS |
set_regMask(k) = 0 |
|
./pkg/diagnostics/diagnostics_readparms.F |
135 |
DIAGNOSTICS_READPARMS |
val_regMask(k) = 0. |
|
./pkg/diagnostics/diagnostics_readparms.F |
141 |
DIAGNOSTICS_READPARMS |
DO k = 1,rdimLoc |
|
./pkg/diagnostics/diagnostics_readparms.F |
142 |
DIAGNOSTICS_READPARMS |
stat_region(k,l) = UNSET_I |
|
./pkg/diagnostics/diagnostics_readparms.F |
195 |
DIAGNOSTICS_READPARMS |
DO k = 1,numLevels |
|
./pkg/diagnostics/diagnostics_readparms.F |
196 |
DIAGNOSTICS_READPARMS |
levs(k,n) = 0 |
|
./pkg/diagnostics/diagnostics_readparms.F |
262 |
DIAGNOSTICS_READPARMS |
DO k=1,kdimLoc |
|
./pkg/diagnostics/diagnostics_readparms.F |
263 |
DIAGNOSTICS_READPARMS |
IF ( levels(k,l).NE.UNSET_RL .AND. |
|
./pkg/diagnostics/diagnostics_readparms.F |
266 |
DIAGNOSTICS_READPARMS |
levs(nlevels(n),n) = levels(k,l) |
|
./pkg/diagnostics/diagnostics_readparms.F |
267 |
DIAGNOSTICS_READPARMS |
ELSEIF ( levels(k,l).NE.UNSET_RL ) THEN |
|
./pkg/diagnostics/diagnostics_readparms.F |
272 |
DIAGNOSTICS_READPARMS |
& 'when trying to add level(k=', k, ' )=', levels(k,l) |
|
./pkg/diagnostics/diagnostics_readparms.F |
353 |
DIAGNOSTICS_READPARMS |
DO k = 1,rdimLoc |
|
./pkg/diagnostics/diagnostics_readparms.F |
354 |
DIAGNOSTICS_READPARMS |
IF ( set_regMask(k).NE.0 .OR. val_regMask(k).NE.0. ) THEN |
|
./pkg/diagnostics/diagnostics_readparms.F |
357 |
DIAGNOSTICS_READPARMS |
diagSt_kRegMsk(j) = set_regMask(k) |
|
./pkg/diagnostics/diagnostics_readparms.F |
358 |
DIAGNOSTICS_READPARMS |
diagSt_vRegMsk(j) = val_regMask(k) |
|
./pkg/diagnostics/diagnostics_readparms.F |
385 |
DIAGNOSTICS_READPARMS |
DO k=1,rdimLoc |
|
./pkg/diagnostics/diagnostics_readparms.F |
386 |
DIAGNOSTICS_READPARMS |
j = stat_region(k,l) |
|
./pkg/diagnostics/diagnostics_readparms.F |
497 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A,1P10E10.3)')' interp: ', (levs(k,n),k=l,m) |
|
./pkg/diagnostics/diagnostics_readparms.F |
505 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A,20F5.0)') suffix, (levs(k,n),k=l,m) |
|
./pkg/diagnostics/diagnostics_readparms.F |
76 |
DIAGNOSTICS_READPARMS |
INTEGER j,k,l,n,m,nf |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
125 |
DIAGNOSTICS_SCALE_FILL |
DO k=1,diagSt_nbActv(l) |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
126 |
DIAGNOSTICS_SCALE_FILL |
IF ( iSdiag(k,l).EQ.-iSp ) THEN |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
69 |
DIAGNOSTICS_SCALE_FILL |
INTEGER m, n, j, k, l, bi, bj |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
125 |
DIAGNOSTICS_SCALE_FILL_RS |
DO k=1,diagSt_nbActv(l) |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
126 |
DIAGNOSTICS_SCALE_FILL_RS |
IF ( iSdiag(k,l).EQ.-iSp ) THEN |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
69 |
DIAGNOSTICS_SCALE_FILL_RS |
INTEGER m, n, j, k, l, bi, bj |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
186 |
DIAGNOSTICS_SET_POINTERS |
DO k=1,kLev |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
187 |
DIAGNOSTICS_SET_POINTERS |
levs(k,ld) = k |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
197 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(A,20F5.0)') suffix, (levs(k,ld),k=k1,k2) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
204 |
DIAGNOSTICS_SET_POINTERS |
DO k=1,nlevels(ld) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
205 |
DIAGNOSTICS_SET_POINTERS |
kLev = MAX(NINT(levs(k,ld)),kLev) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
38 |
DIAGNOSTICS_SET_POINTERS |
INTEGER i, j, k, k1, k2, mm, kLev |
|
./pkg/diagnostics/diagnostics_setdiag.F |
123 |
DIAGNOSTICS_SETDIAG |
DO k=1,MIN(nActive(l),numperlist) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
124 |
DIAGNOSTICS_SETDIAG |
IF (flag .AND. jdiag(k,l).GT.0) THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
125 |
DIAGNOSTICS_SETDIAG |
IF (cdiag(mate).EQ.cdiag(jdiag(k,l)) ) THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
128 |
DIAGNOSTICS_SETDIAG |
mdiag(mId,listId) = ABS(idiag(k,l)) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
49 |
DIAGNOSTICS_SETDIAG |
INTEGER k, l |
|
./pkg/diagnostics/diagnostics_setdiag.F |
72 |
DIAGNOSTICS_SETDIAG |
DO k=1,MIN(nActive(l),numperlist) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
73 |
DIAGNOSTICS_SETDIAG |
IF (flag .AND. jdiag(k,l).GT.0) THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
74 |
DIAGNOSTICS_SETDIAG |
IF ( cdiag(ndId).EQ.cdiag(jdiag(k,l)) ) THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
77 |
DIAGNOSTICS_SETDIAG |
idiag(mId,listId) = -ABS(idiag(k,l)) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
78 |
DIAGNOSTICS_SETDIAG |
mdiag(mId,listId) = mdiag(k,l) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
101 |
DIAGNOSTICS_SUM_LEVELS |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
102 |
DIAGNOSTICS_SUM_LEVELS |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
125 |
DIAGNOSTICS_SUM_LEVELS |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
126 |
DIAGNOSTICS_SUM_LEVELS |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
141 |
DIAGNOSTICS_SUM_LEVELS |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
142 |
DIAGNOSTICS_SUM_LEVELS |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
157 |
DIAGNOSTICS_SUM_LEVELS |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
158 |
DIAGNOSTICS_SUM_LEVELS |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
173 |
DIAGNOSTICS_SUM_LEVELS |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
174 |
DIAGNOSTICS_SUM_LEVELS |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
57 |
DIAGNOSTICS_SUM_LEVELS |
INTEGER i, j, k |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
84 |
DIAGNOSTICS_SUM_LEVELS |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
85 |
DIAGNOSTICS_SUM_LEVELS |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_summary.F |
103 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A,1P10E10.3)')' interp:', (levs(k,ld),k=k1,k2) |
|
./pkg/diagnostics/diagnostics_summary.F |
108 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A,25I4)')' levels:',(NINT(levs(k,ld)),k=k1,k2) |
|
./pkg/diagnostics/diagnostics_summary.F |
34 |
DIAGNOSTICS_SUMMARY |
INTEGER j, k, k1, k2, l |
|
./pkg/diagnostics/diagstats_ascii_out.F |
43 |
DIAGSTATS_ASCII_OUT |
INTEGER i, j, k, klev, nUnit |
|
./pkg/diagnostics/diagstats_ascii_out.F |
71 |
DIAGSTATS_ASCII_OUT |
DO k=0,klev |
|
./pkg/diagnostics/diagstats_ascii_out.F |
76 |
DIAGSTATS_ASCII_OUT |
& k, (statGlob(i,k,j),i=1,nStats), statGlob(0,k,j) |
|
./pkg/diagnostics/diagstats_clear.F |
70 |
DIAGSTATS_CLRDIAG |
INTEGER i,j,k |
|
./pkg/diagnostics/diagstats_clear.F |
78 |
DIAGSTATS_CLRDIAG |
DO k = iSp,iSp+kdiag(ndId)-1 |
|
./pkg/diagnostics/diagstats_clear.F |
81 |
DIAGSTATS_CLRDIAG |
qSdiag(i,j,k,bi,bj) = 0. |
|
./pkg/diagnostics/diagstats_fill.F |
106 |
DIAGSTATS_FILL |
INTEGER iRun, jRun, k, bi, bj |
|
./pkg/diagnostics/diagstats_fill.F |
222 |
DIAGSTATS_FILL |
DO k = kFirst,kLast |
|
./pkg/diagnostics/diagstats_fill.F |
223 |
DIAGSTATS_FILL |
kd = kd0 + ksgn*k |
|
./pkg/diagnostics/diagstats_fill.F |
224 |
DIAGSTATS_FILL |
km = km0 + ksgn*k |
|
./pkg/diagnostics/diagstats_fill.F |
230 |
DIAGSTATS_FILL |
I iRun,jRun,k,bi,bj, |
|
./pkg/diagnostics/diagstats_fill.F |
239 |
DIAGSTATS_FILL |
DO k = kFirst,kLast |
|
./pkg/diagnostics/diagstats_fill.F |
240 |
DIAGSTATS_FILL |
kd = kd0 + ksgn*k |
|
./pkg/diagnostics/diagstats_fill.F |
241 |
DIAGSTATS_FILL |
km = km0 + ksgn*k |
|
./pkg/diagnostics/diagstats_fill.F |
247 |
DIAGSTATS_FILL |
I iRun,jRun,k,bi,bj, |
|
./pkg/diagnostics/diagstats_fill.F |
258 |
DIAGSTATS_FILL |
DO k = kFirst,kLast |
|
./pkg/diagnostics/diagstats_fill.F |
259 |
DIAGSTATS_FILL |
kd = kd0 + ksgn*k |
|
./pkg/diagnostics/diagstats_fill.F |
260 |
DIAGSTATS_FILL |
km = km0 + ksgn*k |
|
./pkg/diagnostics/diagstats_fill.F |
266 |
DIAGSTATS_FILL |
I iRun,jRun,k,bi,bj, myThid ) |
|
./pkg/diagnostics/diagstats_fill.F |
281 |
DIAGSTATS_FILL |
DO k = kFirst,kLast |
|
./pkg/diagnostics/diagstats_fill.F |
282 |
DIAGSTATS_FILL |
kd = kd0 + ksgn*k |
|
./pkg/diagnostics/diagstats_fill.F |
283 |
DIAGSTATS_FILL |
km = km0 + ksgn*k |
|
./pkg/diagnostics/diagstats_fill.F |
289 |
DIAGSTATS_FILL |
I iRun,jRun,k,bi,bj, myThid ) |
|
./pkg/diagnostics/diagstats_global.F |
111 |
DIAGSTATS_GLOBAL |
DO k=1,klev |
|
./pkg/diagnostics/diagstats_global.F |
112 |
DIAGSTATS_GLOBAL |
tmpVol = qtmp1(0,k) |
|
./pkg/diagnostics/diagstats_global.F |
114 |
DIAGSTATS_GLOBAL |
_GLOBAL_SUM_RL(qtmp1(i,k),myThid) |
|
./pkg/diagnostics/diagstats_global.F |
116 |
DIAGSTATS_GLOBAL |
IF ( qtmp1(0,k).GT.0. .AND. tmpVol.LE.0. ) THEN |
|
./pkg/diagnostics/diagstats_global.F |
118 |
DIAGSTATS_GLOBAL |
tmpMax = qtmp1(1,k)/qtmp1(0,k) |
|
./pkg/diagnostics/diagstats_global.F |
121 |
DIAGSTATS_GLOBAL |
tmpMin = -qtmp1(im,k) |
|
./pkg/diagnostics/diagstats_global.F |
122 |
DIAGSTATS_GLOBAL |
tmpMax = qtmp1(ix,k) |
|
./pkg/diagnostics/diagstats_global.F |
126 |
DIAGSTATS_GLOBAL |
qtmp1(im,k) = -tmpMin |
|
./pkg/diagnostics/diagstats_global.F |
127 |
DIAGSTATS_GLOBAL |
qtmp1(ix,k) = tmpMax |
|
./pkg/diagnostics/diagstats_global.F |
130 |
DIAGSTATS_GLOBAL |
DO k=1,kMlev |
|
./pkg/diagnostics/diagstats_global.F |
132 |
DIAGSTATS_GLOBAL |
_GLOBAL_SUM_RL(qtmp2(i,k),myThid) |
|
./pkg/diagnostics/diagstats_global.F |
138 |
DIAGSTATS_GLOBAL |
DO k=1,klev |
|
./pkg/diagnostics/diagstats_global.F |
139 |
DIAGSTATS_GLOBAL |
IF ( qtmp1(0,k).GT.0. ) THEN |
|
./pkg/diagnostics/diagstats_global.F |
142 |
DIAGSTATS_GLOBAL |
qtmp1(i,0) = qtmp1(i,k) |
|
./pkg/diagnostics/diagstats_global.F |
146 |
DIAGSTATS_GLOBAL |
qtmp1(i,0) = qtmp1(i,0) + qtmp1(i,k) |
|
./pkg/diagnostics/diagstats_global.F |
148 |
DIAGSTATS_GLOBAL |
qtmp1(im,0) = MIN(qtmp1(im,0),qtmp1(im,k)) |
|
./pkg/diagnostics/diagstats_global.F |
149 |
DIAGSTATS_GLOBAL |
qtmp1(ix,0) = MAX(qtmp1(ix,0),qtmp1(ix,k)) |
|
./pkg/diagnostics/diagstats_global.F |
154 |
DIAGSTATS_GLOBAL |
DO k=1,kMlev |
|
./pkg/diagnostics/diagstats_global.F |
155 |
DIAGSTATS_GLOBAL |
IF ( qtmp2(0,k).GT.0. ) THEN |
|
./pkg/diagnostics/diagstats_global.F |
158 |
DIAGSTATS_GLOBAL |
qtmp2(i,0) = qtmp2(i,k) |
|
./pkg/diagnostics/diagstats_global.F |
162 |
DIAGSTATS_GLOBAL |
qtmp2(i,0) = qtmp2(i,0) + qtmp2(i,k) |
|
./pkg/diagnostics/diagstats_global.F |
172 |
DIAGSTATS_GLOBAL |
DO k=0,klev |
|
./pkg/diagnostics/diagstats_global.F |
173 |
DIAGSTATS_GLOBAL |
IF ( qtmp1(0,k).LE.0. ) THEN |
|
./pkg/diagnostics/diagstats_global.F |
175 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = undef |
|
./pkg/diagnostics/diagstats_global.F |
179 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = qtmp1(i,k) / qtmp1(0,k) |
|
./pkg/diagnostics/diagstats_global.F |
182 |
DIAGSTATS_GLOBAL |
qtmp1(iv,k) = qtmp1(iv,k) - qtmp1(1,k)*qtmp1(1,k) |
|
./pkg/diagnostics/diagstats_global.F |
184 |
DIAGSTATS_GLOBAL |
IF (qtmp1(iv,k).GT.0.) qtmp1(iv,k) = SQRT(qtmp1(iv,k)) |
|
./pkg/diagnostics/diagstats_global.F |
191 |
DIAGSTATS_GLOBAL |
DO k=0,klev |
|
./pkg/diagnostics/diagstats_global.F |
192 |
DIAGSTATS_GLOBAL |
kCnt = min(k,kMlev) |
|
./pkg/diagnostics/diagstats_global.F |
195 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = undef |
|
./pkg/diagnostics/diagstats_global.F |
199 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = undef |
|
./pkg/diagnostics/diagstats_global.F |
203 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = qtmp1(i,k) / qtmp2(1,kCnt) |
|
./pkg/diagnostics/diagstats_global.F |
207 |
DIAGSTATS_GLOBAL |
qtmp1(iv,k) = qtmp1(iv,k) - qtmp1(1,k)*qtmp1(1,k) |
|
./pkg/diagnostics/diagstats_global.F |
209 |
DIAGSTATS_GLOBAL |
IF (qtmp1(iv,k).GT.0.) qtmp1(iv,k) = SQRT(qtmp1(iv,k)) |
|
./pkg/diagnostics/diagstats_global.F |
50 |
DIAGSTATS_GLOBAL |
INTEGER i, k, kd, kCnt, klev, kMlev |
|
./pkg/diagnostics/diagstats_global.F |
56 |
DIAGSTATS_GLOBAL |
DO k=0,nLev |
|
./pkg/diagnostics/diagstats_global.F |
58 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = 0. |
|
./pkg/diagnostics/diagstats_global.F |
59 |
DIAGSTATS_GLOBAL |
qtmp2(i,k) = 0. |
|
./pkg/diagnostics/diagstats_global.F |
73 |
DIAGSTATS_GLOBAL |
DO k=1,klev |
|
./pkg/diagnostics/diagstats_global.F |
74 |
DIAGSTATS_GLOBAL |
kd = iSp + k - 1 |
|
./pkg/diagnostics/diagstats_global.F |
76 |
DIAGSTATS_GLOBAL |
IF ( qtmp1(0,k).LE.0. ) THEN |
|
./pkg/diagnostics/diagstats_global.F |
78 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = qSdiag(i,jReg,kd,bi,bj) |
|
./pkg/diagnostics/diagstats_global.F |
82 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = qtmp1(i,k) + qSdiag(i,jReg,kd,bi,bj) |
|
./pkg/diagnostics/diagstats_global.F |
84 |
DIAGSTATS_GLOBAL |
qtmp1(im,k) = MIN( qtmp1(im,k),qSdiag(im,jReg,kd,bi,bj) ) |
|
./pkg/diagnostics/diagstats_global.F |
85 |
DIAGSTATS_GLOBAL |
qtmp1(ix,k) = MAX( qtmp1(ix,k),qSdiag(ix,jReg,kd,bi,bj) ) |
|
./pkg/diagnostics/diagstats_global.F |
90 |
DIAGSTATS_GLOBAL |
DO k=1,kMlev |
|
./pkg/diagnostics/diagstats_global.F |
91 |
DIAGSTATS_GLOBAL |
kd = iSm + k - 1 |
|
./pkg/diagnostics/diagstats_global.F |
93 |
DIAGSTATS_GLOBAL |
IF ( qtmp2(0,k).LE.0. ) THEN |
|
./pkg/diagnostics/diagstats_global.F |
95 |
DIAGSTATS_GLOBAL |
qtmp2(i,k) = qSdiag(i,jReg,kd,bi,bj) |
|
./pkg/diagnostics/diagstats_global.F |
99 |
DIAGSTATS_GLOBAL |
qtmp2(i,k) = qtmp2(i,k) + qSdiag(i,jReg,kd,bi,bj) |
|
./pkg/diagnostics/diagstats_local.F |
114 |
DIAGSTATS_LOCAL |
drLoc = drF(k) |
|
./pkg/diagnostics/diagstats_local.F |
115 |
DIAGSTATS_LOCAL |
IF ( parsFld(9:9).EQ.'L') drLoc = drC(k) |
|
./pkg/diagnostics/diagstats_local.F |
116 |
DIAGSTATS_LOCAL |
IF ( parsFld(9:9).EQ.'U') drLoc = drC(MIN(k+1,Nr)) |
|
./pkg/diagnostics/diagstats_local.F |
127 |
DIAGSTATS_LOCAL |
I maskW(1-Olx,1-Oly,k,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
128 |
DIAGSTATS_LOCAL |
I hFacW(1-Olx,1-Oly,k,bi,bj), rAw(1-Olx,1-Oly,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
139 |
DIAGSTATS_LOCAL |
I maskS(1-Olx,1-Oly,k,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
140 |
DIAGSTATS_LOCAL |
I hFacS(1-Olx,1-Oly,k,bi,bj), rAs(1-Olx,1-Oly,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
150 |
DIAGSTATS_LOCAL |
I maskC(1-Olx,1-Oly,k,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
151 |
DIAGSTATS_LOCAL |
I hFacC(1-Olx,1-Oly,k,bi,bj), rA(1-Olx,1-Oly,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
15 |
DIAGSTATS_LOCAL |
I k,bi,bj, region2fill, ndId, parsFld, |
|
./pkg/diagnostics/diagstats_local.F |
167 |
DIAGSTATS_LOCAL |
I k,bi,bj, parsFld, myThid ) |
|
./pkg/diagnostics/diagstats_local.F |
180 |
DIAGSTATS_LOCAL |
I k,bi,bj, parsFld, myThid ) |
|
./pkg/diagnostics/diagstats_local.F |
70 |
DIAGSTATS_LOCAL |
INTEGER k, bi, bj, ndId |
|
./pkg/diagnostics/diagstats_mnc_out.F |
301 |
DIAGSTATS_MNC_OUT |
DO k = 1,kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
302 |
DIAGSTATS_MNC_OUT |
stmp(k,j+1) = statGlob(ist,k,j) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
55 |
DIAGSTATS_MNC_OUT |
INTEGER i, j, k |
|
./pkg/diagnostics/diagstats_others_calc.F |
143 |
DIAGSTATS_G_CALC |
I k,bi,bj, parsFld, myThid ) |
|
./pkg/diagnostics/diagstats_others_calc.F |
198 |
DIAGSTATS_G_CALC |
INTEGER k, bi, bj |
|
./pkg/diagnostics/diagstats_others_calc.F |
212 |
DIAGSTATS_G_CALC |
kl = MIN(k,land_nLev) |
|
./pkg/diagnostics/diagstats_others_calc.F |
21 |
DIAGSTATS_LM_CALC |
I k,bi,bj, parsFld, myThid ) |
|
./pkg/diagnostics/diagstats_others_calc.F |
74 |
DIAGSTATS_LM_CALC |
INTEGER k, bi, bj |
|
./pkg/diagnostics/diagstats_others_calc.F |
92 |
DIAGSTATS_LM_CALC |
kl = 1 + Nrphys - k |
|
./pkg/diagnostics/diagstats_set_pointers.F |
39 |
DIAGSTATS_SET_POINTERS |
INTEGER j, k, l |
|
./pkg/diagnostics/diagstats_set_pointers.F |
89 |
DIAGSTATS_SET_POINTERS |
DO k=1,diagSt_nbActv(l) |
|
./pkg/diagnostics/diagstats_set_pointers.F |
90 |
DIAGSTATS_SET_POINTERS |
IF ( diagSt_Flds(k,l).EQ.cdiag(-mate) ) inList=.TRUE. |
|
./pkg/diagnostics/diagstats_set_regions.F |
101 |
DIAGSTATS_SET_REGIONS |
& ' DIAGSTATS_SET_REGIONS: set k=',k,' <= done' |
|
./pkg/diagnostics/diagstats_set_regions.F |
108 |
DIAGSTATS_SET_REGIONS |
diagSt_regMask(i,j,k,bi,bj) = tmpVar(i,j,bi,bj) |
|
./pkg/diagnostics/diagstats_set_regions.F |
43 |
DIAGSTATS_SET_REGIONS |
INTEGER k, nbReg |
|
./pkg/diagnostics/diagstats_set_regions.F |
57 |
DIAGSTATS_SET_REGIONS |
DO k=1,sizRegMsk |
|
./pkg/diagnostics/diagstats_set_regions.F |
60 |
DIAGSTATS_SET_REGIONS |
diagSt_regMask(i,j,k,bi,bj) = 0. |
|
./pkg/diagnostics/diagstats_set_regions.F |
94 |
DIAGSTATS_SET_REGIONS |
DO k=1,nSetRegMskFile |
|
./pkg/diagnostics/diagstats_set_regions.F |
97 |
DIAGSTATS_SET_REGIONS |
& ' DIAGSTATS_SET_REGIONS: reading set k=',k |
|
./pkg/diagnostics/diagstats_set_regions.F |
98 |
DIAGSTATS_SET_REGIONS |
CALL READ_REC_XY_RS( diagSt_regMaskFile, tmpVar, k, |
|
./pkg/diagnostics/diagstats_setdiag.F |
116 |
DIAGSTATS_SETDIAG |
DO k=1,MIN(diagSt_nbActv(l),numperlist) |
|
./pkg/diagnostics/diagstats_setdiag.F |
117 |
DIAGSTATS_SETDIAG |
IF (flag .AND. jSdiag(k,l).GT.0) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
118 |
DIAGSTATS_SETDIAG |
IF (cdiag(mate).EQ.cdiag(jSdiag(k,l)) ) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
121 |
DIAGSTATS_SETDIAG |
mSdiag(mId,listId) = ABS(iSdiag(k,l)) |
|
./pkg/diagnostics/diagstats_setdiag.F |
49 |
DIAGSTATS_SETDIAG |
INTEGER k, l |
|
./pkg/diagnostics/diagstats_setdiag.F |
69 |
DIAGSTATS_SETDIAG |
DO k=1,MIN(diagSt_nbActv(l),numperlist) |
|
./pkg/diagnostics/diagstats_setdiag.F |
70 |
DIAGSTATS_SETDIAG |
IF (flag .AND. jSdiag(k,l).GT.0) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
71 |
DIAGSTATS_SETDIAG |
IF (cdiag(ndId).EQ.cdiag(jSdiag(k,l)) ) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
74 |
DIAGSTATS_SETDIAG |
iSdiag(mId,listId) = -ABS(iSdiag(k,l)) |
|
./pkg/diagnostics/diagstats_setdiag.F |
75 |
DIAGSTATS_SETDIAG |
mSdiag(mId,listId) = mSdiag(k,l) |
|
./pkg/dic/bio_export.F |
101 |
BIO_EXPORT |
DO k=1,nlev |
|
./pkg/dic/bio_export.F |
105 |
BIO_EXPORT |
atten=(k0*drF(k)*hFacC(i,j,k,bi,bj)*.5 _d 0) |
|
./pkg/dic/bio_export.F |
106 |
BIO_EXPORT |
if (k.gt.1) atten=atten+(k0*drF(k-1) |
|
./pkg/dic/bio_export.F |
107 |
BIO_EXPORT |
& *hFacC(i,j,k-1,bi,bj)*.5 _d 0) |
|
./pkg/dic/bio_export.F |
118 |
BIO_EXPORT |
tmppo4=max(0. _d 0, PTR_PO4(i,j,k)) |
|
./pkg/dic/bio_export.F |
121 |
BIO_EXPORT |
tmppo4=PTR_PO4(i,j,k) |
|
./pkg/dic/bio_export.F |
126 |
BIO_EXPORT |
tmpfe=max(0. _d 0,PTR_FE(i,j,k)) |
|
./pkg/dic/bio_export.F |
128 |
BIO_EXPORT |
tmpfe=PTR_FE(i,j,k) |
|
./pkg/dic/bio_export.F |
147 |
BIO_EXPORT |
bioac(i,j,k)=alpha(i,j,bi,bj)* |
|
./pkg/dic/bio_export.F |
148 |
BIO_EXPORT |
& lit(i,j)/(lit(i,j)+lit0)*maskC(i,j,k,bi,bj)* |
|
./pkg/dic/bio_export.F |
58 |
BIO_EXPORT |
INTEGER I,J,k |
|
./pkg/dic/calcite_saturation.F |
109 |
CALCITE_SATURATION |
I theta(i,j,k,bi,bj),salt(i,j,k,bi,bj), |
|
./pkg/dic/calcite_saturation.F |
118 |
CALCITE_SATURATION |
I i,j,k,bi,bj,myIter,myThid ) |
|
./pkg/dic/calcite_saturation.F |
127 |
CALCITE_SATURATION |
omegaC(i,j,k,bi,bj) = calcium * carbonate / |
|
./pkg/dic/calcite_saturation.F |
155 |
CALCITE_SATURATION |
omegaC(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/dic/calcite_saturation.F |
51 |
CALCITE_SATURATION |
INTEGER I,J,k |
|
./pkg/dic/calcite_saturation.F |
73 |
CALCITE_SATURATION |
DO k=1,Nr |
|
./pkg/dic/calcite_saturation.F |
78 |
CALCITE_SATURATION |
I k,myThid) |
|
./pkg/dic/calcite_saturation.F |
84 |
CALCITE_SATURATION |
if ( hFacC(i,j,k,bi,bj) .gt. 0. _d 0 ) then |
|
./pkg/dic/calcite_saturation.F |
86 |
CALCITE_SATURATION |
calcium = 1.028 _d -2*salt(i,j,k,bi,bj)/35. _d 0 |
|
./pkg/dic/calcite_saturation.F |
90 |
CALCITE_SATURATION |
po4local = PTR_PO4(i,j,k) |
|
./pkg/dic/calcite_saturation.F |
91 |
CALCITE_SATURATION |
diclocal = PTR_DIC(i,j,k) |
|
./pkg/dic/calcite_saturation.F |
92 |
CALCITE_SATURATION |
alklocal = PTR_ALK(i,j,k) |
|
./pkg/dic/car_flux.F |
52 |
CAR_FLUX |
INTEGER I,J,k, ko, kop1 |
|
./pkg/dic/car_flux.F |
62 |
CAR_FLUX |
DO k=1,nlev |
|
./pkg/dic/car_flux.F |
66 |
CAR_FLUX |
IF (hFacC(i,j,k,bi,bj).GT.0. _d 0) THEN |
|
./pkg/dic/car_flux.F |
69 |
CAR_FLUX |
IF (k.EQ.Nr) THEN |
|
./pkg/dic/car_flux.F |
70 |
CAR_FLUX |
cflux(i,j,k)=cflux(i,j,k) + CAR_S(i,j,k) |
|
./pkg/dic/car_flux.F |
71 |
CAR_FLUX |
ELSEIF ( _hFacC(i,j,k+1,bi,bj).EQ.0. _d 0 ) THEN |
|
./pkg/dic/car_flux.F |
72 |
CAR_FLUX |
cflux(i,j,k)=cflux(i,j,k) + CAR_S(i,j,k) |
|
./pkg/dic/car_flux.F |
75 |
CAR_FLUX |
caexport(i,j) = CAR_S(i,j,k)*drF(k) * _hFacC(i,j,k,bi,bj) |
|
./pkg/dic/car_flux.F |
82 |
CAR_FLUX |
zbase=-rF(k+1) |
|
./pkg/dic/car_flux.F |
92 |
CAR_FLUX |
DO ko=k+1,Nr-1 |
|
./pkg/dic/car_flux_omega_top.F |
158 |
CAR_FLUX_OMEGA_TOP |
if (ko.eq.k+1) then |
|
./pkg/dic/car_flux_omega_top.F |
159 |
CAR_FLUX_OMEGA_TOP |
if (iflx.eq.1.and.omegaC(i,j,k,bi,bj) .gt. 1.d0) then |
|
./pkg/dic/car_flux_omega_top.F |
162 |
CAR_FLUX_OMEGA_TOP |
& +bioac(i,j,k)*(1.0-DOPfraction)* |
|
./pkg/dic/car_flux_omega_top.F |
164 |
CAR_FLUX_OMEGA_TOP |
& *drF(k)*hFacC(i,j,k,bi,bj)/ |
|
./pkg/dic/car_flux_omega_top.F |
168 |
CAR_FLUX_OMEGA_TOP |
cflux(i,j,k)=cflux(i,j,k) |
|
./pkg/dic/car_flux_omega_top.F |
169 |
CAR_FLUX_OMEGA_TOP |
& +bioac(i,j,k)*(1.0-DOPfraction)* |
|
./pkg/dic/car_flux_omega_top.F |
54 |
CAR_FLUX_OMEGA_TOP |
INTEGER I,J,k, ko |
|
./pkg/dic/car_flux_omega_top.F |
83 |
CAR_FLUX_OMEGA_TOP |
do k=1,nR |
|
./pkg/dic/car_flux_omega_top.F |
84 |
CAR_FLUX_OMEGA_TOP |
cflux(i,j,k)=0.d0 |
|
./pkg/dic/car_flux_omega_top.F |
86 |
CAR_FLUX_OMEGA_TOP |
DO k=1,nLev |
|
./pkg/dic/car_flux_omega_top.F |
87 |
CAR_FLUX_OMEGA_TOP |
if (hFacC(i,j,k,bi,bj).gt.0.d0) then |
|
./pkg/dic/car_flux_omega_top.F |
88 |
CAR_FLUX_OMEGA_TOP |
caexport(i,j)= R_CP*rain_ratio(i,j,bi,bj)*bioac(i,j,k)* |
|
./pkg/dic/car_flux_omega_top.F |
89 |
CAR_FLUX_OMEGA_TOP |
& (1.0-DOPfraction)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/dic/car_flux_omega_top.F |
92 |
CAR_FLUX_OMEGA_TOP |
Do ko=k+1,Nr |
|
./pkg/dic/car_flux_omega_top.F |
94 |
CAR_FLUX_OMEGA_TOP |
if (ko .eq. k+1) then |
|
./pkg/dic/carbon_chem.F |
29 |
CALC_PCO2 |
I i,j,k,bi,bj,myIter,myThid ) |
|
./pkg/dic/carbon_chem.F |
336 |
CALC_PCO2_APPROX_CO3 |
I i,j,k,bi,bj,myIter,myThid ) |
|
./pkg/dic/carbon_chem.F |
378 |
CALC_PCO2_APPROX_CO3 |
INTEGER i,j,k,bi,bj,myIter |
|
./pkg/dic/carbon_chem.F |
486 |
CALC_PCO2_APPROX |
I i,j,k,bi,bj,myIter,myThid ) |
|
./pkg/dic/carbon_chem.F |
525 |
CALC_PCO2_APPROX |
INTEGER i,j,k,bi,bj,myIter |
|
./pkg/dic/carbon_chem.F |
64 |
CALC_PCO2 |
INTEGER i,j,k,bi,bj,myIter |
|
./pkg/dic/carbon_chem.F |
923 |
CARBON_COEFFS_PRESSURE_DEP |
INTEGER k |
|
./pkg/dic/carbon_chem.F |
961 |
CARBON_COEFFS_PRESSURE_DEP |
do k = 1,Klevel |
|
./pkg/dic/carbon_chem.F |
962 |
CARBON_COEFFS_PRESSURE_DEP |
cdepth = bdepth + 0.5d0*drF(k) |
|
./pkg/dic/carbon_chem.F |
963 |
CARBON_COEFFS_PRESSURE_DEP |
bdepth = bdepth + drF(k) |
|
./pkg/dic/dic_atmos.F |
148 |
DIC_ATMOS |
DO k=1,Nr |
|
./pkg/dic/dic_atmos.F |
152 |
DIC_ATMOS |
& + ( pTracer(i,j,k,bi,bj,1) |
|
./pkg/dic/dic_atmos.F |
154 |
DIC_ATMOS |
& +R_cp*pTracer(i,j,k,bi,bj,4) |
|
./pkg/dic/dic_atmos.F |
157 |
DIC_ATMOS |
& *drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/dic/dic_atmos.F |
57 |
DIC_ATMOS |
INTEGER bi, bj, i,j,k |
|
./pkg/dic/dic_aver.F |
37 |
DIC_AVER |
INTEGER i, j, bi, bj, k, it |
|
./pkg/dic/dic_aver.F |
47 |
DIC_AVER |
DO k=1,Nr |
|
./pkg/dic/dic_aver.F |
50 |
DIC_AVER |
po4ann(i,j,k,bi,bj)=po4ann(i,j,k,bi,bj)+ |
|
./pkg/dic/dic_aver.F |
51 |
DIC_AVER |
& PTRACER(i,j,k,bi,bj,3)*deltaTclock |
|
./pkg/dic/dic_aver.F |
52 |
DIC_AVER |
o2ann(i,j,k,bi,bj)=o2ann(i,j,k,bi,bj)+ |
|
./pkg/dic/dic_aver.F |
53 |
DIC_AVER |
& PTRACER(i,j,k,bi,bj,5)*deltaTclock |
|
./pkg/dic/dic_aver_init.F |
117 |
DIC_AVER_INIT |
do k=1,Nr |
|
./pkg/dic/dic_aver_init.F |
118 |
DIC_AVER_INIT |
call TRACER_MEANAREA(po4obs, k, |
|
./pkg/dic/dic_aver_init.F |
119 |
DIC_AVER_INIT |
& po4av(k),myThid) |
|
./pkg/dic/dic_aver_init.F |
120 |
DIC_AVER_INIT |
call TRACER_MEANAREA(o2obs, k, |
|
./pkg/dic/dic_aver_init.F |
121 |
DIC_AVER_INIT |
& o2av(k),myThid) |
|
./pkg/dic/dic_aver_init.F |
149 |
DIC_AVER_INIT |
DO k=1,Nr |
|
./pkg/dic/dic_aver_init.F |
150 |
DIC_AVER_INIT |
volvar(k)=volvar(k)+ |
|
./pkg/dic/dic_aver_init.F |
151 |
DIC_AVER_INIT |
& rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
152 |
DIC_AVER_INIT |
po4var(k)=po4var(k)+(po4obs(i,j,k,bi,bj)-po4av(k))**2 |
|
./pkg/dic/dic_aver_init.F |
153 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
154 |
DIC_AVER_INIT |
o2var(k)=o2var(k)+(o2obs(i,j,k,bi,bj)-o2av(k))**2 |
|
./pkg/dic/dic_aver_init.F |
155 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
189 |
DIC_AVER_INIT |
DO k=1,Nr |
|
./pkg/dic/dic_aver_init.F |
190 |
DIC_AVER_INIT |
po4var(k)=po4var(k)/volvar(k) |
|
./pkg/dic/dic_aver_init.F |
191 |
DIC_AVER_INIT |
o2var(k)=o2var(k)/volvar(k) |
|
./pkg/dic/dic_aver_init.F |
195 |
DIC_AVER_INIT |
DO k=1,3 |
|
./pkg/dic/dic_aver_init.F |
197 |
DIC_AVER_INIT |
po4varm(it,k)=po4varm(it,k)/volvar(k) |
|
./pkg/dic/dic_aver_init.F |
198 |
DIC_AVER_INIT |
o2varm(it,k)=o2varm(it,k)/volvar(k) |
|
./pkg/dic/dic_aver_init.F |
36 |
DIC_AVER_INIT |
INTEGER i, j, bi, bj, k, it |
|
./pkg/dic/dic_aver_init.F |
62 |
DIC_AVER_INIT |
do k=1,Nr |
|
./pkg/dic/dic_aver_init.F |
63 |
DIC_AVER_INIT |
po4av(k) = 0. _d 0 |
|
./pkg/dic/dic_aver_init.F |
64 |
DIC_AVER_INIT |
o2av(k) = 0. _d 0 |
|
./pkg/dic/dic_aver_init.F |
65 |
DIC_AVER_INIT |
po4var(k) = 0. _d 0 |
|
./pkg/dic/dic_aver_init.F |
66 |
DIC_AVER_INIT |
o2var(k) = 0. _d 0 |
|
./pkg/dic/dic_aver_init.F |
67 |
DIC_AVER_INIT |
volvar(k) = 0. _d 0 |
|
./pkg/dic/dic_aver_init.F |
70 |
DIC_AVER_INIT |
do k=1,3 |
|
./pkg/dic/dic_aver_init.F |
73 |
DIC_AVER_INIT |
po4avm(it,k) = 0. _d 0 |
|
./pkg/dic/dic_aver_init.F |
74 |
DIC_AVER_INIT |
o2avm(it,k) = 0. _d 0 |
|
./pkg/dic/dic_aver_init.F |
75 |
DIC_AVER_INIT |
po4varm(it,k)= 0. _d 0 |
|
./pkg/dic/dic_aver_init.F |
76 |
DIC_AVER_INIT |
o2varm(it,k) = 0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
102 |
DIC_BIOTIC_FORCING |
INTEGER i,j,k |
|
./pkg/dic/dic_biotic_forcing.F |
108 |
DIC_BIOTIC_FORCING |
DO k=1,Nr |
|
./pkg/dic/dic_biotic_forcing.F |
111 |
DIC_BIOTIC_FORCING |
RDOP(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
112 |
DIC_BIOTIC_FORCING |
GDIC(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
113 |
DIC_BIOTIC_FORCING |
GALK(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
114 |
DIC_BIOTIC_FORCING |
GPO4(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
115 |
DIC_BIOTIC_FORCING |
GDOP(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
116 |
DIC_BIOTIC_FORCING |
CAR(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
117 |
DIC_BIOTIC_FORCING |
BIOac(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
118 |
DIC_BIOTIC_FORCING |
pflux(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
119 |
DIC_BIOTIC_FORCING |
exportflux(i,j,k)=0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
120 |
DIC_BIOTIC_FORCING |
cflux(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
121 |
DIC_BIOTIC_FORCING |
CAR_S(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
123 |
DIC_BIOTIC_FORCING |
GO2(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
126 |
DIC_BIOTIC_FORCING |
GFE(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
127 |
DIC_BIOTIC_FORCING |
freefe(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
179 |
DIC_BIOTIC_FORCING |
DO k=1,Nr |
|
./pkg/dic/dic_biotic_forcing.F |
182 |
DIC_BIOTIC_FORCING |
CAR_S(i,j,k)=BIOac(i,j,k)*R_CP*rain_ratio(i,j,bi,bj)* |
|
./pkg/dic/dic_biotic_forcing.F |
211 |
DIC_BIOTIC_FORCING |
DO k=1,Nr |
|
./pkg/dic/dic_biotic_forcing.F |
215 |
DIC_BIOTIC_FORCING |
RDOP(i,j,k)= MAX(maskC(i,j,k,bi,bj)*KDOPRemin*PTR_DOP(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
218 |
DIC_BIOTIC_FORCING |
RDOP(i,j,k)= maskC(i,j,k,bi,bj)*KDOPRemin*PTR_DOP(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
220 |
DIC_BIOTIC_FORCING |
GPO4(i,j,k)=-BIOac(i,j,k)+pflux(i,j,k) + RDOP(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
222 |
DIC_BIOTIC_FORCING |
car(i,j,k) = cflux(i,j,k) - CAR_S(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
224 |
DIC_BIOTIC_FORCING |
GDOP(i,j,k)=+BIOac(i,j,k)*DOPfraction - RDOP(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
226 |
DIC_BIOTIC_FORCING |
GALK(i,j,k)=+2. _d 0 *car(i,j,k)-R_NP*GPO4(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
228 |
DIC_BIOTIC_FORCING |
GDIC(i,j,k)=car(i,j,k)+R_CP*GPO4(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
231 |
DIC_BIOTIC_FORCING |
if (PTR_O2(i,j,k).GT.O2crit) then |
|
./pkg/dic/dic_biotic_forcing.F |
232 |
DIC_BIOTIC_FORCING |
GO2(i,j,k)= R_OP*GPO4(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
234 |
DIC_BIOTIC_FORCING |
GO2(i,j,k)= 0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
238 |
DIC_BIOTIC_FORCING |
GFE(i,j,k) = R_FeP*GPO4(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
239 |
DIC_BIOTIC_FORCING |
& -Kscav*freefe(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
262 |
DIC_BIOTIC_FORCING |
DO k=1,Nr |
|
./pkg/dic/dic_biotic_forcing.F |
265 |
DIC_BIOTIC_FORCING |
PTR_DIC(i,j,k)= |
|
./pkg/dic/dic_biotic_forcing.F |
266 |
DIC_BIOTIC_FORCING |
& PTR_DIC(i,j,k)+GDIC(i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/dic/dic_biotic_forcing.F |
267 |
DIC_BIOTIC_FORCING |
PTR_ALK(i,j,k)= |
|
./pkg/dic/dic_biotic_forcing.F |
268 |
DIC_BIOTIC_FORCING |
& PTR_ALK(i,j,k)+GALK(i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/dic/dic_biotic_forcing.F |
269 |
DIC_BIOTIC_FORCING |
PTR_PO4(i,j,k)= |
|
./pkg/dic/dic_biotic_forcing.F |
270 |
DIC_BIOTIC_FORCING |
& PTR_PO4(i,j,k)+GPO4(i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/dic/dic_biotic_forcing.F |
271 |
DIC_BIOTIC_FORCING |
PTR_DOP(i,j,k)= |
|
./pkg/dic/dic_biotic_forcing.F |
272 |
DIC_BIOTIC_FORCING |
& PTR_DOP(i,j,k)+GDOP(i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/dic/dic_biotic_forcing.F |
274 |
DIC_BIOTIC_FORCING |
PTR_O2(i,j,k)= |
|
./pkg/dic/dic_biotic_forcing.F |
275 |
DIC_BIOTIC_FORCING |
& PTR_O2(i,j,k)+GO2(i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/dic/dic_biotic_forcing.F |
278 |
DIC_BIOTIC_FORCING |
PTR_FE(i,j,k)= |
|
./pkg/dic/dic_biotic_forcing.F |
279 |
DIC_BIOTIC_FORCING |
& PTR_FE(i,j,k)+GFE(i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/dic/dic_biotic_forcing.F |
297 |
DIC_BIOTIC_FORCING |
DO k=1,Nr |
|
./pkg/dic/dic_biotic_forcing.F |
300 |
DIC_BIOTIC_FORCING |
BIOave(i,j,k,bi,bj) =BIOave(i,j,k,bi,bj)+ |
|
./pkg/dic/dic_biotic_forcing.F |
301 |
DIC_BIOTIC_FORCING |
& BIOac(i,j,k)*deltaTclock |
|
./pkg/dic/dic_biotic_forcing.F |
302 |
DIC_BIOTIC_FORCING |
CARave(i,j,k,bi,bj) =CARave(i,j,k,bi,bj)+ |
|
./pkg/dic/dic_biotic_forcing.F |
303 |
DIC_BIOTIC_FORCING |
& CAR(i,j,k)*deltaTclock |
|
./pkg/dic/dic_biotic_forcing.F |
304 |
DIC_BIOTIC_FORCING |
OmegaCave(i,j,k,bi,bj)=OmegaCave(i,j,k,bi,bj)+ |
|
./pkg/dic/dic_biotic_forcing.F |
305 |
DIC_BIOTIC_FORCING |
& OmegaC(i,j,k,bi,bj)*deltaTclock |
|
./pkg/dic/dic_biotic_forcing.F |
306 |
DIC_BIOTIC_FORCING |
pfluxave(i,j,k,bi,bj) =pfluxave(i,j,k,bi,bj) + |
|
./pkg/dic/dic_biotic_forcing.F |
307 |
DIC_BIOTIC_FORCING |
& pflux(i,j,k)*deltaTclock |
|
./pkg/dic/dic_biotic_forcing.F |
308 |
DIC_BIOTIC_FORCING |
epfluxave(i,j,k,bi,bj)=epfluxave(i,j,k,bi,bj) + |
|
./pkg/dic/dic_biotic_forcing.F |
309 |
DIC_BIOTIC_FORCING |
& exportflux(i,j,k)*deltaTclock |
|
./pkg/dic/dic_biotic_forcing.F |
310 |
DIC_BIOTIC_FORCING |
cfluxave(i,j,k,bi,bj) =cfluxave(i,j,k,bi,bj) + |
|
./pkg/dic/dic_biotic_forcing.F |
311 |
DIC_BIOTIC_FORCING |
& cflux(i,j,k)*deltaTclock |
|
./pkg/dic/dic_cost.F |
35 |
DIC_COST |
INTEGER i, j, bi, bj, k, it |
|
./pkg/dic/dic_init_fixed.F |
31 |
DIC_INIT_FIXED |
INTEGER k |
|
./pkg/dic/dic_init_fixed.F |
72 |
DIC_INIT_FIXED |
DO k=1,dic_int2 |
|
./pkg/dic/dic_init_fixed.F |
73 |
DIC_INIT_FIXED |
READ(iUnit,*) co2atmos(k) |
|
./pkg/dic/dic_init_fixed.F |
74 |
DIC_INIT_FIXED |
WRITE(standardMessageUnit,*) 'co2atmos',co2atmos(k) |
|
./pkg/dic/dic_init_fixed.F |
86 |
DIC_INIT_FIXED |
k = 1 |
|
./pkg/dic/dic_init_fixed.F |
87 |
DIC_INIT_FIXED |
DO WHILE ( k .LT. Nr .AND. rC(k) .GE. -zcrit ) |
|
./pkg/dic/dic_init_fixed.F |
88 |
DIC_INIT_FIXED |
k = k+1 |
|
./pkg/dic/dic_init_fixed.F |
90 |
DIC_INIT_FIXED |
nlev = k |
|
./pkg/dic/dic_init_varia.F |
34 |
DIC_INIT_VARIA |
INTEGER k |
|
./pkg/dic/dic_init_varia.F |
49 |
DIC_INIT_VARIA |
DO k = 1, Nr |
|
./pkg/dic/dic_init_varia.F |
52 |
DIC_INIT_VARIA |
omegaC(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/dic/fe_chem.F |
45 |
FE_CHEM |
INTEGER i,j,k |
|
./pkg/dic/fe_chem.F |
61 |
FE_CHEM |
DO k=1,Nr |
|
./pkg/dic/fe_chem.F |
64 |
FE_CHEM |
IF ( maskC(i,j,k,bi,bj).GT.0. ) THEN |
|
./pkg/dic/fe_chem.F |
67 |
FE_CHEM |
tmpfe =MAX( 0. _d 0 , fe(i,j,k) ) |
|
./pkg/dic/fe_chem.F |
69 |
FE_CHEM |
tmpfe = fe(i,j,k) |
|
./pkg/dic/fe_chem.F |
82 |
FE_CHEM |
freefe(i,j,k) = tmpfe -FeL |
|
./pkg/dic/fe_chem.F |
84 |
FE_CHEM |
freefe(i,j,k) = 0. _d 0 |
|
./pkg/dic/fe_chem.F |
88 |
FE_CHEM |
thx=freefe(i,j,k) |
|
./pkg/dic/fe_chem.F |
91 |
FE_CHEM |
freefe(i,j,k) = |
|
./pkg/dic/fe_chem.F |
96 |
FE_CHEM |
freefe(i,j,k) = MIN(freefe(i,j,k),freefemax) |
|
./pkg/dic/fe_chem.F |
98 |
FE_CHEM |
fe(i,j,k) = FeL+freefe(i,j,k) |
|
./pkg/dic/o2_surfforcing.F |
72 |
O2_SURFFORCING |
IF (maskC(i,j,k,bi,bj).NE.0.) THEN |
|
./pkg/dic/o2_surfforcing.F |
73 |
O2_SURFFORCING |
ttemp = theta(i,j,k,bi,bj) |
|
./pkg/dic/o2_surfforcing.F |
74 |
O2_SURFFORCING |
stemp = salt(i,j,k,bi,bj) |
|
./pkg/dic/phos_flux.F |
53 |
PHOS_FLUX |
INTEGER I,J,k, ko, kop1 |
|
./pkg/dic/phos_flux.F |
63 |
PHOS_FLUX |
DO k=1,nlev |
|
./pkg/dic/phos_flux.F |
67 |
PHOS_FLUX |
IF ( _hFacC(i,j,k,bi,bj).gt.0. _d 0 ) THEN |
|
./pkg/dic/phos_flux.F |
70 |
PHOS_FLUX |
IF (k.EQ.Nr) THEN |
|
./pkg/dic/phos_flux.F |
71 |
PHOS_FLUX |
pflux(i,j,k)=pflux(i,j,k)+BIOac(i,j,k)*(1. _d 0-DOPfraction) |
|
./pkg/dic/phos_flux.F |
72 |
PHOS_FLUX |
ELSEIF (hFacC(i,j,k+1,bi,bj).EQ.0. _d 0) THEN |
|
./pkg/dic/phos_flux.F |
73 |
PHOS_FLUX |
pflux(i,j,k)=pflux(i,j,k)+BIOac(i,j,k)*(1. _d 0-DOPfraction) |
|
./pkg/dic/phos_flux.F |
76 |
PHOS_FLUX |
bexport(i,j)=BIOac(i,j,k)*(1. _d 0-DOPfraction) |
|
./pkg/dic/phos_flux.F |
77 |
PHOS_FLUX |
& *drF(k) * _hFacC(i,j,k,bi,bj) |
|
./pkg/dic/phos_flux.F |
84 |
PHOS_FLUX |
zbase=-rF(k+1) |
|
./pkg/dic/phos_flux.F |
94 |
PHOS_FLUX |
DO ko=k+1,Nr-1 |
|
./pkg/down_slope/dwnslp_apply.F |
117 |
DWNSLP_APPLY |
DO k=1,Nr |
|
./pkg/down_slope/dwnslp_apply.F |
119 |
DWNSLP_APPLY |
gTracer(ij,k) = 0. _d 0 |
|
./pkg/down_slope/dwnslp_apply.F |
146 |
DWNSLP_APPLY |
DO k=DWNSLP_deepK(n,bi,bj),kshelf,upward |
|
./pkg/down_slope/dwnslp_apply.F |
147 |
DWNSLP_APPLY |
gTrLoc(k) = DWNSLP_Transp(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
148 |
DWNSLP_APPLY |
& *( tmpFld - tracer(ijd,k,bi,bj) ) |
|
./pkg/down_slope/dwnslp_apply.F |
149 |
DWNSLP_APPLY |
& *recip_drF(k)*recip_hFac_arg(ijd,k,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
151 |
DWNSLP_APPLY |
trStar(ijd,k,bi,bj) = trStar(ijd,k,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
152 |
DWNSLP_APPLY |
& + deltaTLev(k)*gTrLoc(k) |
|
./pkg/down_slope/dwnslp_apply.F |
153 |
DWNSLP_APPLY |
tmpFld = tracer(ijd,k,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
156 |
DWNSLP_APPLY |
k = kshelf |
|
./pkg/down_slope/dwnslp_apply.F |
158 |
DWNSLP_APPLY |
& *( tmpFld - tracer(ijs,k,bi,bj) ) |
|
./pkg/down_slope/dwnslp_apply.F |
159 |
DWNSLP_APPLY |
& *recip_drF(k)*recip_hFac_arg(ijs,k,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
161 |
DWNSLP_APPLY |
trStar(ijs,k,bi,bj) = trStar(ijs,k,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
162 |
DWNSLP_APPLY |
& + deltaTLev(k)*gTrLoc(0) |
|
./pkg/down_slope/dwnslp_apply.F |
166 |
DWNSLP_APPLY |
gTracer(ijs,k) = gTracer(ijs,k) + gTrLoc(0) |
|
./pkg/down_slope/dwnslp_apply.F |
167 |
DWNSLP_APPLY |
DO k=DWNSLP_deepK(n,bi,bj),kshelf,upward |
|
./pkg/down_slope/dwnslp_apply.F |
168 |
DWNSLP_APPLY |
gTracer(ijd,k) = gTracer(ijd,k) + gTrLoc(k) |
|
./pkg/down_slope/dwnslp_apply.F |
174 |
DWNSLP_APPLY |
k=DWNSLP_deepK(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
176 |
DWNSLP_APPLY |
& bi,bj,n,ijd,ijs,k, |
|
./pkg/down_slope/dwnslp_apply.F |
177 |
DWNSLP_APPLY |
& tracer(ijd,k,bi,bj), |
|
./pkg/down_slope/dwnslp_apply.F |
178 |
DWNSLP_APPLY |
& deltaTLev(k)*DWNSLP_Transp(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
179 |
DWNSLP_APPLY |
& *recip_drF(k)*recip_hFac_arg(ijd,k,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
181 |
DWNSLP_APPLY |
& (tracer(ijs,kshelf,bi,bj)-tracer(ijd,k,bi,bj)), |
|
./pkg/down_slope/dwnslp_apply.F |
183 |
DWNSLP_APPLY |
& deltaTLev(k)*DWNSLP_Transp(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
67 |
DWNSLP_APPLY |
INTEGER ij, k |
|
./pkg/down_slope/dwnslp_calc_flow.F |
111 |
DWNSLP_CALC_FLOW |
DO k=kshelf+1,kBottom(ijd,bi,bj),downward |
|
./pkg/down_slope/dwnslp_calc_flow.F |
112 |
DWNSLP_CALC_FLOW |
IF ( rho3d(ijs,k,bi,bj).GT.rho3d(ijd,k,bi,bj) ) kdeep = k |
|
./pkg/down_slope/dwnslp_calc_flow.F |
54 |
DWNSLP_CALC_FLOW |
INTEGER k |
|
./pkg/down_slope/dwnslp_calc_rho.F |
12 |
DWNSLP_CALC_RHO |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/down_slope/dwnslp_calc_rho.F |
47 |
DWNSLP_CALC_RHO |
INTEGER k, bi, bj |
|
./pkg/down_slope/dwnslp_calc_rho.F |
71 |
DWNSLP_CALC_RHO |
kl = MIN( MAX(k,kSurfC(i,j,bi,bj)), MAX(kLowC(i,j,bi,bj),1) ) |
|
./pkg/down_slope/dwnslp_calc_rho.F |
85 |
DWNSLP_CALC_RHO |
I 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, k, |
|
./pkg/down_slope/dwnslp_calc_rho.F |
88 |
DWNSLP_CALC_RHO |
I k, bi, bj, myThid ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
232 |
DWNSLP_INIT_FIXED |
DO k = kshelf,kdeep,downward |
|
./pkg/down_slope/dwnslp_init_fixed.F |
234 |
DWNSLP_INIT_FIXED |
& drF(k)*hFacC(ideep,jdeep,k,bi,bj) ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
42 |
DWNSLP_INIT_FIXED |
INTEGER i, j, k |
|
./pkg/ebm/ebm_area_t.F |
103 |
EBM_AREA_T |
& theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
105 |
EBM_AREA_T |
& maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
41 |
EBM_AREA_T |
INTEGER i, j, k, bi, bj |
|
./pkg/ebm/ebm_area_t.F |
56 |
EBM_AREA_T |
k = 1 |
|
./pkg/ebm/ebm_area_t.F |
85 |
EBM_AREA_T |
& theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
87 |
EBM_AREA_T |
& maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
91 |
EBM_AREA_T |
& theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
93 |
EBM_AREA_T |
& maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
97 |
EBM_AREA_T |
& theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
99 |
EBM_AREA_T |
& maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_ini_vars.F |
34 |
EBM_INI_VARS |
INTEGER bi,bj,i,j,k |
|
./pkg/ebm/ebm_wind_perturb.F |
114 |
EBM_WIND_PERTURB |
winPert(i,j,bi,bj) = maskW(i,j,k,bi,bj)* |
|
./pkg/ebm/ebm_zonalmean.F |
42 |
EBM_ZONALMEAN |
INTEGER i, j, k, bi, bj |
|
./pkg/ebm/ebm_zonalmean.F |
47 |
EBM_ZONALMEAN |
k = 1 |
|
./pkg/ebm/ebm_zonalmean.F |
65 |
EBM_ZONALMEAN |
& theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_zonalmean.F |
67 |
EBM_ZONALMEAN |
& maskC(i,j,k,bi,bj) |
|
./pkg/ecco/cost_argo_salt.F |
152 |
COST_ARGO_SALT |
do k = 1,nr |
|
./pkg/ecco/cost_argo_salt.F |
164 |
COST_ARGO_SALT |
if ( (argosobs(i,j,k,bi,bj) .ge. spval) .and. |
|
./pkg/ecco/cost_argo_salt.F |
165 |
COST_ARGO_SALT |
$ (argosobs(i,j,k,bi,bj) .lt. spmax) .and. |
|
./pkg/ecco/cost_argo_salt.F |
167 |
COST_ARGO_SALT |
$ (_hFacC(i,j,k,bi,bj) .ne. 0.) ) then |
|
./pkg/ecco/cost_argo_salt.F |
169 |
COST_ARGO_SALT |
& wsalt2(i,j,k,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_argo_salt.F |
170 |
COST_ARGO_SALT |
& (sbar(i,j,k,bi,bj)-argosobs(i,j,k,bi,bj))* |
|
./pkg/ecco/cost_argo_salt.F |
171 |
COST_ARGO_SALT |
& (sbar(i,j,k,bi,bj)-argosobs(i,j,k,bi,bj)) |
|
./pkg/ecco/cost_argo_salt.F |
172 |
COST_ARGO_SALT |
if ( wsalt2(i,j,k,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_argo_salt.F |
50 |
COST_ARGO_SALT |
integer i,j,k |
|
./pkg/ecco/cost_argo_theta.F |
156 |
COST_ARGO_THETA |
do k = 1,nr |
|
./pkg/ecco/cost_argo_theta.F |
167 |
COST_ARGO_THETA |
if( (argotobs(i,j,k,bi,bj) .ne. 0.).and. |
|
./pkg/ecco/cost_argo_theta.F |
168 |
COST_ARGO_THETA |
& (argotobs(i,j,k,bi,bj) .gt. spval).and. |
|
./pkg/ecco/cost_argo_theta.F |
169 |
COST_ARGO_THETA |
& (argotobs(i,j,k,bi,bj) .lt. spmax).and. |
|
./pkg/ecco/cost_argo_theta.F |
171 |
COST_ARGO_THETA |
& (_hFacC(i,j,k,bi,bj) .ne. 0.) )then |
|
./pkg/ecco/cost_argo_theta.F |
173 |
COST_ARGO_THETA |
$ argotobs(i,j,k,bi,bj),ztop*rc(k),rl_0) |
|
./pkg/ecco/cost_argo_theta.F |
175 |
COST_ARGO_THETA |
& wtheta2(i,j,k,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_argo_theta.F |
176 |
COST_ARGO_THETA |
& (tbar(i,j,k,bi,bj)-tmpobs(i,j))* |
|
./pkg/ecco/cost_argo_theta.F |
177 |
COST_ARGO_THETA |
& (tbar(i,j,k,bi,bj)-tmpobs(i,j)) |
|
./pkg/ecco/cost_argo_theta.F |
178 |
COST_ARGO_THETA |
if ( wtheta2(i,j,k,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_argo_theta.F |
50 |
COST_ARGO_THETA |
integer i,j,k |
|
./pkg/ecco/cost_atlantic.F |
144 |
COST_ATLANTIC |
do k = 1,nr |
|
./pkg/ecco/cost_atlantic.F |
160 |
COST_ATLANTIC |
tv = tv+p5*(theta(i,j,k,bi,bj) |
|
./pkg/ecco/cost_atlantic.F |
161 |
COST_ATLANTIC |
$ + theta(i,j-1,k,bi,bj))*vVel(i,j,k,bi,bj) |
|
./pkg/ecco/cost_atlantic.F |
163 |
COST_ATLANTIC |
& * drF(k)*maskS(i,j,k,bi,bj) |
|
./pkg/ecco/cost_atlantic.F |
187 |
COST_ATLANTIC |
do k = 1,nr |
|
./pkg/ecco/cost_atlantic.F |
204 |
COST_ATLANTIC |
$ +p5*(theta(i,j,k,bi,bj) |
|
./pkg/ecco/cost_atlantic.F |
205 |
COST_ATLANTIC |
$ + theta(i,j-1,k,bi,bj))*vVel(i,j,k,bi,bj) |
|
./pkg/ecco/cost_atlantic.F |
207 |
COST_ATLANTIC |
& * drF(k)*maskS(i,j,k,bi,bj) |
|
./pkg/ecco/cost_atlantic.F |
58 |
COST_ATLANTIC |
integer i,j,k |
|
./pkg/ecco/cost_averagesfields.F |
244 |
COST_AVERAGESFIELDS |
do k = 1,nr |
|
./pkg/ecco/cost_averagesfields.F |
247 |
COST_AVERAGESFIELDS |
ubar(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
248 |
COST_AVERAGESFIELDS |
vbar(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
257 |
COST_AVERAGESFIELDS |
do k = 1,nr |
|
./pkg/ecco/cost_averagesfields.F |
260 |
COST_AVERAGESFIELDS |
ubar(i,j,k,bi,bj) = (ubar (i,j,k,bi,bj) + |
|
./pkg/ecco/cost_averagesfields.F |
261 |
COST_AVERAGESFIELDS |
& uVel(i,j,k,bi,bj) )/ |
|
./pkg/ecco/cost_averagesfields.F |
263 |
COST_AVERAGESFIELDS |
vbar(i,j,k,bi,bj) = (vbar (i,j,k,bi,bj) + |
|
./pkg/ecco/cost_averagesfields.F |
264 |
COST_AVERAGESFIELDS |
& vVel(i,j,k,bi,bj) )/ |
|
./pkg/ecco/cost_averagesfields.F |
295 |
COST_AVERAGESFIELDS |
do k = 1,nr |
|
./pkg/ecco/cost_averagesfields.F |
298 |
COST_AVERAGESFIELDS |
ubar(i,j,k,bi,bj) = ubar (i,j,k,bi,bj) + |
|
./pkg/ecco/cost_averagesfields.F |
299 |
COST_AVERAGESFIELDS |
& uVel (i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
300 |
COST_AVERAGESFIELDS |
vbar(i,j,k,bi,bj) = vbar (i,j,k,bi,bj) + |
|
./pkg/ecco/cost_averagesfields.F |
301 |
COST_AVERAGESFIELDS |
& vVel (i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
525 |
COST_AVERAGESFIELDS |
do k = 1,nr |
|
./pkg/ecco/cost_averagesfields.F |
532 |
COST_AVERAGESFIELDS |
& +vVel(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
533 |
COST_AVERAGESFIELDS |
& *_dxG(i,j,bi,bj)*drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
66 |
COST_AVERAGESFIELDS |
integer i,j,k |
|
./pkg/ecco/cost_averagesgeneric.F |
102 |
COST_AVERAGESGENERIC |
do k = 1,nnz |
|
./pkg/ecco/cost_averagesgeneric.F |
105 |
COST_AVERAGESGENERIC |
localbar(i,j,k,bi,bj) = |
|
./pkg/ecco/cost_averagesgeneric.F |
106 |
COST_AVERAGESGENERIC |
& (localbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesgeneric.F |
107 |
COST_AVERAGESGENERIC |
& +localfld(i,j,k,bi,bj))/ |
|
./pkg/ecco/cost_averagesgeneric.F |
133 |
COST_AVERAGESGENERIC |
do k = 1,nnz |
|
./pkg/ecco/cost_averagesgeneric.F |
135 |
COST_AVERAGESGENERIC |
localbar(i,j,k,bi,bj) = |
|
./pkg/ecco/cost_averagesgeneric.F |
136 |
COST_AVERAGESGENERIC |
& localbar(i,j,k,bi,bj) + localfld(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesgeneric.F |
58 |
COST_AVERAGESGENERIC |
integer i,j,k |
|
./pkg/ecco/cost_averagesgeneric.F |
89 |
COST_AVERAGESGENERIC |
do k = 1,nnz |
|
./pkg/ecco/cost_averagesgeneric.F |
92 |
COST_AVERAGESGENERIC |
localbar(i,j,k,bi,bj) = localfld(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesinit.F |
109 |
COST_AVERAGESINIT |
do k = 1,nr |
|
./pkg/ecco/cost_averagesinit.F |
112 |
COST_AVERAGESINIT |
tbar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
121 |
COST_AVERAGESINIT |
k = 1 |
|
./pkg/ecco/cost_averagesinit.F |
148 |
COST_AVERAGESINIT |
do k = 1,nr |
|
./pkg/ecco/cost_averagesinit.F |
151 |
COST_AVERAGESINIT |
sbar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
160 |
COST_AVERAGESINIT |
k = 1 |
|
./pkg/ecco/cost_averagesinit.F |
174 |
COST_AVERAGESINIT |
do k = 1,nr |
|
./pkg/ecco/cost_averagesinit.F |
177 |
COST_AVERAGESINIT |
ubar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
178 |
COST_AVERAGESINIT |
vbar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
188 |
COST_AVERAGESINIT |
do k = 1,nr |
|
./pkg/ecco/cost_averagesinit.F |
191 |
COST_AVERAGESINIT |
wbar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
47 |
COST_AVERAGESINIT |
integer i,j,k |
|
./pkg/ecco/cost_averagesinit.F |
70 |
COST_AVERAGESINIT |
do k=1,NGENCOST |
|
./pkg/ecco/cost_averagesinit.F |
73 |
COST_AVERAGESINIT |
gencost_barfld(i,j,bi,bj,k) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
74 |
COST_AVERAGESINIT |
gencost_modfld(i,j,bi,bj,k) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
77 |
COST_AVERAGESINIT |
xx_genbar_dummy(k) = 0. _d 0 |
|
./pkg/ecco/cost_bottomdrag.F |
40 |
COST_BOTTOMDRAG |
integer i,j,k |
|
./pkg/ecco/cost_bp_read.F |
107 |
COST_BP_READ |
k = 1 |
|
./pkg/ecco/cost_bp_read.F |
46 |
COST_BP_READ |
integer i,j,k |
|
./pkg/ecco/cost_ctds.F |
152 |
COST_CTDS |
do k = 1,nr |
|
./pkg/ecco/cost_ctds.F |
158 |
COST_CTDS |
if (ctdsobs(i,j,k,bi,bj) .lt. spval .or. |
|
./pkg/ecco/cost_ctds.F |
159 |
COST_CTDS |
& ctdsobs(i,j,k,bi,bj) .gt. spmax .or. |
|
./pkg/ecco/cost_ctds.F |
160 |
COST_CTDS |
& ctdsobs(i,j,k,bi,bj) .eq. 0. ) then |
|
./pkg/ecco/cost_ctds.F |
164 |
COST_CTDS |
if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then |
|
./pkg/ecco/cost_ctds.F |
167 |
COST_CTDS |
tmpobs(i,j) = ctdsobs(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctds.F |
168 |
COST_CTDS |
tmpbar(i,j) = sbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctds.F |
169 |
COST_CTDS |
wtmp(i,j) = wsalt2(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctds.F |
49 |
COST_CTDS |
integer i,j,k |
|
./pkg/ecco/cost_ctdsclim.F |
133 |
COST_CTDSCLIM |
do k = 1,nr |
|
./pkg/ecco/cost_ctdsclim.F |
137 |
COST_CTDSCLIM |
sbar_gen(i,j,k,bi,bj) =sbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctdsclim.F |
139 |
COST_CTDSCLIM |
sbar(i,j,k,bi,bj) =(sbar_gen(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctdsclim.F |
140 |
COST_CTDSCLIM |
$ +sbar(i,j,k,bi,bj))/float(nyears) |
|
./pkg/ecco/cost_ctdsclim.F |
142 |
COST_CTDSCLIM |
sbar_gen(i,j,k,bi,bj) =sbar_gen(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctdsclim.F |
143 |
COST_CTDSCLIM |
$ +sbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctdsclim.F |
174 |
COST_CTDSCLIM |
do k = 1,nr |
|
./pkg/ecco/cost_ctdsclim.F |
180 |
COST_CTDSCLIM |
if (sdat(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_ctdsclim.F |
183 |
COST_CTDSCLIM |
if (sdat(i,j,k,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_ctdsclim.F |
193 |
COST_CTDSCLIM |
if (_hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_ctdsclim.F |
195 |
COST_CTDSCLIM |
& (wsalt2(i,j,k,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_ctdsclim.F |
197 |
COST_CTDSCLIM |
& (sbar(i,j,k,bi,bj) - sdat(i,j,k,bi,bj))* |
|
./pkg/ecco/cost_ctdsclim.F |
198 |
COST_CTDSCLIM |
& (sbar(i,j,k,bi,bj) - sdat(i,j,k,bi,bj)) ) |
|
./pkg/ecco/cost_ctdsclim.F |
61 |
COST_CTDSCLIM |
integer i,j,k |
|
./pkg/ecco/cost_ctdt.F |
153 |
COST_CTDT |
do k = 1,nr |
|
./pkg/ecco/cost_ctdt.F |
159 |
COST_CTDT |
if (ctdtobs(i,j,k,bi,bj) .lt. spval .or. |
|
./pkg/ecco/cost_ctdt.F |
160 |
COST_CTDT |
& ctdtobs(i,j,k,bi,bj) .gt. spmax .or. |
|
./pkg/ecco/cost_ctdt.F |
161 |
COST_CTDT |
& ctdtobs(i,j,k,bi,bj) .eq. 0. ) then |
|
./pkg/ecco/cost_ctdt.F |
167 |
COST_CTDT |
if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then |
|
./pkg/ecco/cost_ctdt.F |
170 |
COST_CTDT |
tmpobs(i,j) = ctdtobs(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctdt.F |
171 |
COST_CTDT |
tmpbar(i,j) = tbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctdt.F |
172 |
COST_CTDT |
wtmp(i,j) = wtheta2(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctdt.F |
50 |
COST_CTDT |
integer i,j,k |
|
./pkg/ecco/cost_ctdtclim.F |
132 |
COST_CTDTCLIM |
do k = 1,nr |
|
./pkg/ecco/cost_ctdtclim.F |
136 |
COST_CTDTCLIM |
tbar_gen(i,j,k,bi,bj) =tbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctdtclim.F |
138 |
COST_CTDTCLIM |
tbar(i,j,k,bi,bj) =(tbar_gen(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctdtclim.F |
139 |
COST_CTDTCLIM |
$ +tbar(i,j,k,bi,bj))/float(nyears) |
|
./pkg/ecco/cost_ctdtclim.F |
141 |
COST_CTDTCLIM |
tbar_gen(i,j,k,bi,bj) =tbar_gen(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctdtclim.F |
142 |
COST_CTDTCLIM |
$ +tbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_ctdtclim.F |
173 |
COST_CTDTCLIM |
do k = 1,nr |
|
./pkg/ecco/cost_ctdtclim.F |
179 |
COST_CTDTCLIM |
if (tdat(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_ctdtclim.F |
183 |
COST_CTDTCLIM |
if (tdat(i,j,k,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_ctdtclim.F |
193 |
COST_CTDTCLIM |
if (_hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_ctdtclim.F |
195 |
COST_CTDTCLIM |
& (wtheta2(i,j,k,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_ctdtclim.F |
197 |
COST_CTDTCLIM |
& (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj))* |
|
./pkg/ecco/cost_ctdtclim.F |
198 |
COST_CTDTCLIM |
& (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj)) ) |
|
./pkg/ecco/cost_ctdtclim.F |
61 |
COST_CTDTCLIM |
integer i,j,k |
|
./pkg/ecco/cost_curmtr.F |
162 |
COST_CURMTR |
do k = 1,nr |
|
./pkg/ecco/cost_curmtr.F |
169 |
COST_CURMTR |
if (curmtruobs(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_curmtr.F |
173 |
COST_CURMTR |
if (curmtrvobs(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_curmtr.F |
177 |
COST_CURMTR |
if (curmtruobs(i,j,k,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_curmtr.F |
181 |
COST_CURMTR |
if (curmtrvobs(i,j,k,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_curmtr.F |
197 |
COST_CURMTR |
if (_hFacW(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_curmtr.F |
201 |
COST_CURMTR |
if (_hFacS(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_curmtr.F |
213 |
COST_CURMTR |
tmpuobs(i,j) = curmtruobs(i,j,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
214 |
COST_CURMTR |
tmpubar(i,j) = ubar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
216 |
COST_CURMTR |
tmpvobs(i,j) = curmtrvobs(i,j,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
217 |
COST_CURMTR |
tmpvbar(i,j) = vbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
222 |
COST_CURMTR |
tmpubar(i,j) = ubar(5,12,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
223 |
COST_CURMTR |
tmpvbar(i,j) = (vbar(4,12,k,bi,bj) + vbar(5,12,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
224 |
COST_CURMTR |
& +vbar(4,13,k,bi,bj) + vbar(5,13,k,bi,bj))/4. |
|
./pkg/ecco/cost_curmtr.F |
227 |
COST_CURMTR |
tmpubar(i,j) = ubar(11,12,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
228 |
COST_CURMTR |
tmpvbar(i,j) = (vbar(10,12,k,bi,bj) + vbar(11,12,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
229 |
COST_CURMTR |
& +vbar(10,13,k,bi,bj) + vbar(11,13,k,bi,bj))/4. |
|
./pkg/ecco/cost_curmtr.F |
232 |
COST_CURMTR |
tmpubar(i,j) = (ubar(7,8,k,bi,bj) + ubar(8,8,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
233 |
COST_CURMTR |
& +ubar(7,9,k,bi,bj) + ubar(8,9,k,bi,bj))/4. |
|
./pkg/ecco/cost_curmtr.F |
234 |
COST_CURMTR |
tmpvbar(i,j) = vbar(7,9,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
237 |
COST_CURMTR |
tmpubar(i,j) = (ubar(5,4,k,bi,bj) + ubar(5,5,k,bi,bj))/2. |
|
./pkg/ecco/cost_curmtr.F |
238 |
COST_CURMTR |
tmpvbar(i,j) = (vbar(4,5,k,bi,bj) + vbar(5,5,k,bi,bj))/2. |
|
./pkg/ecco/cost_curmtr.F |
241 |
COST_CURMTR |
tmpubar(i,j) = (ubar(11,4,k,bi,bj)+ubar(11,5,k,bi,bj))/2. |
|
./pkg/ecco/cost_curmtr.F |
242 |
COST_CURMTR |
tmpvbar(i,j) = (vbar(10,5,k,bi,bj)+vbar(11,5,k,bi,bj))/2. |
|
./pkg/ecco/cost_curmtr.F |
247 |
COST_CURMTR |
wu(i,j) = wcurrent2(i,j,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
248 |
COST_CURMTR |
wv(i,j) = wcurrent2(i,j,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
50 |
COST_CURMTR |
integer i,j,k |
|
./pkg/ecco/cost_diffkr.F |
103 |
COST_DIFFKR |
do k = 1,nr |
|
./pkg/ecco/cost_diffkr.F |
106 |
COST_DIFFKR |
if (_hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_diffkr.F |
108 |
COST_DIFFKR |
tmpx = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ecco/cost_diffkr.F |
111 |
COST_DIFFKR |
& + wdiffkrFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_diffkr.F |
40 |
COST_DIFFKR |
integer i,j,k |
|
./pkg/ecco/cost_drift.F |
121 |
COST_DRIFT |
do k = 1,nr |
|
./pkg/ecco/cost_drift.F |
124 |
COST_DRIFT |
Tfmean(i,j,k,bi,bj) = 0.0 |
|
./pkg/ecco/cost_drift.F |
125 |
COST_DRIFT |
Sfmean(i,j,k,bi,bj) = 0.0 |
|
./pkg/ecco/cost_drift.F |
126 |
COST_DRIFT |
Tlmean(i,j,k,bi,bj) = 0.0 |
|
./pkg/ecco/cost_drift.F |
127 |
COST_DRIFT |
Slmean(i,j,k,bi,bj) = 0.0 |
|
./pkg/ecco/cost_drift.F |
158 |
COST_DRIFT |
do k = 1,nr |
|
./pkg/ecco/cost_drift.F |
161 |
COST_DRIFT |
Tfmean(i,j,k,bi,bj) = Tfmean(i,j,k,bi,bj) + |
|
./pkg/ecco/cost_drift.F |
162 |
COST_DRIFT |
& tbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_drift.F |
163 |
COST_DRIFT |
Sfmean(i,j,k,bi,bj) = Sfmean(i,j,k,bi,bj) + |
|
./pkg/ecco/cost_drift.F |
164 |
COST_DRIFT |
& sbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_drift.F |
190 |
COST_DRIFT |
do k = 1,nr |
|
./pkg/ecco/cost_drift.F |
193 |
COST_DRIFT |
Tlmean(i,j,k,bi,bj) = Tlmean(i,j,k,bi,bj) + |
|
./pkg/ecco/cost_drift.F |
194 |
COST_DRIFT |
& tbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_drift.F |
195 |
COST_DRIFT |
Slmean(i,j,k,bi,bj) = Slmean(i,j,k,bi,bj) + |
|
./pkg/ecco/cost_drift.F |
196 |
COST_DRIFT |
& sbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_drift.F |
213 |
COST_DRIFT |
do k = 1,nr |
|
./pkg/ecco/cost_drift.F |
216 |
COST_DRIFT |
if (_hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_drift.F |
218 |
COST_DRIFT |
& (wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)/ |
|
./pkg/ecco/cost_drift.F |
220 |
COST_DRIFT |
& (Slmean(i,j,k,bi,bj)/nl - Sfmean(i,j,k,bi,bj)/nf)* |
|
./pkg/ecco/cost_drift.F |
221 |
COST_DRIFT |
& (Slmean(i,j,k,bi,bj)/nl - Sfmean(i,j,k,bi,bj)/nf)) |
|
./pkg/ecco/cost_drift.F |
223 |
COST_DRIFT |
diagnosfld3d(i,j,k,bi,bj) = |
|
./pkg/ecco/cost_drift.F |
224 |
COST_DRIFT |
& (wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)/ |
|
./pkg/ecco/cost_drift.F |
226 |
COST_DRIFT |
& (Slmean(i,j,k,bi,bj)/nl - Sfmean(i,j,k,bi,bj)/nf)* |
|
./pkg/ecco/cost_drift.F |
227 |
COST_DRIFT |
& (Slmean(i,j,k,bi,bj)/nl - Sfmean(i,j,k,bi,bj)/nf)) |
|
./pkg/ecco/cost_drift.F |
229 |
COST_DRIFT |
if ( wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_drift.F |
233 |
COST_DRIFT |
diagnosfld3d(i,j,k,bi,bj) = 0. |
|
./pkg/ecco/cost_drift.F |
243 |
COST_DRIFT |
do k = 1,nr |
|
./pkg/ecco/cost_drift.F |
246 |
COST_DRIFT |
if (_hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_drift.F |
248 |
COST_DRIFT |
& (wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)/ |
|
./pkg/ecco/cost_drift.F |
250 |
COST_DRIFT |
& (Tlmean(i,j,k,bi,bj)/nl - Tfmean(i,j,k,bi,bj)/nf)* |
|
./pkg/ecco/cost_drift.F |
251 |
COST_DRIFT |
& (Tlmean(i,j,k,bi,bj)/nl - Tfmean(i,j,k,bi,bj)/nf)) |
|
./pkg/ecco/cost_drift.F |
253 |
COST_DRIFT |
diagnosfld3d(i,j,k,bi,bj) = |
|
./pkg/ecco/cost_drift.F |
254 |
COST_DRIFT |
& (wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)/ |
|
./pkg/ecco/cost_drift.F |
256 |
COST_DRIFT |
& (Tlmean(i,j,k,bi,bj)/nl - Tfmean(i,j,k,bi,bj)/nf)* |
|
./pkg/ecco/cost_drift.F |
257 |
COST_DRIFT |
& (Tlmean(i,j,k,bi,bj)/nl - Tfmean(i,j,k,bi,bj)/nf)) |
|
./pkg/ecco/cost_drift.F |
259 |
COST_DRIFT |
if ( wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_drift.F |
263 |
COST_DRIFT |
diagnosfld3d(i,j,k,bi,bj) = 0. |
|
./pkg/ecco/cost_drift.F |
52 |
COST_DRIFT |
integer i,j,k |
|
./pkg/ecco/cost_drifter.F |
146 |
COST_DRIFTER |
k = 2 |
|
./pkg/ecco/cost_drifter.F |
163 |
COST_DRIFTER |
udmod(i,j,bi,bj)=ubar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
164 |
COST_DRIFTER |
vdmod(i,j,bi,bj)=vbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
169 |
COST_DRIFTER |
udmod(i,j,bi,bj)=udmod(i,j,bi,bj)+ubar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
170 |
COST_DRIFTER |
vdmod(i,j,bi,bj)=vdmod(i,j,bi,bj)+vbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
193 |
COST_DRIFTER |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) |
|
./pkg/ecco/cost_drifter.F |
64 |
COST_DRIFTER |
integer i,j,k |
|
./pkg/ecco/cost_driftw.F |
107 |
COST_DRIFTW |
do k = 1,nr |
|
./pkg/ecco/cost_driftw.F |
110 |
COST_DRIFTW |
wfmean(i,j,k,bi,bj) = 0.0 |
|
./pkg/ecco/cost_driftw.F |
111 |
COST_DRIFTW |
wlmean(i,j,k,bi,bj) = 0.0 |
|
./pkg/ecco/cost_driftw.F |
137 |
COST_DRIFTW |
do k = 1,nr |
|
./pkg/ecco/cost_driftw.F |
140 |
COST_DRIFTW |
wfmean(i,j,k,bi,bj) = wfmean(i,j,k,bi,bj) + |
|
./pkg/ecco/cost_driftw.F |
141 |
COST_DRIFTW |
& wbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_driftw.F |
162 |
COST_DRIFTW |
do k = 1,nr |
|
./pkg/ecco/cost_driftw.F |
165 |
COST_DRIFTW |
wlmean(i,j,k,bi,bj) = wlmean(i,j,k,bi,bj) + |
|
./pkg/ecco/cost_driftw.F |
166 |
COST_DRIFTW |
& wbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_driftw.F |
182 |
COST_DRIFTW |
do k = 1,nr |
|
./pkg/ecco/cost_driftw.F |
188 |
COST_DRIFTW |
if (_hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_driftw.F |
191 |
COST_DRIFTW |
& (wlmean(i,j,k,bi,bj)/nl - wfmean(i,j,k,bi,bj)/nf)* |
|
./pkg/ecco/cost_driftw.F |
192 |
COST_DRIFTW |
& (wlmean(i,j,k,bi,bj)/nl - wfmean(i,j,k,bi,bj)/nf)) |
|
./pkg/ecco/cost_driftw.F |
55 |
COST_DRIFTW |
integer i,j,k |
|
./pkg/ecco/cost_gencost_all.F |
42 |
COST_GENCOST_ALL |
integer i,j,k |
|
./pkg/ecco/cost_gencost_all.F |
53 |
COST_GENCOST_ALL |
do k = 1, NGENCOST |
|
./pkg/ecco/cost_gencost_all.F |
55 |
COST_GENCOST_ALL |
if ( (gencost_name(k).NE.'sshv4-mdt').AND. |
|
./pkg/ecco/cost_gencost_all.F |
56 |
COST_GENCOST_ALL |
& (gencost_name(k).NE.'sshv4-tp').AND. |
|
./pkg/ecco/cost_gencost_all.F |
57 |
COST_GENCOST_ALL |
& (gencost_name(k).NE.'sshv4-ers').AND. |
|
./pkg/ecco/cost_gencost_all.F |
58 |
COST_GENCOST_ALL |
& (gencost_name(k).NE.'sshv4-gfo').AND. |
|
./pkg/ecco/cost_gencost_all.F |
59 |
COST_GENCOST_ALL |
& (gencost_name(k).NE.'sshv4-lsc').AND. |
|
./pkg/ecco/cost_gencost_all.F |
60 |
COST_GENCOST_ALL |
& (gencost_name(k).NE.'sstv4-amsre').AND. |
|
./pkg/ecco/cost_gencost_all.F |
61 |
COST_GENCOST_ALL |
& (gencost_name(k).NE.'sstv4-amsre-lsc') ) then |
|
./pkg/ecco/cost_gencost_all.F |
63 |
COST_GENCOST_ALL |
write(msgbuf,'(a,x,i2.2)') 'ph-cost gencost #', k |
|
./pkg/ecco/cost_gencost_all.F |
69 |
COST_GENCOST_ALL |
& nnzbar, gencost_barfile(k), |
|
./pkg/ecco/cost_gencost_all.F |
70 |
COST_GENCOST_ALL |
& gencost_barfld(1-Olx,1-Oly,1,1,k), |
|
./pkg/ecco/cost_gencost_all.F |
71 |
COST_GENCOST_ALL |
& xx_genbar_dummy(k), |
|
./pkg/ecco/cost_gencost_all.F |
72 |
COST_GENCOST_ALL |
& nnzobs, gencost_datafile(k), mult_gencost(k), |
|
./pkg/ecco/cost_gencost_all.F |
73 |
COST_GENCOST_ALL |
& gencost_nrec(k), modelstartdate, gencost_period(k), |
|
./pkg/ecco/cost_gencost_all.F |
74 |
COST_GENCOST_ALL |
& gencost_mask(k), gencost_weight(1-Olx,1-Oly,1,1,k), |
|
./pkg/ecco/cost_gencost_all.F |
75 |
COST_GENCOST_ALL |
& gencost_spmin(k), gencost_spmax(k), |
|
./pkg/ecco/cost_gencost_all.F |
76 |
COST_GENCOST_ALL |
& gencost_spzero(k), |
|
./pkg/ecco/cost_gencost_all.F |
77 |
COST_GENCOST_ALL |
& objf_gencost(1,1,k), num_gencost(1,1,k), |
|
./pkg/ecco/cost_gencost_sshv4.F |
162 |
COST_GENCOST_SSHV4 |
do k=1,NGENCOST |
|
./pkg/ecco/cost_gencost_sshv4.F |
163 |
COST_GENCOST_SSHV4 |
if (gencost_name(k).EQ.'sshv4-mdt') igen_mdt=k |
|
./pkg/ecco/cost_gencost_sshv4.F |
164 |
COST_GENCOST_SSHV4 |
if (gencost_name(k).EQ.'sshv4-tp') igen_tp=k |
|
./pkg/ecco/cost_gencost_sshv4.F |
165 |
COST_GENCOST_SSHV4 |
if (gencost_name(k).EQ.'sshv4-ers') igen_ers=k |
|
./pkg/ecco/cost_gencost_sshv4.F |
166 |
COST_GENCOST_SSHV4 |
if (gencost_name(k).EQ.'sshv4-gfo') igen_gfo=k |
|
./pkg/ecco/cost_gencost_sshv4.F |
167 |
COST_GENCOST_SSHV4 |
if (gencost_name(k).EQ.'sshv4-lsc') igen_lsc=k |
|
./pkg/ecco/cost_gencost_sshv4.F |
68 |
COST_GENCOST_SSHV4 |
integer i,j,k |
|
./pkg/ecco/cost_gencost_sstv4.F |
117 |
COST_GENCOST_SSTV4 |
do k=1,NGENCOST |
|
./pkg/ecco/cost_gencost_sstv4.F |
118 |
COST_GENCOST_SSTV4 |
if (gencost_name(k).EQ.'sstv4-amsre') igen_amsre=k |
|
./pkg/ecco/cost_gencost_sstv4.F |
119 |
COST_GENCOST_SSTV4 |
if (gencost_name(k).EQ.'sstv4-amsre-lsc') igen_amsre_lsc=k |
|
./pkg/ecco/cost_gencost_sstv4.F |
55 |
COST_GENCOST_SSTV4 |
integer i,j,k |
|
./pkg/ecco/cost_generic.F |
139 |
COST_GENERIC |
do k = 1,nnzobs |
|
./pkg/ecco/cost_generic.F |
142 |
COST_GENERIC |
localobs(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_generic.F |
152 |
COST_GENERIC |
do k = 1,Nr |
|
./pkg/ecco/cost_generic.F |
156 |
COST_GENERIC |
localmask(i,j,k,bi,bj) = maskC(i,j,k,bi,bj) |
|
./pkg/ecco/cost_generic.F |
158 |
COST_GENERIC |
localmask(i,j,k,bi,bj) = maskS(i,j,k,bi,bj) |
|
./pkg/ecco/cost_generic.F |
160 |
COST_GENERIC |
localmask(i,j,k,bi,bj) = maskW(i,j,k,bi,bj) |
|
./pkg/ecco/cost_generic.F |
245 |
COST_GENERIC |
do k = 1,nnzobs |
|
./pkg/ecco/cost_generic.F |
248 |
COST_GENERIC |
localobs(i,j,k,bi,bj) = spval |
|
./pkg/ecco/cost_generic.F |
263 |
COST_GENERIC |
do k = 1,nnzobs |
|
./pkg/ecco/cost_generic.F |
266 |
COST_GENERIC |
cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj) |
|
./pkg/ecco/cost_generic.F |
267 |
COST_GENERIC |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/ecco/cost_generic.F |
268 |
COST_GENERIC |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/ecco/cost_generic.F |
269 |
COST_GENERIC |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/ecco/cost_generic.F |
270 |
COST_GENERIC |
cmask(i,j,k) = 0. _d 0 |
|
./pkg/ecco/cost_generic.F |
276 |
COST_GENERIC |
do k = 1,nnzobs |
|
./pkg/ecco/cost_generic.F |
279 |
COST_GENERIC |
localwww = localweight(i,j,k,bi,bj)*cmask(i,j,k) |
|
./pkg/ecco/cost_generic.F |
280 |
COST_GENERIC |
junk = ( localbar(i,j,k,bi,bj) - |
|
./pkg/ecco/cost_generic.F |
281 |
COST_GENERIC |
& localobs(i,j,k,bi,bj) ) |
|
./pkg/ecco/cost_generic.F |
75 |
COST_GENERIC |
integer i,j,k |
|
./pkg/ecco/cost_kapgm.F |
106 |
COST_KAPGM |
do k = 1,nr |
|
./pkg/ecco/cost_kapgm.F |
109 |
COST_KAPGM |
if (_hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_kapgm.F |
111 |
COST_KAPGM |
tmpx = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ecco/cost_kapgm.F |
114 |
COST_KAPGM |
& + wkapgmFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_kapgm.F |
43 |
COST_KAPGM |
integer i,j,k |
|
./pkg/ecco/cost_kapredi.F |
106 |
COST_KAPREDI |
do k = 1,nr |
|
./pkg/ecco/cost_kapredi.F |
109 |
COST_KAPREDI |
if (_hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_kapredi.F |
111 |
COST_KAPREDI |
tmpx = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ecco/cost_kapredi.F |
114 |
COST_KAPREDI |
& + wkaprediFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_kapredi.F |
43 |
COST_KAPREDI |
integer i,j,k |
|
./pkg/ecco/cost_obcs_ageos.F |
153 |
COST_OBCS_AGEOS |
do k = 1,nr |
|
./pkg/ecco/cost_obcs_ageos.F |
155 |
COST_OBCS_AGEOS |
maskxzageos(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
156 |
COST_OBCS_AGEOS |
xzdvel1(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
157 |
COST_OBCS_AGEOS |
xzdvel2(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
158 |
COST_OBCS_AGEOS |
xzgrdrho(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
161 |
COST_OBCS_AGEOS |
maskyzageos(j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
162 |
COST_OBCS_AGEOS |
yzdvel1(j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
163 |
COST_OBCS_AGEOS |
yzdvel2(j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
164 |
COST_OBCS_AGEOS |
yzgrdrho(j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
220 |
COST_OBCS_AGEOS |
do k = 1,nr-1 |
|
./pkg/ecco/cost_obcs_ageos.F |
225 |
COST_OBCS_AGEOS |
maskxzageos(i,k,bi,bj) = 0. |
|
./pkg/ecco/cost_obcs_ageos.F |
227 |
COST_OBCS_AGEOS |
maskxzageos(i,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
228 |
COST_OBCS_AGEOS |
& hfacC(i,j+jp1,k,bi,bj)*hfacC(i+1,j+jp1,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
229 |
COST_OBCS_AGEOS |
& hfacC(i-1,j+jp1,k,bi,bj)*hfacC(i,j+jp1,k+1,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
230 |
COST_OBCS_AGEOS |
& hfacC(i-1,j+jp1,k+1,bi,bj)*hfacC(i+1,j+jp1,k+1,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
231 |
COST_OBCS_AGEOS |
& hfacS(i,j+jp1,k,bi,bj)*hfacS(i,j+jp1,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
236 |
COST_OBCS_AGEOS |
do k = 1,nr |
|
./pkg/ecco/cost_obcs_ageos.F |
242 |
COST_OBCS_AGEOS |
I iMin, iMax, jMin, jMax, k, |
|
./pkg/ecco/cost_obcs_ageos.F |
243 |
COST_OBCS_AGEOS |
I tbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
244 |
COST_OBCS_AGEOS |
I sbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
246 |
COST_OBCS_AGEOS |
I k, bi, bj, myThid ) |
|
./pkg/ecco/cost_obcs_ageos.F |
252 |
COST_OBCS_AGEOS |
xzgrdrho(i,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
261 |
COST_OBCS_AGEOS |
do k = 4,Nr-1 |
|
./pkg/ecco/cost_obcs_ageos.F |
264 |
COST_OBCS_AGEOS |
xzdvel1(i,k,bi,bj) = vbar(i,j+jp1,k ,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
265 |
COST_OBCS_AGEOS |
& - vbar(i,j+jp1,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
266 |
COST_OBCS_AGEOS |
xzdvel2(i,k,bi,bj)=((xzgrdrho(i,k,bi,bj)*delz(k)/2.)+ |
|
./pkg/ecco/cost_obcs_ageos.F |
267 |
COST_OBCS_AGEOS |
& (xzgrdrho(i,k+1,bi,bj)*delz(k+1)/2.)) |
|
./pkg/ecco/cost_obcs_ageos.F |
270 |
COST_OBCS_AGEOS |
fctile = fctile + 100*wcurrent(k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
271 |
COST_OBCS_AGEOS |
& maskxzageos(i,k,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
272 |
COST_OBCS_AGEOS |
& (xzdvel2(i,k,bi,bj) - xzdvel1(i,k,bi,bj))* |
|
./pkg/ecco/cost_obcs_ageos.F |
273 |
COST_OBCS_AGEOS |
& (xzdvel2(i,k,bi,bj) - xzdvel1(i,k,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
274 |
COST_OBCS_AGEOS |
if (maskxzageos(i,k,bi,bj) .ne. 0) then |
|
./pkg/ecco/cost_obcs_ageos.F |
287 |
COST_OBCS_AGEOS |
do k = 1,nr-1 |
|
./pkg/ecco/cost_obcs_ageos.F |
291 |
COST_OBCS_AGEOS |
maskxzageos(i,k,bi,bj) = 0. |
|
./pkg/ecco/cost_obcs_ageos.F |
294 |
COST_OBCS_AGEOS |
maskxzageos(i,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
295 |
COST_OBCS_AGEOS |
& hfacC(i,j+jp1,k,bi,bj)*hfacC(i+1,j+jp1,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
296 |
COST_OBCS_AGEOS |
& hfacC(i-1,j+jp1,k,bi,bj)*hfacC(i,j+jp1,k+1,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
297 |
COST_OBCS_AGEOS |
& hfacC(i-1,j+jp1,k+1,bi,bj)*hfacC(i+1,j+jp1,k+1,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
298 |
COST_OBCS_AGEOS |
& hfacS(i,j+jp1,k,bi,bj)*hfacS(i,j+jp1,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
303 |
COST_OBCS_AGEOS |
do k = 1,nr |
|
./pkg/ecco/cost_obcs_ageos.F |
306 |
COST_OBCS_AGEOS |
I iMin, iMax, jMin, jMax, k, |
|
./pkg/ecco/cost_obcs_ageos.F |
307 |
COST_OBCS_AGEOS |
I tbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
308 |
COST_OBCS_AGEOS |
I sbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
310 |
COST_OBCS_AGEOS |
I k, bi, bj, myThid ) |
|
./pkg/ecco/cost_obcs_ageos.F |
317 |
COST_OBCS_AGEOS |
xzgrdrho(i,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
324 |
COST_OBCS_AGEOS |
do k = 4,Nr-1 |
|
./pkg/ecco/cost_obcs_ageos.F |
328 |
COST_OBCS_AGEOS |
xzdvel1(i,k,bi,bj) = vbar(i,j+jp1,k ,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
329 |
COST_OBCS_AGEOS |
& - vbar(i,j+jp1,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
332 |
COST_OBCS_AGEOS |
xzdvel2(i,k,bi,bj) =((xzgrdrho(i,k,bi,bj)*delz(k)/2.)+ |
|
./pkg/ecco/cost_obcs_ageos.F |
333 |
COST_OBCS_AGEOS |
& (xzgrdrho(i,k+1,bi,bj)*delz(k+1)/2.)) |
|
./pkg/ecco/cost_obcs_ageos.F |
337 |
COST_OBCS_AGEOS |
fctile = fctile + 100*wcurrent(k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
338 |
COST_OBCS_AGEOS |
& maskxzageos(i,k,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
339 |
COST_OBCS_AGEOS |
& (xzdvel2(i,k,bi,bj) - xzdvel1(i,k,bi,bj))* |
|
./pkg/ecco/cost_obcs_ageos.F |
340 |
COST_OBCS_AGEOS |
& (xzdvel2(i,k,bi,bj) - xzdvel1(i,k,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
351 |
COST_OBCS_AGEOS |
do k = 1,nr-1 |
|
./pkg/ecco/cost_obcs_ageos.F |
356 |
COST_OBCS_AGEOS |
maskyzageos(j,k,bi,bj) = 0. |
|
./pkg/ecco/cost_obcs_ageos.F |
358 |
COST_OBCS_AGEOS |
maskyzageos(j,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
359 |
COST_OBCS_AGEOS |
& hfacC(i+ip1,j,k,bi,bj)*hfacC(i+ip1,j+1,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
360 |
COST_OBCS_AGEOS |
& hfacC(i+ip1,j-1,k,bi,bj)*hfacC(i+ip1,j,k+1,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
361 |
COST_OBCS_AGEOS |
& hfacC(i+ip1,j-1,k+1,bi,bj)*hfacC(i+ip1,j+1,k+1,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
362 |
COST_OBCS_AGEOS |
& hfacW(i+ip1,j,k,bi,bj)*hfacW(i+ip1,j,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
367 |
COST_OBCS_AGEOS |
do k = 1,nr |
|
./pkg/ecco/cost_obcs_ageos.F |
370 |
COST_OBCS_AGEOS |
I iMin, iMax, jMin, jMax, k, |
|
./pkg/ecco/cost_obcs_ageos.F |
371 |
COST_OBCS_AGEOS |
I tbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
372 |
COST_OBCS_AGEOS |
I sbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
374 |
COST_OBCS_AGEOS |
I k, bi, bj, myThid ) |
|
./pkg/ecco/cost_obcs_ageos.F |
381 |
COST_OBCS_AGEOS |
yzgrdrho(j,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
388 |
COST_OBCS_AGEOS |
do k = 4,Nr-1 |
|
./pkg/ecco/cost_obcs_ageos.F |
392 |
COST_OBCS_AGEOS |
yzdvel1(j,k,bi,bj) = ubar(i+ip1,j,k ,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
393 |
COST_OBCS_AGEOS |
& - ubar(i+ip1,j,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
396 |
COST_OBCS_AGEOS |
yzdvel2(j,k,bi,bj) =((yzgrdrho(j,k ,bi,bj)*delz(k)/2.)+ |
|
./pkg/ecco/cost_obcs_ageos.F |
397 |
COST_OBCS_AGEOS |
& (yzgrdrho(j,k+1,bi,bj)*delz(k+1)/2.)) |
|
./pkg/ecco/cost_obcs_ageos.F |
401 |
COST_OBCS_AGEOS |
fctile = fctile + 100*wcurrent(k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
402 |
COST_OBCS_AGEOS |
& maskyzageos(j,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
403 |
COST_OBCS_AGEOS |
& (yzdvel2(j,k,bi,bj) - yzdvel1(j,k,bi,bj))* |
|
./pkg/ecco/cost_obcs_ageos.F |
404 |
COST_OBCS_AGEOS |
& (yzdvel2(j,k,bi,bj) - yzdvel1(j,k,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
414 |
COST_OBCS_AGEOS |
do k = 1,nr-1 |
|
./pkg/ecco/cost_obcs_ageos.F |
418 |
COST_OBCS_AGEOS |
maskyzageos(j,k,bi,bj) =0. |
|
./pkg/ecco/cost_obcs_ageos.F |
421 |
COST_OBCS_AGEOS |
maskyzageos(j,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
422 |
COST_OBCS_AGEOS |
& hfacC(i+ip1,j,k,bi,bj)*hfacC(i+ip1,j+1,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
423 |
COST_OBCS_AGEOS |
& hfacC(i+ip1,j-1,k,bi,bj)*hfacC(i+ip1,j,k+1,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
424 |
COST_OBCS_AGEOS |
& hfacC(i+ip1,j-1,k+1,bi,bj)*hfacC(i+ip1,j+1,k+1,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
425 |
COST_OBCS_AGEOS |
& hfacW(i+ip1,j,k,bi,bj)*hfacW(i+ip1,j,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
430 |
COST_OBCS_AGEOS |
do k = 1,nr |
|
./pkg/ecco/cost_obcs_ageos.F |
433 |
COST_OBCS_AGEOS |
I iMin, iMax, jMin, jMax, k, |
|
./pkg/ecco/cost_obcs_ageos.F |
434 |
COST_OBCS_AGEOS |
I tbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
435 |
COST_OBCS_AGEOS |
I sbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
437 |
COST_OBCS_AGEOS |
I k, bi, bj, myThid ) |
|
./pkg/ecco/cost_obcs_ageos.F |
444 |
COST_OBCS_AGEOS |
yzgrdrho(j,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
451 |
COST_OBCS_AGEOS |
do k = 4,Nr-1 |
|
./pkg/ecco/cost_obcs_ageos.F |
455 |
COST_OBCS_AGEOS |
yzdvel1(j,k,bi,bj) = ubar(i+ip1,j,k ,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
456 |
COST_OBCS_AGEOS |
& - ubar(i+ip1,j,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
459 |
COST_OBCS_AGEOS |
yzdvel2(j,k,bi,bj) =((yzgrdrho(j,k ,bi,bj)*delz(k)/2.)+ |
|
./pkg/ecco/cost_obcs_ageos.F |
460 |
COST_OBCS_AGEOS |
& (yzgrdrho(j,k+1,bi,bj)*delz(k+1)/2.)) |
|
./pkg/ecco/cost_obcs_ageos.F |
464 |
COST_OBCS_AGEOS |
fctile = fctile + 100*wcurrent(k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
465 |
COST_OBCS_AGEOS |
& maskyzageos(j,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
466 |
COST_OBCS_AGEOS |
& (yzdvel2(j,k,bi,bj) - yzdvel1(j,k,bi,bj))* |
|
./pkg/ecco/cost_obcs_ageos.F |
467 |
COST_OBCS_AGEOS |
& (yzdvel2(j,k,bi,bj) - yzdvel1(j,k,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
57 |
COST_OBCS_AGEOS |
integer i,j,k |
|
./pkg/ecco/cost_obcse.F |
125 |
COST_OBCSE |
do k = 1,nr |
|
./pkg/ecco/cost_obcse.F |
130 |
COST_OBCSE |
if (maskS(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcse.F |
132 |
COST_OBCSE |
& wobcse(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcse.F |
133 |
COST_OBCSE |
& (tbar(i,j,k,bi,bj) - OBEt(j,k,bi,bj))* |
|
./pkg/ecco/cost_obcse.F |
134 |
COST_OBCSE |
& (tbar(i,j,k,bi,bj) - OBEt(j,k,bi,bj)) |
|
./pkg/ecco/cost_obcse.F |
162 |
COST_OBCSE |
do k = 1,nr |
|
./pkg/ecco/cost_obcse.F |
167 |
COST_OBCSE |
if (maskS(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcse.F |
169 |
COST_OBCSE |
& wobcse(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcse.F |
170 |
COST_OBCSE |
& (sbar(i,j,k,bi,bj) - OBEs(j,k,bi,bj))* |
|
./pkg/ecco/cost_obcse.F |
171 |
COST_OBCSE |
& (sbar(i,j,k,bi,bj) - OBEs(j,k,bi,bj)) |
|
./pkg/ecco/cost_obcse.F |
198 |
COST_OBCSE |
do k = 1,nr |
|
./pkg/ecco/cost_obcse.F |
203 |
COST_OBCSE |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcse.F |
205 |
COST_OBCSE |
& wobcse(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcse.F |
206 |
COST_OBCSE |
& (ubar(i,j,k,bi,bj) - OBEu(j,k,bi,bj))* |
|
./pkg/ecco/cost_obcse.F |
207 |
COST_OBCSE |
& (ubar(i,j,k,bi,bj) - OBEu(j,k,bi,bj)) |
|
./pkg/ecco/cost_obcse.F |
235 |
COST_OBCSE |
do k = 1,nr |
|
./pkg/ecco/cost_obcse.F |
240 |
COST_OBCSE |
if (maskS(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcse.F |
242 |
COST_OBCSE |
& wobcse(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcse.F |
243 |
COST_OBCSE |
& (vbar(i,j,k,bi,bj) - OBEv(j,k,bi,bj))* |
|
./pkg/ecco/cost_obcse.F |
244 |
COST_OBCSE |
& (vbar(i,j,k,bi,bj) - OBEv(j,k,bi,bj)) |
|
./pkg/ecco/cost_obcse.F |
53 |
COST_OBCSE |
integer i,j,k |
|
./pkg/ecco/cost_obcsn.F |
125 |
COST_OBCSN |
do k = 1,nr |
|
./pkg/ecco/cost_obcsn.F |
130 |
COST_OBCSN |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsn.F |
132 |
COST_OBCSN |
& wobcsn(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsn.F |
133 |
COST_OBCSN |
& (tbar(i,j,k,bi,bj) - OBNt(i,k,bi,bj))* |
|
./pkg/ecco/cost_obcsn.F |
134 |
COST_OBCSN |
& (tbar(i,j,k,bi,bj) - OBNt(i,k,bi,bj)) |
|
./pkg/ecco/cost_obcsn.F |
162 |
COST_OBCSN |
do k = 1,nr |
|
./pkg/ecco/cost_obcsn.F |
167 |
COST_OBCSN |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsn.F |
169 |
COST_OBCSN |
& wobcsn(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsn.F |
170 |
COST_OBCSN |
& (sbar(i,j,k,bi,bj) - OBNs(i,k,bi,bj))* |
|
./pkg/ecco/cost_obcsn.F |
171 |
COST_OBCSN |
& (sbar(i,j,k,bi,bj) - OBNs(i,k,bi,bj)) |
|
./pkg/ecco/cost_obcsn.F |
198 |
COST_OBCSN |
do k = 1,nr |
|
./pkg/ecco/cost_obcsn.F |
203 |
COST_OBCSN |
if (maskW(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsn.F |
205 |
COST_OBCSN |
& wobcsn(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsn.F |
206 |
COST_OBCSN |
& (ubar(i,j,k,bi,bj) - OBNu(i,k,bi,bj))* |
|
./pkg/ecco/cost_obcsn.F |
207 |
COST_OBCSN |
& (ubar(i,j,k,bi,bj) - OBNu(i,k,bi,bj)) |
|
./pkg/ecco/cost_obcsn.F |
235 |
COST_OBCSN |
do k = 1,nr |
|
./pkg/ecco/cost_obcsn.F |
240 |
COST_OBCSN |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsn.F |
242 |
COST_OBCSN |
& wobcsn(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsn.F |
243 |
COST_OBCSN |
& (vbar(i,j,k,bi,bj) - OBNv(i,k,bi,bj))* |
|
./pkg/ecco/cost_obcsn.F |
244 |
COST_OBCSN |
& (vbar(i,j,k,bi,bj) - OBNv(i,k,bi,bj)) |
|
./pkg/ecco/cost_obcsn.F |
53 |
COST_OBCSN |
integer i,j,k |
|
./pkg/ecco/cost_obcss.F |
125 |
COST_OBCSS |
do k = 1,nr |
|
./pkg/ecco/cost_obcss.F |
130 |
COST_OBCSS |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcss.F |
132 |
COST_OBCSS |
& wobcss(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcss.F |
133 |
COST_OBCSS |
& (tbar(i,j,k,bi,bj) - OBSt(i,k,bi,bj))* |
|
./pkg/ecco/cost_obcss.F |
134 |
COST_OBCSS |
& (tbar(i,j,k,bi,bj) - OBSt(i,k,bi,bj)) |
|
./pkg/ecco/cost_obcss.F |
162 |
COST_OBCSS |
do k = 1,nr |
|
./pkg/ecco/cost_obcss.F |
167 |
COST_OBCSS |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcss.F |
169 |
COST_OBCSS |
& wobcss(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcss.F |
170 |
COST_OBCSS |
& (sbar(i,j,k,bi,bj) - OBSs(i,k,bi,bj))* |
|
./pkg/ecco/cost_obcss.F |
171 |
COST_OBCSS |
& (sbar(i,j,k,bi,bj) - OBSs(i,k,bi,bj)) |
|
./pkg/ecco/cost_obcss.F |
198 |
COST_OBCSS |
do k = 1,nr |
|
./pkg/ecco/cost_obcss.F |
203 |
COST_OBCSS |
if (maskW(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcss.F |
205 |
COST_OBCSS |
& wobcss(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcss.F |
206 |
COST_OBCSS |
& (ubar(i,j,k,bi,bj) - OBSu(i,k,bi,bj))* |
|
./pkg/ecco/cost_obcss.F |
207 |
COST_OBCSS |
& (ubar(i,j,k,bi,bj) - OBSu(i,k,bi,bj)) |
|
./pkg/ecco/cost_obcss.F |
235 |
COST_OBCSS |
do k = 1,nr |
|
./pkg/ecco/cost_obcss.F |
240 |
COST_OBCSS |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcss.F |
242 |
COST_OBCSS |
& wobcss(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcss.F |
243 |
COST_OBCSS |
& (vbar(i,j,k,bi,bj) - OBSv(i,k,bi,bj))* |
|
./pkg/ecco/cost_obcss.F |
244 |
COST_OBCSS |
& (vbar(i,j,k,bi,bj) - OBSv(i,k,bi,bj)) |
|
./pkg/ecco/cost_obcss.F |
53 |
COST_OBCSS |
integer i,j,k |
|
./pkg/ecco/cost_obcsvol.F |
204 |
COST_OBCSVOL |
do k = 1, Nr |
|
./pkg/ecco/cost_obcsvol.F |
209 |
COST_OBCSVOL |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsvol.F |
211 |
COST_OBCSVOL |
fctile = fctile - tmpx* delZ(k) *dxg(i,j+jp1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
246 |
COST_OBCSVOL |
do k = 1, Nr |
|
./pkg/ecco/cost_obcsvol.F |
251 |
COST_OBCSVOL |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsvol.F |
253 |
COST_OBCSVOL |
fctile = fctile + tmpx* delZ(k) *dxg(i,j+jp1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
289 |
COST_OBCSVOL |
do k = 1, Nr |
|
./pkg/ecco/cost_obcsvol.F |
294 |
COST_OBCSVOL |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsvol.F |
296 |
COST_OBCSVOL |
fctile = fctile + tmpy* delZ(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
332 |
COST_OBCSVOL |
do k = 1, Nr |
|
./pkg/ecco/cost_obcsvol.F |
337 |
COST_OBCSVOL |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsvol.F |
339 |
COST_OBCSVOL |
fctile = fctile - tmpy* delZ(k) *dyg(i+ip1,j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
57 |
COST_OBCSVOL |
integer i,j,k |
|
./pkg/ecco/cost_obcsw.F |
125 |
COST_OBCSW |
do k = 1,nr |
|
./pkg/ecco/cost_obcsw.F |
130 |
COST_OBCSW |
if (maskS(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsw.F |
132 |
COST_OBCSW |
& wobcsw(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsw.F |
133 |
COST_OBCSW |
& (tbar(i,j,k,bi,bj) - OBWt(j,k,bi,bj))* |
|
./pkg/ecco/cost_obcsw.F |
134 |
COST_OBCSW |
& (tbar(i,j,k,bi,bj) - OBWt(j,k,bi,bj)) |
|
./pkg/ecco/cost_obcsw.F |
162 |
COST_OBCSW |
do k = 1,nr |
|
./pkg/ecco/cost_obcsw.F |
167 |
COST_OBCSW |
if (maskS(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsw.F |
169 |
COST_OBCSW |
& wobcsw(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsw.F |
170 |
COST_OBCSW |
& (sbar(i,j,k,bi,bj) - OBWs(j,k,bi,bj))* |
|
./pkg/ecco/cost_obcsw.F |
171 |
COST_OBCSW |
& (sbar(i,j,k,bi,bj) - OBWs(j,k,bi,bj)) |
|
./pkg/ecco/cost_obcsw.F |
198 |
COST_OBCSW |
do k = 1,nr |
|
./pkg/ecco/cost_obcsw.F |
203 |
COST_OBCSW |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsw.F |
205 |
COST_OBCSW |
& wobcsw(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsw.F |
206 |
COST_OBCSW |
& (ubar(i,j,k,bi,bj) - OBWu(j,k,bi,bj))* |
|
./pkg/ecco/cost_obcsw.F |
207 |
COST_OBCSW |
& (ubar(i,j,k,bi,bj) - OBWu(j,k,bi,bj)) |
|
./pkg/ecco/cost_obcsw.F |
235 |
COST_OBCSW |
do k = 1,nr |
|
./pkg/ecco/cost_obcsw.F |
240 |
COST_OBCSW |
if (maskS(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsw.F |
242 |
COST_OBCSW |
& wobcsw(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsw.F |
243 |
COST_OBCSW |
& (vbar(i,j,k,bi,bj) - OBWv(j,k,bi,bj))* |
|
./pkg/ecco/cost_obcsw.F |
244 |
COST_OBCSW |
& (vbar(i,j,k,bi,bj) - OBWv(j,k,bi,bj)) |
|
./pkg/ecco/cost_obcsw.F |
53 |
COST_OBCSW |
integer i,j,k |
|
./pkg/ecco/cost_readargos.F |
46 |
COST_READARGOS |
integer i,j,k |
|
./pkg/ecco/cost_readargos.F |
89 |
COST_READARGOS |
do k = 1,nr |
|
./pkg/ecco/cost_readargos.F |
92 |
COST_READARGOS |
argosobs(i,j,k,bi,bj)=spval |
|
./pkg/ecco/cost_readargot.F |
46 |
COST_READARGOT |
integer i,j,k |
|
./pkg/ecco/cost_readargot.F |
89 |
COST_READARGOT |
do k = 1,nr |
|
./pkg/ecco/cost_readargot.F |
92 |
COST_READARGOT |
argotobs(i,j,k,bi,bj)=spval |
|
./pkg/ecco/cost_readers.F |
128 |
COST_READERS |
k = 1 |
|
./pkg/ecco/cost_readers.F |
131 |
COST_READERS |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_readers.F |
47 |
COST_READERS |
integer i,j,k |
|
./pkg/ecco/cost_readgfo.F |
128 |
COST_READGFO |
k = 1 |
|
./pkg/ecco/cost_readgfo.F |
131 |
COST_READGFO |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_readgfo.F |
47 |
COST_READGFO |
integer i,j,k |
|
./pkg/ecco/cost_readscatxfields.F |
124 |
COST_READSCATXFIELDS |
k = 1 |
|
./pkg/ecco/cost_readscatxfields.F |
127 |
COST_READSCATXFIELDS |
if (maskW(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_readscatxfields.F |
49 |
COST_READSCATXFIELDS |
integer i,j,k |
|
./pkg/ecco/cost_readscatyfields.F |
122 |
COST_READSCATYFIELDS |
k = 1 |
|
./pkg/ecco/cost_readscatyfields.F |
125 |
COST_READSCATYFIELDS |
if (maskS(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_readscatyfields.F |
49 |
COST_READSCATYFIELDS |
integer i,j,k |
|
./pkg/ecco/cost_readtopex.F |
126 |
COST_READTOPEX |
k = 1 |
|
./pkg/ecco/cost_readtopex.F |
129 |
COST_READTOPEX |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_readtopex.F |
47 |
COST_READTOPEX |
integer i,j,k |
|
./pkg/ecco/cost_readtopexmean.F |
46 |
COST_READTOPEXMEAN |
integer i,j,k |
|
./pkg/ecco/cost_readtopexmean.F |
75 |
COST_READTOPEXMEAN |
k = 1 |
|
./pkg/ecco/cost_readtopexmean.F |
78 |
COST_READTOPEXMEAN |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_salt.F |
132 |
COST_SALT |
do k = 1,nr |
|
./pkg/ecco/cost_salt.F |
136 |
COST_SALT |
sbar_gen(i,j,k,bi,bj) =sbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_salt.F |
138 |
COST_SALT |
sbar(i,j,k,bi,bj) =(sbar_gen(i,j,k,bi,bj) |
|
./pkg/ecco/cost_salt.F |
139 |
COST_SALT |
$ +sbar(i,j,k,bi,bj))/float(nyears) |
|
./pkg/ecco/cost_salt.F |
141 |
COST_SALT |
sbar_gen(i,j,k,bi,bj) =sbar_gen(i,j,k,bi,bj) |
|
./pkg/ecco/cost_salt.F |
142 |
COST_SALT |
$ +sbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_salt.F |
174 |
COST_SALT |
do k = 1,nr |
|
./pkg/ecco/cost_salt.F |
180 |
COST_SALT |
if (sdat(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_salt.F |
182 |
COST_SALT |
else if (sdat(i,j,k,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_salt.F |
184 |
COST_SALT |
else if (sdat(i,j,k,bi,bj) .gt. spmax) then |
|
./pkg/ecco/cost_salt.F |
194 |
COST_SALT |
if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then |
|
./pkg/ecco/cost_salt.F |
196 |
COST_SALT |
& (wsaltLev(i,j,k,bi,bj)*cmask(i,j)* |
|
./pkg/ecco/cost_salt.F |
197 |
COST_SALT |
& (sbar(i,j,k,bi,bj) - sdat(i,j,k,bi,bj))* |
|
./pkg/ecco/cost_salt.F |
198 |
COST_SALT |
& (sbar(i,j,k,bi,bj) - sdat(i,j,k,bi,bj)) ) |
|
./pkg/ecco/cost_salt.F |
199 |
COST_SALT |
if ( wsaltLev(i,j,k,bi,bj)*cmask(i,j) .ne. 0. ) |
|
./pkg/ecco/cost_salt.F |
201 |
COST_SALT |
diagnosfld3d(i,j,k,bi,bj) = |
|
./pkg/ecco/cost_salt.F |
202 |
COST_SALT |
& (wsaltLev(i,j,k,bi,bj)*cmask(i,j)* |
|
./pkg/ecco/cost_salt.F |
203 |
COST_SALT |
& (sbar(i,j,k,bi,bj) - sdat(i,j,k,bi,bj))* |
|
./pkg/ecco/cost_salt.F |
204 |
COST_SALT |
& (sbar(i,j,k,bi,bj) - sdat(i,j,k,bi,bj)) ) |
|
./pkg/ecco/cost_salt.F |
206 |
COST_SALT |
diagnosfld3d(i,j,k,bi,bj) = 0. |
|
./pkg/ecco/cost_salt.F |
55 |
COST_SALT |
integer i,j,k |
|
./pkg/ecco/cost_salt0.F |
115 |
COST_SALT0 |
do k = 1,nr |
|
./pkg/ecco/cost_salt0.F |
118 |
COST_SALT0 |
if (_hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_salt0.F |
119 |
COST_SALT0 |
tmpx = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ecco/cost_salt0.F |
124 |
COST_SALT0 |
& + wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_salt0.F |
129 |
COST_SALT0 |
if ( wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj).ne.0. ) |
|
./pkg/ecco/cost_salt0.F |
155 |
COST_SALT0 |
do k = 1,nr |
|
./pkg/ecco/cost_salt0.F |
158 |
COST_SALT0 |
if (_hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_salt0.F |
160 |
COST_SALT0 |
& ( tmpfld3d(i+2,j,k,bi,bj)-tmpfld3d(i+1,j,k,bi,bj) ) |
|
./pkg/ecco/cost_salt0.F |
161 |
COST_SALT0 |
& *maskW(i+1,j,k,bi,bj)*maskW(i+2,j,k,bi,bj) |
|
./pkg/ecco/cost_salt0.F |
162 |
COST_SALT0 |
& + ( tmpfld3d(i+1,j,k,bi,bj)-tmpfld3d(i,j,k,bi,bj) ) |
|
./pkg/ecco/cost_salt0.F |
163 |
COST_SALT0 |
& *maskW(i+1,j,k,bi,bj) |
|
./pkg/ecco/cost_salt0.F |
164 |
COST_SALT0 |
& + ( tmpfld3d(i,j+2,k,bi,bj)-tmpfld3d(i,j+1,k,bi,bj) ) |
|
./pkg/ecco/cost_salt0.F |
165 |
COST_SALT0 |
& *maskS(i,j+1,k,bi,bj)*maskS(i,j+2,k,bi,bj) |
|
./pkg/ecco/cost_salt0.F |
166 |
COST_SALT0 |
& + ( tmpfld3d(i,j+1,k,bi,bj)-tmpfld3d(i,j,k,bi,bj) ) |
|
./pkg/ecco/cost_salt0.F |
167 |
COST_SALT0 |
& *maskS(i,j+1,k,bi,bj) |
|
./pkg/ecco/cost_salt0.F |
171 |
COST_SALT0 |
& + wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_salt0.F |
52 |
COST_SALT0 |
integer i,j,k |
|
./pkg/ecco/cost_salt_ini_fin.F |
105 |
COST_SALT_INI_FIN |
do k = 1,nr |
|
./pkg/ecco/cost_salt_ini_fin.F |
108 |
COST_SALT_INI_FIN |
if (_hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_salt_ini_fin.F |
109 |
COST_SALT_INI_FIN |
tmpx = tmpfld3d(i,j,k,bi,bj) - salt(i,j,k,bi,bj) |
|
./pkg/ecco/cost_salt_ini_fin.F |
111 |
COST_SALT_INI_FIN |
& + wsalt(k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_salt_ini_fin.F |
44 |
COST_SALT_INI_FIN |
integer i,j,k |
|
./pkg/ecco/cost_scat.F |
155 |
COST_SCAT |
k = 1 |
|
./pkg/ecco/cost_scat.F |
164 |
COST_SCAT |
if (maskW(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_scat.F |
184 |
COST_SCAT |
if (maskS(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_scat.F |
49 |
COST_SCAT |
integer i,j,k |
|
./pkg/ecco/cost_sla_read.F |
133 |
COST_SLA_READ |
k = 1 |
|
./pkg/ecco/cost_sla_read.F |
136 |
COST_SLA_READ |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_sla_read.F |
44 |
COST_SLA_READ |
integer i,j,k |
|
./pkg/ecco/cost_sla_read_yd.F |
117 |
COST_SLA_READ_YD |
k = 1 |
|
./pkg/ecco/cost_sla_read_yd.F |
121 |
COST_SLA_READ_YD |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_sla_read_yd.F |
45 |
COST_SLA_READ_YD |
integer i,j,k |
|
./pkg/ecco/cost_tau_eddy.F |
109 |
COST_TAU_EDDY |
do k = 1,nr |
|
./pkg/ecco/cost_tau_eddy.F |
112 |
COST_TAU_EDDY |
if (_hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_tau_eddy.F |
113 |
COST_TAU_EDDY |
tmpx = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ecco/cost_tau_eddy.F |
116 |
COST_TAU_EDDY |
& + wedtauxFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_tau_eddy.F |
144 |
COST_TAU_EDDY |
do k = 1,nr |
|
./pkg/ecco/cost_tau_eddy.F |
147 |
COST_TAU_EDDY |
if (_hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_tau_eddy.F |
148 |
COST_TAU_EDDY |
tmpx = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ecco/cost_tau_eddy.F |
151 |
COST_TAU_EDDY |
& + wedtauyFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_tau_eddy.F |
232 |
COST_TAU_EDDY |
do k=2,Nr |
|
./pkg/ecco/cost_tau_eddy.F |
233 |
COST_TAU_EDDY |
tau2_temp = ( rhonil*eddyPsiX(i,j,k,bi,bj) |
|
./pkg/ecco/cost_tau_eddy.F |
236 |
COST_TAU_EDDY |
locfc = locfc + maskW(i,j,k,bi,bj)* |
|
./pkg/ecco/cost_tau_eddy.F |
239 |
COST_TAU_EDDY |
tau2_temp = ( rhonil*eddyPsiY(i,j,k,bi,bj) |
|
./pkg/ecco/cost_tau_eddy.F |
242 |
COST_TAU_EDDY |
locfc = locfc + maskS(i,j,k,bi,bj)* |
|
./pkg/ecco/cost_tau_eddy.F |
43 |
COST_TAU_EDDY |
integer i,j,k |
|
./pkg/ecco/cost_theta.F |
131 |
COST_THETA |
do k = 1,nr |
|
./pkg/ecco/cost_theta.F |
135 |
COST_THETA |
tbar_gen(i,j,k,bi,bj) =tbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_theta.F |
137 |
COST_THETA |
tbar(i,j,k,bi,bj) =(tbar_gen(i,j,k,bi,bj) |
|
./pkg/ecco/cost_theta.F |
138 |
COST_THETA |
$ +tbar(i,j,k,bi,bj))/float(nyears) |
|
./pkg/ecco/cost_theta.F |
140 |
COST_THETA |
tbar_gen(i,j,k,bi,bj) =tbar_gen(i,j,k,bi,bj) |
|
./pkg/ecco/cost_theta.F |
141 |
COST_THETA |
$ +tbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_theta.F |
173 |
COST_THETA |
do k = 1,nr |
|
./pkg/ecco/cost_theta.F |
179 |
COST_THETA |
if (tdat(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_theta.F |
181 |
COST_THETA |
else if (tdat(i,j,k,bi,bj) .lt. spval) then |
|
./pkg/ecco/cost_theta.F |
183 |
COST_THETA |
else if (tdat(i,j,k,bi,bj) .gt. spmax) then |
|
./pkg/ecco/cost_theta.F |
193 |
COST_THETA |
if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then |
|
./pkg/ecco/cost_theta.F |
195 |
COST_THETA |
& (wthetaLev(i,j,k,bi,bj)*cmask(i,j)* |
|
./pkg/ecco/cost_theta.F |
196 |
COST_THETA |
& (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj))* |
|
./pkg/ecco/cost_theta.F |
197 |
COST_THETA |
& (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj)) ) |
|
./pkg/ecco/cost_theta.F |
198 |
COST_THETA |
if ( wthetaLev(i,j,k,bi,bj)*cmask(i,j) .ne. 0. ) |
|
./pkg/ecco/cost_theta.F |
200 |
COST_THETA |
diagnosfld3d(i,j,k,bi,bj) = |
|
./pkg/ecco/cost_theta.F |
201 |
COST_THETA |
& (wthetaLev(i,j,k,bi,bj)*cmask(i,j)* |
|
./pkg/ecco/cost_theta.F |
202 |
COST_THETA |
& (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj))* |
|
./pkg/ecco/cost_theta.F |
203 |
COST_THETA |
& (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj)) ) |
|
./pkg/ecco/cost_theta.F |
205 |
COST_THETA |
diagnosfld3d(i,j,k,bi,bj) = 0. |
|
./pkg/ecco/cost_theta.F |
55 |
COST_THETA |
integer i,j,k |
|
./pkg/ecco/cost_theta0.F |
115 |
COST_THETA0 |
do k = 1,nr |
|
./pkg/ecco/cost_theta0.F |
118 |
COST_THETA0 |
if (_hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_theta0.F |
119 |
COST_THETA0 |
tmpx = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ecco/cost_theta0.F |
124 |
COST_THETA0 |
& + wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_theta0.F |
129 |
COST_THETA0 |
if ( wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj).ne.0. ) |
|
./pkg/ecco/cost_theta0.F |
155 |
COST_THETA0 |
do k = 1,nr |
|
./pkg/ecco/cost_theta0.F |
158 |
COST_THETA0 |
if (_hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_theta0.F |
160 |
COST_THETA0 |
& ( tmpfld3d(i+2,j,k,bi,bj)-tmpfld3d(i+1,j,k,bi,bj) ) |
|
./pkg/ecco/cost_theta0.F |
161 |
COST_THETA0 |
& *maskW(i+1,j,k,bi,bj)*maskW(i+2,j,k,bi,bj) |
|
./pkg/ecco/cost_theta0.F |
162 |
COST_THETA0 |
& + ( tmpfld3d(i+1,j,k,bi,bj)-tmpfld3d(i,j,k,bi,bj) ) |
|
./pkg/ecco/cost_theta0.F |
163 |
COST_THETA0 |
& *maskW(i+1,j,k,bi,bj) |
|
./pkg/ecco/cost_theta0.F |
164 |
COST_THETA0 |
& + ( tmpfld3d(i,j+2,k,bi,bj)-tmpfld3d(i,j+1,k,bi,bj) ) |
|
./pkg/ecco/cost_theta0.F |
165 |
COST_THETA0 |
& *maskS(i,j+1,k,bi,bj)*maskS(i,j+2,k,bi,bj) |
|
./pkg/ecco/cost_theta0.F |
166 |
COST_THETA0 |
& + ( tmpfld3d(i,j+1,k,bi,bj)-tmpfld3d(i,j,k,bi,bj) ) |
|
./pkg/ecco/cost_theta0.F |
167 |
COST_THETA0 |
& *maskS(i,j+1,k,bi,bj) |
|
./pkg/ecco/cost_theta0.F |
171 |
COST_THETA0 |
& + wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_theta0.F |
52 |
COST_THETA0 |
integer i,j,k |
|
./pkg/ecco/cost_theta_ini_fin.F |
105 |
COST_THETA_INI_FIN |
do k = 1,nr |
|
./pkg/ecco/cost_theta_ini_fin.F |
108 |
COST_THETA_INI_FIN |
if (_hFacC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_theta_ini_fin.F |
109 |
COST_THETA_INI_FIN |
tmpx = tmpfld3d(i,j,k,bi,bj) - theta(i,j,k,bi,bj) |
|
./pkg/ecco/cost_theta_ini_fin.F |
111 |
COST_THETA_INI_FIN |
& + wtheta(k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_theta_ini_fin.F |
44 |
COST_THETA_INI_FIN |
integer i,j,k |
|
./pkg/ecco/cost_trans_merid.F |
193 |
COST_TRANS_MERID |
do k = 1,nr |
|
./pkg/ecco/cost_trans_merid.F |
201 |
COST_TRANS_MERID |
tv(isect) = tv(isect) + p5*(tbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
202 |
COST_TRANS_MERID |
$ + tbar(i,j-1,k,bi,bj))*vbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
204 |
COST_TRANS_MERID |
& * drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
206 |
COST_TRANS_MERID |
sv(isect) = sv(isect) + p5*(sbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
207 |
COST_TRANS_MERID |
$ + sbar(i,j-1,k,bi,bj))*vbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
209 |
COST_TRANS_MERID |
& * drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
211 |
COST_TRANS_MERID |
mv(isect) = mv(isect) + p5*(hFacC(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
212 |
COST_TRANS_MERID |
$ + hFacC(i,j-1,k,bi,bj))*vbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
214 |
COST_TRANS_MERID |
& * drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
218 |
COST_TRANS_MERID |
mvlev(isect,k) = mv(isect) |
|
./pkg/ecco/cost_trans_merid.F |
227 |
COST_TRANS_MERID |
do k =1,nr |
|
./pkg/ecco/cost_trans_merid.F |
228 |
COST_TRANS_MERID |
_GLOBAL_SUM_RL( mvlev(isect,k), mythid ) |
|
./pkg/ecco/cost_trans_merid.F |
232 |
COST_TRANS_MERID |
do k = 2,nr |
|
./pkg/ecco/cost_trans_merid.F |
233 |
COST_TRANS_MERID |
if ( mvlev(isect,k) .GT. mvlev(isect,k-1) ) then |
|
./pkg/ecco/cost_trans_merid.F |
234 |
COST_TRANS_MERID |
mvmax(isect) = mvlev(isect,k) |
|
./pkg/ecco/cost_trans_merid.F |
235 |
COST_TRANS_MERID |
kmax(isect) = k |
|
./pkg/ecco/cost_trans_merid.F |
237 |
COST_TRANS_MERID |
if ( mvlev(isect,k) .LT. mvlev(isect,k-1) ) then |
|
./pkg/ecco/cost_trans_merid.F |
238 |
COST_TRANS_MERID |
mvmin(isect) = mvlev(isect,k) |
|
./pkg/ecco/cost_trans_merid.F |
239 |
COST_TRANS_MERID |
kmin(isect) = k |
|
./pkg/ecco/cost_trans_merid.F |
49 |
COST_TRANS_MERID |
integer i,j,k |
|
./pkg/ecco/cost_trans_zonal.F |
182 |
COST_TRANS_ZONAL |
do k = 1,nr |
|
./pkg/ecco/cost_trans_zonal.F |
190 |
COST_TRANS_ZONAL |
tu(isect) = tu(isect) + p5*(tbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
191 |
COST_TRANS_ZONAL |
$ + tbar(i-1,j,k,bi,bj))*ubar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
193 |
COST_TRANS_ZONAL |
& * drF(k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
195 |
COST_TRANS_ZONAL |
su(isect) = su(isect) + p5*(sbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
196 |
COST_TRANS_ZONAL |
$ + sbar(i-1,j,k,bi,bj))*ubar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
198 |
COST_TRANS_ZONAL |
& * drF(k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
200 |
COST_TRANS_ZONAL |
mu(isect) = mu(isect) + p5*(hFacC(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
201 |
COST_TRANS_ZONAL |
$ + hFacC(i-1,j,k,bi,bj))*ubar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
203 |
COST_TRANS_ZONAL |
& * drF(k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_zonal.F |
207 |
COST_TRANS_ZONAL |
mulev(isect,k) = mu(isect) |
|
./pkg/ecco/cost_trans_zonal.F |
216 |
COST_TRANS_ZONAL |
do k =1,nr |
|
./pkg/ecco/cost_trans_zonal.F |
217 |
COST_TRANS_ZONAL |
_GLOBAL_SUM_RL( mulev(isect,k), mythid ) |
|
./pkg/ecco/cost_trans_zonal.F |
221 |
COST_TRANS_ZONAL |
do k = 2,nr |
|
./pkg/ecco/cost_trans_zonal.F |
222 |
COST_TRANS_ZONAL |
if ( mulev(isect,k) .GT. mulev(isect,k-1) ) then |
|
./pkg/ecco/cost_trans_zonal.F |
223 |
COST_TRANS_ZONAL |
mumax(isect) = mulev(isect,k) |
|
./pkg/ecco/cost_trans_zonal.F |
224 |
COST_TRANS_ZONAL |
kmax(isect) = k |
|
./pkg/ecco/cost_trans_zonal.F |
226 |
COST_TRANS_ZONAL |
if ( mulev(isect,k) .LT. mulev(isect,k-1) ) then |
|
./pkg/ecco/cost_trans_zonal.F |
227 |
COST_TRANS_ZONAL |
mumin(isect) = mulev(isect,k) |
|
./pkg/ecco/cost_trans_zonal.F |
228 |
COST_TRANS_ZONAL |
kmin(isect) = k |
|
./pkg/ecco/cost_trans_zonal.F |
49 |
COST_TRANS_ZONAL |
integer i,j,k |
|
./pkg/ecco/cost_xbt.F |
158 |
COST_XBT |
do k = 1,nr |
|
./pkg/ecco/cost_xbt.F |
164 |
COST_XBT |
if ( xbtobs(i,j,k,bi,bj) .lt. spval .or. |
|
./pkg/ecco/cost_xbt.F |
165 |
COST_XBT |
& xbtobs(i,j,k,bi,bj) .gt. spmax .or. |
|
./pkg/ecco/cost_xbt.F |
166 |
COST_XBT |
& xbtobs(i,j,k,bi,bj) .eq. 0. ) then |
|
./pkg/ecco/cost_xbt.F |
183 |
COST_XBT |
if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then |
|
./pkg/ecco/cost_xbt.F |
185 |
COST_XBT |
$ xbtobs(i,j,k,bi,bj),ztop*rc(k),rl_0) |
|
./pkg/ecco/cost_xbt.F |
189 |
COST_XBT |
& (wtheta2(i,j,k,bi,bj)*cmask(i,j))* |
|
./pkg/ecco/cost_xbt.F |
190 |
COST_XBT |
& (tbar(i,j,k,bi,bj)-tmpobs(i,j))* |
|
./pkg/ecco/cost_xbt.F |
191 |
COST_XBT |
& (tbar(i,j,k,bi,bj)-tmpobs(i,j)) |
|
./pkg/ecco/cost_xbt.F |
192 |
COST_XBT |
if ( wtheta2(i,j,k,bi,bj)*cmask(i,j) .ne. 0. ) |
|
./pkg/ecco/cost_xbt.F |
50 |
COST_XBT |
integer i,j,k |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
121 |
ECCO_COST_INIT_BARFILES |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
124 |
ECCO_COST_INIT_BARFILES |
tmpfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
135 |
ECCO_COST_INIT_BARFILES |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
137 |
ECCO_COST_INIT_BARFILES |
tmpfldyz (j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
138 |
ECCO_COST_INIT_BARFILES |
tmpfldyz2(j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
145 |
ECCO_COST_INIT_BARFILES |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
147 |
ECCO_COST_INIT_BARFILES |
tmpfldxz (i,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
148 |
ECCO_COST_INIT_BARFILES |
tmpfldxz2(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
421 |
ECCO_COST_INIT_BARFILES |
do k=1,NGENCOST |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
422 |
ECCO_COST_INIT_BARFILES |
if ( gencost_barfile(k) .ne. ' ' ) then |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
423 |
ECCO_COST_INIT_BARFILES |
ilt=ilnblnk( gencost_barfile(k) ) |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
425 |
ECCO_COST_INIT_BARFILES |
& gencost_barfile(k)(1:ilt), '.', optimcycle |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
427 |
ECCO_COST_INIT_BARFILES |
& yadprefix, gencost_barfile(k)(1:ilt), '.', optimcycle |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
428 |
ECCO_COST_INIT_BARFILES |
do irec = 1,gencost_nrec(k) |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
431 |
ECCO_COST_INIT_BARFILES |
& optimcycle, mythid, xx_genbar_dummy(k) ) |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
48 |
ECCO_COST_INIT_BARFILES |
integer i,j,k |
|
./pkg/ecco/ecco_cost_init_fixed.F |
134 |
ECCO_COST_INIT_FIXED |
do k = 1, NGENCOST |
|
./pkg/ecco/ecco_cost_init_fixed.F |
135 |
ECCO_COST_INIT_FIXED |
if ( gencost_avgperiod(k) .EQ. 'day' .OR. |
|
./pkg/ecco/ecco_cost_init_fixed.F |
136 |
ECCO_COST_INIT_FIXED |
& gencost_avgperiod(k) .EQ. 'DAY' ) then |
|
./pkg/ecco/ecco_cost_init_fixed.F |
137 |
ECCO_COST_INIT_FIXED |
gencost_nrec(k) = ndaysrec |
|
./pkg/ecco/ecco_cost_init_fixed.F |
138 |
ECCO_COST_INIT_FIXED |
gencost_period(k) = 86400. |
|
./pkg/ecco/ecco_cost_init_fixed.F |
139 |
ECCO_COST_INIT_FIXED |
else if ( gencost_avgperiod(k) .EQ. 'month' .OR. |
|
./pkg/ecco/ecco_cost_init_fixed.F |
140 |
ECCO_COST_INIT_FIXED |
& gencost_avgperiod(k) .EQ. 'MONTH' ) then |
|
./pkg/ecco/ecco_cost_init_fixed.F |
141 |
ECCO_COST_INIT_FIXED |
gencost_nrec(k) =nmonsrec |
|
./pkg/ecco/ecco_cost_init_fixed.F |
142 |
ECCO_COST_INIT_FIXED |
gencost_period(k) = 0. |
|
./pkg/ecco/ecco_cost_init_fixed.F |
143 |
ECCO_COST_INIT_FIXED |
else if ( gencost_avgperiod(k) .EQ. 'year' .OR. |
|
./pkg/ecco/ecco_cost_init_fixed.F |
144 |
ECCO_COST_INIT_FIXED |
& gencost_avgperiod(k) .EQ. 'YEAR' ) then |
|
./pkg/ecco/ecco_cost_init_fixed.F |
57 |
ECCO_COST_INIT_FIXED |
integer irec,k |
|
./pkg/ecco/ecco_cost_init_varia.F |
140 |
ECCO_COST_INIT_VARIA |
do k=1,NGENCOST |
|
./pkg/ecco/ecco_cost_init_varia.F |
141 |
ECCO_COST_INIT_VARIA |
objf_gencost(bi,bj,k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
144 |
ECCO_COST_INIT_VARIA |
do k=1,NUSERCOST |
|
./pkg/ecco/ecco_cost_init_varia.F |
145 |
ECCO_COST_INIT_VARIA |
objf_usercost(k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
147 |
ECCO_COST_INIT_VARIA |
do k=1,NSSHV4COST |
|
./pkg/ecco/ecco_cost_init_varia.F |
148 |
ECCO_COST_INIT_VARIA |
objf_sshv4cost(k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
207 |
ECCO_COST_INIT_VARIA |
do k=1,NGENCOST |
|
./pkg/ecco/ecco_cost_init_varia.F |
208 |
ECCO_COST_INIT_VARIA |
num_gencost(bi,bj,k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
211 |
ECCO_COST_INIT_VARIA |
do k=1,NUSERCOST |
|
./pkg/ecco/ecco_cost_init_varia.F |
212 |
ECCO_COST_INIT_VARIA |
num_usercost(k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
214 |
ECCO_COST_INIT_VARIA |
do k=1,NSSHV4COST |
|
./pkg/ecco/ecco_cost_init_varia.F |
215 |
ECCO_COST_INIT_VARIA |
num_sshv4cost(k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
222 |
ECCO_COST_INIT_VARIA |
k = 1 |
|
./pkg/ecco/ecco_cost_init_varia.F |
228 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
236 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
244 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
252 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
260 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
267 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
274 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
281 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
46 |
ECCO_COST_INIT_VARIA |
integer i,j,k |
|
./pkg/ecco/ecco_cost_weights.F |
1000 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = wvwind(i,j,bi,bj)*maskc(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
107 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
108 |
ECCO_COST_WEIGHTS |
wti(k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
109 |
ECCO_COST_WEIGHTS |
wsi(k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
110 |
ECCO_COST_WEIGHTS |
wui(k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
111 |
ECCO_COST_WEIGHTS |
wvi(k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1464 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
1468 |
ECCO_COST_WEIGHTS |
if (wdiffkr2(i,j,k,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1469 |
ECCO_COST_WEIGHTS |
wdiffkr2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1488 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
1492 |
ECCO_COST_WEIGHTS |
if (wkapgm2(i,j,k,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1493 |
ECCO_COST_WEIGHTS |
wkapgm2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1512 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
1516 |
ECCO_COST_WEIGHTS |
if (wkapredi2(i,j,k,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1517 |
ECCO_COST_WEIGHTS |
wkapredi2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1536 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
1540 |
ECCO_COST_WEIGHTS |
if (wedtaux2(i,j,k,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1541 |
ECCO_COST_WEIGHTS |
wedtaux2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1543 |
ECCO_COST_WEIGHTS |
wedtauy2(i,j,k,bi,bj)=wedtaux2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1554 |
ECCO_COST_WEIGHTS |
do k=1,NGENCOST |
|
./pkg/ecco/ecco_cost_weights.F |
1555 |
ECCO_COST_WEIGHTS |
if ( gencost_errfile(k) .NE. ' ' ) then |
|
./pkg/ecco/ecco_cost_weights.F |
1557 |
ECCO_COST_WEIGHTS |
call MDSREADFIELD( gencost_errfile(k), cost_iprec, cost_yftype, |
|
./pkg/ecco/ecco_cost_weights.F |
1558 |
ECCO_COST_WEIGHTS |
& 1, gencost_weight(:,:,1,1,k), 1, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
1565 |
ECCO_COST_WEIGHTS |
if (gencost_weight(i,j,bi,bj,k) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1566 |
ECCO_COST_WEIGHTS |
gencost_weight(i,j,bi,bj,k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
162 |
ECCO_COST_WEIGHTS |
do k = 1,Nr |
|
./pkg/ecco/ecco_cost_weights.F |
163 |
ECCO_COST_WEIGHTS |
wtheta (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
164 |
ECCO_COST_WEIGHTS |
wsalt (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
165 |
ECCO_COST_WEIGHTS |
wctdt (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
166 |
ECCO_COST_WEIGHTS |
wctds (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
167 |
ECCO_COST_WEIGHTS |
wdiffkr(k,bi,bj) = wdiffkr0 |
|
./pkg/ecco/ecco_cost_weights.F |
168 |
ECCO_COST_WEIGHTS |
wkapgm (k,bi,bj) = wkapgm0 |
|
./pkg/ecco/ecco_cost_weights.F |
169 |
ECCO_COST_WEIGHTS |
wkapredi (k,bi,bj) = wkapredi0 |
|
./pkg/ecco/ecco_cost_weights.F |
170 |
ECCO_COST_WEIGHTS |
wedtaux(k,bi,bj) = wedtau0 |
|
./pkg/ecco/ecco_cost_weights.F |
171 |
ECCO_COST_WEIGHTS |
wedtauy(k,bi,bj) = wedtau0 |
|
./pkg/ecco/ecco_cost_weights.F |
174 |
ECCO_COST_WEIGHTS |
wtheta2 (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
175 |
ECCO_COST_WEIGHTS |
wsalt2 (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1769 |
ECCO_COST_WEIGHTS |
do k=1,NGENCOST |
|
./pkg/ecco/ecco_cost_weights.F |
176 |
ECCO_COST_WEIGHTS |
wdiffkr2(i,j,k,bi,bj) = wdiffkr0 |
|
./pkg/ecco/ecco_cost_weights.F |
1770 |
ECCO_COST_WEIGHTS |
if (gencost_weight(i,j,bi,bj,k) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1771 |
ECCO_COST_WEIGHTS |
gencost_weight(i,j,bi,bj,k) = |
|
./pkg/ecco/ecco_cost_weights.F |
1772 |
ECCO_COST_WEIGHTS |
& 1./gencost_weight(i,j,bi,bj,k)/ |
|
./pkg/ecco/ecco_cost_weights.F |
1773 |
ECCO_COST_WEIGHTS |
& gencost_weight(i,j,bi,bj,k) |
|
./pkg/ecco/ecco_cost_weights.F |
1775 |
ECCO_COST_WEIGHTS |
gencost_weight(i,j,bi,bj,k) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
177 |
ECCO_COST_WEIGHTS |
wkapgm2 (i,j,k,bi,bj) = wkapgm0 |
|
./pkg/ecco/ecco_cost_weights.F |
1784 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
1786 |
ECCO_COST_WEIGHTS |
if (wobcsn(k,iobcs) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1787 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = |
|
./pkg/ecco/ecco_cost_weights.F |
1788 |
ECCO_COST_WEIGHTS |
& ratio/wobcsn(k,iobcs)/wobcsn(k,iobcs) |
|
./pkg/ecco/ecco_cost_weights.F |
178 |
ECCO_COST_WEIGHTS |
wkapredi2 (i,j,k,bi,bj) = wkapredi0 |
|
./pkg/ecco/ecco_cost_weights.F |
1790 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1794 |
ECCO_COST_WEIGHTS |
if (wobcss(k,iobcs) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1795 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = |
|
./pkg/ecco/ecco_cost_weights.F |
1796 |
ECCO_COST_WEIGHTS |
& ratio/wobcss(k,iobcs)/wobcss(k,iobcs) |
|
./pkg/ecco/ecco_cost_weights.F |
1798 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
179 |
ECCO_COST_WEIGHTS |
wedtaux2(i,j,k,bi,bj) = wedtau0 |
|
./pkg/ecco/ecco_cost_weights.F |
1802 |
ECCO_COST_WEIGHTS |
if (wobcsw(k,iobcs) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1803 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = |
|
./pkg/ecco/ecco_cost_weights.F |
1804 |
ECCO_COST_WEIGHTS |
& ratio/wobcsw(k,iobcs)/wobcsw(k,iobcs) |
|
./pkg/ecco/ecco_cost_weights.F |
1806 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
180 |
ECCO_COST_WEIGHTS |
wedtauy2(i,j,k,bi,bj) = wedtau0 |
|
./pkg/ecco/ecco_cost_weights.F |
1810 |
ECCO_COST_WEIGHTS |
if (wobcse(k,iobcs) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1811 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = |
|
./pkg/ecco/ecco_cost_weights.F |
1812 |
ECCO_COST_WEIGHTS |
& ratio/wobcse(k,iobcs)/wobcse(k,iobcs) |
|
./pkg/ecco/ecco_cost_weights.F |
1814 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
181 |
ECCO_COST_WEIGHTS |
wthetaLev (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1826 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
1827 |
ECCO_COST_WEIGHTS |
if (wdiffkr(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1828 |
ECCO_COST_WEIGHTS |
wdiffkr(k,bi,bj) = 1./wdiffkr(k,bi,bj)/wdiffkr(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
182 |
ECCO_COST_WEIGHTS |
wsaltLev (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1830 |
ECCO_COST_WEIGHTS |
wdiffkr(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1832 |
ECCO_COST_WEIGHTS |
if (wkapgm(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1833 |
ECCO_COST_WEIGHTS |
wkapgm(k,bi,bj) = 1./wkapgm(k,bi,bj)/wkapgm(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1835 |
ECCO_COST_WEIGHTS |
wkapgm(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1837 |
ECCO_COST_WEIGHTS |
if (wkapredi(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1838 |
ECCO_COST_WEIGHTS |
wkapredi(k,bi,bj) = 1./wkapredi(k,bi,bj)/wkapredi(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
183 |
ECCO_COST_WEIGHTS |
wdiffkrFld(i,j,k,bi,bj) = wdiffkr0 |
|
./pkg/ecco/ecco_cost_weights.F |
1840 |
ECCO_COST_WEIGHTS |
wkapredi(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1842 |
ECCO_COST_WEIGHTS |
if (wedtaux(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1843 |
ECCO_COST_WEIGHTS |
wedtaux(k,bi,bj) = 1./wedtaux(k,bi,bj)/wedtaux(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1845 |
ECCO_COST_WEIGHTS |
wedtaux(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1847 |
ECCO_COST_WEIGHTS |
if (wedtauy(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1848 |
ECCO_COST_WEIGHTS |
wedtauy(k,bi,bj) = 1./wedtauy(k,bi,bj)/wedtauy(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
184 |
ECCO_COST_WEIGHTS |
wkapgmFld (i,j,k,bi,bj) = wkapgm0 |
|
./pkg/ecco/ecco_cost_weights.F |
1850 |
ECCO_COST_WEIGHTS |
wedtauy(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1854 |
ECCO_COST_WEIGHTS |
if (wdiffkr2(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1855 |
ECCO_COST_WEIGHTS |
wdiffkr2(i,j,k,bi,bj) = frame(i,j)/ |
|
./pkg/ecco/ecco_cost_weights.F |
1856 |
ECCO_COST_WEIGHTS |
& wdiffkr2(i,j,k,bi,bj)/wdiffkr2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1858 |
ECCO_COST_WEIGHTS |
wdiffkr2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
185 |
ECCO_COST_WEIGHTS |
wkaprediFld (i,j,k,bi,bj) = wkapredi0 |
|
./pkg/ecco/ecco_cost_weights.F |
1860 |
ECCO_COST_WEIGHTS |
wdiffkrFld(i,j,k,bi,bj) = wdiffkr2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1862 |
ECCO_COST_WEIGHTS |
if (wkapgm2(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1863 |
ECCO_COST_WEIGHTS |
wkapgm2(i,j,k,bi,bj) = frame(i,j)/ |
|
./pkg/ecco/ecco_cost_weights.F |
1864 |
ECCO_COST_WEIGHTS |
& wkapgm2(i,j,k,bi,bj)/wkapgm2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1866 |
ECCO_COST_WEIGHTS |
wkapgm2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1868 |
ECCO_COST_WEIGHTS |
wkapgmFld(i,j,k,bi,bj) = wkapgm2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
186 |
ECCO_COST_WEIGHTS |
wedtauxFld(i,j,k,bi,bj) = wedtau0 |
|
./pkg/ecco/ecco_cost_weights.F |
1870 |
ECCO_COST_WEIGHTS |
if (wkapredi2(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1871 |
ECCO_COST_WEIGHTS |
wkapredi2(i,j,k,bi,bj) = frame(i,j)/ |
|
./pkg/ecco/ecco_cost_weights.F |
1872 |
ECCO_COST_WEIGHTS |
& wkapredi2(i,j,k,bi,bj)/wkapredi2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1874 |
ECCO_COST_WEIGHTS |
wkapredi2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1876 |
ECCO_COST_WEIGHTS |
wkaprediFld(i,j,k,bi,bj) = wkapredi2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1878 |
ECCO_COST_WEIGHTS |
if (wedtaux2(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1879 |
ECCO_COST_WEIGHTS |
wedtaux2(i,j,k,bi,bj) = frame(i,j)/ |
|
./pkg/ecco/ecco_cost_weights.F |
187 |
ECCO_COST_WEIGHTS |
wedtauyFld(i,j,k,bi,bj) = wedtau0 |
|
./pkg/ecco/ecco_cost_weights.F |
1880 |
ECCO_COST_WEIGHTS |
& wedtaux2(i,j,k,bi,bj)/wedtaux2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1882 |
ECCO_COST_WEIGHTS |
wedtaux2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1884 |
ECCO_COST_WEIGHTS |
wedtauxFld(i,j,k,bi,bj) = wedtaux2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1886 |
ECCO_COST_WEIGHTS |
if (wedtauy2(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1887 |
ECCO_COST_WEIGHTS |
wedtauy2(i,j,k,bi,bj) = frame(i,j)/ |
|
./pkg/ecco/ecco_cost_weights.F |
1888 |
ECCO_COST_WEIGHTS |
& wedtauy2(i,j,k,bi,bj)/wedtauy2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1890 |
ECCO_COST_WEIGHTS |
wedtauy2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1892 |
ECCO_COST_WEIGHTS |
wedtauyFld(i,j,k,bi,bj) = wedtauy2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
197 |
ECCO_COST_WEIGHTS |
do k = 1,Nr |
|
./pkg/ecco/ecco_cost_weights.F |
200 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
204 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
208 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
212 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
267 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
268 |
ECCO_COST_WEIGHTS |
read(gwunit,*) wti(k), wsi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
270 |
ECCO_COST_WEIGHTS |
& , wvi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
293 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
294 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = wti(k) |
|
./pkg/ecco/ecco_cost_weights.F |
295 |
ECCO_COST_WEIGHTS |
wsalt (k,bi,bj) = wsi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
296 |
ECCO_COST_WEIGHTS |
wcurrent(k,bi,bj) = wvi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
298 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
299 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = ratio/wtheta(k,bi,bj)/wtheta(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
301 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
303 |
ECCO_COST_WEIGHTS |
if (wsalt(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
304 |
ECCO_COST_WEIGHTS |
wsalt(k,bi,bj) = ratio/wsalt(k,bi,bj)/wsalt(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
306 |
ECCO_COST_WEIGHTS |
wsalt(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
310 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
312 |
ECCO_COST_WEIGHTS |
wobcsn(k,1) = wti(k) |
|
./pkg/ecco/ecco_cost_weights.F |
313 |
ECCO_COST_WEIGHTS |
wobcsn(k,2) = wsi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
314 |
ECCO_COST_WEIGHTS |
wobcsn(k,3) = wvi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
315 |
ECCO_COST_WEIGHTS |
wobcsn(k,4) = wvi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
318 |
ECCO_COST_WEIGHTS |
wobcss(k,1) = wti(k) |
|
./pkg/ecco/ecco_cost_weights.F |
319 |
ECCO_COST_WEIGHTS |
wobcss(k,2) = wsi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
320 |
ECCO_COST_WEIGHTS |
wobcss(k,3) = wvi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
321 |
ECCO_COST_WEIGHTS |
wobcss(k,4) = wvi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
324 |
ECCO_COST_WEIGHTS |
wobcsw(k,1) = wti(k) |
|
./pkg/ecco/ecco_cost_weights.F |
325 |
ECCO_COST_WEIGHTS |
wobcsw(k,2) = wsi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
326 |
ECCO_COST_WEIGHTS |
wobcsw(k,3) = wvi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
327 |
ECCO_COST_WEIGHTS |
wobcsw(k,4) = wvi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
330 |
ECCO_COST_WEIGHTS |
wobcse(k,1) = wti(k) |
|
./pkg/ecco/ecco_cost_weights.F |
331 |
ECCO_COST_WEIGHTS |
wobcse(k,2) = wsi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
332 |
ECCO_COST_WEIGHTS |
wobcse(k,3) = wvi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
333 |
ECCO_COST_WEIGHTS |
wobcse(k,4) = wvi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
346 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
350 |
ECCO_COST_WEIGHTS |
if ( wsaltLev(i,j,k,bi,bj).eq.0 ) then |
|
./pkg/ecco/ecco_cost_weights.F |
351 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
353 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
354 |
ECCO_COST_WEIGHTS |
$ ( wsaltLev(i,j,k,bi,bj)*wsaltLev(i,j,k,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
364 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
367 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj)= |
|
./pkg/ecco/ecco_cost_weights.F |
368 |
ECCO_COST_WEIGHTS |
$ wsalt(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
387 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
391 |
ECCO_COST_WEIGHTS |
if ( wthetaLev(i,j,k,bi,bj).eq.0 ) then |
|
./pkg/ecco/ecco_cost_weights.F |
392 |
ECCO_COST_WEIGHTS |
wthetaLev(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
394 |
ECCO_COST_WEIGHTS |
wthetaLev(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
395 |
ECCO_COST_WEIGHTS |
$ ( wthetaLev(i,j,k,bi,bj)*wthetaLev(i,j,k,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
405 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
408 |
ECCO_COST_WEIGHTS |
wthetaLev(i,j,k,bi,bj)= |
|
./pkg/ecco/ecco_cost_weights.F |
409 |
ECCO_COST_WEIGHTS |
$ wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
433 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
437 |
ECCO_COST_WEIGHTS |
if (wsalt(k,bi,bj).eq.0. .or. |
|
./pkg/ecco/ecco_cost_weights.F |
438 |
ECCO_COST_WEIGHTS |
$ wsalt2(i,j,k,bi,bj).eq.0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
439 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
441 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
442 |
ECCO_COST_WEIGHTS |
$ ( wsalt2(i,j,k,bi,bj)*wsalt2(i,j,k,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
452 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
455 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj)= |
|
./pkg/ecco/ecco_cost_weights.F |
456 |
ECCO_COST_WEIGHTS |
$ wsalt(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
480 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
484 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj).eq.0. .or. |
|
./pkg/ecco/ecco_cost_weights.F |
485 |
ECCO_COST_WEIGHTS |
$ wtheta2(i,j,k,bi,bj).eq.0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
486 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
488 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
489 |
ECCO_COST_WEIGHTS |
$ ( wtheta2(i,j,k,bi,bj)*wtheta2(i,j,k,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
499 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
502 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj).eq.0 ) then |
|
./pkg/ecco/ecco_cost_weights.F |
503 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
505 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
506 |
ECCO_COST_WEIGHTS |
$ wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
50 |
ECCO_COST_WEIGHTS |
integer i,j,k |
|
./pkg/ecco/ecco_cost_weights.F |
528 |
ECCO_COST_WEIGHTS |
k = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
540 |
ECCO_COST_WEIGHTS |
& wsst(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
545 |
ECCO_COST_WEIGHTS |
wsst(i,j,bi,bj) = wtheta2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
547 |
ECCO_COST_WEIGHTS |
wsst(i,j,bi,bj) = wthetaLev(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
550 |
ECCO_COST_WEIGHTS |
& wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
559 |
ECCO_COST_WEIGHTS |
& wsss(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
565 |
ECCO_COST_WEIGHTS |
wsss(i,j,bi,bj) = wsalt2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
567 |
ECCO_COST_WEIGHTS |
wsss(i,j,bi,bj) = wsaltLev(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
570 |
ECCO_COST_WEIGHTS |
& wsalt(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
633 |
ECCO_COST_WEIGHTS |
k = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
638 |
ECCO_COST_WEIGHTS |
if (maskC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
672 |
ECCO_COST_WEIGHTS |
k = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
675 |
ECCO_COST_WEIGHTS |
if (maskC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
709 |
ECCO_COST_WEIGHTS |
k = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
764 |
ECCO_COST_WEIGHTS |
wsshv4tmp(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
790 |
ECCO_COST_WEIGHTS |
& wbp(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
812 |
ECCO_COST_WEIGHTS |
k = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
821 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = wscatx(i,j,bi,bj)*maskw(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
828 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = wscaty(i,j,bi,bj)*masks(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
848 |
ECCO_COST_WEIGHTS |
k = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
882 |
ECCO_COST_WEIGHTS |
k = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
892 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = wtauu(i,j,bi,bj)*maskw(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
895 |
ECCO_COST_WEIGHTS |
wtauu2(i,j,bi,bj) = wtau0*maskW(i,j,k,bi,bj)*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
898 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = wtauu(i,j,bi,bj)*maskc(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
900 |
ECCO_COST_WEIGHTS |
wtauu2(i,j,bi,bj) = wtau0*maskc(i,j,k,bi,bj)*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
921 |
ECCO_COST_WEIGHTS |
k = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
930 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = wuwind(i,j,bi,bj)*maskc(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
962 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = wtauv(i,j,bi,bj)*masks(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
965 |
ECCO_COST_WEIGHTS |
wtauv2(i,j,bi,bj) = wtau0*maskS(i,j,k,bi,bj)*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
968 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = wtauv(i,j,bi,bj)*maskc(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
970 |
ECCO_COST_WEIGHTS |
wtauv2(i,j,bi,bj) = wtau0*maskc(i,j,k,bi,bj)*frame(i,j) |
|
./pkg/ecco/ecco_readparms.F |
258 |
ECCO_READPARMS |
do k=1,NUSERCOST |
|
./pkg/ecco/ecco_readparms.F |
259 |
ECCO_READPARMS |
usercost_datafile(k) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
260 |
ECCO_READPARMS |
usercost_errfile(k) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
262 |
ECCO_READPARMS |
do k=1,NSSHV4COST |
|
./pkg/ecco/ecco_readparms.F |
263 |
ECCO_READPARMS |
sshv4cost_scalefile(k) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
264 |
ECCO_READPARMS |
sshv4cost_errfile(k) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
265 |
ECCO_READPARMS |
sshv4cost_errfactor(k) = 1. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
327 |
ECCO_READPARMS |
do k=1,NUSERCOST |
|
./pkg/ecco/ecco_readparms.F |
328 |
ECCO_READPARMS |
mult_usercost(k) = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
330 |
ECCO_READPARMS |
do k=1,NSSHV4COST |
|
./pkg/ecco/ecco_readparms.F |
331 |
ECCO_READPARMS |
mult_sshv4cost(k) = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
38 |
ECCO_READPARMS |
INTEGER k, iUnit, num_file, num_var |
|
./pkg/ecco/ecco_readparms.F |
448 |
ECCO_READPARMS |
do k=1,NGENCOST |
|
./pkg/ecco/ecco_readparms.F |
449 |
ECCO_READPARMS |
gencost_avgperiod(k) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
450 |
ECCO_READPARMS |
gencost_datafile(k) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
451 |
ECCO_READPARMS |
gencost_name(k) = 'gencost' |
|
./pkg/ecco/ecco_readparms.F |
452 |
ECCO_READPARMS |
gencost_scalefile(k) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
453 |
ECCO_READPARMS |
gencost_errfile(k) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
454 |
ECCO_READPARMS |
gencost_mask(k) = 'c' |
|
./pkg/ecco/ecco_readparms.F |
457 |
ECCO_READPARMS |
gencost_barfile(k) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
461 |
ECCO_READPARMS |
mult_gencost(k) = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
473 |
ECCO_READPARMS |
do k=1,NGENCOST |
|
./pkg/ecco/ecco_readparms.F |
475 |
ECCO_READPARMS |
if ( gencost_avgperiod(k) .NE. 'day ' .AND. |
|
./pkg/ecco/ecco_readparms.F |
476 |
ECCO_READPARMS |
& gencost_avgperiod(k) .NE. 'DAY ' .AND. |
|
./pkg/ecco/ecco_readparms.F |
477 |
ECCO_READPARMS |
& gencost_avgperiod(k) .NE. 'month' .AND. |
|
./pkg/ecco/ecco_readparms.F |
478 |
ECCO_READPARMS |
& gencost_avgperiod(k) .NE. 'MONTH' .AND. |
|
./pkg/ecco/ecco_readparms.F |
479 |
ECCO_READPARMS |
& gencost_avgperiod(k) .NE. 'year ' .AND. |
|
./pkg/ecco/ecco_readparms.F |
480 |
ECCO_READPARMS |
& gencost_avgperiod(k) .NE. 'YEAR ' ) then |
|
./pkg/ecco/ecco_readparms.F |
485 |
ECCO_READPARMS |
if ( gencost_datafile(k) .ne. ' ' ) then |
|
./pkg/ecco/ecco_readparms.F |
487 |
ECCO_READPARMS |
if ( gencost_spmin(k) .EQ. 0. _d 0 .AND. |
|
./pkg/ecco/ecco_readparms.F |
488 |
ECCO_READPARMS |
& gencost_spmax(k) .EQ. 0. _d 0 ) then |
|
./pkg/ecco/ecco_readparms.F |
493 |
ECCO_READPARMS |
if ( gencost_spzero(k) .EQ. 9876. _d 0 ) then |
|
./pkg/exch2/w2_e2setup.F |
43 |
W2_E2SETUP |
INTEGER i, j, k |
|
./pkg/exch2/w2_e2setup.F |
55 |
W2_E2SETUP |
DO k=1,4 |
|
./pkg/exch2/w2_e2setup.F |
56 |
W2_E2SETUP |
facet_pij(k,i,j) = 0 |
|
./pkg/exch2/w2_print_e2setup.F |
142 |
W2_PRINT_E2SETUP |
& ' : pij=', (exch2_pij(k,np(i),ip(i)),k=1,4), |
|
./pkg/exch2/w2_print_e2setup.F |
42 |
W2_PRINT_E2SETUP |
INTEGER i, j, js, jp, jt, ii, is, it, ns, nt, k, tx, ty |
|
./pkg/exch2/w2_print_e2setup.F |
85 |
W2_PRINT_E2SETUP |
& ' : pij=', (exch2_pij(k,np(i),ip(i)),k=1,4), |
|
./pkg/exch2/w2_set_f2f_index.F |
202 |
W2_SET_F2F_INDEX |
& ' : pij=', (facet_pij(k,i,j),k=1,4), |
|
./pkg/exch2/w2_set_f2f_index.F |
37 |
W2_SET_F2F_INDEX |
INTEGER i, j, ii, jj, i1, j1, k, lo, ll |
|
./pkg/exch2/w2_set_map_tiles.F |
169 |
W2_SET_MAP_TILES |
DO k=1,nBlankTiles |
|
./pkg/exch2/w2_set_map_tiles.F |
170 |
W2_SET_MAP_TILES |
IF ( blankList(k).EQ.tId ) tileIsActive = .FALSE. |
|
./pkg/exch2/w2_set_map_tiles.F |
47 |
W2_SET_MAP_TILES |
INTEGER j, ii, k, tId, tx, ty |
|
./pkg/exch2/w2_set_tile2tiles.F |
186 |
W2_SET_TILE2TILES |
DO k=1,4 |
|
./pkg/exch2/w2_set_tile2tiles.F |
187 |
W2_SET_TILE2TILES |
exch2_pij(k,ns,is) = facet_pij(k,i,js) |
|
./pkg/exch2/w2_set_tile2tiles.F |
43 |
W2_SET_TILE2TILES |
INTEGER i, k, ii, nn |
|
./pkg/exf/exf_getforcing.F |
153 |
EXF_GETFORCING |
integer i,j,k |
|
./pkg/exf/exf_getforcing.F |
199 |
EXF_GETFORCING |
k = 1 |
|
./pkg/exf/exf_interp.F |
24 |
NO PROCEDURE |
INTEGER k |
|
./pkg/exf/exf_interp.F |
310 |
EXF_INTERP |
do k=1,2 |
|
./pkg/exf/exf_interp.F |
311 |
EXF_INTERP |
ew_val(k) = arrayin(w_ind(i,j),s_ind(i,j)+k-1) |
|
./pkg/exf/exf_interp.F |
313 |
EXF_INTERP |
& +arrayin(e_ind(i,j),s_ind(i,j)+k-1) |
|
./pkg/exf/exf_interp.F |
316 |
EXF_INTERP |
& +ew_val(k)*lagran(k,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
33 |
NO PROCEDURE |
do k=1,sp |
|
./pkg/exf/exf_interp.F |
345 |
EXF_INTERP |
do k=1,4 |
|
./pkg/exf/exf_interp.F |
346 |
EXF_INTERP |
ew_val(k) = |
|
./pkg/exf/exf_interp.F |
347 |
EXF_INTERP |
& arrayin(w_ind(i,j)-1,s_ind(i,j)+k-2) |
|
./pkg/exf/exf_interp.F |
349 |
EXF_INTERP |
& +arrayin(w_ind(i,j) ,s_ind(i,j)+k-2) |
|
./pkg/exf/exf_interp.F |
34 |
NO PROCEDURE |
if ( k .ne. i) then |
|
./pkg/exf/exf_interp.F |
351 |
EXF_INTERP |
& +arrayin(e_ind(i,j) ,s_ind(i,j)+k-2) |
|
./pkg/exf/exf_interp.F |
353 |
EXF_INTERP |
& +arrayin(e_ind(i,j)+1,s_ind(i,j)+k-2) |
|
./pkg/exf/exf_interp.F |
356 |
EXF_INTERP |
& +ew_val(k)*lagran(k,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
35 |
NO PROCEDURE |
denom = denom*(a(i) - a(k)) |
|
./pkg/exf/exf_interp.F |
36 |
NO PROCEDURE |
numer = numer*(x - a(k)) |
|
./pkg/exf/exf_interp.F |
98 |
EXF_INTERP |
integer i, j, k, l, js, bi, bj, sp, interp_unit |
|
./pkg/exf/exf_mapfields.F |
73 |
EXF_MAPFIELDS |
integer i,j,k |
|
./pkg/exf/exf_monitor.F |
50 |
EXF_MONITOR |
INTEGER k |
|
./pkg/exf/exf_monitor.F |
68 |
EXF_MONITOR |
DO k = 1,MAX_LEN_MBUF |
|
./pkg/exf/exf_monitor.F |
69 |
EXF_MONITOR |
mon_fname(k:k) = ' ' |
|
./pkg/exf/exf_radiation.F |
44 |
EXF_RADIATION |
INTEGER k |
|
./pkg/exf/exf_radiation.F |
58 |
EXF_RADIATION |
k = 1 |
|
./pkg/exf/exf_radiation.F |
84 |
EXF_RADIATION |
& ((theta(i,j,k,bi,bj)+cen2kel)**4) |
|
./pkg/exf/exf_set_obcs.F |
101 |
EXF_SET_OBCS_XZ |
DO k = 1,Nr |
|
./pkg/exf/exf_set_obcs.F |
103 |
EXF_SET_OBCS_XZ |
obcs_fld_xz(i,k,bi,bj) = |
|
./pkg/exf/exf_set_obcs.F |
104 |
EXF_SET_OBCS_XZ |
& fac * obcs_xz_0(i,k,bi,bj) + |
|
./pkg/exf/exf_set_obcs.F |
105 |
EXF_SET_OBCS_XZ |
& (exf_one - fac) * obcs_xz_1(i,k,bi,bj) |
|
./pkg/exf/exf_set_obcs.F |
171 |
EXF_SET_OBCS_YZ |
INTEGER j, k |
|
./pkg/exf/exf_set_obcs.F |
204 |
EXF_SET_OBCS_YZ |
DO k = 1,Nr |
|
./pkg/exf/exf_set_obcs.F |
206 |
EXF_SET_OBCS_YZ |
obcs_fld_yz(j,k,bi,bj) = |
|
./pkg/exf/exf_set_obcs.F |
207 |
EXF_SET_OBCS_YZ |
& fac *obcs_yz_0(j,k,bi,bj) + |
|
./pkg/exf/exf_set_obcs.F |
208 |
EXF_SET_OBCS_YZ |
& (exf_one - fac) *obcs_yz_1(j,k,bi,bj) |
|
./pkg/exf/exf_set_obcs.F |
68 |
EXF_SET_OBCS_XZ |
INTEGER i, k |
|
./model/inc/HFACC_MACROS.h |
36 |
NO PROCEDURE |
# define _hFacC(i,j,k,bi,bj) hFacC(i,j,k,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/exf/exf_swapffields.F |
111 |
EXF_SWAPFFIELDS_3D |
integer k |
|
./pkg/exf/exf_swapffields.F |
124 |
EXF_SWAPFFIELDS_3D |
do k = 1,nr |
|
./pkg/exf/exf_swapffields.F |
127 |
EXF_SWAPFFIELDS_3D |
ffld0(i,j,k,bi,bj) = ffld1(i,j,k,bi,bj) |
|
./pkg/exf/exf_swapffields.F |
128 |
EXF_SWAPFFIELDS_3D |
ffld1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
171 |
EXF_SWAPFFIELDS_XZ |
integer i, k |
|
./pkg/exf/exf_swapffields.F |
184 |
EXF_SWAPFFIELDS_XZ |
do k = 1,Nr |
|
./pkg/exf/exf_swapffields.F |
186 |
EXF_SWAPFFIELDS_XZ |
ffld0(i,k,bi,bj) = ffld1(i,k,bi,bj) |
|
./pkg/exf/exf_swapffields.F |
187 |
EXF_SWAPFFIELDS_XZ |
ffld1(i,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
229 |
EXF_SWAPFFIELDS_YZ |
integer j, k |
|
./pkg/exf/exf_swapffields.F |
242 |
EXF_SWAPFFIELDS_YZ |
do k = 1,Nr |
|
./pkg/exf/exf_swapffields.F |
244 |
EXF_SWAPFFIELDS_YZ |
ffld0(j,k,bi,bj) = ffld1(j,k,bi,bj) |
|
./pkg/exf/exf_swapffields.F |
245 |
EXF_SWAPFFIELDS_YZ |
ffld1(j,k,bi,bj) = 0. _d 0 |