| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_cost_init_varia.F |
155 |
ECCO_COST_INIT_VARIA |
do k=1,NUSERCOST |
|
./pkg/ecco/ecco_cost_init_varia.F |
156 |
ECCO_COST_INIT_VARIA |
objf_usercost(k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
158 |
ECCO_COST_INIT_VARIA |
do k=1,NSSHV4COST |
|
./pkg/ecco/ecco_cost_init_varia.F |
159 |
ECCO_COST_INIT_VARIA |
objf_sshv4cost(k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
216 |
ECCO_COST_INIT_VARIA |
do k=1,NUSERCOST |
|
./pkg/ecco/ecco_cost_init_varia.F |
217 |
ECCO_COST_INIT_VARIA |
num_usercost(k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
219 |
ECCO_COST_INIT_VARIA |
do k=1,NSSHV4COST |
|
./pkg/ecco/ecco_cost_init_varia.F |
220 |
ECCO_COST_INIT_VARIA |
num_sshv4cost(k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
227 |
ECCO_COST_INIT_VARIA |
do k=1,NGENCOST |
|
./pkg/ecco/ecco_cost_init_varia.F |
228 |
ECCO_COST_INIT_VARIA |
objf_gencost(bi,bj,k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
229 |
ECCO_COST_INIT_VARIA |
num_gencost(bi,bj,k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
258 |
ECCO_COST_INIT_VARIA |
k = 1 |
|
./pkg/ecco/ecco_cost_init_varia.F |
264 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
272 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
280 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
288 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
296 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
303 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
310 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
317 |
ECCO_COST_INIT_VARIA |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_init_varia.F |
332 |
ECCO_COST_INIT_VARIA |
do k =1,Nr |
|
./pkg/ecco/ecco_cost_init_varia.F |
335 |
ECCO_COST_INIT_VARIA |
tbar_gen(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
336 |
ECCO_COST_INIT_VARIA |
sbar_gen(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
58 |
ECCO_COST_INIT_VARIA |
integer i,j,k |
|
./pkg/ecco/ecco_cost_weights.F |
1007 |
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 |
1038 |
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 |
1041 |
ECCO_COST_WEIGHTS |
wtauv2(i,j,bi,bj) = wtau0*maskS(i,j,k,bi,bj)*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
1044 |
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 |
1046 |
ECCO_COST_WEIGHTS |
wtauv2(i,j,bi,bj) = wtau0*maskc(i,j,k,bi,bj)*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
1076 |
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 |
119 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
120 |
ECCO_COST_WEIGHTS |
wti(k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
121 |
ECCO_COST_WEIGHTS |
wsi(k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
122 |
ECCO_COST_WEIGHTS |
wui(k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
123 |
ECCO_COST_WEIGHTS |
wvi(k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1539 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
1543 |
ECCO_COST_WEIGHTS |
if (wdiffkr2(i,j,k,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1544 |
ECCO_COST_WEIGHTS |
wdiffkr2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1563 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
1567 |
ECCO_COST_WEIGHTS |
if (wkapgm2(i,j,k,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1568 |
ECCO_COST_WEIGHTS |
wkapgm2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1587 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
1591 |
ECCO_COST_WEIGHTS |
if (wkapredi2(i,j,k,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1592 |
ECCO_COST_WEIGHTS |
wkapredi2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1611 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
1615 |
ECCO_COST_WEIGHTS |
if (wedtaux2(i,j,k,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1616 |
ECCO_COST_WEIGHTS |
wedtaux2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1618 |
ECCO_COST_WEIGHTS |
wedtauy2(i,j,k,bi,bj)=wedtaux2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1674 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
1678 |
ECCO_COST_WEIGHTS |
if ( wuvel3d(i,j,k,bi,bj).eq.0 ) then |
|
./pkg/ecco/ecco_cost_weights.F |
1679 |
ECCO_COST_WEIGHTS |
wuvel3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1681 |
ECCO_COST_WEIGHTS |
wuvel3d(i,j,k,bi,bj)=frame(i,j)*maskW(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
1682 |
ECCO_COST_WEIGHTS |
$ ( wuvel3d(i,j,k,bi,bj)*wuvel3d(i,j,k,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
1684 |
ECCO_COST_WEIGHTS |
if ( wvvel3d(i,j,k,bi,bj).eq.0 ) then |
|
./pkg/ecco/ecco_cost_weights.F |
1685 |
ECCO_COST_WEIGHTS |
wvvel3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1687 |
ECCO_COST_WEIGHTS |
wvvel3d(i,j,k,bi,bj)=frame(i,j)*maskS(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
1688 |
ECCO_COST_WEIGHTS |
$ ( wvvel3d(i,j,k,bi,bj)*wvvel3d(i,j,k,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
175 |
ECCO_COST_WEIGHTS |
do k = 1,Nr |
|
./pkg/ecco/ecco_cost_weights.F |
176 |
ECCO_COST_WEIGHTS |
wtheta (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
177 |
ECCO_COST_WEIGHTS |
wsalt (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
178 |
ECCO_COST_WEIGHTS |
wuvel (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
179 |
ECCO_COST_WEIGHTS |
wvvel (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
180 |
ECCO_COST_WEIGHTS |
wctdt (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
181 |
ECCO_COST_WEIGHTS |
wctds (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
182 |
ECCO_COST_WEIGHTS |
wdiffkr(k,bi,bj) = wdiffkr0 |
|
./pkg/ecco/ecco_cost_weights.F |
183 |
ECCO_COST_WEIGHTS |
wkapgm (k,bi,bj) = wkapgm0 |
|
./pkg/ecco/ecco_cost_weights.F |
184 |
ECCO_COST_WEIGHTS |
wkapredi (k,bi,bj) = wkapredi0 |
|
./pkg/ecco/ecco_cost_weights.F |
185 |
ECCO_COST_WEIGHTS |
wedtaux(k,bi,bj) = wedtau0 |
|
./pkg/ecco/ecco_cost_weights.F |
186 |
ECCO_COST_WEIGHTS |
wedtauy(k,bi,bj) = wedtau0 |
|
./pkg/ecco/ecco_cost_weights.F |
189 |
ECCO_COST_WEIGHTS |
wtheta2 (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1903 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
1905 |
ECCO_COST_WEIGHTS |
if (wobcsn(k,iobcs) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1906 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = |
|
./pkg/ecco/ecco_cost_weights.F |
1907 |
ECCO_COST_WEIGHTS |
& ratio/wobcsn(k,iobcs)/wobcsn(k,iobcs) |
|
./pkg/ecco/ecco_cost_weights.F |
1909 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
190 |
ECCO_COST_WEIGHTS |
wsalt2 (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1913 |
ECCO_COST_WEIGHTS |
if (wobcss(k,iobcs) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1914 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = |
|
./pkg/ecco/ecco_cost_weights.F |
1915 |
ECCO_COST_WEIGHTS |
& ratio/wobcss(k,iobcs)/wobcss(k,iobcs) |
|
./pkg/ecco/ecco_cost_weights.F |
1917 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
191 |
ECCO_COST_WEIGHTS |
wdiffkr2(i,j,k,bi,bj) = wdiffkr0 |
|
./pkg/ecco/ecco_cost_weights.F |
1921 |
ECCO_COST_WEIGHTS |
if (wobcsw(k,iobcs) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1922 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = |
|
./pkg/ecco/ecco_cost_weights.F |
1923 |
ECCO_COST_WEIGHTS |
& ratio/wobcsw(k,iobcs)/wobcsw(k,iobcs) |
|
./pkg/ecco/ecco_cost_weights.F |
1925 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1929 |
ECCO_COST_WEIGHTS |
if (wobcse(k,iobcs) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
192 |
ECCO_COST_WEIGHTS |
wkapgm2 (i,j,k,bi,bj) = wkapgm0 |
|
./pkg/ecco/ecco_cost_weights.F |
1930 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = |
|
./pkg/ecco/ecco_cost_weights.F |
1931 |
ECCO_COST_WEIGHTS |
& ratio/wobcse(k,iobcs)/wobcse(k,iobcs) |
|
./pkg/ecco/ecco_cost_weights.F |
1933 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
193 |
ECCO_COST_WEIGHTS |
wkapredi2 (i,j,k,bi,bj) = wkapredi0 |
|
./pkg/ecco/ecco_cost_weights.F |
1946 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
1947 |
ECCO_COST_WEIGHTS |
if (wdiffkr(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1948 |
ECCO_COST_WEIGHTS |
wdiffkr(k,bi,bj) = 1./wdiffkr(k,bi,bj)/wdiffkr(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
194 |
ECCO_COST_WEIGHTS |
wedtaux2(i,j,k,bi,bj) = wedtau0 |
|
./pkg/ecco/ecco_cost_weights.F |
1950 |
ECCO_COST_WEIGHTS |
wdiffkr(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1952 |
ECCO_COST_WEIGHTS |
if (wkapgm(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1953 |
ECCO_COST_WEIGHTS |
wkapgm(k,bi,bj) = 1./wkapgm(k,bi,bj)/wkapgm(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1955 |
ECCO_COST_WEIGHTS |
wkapgm(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1957 |
ECCO_COST_WEIGHTS |
if (wkapredi(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1958 |
ECCO_COST_WEIGHTS |
wkapredi(k,bi,bj) = 1./wkapredi(k,bi,bj)/wkapredi(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
195 |
ECCO_COST_WEIGHTS |
wedtauy2(i,j,k,bi,bj) = wedtau0 |
|
./pkg/ecco/ecco_cost_weights.F |
1960 |
ECCO_COST_WEIGHTS |
wkapredi(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1962 |
ECCO_COST_WEIGHTS |
if (wedtaux(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1963 |
ECCO_COST_WEIGHTS |
wedtaux(k,bi,bj) = 1./wedtaux(k,bi,bj)/wedtaux(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1965 |
ECCO_COST_WEIGHTS |
wedtaux(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1967 |
ECCO_COST_WEIGHTS |
if (wedtauy(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1968 |
ECCO_COST_WEIGHTS |
wedtauy(k,bi,bj) = 1./wedtauy(k,bi,bj)/wedtauy(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
196 |
ECCO_COST_WEIGHTS |
wthetaLev (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1970 |
ECCO_COST_WEIGHTS |
wedtauy(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1974 |
ECCO_COST_WEIGHTS |
if (wdiffkr2(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1975 |
ECCO_COST_WEIGHTS |
wdiffkr2(i,j,k,bi,bj) = frame(i,j)/ |
|
./pkg/ecco/ecco_cost_weights.F |
1976 |
ECCO_COST_WEIGHTS |
& wdiffkr2(i,j,k,bi,bj)/wdiffkr2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1978 |
ECCO_COST_WEIGHTS |
wdiffkr2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
197 |
ECCO_COST_WEIGHTS |
wsaltLev (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1980 |
ECCO_COST_WEIGHTS |
wdiffkrFld(i,j,k,bi,bj) = wdiffkr2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1982 |
ECCO_COST_WEIGHTS |
if (wkapgm2(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1983 |
ECCO_COST_WEIGHTS |
wkapgm2(i,j,k,bi,bj) = frame(i,j)/ |
|
./pkg/ecco/ecco_cost_weights.F |
1984 |
ECCO_COST_WEIGHTS |
& wkapgm2(i,j,k,bi,bj)/wkapgm2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1986 |
ECCO_COST_WEIGHTS |
wkapgm2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1988 |
ECCO_COST_WEIGHTS |
wkapgmFld(i,j,k,bi,bj) = wkapgm2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
198 |
ECCO_COST_WEIGHTS |
wdiffkrFld(i,j,k,bi,bj) = wdiffkr0 |
|
./pkg/ecco/ecco_cost_weights.F |
1990 |
ECCO_COST_WEIGHTS |
if (wkapredi2(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1991 |
ECCO_COST_WEIGHTS |
wkapredi2(i,j,k,bi,bj) = frame(i,j)/ |
|
./pkg/ecco/ecco_cost_weights.F |
1992 |
ECCO_COST_WEIGHTS |
& wkapredi2(i,j,k,bi,bj)/wkapredi2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1994 |
ECCO_COST_WEIGHTS |
wkapredi2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1996 |
ECCO_COST_WEIGHTS |
wkaprediFld(i,j,k,bi,bj) = wkapredi2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1998 |
ECCO_COST_WEIGHTS |
if (wedtaux2(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1999 |
ECCO_COST_WEIGHTS |
wedtaux2(i,j,k,bi,bj) = frame(i,j)/ |
|
./pkg/ecco/ecco_cost_weights.F |
199 |
ECCO_COST_WEIGHTS |
wkapgmFld (i,j,k,bi,bj) = wkapgm0 |
|
./pkg/ecco/ecco_cost_weights.F |
2000 |
ECCO_COST_WEIGHTS |
& wedtaux2(i,j,k,bi,bj)/wedtaux2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
2002 |
ECCO_COST_WEIGHTS |
wedtaux2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
2004 |
ECCO_COST_WEIGHTS |
wedtauxFld(i,j,k,bi,bj) = wedtaux2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
2006 |
ECCO_COST_WEIGHTS |
if (wedtauy2(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
2007 |
ECCO_COST_WEIGHTS |
wedtauy2(i,j,k,bi,bj) = frame(i,j)/ |
|
./pkg/ecco/ecco_cost_weights.F |
2008 |
ECCO_COST_WEIGHTS |
& wedtauy2(i,j,k,bi,bj)/wedtauy2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
200 |
ECCO_COST_WEIGHTS |
wkaprediFld (i,j,k,bi,bj) = wkapredi0 |
|
./pkg/ecco/ecco_cost_weights.F |
2010 |
ECCO_COST_WEIGHTS |
wedtauy2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
2012 |
ECCO_COST_WEIGHTS |
wedtauyFld(i,j,k,bi,bj) = wedtauy2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
201 |
ECCO_COST_WEIGHTS |
wedtauxFld(i,j,k,bi,bj) = wedtau0 |
|
./pkg/ecco/ecco_cost_weights.F |
202 |
ECCO_COST_WEIGHTS |
wedtauyFld(i,j,k,bi,bj) = wedtau0 |
|
./pkg/ecco/ecco_cost_weights.F |
205 |
ECCO_COST_WEIGHTS |
wuvel3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
206 |
ECCO_COST_WEIGHTS |
wvvel3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
220 |
ECCO_COST_WEIGHTS |
do k = 1,Nr |
|
./pkg/ecco/ecco_cost_weights.F |
223 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
227 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
231 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
235 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
295 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
296 |
ECCO_COST_WEIGHTS |
read(gwUnit,*) wti(k), wsi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
298 |
ECCO_COST_WEIGHTS |
& , wvi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
327 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
328 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = wti(k) |
|
./pkg/ecco/ecco_cost_weights.F |
329 |
ECCO_COST_WEIGHTS |
wsalt (k,bi,bj) = wsi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
330 |
ECCO_COST_WEIGHTS |
wcurrent(k,bi,bj) = wvi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
332 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
333 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = ratio/wtheta(k,bi,bj)/wtheta(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
335 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
337 |
ECCO_COST_WEIGHTS |
if (wsalt(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
338 |
ECCO_COST_WEIGHTS |
wsalt(k,bi,bj) = ratio/wsalt(k,bi,bj)/wsalt(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
340 |
ECCO_COST_WEIGHTS |
wsalt(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
345 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
347 |
ECCO_COST_WEIGHTS |
wobcsn(k,1) = wti(k) |
|
./pkg/ecco/ecco_cost_weights.F |
348 |
ECCO_COST_WEIGHTS |
wobcsn(k,2) = wsi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
349 |
ECCO_COST_WEIGHTS |
wobcsn(k,3) = wvi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
350 |
ECCO_COST_WEIGHTS |
wobcsn(k,4) = wvi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
353 |
ECCO_COST_WEIGHTS |
wobcss(k,1) = wti(k) |
|
./pkg/ecco/ecco_cost_weights.F |
354 |
ECCO_COST_WEIGHTS |
wobcss(k,2) = wsi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
355 |
ECCO_COST_WEIGHTS |
wobcss(k,3) = wvi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
356 |
ECCO_COST_WEIGHTS |
wobcss(k,4) = wvi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
359 |
ECCO_COST_WEIGHTS |
wobcsw(k,1) = wti(k) |
|
./pkg/ecco/ecco_cost_weights.F |
360 |
ECCO_COST_WEIGHTS |
wobcsw(k,2) = wsi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
361 |
ECCO_COST_WEIGHTS |
wobcsw(k,3) = wvi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
362 |
ECCO_COST_WEIGHTS |
wobcsw(k,4) = wvi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
365 |
ECCO_COST_WEIGHTS |
wobcse(k,1) = wti(k) |
|
./pkg/ecco/ecco_cost_weights.F |
366 |
ECCO_COST_WEIGHTS |
wobcse(k,2) = wsi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
367 |
ECCO_COST_WEIGHTS |
wobcse(k,3) = wvi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
368 |
ECCO_COST_WEIGHTS |
wobcse(k,4) = wvi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
385 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
389 |
ECCO_COST_WEIGHTS |
if ( wsaltLev(i,j,k,bi,bj).eq.0 ) then |
|
./pkg/ecco/ecco_cost_weights.F |
390 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
392 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
393 |
ECCO_COST_WEIGHTS |
$ ( wsaltLev(i,j,k,bi,bj)*wsaltLev(i,j,k,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
403 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
406 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj)= |
|
./pkg/ecco/ecco_cost_weights.F |
407 |
ECCO_COST_WEIGHTS |
$ wsalt(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
428 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
432 |
ECCO_COST_WEIGHTS |
if ( wthetaLev(i,j,k,bi,bj).eq.0 ) then |
|
./pkg/ecco/ecco_cost_weights.F |
433 |
ECCO_COST_WEIGHTS |
wthetaLev(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
435 |
ECCO_COST_WEIGHTS |
wthetaLev(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
436 |
ECCO_COST_WEIGHTS |
$ ( wthetaLev(i,j,k,bi,bj)*wthetaLev(i,j,k,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
446 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
449 |
ECCO_COST_WEIGHTS |
wthetaLev(i,j,k,bi,bj)= |
|
./pkg/ecco/ecco_cost_weights.F |
450 |
ECCO_COST_WEIGHTS |
$ wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
474 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
478 |
ECCO_COST_WEIGHTS |
if (wsalt(k,bi,bj).eq.0. .or. |
|
./pkg/ecco/ecco_cost_weights.F |
479 |
ECCO_COST_WEIGHTS |
$ wsalt2(i,j,k,bi,bj).eq.0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
480 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
482 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
483 |
ECCO_COST_WEIGHTS |
$ ( wsalt2(i,j,k,bi,bj)*wsalt2(i,j,k,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
493 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
496 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj)= |
|
./pkg/ecco/ecco_cost_weights.F |
497 |
ECCO_COST_WEIGHTS |
$ wsalt(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
521 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
525 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj).eq.0. .or. |
|
./pkg/ecco/ecco_cost_weights.F |
526 |
ECCO_COST_WEIGHTS |
$ wtheta2(i,j,k,bi,bj).eq.0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
527 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
529 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
530 |
ECCO_COST_WEIGHTS |
$ ( wtheta2(i,j,k,bi,bj)*wtheta2(i,j,k,bi,bj) ) |
|
./pkg/ecco/ecco_cost_weights.F |
540 |
ECCO_COST_WEIGHTS |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_weights.F |
543 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj).eq.0 ) then |
|
./pkg/ecco/ecco_cost_weights.F |
544 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
546 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj) = |
|
./pkg/ecco/ecco_cost_weights.F |
547 |
ECCO_COST_WEIGHTS |
$ wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
569 |
ECCO_COST_WEIGHTS |
k = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
581 |
ECCO_COST_WEIGHTS |
& wsst(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
586 |
ECCO_COST_WEIGHTS |
wsst(i,j,bi,bj) = wtheta2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
588 |
ECCO_COST_WEIGHTS |
wsst(i,j,bi,bj) = wthetaLev(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
591 |
ECCO_COST_WEIGHTS |
& wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
59 |
ECCO_COST_WEIGHTS |
integer i,j,k |
|
./pkg/ecco/ecco_cost_weights.F |
601 |
ECCO_COST_WEIGHTS |
& wsss(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
607 |
ECCO_COST_WEIGHTS |
wsss(i,j,bi,bj) = wsalt2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
609 |
ECCO_COST_WEIGHTS |
wsss(i,j,bi,bj) = wsaltLev(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
612 |
ECCO_COST_WEIGHTS |
& wsalt(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
683 |
ECCO_COST_WEIGHTS |
k = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
688 |
ECCO_COST_WEIGHTS |
if (maskC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
722 |
ECCO_COST_WEIGHTS |
k = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
725 |
ECCO_COST_WEIGHTS |
if (maskC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
759 |
ECCO_COST_WEIGHTS |
k = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
814 |
ECCO_COST_WEIGHTS |
wsshv4tmp(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
842 |
ECCO_COST_WEIGHTS |
& wbp(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
863 |
ECCO_COST_WEIGHTS |
& wies(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_cost_weights.F |
889 |
ECCO_COST_WEIGHTS |
k = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
898 |
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 |
905 |
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 |
926 |
ECCO_COST_WEIGHTS |
k = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
960 |
ECCO_COST_WEIGHTS |
k = 1 |
|
./pkg/ecco/ecco_cost_weights.F |
969 |
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 |
972 |
ECCO_COST_WEIGHTS |
wtauu2(i,j,bi,bj) = wtau0*maskW(i,j,k,bi,bj)*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
975 |
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 |
977 |
ECCO_COST_WEIGHTS |
wtauu2(i,j,bi,bj) = wtau0*maskc(i,j,k,bi,bj)*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
998 |
ECCO_COST_WEIGHTS |
k = 1 |
|
./pkg/ecco/ecco_phys.F |
100 |
ECCO_PHYS |
& hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
147 |
ECCO_PHYS |
do k = 1,nr |
|
./pkg/ecco/ecco_phys.F |
150 |
ECCO_PHYS |
m_UE(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
151 |
ECCO_PHYS |
m_VN(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
178 |
ECCO_PHYS |
do k = 1,nr |
|
./pkg/ecco/ecco_phys.F |
181 |
ECCO_PHYS |
trVolW(i,j,k)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
182 |
ECCO_PHYS |
trVolS(i,j,k)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
183 |
ECCO_PHYS |
trHeatW(i,j,k)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
184 |
ECCO_PHYS |
trHeatS(i,j,k)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
185 |
ECCO_PHYS |
trSaltW(i,j,k)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
186 |
ECCO_PHYS |
trSaltS(i,j,k)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
190 |
ECCO_PHYS |
do k = 1,nr |
|
./pkg/ecco/ecco_phys.F |
193 |
ECCO_PHYS |
trVolW(i,j,k) = |
|
./pkg/ecco/ecco_phys.F |
194 |
ECCO_PHYS |
& uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
195 |
ECCO_PHYS |
& *dyG(i,j,bi,bj)*drF(k)*msktrVolW(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
197 |
ECCO_PHYS |
trVolS(i,j,k) = |
|
./pkg/ecco/ecco_phys.F |
198 |
ECCO_PHYS |
& vVel(i,j,k,bi,bj)*hFacS(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
199 |
ECCO_PHYS |
& *dxG(i,j,bi,bj)*drF(k)*msktrVolS(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
202 |
ECCO_PHYS |
trHeatW(i,j,k) = trVolW(i,j,k) |
|
./pkg/ecco/ecco_phys.F |
203 |
ECCO_PHYS |
& *(theta(i,j,k,bi,bj)+theta(i-1,j,k,bi,bj))*halfRL |
|
./pkg/ecco/ecco_phys.F |
205 |
ECCO_PHYS |
trHeatS(i,j,k) = trVolS(i,j,k) |
|
./pkg/ecco/ecco_phys.F |
206 |
ECCO_PHYS |
& *(theta(i,j,k,bi,bj)+theta(i,j-1,k,bi,bj))*halfRL |
|
./pkg/ecco/ecco_phys.F |
209 |
ECCO_PHYS |
trSaltW(i,j,k) = trVolW(i,j,k) |
|
./pkg/ecco/ecco_phys.F |
210 |
ECCO_PHYS |
& *(salt(i,j,k,bi,bj)+salt(i-1,j,k,bi,bj))*halfRL |
|
./pkg/ecco/ecco_phys.F |
212 |
ECCO_PHYS |
trSaltS(i,j,k) = trVolS(i,j,k) |
|
./pkg/ecco/ecco_phys.F |
213 |
ECCO_PHYS |
& *(salt(i,j,k,bi,bj)+salt(i,j-1,k,bi,bj))*halfRL |
|
./pkg/ecco/ecco_phys.F |
216 |
ECCO_PHYS |
trVol(i,j,k,bi,bj)=trVolW(i,j,k)+trVolS(i,j,k) |
|
./pkg/ecco/ecco_phys.F |
217 |
ECCO_PHYS |
trHeat(i,j,k,bi,bj)=trHeatW(i,j,k)+trHeatS(i,j,k) |
|
./pkg/ecco/ecco_phys.F |
218 |
ECCO_PHYS |
trSalt(i,j,k,bi,bj)=trSaltW(i,j,k)+trSaltS(i,j,k) |
|
./pkg/ecco/ecco_phys.F |
247 |
ECCO_PHYS |
do k = 1,nr |
|
./pkg/ecco/ecco_phys.F |
248 |
ECCO_PHYS |
tmpvol=hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
253 |
ECCO_PHYS |
& gencost_mskVertical(k,kgen) |
|
./pkg/ecco/ecco_phys.F |
257 |
ECCO_PHYS |
tmpmsk=gencost_mskC(i,j,k,bi,bj,kgen3d) |
|
./pkg/ecco/ecco_phys.F |
264 |
ECCO_PHYS |
tmpfld=theta(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
268 |
ECCO_PHYS |
tmpfld=salt(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
273 |
ECCO_PHYS |
tmpfld=pTracer(i,j,k,bi,bj,itr) |
|
./pkg/ecco/ecco_phys.F |
282 |
ECCO_PHYS |
& +tmpmsk2*eccoVol_0(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
300 |
ECCO_PHYS |
do k = 1,nr |
|
./pkg/ecco/ecco_phys.F |
306 |
ECCO_PHYS |
& *gencost_mskVertical(k,kgen) |
|
./pkg/ecco/ecco_phys.F |
308 |
ECCO_PHYS |
& *gencost_mskVertical(k,kgen) |
|
./pkg/ecco/ecco_phys.F |
312 |
ECCO_PHYS |
tmpmskW=gencost_mskW(i,j,k,bi,bj,kgen3d) |
|
./pkg/ecco/ecco_phys.F |
313 |
ECCO_PHYS |
tmpmskS=gencost_mskS(i,j,k,bi,bj,kgen3d) |
|
./pkg/ecco/ecco_phys.F |
316 |
ECCO_PHYS |
tmpmskW=tmpmskW*hFacW(i,j,k,bi,bj)*dyG(i,j,bi,bj)*drF(k) |
|
./pkg/ecco/ecco_phys.F |
317 |
ECCO_PHYS |
tmpmskS=tmpmskS*hFacS(i,j,k,bi,bj)*dxG(i,j,bi,bj)*drF(k) |
|
./pkg/ecco/ecco_phys.F |
322 |
ECCO_PHYS |
& +uVel(i,j,k,bi,bj)*tmpmskW |
|
./pkg/ecco/ecco_phys.F |
323 |
ECCO_PHYS |
& +vVel(i,j,k,bi,bj)*tmpmskS |
|
./pkg/ecco/ecco_phys.F |
41 |
ECCO_PHYS |
integer i,j,k |
|
./pkg/ecco/ecco_phys.F |
76 |
ECCO_PHYS |
do k = 1,nr |
|
./pkg/ecco/ecco_phys.F |
78 |
ECCO_PHYS |
I iMin, iMax, jMin, jMax, k, |
|
./pkg/ecco/ecco_phys.F |
79 |
ECCO_PHYS |
I theta(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/ecco_phys.F |
80 |
ECCO_PHYS |
I salt (1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/ecco_phys.F |
81 |
ECCO_PHYS |
O RHOInSituLoc(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/ecco_phys.F |
82 |
ECCO_PHYS |
I k, bi, bj, myThid ) |
|
./pkg/ecco/ecco_phys.F |
93 |
ECCO_PHYS |
do k = 1,nr |
|
./pkg/ecco/ecco_phys.F |
97 |
ECCO_PHYS |
& (rhoConst+RHOInSituLoc(i,j,k,bi,bj))* |
|
./pkg/ecco/ecco_phys.F |
98 |
ECCO_PHYS |
& hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj) |
|
./pkg/ecco/ecco_readparms.F |
382 |
ECCO_READPARMS |
do k=1,NUSERCOST |
|
./pkg/ecco/ecco_readparms.F |
383 |
ECCO_READPARMS |
usercost_datafile(k) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
384 |
ECCO_READPARMS |
usercost_errfile(k) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
386 |
ECCO_READPARMS |
do k=1,NSSHV4COST |
|
./pkg/ecco/ecco_readparms.F |
387 |
ECCO_READPARMS |
sshv4cost_scalefile(k) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
388 |
ECCO_READPARMS |
sshv4cost_errfile(k) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
389 |
ECCO_READPARMS |
sshv4cost_errfactor(k) = 1. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
457 |
ECCO_READPARMS |
do k=1,NUSERCOST |
|
./pkg/ecco/ecco_readparms.F |
458 |
ECCO_READPARMS |
mult_usercost(k) = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
460 |
ECCO_READPARMS |
do k=1,NSSHV4COST |
|
./pkg/ecco/ecco_readparms.F |
461 |
ECCO_READPARMS |
mult_sshv4cost(k) = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
51 |
ECCO_READPARMS |
INTEGER k, k2, iUnit, num_file, num_var |
|
./pkg/ecco/ecco_readparms.F |
578 |
ECCO_READPARMS |
do k=1,NGENCOST |
|
./pkg/ecco/ecco_readparms.F |
579 |
ECCO_READPARMS |
using_gencost(k) = .FALSE. |
|
./pkg/ecco/ecco_readparms.F |
580 |
ECCO_READPARMS |
gencost_flag(k) = 0 |
|
./pkg/ecco/ecco_readparms.F |
581 |
ECCO_READPARMS |
gencost_avgperiod(k) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
582 |
ECCO_READPARMS |
gencost_startdate1(k) = 0 |
|
./pkg/ecco/ecco_readparms.F |
583 |
ECCO_READPARMS |
gencost_startdate2(k) = 0 |
|
./pkg/ecco/ecco_readparms.F |
584 |
ECCO_READPARMS |
gencost_enddate1(k) = 0 |
|
./pkg/ecco/ecco_readparms.F |
585 |
ECCO_READPARMS |
gencost_enddate2(k) = 0 |
|
./pkg/ecco/ecco_readparms.F |
586 |
ECCO_READPARMS |
gencost_datafile(k) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
587 |
ECCO_READPARMS |
gencost_name(k) = 'gencost' |
|
./pkg/ecco/ecco_readparms.F |
589 |
ECCO_READPARMS |
gencost_preproc(k2,k) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
590 |
ECCO_READPARMS |
gencost_preproc_c(k2,k) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
591 |
ECCO_READPARMS |
gencost_preproc_i(k2,k) = 0 |
|
./pkg/ecco/ecco_readparms.F |
592 |
ECCO_READPARMS |
gencost_preproc_r(k2,k) = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
593 |
ECCO_READPARMS |
gencost_posproc(k2,k) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
594 |
ECCO_READPARMS |
gencost_posproc_c(k2,k) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
595 |
ECCO_READPARMS |
gencost_posproc_i(k2,k) = 0 |
|
./pkg/ecco/ecco_readparms.F |
596 |
ECCO_READPARMS |
gencost_posproc_r(k2,k) = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
598 |
ECCO_READPARMS |
gencost_outputlevel(k)= 0 |
|
./pkg/ecco/ecco_readparms.F |
599 |
ECCO_READPARMS |
gencost_errfile(k) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
600 |
ECCO_READPARMS |
gencost_itracer(k) = 1 |
|
./pkg/ecco/ecco_readparms.F |
601 |
ECCO_READPARMS |
gencost_mask(k) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
602 |
ECCO_READPARMS |
gencost_barfile(k) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
603 |
ECCO_READPARMS |
gencost_spmin(k) = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
604 |
ECCO_READPARMS |
gencost_spmax(k) = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
605 |
ECCO_READPARMS |
gencost_spzero(k) = 9876. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
606 |
ECCO_READPARMS |
gencost_wei1d(k) = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
607 |
ECCO_READPARMS |
mult_gencost(k) = 1. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
608 |
ECCO_READPARMS |
gencost_is1d(k) = .FALSE. |
|
./pkg/ecco/ecco_readparms.F |
609 |
ECCO_READPARMS |
gencost_is3d(k) = .FALSE. |
|
./pkg/ecco/ecco_readparms.F |
610 |
ECCO_READPARMS |
gencost_pointer3d(k) = 0 |
|
./pkg/ecco/ecco_readparms.F |
612 |
ECCO_READPARMS |
gencost_msk_pointer3d(k) = 0 |
|
./pkg/ecco/ecco_readparms.F |
614 |
ECCO_READPARMS |
call ECCO_ZERO(gencost_mskCsurf(1-olx,1-oly,1,1,k), |
|
./pkg/ecco/ecco_readparms.F |
616 |
ECCO_READPARMS |
call ECCO_ZERO(gencost_mskWsurf(1-olx,1-oly,1,1,k), |
|
./pkg/ecco/ecco_readparms.F |
618 |
ECCO_READPARMS |
call ECCO_ZERO(gencost_mskSsurf(1-olx,1-oly,1,1,k), |
|
./pkg/ecco/ecco_readparms.F |
621 |
ECCO_READPARMS |
gencost_mskVertical(k2,k)= 1. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
624 |
ECCO_READPARMS |
gencost_nrecperiod(k) = 0 |
|
./pkg/ecco/ecco_readparms.F |
625 |
ECCO_READPARMS |
gencost_scalefile(k) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
626 |
ECCO_READPARMS |
gencost_smooth2Ddiffnbt(k) = 0 |
|
./pkg/ecco/ecco_readparms.F |
627 |
ECCO_READPARMS |
gencost_timevaryweight(k) = .FALSE. |
|
./pkg/ecco/ecco_readparms.F |
631 |
ECCO_READPARMS |
do k=1,NGENCOST3D |
|
./pkg/ecco/ecco_readparms.F |
633 |
ECCO_READPARMS |
call ECCO_ZERO(gencost_mskC(1-olx,1-oly,1,1,1,k), |
|
./pkg/ecco/ecco_readparms.F |
635 |
ECCO_READPARMS |
call ECCO_ZERO(gencost_mskW(1-olx,1-oly,1,1,1,k), |
|
./pkg/ecco/ecco_readparms.F |
637 |
ECCO_READPARMS |
call ECCO_ZERO(gencost_mskS(1-olx,1-oly,1,1,1,k), |
|
./pkg/ecco/ecco_readparms.F |
652 |
ECCO_READPARMS |
do k=1,NGENCOST |
|
./pkg/ecco/ecco_readparms.F |
655 |
ECCO_READPARMS |
if ( (gencost_name(k).EQ.'sshv4-mdt').OR. |
|
./pkg/ecco/ecco_readparms.F |
656 |
ECCO_READPARMS |
& (gencost_name(k).EQ.'sshv4-tp').OR. |
|
./pkg/ecco/ecco_readparms.F |
657 |
ECCO_READPARMS |
& (gencost_name(k).EQ.'sshv4-ers').OR. |
|
./pkg/ecco/ecco_readparms.F |
658 |
ECCO_READPARMS |
& (gencost_name(k).EQ.'sshv4-gfo').OR. |
|
./pkg/ecco/ecco_readparms.F |
659 |
ECCO_READPARMS |
& (gencost_name(k).EQ.'sshv4-lsc').OR. |
|
./pkg/ecco/ecco_readparms.F |
660 |
ECCO_READPARMS |
& (gencost_name(k).EQ.'sshv4-gmsl').OR. |
|
./pkg/ecco/ecco_readparms.F |
661 |
ECCO_READPARMS |
& (gencost_name(k).EQ.'bpv4-grace').OR. |
|
./pkg/ecco/ecco_readparms.F |
662 |
ECCO_READPARMS |
& (gencost_name(k).EQ.'sstv4-amsre').OR. |
|
./pkg/ecco/ecco_readparms.F |
663 |
ECCO_READPARMS |
& (gencost_name(k).EQ.'sstv4-amsre-lsc') ) then |
|
./pkg/ecco/ecco_readparms.F |
664 |
ECCO_READPARMS |
gencost_flag(k)=-1 |
|
./pkg/ecco/ecco_readparms.F |
665 |
ECCO_READPARMS |
using_gencost(k)=.TRUE. |
|
./pkg/ecco/ecco_readparms.F |
670 |
ECCO_READPARMS |
elseif ( (gencost_barfile(k)(1:9).EQ.'m_boxmean').OR. |
|
./pkg/ecco/ecco_readparms.F |
671 |
ECCO_READPARMS |
& (gencost_barfile(k)(1:9).EQ.'m_horflux') ) then |
|
./pkg/ecco/ecco_readparms.F |
672 |
ECCO_READPARMS |
gencost_flag(k)=-3 |
|
./pkg/ecco/ecco_readparms.F |
673 |
ECCO_READPARMS |
using_gencost(k)=.TRUE. |
|
./pkg/ecco/ecco_readparms.F |
674 |
ECCO_READPARMS |
il=ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_readparms.F |
676 |
ECCO_READPARMS |
& k,' ',gencost_name(k)(1:il),': ',using_gencost(k) |
|
./pkg/ecco/ecco_readparms.F |
680 |
ECCO_READPARMS |
if ( gencost_msk_is3d(k) ) then |
|
./pkg/ecco/ecco_readparms.F |
681 |
ECCO_READPARMS |
gencost_msk_pointer3d(k)=gencost_msk_k3d |
|
./pkg/ecco/ecco_readparms.F |
686 |
ECCO_READPARMS |
elseif ( gencost_name(k)(1:6).EQ.'transp' ) then |
|
./pkg/ecco/ecco_readparms.F |
687 |
ECCO_READPARMS |
gencost_flag(k)=-4 |
|
./pkg/ecco/ecco_readparms.F |
688 |
ECCO_READPARMS |
using_gencost(k)=.TRUE. |
|
./pkg/ecco/ecco_readparms.F |
689 |
ECCO_READPARMS |
il=ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_readparms.F |
691 |
ECCO_READPARMS |
& k,' ',gencost_name(k)(1:il),': ',using_gencost(k) |
|
./pkg/ecco/ecco_readparms.F |
697 |
ECCO_READPARMS |
& (gencost_name(k).EQ.'siv4-conc').OR. |
|
./pkg/ecco/ecco_readparms.F |
698 |
ECCO_READPARMS |
& (gencost_name(k).EQ.'siv4-deconc').OR. |
|
./pkg/ecco/ecco_readparms.F |
699 |
ECCO_READPARMS |
& (gencost_name(k).EQ.'siv4-exconc') ) then |
|
./pkg/ecco/ecco_readparms.F |
700 |
ECCO_READPARMS |
gencost_flag(k)=2 |
|
./pkg/ecco/ecco_readparms.F |
701 |
ECCO_READPARMS |
using_gencost(k)=.TRUE. |
|
./pkg/ecco/ecco_readparms.F |
703 |
ECCO_READPARMS |
elseif ( gencost_datafile(k) .NE. ' ' ) then |
|
./pkg/ecco/ecco_readparms.F |
704 |
ECCO_READPARMS |
gencost_flag(k)=1 |
|
./pkg/ecco/ecco_readparms.F |
705 |
ECCO_READPARMS |
using_gencost(k)=.TRUE. |
|
./pkg/ecco/ecco_readparms.F |
709 |
ECCO_READPARMS |
if ( (gencost_barfile(k)(1:7).EQ.'m_theta').OR. |
|
./pkg/ecco/ecco_readparms.F |
710 |
ECCO_READPARMS |
& (gencost_barfile(k)(1:6).EQ.'m_salt').OR. |
|
./pkg/ecco/ecco_readparms.F |
711 |
ECCO_READPARMS |
& (gencost_barfile(k)(1:8).EQ.'m_diffkr').OR. |
|
./pkg/ecco/ecco_readparms.F |
712 |
ECCO_READPARMS |
& (gencost_barfile(k)(1:7).EQ.'m_kapgm').OR. |
|
./pkg/ecco/ecco_readparms.F |
713 |
ECCO_READPARMS |
& (gencost_barfile(k)(1:9).EQ.'m_kapredi').OR. |
|
./pkg/ecco/ecco_readparms.F |
714 |
ECCO_READPARMS |
& (gencost_barfile(k)(1:7).EQ.'m_trVol').OR. |
|
./pkg/ecco/ecco_readparms.F |
715 |
ECCO_READPARMS |
& (gencost_barfile(k)(1:9).EQ.'m_trHeat').OR. |
|
./pkg/ecco/ecco_readparms.F |
716 |
ECCO_READPARMS |
& (gencost_barfile(k)(1:9).EQ.'m_trSalt') |
|
./pkg/ecco/ecco_readparms.F |
718 |
ECCO_READPARMS |
& gencost_is3d(k)=.TRUE. |
|
./pkg/ecco/ecco_readparms.F |
721 |
ECCO_READPARMS |
if ( gencost_is3d(k) ) then |
|
./pkg/ecco/ecco_readparms.F |
722 |
ECCO_READPARMS |
gencost_pointer3d(k)=gencost_k3d |
|
./pkg/ecco/ecco_readparms.F |
729 |
ECCO_READPARMS |
do k=1,NGENCOST |
|
./pkg/ecco/ecco_readparms.F |
730 |
ECCO_READPARMS |
kk=gencost_msk_pointer3d(k) |
|
./pkg/ecco/ecco_readparms.F |
731 |
ECCO_READPARMS |
if ( ( gencost_mask(k) .NE. ' ' ).AND. |
|
./pkg/ecco/ecco_readparms.F |
732 |
ECCO_READPARMS |
& (gencost_flag(k).EQ.-3) ) then |
|
./pkg/ecco/ecco_readparms.F |
734 |
ECCO_READPARMS |
il = ilnblnk(gencost_mask(k)) |
|
./pkg/ecco/ecco_readparms.F |
735 |
ECCO_READPARMS |
write(tempfile(1:128),'(2A)') gencost_mask(k)(1:il),'C' |
|
./pkg/ecco/ecco_readparms.F |
737 |
ECCO_READPARMS |
if (exst.AND.(.NOT.gencost_msk_is3d(k))) then |
|
./pkg/ecco/ecco_readparms.F |
739 |
ECCO_READPARMS |
& gencost_mskCsurf(1-olx,1-oly,1,1,k),1,mythid) |
|
./pkg/ecco/ecco_readparms.F |
741 |
ECCO_READPARMS |
elseif (exst.AND.(gencost_msk_pointer3d(k).LE. |
|
./pkg/ecco/ecco_readparms.F |
748 |
ECCO_READPARMS |
il = ilnblnk(gencost_mask(k)) |
|
./pkg/ecco/ecco_readparms.F |
749 |
ECCO_READPARMS |
write(tempfile(1:128),'(2A)') gencost_mask(k)(1:il),'W' |
|
./pkg/ecco/ecco_readparms.F |
751 |
ECCO_READPARMS |
if (exst.AND.(.NOT.gencost_msk_is3d(k))) then |
|
./pkg/ecco/ecco_readparms.F |
753 |
ECCO_READPARMS |
& gencost_mskWsurf(1-olx,1-oly,1,1,k),1,mythid) |
|
./pkg/ecco/ecco_readparms.F |
755 |
ECCO_READPARMS |
elseif (exst.AND.(gencost_msk_pointer3d(k).LE. |
|
./pkg/ecco/ecco_readparms.F |
762 |
ECCO_READPARMS |
il = ilnblnk(gencost_mask(k)) |
|
./pkg/ecco/ecco_readparms.F |
763 |
ECCO_READPARMS |
write(tempfile(1:128),'(2A)') gencost_mask(k)(1:il),'S' |
|
./pkg/ecco/ecco_readparms.F |
765 |
ECCO_READPARMS |
if (exst.AND.(.NOT.gencost_msk_is3d(k))) then |
|
./pkg/ecco/ecco_readparms.F |
767 |
ECCO_READPARMS |
& gencost_mskSsurf(1-olx,1-oly,1,1,k),1,mythid) |
|
./pkg/ecco/ecco_readparms.F |
769 |
ECCO_READPARMS |
elseif (exst.AND.(gencost_msk_pointer3d(k).LE. |
|
./pkg/ecco/ecco_readparms.F |
776 |
ECCO_READPARMS |
il = ilnblnk(gencost_mask(k)) |
|
./pkg/ecco/ecco_readparms.F |
777 |
ECCO_READPARMS |
write(tempfile(1:128),'(2A)') gencost_mask(k)(1:il),'K' |
|
./pkg/ecco/ecco_readparms.F |
782 |
ECCO_READPARMS |
& nR, gencost_mskVertical(1,k), dummyRS, 0, 0, 1, myThid ) |
|
./pkg/ecco/ecco_readparms.F |
789 |
ECCO_READPARMS |
do k=1,NGENCOST |
|
./pkg/ecco/ecco_readparms.F |
792 |
ECCO_READPARMS |
if (gencost_barfile(k).NE.' ') then |
|
./pkg/ecco/ecco_readparms.F |
793 |
ECCO_READPARMS |
if (gencost_barfile(k)(1:2).NE.'m_') then |
|
./pkg/ecco/ecco_readparms.F |
794 |
ECCO_READPARMS |
il=ilnblnk(gencost_barfile(k)) |
|
./pkg/ecco/ecco_readparms.F |
795 |
ECCO_READPARMS |
WRITE(msgBuf,'(A,A)') 'm_',gencost_barfile(k)(1:il) |
|
./pkg/ecco/ecco_readparms.F |
796 |
ECCO_READPARMS |
gencost_barfile(k)=msgBuf(1:il+2) |
|
./pkg/ecco/ecco_readparms.F |
798 |
ECCO_READPARMS |
if (gencost_barfile(k)(1:8).EQ.'m_tauZon') then |
|
./pkg/ecco/ecco_readparms.F |
799 |
ECCO_READPARMS |
il=ilnblnk(gencost_barfile(k)) |
|
./pkg/ecco/ecco_readparms.F |
800 |
ECCO_READPARMS |
WRITE(msgBuf,'(A,A)') 'm_ustress',gencost_barfile(k)(9:il) |
|
./pkg/ecco/ecco_readparms.F |
801 |
ECCO_READPARMS |
gencost_barfile(k)=msgBuf(1:il+1) |
|
./pkg/ecco/ecco_readparms.F |
803 |
ECCO_READPARMS |
if (gencost_barfile(k)(1:8).EQ.'m_tauMer') then |
|
./pkg/ecco/ecco_readparms.F |
804 |
ECCO_READPARMS |
il=ilnblnk(gencost_barfile(k)) |
|
./pkg/ecco/ecco_readparms.F |
805 |
ECCO_READPARMS |
WRITE(msgBuf,'(A,A)') 'm_vstress',gencost_barfile(k)(9:il) |
|
./pkg/ecco/ecco_readparms.F |
806 |
ECCO_READPARMS |
gencost_barfile(k)=msgBuf(1:il+1) |
|
./pkg/ecco/ecco_readparms.F |
811 |
ECCO_READPARMS |
if ( using_gencost(k)) then |
|
./pkg/ecco/ecco_readparms.F |
812 |
ECCO_READPARMS |
if ( gencost_flag(k).GE.1 ) then |
|
./pkg/ecco/ecco_readparms.F |
814 |
ECCO_READPARMS |
if ( gencost_name(k) .EQ. 'gencost' ) |
|
./pkg/ecco/ecco_readparms.F |
815 |
ECCO_READPARMS |
& gencost_name(k) = gencost_datafile(k) |
|
./pkg/ecco/ecco_readparms.F |
817 |
ECCO_READPARMS |
if ( gencost_avgperiod(k) .NE. 'day ' .AND. |
|
./pkg/ecco/ecco_readparms.F |
818 |
ECCO_READPARMS |
& gencost_avgperiod(k) .NE. 'DAY ' .AND. |
|
./pkg/ecco/ecco_readparms.F |
819 |
ECCO_READPARMS |
& gencost_avgperiod(k) .NE. 'month' .AND. |
|
./pkg/ecco/ecco_readparms.F |
820 |
ECCO_READPARMS |
& gencost_avgperiod(k) .NE. 'MONTH' .AND. |
|
./pkg/ecco/ecco_readparms.F |
821 |
ECCO_READPARMS |
& gencost_avgperiod(k) .NE. 'step' .AND. |
|
./pkg/ecco/ecco_readparms.F |
822 |
ECCO_READPARMS |
& gencost_avgperiod(k) .NE. 'STEP' .AND. |
|
./pkg/ecco/ecco_readparms.F |
823 |
ECCO_READPARMS |
& gencost_avgperiod(k) .NE. 'const' .AND. |
|
./pkg/ecco/ecco_readparms.F |
824 |
ECCO_READPARMS |
& gencost_avgperiod(k) .NE. 'CONST' .AND. |
|
./pkg/ecco/ecco_readparms.F |
825 |
ECCO_READPARMS |
& gencost_avgperiod(k) .NE. 'year ' .AND. |
|
./pkg/ecco/ecco_readparms.F |
826 |
ECCO_READPARMS |
& gencost_avgperiod(k) .NE. 'YEAR ' ) then |
|
./pkg/ecco/ecco_readparms.F |
828 |
ECCO_READPARMS |
il=ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_readparms.F |
830 |
ECCO_READPARMS |
& 'ERROR in ECCO_READPARMS: for gencost',k, |
|
./pkg/ecco/ecco_readparms.F |
831 |
ECCO_READPARMS |
& ' ',gencost_name(k)(1:il) |
|
./pkg/ecco/ecco_readparms.F |
838 |
ECCO_READPARMS |
if ( gencost_spmin(k) .EQ. 0. _d 0 .AND. |
|
./pkg/ecco/ecco_readparms.F |
839 |
ECCO_READPARMS |
& gencost_spmax(k) .EQ. 0. _d 0 ) then |
|
./pkg/ecco/ecco_readparms.F |
840 |
ECCO_READPARMS |
il=ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_readparms.F |
842 |
ECCO_READPARMS |
& 'ERROR in ECCO_READPARMS: for gencost',k, |
|
./pkg/ecco/ecco_readparms.F |
843 |
ECCO_READPARMS |
& ' ',gencost_name(k)(1:il) |
|
./pkg/ecco/ecco_readparms.F |
850 |
ECCO_READPARMS |
if ( gencost_spzero(k) .EQ. 9876. _d 0 ) then |
|
./pkg/ecco/ecco_readparms.F |
851 |
ECCO_READPARMS |
il=ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_readparms.F |
853 |
ECCO_READPARMS |
& 'ERROR in ECCO_READPARMS: for gencost',k, |
|
./pkg/ecco/ecco_readparms.F |
854 |
ECCO_READPARMS |
& ' ',gencost_name(k)(1:il) |
|
./pkg/ecco/ecco_readparms.F |
862 |
ECCO_READPARMS |
elseif( gencost_flag(k) .eq. -1 ) then |
|
./pkg/ecco/ecco_readparms.F |
864 |
ECCO_READPARMS |
elseif( gencost_flag(k).lt.-1) then |
|
./pkg/ecco/ecco_readparms.F |
865 |
ECCO_READPARMS |
if ( gencost_avgperiod(k) .NE. 'day ' .AND. |
|
./pkg/ecco/ecco_readparms.F |
866 |
ECCO_READPARMS |
& gencost_avgperiod(k) .NE. 'DAY ' .AND. |
|
./pkg/ecco/ecco_readparms.F |
867 |
ECCO_READPARMS |
& gencost_avgperiod(k) .NE. 'month' .AND. |
|
./pkg/ecco/ecco_readparms.F |
868 |
ECCO_READPARMS |
& gencost_avgperiod(k) .NE. 'MONTH' .AND. |
|
./pkg/ecco/ecco_readparms.F |
869 |
ECCO_READPARMS |
& gencost_avgperiod(k) .NE. 'step' .AND. |
|
./pkg/ecco/ecco_readparms.F |
870 |
ECCO_READPARMS |
& gencost_avgperiod(k) .NE. 'STEP' .AND. |
|
./pkg/ecco/ecco_readparms.F |
871 |
ECCO_READPARMS |
& gencost_avgperiod(k) .NE. 'const' .AND. |
|
./pkg/ecco/ecco_readparms.F |
872 |
ECCO_READPARMS |
& gencost_avgperiod(k) .NE. 'CONST' .AND. |
|
./pkg/ecco/ecco_readparms.F |
873 |
ECCO_READPARMS |
& gencost_avgperiod(k) .NE. 'year ' .AND. |
|
./pkg/ecco/ecco_readparms.F |
874 |
ECCO_READPARMS |
& gencost_avgperiod(k) .NE. 'YEAR ' ) then |
|
./pkg/ecco/ecco_readparms.F |
876 |
ECCO_READPARMS |
il=ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_readparms.F |
878 |
ECCO_READPARMS |
& 'ERROR in ECCO_READPARMS: for gencost',k, |
|
./pkg/ecco/ecco_readparms.F |
879 |
ECCO_READPARMS |
& ' ',gencost_name(k)(1:il) |
|
./pkg/ecco/ecco_summary.F |
44 |
ECCO_SUMMARY |
integer k, k2, il, msgunit |
|
./pkg/ecco/ecco_summary.F |
783 |
ECCO_SUMMARY |
do k = 1, NGENCOST |
|
./pkg/ecco/ecco_summary.F |
784 |
ECCO_SUMMARY |
if (using_gencost(k)) then |
|
./pkg/ecco/ecco_summary.F |
786 |
ECCO_SUMMARY |
il = ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_summary.F |
787 |
ECCO_SUMMARY |
write(msgbuf,'(a,i2,a,a)') 'gencost(',k, |
|
./pkg/ecco/ecco_summary.F |
788 |
ECCO_SUMMARY |
& ') = ',gencost_name(k)(1:il) |
|
./pkg/ecco/ecco_summary.F |
793 |
ECCO_SUMMARY |
if ( gencost_datafile(k) .ne. ' ' ) then |
|
./pkg/ecco/ecco_summary.F |
794 |
ECCO_SUMMARY |
il = ilnblnk(gencost_datafile(k)) |
|
./pkg/ecco/ecco_summary.F |
795 |
ECCO_SUMMARY |
write(msgbuf,'(a,a)') ' data file = ',gencost_datafile(k)(1:il) |
|
./pkg/ecco/ecco_summary.F |
799 |
ECCO_SUMMARY |
if (gencost_nrec(k).GT.1) then |
|
./pkg/ecco/ecco_summary.F |
802 |
ECCO_SUMMARY |
CALL CAL_PRINTDATE(gencost_startdate(1,k),mythid) |
|
./pkg/ecco/ecco_summary.F |
803 |
ECCO_SUMMARY |
CALL CAL_PRINTDATE(gencost_enddate(1,k),mythid) |
|
./pkg/ecco/ecco_summary.F |
805 |
ECCO_SUMMARY |
& gencost_nrec(k) |
|
./pkg/ecco/ecco_summary.F |
809 |
ECCO_SUMMARY |
il = ilnblnk(gencost_barfile(k)) |
|
./pkg/ecco/ecco_summary.F |
810 |
ECCO_SUMMARY |
write(msgbuf,'(a,a)') ' model file = ',gencost_barfile(k)(1:il) |
|
./pkg/ecco/ecco_summary.F |
812 |
ECCO_SUMMARY |
if ((gencost_barfile(k)(1:9).EQ.'m_ptracer').OR. |
|
./pkg/ecco/ecco_summary.F |
813 |
ECCO_SUMMARY |
& (gencost_barfile(k)(1:17).EQ.'m_boxmean_ptracer')) then |
|
./pkg/ecco/ecco_summary.F |
815 |
ECCO_SUMMARY |
& gencost_itracer(k) |
|
./pkg/ecco/ecco_summary.F |
818 |
ECCO_SUMMARY |
il = ilnblnk(gencost_errfile(k)) |
|
./pkg/ecco/ecco_summary.F |
819 |
ECCO_SUMMARY |
write(msgbuf,'(a,a)') ' error file = ',gencost_errfile(k)(1:il) |
|
./pkg/ecco/ecco_summary.F |
821 |
ECCO_SUMMARY |
if (gencost_scalefile(k).NE.' ') then |
|
./pkg/ecco/ecco_summary.F |
822 |
ECCO_SUMMARY |
il = ilnblnk(gencost_scalefile(k)) |
|
./pkg/ecco/ecco_summary.F |
824 |
ECCO_SUMMARY |
& gencost_scalefile(k)(1:il) |
|
./pkg/ecco/ecco_summary.F |
828 |
ECCO_SUMMARY |
if (gencost_preproc(k2,k).NE.' ') then |
|
./pkg/ecco/ecco_summary.F |
829 |
ECCO_SUMMARY |
il = ilnblnk(gencost_preproc(k2,k)) |
|
./pkg/ecco/ecco_summary.F |
831 |
ECCO_SUMMARY |
& gencost_preproc(k2,k)(1:il) |
|
./pkg/ecco/ecco_summary.F |
834 |
ECCO_SUMMARY |
if (gencost_posproc(k2,k).NE.' ') then |
|
./pkg/ecco/ecco_summary.F |
835 |
ECCO_SUMMARY |
il = ilnblnk(gencost_posproc(k2,k)) |
|
./pkg/ecco/ecco_summary.F |
837 |
ECCO_SUMMARY |
& gencost_posproc(k2,k)(1:il) |
|
./pkg/ecco/ecco_summary.F |
842 |
ECCO_SUMMARY |
write(msgbuf,'(a,i2)') ' gencost_flag = ',gencost_flag(k) |
|
./pkg/ecco/ecco_summary.F |
845 |
ECCO_SUMMARY |
& gencost_outputlevel(k) |
|
./pkg/ecco/ecco_summary.F |
848 |
ECCO_SUMMARY |
if (gencost_is3d(k)) then |
|
./pkg/ecco/ecco_summary.F |
850 |
ECCO_SUMMARY |
& gencost_pointer3d(k) |
|
./pkg/ecco/ecco_summary.F |
853 |
ECCO_SUMMARY |
if (gencost_timevaryweight(k)) then |
|
./pkg/ecco/ecco_summary.F |
855 |
ECCO_SUMMARY |
& gencost_timevaryweight(k) |
|
./pkg/ecco/ecco_summary.F |
858 |
ECCO_SUMMARY |
if (gencost_barskip(k)) then |
|
./pkg/ecco/ecco_summary.F |
860 |
ECCO_SUMMARY |
& gencost_barskip(k) |
|
./pkg/ecco/ecco_toolbox.F |
1016 |
ECCO_MULT |
do k = 1,nnzloc |
|
./pkg/ecco/ecco_toolbox.F |
1019 |
ECCO_MULT |
fld(i,j,k,bi,bj) = fld(i,j,k,bi,bj)*multloc |
|
./pkg/ecco/ecco_toolbox.F |
1059 |
ECCO_MULTFIELD |
integer i,j,k |
|
./pkg/ecco/ecco_toolbox.F |
1078 |
ECCO_MULTFIELD |
do k = 1,nnzloc |
|
./pkg/ecco/ecco_toolbox.F |
1081 |
ECCO_MULTFIELD |
fld2(i,j,k,bi,bj) = fld(i,j,k,bi,bj)* |
|
./pkg/ecco/ecco_toolbox.F |
1082 |
ECCO_MULTFIELD |
& fld2(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
1213 |
ECCO_READWEI |
integer i,j,k |
|
./pkg/ecco/ecco_toolbox.F |
1237 |
ECCO_READWEI |
DO k = 1,nnzbar |
|
./pkg/ecco/ecco_toolbox.F |
1239 |
ECCO_READWEI |
if (localweight(i,j,k,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/ecco_toolbox.F |
1240 |
ECCO_READWEI |
localweight(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
1243 |
ECCO_READWEI |
if (localweight(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_toolbox.F |
1244 |
ECCO_READWEI |
localweight(i,j,k,bi,bj) = |
|
./pkg/ecco/ecco_toolbox.F |
1245 |
ECCO_READWEI |
& 1./localweight(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_toolbox.F |
1246 |
ECCO_READWEI |
& localweight(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
134 |
ECCO_DIFFMSK |
integer i,j,k |
|
./pkg/ecco/ecco_toolbox.F |
155 |
ECCO_DIFFMSK |
do k = 1,nnzobs |
|
./pkg/ecco/ecco_toolbox.F |
159 |
ECCO_DIFFMSK |
difmask(i,j,k,bi,bj) = cosphi(i,j,bi,bj)* |
|
./pkg/ecco/ecco_toolbox.F |
160 |
ECCO_DIFFMSK |
& localmask(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
162 |
ECCO_DIFFMSK |
difmask(i,j,k,bi,bj) = localmask(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
164 |
ECCO_DIFFMSK |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/ecco/ecco_toolbox.F |
165 |
ECCO_DIFFMSK |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/ecco/ecco_toolbox.F |
166 |
ECCO_DIFFMSK |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/ecco/ecco_toolbox.F |
167 |
ECCO_DIFFMSK |
difmask(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
169 |
ECCO_DIFFMSK |
localdif(i,j,k,bi,bj) = difmask(i,j,k,bi,bj)* |
|
./pkg/ecco/ecco_toolbox.F |
170 |
ECCO_DIFFMSK |
& (localbar(i,j,k,bi,bj)-localobs(i,j,k,bi,bj)) |
|
./pkg/ecco/ecco_toolbox.F |
230 |
ECCO_DIFFANOMMSK |
integer i,j,k |
|
./pkg/ecco/ecco_toolbox.F |
251 |
ECCO_DIFFANOMMSK |
do k = 1,nnzobs |
|
./pkg/ecco/ecco_toolbox.F |
255 |
ECCO_DIFFANOMMSK |
difmask(i,j,k,bi,bj) = cosphi(i,j,bi,bj)* |
|
./pkg/ecco/ecco_toolbox.F |
256 |
ECCO_DIFFANOMMSK |
& localmask(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
258 |
ECCO_DIFFANOMMSK |
difmask(i,j,k,bi,bj) = localmask(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
260 |
ECCO_DIFFANOMMSK |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/ecco/ecco_toolbox.F |
261 |
ECCO_DIFFANOMMSK |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/ecco/ecco_toolbox.F |
262 |
ECCO_DIFFANOMMSK |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/ecco/ecco_toolbox.F |
263 |
ECCO_DIFFANOMMSK |
difmask(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
265 |
ECCO_DIFFANOMMSK |
localdif(i,j,k,bi,bj) = difmask(i,j,k,bi,bj)* |
|
./pkg/ecco/ecco_toolbox.F |
266 |
ECCO_DIFFANOMMSK |
& ( (localbar(i,j,k,bi,bj)-localbarmean(i,j,k,bi,bj)) |
|
./pkg/ecco/ecco_toolbox.F |
267 |
ECCO_DIFFANOMMSK |
& -(localobs(i,j,k,bi,bj)-localobsmean(i,j,k,bi,bj)) ) |
|
./pkg/ecco/ecco_toolbox.F |
323 |
ECCO_OBSMSK |
integer i,j,k |
|
./pkg/ecco/ecco_toolbox.F |
344 |
ECCO_OBSMSK |
do k = 1,nnzobs |
|
./pkg/ecco/ecco_toolbox.F |
348 |
ECCO_OBSMSK |
obsmask(i,j,k,bi,bj) = cosphi(i,j,bi,bj)* |
|
./pkg/ecco/ecco_toolbox.F |
349 |
ECCO_OBSMSK |
& localmask(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
351 |
ECCO_OBSMSK |
obsmask(i,j,k,bi,bj) = localmask(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
353 |
ECCO_OBSMSK |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/ecco/ecco_toolbox.F |
354 |
ECCO_OBSMSK |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/ecco/ecco_toolbox.F |
355 |
ECCO_OBSMSK |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/ecco/ecco_toolbox.F |
356 |
ECCO_OBSMSK |
obsmask(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
358 |
ECCO_OBSMSK |
localout(i,j,k,bi,bj) = obsmask(i,j,k,bi,bj)* |
|
./pkg/ecco/ecco_toolbox.F |
359 |
ECCO_OBSMSK |
& localbar(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
408 |
ECCO_CP |
integer i,j,k |
|
./pkg/ecco/ecco_toolbox.F |
429 |
ECCO_CP |
do k = 1,nzOut |
|
./pkg/ecco/ecco_toolbox.F |
432 |
ECCO_CP |
fldOut(i,j,k,bi,bj) = fldIn(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
481 |
ECCO_CPRSRL |
integer i,j,k |
|
./pkg/ecco/ecco_toolbox.F |
502 |
ECCO_CPRSRL |
do k = 1,nzOut |
|
./pkg/ecco/ecco_toolbox.F |
505 |
ECCO_CPRSRL |
fldOut(i,j,k,bi,bj) = fldIn(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
53 |
ECCO_ZERO |
integer i,j,k |
|
./pkg/ecco/ecco_toolbox.F |
561 |
ECCO_ADDCOST |
integer i,j,k |
|
./pkg/ecco/ecco_toolbox.F |
588 |
ECCO_ADDCOST |
do k = 1,nnzobs |
|
./pkg/ecco/ecco_toolbox.F |
591 |
ECCO_ADDCOST |
localwww = localweight(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
592 |
ECCO_ADDCOST |
& * difmask(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
593 |
ECCO_ADDCOST |
junk = localdif(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
650 |
ECCO_ADD |
integer i,j,k |
|
./pkg/ecco/ecco_toolbox.F |
671 |
ECCO_ADD |
do k = 1,nzOut |
|
./pkg/ecco/ecco_toolbox.F |
674 |
ECCO_ADD |
fldOut(i,j,k,bi,bj) = fldOut(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
675 |
ECCO_ADD |
& + fldIn(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
724 |
ECCO_SUBTRACT |
integer i,j,k |
|
./pkg/ecco/ecco_toolbox.F |
743 |
ECCO_SUBTRACT |
do k = 1,nzOut |
|
./pkg/ecco/ecco_toolbox.F |
746 |
ECCO_SUBTRACT |
fldOut(i,j,k,bi,bj) = fldOut(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
747 |
ECCO_SUBTRACT |
& - fldIn(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
74 |
ECCO_ZERO |
do k = 1,nnzloc |
|
./pkg/ecco/ecco_toolbox.F |
77 |
ECCO_ZERO |
fld(i,j,k,bi,bj) = zeroloc |
|
./pkg/ecco/ecco_toolbox.F |
799 |
ECCO_ADDMASK |
integer i,j,k |
|
./pkg/ecco/ecco_toolbox.F |
820 |
ECCO_ADDMASK |
do k = 1,nzOut |
|
./pkg/ecco/ecco_toolbox.F |
823 |
ECCO_ADDMASK |
if(fldInmask(i,j,k,bi,bj) .NE. 0. _d 0) then |
|
./pkg/ecco/ecco_toolbox.F |
824 |
ECCO_ADDMASK |
fldOut(i,j,k,bi,bj) = fldOut(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
825 |
ECCO_ADDMASK |
& + fldIn(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
826 |
ECCO_ADDMASK |
fldOutnum(i,j,k,bi,bj) = fldOutnum(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
868 |
ECCO_DIV |
integer i,j,k |
|
./pkg/ecco/ecco_toolbox.F |
887 |
ECCO_DIV |
do k = 1,nnzloc |
|
./pkg/ecco/ecco_toolbox.F |
890 |
ECCO_DIV |
fld(i,j,k,bi,bj) = fld(i,j,k,bi,bj)/numerloc |
|
./pkg/ecco/ecco_toolbox.F |
930 |
ECCO_DIVFIELD |
integer i,j,k |
|
./pkg/ecco/ecco_toolbox.F |
949 |
ECCO_DIVFIELD |
do k = 1,nnzloc |
|
./pkg/ecco/ecco_toolbox.F |
952 |
ECCO_DIVFIELD |
if(flddenom(i,j,k,bi,bj) .NE. 0. _d 0) then |
|
./pkg/ecco/ecco_toolbox.F |
953 |
ECCO_DIVFIELD |
fld(i,j,k,bi,bj) = fld(i,j,k,bi,bj)/ |
|
./pkg/ecco/ecco_toolbox.F |
954 |
ECCO_DIVFIELD |
& flddenom(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_toolbox.F |
956 |
ECCO_DIVFIELD |
fld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
997 |
ECCO_MULT |
integer i,j,k |
|
./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_cumsum.F |
117 |
W2_SET_MAP_CUMSUM |
DO k=1,nFacets |
|
./pkg/exch2/w2_set_map_cumsum.F |
118 |
W2_SET_MAP_CUMSUM |
W2_cumSum_facet(1,k,jj) = W2_cumSum_facet(1,k,j) |
|
./pkg/exch2/w2_set_map_cumsum.F |
119 |
W2_SET_MAP_CUMSUM |
W2_cumSum_facet(2,k,jj) = W2_cumSum_facet(2,k,j) |
|
./pkg/exch2/w2_set_map_cumsum.F |
130 |
W2_SET_MAP_CUMSUM |
DO k=1,nFacets |
|
./pkg/exch2/w2_set_map_cumsum.F |
131 |
W2_SET_MAP_CUMSUM |
W2_cumSum_facet(1,k,jj) = W2_cumSum_facet(1,k,j) |
|
./pkg/exch2/w2_set_map_cumsum.F |
132 |
W2_SET_MAP_CUMSUM |
W2_cumSum_facet(2,k,jj) = W2_cumSum_facet(2,k,j) |
|
./pkg/exch2/w2_set_map_cumsum.F |
146 |
W2_SET_MAP_CUMSUM |
DO k=1,nFacets |
|
./pkg/exch2/w2_set_map_cumsum.F |
147 |
W2_SET_MAP_CUMSUM |
W2_cumSum_facet(1,k,jj) = W2_cumSum_facet(1,k,j) |
|
./pkg/exch2/w2_set_map_cumsum.F |
148 |
W2_SET_MAP_CUMSUM |
W2_cumSum_facet(2,k,jj) = W2_cumSum_facet(2,k,j) |
|
./pkg/exch2/w2_set_map_cumsum.F |
159 |
W2_SET_MAP_CUMSUM |
DO k=1,nFacets |
|
./pkg/exch2/w2_set_map_cumsum.F |
160 |
W2_SET_MAP_CUMSUM |
W2_cumSum_facet(1,k,jj) = W2_cumSum_facet(1,k,j) |
|
./pkg/exch2/w2_set_map_cumsum.F |
161 |
W2_SET_MAP_CUMSUM |
W2_cumSum_facet(2,k,jj) = W2_cumSum_facet(2,k,j) |
|
./pkg/exch2/w2_set_map_cumsum.F |
178 |
W2_SET_MAP_CUMSUM |
DO k=1,nFacets |
|
./pkg/exch2/w2_set_map_cumsum.F |
179 |
W2_SET_MAP_CUMSUM |
W2_cumSum_facet(1,k,jj) = W2_cumSum_facet(1,k,j) |
|
./pkg/exch2/w2_set_map_cumsum.F |
180 |
W2_SET_MAP_CUMSUM |
W2_cumSum_facet(2,k,jj) = W2_cumSum_facet(2,k,j) |
|
./pkg/exch2/w2_set_map_cumsum.F |
193 |
W2_SET_MAP_CUMSUM |
DO k=1,nFacets |
|
./pkg/exch2/w2_set_map_cumsum.F |
194 |
W2_SET_MAP_CUMSUM |
W2_cumSum_facet(1,k,jj) = W2_cumSum_facet(1,k,j) |
|
./pkg/exch2/w2_set_map_cumsum.F |
195 |
W2_SET_MAP_CUMSUM |
W2_cumSum_facet(2,k,jj) = W2_cumSum_facet(2,k,j) |
|
./pkg/exch2/w2_set_map_cumsum.F |
289 |
W2_SET_MAP_CUMSUM |
DO k=facet_owns(1,j),tS |
|
./pkg/exch2/w2_set_map_cumsum.F |
290 |
W2_SET_MAP_CUMSUM |
W2_cumSum_tiles(1,k,tN) = 1 |
|
./pkg/exch2/w2_set_map_cumsum.F |
296 |
W2_SET_MAP_CUMSUM |
DO k=facet_owns(1,j),tN-1 |
|
./pkg/exch2/w2_set_map_cumsum.F |
297 |
W2_SET_MAP_CUMSUM |
facetXYSum(1,k,j) = W2_cumSum_tiles(1,k,tN) |
|
./pkg/exch2/w2_set_map_cumsum.F |
304 |
W2_SET_MAP_CUMSUM |
DO k=1,bj |
|
./pkg/exch2/w2_set_map_cumsum.F |
305 |
W2_SET_MAP_CUMSUM |
l = tS + (k-1)*nbTx |
|
./pkg/exch2/w2_set_map_cumsum.F |
312 |
W2_SET_MAP_CUMSUM |
DO k=facet_owns(1,j),tN-1 |
|
./pkg/exch2/w2_set_map_cumsum.F |
313 |
W2_SET_MAP_CUMSUM |
facetXYSum(2,k,j) = W2_cumSum_tiles(2,k,tN) |
|
./pkg/exch2/w2_set_map_cumsum.F |
321 |
W2_SET_MAP_CUMSUM |
DO k=1,exch2_nTiles |
|
./pkg/exch2/w2_set_map_cumsum.F |
323 |
W2_SET_MAP_CUMSUM |
facet_CSum(1,k,j) = facet_CSum(1,k,j) |
|
./pkg/exch2/w2_set_map_cumsum.F |
324 |
W2_SET_MAP_CUMSUM |
& + W2_cumSum_facet(1,i,j)*facetXYSum(1,k,i) |
|
./pkg/exch2/w2_set_map_cumsum.F |
325 |
W2_SET_MAP_CUMSUM |
facet_CSum(2,k,j) = facet_CSum(2,k,j) |
|
./pkg/exch2/w2_set_map_cumsum.F |
326 |
W2_SET_MAP_CUMSUM |
& + W2_cumSum_facet(2,i,j)*facetXYSum(2,k,i) |
|
./pkg/exch2/w2_set_map_cumsum.F |
334 |
W2_SET_MAP_CUMSUM |
DO k=1,exch2_nTiles |
|
./pkg/exch2/w2_set_map_cumsum.F |
335 |
W2_SET_MAP_CUMSUM |
W2_cumSum_tiles(1,k,tN) = W2_cumSum_tiles(1,k,tN) |
|
./pkg/exch2/w2_set_map_cumsum.F |
336 |
W2_SET_MAP_CUMSUM |
& + facet_CSum(1,k,j) |
|
./pkg/exch2/w2_set_map_cumsum.F |
337 |
W2_SET_MAP_CUMSUM |
W2_cumSum_tiles(2,k,tN) = W2_cumSum_tiles(2,k,tN) |
|
./pkg/exch2/w2_set_map_cumsum.F |
338 |
W2_SET_MAP_CUMSUM |
& + facet_CSum(2,k,j) |
|
./pkg/exch2/w2_set_map_cumsum.F |
42 |
W2_SET_MAP_CUMSUM |
INTEGER tN, i, j, k, ii, jj |
|
./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/exch2/w2_set_map_tiles.F |
108 |
W2_SET_MAP_TILES |
k = 0 |
|
./pkg/exch2/w2_set_map_tiles.F |
113 |
W2_SET_MAP_TILES |
k = k + 1 |
|
./pkg/exch2/w2_set_map_tiles.F |
114 |
W2_SET_MAP_TILES |
nnx(k) = facet_dims(2*j-1)/tNx |
|
./pkg/exch2/w2_set_map_tiles.F |
117 |
W2_SET_MAP_TILES |
divide = FIND_GCD_N( nnx, k ) |
|
./pkg/exch2/w2_set_map_tiles.F |
175 |
W2_SET_MAP_TILES |
DO k=1,nBlankTiles |
|
./pkg/exch2/w2_set_map_tiles.F |
176 |
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 |
|
./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) |
|
./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/exf/exf_getforcing.F |
145 |
EXF_GETFORCING |
INTEGER i,j,k |
|
./pkg/exf/exf_getforcing.F |
225 |
EXF_GETFORCING |
k = 1 |
|
./pkg/exf/exf_getforcing.F |
231 |
EXF_GETFORCING |
hflux(i,j,bi,bj) = hflux(i,j,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/exf/exf_getforcing.F |
232 |
EXF_GETFORCING |
sflux(i,j,bi,bj) = sflux(i,j,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/exf/exf_interp.F |
228 |
EXF_INTERP |
k = MAX(1,MIN(j,nyIn)) |
|
./pkg/exf/exf_interp.F |
230 |
EXF_INTERP |
IF ( nyIn.GE.3 .AND. ABS(y_in(k)).EQ.yPole ) |
|
./pkg/exf/exf_interp.F |
231 |
EXF_INTERP |
& k = MAX(2,MIN(j,nyIn-1)) |
|
./pkg/exf/exf_interp.F |
234 |
EXF_INTERP |
arrayin(i,j) = symSign*arrayin(i+nxd2,k) |
|
./pkg/exf/exf_interp.F |
237 |
EXF_INTERP |
arrayin(i+nxd2,j) = symSign*arrayin(i,k) |
|
./pkg/exf/exf_interp.F |
246 |
EXF_INTERP |
arrayin(i,j) = arrayin(i,k) |
|
./pkg/exf/exf_interp.F |
295 |
EXF_INTERP |
k = l*(nyIn+3) -1 |
|
./pkg/exf/exf_interp.F |
296 |
EXF_INTERP |
IF ( ABS(y_in(k)).EQ.yPole ) THEN |
|
./pkg/exf/exf_interp.F |
299 |
EXF_INTERP |
edgeFac = (y_in(j) - y_in(k)) / (y_in(i) - y_in(k)) |
|
./pkg/exf/exf_interp.F |
300 |
EXF_INTERP |
poleFac = (y_in(i) - y_in(j)) / (y_in(i) - y_in(k)) |
|
./pkg/exf/exf_interp.F |
303 |
EXF_INTERP |
& + arrayin(i,k) * poleFac |
|
./pkg/exf/exf_interp.F |
403 |
EXF_INTERP |
k = NINT( (s_ind(i,j)+w_ind(i,j))*0.5 ) |
|
./pkg/exf/exf_interp.F |
404 |
EXF_INTERP |
IF ( yG(i,j,bi,bj) .LT. y_in(k) ) THEN |
|
./pkg/exf/exf_interp.F |
405 |
EXF_INTERP |
w_ind(i,j) = k |
|
./pkg/exf/exf_interp.F |
407 |
EXF_INTERP |
s_ind(i,j) = k |
|
./pkg/exf/exf_interp.F |
94 |
EXF_INTERP |
INTEGER i, j, k, l |
|
./pkg/exf/exf_interp_uv.F |
106 |
EXF_INTERP_UV |
INTEGER i, j, k, l |
|
./pkg/exf/exf_interp_uv.F |
243 |
EXF_INTERP_UV |
k = MAX(1,MIN(j,nyIn)) |
|
./pkg/exf/exf_interp_uv.F |
245 |
EXF_INTERP_UV |
IF ( nyIn.GE.3 .AND. ABS(y_in(k)).EQ.yPole ) |
|
./pkg/exf/exf_interp_uv.F |
246 |
EXF_INTERP_UV |
& k = MAX(2,MIN(j,nyIn-1)) |
|
./pkg/exf/exf_interp_uv.F |
249 |
EXF_INTERP_UV |
arrUin(i,j) = symSign*arrUin(i+nxd2,k) |
|
./pkg/exf/exf_interp_uv.F |
250 |
EXF_INTERP_UV |
arrVin(i,j) = symSign*arrVin(i+nxd2,k) |
|
./pkg/exf/exf_interp_uv.F |
253 |
EXF_INTERP_UV |
arrUin(i+nxd2,j) = symSign*arrUin(i,k) |
|
./pkg/exf/exf_interp_uv.F |
254 |
EXF_INTERP_UV |
arrVin(i+nxd2,j) = symSign*arrVin(i,k) |
|
./pkg/exf/exf_interp_uv.F |
263 |
EXF_INTERP_UV |
arrUin(i,j) = arrUin(i,k) |
|
./pkg/exf/exf_interp_uv.F |
264 |
EXF_INTERP_UV |
arrVin(i,j) = arrVin(i,k) |
|
./pkg/exf/exf_interp_uv.F |
317 |
EXF_INTERP_UV |
k = l*(nyIn+3) -1 |
|
./pkg/exf/exf_interp_uv.F |
318 |
EXF_INTERP_UV |
IF ( ABS(y_in(k)).EQ.yPole ) THEN |
|
./pkg/exf/exf_interp_uv.F |
321 |
EXF_INTERP_UV |
edgeFac = (y_in(j) - y_in(k)) / (y_in(i) - y_in(k)) |
|
./pkg/exf/exf_interp_uv.F |
322 |
EXF_INTERP_UV |
poleFac = (y_in(i) - y_in(j)) / (y_in(i) - y_in(k)) |
|
./pkg/exf/exf_interp_uv.F |
325 |
EXF_INTERP_UV |
& + arrUin(i,k) * poleFac |
|
./pkg/exf/exf_interp_uv.F |
327 |
EXF_INTERP_UV |
& + arrVin(i,k) * poleFac |
|
./pkg/exf/exf_interp_uv.F |
429 |
EXF_INTERP_UV |
k = NINT( (s_ind(i,j)+w_ind(i,j))*0.5 ) |
|
./pkg/exf/exf_interp_uv.F |
430 |
EXF_INTERP_UV |
IF ( yG(i,j,bi,bj) .LT. y_in(k) ) THEN |
|
./pkg/exf/exf_interp_uv.F |
431 |
EXF_INTERP_UV |
w_ind(i,j) = k |
|
./pkg/exf/exf_interp_uv.F |
433 |
EXF_INTERP_UV |
s_ind(i,j) = k |
|
./pkg/exf/exf_interpolate.F |
128 |
EXF_INTERPOLATE |
INTEGER i, j, k, l |
|
./pkg/exf/exf_interpolate.F |
147 |
EXF_INTERPOLATE |
DO k=1,2 |
|
./pkg/exf/exf_interpolate.F |
148 |
EXF_INTERPOLATE |
ew_val(k) = arrayin(w_ind(i,j) ,s_ind(i,j)+k-1) |
|
./pkg/exf/exf_interpolate.F |
150 |
EXF_INTERPOLATE |
& + arrayin(w_ind(i,j)+1,s_ind(i,j)+k-1) |
|
./pkg/exf/exf_interpolate.F |
153 |
EXF_INTERPOLATE |
& + ew_val(k)*LAGRAN(k,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
182 |
EXF_INTERPOLATE |
DO k=1,4 |
|
./pkg/exf/exf_interpolate.F |
183 |
EXF_INTERPOLATE |
ew_val(k) = arrayin(w_ind(i,j)-1,s_ind(i,j)+k-2) |
|
./pkg/exf/exf_interpolate.F |
185 |
EXF_INTERPOLATE |
& + arrayin(w_ind(i,j) ,s_ind(i,j)+k-2) |
|
./pkg/exf/exf_interpolate.F |
187 |
EXF_INTERPOLATE |
& + arrayin(w_ind(i,j)+1,s_ind(i,j)+k-2) |
|
./pkg/exf/exf_interpolate.F |
189 |
EXF_INTERPOLATE |
& + arrayin(w_ind(i,j)+2,s_ind(i,j)+k-2) |
|
./pkg/exf/exf_interpolate.F |
192 |
EXF_INTERPOLATE |
& + ew_val(k)*LAGRAN(k,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
36 |
NO PROCEDURE |
INTEGER k |
|
./pkg/exf/exf_interpolate.F |
45 |
NO PROCEDURE |
DO k=1,sp |
|
./pkg/exf/exf_interpolate.F |
46 |
NO PROCEDURE |
IF ( k .NE. i) THEN |
|
./pkg/exf/exf_interpolate.F |
47 |
NO PROCEDURE |
denom = denom*(a(i) - a(k)) |
|
./pkg/exf/exf_interpolate.F |
48 |
NO PROCEDURE |
numer = numer*(x - a(k)) |
|
./pkg/exf/exf_monitor.F |
54 |
EXF_MONITOR |
INTEGER k |
|
./pkg/exf/exf_monitor.F |
79 |
EXF_MONITOR |
DO k = 1,MAX_LEN_MBUF |
|
./pkg/exf/exf_monitor.F |
80 |
EXF_MONITOR |
mon_fname(k:k) = ' ' |
|
./pkg/exf/exf_monitor_ad.F |
59 |
ADEXF_MONITOR |
INTEGER k |
|
./pkg/exf/exf_monitor_ad.F |
76 |
ADEXF_MONITOR |
DO k = 1,MAX_LEN_MBUF |
|
./pkg/exf/exf_monitor_ad.F |
77 |
ADEXF_MONITOR |
mon_fname(k:k) = ' ' |
|
./pkg/exf/exf_set_obcs.F |
105 |
EXF_SET_OBCS_XZ |
DO k = 1,nNz |
|
./pkg/exf/exf_set_obcs.F |
107 |
EXF_SET_OBCS_XZ |
obcs_fld_xz(i,k,bi,bj) = |
|
./pkg/exf/exf_set_obcs.F |
108 |
EXF_SET_OBCS_XZ |
& fac * obcs_xz_0(i,k,bi,bj) + |
|
./pkg/exf/exf_set_obcs.F |
109 |
EXF_SET_OBCS_XZ |
& (exf_one - fac) * obcs_xz_1(i,k,bi,bj) |
|
./pkg/exf/exf_set_obcs.F |
175 |
EXF_SET_OBCS_YZ |
INTEGER j, k |
|
./pkg/exf/exf_set_obcs.F |
212 |
EXF_SET_OBCS_YZ |
DO k = 1,nNz |
|
./pkg/exf/exf_set_obcs.F |
214 |
EXF_SET_OBCS_YZ |
obcs_fld_yz(j,k,bi,bj) = |
|
./pkg/exf/exf_set_obcs.F |
215 |
EXF_SET_OBCS_YZ |
& fac *obcs_yz_0(j,k,bi,bj) + |
|
./pkg/exf/exf_set_obcs.F |
216 |
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 |
|
./pkg/exf/exf_swapffields.F |
104 |
EXF_SWAPFFIELDS_3D |
INTEGER i, j, k |
|
./pkg/exf/exf_swapffields.F |
110 |
EXF_SWAPFFIELDS_3D |
DO k = 1,nNz |
|
./pkg/exf/exf_swapffields.F |
113 |
EXF_SWAPFFIELDS_3D |
ffld0(i,j,k,bi,bj) = ffld1(i,j,k,bi,bj) |
|
./pkg/exf/exf_swapffields.F |
114 |
EXF_SWAPFFIELDS_3D |
ffld1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
158 |
EXF_SWAPFFIELDS_XZ |
INTEGER i, k |
|
./pkg/exf/exf_swapffields.F |
164 |
EXF_SWAPFFIELDS_XZ |
DO k = 1,nNz |
|
./pkg/exf/exf_swapffields.F |
166 |
EXF_SWAPFFIELDS_XZ |
ffld0(i,k,bi,bj) = ffld1(i,k,bi,bj) |
|
./pkg/exf/exf_swapffields.F |
167 |
EXF_SWAPFFIELDS_XZ |
ffld1(i,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
210 |
EXF_SWAPFFIELDS_YZ |
INTEGER j, k |
|
./pkg/exf/exf_swapffields.F |
216 |
EXF_SWAPFFIELDS_YZ |
DO k = 1,nNz |
|
./pkg/exf/exf_swapffields.F |
218 |
EXF_SWAPFFIELDS_YZ |
ffld0(j,k,bi,bj) = ffld1(j,k,bi,bj) |
|
./pkg/exf/exf_swapffields.F |
219 |
EXF_SWAPFFIELDS_YZ |
ffld1(j,k,bi,bj) = 0. _d 0 |
|
./pkg/fizhi/fizhi_clockstuff.F |
900 |
ASTRO |
integer i,nsecf,k,km,kp |
|
./pkg/fizhi/fizhi_init_veg.F |
132 |
FIZHI_INIT_VEG |
do k = 1,maxtyp |
|
./pkg/fizhi/fizhi_init_veg.F |
135 |
FIZHI_INIT_VEG |
surftype(i,j,k,bi,bj) = iveg_32(i,j,k,biglobal,bjglobal) |
|
./pkg/fizhi/fizhi_init_veg.F |
136 |
FIZHI_INIT_VEG |
tilefrac(i,j,k,bi,bj) = veg_32(i,j,k,biglobal,bjglobal) |
|
./pkg/fizhi/fizhi_init_veg.F |
165 |
FIZHI_INIT_VEG |
do k=1,maxtyp |
|
./pkg/fizhi/fizhi_init_veg.F |
168 |
FIZHI_INIT_VEG |
if(surftype(i,j,k,bi,bj).lt.100 .and. |
|
./pkg/fizhi/fizhi_init_veg.F |
169 |
FIZHI_INIT_VEG |
& tilefrac(i,j,k,bi,bj).gt.0.) then |
|
./pkg/fizhi/fizhi_init_veg.F |
172 |
FIZHI_INIT_VEG |
ityp (nchpland(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
173 |
FIZHI_INIT_VEG |
chfr (nchpland(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
183 |
FIZHI_INIT_VEG |
do k=1,maxtyp |
|
./pkg/fizhi/fizhi_init_veg.F |
186 |
FIZHI_INIT_VEG |
if(surftype(i,j,k,bi,bj).ge.100 .and. |
|
./pkg/fizhi/fizhi_init_veg.F |
187 |
FIZHI_INIT_VEG |
& tilefrac(i,j,k,bi,bj).gt.0.) then |
|
./pkg/fizhi/fizhi_init_veg.F |
190 |
FIZHI_INIT_VEG |
ityp (nchptot(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
191 |
FIZHI_INIT_VEG |
chfr (nchptot(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
67 |
FIZHI_INIT_VEG |
INTEGER i,j,k,bi,bj |
|
./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 |
4008 |
VTRI0 |
integer k,irun |
|
./pkg/fizhi/fizhi_turb.F |
4041 |
VTRI1 |
integer k,irun |
|
./pkg/fizhi/fizhi_turb.F |
4060 |
VTRI2 |
integer k,irun |
|
./pkg/fizhi/fizhi_turb.F |
4434 |
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 |
1004 |
GETEMISS |
INTEGER i,j,k,n |
|
./pkg/fizhi/update_earth_exports.F |
1019 |
GETEMISS |
do k = 1,10 |
|
./pkg/fizhi/update_earth_exports.F |
1025 |
GETEMISS |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),emisstile(1,k),nchp, |
|
./pkg/fizhi/update_earth_exports.F |
1029 |
GETEMISS |
emiss(i,j,k,bi,bj) = tmpij(i,j) |
|
./pkg/fizhi/update_earth_exports.F |
1235 |
GET_LANDFRAC |
INTEGER i,j,k |
|
./pkg/fizhi/update_earth_exports.F |
1243 |
GET_LANDFRAC |
do k=1,maxtyp |
|
./pkg/fizhi/update_earth_exports.F |
1246 |
GET_LANDFRAC |
if( (surftype(i,j,k,bi,bj).lt.100.).and. |
|
./pkg/fizhi/update_earth_exports.F |
1247 |
GET_LANDFRAC |
& (tilefrac(i,j,k,bi,bj).gt.0.0))then |
|
./pkg/fizhi/update_earth_exports.F |
1248 |
GET_LANDFRAC |
frac(i,j) = frac(i,j) + tilefrac(i,j,k,bi,bj) |
|
./pkg/flt/flt_mapping.F |
208 |
FLT_MAP_IJLOCAL2XY |
INTEGER k |
|
./pkg/flt/flt_mapping.F |
213 |
FLT_MAP_IJLOCAL2XY |
DO k=1,Nr |
|
./pkg/flt/flt_mapping.F |
216 |
FLT_MAP_IJLOCAL2XY |
IF ( rF(k) .GE. rr .AND. rr.GT.rF(k+1) ) THEN |
|
./pkg/flt/flt_mapping.F |
217 |
FLT_MAP_IJLOCAL2XY |
fm = ( rr - rF(k) ) * recip_drF(k)*rkSign |
|
./pkg/flt/flt_mapping.F |
218 |
FLT_MAP_IJLOCAL2XY |
FLT_MAP_R2K = DFLOAT(k)+fm-0.5 _d 0 |
|
./pkg/flt/flt_mapping.F |
255 |
FLT_MAP_IJLOCAL2XY |
INTEGER k |
|
./pkg/flt/flt_mapping.F |
259 |
FLT_MAP_IJLOCAL2XY |
k = NINT(kr) |
|
./pkg/flt/flt_mapping.F |
260 |
FLT_MAP_IJLOCAL2XY |
IF ( k.LT.1 ) THEN |
|
./pkg/flt/flt_mapping.F |
262 |
FLT_MAP_IJLOCAL2XY |
ELSEIF ( k.GT.Nr ) THEN |
|
./pkg/flt/flt_mapping.F |
265 |
FLT_MAP_IJLOCAL2XY |
ddz = 0.5 _d 0 + kr - DFLOAT(k) |
|
./pkg/flt/flt_mapping.F |
266 |
FLT_MAP_IJLOCAL2XY |
FLT_MAP_K2R = rF(k) + ddz*drF(k)*rkSign |
|
./pkg/flt/flt_up.F |
135 |
FLT_UP |
DO k=1,Nr |
|
./pkg/flt/flt_up.F |
136 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,uu,uVel, k,1,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
137 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,vv,vVel, k,2,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
138 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,tt,theta, k,0,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
139 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,ss,salt, k,0,bi,bj,myThid) |
|
./pkg/flt/flt_up.F |
140 |
FLT_UP |
tmp(9+k ) = uu |
|
./pkg/flt/flt_up.F |
141 |
FLT_UP |
tmp(9+k+1*Nr) = vv |
|
./pkg/flt/flt_up.F |
142 |
FLT_UP |
tmp(9+k+2*Nr) = tt |
|
./pkg/flt/flt_up.F |
143 |
FLT_UP |
tmp(9+k+3*Nr) = ss |
|
./pkg/flt/flt_up.F |
46 |
FLT_UP |
INTEGER ip, k, ii |
|
./pkg/frazil/frazil_calc_rhs.F |
42 |
FRAZIL_CALC_RHS |
INTEGER bi,bj,i,j,k,kTop |
|
./pkg/frazil/frazil_calc_rhs.F |
57 |
FRAZIL_CALC_RHS |
DO k=1,Nr |
|
./pkg/frazil/frazil_calc_rhs.F |
60 |
FRAZIL_CALC_RHS |
FrazilForcingT(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/frazil/frazil_calc_rhs.F |
66 |
FRAZIL_CALC_RHS |
DO k = 2, Nr |
|
./pkg/frazil/frazil_calc_rhs.F |
69 |
FRAZIL_CALC_RHS |
IF ( maskC(i,j,k-1,bi,bj) .NE. 0. _d 0 .AND. |
|
./pkg/frazil/frazil_calc_rhs.F |
70 |
FRAZIL_CALC_RHS |
& maskC(i,j,k, bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/frazil/frazil_calc_rhs.F |
72 |
FRAZIL_CALC_RHS |
pLoc = ABS(RC(k)) |
|
./pkg/frazil/frazil_calc_rhs.F |
73 |
FRAZIL_CALC_RHS |
sLoc = MAX(salt(i,j,k,bi,bj), 0. _d 0) |
|
./pkg/frazil/frazil_calc_rhs.F |
74 |
FRAZIL_CALC_RHS |
tLoc = SW_TEMP(sLoc,theta(i,j,k,bi,bj),pLoc,0. _d 0) |
|
./pkg/frazil/frazil_calc_rhs.F |
95 |
FRAZIL_CALC_RHS |
& * drF(k) * _hFacC(i,j,k,bi,bj) |
|
./pkg/frazil/frazil_calc_rhs.F |
96 |
FRAZIL_CALC_RHS |
FrazilForcingT(i,j,k,bi,bj) = Tresid / dTtracerLev(k) |
|
./pkg/frazil/frazil_init_varia.F |
32 |
FRAZIL_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/frazil/frazil_init_varia.F |
37 |
FRAZIL_INIT_VARIA |
DO k=1,Nr |
|
./pkg/frazil/frazil_init_varia.F |
40 |
FRAZIL_INIT_VARIA |
FrazilForcingT(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/frazil/frazil_tendency_apply.F |
15 |
FRAZIL_TENDENCY_APPLY_T |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/frazil/frazil_tendency_apply.F |
44 |
FRAZIL_TENDENCY_APPLY_T |
INTEGER k, bi, bj |
|
./pkg/frazil/frazil_tendency_apply.F |
60 |
FRAZIL_TENDENCY_APPLY_T |
& + FrazilForcingT(i,j,k,bi,bj) |
|
./pkg/frazil/frazil_tendency_apply.F |
62 |
FRAZIL_TENDENCY_APPLY_T |
& * recip_drF(k) * _recip_hFacC(i,j,k,bi,bj) |
|
./pkg/gchem/gchem_add_tendency.F |
12 |
GCHEM_ADD_TENDENCY |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/gchem/gchem_add_tendency.F |
41 |
GCHEM_ADD_TENDENCY |
INTEGER k, bi, bj, iTr |
|
./pkg/gchem/gchem_add_tendency.F |
64 |
GCHEM_ADD_TENDENCY |
& + gchemTendency(i,j,k,bi,bj,jTr) |
|
./pkg/gchem/gchem_calc_tendency.F |
59 |
GCHEM_CALC_TENDENCY |
INTEGER bi,bj,iMin,iMax,jMin,jMax,k |
|
./pkg/gchem/gchem_calc_tendency.F |
65 |
GCHEM_CALC_TENDENCY |
DO k = 1, Nr |
|
./pkg/gchem/gchem_calc_tendency.F |
68 |
GCHEM_CALC_TENDENCY |
gchemTendency(i,j,k,bi,bj,jTr) = 0. _d 0 |
|
./pkg/gchem/gchem_init_vari.F |
41 |
GCHEM_INIT_VARI |
INTEGER i,j,k |
|
./pkg/gchem/gchem_init_vari.F |
52 |
GCHEM_INIT_VARI |
DO k = 1, Nr |
|
./pkg/gchem/gchem_init_vari.F |
55 |
GCHEM_INIT_VARI |
gchemTendency(i,j,k,bi,bj,jTr) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_advection.F |
1013 |
GAD_ADVECTION |
tmpTrac = localT3d(i,j,k)*locVol3d(i,j,k) |
|
./pkg/generic_advdiff/gad_advection.F |
1014 |
GAD_ADVECTION |
& -deltaTLev(k)*( fVerT(i,j,kDown)-fVerT(i,j,kUp) ) |
|
./pkg/generic_advdiff/gad_advection.F |
1016 |
GAD_ADVECTION |
localVol(i,j) = locVol3d(i,j,k) |
|
./pkg/generic_advdiff/gad_advection.F |
1017 |
GAD_ADVECTION |
& -deltaTLev(k)*( rTransKp(i,j) - rTrans(i,j) ) |
|
./pkg/generic_advdiff/gad_advection.F |
1028 |
GAD_ADVECTION |
gTracer(i,j,k) = |
|
./pkg/generic_advdiff/gad_advection.F |
1029 |
GAD_ADVECTION |
& ( tmpTrac - tracer(i,j,k,bi,bj)*localVol(i,j) ) |
|
./pkg/generic_advdiff/gad_advection.F |
1030 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
1031 |
GAD_ADVECTION |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
1032 |
GAD_ADVECTION |
& *recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_advection.F |
1033 |
GAD_ADVECTION |
& /deltaTLev(k) |
|
./pkg/generic_advdiff/gad_advection.F |
1039 |
GAD_ADVECTION |
localTij(i,j) = localT3d(i,j,k) |
|
./pkg/generic_advdiff/gad_advection.F |
1040 |
GAD_ADVECTION |
& -deltaTLev(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_advection.F |
1041 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
1042 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
1044 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(rTransKp(i,j)-rTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
1046 |
GAD_ADVECTION |
gTracer(i,j,k) = |
|
./pkg/generic_advdiff/gad_advection.F |
1047 |
GAD_ADVECTION |
& ( localTij(i,j) - tracer(i,j,k,bi,bj) )/deltaTLev(k) |
|
./pkg/generic_advdiff/gad_advection.F |
1056 |
GAD_ADVECTION |
& diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
1061 |
GAD_ADVECTION |
& 'AFR', k, 1, 2,bi,bj, myThid) |
|
./pkg/generic_advdiff/gad_advection.F |
133 |
GAD_ADVECTION |
INTEGER i,j,k,kUp,kDown |
|
./pkg/generic_advdiff/gad_advection.F |
271 |
GAD_ADVECTION |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_advection.F |
273 |
GAD_ADVECTION |
kkey = (igadkey-1)*Nr + k |
|
./pkg/generic_advdiff/gad_advection.F |
281 |
GAD_ADVECTION |
xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/generic_advdiff/gad_advection.F |
282 |
GAD_ADVECTION |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
283 |
GAD_ADVECTION |
yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/generic_advdiff/gad_advection.F |
284 |
GAD_ADVECTION |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
291 |
GAD_ADVECTION |
uTrans(i,j) = uFld(i,j,k)*xA(i,j)*rhoFacC(k) |
|
./pkg/generic_advdiff/gad_advection.F |
292 |
GAD_ADVECTION |
vTrans(i,j) = vFld(i,j,k)*yA(i,j)*rhoFacC(k) |
|
./pkg/generic_advdiff/gad_advection.F |
299 |
GAD_ADVECTION |
localTij(i,j) = tracer(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
301 |
GAD_ADVECTION |
localVol(i,j) = rA(i,j,bi,bj)*deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
302 |
GAD_ADVECTION |
& *rhoFacC(k)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
303 |
GAD_ADVECTION |
& + ( oneRS - maskC(i,j,k,bi,bj) ) |
|
./pkg/generic_advdiff/gad_advection.F |
306 |
GAD_ADVECTION |
maskLocW(i,j) = _maskW(i,j,k,bi,bj)*maskInW(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
307 |
GAD_ADVECTION |
maskLocS(i,j) = _maskS(i,j,k,bi,bj)*maskInS(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
309 |
GAD_ADVECTION |
maskLocW(i,j) = _maskW(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
310 |
GAD_ADVECTION |
maskLocS(i,j) = _maskS(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
326 |
GAD_ADVECTION |
& + (k-1) *maxpass |
|
./pkg/generic_advdiff/gad_advection.F |
405 |
GAD_ADVECTION |
CALL GAD_DST2U1_ADV_X( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/generic_advdiff/gad_advection.F |
406 |
GAD_ADVECTION |
I deltaTLev(k),uTrans,uFld(1-OLx,1-OLy,k), localTij, |
|
./pkg/generic_advdiff/gad_advection.F |
409 |
GAD_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
410 |
GAD_ADVECTION |
I uTrans, uFld(1-OLx,1-OLy,k), maskLocW, localTij, |
|
./pkg/generic_advdiff/gad_advection.F |
413 |
GAD_ADVECTION |
CALL GAD_DST3_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
414 |
GAD_ADVECTION |
I uTrans, uFld(1-OLx,1-OLy,k), maskLocW, localTij, |
|
./pkg/generic_advdiff/gad_advection.F |
417 |
GAD_ADVECTION |
CALL GAD_DST3FL_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
418 |
GAD_ADVECTION |
I uTrans, uFld(1-OLx,1-OLy,k), maskLocW, localTij, |
|
./pkg/generic_advdiff/gad_advection.F |
422 |
GAD_ADVECTION |
CALL GAD_OS7MP_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
423 |
GAD_ADVECTION |
I uTrans, uFld(1-OLx,1-OLy,k), maskLocW, localTij, |
|
./pkg/generic_advdiff/gad_advection.F |
428 |
GAD_ADVECTION |
CALL GAD_PPM_ADV_X( advectionScheme, bi, bj, k , .TRUE., |
|
./pkg/generic_advdiff/gad_advection.F |
429 |
GAD_ADVECTION |
I deltaTLev(k), uFld(1-OLx,1-OLy,k), uTrans, localTij, |
|
./pkg/generic_advdiff/gad_advection.F |
434 |
GAD_ADVECTION |
CALL GAD_PQM_ADV_X( advectionScheme, bi, bj, k , .TRUE., |
|
./pkg/generic_advdiff/gad_advection.F |
435 |
GAD_ADVECTION |
I deltaTLev(k), uFld(1-OLx,1-OLy,k), uTrans, localTij, |
|
./pkg/generic_advdiff/gad_advection.F |
445 |
GAD_ADVECTION |
CALL OBCS_U1_ADV_TRACER( .TRUE., trIdentity, bi, bj, k, |
|
./pkg/generic_advdiff/gad_advection.F |
485 |
GAD_ADVECTION |
& -deltaTLev(k)*( af(i+1,j) - af(i,j) ) |
|
./pkg/generic_advdiff/gad_advection.F |
488 |
GAD_ADVECTION |
& -deltaTLev(k)*( uTrans(i+1,j) - uTrans(i,j) ) |
|
./pkg/generic_advdiff/gad_advection.F |
493 |
GAD_ADVECTION |
& -deltaTLev(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_advection.F |
494 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
495 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
497 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(uTrans(i+1,j)-uTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
508 |
GAD_ADVECTION |
& -deltaTLev(k)*( af(i+1,j) - af(i,j) ) |
|
./pkg/generic_advdiff/gad_advection.F |
511 |
GAD_ADVECTION |
& -deltaTLev(k)*( uTrans(i+1,j) - uTrans(i,j) ) |
|
./pkg/generic_advdiff/gad_advection.F |
516 |
GAD_ADVECTION |
& -deltaTLev(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_advection.F |
517 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
518 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
520 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(uTrans(i+1,j)-uTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
537 |
GAD_ADVECTION |
& -deltaTLev(k)*( af(i+1,j) - af(i,j) ) |
|
./pkg/generic_advdiff/gad_advection.F |
540 |
GAD_ADVECTION |
& -deltaTLev(k)*( uTrans(i+1,j) - uTrans(i,j) ) |
|
./pkg/generic_advdiff/gad_advection.F |
545 |
GAD_ADVECTION |
& -deltaTLev(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_advection.F |
546 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
547 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
549 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(uTrans(i+1,j)-uTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
614 |
GAD_ADVECTION |
CALL GAD_DST2U1_ADV_Y( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/generic_advdiff/gad_advection.F |
615 |
GAD_ADVECTION |
I deltaTLev(k),vTrans,vFld(1-OLx,1-OLy,k), localTij, |
|
./pkg/generic_advdiff/gad_advection.F |
618 |
GAD_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
619 |
GAD_ADVECTION |
I vTrans, vFld(1-OLx,1-OLy,k), maskLocS, localTij, |
|
./pkg/generic_advdiff/gad_advection.F |
622 |
GAD_ADVECTION |
CALL GAD_DST3_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
623 |
GAD_ADVECTION |
I vTrans, vFld(1-OLx,1-OLy,k), maskLocS, localTij, |
|
./pkg/generic_advdiff/gad_advection.F |
626 |
GAD_ADVECTION |
CALL GAD_DST3FL_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
627 |
GAD_ADVECTION |
I vTrans, vFld(1-OLx,1-OLy,k), maskLocS, localTij, |
|
./pkg/generic_advdiff/gad_advection.F |
631 |
GAD_ADVECTION |
CALL GAD_OS7MP_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
632 |
GAD_ADVECTION |
I vTrans, vFld(1-OLx,1-OLy,k), maskLocS, localTij, |
|
./pkg/generic_advdiff/gad_advection.F |
637 |
GAD_ADVECTION |
CALL GAD_PPM_ADV_Y(advectionScheme, bi, bj, k , .TRUE., |
|
./pkg/generic_advdiff/gad_advection.F |
638 |
GAD_ADVECTION |
I deltaTLev(k), vFld(1-OLX,1-OLy,k), vTrans, localTij, |
|
./pkg/generic_advdiff/gad_advection.F |
643 |
GAD_ADVECTION |
CALL GAD_PQM_ADV_Y(advectionScheme, bi, bj, k , .TRUE., |
|
./pkg/generic_advdiff/gad_advection.F |
644 |
GAD_ADVECTION |
I deltaTLev(k), vFld(1-OLX,1-OLy,k), vTrans, localTij, |
|
./pkg/generic_advdiff/gad_advection.F |
654 |
GAD_ADVECTION |
CALL OBCS_U1_ADV_TRACER( .FALSE., trIdentity, bi, bj, k, |
|
./pkg/generic_advdiff/gad_advection.F |
694 |
GAD_ADVECTION |
& -deltaTLev(k)*( af(i,j+1) - af(i,j) ) |
|
./pkg/generic_advdiff/gad_advection.F |
697 |
GAD_ADVECTION |
& -deltaTLev(k)*( vTrans(i,j+1) - vTrans(i,j) ) |
|
./pkg/generic_advdiff/gad_advection.F |
702 |
GAD_ADVECTION |
& -deltaTLev(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_advection.F |
703 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
704 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
706 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(vTrans(i,j+1)-vTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
717 |
GAD_ADVECTION |
& -deltaTLev(k)*( af(i,j+1) - af(i,j) ) |
|
./pkg/generic_advdiff/gad_advection.F |
720 |
GAD_ADVECTION |
& -deltaTLev(k)*( vTrans(i,j+1) - vTrans(i,j) ) |
|
./pkg/generic_advdiff/gad_advection.F |
725 |
GAD_ADVECTION |
& -deltaTLev(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_advection.F |
726 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
727 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
729 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(vTrans(i,j+1)-vTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
746 |
GAD_ADVECTION |
& -deltaTLev(k)*( af(i,j+1) - af(i,j) ) |
|
./pkg/generic_advdiff/gad_advection.F |
749 |
GAD_ADVECTION |
& -deltaTLev(k)*( vTrans(i,j+1) - vTrans(i,j) ) |
|
./pkg/generic_advdiff/gad_advection.F |
754 |
GAD_ADVECTION |
& -deltaTLev(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_advection.F |
755 |
GAD_ADVECTION |
& *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
756 |
GAD_ADVECTION |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
758 |
GAD_ADVECTION |
& -tracer(i,j,k,bi,bj)*(vTrans(i,j+1)-vTrans(i,j)) |
|
./pkg/generic_advdiff/gad_advection.F |
786 |
GAD_ADVECTION |
gTracer(i,j,k) = |
|
./pkg/generic_advdiff/gad_advection.F |
787 |
GAD_ADVECTION |
& ( localTij(i,j) - tracer(i,j,k,bi,bj) )/deltaTLev(k) |
|
./pkg/generic_advdiff/gad_advection.F |
795 |
GAD_ADVECTION |
locVol3d(i,j,k) = localVol(i,j) |
|
./pkg/generic_advdiff/gad_advection.F |
797 |
GAD_ADVECTION |
localT3d(i,j,k) = localTij(i,j) |
|
./pkg/generic_advdiff/gad_advection.F |
805 |
GAD_ADVECTION |
CALL DIAGNOSTICS_FILL( afx, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
809 |
GAD_ADVECTION |
CALL DIAGNOSTICS_FILL( afy, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
813 |
GAD_ADVECTION |
CALL LAYERS_FILL(afx,trIdentity,'AFX',k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_advection.F |
814 |
GAD_ADVECTION |
CALL LAYERS_FILL(afy,trIdentity,'AFY',k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_advection.F |
822 |
GAD_ADVECTION |
& .AND. k.LE.3 .AND. myIter.EQ.1+nIter0 |
|
./pkg/generic_advdiff/gad_advection.F |
826 |
GAD_ADVECTION |
& afx,afy, k, standardMessageUnit,bi,bj,myThid ) |
|
./pkg/generic_advdiff/gad_advection.F |
842 |
GAD_ADVECTION |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_advection.F |
843 |
GAD_ADVECTION |
IF (k.EQ.1) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
847 |
GAD_ADVECTION |
rTran3d(i,j,k) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_advection.F |
854 |
GAD_ADVECTION |
rTran3d(i,j,k) = wFld(i,j,k)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
855 |
GAD_ADVECTION |
& *deepFac2F(k)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
856 |
GAD_ADVECTION |
& *maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
871 |
GAD_ADVECTION |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_advection.F |
872 |
GAD_ADVECTION |
IF (k.EQ.1) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
876 |
GAD_ADVECTION |
rTran3d(i,j,k) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_advection.F |
883 |
GAD_ADVECTION |
rTran3d(i,j,k) = wFld(i,j,k)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
884 |
GAD_ADVECTION |
& *deepFac2F(k)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
885 |
GAD_ADVECTION |
& *maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
898 |
GAD_ADVECTION |
DO k=Nr,1,-1 |
|
./pkg/generic_advdiff/gad_advection.F |
900 |
GAD_ADVECTION |
kkey = (igadkey-1)*Nr + (Nr-k+1) |
|
./pkg/generic_advdiff/gad_advection.F |
904 |
GAD_ADVECTION |
kUp = 1+MOD(k+1,2) |
|
./pkg/generic_advdiff/gad_advection.F |
905 |
GAD_ADVECTION |
kDown= 1+MOD(k,2) |
|
./pkg/generic_advdiff/gad_advection.F |
907 |
GAD_ADVECTION |
IF (k.EQ.Nr) kp1Msk=0. |
|
./pkg/generic_advdiff/gad_advection.F |
917 |
GAD_ADVECTION |
IF ( k.EQ.1 .OR. |
|
./pkg/generic_advdiff/gad_advection.F |
918 |
GAD_ADVECTION |
& (useAIM .AND. trIdentity.EQ.GAD_SALINITY .AND. k.EQ.Nr) |
|
./pkg/generic_advdiff/gad_advection.F |
921 |
GAD_ADVECTION |
IF ( k.EQ.1 ) THEN |
|
./pkg/generic_advdiff/gad_advection.F |
939 |
GAD_ADVECTION |
rTrans(i,j) = wFld(i,j,k)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
940 |
GAD_ADVECTION |
& *deepFac2F(k)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
941 |
GAD_ADVECTION |
& *maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
956 |
GAD_ADVECTION |
CALL GAD_DST2U1_ADV_R( bi,bj,k, advectionScheme, |
|
./pkg/generic_advdiff/gad_advection.F |
957 |
GAD_ADVECTION |
I deltaTLev(k),rTrans,wFld(1-OLx,1-OLy,k),localT3d, |
|
./pkg/generic_advdiff/gad_advection.F |
960 |
GAD_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
961 |
GAD_ADVECTION |
I rTrans, wFld(1-OLx,1-OLy,k), localT3d, |
|
./pkg/generic_advdiff/gad_advection.F |
964 |
GAD_ADVECTION |
CALL GAD_DST3_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
965 |
GAD_ADVECTION |
I rTrans, wFld(1-OLx,1-OLy,k), localT3d, |
|
./pkg/generic_advdiff/gad_advection.F |
968 |
GAD_ADVECTION |
CALL GAD_DST3FL_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
969 |
GAD_ADVECTION |
I rTrans, wFld(1-OLx,1-OLy,k), localT3d, |
|
./pkg/generic_advdiff/gad_advection.F |
973 |
GAD_ADVECTION |
CALL GAD_OS7MP_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_advection.F |
974 |
GAD_ADVECTION |
I rTrans, wFld(1-OLx,1-OLy,k), localT3d, |
|
./pkg/generic_advdiff/gad_advection.F |
985 |
GAD_ADVECTION |
fVerT(i,j,kUp) = afr(i,j,k) |
|
./pkg/generic_advdiff/gad_biharm_r.F |
11 |
GAD_BIHARM_R |
I bi, bj, k, |
|
./pkg/generic_advdiff/gad_biharm_r.F |
35 |
GAD_BIHARM_R |
INTEGER bi, bj, k |
|
./pkg/generic_advdiff/gad_biharm_r.F |
55 |
GAD_BIHARM_R |
IF ( k.GE.2 ) THEN |
|
./pkg/generic_advdiff/gad_biharm_r.F |
59 |
GAD_BIHARM_R |
km = k+n-3 |
|
./pkg/generic_advdiff/gad_biharm_r.F |
60 |
GAD_BIHARM_R |
kl = k+n-2 |
|
./pkg/generic_advdiff/gad_biharm_r.F |
80 |
GAD_BIHARM_R |
kl = k+n-2 |
|
./pkg/generic_advdiff/gad_biharm_r.F |
81 |
GAD_BIHARM_R |
kp = k+n-1 |
|
./pkg/generic_advdiff/gad_biharm_r.F |
92 |
GAD_BIHARM_R |
tmpFac = rkSign*recip_drC(k)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_biharm_r.F |
96 |
GAD_BIHARM_R |
& + diffKr4(k)*( del2T(i,j,2)-del2T(i,j,1) ) |
|
./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)+tracer(i,j,km1))*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 |
42 |
GAD_C2_IMPL_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
60 |
GAD_C2_IMPL_R |
IF ( k.GT.1 .AND. k.LE.Nr ) THEN |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
66 |
GAD_C2_IMPL_R |
a3d(i,j,k) = a3d(i,j,k) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
67 |
GAD_C2_IMPL_R |
& - rCenter*deltaTarg(k) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
68 |
GAD_C2_IMPL_R |
& *recip_hFac(i,j,k)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
69 |
GAD_C2_IMPL_R |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
70 |
GAD_C2_IMPL_R |
b3d(i,j,k) = b3d(i,j,k) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
71 |
GAD_C2_IMPL_R |
& - rCenter*deltaTarg(k) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
72 |
GAD_C2_IMPL_R |
& *recip_hFac(i,j,k)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
73 |
GAD_C2_IMPL_R |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
74 |
GAD_C2_IMPL_R |
b3d(i,j,k-1) = b3d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
75 |
GAD_C2_IMPL_R |
& + rCenter*deltaTarg(k-1) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
76 |
GAD_C2_IMPL_R |
& *recip_hFac(i,j,k-1)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
77 |
GAD_C2_IMPL_R |
& *recip_deepFac2C(k-1)*recip_rhoFacC(k-1) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
78 |
GAD_C2_IMPL_R |
c3d(i,j,k-1) = c3d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
79 |
GAD_C2_IMPL_R |
& + rCenter*deltaTarg(k-1) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
80 |
GAD_C2_IMPL_R |
& *recip_hFac(i,j,k-1)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
81 |
GAD_C2_IMPL_R |
& *recip_deepFac2C(k-1)*recip_rhoFacC(k-1) |
|
./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/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)-tracer(i,j, k ))*maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
78 |
GAD_C4_ADV_R |
Rj = (tracer(i,j, k )-tracer(i,j,km1)) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
84 |
GAD_C4_ADV_R |
& rTrans(i,j)*( (tracer(i,j,k)+tracer(i,j,km1))*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 |
40 |
GAD_C4_ADV_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
75 |
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 |
40 |
GAD_C4_ADV_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
75 |
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 |
187 |
GAD_CALC_RHS |
localT(i,j)=TracerN(i,j,k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
188 |
GAD_CALC_RHS |
locABT(i,j)= TracAB(i,j,k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
194 |
GAD_CALC_RHS |
localT(i,j)=TracerN(i,j,k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
195 |
GAD_CALC_RHS |
locABT(i,j)=TracerN(i,j,k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
202 |
GAD_CALC_RHS |
CALL GAD_GRAD_X(bi,bj,k,xA,localT,fZon,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
203 |
GAD_CALC_RHS |
CALL GAD_GRAD_Y(bi,bj,k,yA,localT,fMer,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
204 |
GAD_CALC_RHS |
CALL GAD_DEL2(bi,bj,k,fZon,fMer,df4,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
217 |
GAD_CALC_RHS |
CALL GAD_C2_ADV_X( bi,bj,k, uTrans, locABT, af, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
220 |
GAD_CALC_RHS |
CALL GAD_DST2U1_ADV_X( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
221 |
GAD_CALC_RHS |
I deltaTLev(k), uTrans, uFld, locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
227 |
GAD_CALC_RHS |
maskLocW(i,j) = _maskW(i,j,k,bi,bj)*maskInW(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
229 |
GAD_CALC_RHS |
maskLocW(i,j) = _maskW(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
234 |
GAD_CALC_RHS |
CALL GAD_FLUXLIMIT_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
238 |
GAD_CALC_RHS |
CALL GAD_U3_ADV_X( bi,bj,k, uTrans, maskLocW, locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
241 |
GAD_CALC_RHS |
CALL GAD_C4_ADV_X( bi,bj,k, uTrans, maskLocW, locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
253 |
GAD_CALC_RHS |
CALL GAD_DST3_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
257 |
GAD_CALC_RHS |
CALL GAD_DST3FL_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
262 |
GAD_CALC_RHS |
CALL GAD_OS7MP_ADV_X( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
273 |
GAD_CALC_RHS |
CALL OBCS_U1_ADV_TRACER( .TRUE., trIdentity, bi, bj, k, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
274 |
GAD_CALC_RHS |
I maskW(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
287 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL( af, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
292 |
GAD_CALC_RHS |
& k, 1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
300 |
GAD_CALC_RHS |
CALL GAD_DIFF_X(bi,bj,k,xA,diffKh,localT,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
311 |
GAD_CALC_RHS |
CALL GAD_BIHARM_X(bi,bj,k,xA,df4,diffK4,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
318 |
GAD_CALC_RHS |
I trIdentity, bi, bj, k, iMin, iMax+1, jMin, jMax, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
327 |
GAD_CALC_RHS |
fZon(i,j) = fZon(i,j) + df(i,j)*rhoFacC(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
337 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL( df, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
341 |
GAD_CALC_RHS |
& k, 1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
357 |
GAD_CALC_RHS |
CALL GAD_C2_ADV_Y( bi,bj,k, vTrans, locABT, af, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
360 |
GAD_CALC_RHS |
CALL GAD_DST2U1_ADV_Y( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
361 |
GAD_CALC_RHS |
I deltaTLev(k), vTrans, vFld, locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
367 |
GAD_CALC_RHS |
maskLocS(i,j) = _maskS(i,j,k,bi,bj)*maskInS(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
369 |
GAD_CALC_RHS |
maskLocS(i,j) = _maskS(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
374 |
GAD_CALC_RHS |
CALL GAD_FLUXLIMIT_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
378 |
GAD_CALC_RHS |
CALL GAD_U3_ADV_Y( bi,bj,k, vTrans, maskLocS, locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
381 |
GAD_CALC_RHS |
CALL GAD_C4_ADV_Y( bi,bj,k, vTrans, maskLocS, locABT, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
393 |
GAD_CALC_RHS |
CALL GAD_DST3_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
397 |
GAD_CALC_RHS |
CALL GAD_DST3FL_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
402 |
GAD_CALC_RHS |
CALL GAD_OS7MP_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
413 |
GAD_CALC_RHS |
CALL OBCS_U1_ADV_TRACER( .FALSE., trIdentity, bi, bj, k, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
414 |
GAD_CALC_RHS |
I maskS(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
427 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL( af, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
432 |
GAD_CALC_RHS |
& k, 1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
440 |
GAD_CALC_RHS |
CALL GAD_DIFF_Y(bi,bj,k,yA,diffKh,localT,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
451 |
GAD_CALC_RHS |
CALL GAD_BIHARM_Y(bi,bj,k,yA,df4,diffK4,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
458 |
GAD_CALC_RHS |
I trIdentity, bi, bj, k, iMin, iMax, jMin, jMax+1, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
467 |
GAD_CALC_RHS |
fMer(i,j) = fMer(i,j) + df(i,j)*rhoFacC(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
477 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL( df, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
481 |
GAD_CALC_RHS |
& k, 1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
491 |
GAD_CALC_RHS |
IF (calcAdvection .AND. .NOT.implicitAdvection .AND. k.GE.2 .AND. |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
492 |
GAD_CALC_RHS |
& (.NOT.useAIM .OR. trIdentity.NE.GAD_SALINITY .OR. k.LT.Nr) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
495 |
GAD_CALC_RHS |
IF (calcAdvection .AND. .NOT.implicitAdvection .AND. k.GE.2) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
500 |
GAD_CALC_RHS |
CALL GAD_C2_ADV_R( bi,bj,k, rTrans, TracAB, af, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
503 |
GAD_CALC_RHS |
CALL GAD_DST2U1_ADV_R( bi,bj,k,vertAdvecScheme,deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
507 |
GAD_CALC_RHS |
CALL GAD_FLUXLIMIT_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
511 |
GAD_CALC_RHS |
CALL GAD_U3_ADV_R( bi,bj,k, rTrans, TracAB, af, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
513 |
GAD_CALC_RHS |
CALL GAD_C4_ADV_R( bi,bj,k, rTrans, TracAB, af, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
524 |
GAD_CALC_RHS |
CALL GAD_DST3_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
528 |
GAD_CALC_RHS |
CALL GAD_DST3FL_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
533 |
GAD_CALC_RHS |
CALL GAD_OS7MP_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
543 |
GAD_CALC_RHS |
CALL GAD_C2_ADV_R( bi,bj,k, rTrans, TracerN, af, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
546 |
GAD_CALC_RHS |
CALL GAD_DST2U1_ADV_R( bi,bj,k,vertAdvecScheme,deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
550 |
GAD_CALC_RHS |
CALL GAD_FLUXLIMIT_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
554 |
GAD_CALC_RHS |
CALL GAD_U3_ADV_R( bi,bj,k, rTrans, TracerN, af, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
556 |
GAD_CALC_RHS |
CALL GAD_C4_ADV_R( bi,bj,k, rTrans, TracerN, af, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
567 |
GAD_CALC_RHS |
CALL GAD_DST3_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
571 |
GAD_CALC_RHS |
CALL GAD_DST3FL_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
576 |
GAD_CALC_RHS |
CALL GAD_OS7MP_ADV_R( bi,bj,k, deltaTLev(k), |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
593 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL( af, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
596 |
GAD_CALC_RHS |
IF ( k.EQ.2 ) CALL DIAGNOSTICS_COUNT(diagName,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
599 |
GAD_CALC_RHS |
CALL LAYERS_FILL(af,trIdentity,'AFR',k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
616 |
GAD_CALC_RHS |
CALL GAD_DIFF_R(bi,bj,k,KappaR,TracerN,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
620 |
GAD_CALC_RHS |
CALL GAD_BIHARM_R( bi,bj,k, diffKr4, TracerN, df, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
627 |
GAD_CALC_RHS |
I trIdentity, bi, bj, k, iMin, iMax, jMin, jMax, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
647 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL( df, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
650 |
GAD_CALC_RHS |
CALL LAYERS_FILL(df,trIdentity,'DFR',k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
658 |
GAD_CALC_RHS |
IF ( trUseKPP .AND. k.GE.2 ) THEN |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
666 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
671 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
677 |
GAD_CALC_RHS |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
690 |
GAD_CALC_RHS |
& + df(i,j)*maskUp(i,j)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
697 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL( df, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
700 |
GAD_CALC_RHS |
IF ( k.EQ.2 ) CALL DIAGNOSTICS_COUNT(diagName,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
703 |
GAD_CALC_RHS |
CALL LAYERS_FILL(df,trIdentity,'DFR',k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
722 |
GAD_CALC_RHS |
outFlux=deltaTLev(k)* |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
723 |
GAD_CALC_RHS |
& _recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
724 |
GAD_CALC_RHS |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
745 |
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 |
749 |
GAD_CALC_RHS |
gTracer(i,j,k+1) = gTracer(i,j,k+1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
750 |
GAD_CALC_RHS |
& +_recip_hFacC(i,j,k+1,bi,bj)*recip_drF(k+1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
751 |
GAD_CALC_RHS |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k+1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
752 |
GAD_CALC_RHS |
& *recip_rhoFacC(k+1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
757 |
GAD_CALC_RHS |
gTracer(i,j,k+1) = gTracer(i,j,k+1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
758 |
GAD_CALC_RHS |
& +_recip_hFacC(i,j,k+1,bi,bj)*recip_drF(k+1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
759 |
GAD_CALC_RHS |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k+1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
760 |
GAD_CALC_RHS |
& *recip_rhoFacC(k+1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
775 |
GAD_CALC_RHS |
gTracer(i,j,k) = gTracer(i,j,k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
776 |
GAD_CALC_RHS |
& -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
777 |
GAD_CALC_RHS |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
792 |
GAD_CALC_RHS |
& .AND. k.EQ.2 .AND. myIter.EQ.1+nIter0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
796 |
GAD_CALC_RHS |
& fZon,fMer, k, standardMessageUnit,bi,bj,myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
89 |
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)-tracer(i,j,km1))*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) |
|
./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/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 |
100 |
GAD_DST2U1_IMPL_R |
& *recip_deepFac2C(k-1)*recip_rhoFacC(k-1) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
101 |
GAD_DST2U1_IMPL_R |
c3d(i,j,k-1) = c3d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
102 |
GAD_DST2U1_IMPL_R |
& + (rCenter-rUpwind)*deltaTarg(k-1) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
103 |
GAD_DST2U1_IMPL_R |
& *recip_hFac(i,j,k-1)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
104 |
GAD_DST2U1_IMPL_R |
& *recip_deepFac2C(k-1)*recip_rhoFacC(k-1) |
|
./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 |
47 |
GAD_DST2U1_IMPL_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
76 |
GAD_DST2U1_IMPL_R |
IF ( k.GT.1 .AND. k.LE.Nr ) THEN |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
79 |
GAD_DST2U1_IMPL_R |
deltaTcfl = deltaTarg(k) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
89 |
GAD_DST2U1_IMPL_R |
a3d(i,j,k) = a3d(i,j,k) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
90 |
GAD_DST2U1_IMPL_R |
& - (rCenter+rUpwind)*deltaTarg(k) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
91 |
GAD_DST2U1_IMPL_R |
& *recip_hFac(i,j,k)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
92 |
GAD_DST2U1_IMPL_R |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
93 |
GAD_DST2U1_IMPL_R |
b3d(i,j,k) = b3d(i,j,k) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
94 |
GAD_DST2U1_IMPL_R |
& - (rCenter-rUpwind)*deltaTarg(k) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
95 |
GAD_DST2U1_IMPL_R |
& *recip_hFac(i,j,k)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
96 |
GAD_DST2U1_IMPL_R |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
97 |
GAD_DST2U1_IMPL_R |
b3d(i,j,k-1) = b3d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
98 |
GAD_DST2U1_IMPL_R |
& + (rCenter+rUpwind)*deltaTarg(k-1) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
99 |
GAD_DST2U1_IMPL_R |
& *recip_hFac(i,j,k-1)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
110 |
GAD_DST3_ADV_R |
& *( tracer(i,j, k ) + psiM*Rj ) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
116 |
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 |
42 |
GAD_DST3_ADV_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
73 |
GAD_DST3_ADV_R |
km2=MAX(1,k-2) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
74 |
GAD_DST3_ADV_R |
km1=MAX(1,k-1) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
75 |
GAD_DST3_ADV_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
79 |
GAD_DST3_ADV_R |
Rjp=(tracer(i,j,k)-tracer(i,j,kp1)) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
81 |
GAD_DST3_ADV_R |
Rj =(tracer(i,j,km1)-tracer(i,j,k)) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
82 |
GAD_DST3_ADV_R |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
88 |
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 |
43 |
GAD_DST3_ADV_X |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
87 |
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 |
42 |
GAD_DST3_ADV_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
86 |
GAD_DST3_ADV_Y |
& *recip_dyC(i,j,bi,bj)*recip_deepFacC(k) ) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
115 |
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 |
73 |
GAD_DST3FL_ADV_R |
Rjp=(tracer(i,j,k)-tracer(i,j,kp1)) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
75 |
GAD_DST3FL_ADV_R |
Rj =(tracer(i,j,km1)-tracer(i,j,k)) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
76 |
GAD_DST3FL_ADV_R |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
81 |
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 |
63 |
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, |
|
./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/generic_advdiff/gad_dst3fl_adv_y.F |
25 |
GAD_DST3FL_ADV_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
59 |
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 |
103 |
GAD_DST3FL_IMPL_R |
& *recip_rA(i,j,bi,bj)*recip_drC(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
104 |
GAD_DST3FL_IMPL_R |
& *recip_deepFac2F(k)*recip_rhoFacF(k) |
|
./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 |
110 |
GAD_DST3FL_IMPL_R |
Rj =(tFld(i,j,k) -tFld(i,j,k-1)) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
112 |
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 |
114 |
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 |
152 |
GAD_DST3FL_IMPL_R |
a5d(i,j,k) = a5d(i,j,k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
154 |
GAD_DST3FL_IMPL_R |
& *deltaTarg(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
155 |
GAD_DST3FL_IMPL_R |
& *recip_hFac(i,j,k)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
156 |
GAD_DST3FL_IMPL_R |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
157 |
GAD_DST3FL_IMPL_R |
b5d(i,j,k) = b5d(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_hFac(i,j,k)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
161 |
GAD_DST3FL_IMPL_R |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
162 |
GAD_DST3FL_IMPL_R |
c5d(i,j,k) = c5d(i,j,k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
164 |
GAD_DST3FL_IMPL_R |
& *deltaTarg(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
165 |
GAD_DST3FL_IMPL_R |
& *recip_hFac(i,j,k)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
166 |
GAD_DST3FL_IMPL_R |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
167 |
GAD_DST3FL_IMPL_R |
d5d(i,j,k) = d5d(i,j,k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
169 |
GAD_DST3FL_IMPL_R |
& *deltaTarg(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
170 |
GAD_DST3FL_IMPL_R |
& *recip_hFac(i,j,k)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
171 |
GAD_DST3FL_IMPL_R |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
172 |
GAD_DST3FL_IMPL_R |
b5d(i,j,k-1) = b5d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
174 |
GAD_DST3FL_IMPL_R |
& *deltaTarg(k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
175 |
GAD_DST3FL_IMPL_R |
& *recip_hFac(i,j,k-1)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
176 |
GAD_DST3FL_IMPL_R |
& *recip_deepFac2C(k-1)*recip_rhoFacC(k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
177 |
GAD_DST3FL_IMPL_R |
c5d(i,j,k-1) = c5d(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_hFac(i,j,k-1)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
181 |
GAD_DST3FL_IMPL_R |
& *recip_deepFac2C(k-1)*recip_rhoFacC(k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
182 |
GAD_DST3FL_IMPL_R |
d5d(i,j,k-1) = d5d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
184 |
GAD_DST3FL_IMPL_R |
& *deltaTarg(k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
185 |
GAD_DST3FL_IMPL_R |
& *recip_hFac(i,j,k-1)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
186 |
GAD_DST3FL_IMPL_R |
& *recip_deepFac2C(k-1)*recip_rhoFacC(k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
187 |
GAD_DST3FL_IMPL_R |
e5d(i,j,k-1) = e5d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
189 |
GAD_DST3FL_IMPL_R |
& *deltaTarg(k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
190 |
GAD_DST3FL_IMPL_R |
& *recip_hFac(i,j,k-1)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
191 |
GAD_DST3FL_IMPL_R |
& *recip_deepFac2C(k-1)*recip_rhoFacC(k-1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
50 |
GAD_DST3FL_IMPL_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
84 |
GAD_DST3FL_IMPL_R |
IF ( k.GT.1 .AND. k.LE.Nr ) THEN |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
86 |
GAD_DST3FL_IMPL_R |
km2=MAX(1,k-2) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
87 |
GAD_DST3FL_IMPL_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
90 |
GAD_DST3FL_IMPL_R |
IF ( k.LE.2 ) maskM2 = 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
91 |
GAD_DST3FL_IMPL_R |
IF ( k.GE.Nr) maskP1 = 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
94 |
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 |
114 |
GAD_FLUXLIMIT_IMPL_R |
a3d(i,j,k) = a3d(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_hFac(i,j,k)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
117 |
GAD_FLUXLIMIT_IMPL_R |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
118 |
GAD_FLUXLIMIT_IMPL_R |
b3d(i,j,k) = b3d(i,j,k) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
119 |
GAD_FLUXLIMIT_IMPL_R |
& - (rCenter-rUpwind)*deltaTarg(k) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
120 |
GAD_FLUXLIMIT_IMPL_R |
& *recip_hFac(i,j,k)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
121 |
GAD_FLUXLIMIT_IMPL_R |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
122 |
GAD_FLUXLIMIT_IMPL_R |
b3d(i,j,k-1) = b3d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
123 |
GAD_FLUXLIMIT_IMPL_R |
& + (rCenter+rUpwind)*deltaTarg(k-1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
124 |
GAD_FLUXLIMIT_IMPL_R |
& *recip_hFac(i,j,k-1)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
125 |
GAD_FLUXLIMIT_IMPL_R |
& *recip_deepFac2C(k-1)*recip_rhoFacC(k-1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
126 |
GAD_FLUXLIMIT_IMPL_R |
c3d(i,j,k-1) = c3d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
127 |
GAD_FLUXLIMIT_IMPL_R |
& + (rCenter-rUpwind)*deltaTarg(k-1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
128 |
GAD_FLUXLIMIT_IMPL_R |
& *recip_hFac(i,j,k-1)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
129 |
GAD_FLUXLIMIT_IMPL_R |
& *recip_deepFac2C(k-1)*recip_rhoFacC(k-1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
45 |
GAD_FLUXLIMIT_IMPL_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
77 |
GAD_FLUXLIMIT_IMPL_R |
km2=MAX(1,k-2) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
78 |
GAD_FLUXLIMIT_IMPL_R |
km1=MAX(1,k-1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
79 |
GAD_FLUXLIMIT_IMPL_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
82 |
GAD_FLUXLIMIT_IMPL_R |
IF ( k.GT.1 .AND. k.LE.Nr ) THEN |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
85 |
GAD_FLUXLIMIT_IMPL_R |
deltaTcfl = deltaTarg(k) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
88 |
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 |
89 |
GAD_FLUXLIMIT_IMPL_R |
& *recip_deepFac2F(k)*recip_rhoFacF(k) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
90 |
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 |
91 |
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 |
108 |
GAD_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_implicit_r.F |
111 |
GAD_IMPLICIT_R |
a5d(i,j,k) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
112 |
GAD_IMPLICIT_R |
b5d(i,j,k) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
113 |
GAD_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
114 |
GAD_IMPLICIT_R |
d5d(i,j,k) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
115 |
GAD_IMPLICIT_R |
e5d(i,j,k) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
125 |
GAD_IMPLICIT_R |
DO k=2,Nr |
|
./pkg/generic_advdiff/gad_implicit_r.F |
128 |
GAD_IMPLICIT_R |
b5d(i,j,k) = -deltaTLev(k)*maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
129 |
GAD_IMPLICIT_R |
& *recip_hFac(i,j,k)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
130 |
GAD_IMPLICIT_R |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
131 |
GAD_IMPLICIT_R |
& *kappaRX(i,j, k )*recip_drC( k ) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
132 |
GAD_IMPLICIT_R |
& *deepFac2F( k )*rhoFacF( k ) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
137 |
GAD_IMPLICIT_R |
DO k=1,Nr-1 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
140 |
GAD_IMPLICIT_R |
d5d(i,j,k) = -deltaTLev(k)*maskC(i,j,k+1,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
141 |
GAD_IMPLICIT_R |
& *recip_hFac(i,j,k)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
142 |
GAD_IMPLICIT_R |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
143 |
GAD_IMPLICIT_R |
& *kappaRX(i,j,k+1)*recip_drC(k+1) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
144 |
GAD_IMPLICIT_R |
& *deepFac2F(k+1)*rhoFacF(k+1) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
149 |
GAD_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_implicit_r.F |
152 |
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=1,Nr |
|
./pkg/generic_advdiff/gad_implicit_r.F |
171 |
GAD_IMPLICIT_R |
localTr(i,j,k) = gTracer(i,j,k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
176 |
GAD_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_implicit_r.F |
179 |
GAD_IMPLICIT_R |
localTr(i,j,k) = tracer(i,j,k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
186 |
GAD_IMPLICIT_R |
DO k=Nr,1,-1 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
189 |
GAD_IMPLICIT_R |
IF (k.EQ.1) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
198 |
GAD_IMPLICIT_R |
rTrans(i,j) = wFld(i,j,k)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
199 |
GAD_IMPLICIT_R |
& *deepFac2F(k)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
200 |
GAD_IMPLICIT_R |
& *maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
207 |
GAD_IMPLICIT_R |
IF ( k.GE.2 .AND. |
|
./pkg/generic_advdiff/gad_implicit_r.F |
208 |
GAD_IMPLICIT_R |
& (.NOT.useAIM .OR.tracerIdentity.NE.GAD_SALINITY .OR.k.LT.Nr) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
211 |
GAD_IMPLICIT_R |
IF ( k.GE.2 ) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
216 |
GAD_IMPLICIT_R |
CALL GAD_C2_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
223 |
GAD_IMPLICIT_R |
CALL GAD_DST2U1_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
230 |
GAD_IMPLICIT_R |
CALL GAD_FLUXLIMIT_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
238 |
GAD_IMPLICIT_R |
CALL GAD_U3C4_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
245 |
GAD_IMPLICIT_R |
CALL GAD_DST3FL_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
305 |
GAD_IMPLICIT_R |
DO k= Nr,1,-1 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
307 |
GAD_IMPLICIT_R |
IF ( implicitDiffusion .AND. k.GE.2 ) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
314 |
GAD_IMPLICIT_R |
& -rA(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
316 |
GAD_IMPLICIT_R |
& * kappaRX(i,j,k)*recip_drC(k)*rkSign |
|
./pkg/generic_advdiff/gad_implicit_r.F |
317 |
GAD_IMPLICIT_R |
& * (gTracer(i,j,k) - gTracer(i,j,k-1)) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
318 |
GAD_IMPLICIT_R |
& * maskC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
319 |
GAD_IMPLICIT_R |
& * maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
332 |
GAD_IMPLICIT_R |
IF ( diagDif .AND. k.GE.2 ) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
334 |
GAD_IMPLICIT_R |
CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
335 |
GAD_IMPLICIT_R |
IF ( k.EQ.2 ) CALL DIAGNOSTICS_COUNT(diagName,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
339 |
GAD_IMPLICIT_R |
& k, 1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
357 |
GAD_IMPLICIT_R |
km1=MAX(1,k-1) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
358 |
GAD_IMPLICIT_R |
km2=MAX(1,k-2) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
359 |
GAD_IMPLICIT_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
360 |
GAD_IMPLICIT_R |
kp2=MIN(Nr,k+2) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
365 |
GAD_IMPLICIT_R |
div(i,j) = gTracer(i,j,k)*( c5d(i,j,k) - 1. _d 0 ) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
366 |
GAD_IMPLICIT_R |
& + gTracer(i,j,km1)*b5d(i,j,k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
367 |
GAD_IMPLICIT_R |
& + gTracer(i,j,kp1)*d5d(i,j,k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
374 |
GAD_IMPLICIT_R |
& + gTracer(i,j,km2)*a5d(i,j,k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
375 |
GAD_IMPLICIT_R |
& + gTracer(i,j,kp2)*e5d(i,j,k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
385 |
GAD_IMPLICIT_R |
div(i,j) = div(i,j)*h0FacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
393 |
GAD_IMPLICIT_R |
& _hFacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
394 |
GAD_IMPLICIT_R |
& + dBHybSigF(k)*dEtaHdt(i,j,bi,bj)*deltaTFreeSurf |
|
./pkg/generic_advdiff/gad_implicit_r.F |
401 |
GAD_IMPLICIT_R |
IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
402 |
GAD_IMPLICIT_R |
div(i,j) = div(i,j)*hFac_surfC(i,j,bi,bj)*drF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
404 |
GAD_IMPLICIT_R |
div(i,j) = div(i,j)*_hFacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
416 |
GAD_IMPLICIT_R |
div(i,j) = div(i,j)*_hFacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
427 |
GAD_IMPLICIT_R |
& *deepFac2C(k)*rhoFacC(k)/deltaTLev(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
433 |
GAD_IMPLICIT_R |
CALL DIAGNOSTICS_FILL(af,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
437 |
GAD_IMPLICIT_R |
& k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
80 |
GAD_IMPLICIT_R |
INTEGER i,j,k |
|
./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 |
161 |
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 |
167 |
GAD_SOM_ADV_R |
& ( sm_o(i,j, k ) + alp1*sm_z(i,j, k ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
168 |
GAD_SOM_ADV_R |
& + alp1*(alp1-alp(i,j,kUp))*sm_zz(i,j, k ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
171 |
GAD_SOM_ADV_R |
& ( sm_z(i,j, k ) + three*alp1*sm_zz(i,j, k ) ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
172 |
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 |
174 |
GAD_SOM_ADV_R |
& ( sm_x(i,j, k ) + alp1*sm_xz(i,j, k ) ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
176 |
GAD_SOM_ADV_R |
& ( sm_y(i,j, k ) + alp1*sm_yz(i,j, k ) ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
177 |
GAD_SOM_ADV_R |
fp_xz(i,j,kUp) = alpq *sm_xz(i,j, k ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
178 |
GAD_SOM_ADV_R |
fp_yz(i,j,kUp) = alpq *sm_yz(i,j, k ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
179 |
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 |
180 |
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 |
181 |
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 |
184 |
GAD_SOM_ADV_R |
IF ( k.EQ.1 ) THEN |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
214 |
GAD_SOM_ADV_R |
km1 = k-1 |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
247 |
GAD_SOM_ADV_R |
IF ( .NOT.uniformFreeSurfLev .AND. k.NE.1 .AND. |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
254 |
GAD_SOM_ADV_R |
km1 = k |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
258 |
GAD_SOM_ADV_R |
IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
288 |
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 |
289 |
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 |
290 |
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 |
291 |
GAD_SOM_ADV_R |
sm_zz(i,j,k) = alf1*alf1q*sm_zz(i,j,k) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
292 |
GAD_SOM_ADV_R |
sm_xz(i,j,k) = alf1q*sm_xz(i,j,k) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
293 |
GAD_SOM_ADV_R |
sm_yz(i,j,k) = alf1q*sm_yz(i,j,k) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
294 |
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 |
295 |
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 |
296 |
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 |
297 |
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 |
298 |
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 |
313 |
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 |
314 |
GAD_SOM_ADV_R |
alfp = fp_v(i,j,kDw)/sm_v(i,j,k) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
315 |
GAD_SOM_ADV_R |
alfn = fn_v(i,j,kUp)/sm_v(i,j,k) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
320 |
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 |
321 |
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 |
322 |
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 |
324 |
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 |
326 |
GAD_SOM_ADV_R |
& + twoRL*alfp*alfn*sm_o(i,j,k) + (alp1-alfp)*locTp |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
329 |
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 |
331 |
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 |
334 |
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 |
336 |
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 |
339 |
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 |
342 |
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 |
343 |
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 |
344 |
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 |
345 |
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 |
346 |
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 |
347 |
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 |
55 |
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 |
52 |
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 |
52 |
GAD_SOM_ADV_Y |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_som_advect.F |
190 |
GAD_SOM_ADVECT |
DO k=1,4 |
|
./pkg/generic_advdiff/gad_som_advect.F |
193 |
GAD_SOM_ADVECT |
smCorners(i,j,k,n) = 0. |
|
./pkg/generic_advdiff/gad_som_advect.F |
241 |
GAD_SOM_ADVECT |
DO k=1,Nr |
|
./pkg/generic_advdiff/gad_som_advect.F |
246 |
GAD_SOM_ADVECT |
xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
247 |
GAD_SOM_ADVECT |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
248 |
GAD_SOM_ADVECT |
yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
249 |
GAD_SOM_ADVECT |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
256 |
GAD_SOM_ADVECT |
uTrans(i,j) = uFld(i,j,k)*xA(i,j)*rhoFacC(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
257 |
GAD_SOM_ADVECT |
vTrans(i,j) = vFld(i,j,k)*yA(i,j)*rhoFacC(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
264 |
GAD_SOM_ADVECT |
smVol(i,j,k) = rA(i,j,bi,bj)*deepFac2C(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
265 |
GAD_SOM_ADVECT |
& *drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
266 |
GAD_SOM_ADVECT |
& *rhoFacC(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
267 |
GAD_SOM_ADVECT |
smTr0(i,j,k) = tracer(i,j,k,bi,bj)*smVol(i,j,k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
269 |
GAD_SOM_ADVECT |
smVol(i,j,k) = smVol(i,j,k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
270 |
GAD_SOM_ADVECT |
& + (1. _d 0 - maskC(i,j,k,bi,bj)) |
|
./pkg/generic_advdiff/gad_som_advect.F |
319 |
GAD_SOM_ADVECT |
I ipass, k, Nr, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
326 |
GAD_SOM_ADVECT |
I bi,bj,k, limiter, |
|
./pkg/generic_advdiff/gad_som_advect.F |
329 |
GAD_SOM_ADVECT |
I deltaTLev(k), uTrans, |
|
./pkg/generic_advdiff/gad_som_advect.F |
331 |
GAD_SOM_ADVECT |
U smVol(1-OLx,1-OLy,k), |
|
./pkg/generic_advdiff/gad_som_advect.F |
332 |
GAD_SOM_ADVECT |
U smTr0(1-OLx,1-OLy,k), |
|
./pkg/generic_advdiff/gad_som_advect.F |
333 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,1), |
|
./pkg/generic_advdiff/gad_som_advect.F |
334 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,2), |
|
./pkg/generic_advdiff/gad_som_advect.F |
335 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,3), |
|
./pkg/generic_advdiff/gad_som_advect.F |
336 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,4), |
|
./pkg/generic_advdiff/gad_som_advect.F |
337 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,5), |
|
./pkg/generic_advdiff/gad_som_advect.F |
338 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,6), |
|
./pkg/generic_advdiff/gad_som_advect.F |
339 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,7), |
|
./pkg/generic_advdiff/gad_som_advect.F |
340 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,8), |
|
./pkg/generic_advdiff/gad_som_advect.F |
341 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,9), |
|
./pkg/generic_advdiff/gad_som_advect.F |
366 |
GAD_SOM_ADVECT |
I iPass, k, Nr, bi, bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
373 |
GAD_SOM_ADVECT |
I bi,bj,k, limiter, |
|
./pkg/generic_advdiff/gad_som_advect.F |
376 |
GAD_SOM_ADVECT |
I deltaTLev(k), vTrans, |
|
./pkg/generic_advdiff/gad_som_advect.F |
378 |
GAD_SOM_ADVECT |
U smVol(1-OLx,1-OLy,k), |
|
./pkg/generic_advdiff/gad_som_advect.F |
379 |
GAD_SOM_ADVECT |
U smTr0(1-OLx,1-OLy,k), |
|
./pkg/generic_advdiff/gad_som_advect.F |
380 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,1), |
|
./pkg/generic_advdiff/gad_som_advect.F |
381 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,2), |
|
./pkg/generic_advdiff/gad_som_advect.F |
382 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,3), |
|
./pkg/generic_advdiff/gad_som_advect.F |
383 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,4), |
|
./pkg/generic_advdiff/gad_som_advect.F |
384 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,5), |
|
./pkg/generic_advdiff/gad_som_advect.F |
385 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,6), |
|
./pkg/generic_advdiff/gad_som_advect.F |
386 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,7), |
|
./pkg/generic_advdiff/gad_som_advect.F |
387 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,8), |
|
./pkg/generic_advdiff/gad_som_advect.F |
388 |
GAD_SOM_ADVECT |
U smTr(1-OLx,1-OLy,k,bi,bj,9), |
|
./pkg/generic_advdiff/gad_som_advect.F |
409 |
GAD_SOM_ADVECT |
gTracer(i,j,k) = |
|
./pkg/generic_advdiff/gad_som_advect.F |
410 |
GAD_SOM_ADVECT |
& ( smTr0(i,j,k) - tracer(i,j,k,bi,bj)*smVol(i,j,k) ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
411 |
GAD_SOM_ADVECT |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
412 |
GAD_SOM_ADVECT |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
413 |
GAD_SOM_ADVECT |
& *recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
414 |
GAD_SOM_ADVECT |
& /deltaTLev(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
422 |
GAD_SOM_ADVECT |
CALL DIAGNOSTICS_FILL(afx,diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
426 |
GAD_SOM_ADVECT |
CALL DIAGNOSTICS_FILL(afy,diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
430 |
GAD_SOM_ADVECT |
CALL LAYERS_FILL(afx,tracerIdentity,'AFX',k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_som_advect.F |
431 |
GAD_SOM_ADVECT |
CALL LAYERS_FILL(afy,tracerIdentity,'AFY',k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_som_advect.F |
439 |
GAD_SOM_ADVECT |
& .AND. k.LE.3 .AND. myIter.EQ.1+nIter0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
443 |
GAD_SOM_ADVECT |
& afx,afy, k, standardMessageUnit,bi,bj,myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
472 |
GAD_SOM_ADVECT |
DO k=Nr,1,-1 |
|
./pkg/generic_advdiff/gad_som_advect.F |
475 |
GAD_SOM_ADVECT |
kUp = 1+MOD(Nr-k,2) |
|
./pkg/generic_advdiff/gad_som_advect.F |
476 |
GAD_SOM_ADVECT |
kDown= 1+MOD(Nr-k+1,2) |
|
./pkg/generic_advdiff/gad_som_advect.F |
477 |
GAD_SOM_ADVECT |
IF (k.EQ.Nr) THEN |
|
./pkg/generic_advdiff/gad_som_advect.F |
518 |
GAD_SOM_ADVECT |
IF ( noFlowAcrossSurf .AND. k.EQ.1 ) THEN |
|
./pkg/generic_advdiff/gad_som_advect.F |
531 |
GAD_SOM_ADVECT |
rTrans(i,j) = wFld(i,j,k)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
532 |
GAD_SOM_ADVECT |
& *deepFac2F(k)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
533 |
GAD_SOM_ADVECT |
& *maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
540 |
GAD_SOM_ADVECT |
km1= MAX(k-1,1) |
|
./pkg/generic_advdiff/gad_som_advect.F |
543 |
GAD_SOM_ADVECT |
rTrans(i,j) = wFld(i,j,k)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
544 |
GAD_SOM_ADVECT |
& *deepFac2F(k)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
545 |
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 |
556 |
GAD_SOM_ADVECT |
I bi,bj,k, kUp, kDown, |
|
./pkg/generic_advdiff/gad_som_advect.F |
557 |
GAD_SOM_ADVECT |
I deltaTLev(k), rTrans, maskUp, |
|
./pkg/generic_advdiff/gad_som_advect.F |
592 |
GAD_SOM_ADVECT |
gTracer(i,j,k) = |
|
./pkg/generic_advdiff/gad_som_advect.F |
593 |
GAD_SOM_ADVECT |
& ( smTr0(i,j,k) - tracer(i,j,k,bi,bj)*smVol(i,j,k) ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
594 |
GAD_SOM_ADVECT |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
595 |
GAD_SOM_ADVECT |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
596 |
GAD_SOM_ADVECT |
& *recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
597 |
GAD_SOM_ADVECT |
& /deltaTLev(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
605 |
GAD_SOM_ADVECT |
& diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
610 |
GAD_SOM_ADVECT |
& k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_som_advect.F |
94 |
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)-tracer(i,j, k ))*maskC(i,j,kp1,bi,bj) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
72 |
GAD_U3_ADV_R |
Rj = (tracer(i,j, k )-tracer(i,j,km1)) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
77 |
GAD_U3_ADV_R |
& rTrans(i,j)*( (tracer(i,j,k)+tracer(i,j,km1))*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 |
39 |
GAD_U3_ADV_X |
INTEGER bi,bj,k |
|
./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 |
39 |
GAD_U3_ADV_Y |
INTEGER bi,bj,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 |
112 |
GAD_U3C4_IMPL_R |
& *recip_rA(i,j,bi,bj)*recip_drC(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
113 |
GAD_U3C4_IMPL_R |
& *recip_deepFac2F(k)*recip_rhoFacF(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
144 |
GAD_U3C4_IMPL_R |
& *recip_rA(i,j,bi,bj)*recip_drC(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
145 |
GAD_U3C4_IMPL_R |
& *recip_deepFac2F(k)*recip_rhoFacF(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
157 |
GAD_U3C4_IMPL_R |
a5d(i,j,k) = a5d(i,j,k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
159 |
GAD_U3C4_IMPL_R |
& *deltaTarg(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
160 |
GAD_U3C4_IMPL_R |
& *recip_hFac(i,j,k)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
161 |
GAD_U3C4_IMPL_R |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
162 |
GAD_U3C4_IMPL_R |
b5d(i,j,k) = b5d(i,j,k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
164 |
GAD_U3C4_IMPL_R |
& *deltaTarg(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
165 |
GAD_U3C4_IMPL_R |
& *recip_hFac(i,j,k)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
166 |
GAD_U3C4_IMPL_R |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
167 |
GAD_U3C4_IMPL_R |
c5d(i,j,k) = c5d(i,j,k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
169 |
GAD_U3C4_IMPL_R |
& *deltaTarg(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
170 |
GAD_U3C4_IMPL_R |
& *recip_hFac(i,j,k)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
171 |
GAD_U3C4_IMPL_R |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
172 |
GAD_U3C4_IMPL_R |
d5d(i,j,k) = d5d(i,j,k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
174 |
GAD_U3C4_IMPL_R |
& *deltaTarg(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
175 |
GAD_U3C4_IMPL_R |
& *recip_hFac(i,j,k)*recip_drF(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
176 |
GAD_U3C4_IMPL_R |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
177 |
GAD_U3C4_IMPL_R |
b5d(i,j,k-1) = b5d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
179 |
GAD_U3C4_IMPL_R |
& *deltaTarg(k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
180 |
GAD_U3C4_IMPL_R |
& *recip_hFac(i,j,k-1)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
181 |
GAD_U3C4_IMPL_R |
& *recip_deepFac2C(k-1)*recip_rhoFacC(k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
182 |
GAD_U3C4_IMPL_R |
c5d(i,j,k-1) = c5d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
184 |
GAD_U3C4_IMPL_R |
& *deltaTarg(k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
185 |
GAD_U3C4_IMPL_R |
& *recip_hFac(i,j,k-1)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
186 |
GAD_U3C4_IMPL_R |
& *recip_deepFac2C(k-1)*recip_rhoFacC(k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
187 |
GAD_U3C4_IMPL_R |
d5d(i,j,k-1) = d5d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
189 |
GAD_U3C4_IMPL_R |
& *deltaTarg(k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
190 |
GAD_U3C4_IMPL_R |
& *recip_hFac(i,j,k-1)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
191 |
GAD_U3C4_IMPL_R |
& *recip_deepFac2C(k-1)*recip_rhoFacC(k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
192 |
GAD_U3C4_IMPL_R |
e5d(i,j,k-1) = e5d(i,j,k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
194 |
GAD_U3C4_IMPL_R |
& *deltaTarg(k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
195 |
GAD_U3C4_IMPL_R |
& *recip_hFac(i,j,k-1)*recip_drF(k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
196 |
GAD_U3C4_IMPL_R |
& *recip_deepFac2C(k-1)*recip_rhoFacC(k-1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
50 |
GAD_U3C4_IMPL_R |
INTEGER bi,bj,k |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
86 |
GAD_U3C4_IMPL_R |
IF ( k.GT.1 .AND. k.LE.Nr ) THEN |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
88 |
GAD_U3C4_IMPL_R |
km2=MAX(1,k-2) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
89 |
GAD_U3C4_IMPL_R |
kp1=MIN(Nr,k+1) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
92 |
GAD_U3C4_IMPL_R |
IF ( k.LE.2 ) maskM2 = 0. _d 0 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
93 |
GAD_U3C4_IMPL_R |
IF ( k.GE.Nr) maskP1 = 0. _d 0 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
95 |
GAD_U3C4_IMPL_R |
& .AND. k.GT.2 .AND. k.LT.Nr |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
98 |
GAD_U3C4_IMPL_R |
deltaTcfl = deltaTarg(k) |
|
./pkg/ggl90/ggl90_calc.F |
157 |
GGL90_CALC |
& MIN(.5 _d 0,_hFacC(i,j,k ,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
162 |
GGL90_CALC |
hFacI(i,j,k) = hFac |
|
./pkg/ggl90/ggl90_calc.F |
169 |
GGL90_CALC |
DO k = 1, Nr |
|
./pkg/ggl90/ggl90_calc.F |
172 |
GGL90_CALC |
rMixingLength(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
173 |
GGL90_CALC |
mxLength_Dn(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
174 |
GGL90_CALC |
GGL90visctmp(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
175 |
GGL90_CALC |
KappaE(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
176 |
GGL90_CALC |
TKEPrandtlNumber(i,j,k) = 1. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
177 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = GGL90mixingLengthMin |
|
./pkg/ggl90/ggl90_calc.F |
178 |
GGL90_CALC |
GGL90visctmp(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
180 |
GGL90_CALC |
a3d(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
181 |
GGL90_CALC |
b3d(i,j,k) = 1. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
182 |
GGL90_CALC |
c3d(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
184 |
GGL90_CALC |
Nsquare(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
185 |
GGL90_CALC |
SQRTTKE(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
212 |
GGL90_CALC |
DO k = 2, Nr |
|
./pkg/ggl90/ggl90_calc.F |
215 |
GGL90_CALC |
SQRTTKE(i,j,k)=SQRT( GGL90TKE(i,j,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
218 |
GGL90_CALC |
Nsquare(i,j,k) = gravity*gravitySign*recip_rhoConst |
|
./pkg/ggl90/ggl90_calc.F |
219 |
GGL90_CALC |
& * sigmaR(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
223 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = SQRTTWO * |
|
./pkg/ggl90/ggl90_calc.F |
224 |
GGL90_CALC |
& SQRTTKE(i,j,k)/SQRT( MAX(Nsquare(i,j,k),GGL90eps) ) |
|
./pkg/ggl90/ggl90_calc.F |
242 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
246 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
252 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
255 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MAX(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
257 |
GGL90_CALC |
rMixingLength(i,j,k) = 1. _d 0 / GGL90mixingLength(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
264 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
267 |
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 |
269 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
275 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
278 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MAX(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
280 |
GGL90_CALC |
rMixingLength(i,j,k) = 1. _d 0 / GGL90mixingLength(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
287 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
290 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
291 |
GGL90_CALC |
& GGL90mixingLength(i,j,k-1)+drF(k-1)) |
|
./pkg/ggl90/ggl90_calc.F |
301 |
GGL90_CALC |
DO k=Nr-1,2,-1 |
|
./pkg/ggl90/ggl90_calc.F |
304 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
305 |
GGL90_CALC |
& GGL90mixingLength(i,j,k+1)+drF(k)) |
|
./pkg/ggl90/ggl90_calc.F |
310 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
313 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MAX(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
315 |
GGL90_CALC |
rMixingLength(i,j,k) = 1. _d 0 / GGL90mixingLength(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
322 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
325 |
GGL90_CALC |
mxLength_Dn(i,j,k) = MIN(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
326 |
GGL90_CALC |
& mxLength_Dn(i,j,k-1)+drF(k-1)) |
|
./pkg/ggl90/ggl90_calc.F |
336 |
GGL90_CALC |
DO k=Nr-1,2,-1 |
|
./pkg/ggl90/ggl90_calc.F |
339 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
340 |
GGL90_CALC |
& GGL90mixingLength(i,j,k+1)+drF(k)) |
|
./pkg/ggl90/ggl90_calc.F |
345 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
348 |
GGL90_CALC |
GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k), |
|
./pkg/ggl90/ggl90_calc.F |
349 |
GGL90_CALC |
& mxLength_Dn(i,j,k)) |
|
./pkg/ggl90/ggl90_calc.F |
350 |
GGL90_CALC |
tmpmlx = SQRT( GGL90mixingLength(i,j,k)*mxLength_Dn(i,j,k) ) |
|
./pkg/ggl90/ggl90_calc.F |
352 |
GGL90_CALC |
rMixingLength(i,j,k) = 1. _d 0 / tmpmlx |
|
./pkg/ggl90/ggl90_calc.F |
363 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
364 |
GGL90_CALC |
km1 = k-1 |
|
./pkg/ggl90/ggl90_calc.F |
373 |
GGL90_CALC |
xA(i,j) = _dyG(i,j,bi,bj)*drC(k)* |
|
./pkg/ggl90/ggl90_calc.F |
374 |
GGL90_CALC |
& (min(.5 _d 0,_hFacW(i,j,k-1,bi,bj) ) + |
|
./pkg/ggl90/ggl90_calc.F |
375 |
GGL90_CALC |
& min(.5 _d 0,_hFacW(i,j,k ,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
376 |
GGL90_CALC |
yA(i,j) = _dxG(i,j,bi,bj)*drC(k)* |
|
./pkg/ggl90/ggl90_calc.F |
377 |
GGL90_CALC |
& (min(.5 _d 0,_hFacS(i,j,k-1,bi,bj) ) + |
|
./pkg/ggl90/ggl90_calc.F |
378 |
GGL90_CALC |
& min(.5 _d 0,_hFacS(i,j,k ,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
388 |
GGL90_CALC |
& *(GGL90TKE(i,j,k,bi,bj)-GGL90TKE(i-1,j,k,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
402 |
GGL90_CALC |
& *(GGL90TKE(i,j,k,bi,bj)-GGL90TKE(i,j-1,k,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
411 |
GGL90_CALC |
gTKE(i,j) = -recip_drC(k)*recip_rA(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
412 |
GGL90_CALC |
& *recip_hFacI(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
424 |
GGL90_CALC |
KappaM(i,j) = GGL90ck*GGL90mixingLength(i,j,k)*SQRTTKE(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
425 |
GGL90_CALC |
GGL90visctmp(i,j,k) = MAX(KappaM(i,j),diffKrNrS(k)) |
|
./pkg/ggl90/ggl90_calc.F |
426 |
GGL90_CALC |
& * maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
429 |
GGL90_CALC |
KappaM(i,j) = MAX(KappaM(i,j),viscArNr(k)) * maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
438 |
GGL90_CALC |
tempU = ( uVel( i ,j,km1,bi,bj) - uVel( i ,j,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
439 |
GGL90_CALC |
tempUp = ( uVel(i+1,j,km1,bi,bj) - uVel(i+1,j,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
440 |
GGL90_CALC |
tempV = ( vVel(i, j ,km1,bi,bj) - vVel(i, j ,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
441 |
GGL90_CALC |
tempVp = ( vVel(i,j+1,km1,bi,bj) - vVel(i,j+1,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
445 |
GGL90_CALC |
& )*recip_drC(k)*recip_drC(k) |
|
./pkg/ggl90/ggl90_calc.F |
453 |
GGL90_CALC |
& -( uVel(i,j,k ,bi,bj) + uVel(i+1,j,k ,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
454 |
GGL90_CALC |
& )*halfRL*recip_drC(k) |
|
./pkg/ggl90/ggl90_calc.F |
456 |
GGL90_CALC |
& -( vVel(i,j,k ,bi,bj) + vVel(i,j+1,k ,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
457 |
GGL90_CALC |
& )*halfRL*recip_drC(k) |
|
./pkg/ggl90/ggl90_calc.F |
470 |
GGL90_CALC |
& * recip_hFacI(i,j,k)*recip_hFacI(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
471 |
GGL90_CALC |
RiNumber = MAX(Nsquare(i,j,k),0. _d 0) |
|
./pkg/ggl90/ggl90_calc.F |
474 |
GGL90_CALC |
IDEMIX_RiNumber = MAX( KappaM(i,j)*Nsquare(i,j,k), 0. _d 0)/ |
|
./pkg/ggl90/ggl90_calc.F |
475 |
GGL90_CALC |
& (GGL90eps+IDEMIX_tau_d(i,j,k,bi,bj)*IDEMIX_E(i,j,k,bi,bj)**2) |
|
./pkg/ggl90/ggl90_calc.F |
477 |
GGL90_CALC |
TKEPrandtlNumber(i,j,k) = MIN(10. _d 0,prTemp) |
|
./pkg/ggl90/ggl90_calc.F |
478 |
GGL90_CALC |
TKEPrandtlNumber(i,j,k) = MAX( 1. _d 0,TKEPrandtlNumber(i,j,k)) |
|
./pkg/ggl90/ggl90_calc.F |
487 |
GGL90_CALC |
RiNumber = MAX(Nsquare(i,j,k),0. _d 0) |
|
./pkg/ggl90/ggl90_calc.F |
491 |
GGL90_CALC |
TKEPrandtlNumber(i,j,k) = MIN(10. _d 0,prTemp) |
|
./pkg/ggl90/ggl90_calc.F |
499 |
GGL90_CALC |
KappaH = KappaM(i,j)/TKEPrandtlNumber(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
500 |
GGL90_CALC |
KappaE(i,j,k) = GGL90alpha * KappaM(i,j) * maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
504 |
GGL90_CALC |
& *SQRTTKE(i,j,k)*rMixingLength(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
505 |
GGL90_CALC |
& *GGL90TKE(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
507 |
GGL90_CALC |
GGL90TKE(i,j,k,bi,bj) = GGL90TKE(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
510 |
GGL90_CALC |
& - KappaH*Nsquare(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
521 |
GGL90_CALC |
GGL90TKE(i,j,k,bi,bj) = GGL90TKE(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
523 |
GGL90_CALC |
& + IDEMIX_tau_d(i,j,k,bi,bj)*IDEMIX_E(i,j,k,bi,bj)**2 |
|
./pkg/ggl90/ggl90_calc.F |
535 |
GGL90_CALC |
GGL90TKE(i,j,k,bi,bj) = GGL90TKE(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
556 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
557 |
GGL90_CALC |
km1=MAX(2,k-1) |
|
./pkg/ggl90/ggl90_calc.F |
563 |
GGL90_CALC |
a3d(i,j,k) = -deltaTggl90 |
|
./pkg/ggl90/ggl90_calc.F |
564 |
GGL90_CALC |
& *recip_drF(k-1)*recip_hFacC(i,j,k-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
565 |
GGL90_CALC |
& *.5 _d 0*(KappaE(i,j, k )+KappaE(i,j,km1)) |
|
./pkg/ggl90/ggl90_calc.F |
566 |
GGL90_CALC |
& *recip_drC(k)*maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
576 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
579 |
GGL90_CALC |
kp1=MAX(1,MIN(klowC(i,j,bi,bj),k+1)) |
|
./pkg/ggl90/ggl90_calc.F |
583 |
GGL90_CALC |
c3d(i,j,k) = -deltaTggl90 |
|
./pkg/ggl90/ggl90_calc.F |
584 |
GGL90_CALC |
& *recip_drF( k ) * recip_hFacC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
585 |
GGL90_CALC |
& *.5 _d 0*(KappaE(i,j,k)+KappaE(i,j,kp1)) |
|
./pkg/ggl90/ggl90_calc.F |
586 |
GGL90_CALC |
& *recip_drC(k)*maskC(i,j,k-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
593 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
596 |
GGL90_CALC |
a3d(i,j,k) = a3d(i,j,k)*recip_hFacI(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
597 |
GGL90_CALC |
c3d(i,j,k) = c3d(i,j,k)*recip_hFacI(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
615 |
GGL90_CALC |
DO k=1,Nr |
|
./pkg/ggl90/ggl90_calc.F |
616 |
GGL90_CALC |
km1 = MAX(k-1,1) |
|
./pkg/ggl90/ggl90_calc.F |
619 |
GGL90_CALC |
b3d(i,j,k) = 1. _d 0 - c3d(i,j,k) - a3d(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
620 |
GGL90_CALC |
& + implDissFac*deltaTggl90*GGL90ceps*SQRTTKE(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
621 |
GGL90_CALC |
& * rMixingLength(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
622 |
GGL90_CALC |
& * maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
668 |
GGL90_CALC |
DO k=1,Nr |
|
./pkg/ggl90/ggl90_calc.F |
672 |
GGL90_CALC |
GGL90TKE(i,j,k,bi,bj) = maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
673 |
GGL90_CALC |
& *MAX( GGL90TKE(i,j,k,bi,bj), GGL90TKEmin ) |
|
./pkg/ggl90/ggl90_calc.F |
681 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
686 |
GGL90_CALC |
& p4 * GGL90visctmp(i ,j ,k)*mskCor(i ,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
687 |
GGL90_CALC |
& +p8 *( ( GGL90visctmp(i-1,j ,k)*mskCor(i-1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
688 |
GGL90_CALC |
& + GGL90visctmp(i+1,j ,k)*mskCor(i+1,j ,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
689 |
GGL90_CALC |
& + ( GGL90visctmp(i ,j-1,k)*mskCor(i ,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
690 |
GGL90_CALC |
& + GGL90visctmp(i ,j+1,k)*mskCor(i ,j+1,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
691 |
GGL90_CALC |
& +p16*( ( GGL90visctmp(i+1,j+1,k)*mskCor(i+1,j+1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
692 |
GGL90_CALC |
& + GGL90visctmp(i-1,j-1,k)*mskCor(i-1,j-1,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
693 |
GGL90_CALC |
& + ( GGL90visctmp(i+1,j-1,k)*mskCor(i+1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
694 |
GGL90_CALC |
& + GGL90visctmp(i-1,j+1,k)*mskCor(i-1,j+1,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
697 |
GGL90_CALC |
& +p8 *( ( maskC(i-1,j ,k,bi,bj)*mskCor(i-1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
698 |
GGL90_CALC |
& + maskC(i+1,j ,k,bi,bj)*mskCor(i+1,j ,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
699 |
GGL90_CALC |
& + ( maskC(i ,j-1,k,bi,bj)*mskCor(i ,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
700 |
GGL90_CALC |
& + maskC(i ,j+1,k,bi,bj)*mskCor(i ,j+1,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
701 |
GGL90_CALC |
& +p16*( ( maskC(i+1,j+1,k,bi,bj)* mskCor(i+1,j+1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
702 |
GGL90_CALC |
& + maskC(i-1,j-1,k,bi,bj)*mskCor(i-1,j-1,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
703 |
GGL90_CALC |
& + ( maskC(i+1,j-1,k,bi,bj)*mskCor(i+1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
704 |
GGL90_CALC |
& + maskC(i-1,j+1,k,bi,bj)*mskCor(i-1,j+1,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
705 |
GGL90_CALC |
& )*maskC(i,j,k,bi,bj)*mskCor(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
707 |
GGL90_CALC |
tmpVisc = GGL90visctmp(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
709 |
GGL90_CALC |
tmpVisc = MIN(tmpVisc/TKEPrandtlNumber(i,j,k),GGL90diffMax) |
|
./pkg/ggl90/ggl90_calc.F |
710 |
GGL90_CALC |
GGL90diffKr(i,j,k,bi,bj)= MAX( tmpVisc , diffKrNrS(k) ) |
|
./pkg/ggl90/ggl90_calc.F |
715 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
720 |
GGL90_CALC |
& p4 *( GGL90visctmp(i-1,j ,k)*mskCor(i-1,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
721 |
GGL90_CALC |
& + GGL90visctmp(i ,j ,k)*mskCor(i ,j ,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
722 |
GGL90_CALC |
& +p8 *( ( GGL90visctmp(i-1,j-1,k)*mskCor(i-1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
723 |
GGL90_CALC |
& + GGL90visctmp(i ,j-1,k)*mskCor(i ,j-1,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
724 |
GGL90_CALC |
& + ( GGL90visctmp(i-1,j+1,k)*mskCor(i-1,j+1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
725 |
GGL90_CALC |
& + GGL90visctmp(i ,j+1,k)*mskCor(i ,j+1,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
728 |
GGL90_CALC |
& +p8 *( ( maskC(i-1,j-1,k,bi,bj)*mskCor(i-1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
729 |
GGL90_CALC |
& + maskC(i ,j-1,k,bi,bj)*mskCor(i ,j-1,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
730 |
GGL90_CALC |
& + ( maskC(i-1,j+1,k,bi,bj)*mskCor(i-1,j+1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
731 |
GGL90_CALC |
& + maskC(i ,j+1,k,bi,bj)*mskCor(i ,j+1,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
732 |
GGL90_CALC |
& )*maskC(i-1,j,k,bi,bj)*mskCor(i-1,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
733 |
GGL90_CALC |
& *maskC(i ,j,k,bi,bj)*mskCor(i ,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
735 |
GGL90_CALC |
tmpVisc = _maskW(i,j,k,bi,bj) * halfRL |
|
./pkg/ggl90/ggl90_calc.F |
736 |
GGL90_CALC |
& *( GGL90visctmp(i-1,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
737 |
GGL90_CALC |
& + GGL90visctmp(i,j,k) ) |
|
./pkg/ggl90/ggl90_calc.F |
740 |
GGL90_CALC |
GGL90viscArU(i,j,k,bi,bj) = MAX( tmpVisc, viscArNr(k) ) |
|
./pkg/ggl90/ggl90_calc.F |
745 |
GGL90_CALC |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_calc.F |
750 |
GGL90_CALC |
& p4 *( GGL90visctmp(i ,j-1,k)*mskCor(i ,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
751 |
GGL90_CALC |
& + GGL90visctmp(i ,j ,k)*mskCor(i ,j ,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
752 |
GGL90_CALC |
& +p8 *( ( GGL90visctmp(i-1,j-1,k)*mskCor(i-1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
753 |
GGL90_CALC |
& + GGL90visctmp(i-1,j ,k)*mskCor(i-1,j ,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
754 |
GGL90_CALC |
& + ( GGL90visctmp(i+1,j-1,k)*mskCor(i+1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
755 |
GGL90_CALC |
& + GGL90visctmp(i+1,j ,k)*mskCor(i+1,j ,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
758 |
GGL90_CALC |
& +p8 *( ( maskC(i-1,j-1,k,bi,bj)*mskCor(i-1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
759 |
GGL90_CALC |
& + maskC(i-1,j ,k,bi,bj)*mskCor(i-1,j ,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
760 |
GGL90_CALC |
& + ( maskC(i+1,j-1,k,bi,bj)*mskCor(i+1,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
761 |
GGL90_CALC |
& + maskC(i+1,j ,k,bi,bj)*mskCor(i+1,j ,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
762 |
GGL90_CALC |
& )*maskC(i,j-1,k,bi,bj)*mskCor(i,j-1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
763 |
GGL90_CALC |
& *maskC(i,j ,k,bi,bj)*mskCor(i,j ,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
765 |
GGL90_CALC |
tmpVisc = _maskS(i,j,k,bi,bj) * halfRL |
|
./pkg/ggl90/ggl90_calc.F |
766 |
GGL90_CALC |
& *( GGL90visctmp(i,j-1,k) |
|
./pkg/ggl90/ggl90_calc.F |
767 |
GGL90_CALC |
& + GGL90visctmp(i,j,k) ) |
|
./pkg/ggl90/ggl90_calc.F |
770 |
GGL90_CALC |
GGL90viscArV(i,j,k,bi,bj) = MAX( tmpVisc, viscArNr(k) ) |
|
./pkg/ggl90/ggl90_calc.F |
78 |
GGL90_CALC |
INTEGER i, j, k, kp1, km1, kSurf, kBottom |
|
./pkg/ggl90/ggl90_calc.F |
803 |
GGL90_CALC |
k=kSurf |
|
./pkg/ggl90/ggl90_calc.F |
808 |
GGL90_CALC |
& halfRL*( surfaceForcingU(i, j,bi,bj)*uVel(i ,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
809 |
GGL90_CALC |
& +surfaceForcingU(i+1,j,bi,bj)*uVel(i+1,j,k,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
810 |
GGL90_CALC |
& + halfRL*( surfaceForcingV(i,j, bi,bj)*vVel(i,j ,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
811 |
GGL90_CALC |
& +surfaceForcingV(i,j+1,bi,bj)*vVel(i,j+1,k,bi,bj)) |
|
./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 |
& - diffKrNrS(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/ggl90/ggl90_idemix.F |
112 |
GGL90_IDEMIX |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_idemix.F |
115 |
GGL90_IDEMIX |
Nsquare(i,j,k) = gravity*gravitySign*recip_rhoConst |
|
./pkg/ggl90/ggl90_idemix.F |
116 |
GGL90_IDEMIX |
& * sigmaR(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
118 |
GGL90_IDEMIX |
Nsquare(i,j,k)= max( 100.*fxb*fxb, Nsquare(i,j,k) ) |
|
./pkg/ggl90/ggl90_idemix.F |
119 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj)*maskC(i,j,k-1,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
126 |
GGL90_IDEMIX |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_idemix.F |
130 |
GGL90_IDEMIX |
& +SQRT(Nsquare(i,j,k))*drC(k)*hFacI(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
138 |
GGL90_IDEMIX |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_idemix.F |
142 |
GGL90_IDEMIX |
fxa = SQRT(Nsquare(i,j,k))/fxb |
|
./pkg/ggl90/ggl90_idemix.F |
144 |
GGL90_IDEMIX |
c0(i,j,k)=max(0. _d 0, |
|
./pkg/ggl90/ggl90_idemix.F |
146 |
GGL90_IDEMIX |
IDEMIX_V0(i,j,k,bi,bj)=max(0. _d 0, |
|
./pkg/ggl90/ggl90_idemix.F |
150 |
GGL90_IDEMIX |
IDEMIX_tau_d(i,j,k,bi,bj) = IDEMIX_mu0*fxb*fxc* |
|
./pkg/ggl90/ggl90_idemix.F |
161 |
GGL90_IDEMIX |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_idemix.F |
165 |
GGL90_IDEMIX |
IDEMIX_V0(i,j,k,bi,bj) = min( IDEMIX_V0(i,j,k,bi,bj), fxb ) |
|
./pkg/ggl90/ggl90_idemix.F |
178 |
GGL90_IDEMIX |
DO k=1,Nr |
|
./pkg/ggl90/ggl90_idemix.F |
182 |
GGL90_IDEMIX |
& +GM_EG_diss(i,j,k,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
187 |
GGL90_IDEMIX |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_idemix.F |
191 |
GGL90_IDEMIX |
& +max( 0. _d 0,Kwz(i,j,k,bi,bj)*Nsquare(i,j,k) ) |
|
./pkg/ggl90/ggl90_idemix.F |
192 |
GGL90_IDEMIX |
& *drC(k)*hFacI(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
202 |
GGL90_IDEMIX |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_idemix.F |
205 |
GGL90_IDEMIX |
forc(i,j,k) = forc(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
206 |
GGL90_IDEMIX |
& +.5 _d 0*(GM_EG_diss(i,j,k,bi,bj)+ |
|
./pkg/ggl90/ggl90_idemix.F |
207 |
GGL90_IDEMIX |
& GM_EG_diss(i,j,k-1,bi,bj)) |
|
./pkg/ggl90/ggl90_idemix.F |
212 |
GGL90_IDEMIX |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_idemix.F |
215 |
GGL90_IDEMIX |
forc(i,j,k) = forc(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
216 |
GGL90_IDEMIX |
& +max( 0. _d 0,Kwz(i,j,k,bi,bj)*Nsquare(i,j,k) ) |
|
./pkg/ggl90/ggl90_idemix.F |
239 |
GGL90_IDEMIX |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_idemix.F |
244 |
GGL90_IDEMIX |
& IDEMIX_V0(i-1,j,k,bi,bj)*maskC(i-1,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
245 |
GGL90_IDEMIX |
& +IDEMIX_V0(i ,j,k,bi,bj)*maskC(i ,j,k,bi,bj)) |
|
./pkg/ggl90/ggl90_idemix.F |
246 |
GGL90_IDEMIX |
dfx(i,j) = -fxa*_dyG(i,j,bi,bj)*drC(k) |
|
./pkg/ggl90/ggl90_idemix.F |
247 |
GGL90_IDEMIX |
& *(min(.5 _d 0,_hFacW(i,j,k-1,bi,bj) ) + |
|
./pkg/ggl90/ggl90_idemix.F |
248 |
GGL90_IDEMIX |
& min(.5 _d 0,_hFacW(i,j,k ,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_idemix.F |
250 |
GGL90_IDEMIX |
& *(IDEMIX_V0(i ,j,k,bi,bj)*IDEMIX_E(i ,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
251 |
GGL90_IDEMIX |
& -IDEMIX_V0(i-1,j,k,bi,bj)*IDEMIX_E(i-1,j,k,bi,bj)) |
|
./pkg/ggl90/ggl90_idemix.F |
252 |
GGL90_IDEMIX |
& *maskW(i,j,k,bi,bj) ! paranoia setting |
|
./pkg/ggl90/ggl90_idemix.F |
261 |
GGL90_IDEMIX |
& IDEMIX_V0(i,j ,k,bi,bj)*maskC(i,j ,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
262 |
GGL90_IDEMIX |
& +IDEMIX_V0(i,j-1,k,bi,bj)*maskC(i,j-1,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_idemix.F |
263 |
GGL90_IDEMIX |
dfy(i,j) = -fxa*_dxG(i,j,bi,bj)*drC(k) |
|
./pkg/ggl90/ggl90_idemix.F |
264 |
GGL90_IDEMIX |
& *(min(.5 _d 0,_hFacS(i,j,k-1,bi,bj) ) + |
|
./pkg/ggl90/ggl90_idemix.F |
265 |
GGL90_IDEMIX |
& min(.5 _d 0,_hFacS(i,j,k ,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_idemix.F |
267 |
GGL90_IDEMIX |
& *(IDEMIX_V0(i,j ,k,bi,bj)*IDEMIX_E(i,j ,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
268 |
GGL90_IDEMIX |
& -IDEMIX_V0(i,j-1,k,bi,bj)*IDEMIX_E(i,j-1,k,bi,bj)) |
|
./pkg/ggl90/ggl90_idemix.F |
269 |
GGL90_IDEMIX |
& *maskS(i,j,k,bi,bj) ! paranoia setting |
|
./pkg/ggl90/ggl90_idemix.F |
277 |
GGL90_IDEMIX |
IDEMIX_E(i,j,k,bi,bj) = IDEMIX_E(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
278 |
GGL90_IDEMIX |
& + deltaTggl90*(-recip_drC(k)*recip_rA(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
279 |
GGL90_IDEMIX |
& *recip_hFacI(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
281 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj) ! paranoia setting |
|
./pkg/ggl90/ggl90_idemix.F |
288 |
GGL90_IDEMIX |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_idemix.F |
291 |
GGL90_IDEMIX |
IDEMIX_E(i,j,k,bi,bj) = IDEMIX_E(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
292 |
GGL90_IDEMIX |
& + forc(i,j,k)*deltaTggl90 |
|
./pkg/ggl90/ggl90_idemix.F |
301 |
GGL90_IDEMIX |
DO k=2,Nr-1 |
|
./pkg/ggl90/ggl90_idemix.F |
304 |
GGL90_IDEMIX |
delta(i,j,k) = deltaTggl90*IDEMIX_tau_v |
|
./pkg/ggl90/ggl90_idemix.F |
305 |
GGL90_IDEMIX |
& *recip_drF(k)*recip_hFacC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
306 |
GGL90_IDEMIX |
& *.5 _d 0*(c0(i,j,k)+c0(i,j,k+1)) |
|
./pkg/ggl90/ggl90_idemix.F |
326 |
GGL90_IDEMIX |
DO k=3,Nr |
|
./pkg/ggl90/ggl90_idemix.F |
327 |
GGL90_IDEMIX |
km1=MAX(2,k-1) |
|
./pkg/ggl90/ggl90_idemix.F |
331 |
GGL90_IDEMIX |
a3d(i,j,k) = -delta(i,j,k-1)*c0(i,j,km1) |
|
./pkg/ggl90/ggl90_idemix.F |
332 |
GGL90_IDEMIX |
& *recip_drC(k)*recip_hFacI(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
333 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj)!*maskC(i,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
339 |
GGL90_IDEMIX |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_idemix.F |
343 |
GGL90_IDEMIX |
kp1=MAX(1,MIN(klowC(i,j,bi,bj),k+1)) |
|
./pkg/ggl90/ggl90_idemix.F |
344 |
GGL90_IDEMIX |
c3d(i,j,k) = -delta(i,j,k)*c0(i,j,kp1) |
|
./pkg/ggl90/ggl90_idemix.F |
345 |
GGL90_IDEMIX |
& *recip_drC(k)*recip_hFacI(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
346 |
GGL90_IDEMIX |
& *maskC(i,j,k-1,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
365 |
GGL90_IDEMIX |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_idemix.F |
366 |
GGL90_IDEMIX |
km1 = MAX(k-1,2) |
|
./pkg/ggl90/ggl90_idemix.F |
369 |
GGL90_IDEMIX |
b3d(i,j,k) = 1. _d 0 + deltaTggl90*IDEMIX_tau_d(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
370 |
GGL90_IDEMIX |
& *IDEMIX_E(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
371 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
373 |
GGL90_IDEMIX |
b3d(i,j,k) = b3d(i,j,k) + delta(i,j,k)*c0(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
374 |
GGL90_IDEMIX |
& *recip_drC(k)*recip_hFacI(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
377 |
GGL90_IDEMIX |
b3d(i,j,k) = b3d(i,j,k) + delta(i,j,km1)*c0(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
378 |
GGL90_IDEMIX |
& *recip_drC(k)*recip_hFacI(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
379 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
387 |
GGL90_IDEMIX |
k = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/ggl90/ggl90_idemix.F |
388 |
GGL90_IDEMIX |
km1 = MAX(k-1,2) |
|
./pkg/ggl90/ggl90_idemix.F |
389 |
GGL90_IDEMIX |
b3d(i,j,k) = 1. _d 0 + deltaTggl90*IDEMIX_tau_d(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
390 |
GGL90_IDEMIX |
& *IDEMIX_E(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
391 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
393 |
GGL90_IDEMIX |
& + delta(i,j,km1 )*c0(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
394 |
GGL90_IDEMIX |
& *recip_drC(k)*recip_hFacI(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
395 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
396 |
GGL90_IDEMIX |
k=2 |
|
./pkg/ggl90/ggl90_idemix.F |
397 |
GGL90_IDEMIX |
b3d(i,j,k) = 1. _d 0 + deltaTggl90*IDEMIX_tau_d(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
398 |
GGL90_IDEMIX |
& *IDEMIX_E(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
399 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
401 |
GGL90_IDEMIX |
& + delta(i,j,k)*c0(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
402 |
GGL90_IDEMIX |
& *recip_drC(k)*recip_hFacI(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
411 |
GGL90_IDEMIX |
k=2 |
|
./pkg/ggl90/ggl90_idemix.F |
412 |
GGL90_IDEMIX |
IDEMIX_E(i,j,k,bi,bj) = IDEMIX_E(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
414 |
GGL90_IDEMIX |
& *recip_drC(k)*recip_hFacI(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
415 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
416 |
GGL90_IDEMIX |
k = MAX(kLowC(i,j,bi,bj),1) |
|
./pkg/ggl90/ggl90_idemix.F |
417 |
GGL90_IDEMIX |
IDEMIX_E(i,j,k,bi,bj) = IDEMIX_E(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
419 |
GGL90_IDEMIX |
& *recip_drC(k)*recip_hFacI(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
420 |
GGL90_IDEMIX |
& *maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
439 |
GGL90_IDEMIX |
DO k=2,Nr |
|
./pkg/ggl90/ggl90_idemix.F |
442 |
GGL90_IDEMIX |
osborn_diff(i,j,k) = IDEMIX_mixing_efficiency |
|
./pkg/ggl90/ggl90_idemix.F |
443 |
GGL90_IDEMIX |
& *IDEMIX_tau_d(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
444 |
GGL90_IDEMIX |
& *IDEMIX_E(i,j,k,bi,bj)*IDEMIX_E(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
445 |
GGL90_IDEMIX |
& /max(1. _d -12,Nsquare(i,j,k))*maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
446 |
GGL90_IDEMIX |
osborn_diff(i,j,k) = min(IDEMIX_diff_max,osborn_diff(i,j,k)) |
|
./pkg/ggl90/ggl90_idemix.F |
60 |
GGL90_IDEMIX |
INTEGER i, j, k, kp1, km1, kBottom |
|
./pkg/ggl90/ggl90_idemix.F |
87 |
GGL90_IDEMIX |
DO k = 1, Nr |
|
./pkg/ggl90/ggl90_idemix.F |
90 |
GGL90_IDEMIX |
Nsquare(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
91 |
GGL90_IDEMIX |
delta(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
92 |
GGL90_IDEMIX |
a3d(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
93 |
GGL90_IDEMIX |
b3d(i,j,k) = 1. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
94 |
GGL90_IDEMIX |
c3d(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
95 |
GGL90_IDEMIX |
osborn_diff(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
96 |
GGL90_IDEMIX |
c0(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
97 |
GGL90_IDEMIX |
forc(i,j,k) = 0. _d 0 |
|
./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 |
62 |
GMREDI_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k)+LS_Kwz(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_diff.F |
64 |
GMREDI_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_diff.F |
73 |
GMREDI_CALC_DIFF |
k = MIN(kArg,kSize) |
|
./pkg/gmredi/gmredi_calc_diff.F |
77 |
GMREDI_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,kArg,bi,bj) |
|
./pkg/gmredi/gmredi_calc_diff.F |
81 |
GMREDI_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k)+LS_Kwz(i,j,kArg,bi,bj) |
|
./pkg/gmredi/gmredi_calc_diff.F |
83 |
GMREDI_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,kArg,bi,bj) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
107 |
GMREDI_CALC_EIGS |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_eigs.F |
111 |
GMREDI_CALC_EIGS |
vec(m,i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
122 |
GMREDI_CALC_EIGS |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_eigs.F |
126 |
GMREDI_CALC_EIGS |
IF (k.EQ.1) THEN |
|
./pkg/gmredi/gmredi_calc_eigs.F |
127 |
GMREDI_CALC_EIGS |
a3d(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
128 |
GMREDI_CALC_EIGS |
c3d(i,j,k) = fCori2(i,j)*recip_hFac(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
129 |
GMREDI_CALC_EIGS |
& *recip_drC(k+1)*recip_drF(k)/N2(i,j,k+1) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
130 |
GMREDI_CALC_EIGS |
b3d(i,j,k) = -c3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
132 |
GMREDI_CALC_EIGS |
ELSEIF (k.LT.kLow(i,j)) THEN |
|
./pkg/gmredi/gmredi_calc_eigs.F |
133 |
GMREDI_CALC_EIGS |
a3d(i,j,k) = fCori2(i,j)*recip_hFac(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
134 |
GMREDI_CALC_EIGS |
& *recip_drF(k)*recip_drC(k)/N2(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
135 |
GMREDI_CALC_EIGS |
c3d(i,j,k) = fCori2(i,j)*recip_hFac(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
136 |
GMREDI_CALC_EIGS |
& *recip_drF(k)*recip_drC(k+1)/N2(i,j,k+1) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
137 |
GMREDI_CALC_EIGS |
b3d(i,j,k) = -a3d(i,j,k)-c3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
139 |
GMREDI_CALC_EIGS |
ELSEIF (k.EQ.kLow(i,j)) THEN |
|
./pkg/gmredi/gmredi_calc_eigs.F |
140 |
GMREDI_CALC_EIGS |
a3d(i,j,k) = fCori2(i,j)*recip_hFac(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
141 |
GMREDI_CALC_EIGS |
& *recip_drF(k)*recip_drC(k)/N2(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
142 |
GMREDI_CALC_EIGS |
c3d(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
143 |
GMREDI_CALC_EIGS |
b3d(i,j,k) = -a3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
146 |
GMREDI_CALC_EIGS |
a3d(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
147 |
GMREDI_CALC_EIGS |
b3d(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
148 |
GMREDI_CALC_EIGS |
c3d(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
152 |
GMREDI_CALC_EIGS |
a3d(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
153 |
GMREDI_CALC_EIGS |
b3d(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
154 |
GMREDI_CALC_EIGS |
c3d(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
164 |
GMREDI_CALC_EIGS |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_eigs.F |
165 |
GMREDI_CALC_EIGS |
array(k,kk) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
169 |
GMREDI_CALC_EIGS |
k=1 |
|
./pkg/gmredi/gmredi_calc_eigs.F |
170 |
GMREDI_CALC_EIGS |
array(k,k) = b3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
171 |
GMREDI_CALC_EIGS |
array(k,k+1) = c3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
172 |
GMREDI_CALC_EIGS |
DO k=2,Nr-1 |
|
./pkg/gmredi/gmredi_calc_eigs.F |
173 |
GMREDI_CALC_EIGS |
array(k,k-1) = a3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
174 |
GMREDI_CALC_EIGS |
array(k,k) = b3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
175 |
GMREDI_CALC_EIGS |
array(k,k+1) = c3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
177 |
GMREDI_CALC_EIGS |
k=Nr |
|
./pkg/gmredi/gmredi_calc_eigs.F |
178 |
GMREDI_CALC_EIGS |
array(k,k-1) = a3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
179 |
GMREDI_CALC_EIGS |
array(k,k) = b3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
203 |
GMREDI_CALC_EIGS |
DO k=1,kLow(i,j) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
204 |
GMREDI_CALC_EIGS |
eigval(0) = MAX(eigval(0),eigR(k)) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
207 |
GMREDI_CALC_EIGS |
DO k=1,kLow(i,j) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
208 |
GMREDI_CALC_EIGS |
IF (eigR(k).LT.eigval(m-1)) THEN |
|
./pkg/gmredi/gmredi_calc_eigs.F |
209 |
GMREDI_CALC_EIGS |
eigval(m) = MAX(eigval(m),eigR(k)) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
210 |
GMREDI_CALC_EIGS |
IF (eigval(m).EQ.eigR(k)) idx=k |
|
./pkg/gmredi/gmredi_calc_eigs.F |
214 |
GMREDI_CALC_EIGS |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_eigs.F |
215 |
GMREDI_CALC_EIGS |
vec(m,i,j,k) = -vecs(k,idx) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
218 |
GMREDI_CALC_EIGS |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_eigs.F |
219 |
GMREDI_CALC_EIGS |
vec(m,i,j,k) = vecs(k,idx) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
226 |
GMREDI_CALC_EIGS |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_eigs.F |
228 |
GMREDI_CALC_EIGS |
vec(m,i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
247 |
GMREDI_CALC_EIGS |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_eigs.F |
250 |
GMREDI_CALC_EIGS |
BuoyFreq(i,j,k) = mask(i,j,k)*SQRT(N2(i,j,k)) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
254 |
GMREDI_CALC_EIGS |
k=Nr+1 |
|
./pkg/gmredi/gmredi_calc_eigs.F |
257 |
GMREDI_CALC_EIGS |
BuoyFreq(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
264 |
GMREDI_CALC_EIGS |
k=Nr |
|
./pkg/gmredi/gmredi_calc_eigs.F |
269 |
GMREDI_CALC_EIGS |
intN(i,j,k) = op5*BuoyFreq(i,j,k)*drNr |
|
./pkg/gmredi/gmredi_calc_eigs.F |
272 |
GMREDI_CALC_EIGS |
DO k=Nr-1,1,-1 |
|
./pkg/gmredi/gmredi_calc_eigs.F |
275 |
GMREDI_CALC_EIGS |
intN(i,j,k) = intN(i,j,k+1) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
276 |
GMREDI_CALC_EIGS |
& + drC(k)*( op25*BuoyFreq(i,j,k+2) + op5*BuoyFreq(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
277 |
GMREDI_CALC_EIGS |
& + op25*BuoyFreq(i,j,k+1) ) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
304 |
GMREDI_CALC_EIGS |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_eigs.F |
307 |
GMREDI_CALC_EIGS |
IF (mask(i,j,k).NE.0.0) THEN |
|
./pkg/gmredi/gmredi_calc_eigs.F |
309 |
GMREDI_CALC_EIGS |
vec(m,i,j,k) = -COS(intN(i,j,k)/(m*c1(i,j))) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
325 |
GMREDI_CALC_EIGS |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_eigs.F |
329 |
GMREDI_CALC_EIGS |
vecint(m,i,j) = vecint(m,i,j) + hfac(i,j,k)*vec(m,i,j,k)*drF(k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
341 |
GMREDI_CALC_EIGS |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_eigs.F |
345 |
GMREDI_CALC_EIGS |
vec(m,i,j,k) = vec(m,i,j,k) - vecint(m,i,j) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
361 |
GMREDI_CALC_EIGS |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_eigs.F |
366 |
GMREDI_CALC_EIGS |
& mask(i,j,k)*drF(k)*hfac(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
367 |
GMREDI_CALC_EIGS |
& *vec(m,i,j,k)*vec(m,i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
381 |
GMREDI_CALC_EIGS |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_eigs.F |
385 |
GMREDI_CALC_EIGS |
vec(m,i,j,k) = vec(m,i,j,k)/(vecint(m,i,j)+small) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
52 |
GMREDI_CALC_EIGS |
INTEGER i,j,k,kk,m |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
111 |
GMREDI_CALC_PSI_B |
SlopeX(i,j)=op5*( sigmaX(i,j,km1)+sigmaX(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
112 |
GMREDI_CALC_PSI_B |
& *maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
113 |
GMREDI_CALC_PSI_B |
dSigmaDrW(i,j)=op5*( sigmaR(i-1,j,k)+sigmaR(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
114 |
GMREDI_CALC_PSI_B |
& *maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
119 |
GMREDI_CALC_PSI_B |
SlopeY(i,j)=op5*( sigmaY(i,j,km1)+sigmaY(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
120 |
GMREDI_CALC_PSI_B |
& *maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
121 |
GMREDI_CALC_PSI_B |
dSigmaDrS(i,j)=op5*( sigmaR(i,j-1,k)+sigmaR(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
122 |
GMREDI_CALC_PSI_B |
& *maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
131 |
GMREDI_CALC_PSI_B |
I ldd97_LrhoW, ldd97_LrhoS, rF(k), k, |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
135 |
GMREDI_CALC_PSI_B |
kkey = (igmkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
144 |
GMREDI_CALC_PSI_B |
& *(GM_bolFac1d(km1)+GM_bolFac1d(k))*op25 |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
147 |
GMREDI_CALC_PSI_B |
GM_PsiX(i,j,k,bi,bj) = SlopeX(i,j)*taperX(i,j) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
150 |
GMREDI_CALC_PSI_B |
& *( kapGM(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
153 |
GMREDI_CALC_PSI_B |
& + kapGM(i-1,j,k,bi,bj)+kapGM(i,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
162 |
GMREDI_CALC_PSI_B |
& )*maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
164 |
GMREDI_CALC_PSI_B |
& +eddyPsiX(i,j,k,bi,bj)*maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
170 |
GMREDI_CALC_PSI_B |
GM_PsiY(i,j,k,bi,bj) = SlopeY(i,j)*taperY(i,j) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
173 |
GMREDI_CALC_PSI_B |
& *( kapGM(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
176 |
GMREDI_CALC_PSI_B |
& + kapGM(i,j-1,k,bi,bj)+kapGM(i,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
185 |
GMREDI_CALC_PSI_B |
& )*maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
187 |
GMREDI_CALC_PSI_B |
& +eddyPsiY(i,j,k,bi,bj)*maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
64 |
GMREDI_CALC_PSI_B |
INTEGER i,j,k, km1 |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
94 |
GMREDI_CALC_PSI_B |
DO k=2,Nr |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
95 |
GMREDI_CALC_PSI_B |
km1 = k-1 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
100 |
GMREDI_CALC_PSI_BVP |
GM_c3d(i,j,k) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
105 |
GMREDI_CALC_PSI_BVP |
DO k=2,Nr |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
106 |
GMREDI_CALC_PSI_BVP |
km1 = k-1 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
108 |
GMREDI_CALC_PSI_BVP |
& *(GM_bolFac1d(km1)+GM_bolFac1d(k))*op25 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
112 |
GMREDI_CALC_PSI_BVP |
sigmaX_W = op5*( sigmaX(i,j,km1)+sigmaX(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
113 |
GMREDI_CALC_PSI_BVP |
& *maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
114 |
GMREDI_CALC_PSI_BVP |
dSigmaDrW = op5*( sigmaR(i-1,j,k)+sigmaR(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
115 |
GMREDI_CALC_PSI_BVP |
& *maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
119 |
GMREDI_CALC_PSI_BVP |
& *drC(k)*GM_BVP_rModeNumber*rPI |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
122 |
GMREDI_CALC_PSI_BVP |
GM_b3d(i,j,k) = MAX( -dSigmaDrW, GM_Small_Number ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
125 |
GMREDI_CALC_PSI_BVP |
GM_PsiX(i,j,k,bi,bj) = half_K*sigmaX_W |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
138 |
GMREDI_CALC_PSI_BVP |
DO k=2,Nr |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
139 |
GMREDI_CALC_PSI_BVP |
km1 = k-1 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
142 |
GMREDI_CALC_PSI_BVP |
IF ( maskW(i,j,k,bi,bj).NE.0. ) THEN |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
144 |
GMREDI_CALC_PSI_BVP |
GM_a3d(i,j,k) = -c2*recip_drC(k) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
146 |
GMREDI_CALC_PSI_BVP |
GM_b3d(i,j,k) = GM_b3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
147 |
GMREDI_CALC_PSI_BVP |
& + c2*recip_drC(k) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
149 |
GMREDI_CALC_PSI_BVP |
& +recip_drF(k)*recip_hFacW(i,j,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
150 |
GMREDI_CALC_PSI_BVP |
GM_c3d(i,j,k) = -c2*recip_drC(k) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
151 |
GMREDI_CALC_PSI_BVP |
& *recip_drF(k)*recip_hFacW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
153 |
GMREDI_CALC_PSI_BVP |
GM_b3d(i,j,k) = 1. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
175 |
GMREDI_CALC_PSI_BVP |
DO k=2,Nr |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
178 |
GMREDI_CALC_PSI_BVP |
GM_a3d(i,j,k) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
179 |
GMREDI_CALC_PSI_BVP |
GM_b3d(i,j,k) = 1. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
180 |
GMREDI_CALC_PSI_BVP |
GM_c3d(i,j,k) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
185 |
GMREDI_CALC_PSI_BVP |
DO k=2,Nr |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
186 |
GMREDI_CALC_PSI_BVP |
km1 = k-1 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
188 |
GMREDI_CALC_PSI_BVP |
& *(GM_bolFac1d(km1)+GM_bolFac1d(k))*op25 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
191 |
GMREDI_CALC_PSI_BVP |
sigmaY_W = op5*( sigmaY(i,j,km1)+sigmaY(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
192 |
GMREDI_CALC_PSI_BVP |
& *maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
193 |
GMREDI_CALC_PSI_BVP |
dSigmaDrS = op5*( sigmaR(i,j-1,k)+sigmaR(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
194 |
GMREDI_CALC_PSI_BVP |
& *maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
198 |
GMREDI_CALC_PSI_BVP |
& *drC(k)*GM_BVP_rModeNumber*rPI |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
201 |
GMREDI_CALC_PSI_BVP |
GM_b3d(i,j,k) = MAX( -dSigmaDrS, GM_Small_Number ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
204 |
GMREDI_CALC_PSI_BVP |
GM_PsiY(i,j,k,bi,bj) = half_K*sigmaY_W |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
210 |
GMREDI_CALC_PSI_BVP |
DO k=2,Nr |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
211 |
GMREDI_CALC_PSI_BVP |
km1 = k-1 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
214 |
GMREDI_CALC_PSI_BVP |
IF ( maskS(i,j,k,bi,bj).NE.0. ) THEN |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
216 |
GMREDI_CALC_PSI_BVP |
GM_a3d(i,j,k) = -c2*recip_drC(k) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
218 |
GMREDI_CALC_PSI_BVP |
GM_b3d(i,j,k) = GM_b3d(i,j,k) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
219 |
GMREDI_CALC_PSI_BVP |
& + c2*recip_drC(k) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
221 |
GMREDI_CALC_PSI_BVP |
& +recip_drF(k)*recip_hFacS(i,j,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
222 |
GMREDI_CALC_PSI_BVP |
GM_c3d(i,j,k) = -c2*recip_drC(k) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
223 |
GMREDI_CALC_PSI_BVP |
& *recip_drF(k)*recip_hFacS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
225 |
GMREDI_CALC_PSI_BVP |
GM_b3d(i,j,k) = 1. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
51 |
GMREDI_CALC_PSI_BVP |
INTEGER i,j,k, km1 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
95 |
GMREDI_CALC_PSI_BVP |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
98 |
GMREDI_CALC_PSI_BVP |
GM_a3d(i,j,k) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
99 |
GMREDI_CALC_PSI_BVP |
GM_b3d(i,j,k) = 1. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1005 |
GMREDI_CALC_TENSOR |
& +op5*(K3D(i,j,k,bi,bj)+K3D(i,j-1,k,bi,bj))*GM_advect |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1015 |
GMREDI_CALC_TENSOR |
km1 = MAX(k-1,1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1021 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = ( kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1023 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = ( op5*(kapRedi(i,j-1,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1024 |
GMREDI_CALC_TENSOR |
& +kapRedi(i,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1027 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = ( GM_isopycK*GM_isoFac1d(k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1034 |
GMREDI_CALC_TENSOR |
& +op5*(K3D(i,j,k,bi,bj)+K3D(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1043 |
GMREDI_CALC_TENSOR |
& +recip_drC(k)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1044 |
GMREDI_CALC_TENSOR |
& ( maskC(i,j-1,k,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1045 |
GMREDI_CALC_TENSOR |
& (theta(i,j-1,km1,bi,bj)-theta(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1046 |
GMREDI_CALC_TENSOR |
& +maskC(i, j ,k,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1047 |
GMREDI_CALC_TENSOR |
& (theta(i, j ,km1,bi,bj)-theta(i, j ,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1051 |
GMREDI_CALC_TENSOR |
& (theta(i,j-1,k,bi,bj)-theta(i,j-1,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1053 |
GMREDI_CALC_TENSOR |
& (theta(i, j ,k,bi,bj)-theta(i, j ,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1055 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = dxG(i,j,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1056 |
GMREDI_CALC_TENSOR |
& * _hFacS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1060 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(tmp1k, 'GM_KvzTz', k,1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1147 |
GMREDI_CALC_TENSOR_DUMMY |
INTEGER i, j, k |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1149 |
GMREDI_CALC_TENSOR_DUMMY |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1152 |
GMREDI_CALC_TENSOR_DUMMY |
Kwx(i,j,k,bi,bj) = 0.0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1153 |
GMREDI_CALC_TENSOR_DUMMY |
Kwy(i,j,k,bi,bj) = 0.0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1154 |
GMREDI_CALC_TENSOR_DUMMY |
Kwz(i,j,k,bi,bj) = 0.0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
220 |
GMREDI_CALC_TENSOR |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_tensor.F |
223 |
GMREDI_CALC_TENSOR |
GM_PsiX(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
224 |
GMREDI_CALC_TENSOR |
GM_PsiY(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
230 |
GMREDI_CALC_TENSOR |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_tensor.F |
233 |
GMREDI_CALC_TENSOR |
Kwx(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
234 |
GMREDI_CALC_TENSOR |
Kwy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
235 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
237 |
GMREDI_CALC_TENSOR |
Kux(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
238 |
GMREDI_CALC_TENSOR |
Kvy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
241 |
GMREDI_CALC_TENSOR |
Kuz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
242 |
GMREDI_CALC_TENSOR |
Kvz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
295 |
GMREDI_CALC_TENSOR |
DO k=Nr,2,-1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
314 |
GMREDI_CALC_TENSOR |
dSigmaDx(i,j)=op25*( sigmaX(i+1,j,k-1)+sigmaX(i,j,k-1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
315 |
GMREDI_CALC_TENSOR |
& +sigmaX(i+1,j, k )+sigmaX(i,j, k ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
316 |
GMREDI_CALC_TENSOR |
& )*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
317 |
GMREDI_CALC_TENSOR |
dSigmaDy(i,j)=op25*( sigmaY(i,j+1,k-1)+sigmaY(i,j,k-1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
318 |
GMREDI_CALC_TENSOR |
& +sigmaY(i,j+1, k )+sigmaY(i,j, k ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
319 |
GMREDI_CALC_TENSOR |
& )*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
327 |
GMREDI_CALC_TENSOR |
& -rC(k-1).LT.GM_Visbeck_depth ) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
331 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j) = MIN( sigmaR(i,j,k), 0. _d 0 ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
345 |
GMREDI_CALC_TENSOR |
IF ( maskC(i,j,k,bi,bj).NE.0. ) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
352 |
GMREDI_CALC_TENSOR |
deltaH = integrDepth + rC(k-1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
356 |
GMREDI_CALC_TENSOR |
deltaH = MIN( deltaH, drC(k) ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
369 |
GMREDI_CALC_TENSOR |
& + maskC(i-1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
370 |
GMREDI_CALC_TENSOR |
& + maskC(i+1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
371 |
GMREDI_CALC_TENSOR |
& + maskC(i,j-1,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
372 |
GMREDI_CALC_TENSOR |
& + maskC(i,j+1,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
407 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j)=sigmaR(i,j,k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
412 |
GMREDI_CALC_TENSOR |
kkey = (igmkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_calc_tensor.F |
430 |
GMREDI_CALC_TENSOR |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
435 |
GMREDI_CALC_TENSOR |
SlopeX(i,j)=SlopeX(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
436 |
GMREDI_CALC_TENSOR |
SlopeY(i,j)=SlopeY(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
437 |
GMREDI_CALC_TENSOR |
SlopeSqr(i,j)=SlopeSqr(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
452 |
GMREDI_CALC_TENSOR |
Kwx(i,j,k,bi,bj)= SlopeX(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
453 |
GMREDI_CALC_TENSOR |
Kwy(i,j,k,bi,bj)= SlopeY(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
454 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj)= SlopeSqr(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
472 |
GMREDI_CALC_TENSOR |
deltaH=abs(GM_Visbeck_depth)-abs(rF(k)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
474 |
GMREDI_CALC_TENSOR |
integrDepth = drF(k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
519 |
GMREDI_CALC_TENSOR |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_calc_tensor.F |
521 |
GMREDI_CALC_TENSOR |
kkey = (igmkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_calc_tensor.F |
529 |
GMREDI_CALC_TENSOR |
km1 = MAX(k-1,1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
531 |
GMREDI_CALC_TENSOR |
& *(GM_isoFac1d(km1)+GM_isoFac1d(k))*op5 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
533 |
GMREDI_CALC_TENSOR |
& *(GM_bolFac1d(km1)+GM_bolFac1d(k))*op5 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
538 |
GMREDI_CALC_TENSOR |
Kgm_tmp = kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
540 |
GMREDI_CALC_TENSOR |
Kgm_tmp = op5*(kapRedi(i,j,k,bi,bj)+kapRedi(i,j,km1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
547 |
GMREDI_CALC_TENSOR |
& + GM_skewflx*kapGM(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
549 |
GMREDI_CALC_TENSOR |
& + GM_skewflx*op5*(kapGM(i,j,k,bi,bj)+kapGM(i,j,km1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
558 |
GMREDI_CALC_TENSOR |
& + op5*(K3D(i,j,k,bi,bj)+K3D(i,j,km1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
561 |
GMREDI_CALC_TENSOR |
Kwx(i,j,k,bi,bj)= Kgm_tmp*Kwx(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
562 |
GMREDI_CALC_TENSOR |
Kwy(i,j,k,bi,bj)= Kgm_tmp*Kwy(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
565 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj)= ( kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
567 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj)= ( op5*(kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
571 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj)= ( isopycK*GM_isoFac2d(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
577 |
GMREDI_CALC_TENSOR |
& + op5*(K3D(i,j,k,bi,bj)+K3D(i,j,km1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
579 |
GMREDI_CALC_TENSOR |
& )*Kwz(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
667 |
GMREDI_CALC_TENSOR |
DO k=Nr,1,-1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
668 |
GMREDI_CALC_TENSOR |
kp1 = MIN(Nr,k+1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
670 |
GMREDI_CALC_TENSOR |
IF (k.GE.Nr) maskp1 = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
672 |
GMREDI_CALC_TENSOR |
kkey = (igmkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_calc_tensor.F |
678 |
GMREDI_CALC_TENSOR |
dSigmaDx(i,j)=sigmaX(i,j,k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
679 |
GMREDI_CALC_TENSOR |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
680 |
GMREDI_CALC_TENSOR |
dSigmaDy(i,j)=op25*( sigmaY(i-1,j+1,k)+sigmaY(i,j+1,k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
681 |
GMREDI_CALC_TENSOR |
& +sigmaY(i-1, j ,k)+sigmaY(i, j ,k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
682 |
GMREDI_CALC_TENSOR |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
683 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j)=op25*( sigmaR(i-1,j, k )+sigmaR(i,j, k ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
685 |
GMREDI_CALC_TENSOR |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
709 |
GMREDI_CALC_TENSOR |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
720 |
GMREDI_CALC_TENSOR |
Kux(i,j,k,bi,bj) = |
|
./pkg/gmredi/gmredi_calc_tensor.F |
723 |
GMREDI_CALC_TENSOR |
& ( kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
725 |
GMREDI_CALC_TENSOR |
& ( op5*(kapRedi(i,j,k,bi,bj)+kapRedi(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
728 |
GMREDI_CALC_TENSOR |
& ( GM_isopycK*GM_isoFac1d(k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
735 |
GMREDI_CALC_TENSOR |
& +op5*(K3D(i,j,k,bi,bj)+K3D(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
747 |
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 |
75 |
GMREDI_CALC_TENSOR |
INTEGER i,j,k |
|
./pkg/gmredi/gmredi_calc_tensor.F |
762 |
GMREDI_CALC_TENSOR |
Kuz(i,j,k,bi,bj) = |
|
./pkg/gmredi/gmredi_calc_tensor.F |
765 |
GMREDI_CALC_TENSOR |
& ( kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
767 |
GMREDI_CALC_TENSOR |
& ( op5*(kapRedi(i,j,k,bi,bj)+kapRedi(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
770 |
GMREDI_CALC_TENSOR |
& ( GM_isopycK*GM_isoFac1d(k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
775 |
GMREDI_CALC_TENSOR |
& - GM_skewflx*kapGM(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
777 |
GMREDI_CALC_TENSOR |
& - GM_skewflx*op5*(kapGM(i,j,k,bi,bj)+kapGM(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
780 |
GMREDI_CALC_TENSOR |
& - GM_skewflx*GM_background_K*GM_bolFac1d(k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
787 |
GMREDI_CALC_TENSOR |
& +op5*(K3D(i,j,k,bi,bj)+K3D(i-1,j,k,bi,bj))*GM_advect |
|
./pkg/gmredi/gmredi_calc_tensor.F |
797 |
GMREDI_CALC_TENSOR |
km1 = MAX(k-1,1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
803 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = ( kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
805 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = ( op5*(kapRedi(i-1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
806 |
GMREDI_CALC_TENSOR |
& +kapRedi(i,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
809 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = ( GM_isopycK*GM_isoFac1d(k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
816 |
GMREDI_CALC_TENSOR |
& +op5*(K3D(i,j,k,bi,bj)+K3D(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
825 |
GMREDI_CALC_TENSOR |
& +recip_drC(k)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
826 |
GMREDI_CALC_TENSOR |
& ( maskC(i-1,j,k,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
827 |
GMREDI_CALC_TENSOR |
& (theta(i-1,j,km1,bi,bj)-theta(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
828 |
GMREDI_CALC_TENSOR |
& +maskC( i ,j,k,bi,bj)* |
|
./pkg/gmredi/gmredi_calc_tensor.F |
829 |
GMREDI_CALC_TENSOR |
& (theta( i ,j,km1,bi,bj)-theta( i ,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
833 |
GMREDI_CALC_TENSOR |
& (theta(i-1,j,k,bi,bj)-theta(i-1,j,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
835 |
GMREDI_CALC_TENSOR |
& (theta( i ,j,k,bi,bj)-theta( i ,j,kp1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
837 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = dyG(i,j,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
838 |
GMREDI_CALC_TENSOR |
& * _hFacW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
842 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(tmp1k, 'GM_KuzTz', k,1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
885 |
GMREDI_CALC_TENSOR |
DO k=Nr,1,-1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
886 |
GMREDI_CALC_TENSOR |
kp1 = MIN(Nr,k+1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
888 |
GMREDI_CALC_TENSOR |
IF (k.GE.Nr) maskp1 = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
890 |
GMREDI_CALC_TENSOR |
kkey = (igmkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_calc_tensor.F |
895 |
GMREDI_CALC_TENSOR |
dSigmaDx(i,j)=op25*( sigmaX(i, j ,k) +sigmaX(i+1, j ,k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
896 |
GMREDI_CALC_TENSOR |
& +sigmaX(i,j-1,k) +sigmaX(i+1,j-1,k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
897 |
GMREDI_CALC_TENSOR |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
898 |
GMREDI_CALC_TENSOR |
dSigmaDy(i,j)=sigmaY(i,j,k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
899 |
GMREDI_CALC_TENSOR |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
900 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j)=op25*( sigmaR(i,j-1, k )+sigmaR(i,j, k ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
902 |
GMREDI_CALC_TENSOR |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
924 |
GMREDI_CALC_TENSOR |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
938 |
GMREDI_CALC_TENSOR |
Kvy(i,j,k,bi,bj) = |
|
./pkg/gmredi/gmredi_calc_tensor.F |
941 |
GMREDI_CALC_TENSOR |
& ( kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
943 |
GMREDI_CALC_TENSOR |
& ( op5*(kapRedi(i,j,k,bi,bj)+kapRedi(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
946 |
GMREDI_CALC_TENSOR |
& ( GM_isopycK*GM_isoFac1d(k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
953 |
GMREDI_CALC_TENSOR |
& +op5*(K3D(i,j,k,bi,bj)+K3D(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
965 |
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 |
980 |
GMREDI_CALC_TENSOR |
Kvz(i,j,k,bi,bj) = |
|
./pkg/gmredi/gmredi_calc_tensor.F |
983 |
GMREDI_CALC_TENSOR |
& ( kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
985 |
GMREDI_CALC_TENSOR |
& ( op5*(kapRedi(i,j,k,bi,bj)+kapRedi(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
988 |
GMREDI_CALC_TENSOR |
& ( GM_isopycK*GM_isoFac1d(k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
993 |
GMREDI_CALC_TENSOR |
& - GM_skewflx*kapGM(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
995 |
GMREDI_CALC_TENSOR |
& - GM_skewflx*op5*(kapGM(i,j,k,bi,bj)+kapGM(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
998 |
GMREDI_CALC_TENSOR |
& - GM_skewflx*GM_background_K*GM_bolFac1d(k) |
|
./pkg/gmredi/gmredi_calc_urms.F |
43 |
GMREDI_CALC_URMS |
INTEGER i,j,k |
|
./pkg/gmredi/gmredi_calc_urms.F |
60 |
GMREDI_CALC_URMS |
k = kLowC(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_urms.F |
61 |
GMREDI_CALC_URMS |
IF (k.GT.2) THEN |
|
./pkg/gmredi/gmredi_calc_urms.F |
62 |
GMREDI_CALC_URMS |
const(i,j) = (urms(i,j,k)-urms(i,j,1)) |
|
./pkg/gmredi/gmredi_calc_urms.F |
63 |
GMREDI_CALC_URMS |
& /(modesC(1,i,j,k,bi,bj)-modesC(1,i,j,1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_urms.F |
70 |
GMREDI_CALC_URMS |
DO k=2,Nr |
|
./pkg/gmredi/gmredi_calc_urms.F |
73 |
GMREDI_CALC_URMS |
IF (k.LT.kLowC(i,j,bi,bj)) THEN |
|
./pkg/gmredi/gmredi_calc_urms.F |
74 |
GMREDI_CALC_URMS |
urms(i,j,k) = urms(i,j,1) + |
|
./pkg/gmredi/gmredi_calc_urms.F |
75 |
GMREDI_CALC_URMS |
& const(i,j)*(modesC(1,i,j,k,bi,bj)-modesC(1,i,j,1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_urms.F |
77 |
GMREDI_CALC_URMS |
urms(i,j,k)=zeroRL |
|
./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_diagnostics_impl.F |
45 |
GMREDI_DIAGNOSTICS_IMPL |
INTEGER i,j,k |
|
./pkg/gmredi/gmredi_diagnostics_impl.F |
57 |
GMREDI_DIAGNOSTICS_IMPL |
DO k=2,Nr |
|
./pkg/gmredi/gmredi_diagnostics_impl.F |
60 |
GMREDI_DIAGNOSTICS_IMPL |
tmpVar(i,j) = -recip_drC(k)*rkSign |
|
./pkg/gmredi/gmredi_diagnostics_impl.F |
61 |
GMREDI_DIAGNOSTICS_IMPL |
& *(theta(i,j,k,bi,bj)-theta(i,j,k-1,bi,bj)) |
|
./pkg/gmredi/gmredi_diagnostics_impl.F |
62 |
GMREDI_DIAGNOSTICS_IMPL |
& * maskC(i,j,k,bi,bj)*maskC(i,j,k-1,bi,bj) |
|
./pkg/gmredi/gmredi_diagnostics_impl.F |
63 |
GMREDI_DIAGNOSTICS_IMPL |
tmpVar(i,j) = tmpVar(i,j)*Kwz(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_diagnostics_impl.F |
68 |
GMREDI_DIAGNOSTICS_IMPL |
& k, 1, 2, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_init_fixed.F |
42 |
GMREDI_INIT_FIXED |
INTEGER i,j,k |
|
./pkg/gmredi/gmredi_init_fixed.F |
70 |
GMREDI_INIT_FIXED |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_init_fixed.F |
71 |
GMREDI_INIT_FIXED |
GM_isoFac1d(k) = 1. _d 0 |
|
./pkg/gmredi/gmredi_init_fixed.F |
72 |
GMREDI_INIT_FIXED |
GM_bolFac1d(k) = 1. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
39 |
GMREDI_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/gmredi/gmredi_init_varia.F |
45 |
GMREDI_INIT_VARIA |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_init_varia.F |
48 |
GMREDI_INIT_VARIA |
Kwx(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
49 |
GMREDI_INIT_VARIA |
Kwy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
50 |
GMREDI_INIT_VARIA |
Kwz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
52 |
GMREDI_INIT_VARIA |
Kuz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
53 |
GMREDI_INIT_VARIA |
Kvz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
56 |
GMREDI_INIT_VARIA |
Kux(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
57 |
GMREDI_INIT_VARIA |
Kvy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
60 |
GMREDI_INIT_VARIA |
GM_PsiX(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
61 |
GMREDI_INIT_VARIA |
GM_PsiY(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
67 |
GMREDI_INIT_VARIA |
K3D(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_k3d.F |
1036 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
1039 |
GMREDI_K3D |
ustar(i,j,k) = -RenormU(i,j)*Xix(i,j,k)/coriU(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
1045 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
1048 |
GMREDI_K3D |
vstar(i,j,k) = -RenormV(i,j)*Xiy(i,j,k)/coriV(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
1057 |
GMREDI_K3D |
k=Nr |
|
./pkg/gmredi/gmredi_k3d.F |
1060 |
GMREDI_K3D |
psistar(i,j,Nr) = -hfacS(i,j,k,bi,bj)*drF(k)*vstar(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
1063 |
GMREDI_K3D |
DO k=Nr-1,1,-1 |
|
./pkg/gmredi/gmredi_k3d.F |
1066 |
GMREDI_K3D |
psistar(i,j,k) = psistar(i,j,k+1) |
|
./pkg/gmredi/gmredi_k3d.F |
1067 |
GMREDI_K3D |
& - hfacS(i,j,k,bi,bj)*drF(k)*vstar(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
1075 |
GMREDI_K3D |
k=Nr |
|
./pkg/gmredi/gmredi_k3d.F |
1078 |
GMREDI_K3D |
GM_PsiX(i,j,k,bi,bj) = -hfacW(i,j,k,bi,bj)*drF(k)*ustar(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
1079 |
GMREDI_K3D |
GM_PsiY(i,j,k,bi,bj) = -hfacS(i,j,k,bi,bj)*drF(k)*vstar(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
1082 |
GMREDI_K3D |
DO k=Nr-1,1,-1 |
|
./pkg/gmredi/gmredi_k3d.F |
1085 |
GMREDI_K3D |
GM_PsiX(i,j,k,bi,bj) = GM_PsiX(i,j,k+1,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
1086 |
GMREDI_K3D |
& - hfacW(i,j,k,bi,bj)*drF(k)*ustar(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
1087 |
GMREDI_K3D |
GM_PsiY(i,j,k,bi,bj) = GM_PsiY(i,j,k+1,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
1088 |
GMREDI_K3D |
& - hfacS(i,j,k,bi,bj)*drF(k)*vstar(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
1140 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
1143 |
GMREDI_K3D |
K3D(i,j,k,bi,bj) = GM_K3D_constK |
|
./pkg/gmredi/gmredi_k3d.F |
302 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
305 |
GMREDI_K3D |
slopeC(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
319 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
322 |
GMREDI_K3D |
N2loc(i,j,k)=GM_K3D_minN2 |
|
./pkg/gmredi/gmredi_k3d.F |
323 |
GMREDI_K3D |
N2W(i,j,k) = GM_K3D_minN2 |
|
./pkg/gmredi/gmredi_k3d.F |
324 |
GMREDI_K3D |
N2S(i,j,k) = GM_K3D_minN2 |
|
./pkg/gmredi/gmredi_k3d.F |
325 |
GMREDI_K3D |
M4loc(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
326 |
GMREDI_K3D |
M4onN2(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
327 |
GMREDI_K3D |
urms(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
328 |
GMREDI_K3D |
SlopeX(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
329 |
GMREDI_K3D |
SlopeY(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
330 |
GMREDI_K3D |
dSigmaDx(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
331 |
GMREDI_K3D |
dSigmaDy(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
332 |
GMREDI_K3D |
gradqx(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
333 |
GMREDI_K3D |
gradqy(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
341 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
344 |
GMREDI_K3D |
uFldX(i,j,k) = uEulerMean(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
345 |
GMREDI_K3D |
vFldY(i,j,k) = vEulerMean(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
351 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
354 |
GMREDI_K3D |
uFldX(i,j,k) = uVel(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
355 |
GMREDI_K3D |
vFldY(i,j,k) = vVel(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
367 |
GMREDI_K3D |
DO k = 1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
379 |
GMREDI_K3D |
& *( uFldX(i+1,j,k) + uFldX(i,j,k) ) |
|
./pkg/gmredi/gmredi_k3d.F |
381 |
GMREDI_K3D |
& *( vFldY(i,j+1,k) + vFldY(i,j,k) ) |
|
./pkg/gmredi/gmredi_k3d.F |
383 |
GMREDI_K3D |
tmpU(i,j) = tmpU(i,j) * maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
384 |
GMREDI_K3D |
tmpV(i,j) = tmpV(i,j) * maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
390 |
GMREDI_K3D |
ubar(i,j,k) = |
|
./pkg/gmredi/gmredi_k3d.F |
400 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
404 |
GMREDI_K3D |
& drF(k)*hfacC(i,j,k,bi,bj)*ubar(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
420 |
GMREDI_K3D |
DO k=2,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
423 |
GMREDI_K3D |
N2(i,j,k) = -gravity*recip_rhoConst*sigmaR(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
424 |
GMREDI_K3D |
N2(i,j,k) = MAX(N2(i,j,k),GM_K3D_minN2)*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
425 |
GMREDI_K3D |
N(i,j,k) = SQRT(N2(i,j,k)) |
|
./pkg/gmredi/gmredi_k3d.F |
441 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
442 |
GMREDI_K3D |
kp1 = min(k+1,Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
444 |
GMREDI_K3D |
IF ( k.EQ.Nr ) mskp1 = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
447 |
GMREDI_K3D |
BVint(i,j) = BVint(i,j) + hFacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
448 |
GMREDI_K3D |
& *op5*(N(i,j,k)+mskp1*N(i,j,kp1)) |
|
./pkg/gmredi/gmredi_k3d.F |
472 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
475 |
GMREDI_K3D |
dSigmaDx(i,j,k) = op5*(sigmaX(i,j,k)+sigmaX(i+1,j,k)) |
|
./pkg/gmredi/gmredi_k3d.F |
476 |
GMREDI_K3D |
dSigmaDy(i,j,k) = op5*(sigmaY(i,j,k)+sigmaY(i,j+1,k)) |
|
./pkg/gmredi/gmredi_k3d.F |
484 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
486 |
GMREDI_K3D |
kp1 = min(k+1,Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
488 |
GMREDI_K3D |
IF ( k.EQ.Nr ) mskp1 = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
492 |
GMREDI_K3D |
M4loc(i,j,k) = g_reciprho_sq*( dSigmaDx(i,j,k)**2 |
|
./pkg/gmredi/gmredi_k3d.F |
493 |
GMREDI_K3D |
& +dSigmaDy(i,j,k)**2 ) |
|
./pkg/gmredi/gmredi_k3d.F |
494 |
GMREDI_K3D |
N2loc(i,j,k) = op5*(N2(i,j,k)+mskp1*N2(i,j,kp1)) |
|
./pkg/gmredi/gmredi_k3d.F |
499 |
GMREDI_K3D |
IF (-rF(k+1) .LE. GM_K3D_EadyMinDepth) CYCLE |
|
./pkg/gmredi/gmredi_k3d.F |
503 |
GMREDI_K3D |
IF (-rF(k).GE.GM_K3D_EadyMaxDepth) EXIT |
|
./pkg/gmredi/gmredi_k3d.F |
508 |
GMREDI_K3D |
IF ( (kLow_C(i,j).GE.k) .AND. |
|
./pkg/gmredi/gmredi_k3d.F |
509 |
GMREDI_K3D |
& (-hMixLayer(i,j,bi,bj).LE.-rC(k)) ) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
511 |
GMREDI_K3D |
slopeC(i,j,k) = SQRT(M4loc(i,j,k))/N2loc(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
513 |
GMREDI_K3D |
IF (slopeC(i,j,k).LE.GM_maxSlope) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
514 |
GMREDI_K3D |
M4onN2(i,j,k) = M4loc(i,j,k)/N2loc(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
516 |
GMREDI_K3D |
slopeC(i,j,k) = GM_maxslope |
|
./pkg/gmredi/gmredi_k3d.F |
517 |
GMREDI_K3D |
M4onN2(i,j,k) = SQRT(M4loc(i,j,k))*GM_maxslope |
|
./pkg/gmredi/gmredi_k3d.F |
520 |
GMREDI_K3D |
& + hfacC(i,j,k,bi,bj)*drF(k)*M4onN2(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
521 |
GMREDI_K3D |
deltaH(i,j) = deltaH(i,j) + drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
52 |
GMREDI_K3D |
INTEGER i,j,k,kk,m,kp1 |
|
./pkg/gmredi/gmredi_k3d.F |
556 |
GMREDI_K3D |
k=kLow_C(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
557 |
GMREDI_K3D |
IF (k.GT.0) urms(i,j,k) = 0.0 |
|
./pkg/gmredi/gmredi_k3d.F |
584 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
587 |
GMREDI_K3D |
IF (k.LE.kLow_C(i,j)) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
589 |
GMREDI_K3D |
K3D(i,j,k,bi,bj) = GM_K3D_smallK |
|
./pkg/gmredi/gmredi_k3d.F |
591 |
GMREDI_K3D |
IF (urms(i,j,k).EQ.0.0) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
592 |
GMREDI_K3D |
K3D(i,j,k,bi,bj) = GM_K3D_smallK |
|
./pkg/gmredi/gmredi_k3d.F |
594 |
GMREDI_K3D |
umc(i,j,k) =ubar(i,j,k) - cDopp(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
595 |
GMREDI_K3D |
supp(i,j,k)=1./(1.+GM_K3D_b1*umc(i,j,k)**2/urms(i,j,1)**2) |
|
./pkg/gmredi/gmredi_k3d.F |
597 |
GMREDI_K3D |
K3D(i,j,k,bi,bj) = GM_K3D_gamma*urms(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
598 |
GMREDI_K3D |
& *2.*Rmix(i,j)*supp(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
602 |
GMREDI_K3D |
K3D(i,j,k,bi,bj) = MIN(K3D(i,j,k,bi,bj),GM_maxK3D) |
|
./pkg/gmredi/gmredi_k3d.F |
603 |
GMREDI_K3D |
K3D(i,j,k,bi,bj) = MAX(K3D(i,j,k,bi,bj),GM_K3D_smallK) |
|
./pkg/gmredi/gmredi_k3d.F |
626 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
629 |
GMREDI_K3D |
IF (rF(k).GT.surfkz(i,j) .AND. surfkz(i,j).GE.rF(k+1)) |
|
./pkg/gmredi/gmredi_k3d.F |
630 |
GMREDI_K3D |
& surfk(i,j) = k |
|
./pkg/gmredi/gmredi_k3d.F |
642 |
GMREDI_K3D |
DO k=2,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
648 |
GMREDI_K3D |
SlopeX(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
649 |
GMREDI_K3D |
SlopeY(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
653 |
GMREDI_K3D |
sigz = MIN( op5*(sigmaR(i,j,k)+sigmaR(i-1,j,k)), maxDRhoDz ) |
|
./pkg/gmredi/gmredi_k3d.F |
654 |
GMREDI_K3D |
sigx = op5*( sigmaX(i,j,k)+sigmaX(i,j,k-1) ) |
|
./pkg/gmredi/gmredi_k3d.F |
658 |
GMREDI_K3D |
SlopeX(i,j,k)=-maskW(i,j,k-1,bi,bj)*maskW(i,j,k,bi,bj)*slope |
|
./pkg/gmredi/gmredi_k3d.F |
661 |
GMREDI_K3D |
sigz = MIN( op5*(sigmaR(i,j,k)+sigmaR(i,j-1,k)), maxDRhoDz ) |
|
./pkg/gmredi/gmredi_k3d.F |
662 |
GMREDI_K3D |
sigy = op5*( sigmaY(i,j,k) + sigmaY(i,j,k-1) ) |
|
./pkg/gmredi/gmredi_k3d.F |
666 |
GMREDI_K3D |
SlopeY(i,j,k)=-maskS(i,j,k-1,bi,bj)*maskS(i,j,k,bi,bj)*slope |
|
./pkg/gmredi/gmredi_k3d.F |
675 |
GMREDI_K3D |
k=Nr |
|
./pkg/gmredi/gmredi_k3d.F |
679 |
GMREDI_K3D |
tfluxX(i,j,k) = -fCoriU(i,j)*SlopeX(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
680 |
GMREDI_K3D |
& *recip_drF(k)*recip_hFacW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
682 |
GMREDI_K3D |
tfluxY(i,j,k) = -fCoriV(i,j)*SlopeY(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
683 |
GMREDI_K3D |
& *recip_drF(k)*recip_hFacS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
687 |
GMREDI_K3D |
KPV(i,j,k) = K3D(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
693 |
GMREDI_K3D |
DO k=Nr-1,1,-1 |
|
./pkg/gmredi/gmredi_k3d.F |
697 |
GMREDI_K3D |
tfluxX(i,j,k)=-fCoriU(i,j)*(SlopeX(i,j,k)-SlopeX(i,j,k+1)) |
|
./pkg/gmredi/gmredi_k3d.F |
698 |
GMREDI_K3D |
& *recip_drF(k)*recip_hFacW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
699 |
GMREDI_K3D |
& *maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
701 |
GMREDI_K3D |
tfluxY(i,j,k)=-fCoriV(i,j)*(SlopeY(i,j,k)-SlopeY(i,j,k+1)) |
|
./pkg/gmredi/gmredi_k3d.F |
702 |
GMREDI_K3D |
& *recip_drF(k)*recip_hFacS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
703 |
GMREDI_K3D |
& *maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
707 |
GMREDI_K3D |
KPV(i,j,k) = K3D(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
715 |
GMREDI_K3D |
DO k=Nr-1,1,-1 |
|
./pkg/gmredi/gmredi_k3d.F |
718 |
GMREDI_K3D |
IF(k.LE.surfk(i,j)) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
737 |
GMREDI_K3D |
tfluxX(i,j,k) = -fCoriU(i,j)*maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
740 |
GMREDI_K3D |
tfluxX(i,j,k) = -fCoriU(i,j)*maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
744 |
GMREDI_K3D |
tfluxX(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
756 |
GMREDI_K3D |
tfluxY(i,j,k) = -fCoriV(i,j)*maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
759 |
GMREDI_K3D |
tfluxY(i,j,k) = -fCoriV(i,j)*maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
763 |
GMREDI_K3D |
tfluxY(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
769 |
GMREDI_K3D |
KPV(i,j,k) = GM_K3D_constK |
|
./pkg/gmredi/gmredi_k3d.F |
780 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
783 |
GMREDI_K3D |
gradqx(i,j,k) = maskW(i,j,k,bi,bj)*tfluxX(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
784 |
GMREDI_K3D |
gradqy(i,j,k) = maskS(i,j,k,bi,bj)*tfluxY(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
791 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
794 |
GMREDI_K3D |
gradqx(i,j,k) = maskW(i,j,k,bi,bj)*(dfdx(i,j)+tfluxX(i,j,k)) |
|
./pkg/gmredi/gmredi_k3d.F |
795 |
GMREDI_K3D |
gradqy(i,j,k) = maskS(i,j,k,bi,bj)*(dfdy(i,j)+tfluxY(i,j,k)) |
|
./pkg/gmredi/gmredi_k3d.F |
806 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
809 |
GMREDI_K3D |
N2W(i,j,k) = maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
810 |
GMREDI_K3D |
& *( N2(i,j,k)+N2(i-1,j,k) ) |
|
./pkg/gmredi/gmredi_k3d.F |
811 |
GMREDI_K3D |
N2S(i,j,k) = maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
812 |
GMREDI_K3D |
& *( N2(i,j,k)+N2(i,j-1,k) ) |
|
./pkg/gmredi/gmredi_k3d.F |
822 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
825 |
GMREDI_K3D |
KPV(i,j,k) = GM_K3D_constK |
|
./pkg/gmredi/gmredi_k3d.F |
835 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
838 |
GMREDI_K3D |
Xix(i,j,k) = -maskW(i,j,k,bi,bj)*KPV(i,j,k)*gradqx(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
839 |
GMREDI_K3D |
Xiy(i,j,k) = -maskS(i,j,k,bi,bj)*KPV(i,j,k)*gradqy(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
868 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
872 |
GMREDI_K3D |
Kdqdx(i,j,k) = KPV(i,j,k)*gradqx(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
874 |
GMREDI_K3D |
& - maskW(i,j,k,bi,bj)*drF(k)*hfacW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
875 |
GMREDI_K3D |
& *Kdqdx(i,j,k)*modesW(m,i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
882 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
885 |
GMREDI_K3D |
Xix(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
889 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
893 |
GMREDI_K3D |
Xix(i,j,k) = Xix(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
894 |
GMREDI_K3D |
& + maskW(i,j,k,bi,bj)*XimX(m,i,j)*modesW(m,i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
919 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
923 |
GMREDI_K3D |
Kdqdy(i,j,k) = KPV(i,j,k)*gradqy(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
925 |
GMREDI_K3D |
& - drF(k)*hfacS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
926 |
GMREDI_K3D |
& *Kdqdy(i,j,k)*modesS(m,i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
933 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
936 |
GMREDI_K3D |
Xiy(i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
940 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
944 |
GMREDI_K3D |
Xiy(i,j,k) = Xiy(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
945 |
GMREDI_K3D |
& + maskS(i,j,k,bi,bj)*XimY(m,i,j)*modesS(m,i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
970 |
GMREDI_K3D |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_k3d.F |
973 |
GMREDI_K3D |
centreX = op5*(uVel(i,j,k,bi,bj)+uVel(i+1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_k3d.F |
974 |
GMREDI_K3D |
centreY = op5*(Kdqdy(i,j,k) +Kdqdy(i,j+1,k) ) |
|
./pkg/gmredi/gmredi_k3d.F |
977 |
GMREDI_K3D |
& + centreX*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
979 |
GMREDI_K3D |
& + centreY*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
981 |
GMREDI_K3D |
& + centreX*centreY*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
983 |
GMREDI_K3D |
centreY = op5*(Xiy(i,j,k) + Xiy(i,j+1,k)) |
|
./pkg/gmredi/gmredi_k3d.F |
985 |
GMREDI_K3D |
& + centreX*centreY*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
987 |
GMREDI_K3D |
centreX = op5*(Kdqdx(i,j,k) +Kdqdx(i+1,j,k)) |
|
./pkg/gmredi/gmredi_k3d.F |
988 |
GMREDI_K3D |
centreY = op5*(vVel(i,j,k,bi,bj)+vVel(i,j+1,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_k3d.F |
991 |
GMREDI_K3D |
& + centreY*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
993 |
GMREDI_K3D |
& + CentreX*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
995 |
GMREDI_K3D |
& + centreY*centreX*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
997 |
GMREDI_K3D |
centreX = op5*(Xix(i,j,k) + Xix(i+1,j,k)) |
|
./pkg/gmredi/gmredi_k3d.F |
999 |
GMREDI_K3D |
& + centreY*centreX*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_read_pickup.F |
145 |
GMREDI_READ_PICKUP |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_read_pickup.F |
148 |
GMREDI_READ_PICKUP |
modesC(1,i,j,k,bi,bj) = vec(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_read_pickup.F |
163 |
GMREDI_READ_PICKUP |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_read_pickup.F |
166 |
GMREDI_READ_PICKUP |
modesW(n,i,j,k,bi,bj) = vec(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_read_pickup.F |
182 |
GMREDI_READ_PICKUP |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_read_pickup.F |
185 |
GMREDI_READ_PICKUP |
modesS(n,i,j,k,bi,bj) = vec(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_read_pickup.F |
46 |
GMREDI_READ_PICKUP |
INTEGER i,j,k,n,nm,ioUnit,bi,bj |
|
./pkg/gmredi/gmredi_residual_flow.F |
100 |
GMREDI_RESIDUAL_FLOW |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_residual_flow.F |
102 |
GMREDI_RESIDUAL_FLOW |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_residual_flow.F |
107 |
GMREDI_RESIDUAL_FLOW |
& - GM_PsiX(i,j, k, bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
108 |
GMREDI_RESIDUAL_FLOW |
ustar = delPsi*recip_drF(k)*_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
109 |
GMREDI_RESIDUAL_FLOW |
uEulerMean(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) - ustar |
|
./pkg/gmredi/gmredi_residual_flow.F |
115 |
GMREDI_RESIDUAL_FLOW |
& - GM_PsiY(i,j, k, bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
116 |
GMREDI_RESIDUAL_FLOW |
vstar = delPsi*recip_drF(k)*_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
117 |
GMREDI_RESIDUAL_FLOW |
vEulerMean(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) - vstar |
|
./pkg/gmredi/gmredi_residual_flow.F |
48 |
GMREDI_RESIDUAL_FLOW |
INTEGER i, j, k |
|
./pkg/gmredi/gmredi_residual_flow.F |
60 |
GMREDI_RESIDUAL_FLOW |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_residual_flow.F |
61 |
GMREDI_RESIDUAL_FLOW |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_residual_flow.F |
63 |
GMREDI_RESIDUAL_FLOW |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_residual_flow.F |
68 |
GMREDI_RESIDUAL_FLOW |
& - GM_PsiX(i,j, k, bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
69 |
GMREDI_RESIDUAL_FLOW |
uFld(i,j,k) = uFld(i,j,k) |
|
./pkg/gmredi/gmredi_residual_flow.F |
70 |
GMREDI_RESIDUAL_FLOW |
& + delPsi*recip_drF(k)*_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
76 |
GMREDI_RESIDUAL_FLOW |
& - GM_PsiY(i,j, k, bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
77 |
GMREDI_RESIDUAL_FLOW |
vFld(i,j,k) = vFld(i,j,k) |
|
./pkg/gmredi/gmredi_residual_flow.F |
78 |
GMREDI_RESIDUAL_FLOW |
& + delPsi*recip_drF(k)*_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
83 |
GMREDI_RESIDUAL_FLOW |
delPsi = ( dyG(i+1,j,bi,bj)*GM_PsiX(i+1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
84 |
GMREDI_RESIDUAL_FLOW |
& -dyG( i ,j,bi,bj)*GM_PsiX( i ,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
85 |
GMREDI_RESIDUAL_FLOW |
& +dxG(i,j+1,bi,bj)*GM_PsiY(i,j+1,k,bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
86 |
GMREDI_RESIDUAL_FLOW |
& -dxG(i, j ,bi,bj)*GM_PsiY(i, j ,k,bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
87 |
GMREDI_RESIDUAL_FLOW |
& )*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
88 |
GMREDI_RESIDUAL_FLOW |
wFld(i,j,k) = wFld(i,j,k) + delPsi*recip_rA(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
99 |
GMREDI_RESIDUAL_FLOW |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_rtransport.F |
103 |
GMREDI_RTRANSPORT |
& +op5*(_maskW(i+1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
105 |
GMREDI_RTRANSPORT |
& (Tracer(i+1,j,k)-Tracer(i,j,k)) |
|
./pkg/gmredi/gmredi_rtransport.F |
106 |
GMREDI_RTRANSPORT |
& +_maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
108 |
GMREDI_RTRANSPORT |
& (Tracer(i,j,k)-Tracer(i-1,j,k)) ) |
|
./pkg/gmredi/gmredi_rtransport.F |
109 |
GMREDI_RTRANSPORT |
& +op5*(_maskW(i+1,j,k-1,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
111 |
GMREDI_RTRANSPORT |
& (Tracer(i+1,j,k-1)-Tracer(i,j,k-1)) |
|
./pkg/gmredi/gmredi_rtransport.F |
112 |
GMREDI_RTRANSPORT |
& +_maskW(i,j,k-1,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
114 |
GMREDI_RTRANSPORT |
& (Tracer(i,j,k-1)-Tracer(i-1,j,k-1)) ) |
|
./pkg/gmredi/gmredi_rtransport.F |
118 |
GMREDI_RTRANSPORT |
& +op5*(_maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
120 |
GMREDI_RTRANSPORT |
& (Tracer(i,j,k)-Tracer(i,j-1,k)) |
|
./pkg/gmredi/gmredi_rtransport.F |
121 |
GMREDI_RTRANSPORT |
& +_maskS(i,j+1,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
123 |
GMREDI_RTRANSPORT |
& (Tracer(i,j+1,k)-Tracer(i,j,k)) ) |
|
./pkg/gmredi/gmredi_rtransport.F |
124 |
GMREDI_RTRANSPORT |
& +op5*(_maskS(i,j,k-1,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
126 |
GMREDI_RTRANSPORT |
& (Tracer(i,j,k-1)-Tracer(i,j-1,k-1)) |
|
./pkg/gmredi/gmredi_rtransport.F |
127 |
GMREDI_RTRANSPORT |
& +_maskS(i,j+1,k-1,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
129 |
GMREDI_RTRANSPORT |
& (Tracer(i,j+1,k-1)-Tracer(i,j,k-1)) ) |
|
./pkg/gmredi/gmredi_rtransport.F |
12 |
GMREDI_RTRANSPORT |
I trIdentity, bi, bj, k, |
|
./pkg/gmredi/gmredi_rtransport.F |
148 |
GMREDI_RTRANSPORT |
& *( LS_Kwx(i,j,k,bi,bj)*dTdx(i,j) |
|
./pkg/gmredi/gmredi_rtransport.F |
149 |
GMREDI_RTRANSPORT |
& + LS_Kwy(i,j,k,bi,bj)*dTdy(i,j) ) |
|
./pkg/gmredi/gmredi_rtransport.F |
158 |
GMREDI_RTRANSPORT |
& *( Kwx(i,j,k,bi,bj)*dTdx(i,j) |
|
./pkg/gmredi/gmredi_rtransport.F |
159 |
GMREDI_RTRANSPORT |
& + Kwy(i,j,k,bi,bj)*dTdy(i,j) ) |
|
./pkg/gmredi/gmredi_rtransport.F |
172 |
GMREDI_RTRANSPORT |
& dyG(i+1,j,bi,bj)*GM_PsiX(i+1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
173 |
GMREDI_RTRANSPORT |
& -dyG( i ,j,bi,bj)*GM_PsiX( i ,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
174 |
GMREDI_RTRANSPORT |
& +dxG(i,j+1,bi,bj)*GM_PsiY(i,j+1,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
175 |
GMREDI_RTRANSPORT |
& -dxG(i, j ,bi,bj)*GM_PsiY(i, j ,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
186 |
GMREDI_RTRANSPORT |
& *(Tracer(i,j,k)+Tracer(i,j,k-1)) |
|
./pkg/gmredi/gmredi_rtransport.F |
57 |
GMREDI_RTRANSPORT |
INTEGER bi, bj, k |
|
./pkg/gmredi/gmredi_rtransport.F |
89 |
GMREDI_RTRANSPORT |
kkey = (igadkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_rtransport.F |
97 |
GMREDI_RTRANSPORT |
IF ( useGMRedi .AND. k.GT.1 ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
19 |
GMREDI_SLOPE_LIMIT |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
238 |
GMREDI_SLOPE_LIMIT |
IF ( k.GT.kLow(i,j) ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
267 |
GMREDI_SLOPE_LIMIT |
IF ( k.EQ.1 ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
268 |
GMREDI_SLOPE_LIMIT |
minTransLay = GM_facTrL2dz*( depthZ(k) - depthZ(k+1) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
270 |
GMREDI_SLOPE_LIMIT |
minTransLay = GM_facTrL2dz*( depthZ(k-1) - depthZ(k) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
282 |
GMREDI_SLOPE_LIMIT |
IF ( k.GE.kLow(i,j) ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
289 |
GMREDI_SLOPE_LIMIT |
ELSEIF ( dTransLay+hMixLay(i,j)+depthZ(k) .GE. 0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
291 |
GMREDI_SLOPE_LIMIT |
hTransLay(i,j) = -depthZ(k+1) |
|
./pkg/gmredi/gmredi_slope_limit.F |
300 |
GMREDI_SLOPE_LIMIT |
IF ( hMixLay(i,j)+depthZ(k+1).LT.0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
301 |
GMREDI_SLOPE_LIMIT |
rLambMin = 1. _d 0 /( hMixLay(i,j)+depthZ(k+1) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
308 |
GMREDI_SLOPE_LIMIT |
& ) / ( depthZ(k) - depthZ(k+1) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
323 |
GMREDI_SLOPE_LIMIT |
IF ( -depthZ(k).LE.hMixLay(i,j) ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
326 |
GMREDI_SLOPE_LIMIT |
& ( -depthZ(k)/(hTransLay(i,j)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
331 |
GMREDI_SLOPE_LIMIT |
& ( -depthZ(k)/(hTransLay(i,j)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
338 |
GMREDI_SLOPE_LIMIT |
& ( -depthZ(k)/(hTransLay(i,j)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
341 |
GMREDI_SLOPE_LIMIT |
& - ( (depthZ(k)+hMixLay(i,j))*(depthZ(k)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
348 |
GMREDI_SLOPE_LIMIT |
& ( -depthZ(k)/(hTransLay(i,j)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
352 |
GMREDI_SLOPE_LIMIT |
& - ( (depthZ(k)+hMixLay(i,j))*(depthZ(k)+hMixLay(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
570 |
GMREDI_SLOPE_LIMIT |
Rnondim= -depthZ(k)/(Lrho(i,j)*Smod) |
|
./pkg/gmredi/gmredi_slope_limit.F |
95 |
GMREDI_SLOPE_LIMIT |
INTEGER k, bi,bj |
|
./pkg/gmredi/gmredi_slope_psi.F |
87 |
GMREDI_SLOPE_PSI |
kkey = (igmkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_write_pickup.F |
101 |
GMREDI_WRITE_PICKUP |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_write_pickup.F |
104 |
GMREDI_WRITE_PICKUP |
vec(i,j,k,bi,bj) = modesW(n,i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_write_pickup.F |
121 |
GMREDI_WRITE_PICKUP |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_write_pickup.F |
124 |
GMREDI_WRITE_PICKUP |
vec(i,j,k,bi,bj) = modesS(n,i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_write_pickup.F |
54 |
GMREDI_WRITE_PICKUP |
INTEGER i,j,k,bi,bj,m,n, nm, fp, lChar |
|
./pkg/gmredi/gmredi_write_pickup.F |
82 |
GMREDI_WRITE_PICKUP |
DO k=1,Nr |
|
./pkg/gmredi/gmredi_write_pickup.F |
85 |
GMREDI_WRITE_PICKUP |
vec(i,j,k,bi,bj) = modesC(1,i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_xtransport.F |
105 |
GMREDI_XTRANSPORT |
kkey = (igadkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_xtransport.F |
131 |
GMREDI_XTRANSPORT |
& *Kux(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_xtransport.F |
134 |
GMREDI_XTRANSPORT |
& *(kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_xtransport.F |
144 |
GMREDI_XTRANSPORT |
& *(Tracer(i,j,k)-Tracer(i-1,j,k)) |
|
./pkg/gmredi/gmredi_xtransport.F |
150 |
GMREDI_XTRANSPORT |
km1 = MAX(k-1,1) |
|
./pkg/gmredi/gmredi_xtransport.F |
151 |
GMREDI_XTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_xtransport.F |
157 |
GMREDI_XTRANSPORT |
& +op5*recip_drC(k)* |
|
./pkg/gmredi/gmredi_xtransport.F |
158 |
GMREDI_XTRANSPORT |
& ( maskC(i-1,j,k,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
159 |
GMREDI_XTRANSPORT |
& (Tracer(i-1,j,km1)-Tracer(i-1,j,k)) |
|
./pkg/gmredi/gmredi_xtransport.F |
160 |
GMREDI_XTRANSPORT |
& +maskC( i ,j,k,bi,bj)* |
|
./pkg/gmredi/gmredi_xtransport.F |
161 |
GMREDI_XTRANSPORT |
& (Tracer( i ,j,km1)-Tracer( i ,j,k)) |
|
./pkg/gmredi/gmredi_xtransport.F |
165 |
GMREDI_XTRANSPORT |
& (Tracer(i-1,j,k)-Tracer(i-1,j,kp1)) |
|
./pkg/gmredi/gmredi_xtransport.F |
167 |
GMREDI_XTRANSPORT |
& (Tracer( i ,j,k)-Tracer( i ,j,kp1)) |
|
./pkg/gmredi/gmredi_xtransport.F |
16 |
GMREDI_XTRANSPORT |
I trIdentity, bi, bj, k, |
|
./pkg/gmredi/gmredi_xtransport.F |
179 |
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 |
188 |
GMREDI_XTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_xtransport.F |
190 |
GMREDI_XTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_xtransport.F |
194 |
GMREDI_XTRANSPORT |
& -GM_PsiX(i,j,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_xtransport.F |
195 |
GMREDI_XTRANSPORT |
& *maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_xtransport.F |
205 |
GMREDI_XTRANSPORT |
& +uTrans(i,j)*op5*(Tracer(i,j,k)+Tracer(i-1,j,k)) |
|
./pkg/gmredi/gmredi_xtransport.F |
216 |
GMREDI_XTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_xtransport.F |
218 |
GMREDI_XTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_xtransport.F |
222 |
GMREDI_XTRANSPORT |
& -GM_PsiX(i,j,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_xtransport.F |
223 |
GMREDI_XTRANSPORT |
& *maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_xtransport.F |
224 |
GMREDI_XTRANSPORT |
& *op5*(Tracer(i,j,k)+Tracer(i-1,j,k)) |
|
./pkg/gmredi/gmredi_xtransport.F |
227 |
GMREDI_XTRANSPORT |
CALL DIAGNOSTICS_FILL(tmp1k,'GM_ubT ', k,1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_xtransport.F |
61 |
GMREDI_XTRANSPORT |
INTEGER bi, bj, k |
|
./pkg/gmredi/gmredi_ytransport.F |
104 |
GMREDI_YTRANSPORT |
kkey = (igadkey-1)*Nr + k |
|
./pkg/gmredi/gmredi_ytransport.F |
130 |
GMREDI_YTRANSPORT |
& *Kvy(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_ytransport.F |
133 |
GMREDI_YTRANSPORT |
& *(kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_ytransport.F |
143 |
GMREDI_YTRANSPORT |
& *(Tracer(i,j,k)-Tracer(i,j-1,k)) |
|
./pkg/gmredi/gmredi_ytransport.F |
149 |
GMREDI_YTRANSPORT |
km1 = MAX(k-1,1) |
|
./pkg/gmredi/gmredi_ytransport.F |
150 |
GMREDI_YTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_ytransport.F |
156 |
GMREDI_YTRANSPORT |
& +op5*recip_drC(k)* |
|
./pkg/gmredi/gmredi_ytransport.F |
157 |
GMREDI_YTRANSPORT |
& ( maskC(i,j-1,k,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
158 |
GMREDI_YTRANSPORT |
& (Tracer(i,j-1,km1)-Tracer(i,j-1,k)) |
|
./pkg/gmredi/gmredi_ytransport.F |
159 |
GMREDI_YTRANSPORT |
& +maskC(i, j ,k,bi,bj)* |
|
./pkg/gmredi/gmredi_ytransport.F |
15 |
GMREDI_YTRANSPORT |
I trIdentity, bi, bj, k, |
|
./pkg/gmredi/gmredi_ytransport.F |
160 |
GMREDI_YTRANSPORT |
& (Tracer(i, j ,km1)-Tracer(i, j ,k)) |
|
./pkg/gmredi/gmredi_ytransport.F |
164 |
GMREDI_YTRANSPORT |
& (Tracer(i,j-1,k)-Tracer(i,j-1,kp1)) |
|
./pkg/gmredi/gmredi_ytransport.F |
166 |
GMREDI_YTRANSPORT |
& (Tracer(i, j ,k)-Tracer(i, j ,kp1)) |
|
./pkg/gmredi/gmredi_ytransport.F |
177 |
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 |
187 |
GMREDI_YTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_ytransport.F |
189 |
GMREDI_YTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_ytransport.F |
193 |
GMREDI_YTRANSPORT |
& -GM_PsiY(i,j,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_ytransport.F |
194 |
GMREDI_YTRANSPORT |
& *maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_ytransport.F |
204 |
GMREDI_YTRANSPORT |
& +vTrans(i,j)*op5*(Tracer(i,j,k)+Tracer(i,j-1,k)) |
|
./pkg/gmredi/gmredi_ytransport.F |
214 |
GMREDI_YTRANSPORT |
kp1 = MIN(k+1,Nr) |
|
./pkg/gmredi/gmredi_ytransport.F |
216 |
GMREDI_YTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_ytransport.F |
220 |
GMREDI_YTRANSPORT |
& -GM_PsiY(i,j,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_ytransport.F |
221 |
GMREDI_YTRANSPORT |
& *maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_ytransport.F |
222 |
GMREDI_YTRANSPORT |
& *op5*(Tracer(i,j,k)+Tracer(i,j-1,k)) |
|
./pkg/gmredi/gmredi_ytransport.F |
225 |
GMREDI_YTRANSPORT |
CALL DIAGNOSTICS_FILL(tmp1k,'GM_vbT ', k,1,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_ytransport.F |
60 |
GMREDI_YTRANSPORT |
INTEGER bi, bj, k |
|
./pkg/gmredi/submeso_calc_psi.F |
102 |
SUBMESO_CALC_PSI |
DO k=1,Nr |
|
./pkg/gmredi/submeso_calc_psi.F |
105 |
SUBMESO_CALC_PSI |
dzLoc = MAX( 0. _d 0, MIN( drF(k), mixLayerU(i,j)+rF(k) ) ) |
|
./pkg/gmredi/submeso_calc_psi.F |
106 |
SUBMESO_CALC_PSI |
dBuoyX_Hu(i,j) = dBuoyX_Hu(i,j) + sigmaX(i,j,k)*dzLoc |
|
./pkg/gmredi/submeso_calc_psi.F |
111 |
SUBMESO_CALC_PSI |
dzLoc = MAX( 0. _d 0, MIN( drF(k), mixLayerV(i,j)+rF(k) ) ) |
|
./pkg/gmredi/submeso_calc_psi.F |
112 |
SUBMESO_CALC_PSI |
dBuoyY_Hv(i,j) = dBuoyY_Hv(i,j) + sigmaY(i,j,k)*dzLoc |
|
./pkg/gmredi/submeso_calc_psi.F |
116 |
SUBMESO_CALC_PSI |
DO k=2,Nr |
|
./pkg/gmredi/submeso_calc_psi.F |
120 |
SUBMESO_CALC_PSI |
IF ( locMixLayer(i,j)+rC(k-1).GE.0. ) dzLoc = drC(k) |
|
./pkg/gmredi/submeso_calc_psi.F |
122 |
SUBMESO_CALC_PSI |
& + dzLoc*MAX( -sigmaR(i,j,k), 0. _d 0 ) |
|
./pkg/gmredi/submeso_calc_psi.F |
163 |
SUBMESO_CALC_PSI |
DO k=2,Nr |
|
./pkg/gmredi/submeso_calc_psi.F |
167 |
SUBMESO_CALC_PSI |
z2H = 2. _d 0*rF(k)/mixLayerU(i,j) |
|
./pkg/gmredi/submeso_calc_psi.F |
174 |
SUBMESO_CALC_PSI |
GM_PsiX(i,j,k,bi,bj) = GM_PsiX(i,j,k,bi,bj) |
|
./pkg/gmredi/submeso_calc_psi.F |
206 |
SUBMESO_CALC_PSI |
DO k=2,Nr |
|
./pkg/gmredi/submeso_calc_psi.F |
210 |
SUBMESO_CALC_PSI |
z2H = 2. _d 0*rF(k)/mixLayerV(i,j) |
|
./pkg/gmredi/submeso_calc_psi.F |
217 |
SUBMESO_CALC_PSI |
GM_PsiY(i,j,k,bi,bj) = GM_PsiY(i,j,k,bi,bj) |
|
./pkg/gmredi/submeso_calc_psi.F |
50 |
SUBMESO_CALC_PSI |
INTEGER i,j,k |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
112 |
GRDCHK_GET_OBCS_MASK |
do k = 1,nr |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
114 |
GRDCHK_GET_OBCS_MASK |
grdchk_maskxz(i,k,bi,bj,iobcs) = |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
115 |
GRDCHK_GET_OBCS_MASK |
& tmpfldxz(i,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
135 |
GRDCHK_GET_OBCS_MASK |
do k = 1,nr |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
137 |
GRDCHK_GET_OBCS_MASK |
grdchk_maskyz(j,k,bi,bj,iobcs) = |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
138 |
GRDCHK_GET_OBCS_MASK |
& tmpfldyz(j,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
158 |
GRDCHK_GET_OBCS_MASK |
do k = 1,nr |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
160 |
GRDCHK_GET_OBCS_MASK |
grdchk_maskyz(j,k,bi,bj,iobcs) = |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
161 |
GRDCHK_GET_OBCS_MASK |
& tmpfldyz(j,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
42 |
GRDCHK_GET_OBCS_MASK |
integer i,j,k |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
89 |
GRDCHK_GET_OBCS_MASK |
do k = 1,nr |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
91 |
GRDCHK_GET_OBCS_MASK |
grdchk_maskxz(i,k,bi,bj,iobcs) = |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
92 |
GRDCHK_GET_OBCS_MASK |
& tmpfldxz(i,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_position.F |
132 |
GRDCHK_GET_POSITION |
do k = kwrk, ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_get_position.F |
145 |
GRDCHK_GET_POSITION |
if ( maskC(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
148 |
GRDCHK_GET_POSITION |
wetlocal = maskC(i,j,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_position.F |
150 |
GRDCHK_GET_POSITION |
if ( _maskS(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
153 |
GRDCHK_GET_POSITION |
wetlocal = _maskS(i,j,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_position.F |
155 |
GRDCHK_GET_POSITION |
if ( _maskW(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
158 |
GRDCHK_GET_POSITION |
wetlocal = _maskW(i,j,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_position.F |
162 |
GRDCHK_GET_POSITION |
if ( maskSHI(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_get_position.F |
165 |
GRDCHK_GET_POSITION |
wetlocal = maskSHI(i,j,k,bi,bj) |
|
./pkg/grdchk/grdchk_get_position.F |
170 |
GRDCHK_GET_POSITION |
if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0. |
|
./pkg/grdchk/grdchk_get_position.F |
174 |
GRDCHK_GET_POSITION |
wetlocal = grdchk_maskxz(i,k,bi,bj,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
178 |
GRDCHK_GET_POSITION |
if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0. |
|
./pkg/grdchk/grdchk_get_position.F |
182 |
GRDCHK_GET_POSITION |
wetlocal = grdchk_maskxz(i,k,bi,bj,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
186 |
GRDCHK_GET_POSITION |
if ( grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0. |
|
./pkg/grdchk/grdchk_get_position.F |
190 |
GRDCHK_GET_POSITION |
wetlocal = grdchk_maskyz(j,k,bi,bj,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
194 |
GRDCHK_GET_POSITION |
if (grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0. |
|
./pkg/grdchk/grdchk_get_position.F |
198 |
GRDCHK_GET_POSITION |
wetlocal = grdchk_maskyz(j,k,bi,bj,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
205 |
GRDCHK_GET_POSITION |
& k .EQ. layer .AND. |
|
./pkg/grdchk/grdchk_get_position.F |
243 |
GRDCHK_GET_POSITION |
itest = itest + nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_get_position.F |
60 |
GRDCHK_GET_POSITION |
integer i,j,k |
|
./pkg/grdchk/grdchk_getadxx.F |
82 |
GRDCHK_GETADXX |
integer i,j,k |
|
./pkg/grdchk/grdchk_init.F |
100 |
GRDCHK_INIT |
nwettile(bi,bj,k,1) = nwetwtile(bi,bj,k) |
|
./pkg/grdchk/grdchk_init.F |
107 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
108 |
GRDCHK_INIT |
nwettile(bi,bj,k,1) = nwetvtile(bi,bj,k) |
|
./pkg/grdchk/grdchk_init.F |
116 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
117 |
GRDCHK_INIT |
nwettile(bi,bj,k,1) = nwetitile(bi,bj,k) |
|
./pkg/grdchk/grdchk_init.F |
125 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
129 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = |
|
./pkg/grdchk/grdchk_init.F |
130 |
GRDCHK_INIT |
& nwetobcsn(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
134 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = |
|
./pkg/grdchk/grdchk_init.F |
135 |
GRDCHK_INIT |
& nwetobcss(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
139 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = |
|
./pkg/grdchk/grdchk_init.F |
140 |
GRDCHK_INIT |
& nwetobcsw(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
144 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = |
|
./pkg/grdchk/grdchk_init.F |
145 |
GRDCHK_INIT |
& nwetobcse(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
169 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
171 |
GRDCHK_INIT |
ncvarcomp = ncvarcomp + nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_init.F |
185 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
186 |
GRDCHK_INIT |
iwetsum(bi,bj,k) = iwetsum(bi,bj,k-1) + |
|
./pkg/grdchk/grdchk_init.F |
187 |
GRDCHK_INIT |
& nwettile(bi,bj,k,1) |
|
./pkg/grdchk/grdchk_init.F |
44 |
GRDCHK_INIT |
integer i,j,k |
|
./pkg/grdchk/grdchk_init.F |
70 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
72 |
GRDCHK_INIT |
nwettile(bi,bj,k,iobcs) = 0 |
|
./pkg/grdchk/grdchk_init.F |
83 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
84 |
GRDCHK_INIT |
nwettile(bi,bj,k,1) = nwetctile(bi,bj,k) |
|
./pkg/grdchk/grdchk_init.F |
91 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
92 |
GRDCHK_INIT |
nwettile(bi,bj,k,1) = nwetstile(bi,bj,k) |
|
./pkg/grdchk/grdchk_init.F |
99 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./model/src/adams_bashforth2.F |
59 |
ADAMS_BASHFORTH2 |
INTEGER i, j, k |
|
./model/src/adams_bashforth2.F |
74 |
ADAMS_BASHFORTH2 |
DO k=1,kSize |
|
./model/src/adams_bashforth2.F |
77 |
ADAMS_BASHFORTH2 |
AB_gTr(i,j) = abFac*( gTracer(i,j,k) - gTrNm1(i,j,k) ) |
|
./model/src/adams_bashforth2.F |
78 |
ADAMS_BASHFORTH2 |
gTrNm1(i,j,k) = gTracer(i,j,k) + AB_gTr(i,j) |
|
./model/src/adams_bashforth2.F |
84 |
ADAMS_BASHFORTH2 |
k = kArg |
|
./model/src/adams_bashforth2.F |
87 |
ADAMS_BASHFORTH2 |
AB_gTr(i,j) = abFac*( gTracer(i,j,k) - gTrNm1(i,j,k) ) |
|
./model/src/adams_bashforth2.F |
88 |
ADAMS_BASHFORTH2 |
gTrNm1(i,j,k) = gTracer(i,j,k) |
|
./model/src/adams_bashforth2.F |
89 |
ADAMS_BASHFORTH2 |
gTracer(i,j,k) = gTracer(i,j,k) + AB_gTr(i,j) |
|
./pkg/grdchk/grdchk_loc.F |
160 |
GRDCHK_LOC |
do k = kwrk, ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_loc.F |
161 |
GRDCHK_LOC |
icglo = icglo + nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_loc.F |
162 |
GRDCHK_LOC |
icglom1 = icglo - nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_loc.F |
193 |
GRDCHK_LOC |
if ( maskC(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
199 |
GRDCHK_LOC |
if ( _maskS(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
205 |
GRDCHK_LOC |
if ( _maskW(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
212 |
GRDCHK_LOC |
if ( maskSHI(i,j,k,bi,bj) .gt. 0.) then |
|
./pkg/grdchk/grdchk_loc.F |
221 |
GRDCHK_LOC |
if ( grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0. |
|
./pkg/grdchk/grdchk_loc.F |
230 |
GRDCHK_LOC |
if ( grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0. |
|
./pkg/grdchk/grdchk_loc.F |
239 |
GRDCHK_LOC |
if ( grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0. |
|
./pkg/grdchk/grdchk_loc.F |
248 |
GRDCHK_LOC |
if ( grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0. |
|
./pkg/grdchk/grdchk_loc.F |
264 |
GRDCHK_LOC |
layer = k |
|
./pkg/grdchk/grdchk_loc.F |
269 |
GRDCHK_LOC |
print *, 'ph-grd -->hit<-- ', itmp,jtmp,k,iobcs |
|
./pkg/grdchk/grdchk_loc.F |
282 |
GRDCHK_LOC |
icomptest = icomptest + nwettile(bi,bj,k,iobcs) |
|
./pkg/grdchk/grdchk_loc.F |
75 |
GRDCHK_LOC |
integer i,j,k |
|
./pkg/grdchk/grdchk_main.F |
101 |
GRDCHK_MAIN |
INTEGER i, j, k |
|
./pkg/grdchk/grdchk_main.F |
179 |
GRDCHK_MAIN |
DO k = 1, Nr |
|
./pkg/grdchk/grdchk_main.F |
182 |
GRDCHK_MAIN |
tmpplot1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/grdchk/grdchk_main.F |
183 |
GRDCHK_MAIN |
tmpplot2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/grdchk/grdchk_main.F |
184 |
GRDCHK_MAIN |
tmpplot3(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/grdchk/grdchk_main.F |
288 |
GRDCHK_MAIN |
DO k=1,4*Nr+1 |
|
./pkg/grdchk/grdchk_main.F |
291 |
GRDCHK_MAIN |
g_objf_state_final(i,j,1,1,k) = 0. |
|
./pkg/grdchk/grdchk_setxx.F |
65 |
GRDCHK_SETXX |
integer i,j,k |
|
./model/src/adams_bashforth3.F |
106 |
ADAMS_BASHFORTH3 |
DO k=1,kSize |
|
./model/src/adams_bashforth3.F |
109 |
ADAMS_BASHFORTH3 |
AB_gTr(i,j) = ab0*gTracer(i,j,k) |
|
./model/src/adams_bashforth3.F |
110 |
ADAMS_BASHFORTH3 |
& + ab1*gTrNm(i,j,k,bi,bj,m1) |
|
./model/src/adams_bashforth3.F |
111 |
ADAMS_BASHFORTH3 |
& + ab2*gTrNm(i,j,k,bi,bj,m2) |
|
./model/src/adams_bashforth3.F |
112 |
ADAMS_BASHFORTH3 |
gTrNm(i,j,k,bi,bj,m2) = gTracer(i,j,k) + AB_gTr(i,j) |
|
./model/src/adams_bashforth3.F |
118 |
ADAMS_BASHFORTH3 |
k = kArg |
|
./model/src/adams_bashforth3.F |
121 |
ADAMS_BASHFORTH3 |
AB_gTr(i,j) = ab0*gTracer(i,j,k) |
|
./model/src/adams_bashforth3.F |
122 |
ADAMS_BASHFORTH3 |
& + ab1*gTrNm(i,j,k,bi,bj,m1) |
|
./model/src/adams_bashforth3.F |
123 |
ADAMS_BASHFORTH3 |
& + ab2*gTrNm(i,j,k,bi,bj,m2) |
|
./model/src/adams_bashforth3.F |
124 |
ADAMS_BASHFORTH3 |
gTrNm(i,j,k,bi,bj,m2) = gTracer(i,j,k) |
|
./model/src/adams_bashforth3.F |
125 |
ADAMS_BASHFORTH3 |
gTracer(i,j,k) = gTracer(i,j,k) + AB_gTr(i,j) |
|
./model/src/adams_bashforth3.F |
79 |
ADAMS_BASHFORTH3 |
INTEGER i,j, k, m1,m2 |
|
./pkg/icefront/icefront_init_varia.F |
39 |
ICEFRONT_INIT_VARIA |
icefront_TendT (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/icefront/icefront_init_varia.F |
40 |
ICEFRONT_INIT_VARIA |
icefront_TendS (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/add_walls2masks.F |
113 |
ADD_WALLS2MASKS |
DO k=1,Nr |
|
./model/src/add_walls2masks.F |
114 |
ADD_WALLS2MASKS |
hFacW(i,j,k,bi,bj) = zeroRS |
|
./model/src/add_walls2masks.F |
120 |
ADD_WALLS2MASKS |
DO k=1,Nr |
|
./model/src/add_walls2masks.F |
121 |
ADD_WALLS2MASKS |
hFacS(i,j,k,bi,bj) = zeroRS |
|
./model/src/add_walls2masks.F |
46 |
ADD_WALLS2MASKS |
INTEGER i, j, k |
|
./model/src/add_walls2masks.F |
86 |
ADD_WALLS2MASKS |
DO k=1,Nr |
|
./model/src/add_walls2masks.F |
87 |
ADD_WALLS2MASKS |
hFacW(i,j,k,bi,bj) = zeroRS |
|
./model/src/add_walls2masks.F |
93 |
ADD_WALLS2MASKS |
DO k=1,Nr |
|
./model/src/add_walls2masks.F |
94 |
ADD_WALLS2MASKS |
hFacS(i,j,k,bi,bj) = zeroRS |
|
./pkg/icefront/icefront_tendency_apply.F |
103 |
ICEFRONT_TENDENCY_APPLY_S |
IF ( k .LE. k_icefront(i,j,bi,bj) ) THEN |
|
./pkg/icefront/icefront_tendency_apply.F |
105 |
ICEFRONT_TENDENCY_APPLY_S |
& + ICEFRONT_TendS(i,j,k,bi,bj) |
|
./pkg/icefront/icefront_tendency_apply.F |
17 |
ICEFRONT_TENDENCY_APPLY_T |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/icefront/icefront_tendency_apply.F |
39 |
ICEFRONT_TENDENCY_APPLY_T |
INTEGER k, bi, bj |
|
./pkg/icefront/icefront_tendency_apply.F |
51 |
ICEFRONT_TENDENCY_APPLY_T |
IF ( k .LE. k_icefront(i,j,bi,bj) ) THEN |
|
./pkg/icefront/icefront_tendency_apply.F |
53 |
ICEFRONT_TENDENCY_APPLY_T |
& + ICEFRONT_TendT(i,j,k,bi,bj) |
|
./pkg/icefront/icefront_tendency_apply.F |
69 |
ICEFRONT_TENDENCY_APPLY_S |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/icefront/icefront_tendency_apply.F |
91 |
ICEFRONT_TENDENCY_APPLY_S |
INTEGER k, bi, bj |
|
./pkg/icefront/icefront_thermodynamics.F |
112 |
ICEFRONT_THERMODYNAMICS |
pLoc = ABS(rC(k)) |
|
./pkg/icefront/icefront_thermodynamics.F |
161 |
ICEFRONT_THERMODYNAMICS |
IF (k .LT. k_icefront(i,j,bi,bj)) THEN |
|
./pkg/icefront/icefront_thermodynamics.F |
166 |
ICEFRONT_THERMODYNAMICS |
ELSEIF (k .EQ. k_icefront(i,j,bi,bj)) THEN |
|
./pkg/icefront/icefront_thermodynamics.F |
192 |
ICEFRONT_THERMODYNAMICS |
& k,1,3,bi,bj,myThid) |
|
./pkg/icefront/icefront_thermodynamics.F |
194 |
ICEFRONT_THERMODYNAMICS |
& k,1,3,bi,bj,myThid) |
|
./pkg/kl10/kl10_calc_diff.F |
47 |
KL10_CALC_DIFF |
INTEGER i,j,k |
|
./pkg/kl10/kl10_calc_diff.F |
52 |
KL10_CALC_DIFF |
DO k=1,MIN(Nr,kSize) |
|
./pkg/kl10/kl10_calc_diff.F |
55 |
KL10_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k) |
|
./pkg/kl10/kl10_calc_diff.F |
56 |
KL10_CALC_DIFF |
& +( KLdiffKr(i,j,k,bi,bj) |
|
./pkg/kl10/kl10_calc_diff.F |
58 |
KL10_CALC_DIFF |
& - diffKr(i,j,k,bi,bj) ) |
|
./pkg/kl10/kl10_calc_diff.F |
60 |
KL10_CALC_DIFF |
& - diffKrNrS(k) ) |
|
./pkg/kl10/kl10_calc_diff.F |
67 |
KL10_CALC_DIFF |
k = MIN(kArg,kSize) |
|
./pkg/kl10/kl10_calc_diff.F |
70 |
KL10_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k) |
|
./pkg/kl10/kl10_calc_visc.F |
31 |
KL10_CALC_VISC |
INTEGER bi,bj,iMin,iMax,jMin,jMax,k |
|
./pkg/kl10/kl10_calc_visc.F |
44 |
KL10_CALC_VISC |
KappaRU(i,j,k) = max ( KappaRU(i,j,k), |
|
./pkg/kl10/kl10_calc_visc.F |
45 |
KL10_CALC_VISC |
& KappaRU(i,j,k) - viscArNr(k) + _maskW(i,j,k,bi,bj) * |
|
./pkg/kl10/kl10_calc_visc.F |
46 |
KL10_CALC_VISC |
& 0.5*(KLviscAr(i,j,k,bi,bj)+KLviscAr(i-1,j,k,bi,bj)) ) |
|
./pkg/kl10/kl10_calc_visc.F |
52 |
KL10_CALC_VISC |
KappaRV(i,j,k) = max ( KappaRV(i,j,k), |
|
./pkg/kl10/kl10_calc_visc.F |
53 |
KL10_CALC_VISC |
& KappaRV(i,j,k) - viscArNr(k) + _maskS(i,j,k,bi,bj) * |
|
./pkg/kl10/kl10_calc_visc.F |
54 |
KL10_CALC_VISC |
& 0.5*(KLviscAr(i,j,k,bi,bj)+KLviscAr(i,j-1,k,bi,bj)) ) |
|
./pkg/kl10/kl10_calc_visc.F |
6 |
KL10_CALC_VISC |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./model/src/apply_forcing.F |
111 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
118 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
125 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
134 |
APPLY_FORCING_U |
& - recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/apply_forcing.F |
136 |
APPLY_FORCING_U |
& *_maskW(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
142 |
APPLY_FORCING_U |
IF ( k .EQ. kSurface ) THEN |
|
./model/src/apply_forcing.F |
149 |
APPLY_FORCING_U |
& *recip_drF(k)*_recip_hFacW(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
155 |
APPLY_FORCING_U |
IF ( kSurfW(i,j,bi,bj).EQ.k ) THEN |
|
./model/src/apply_forcing.F |
158 |
APPLY_FORCING_U |
& *recip_drF(k)*_recip_hFacW(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
167 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
175 |
APPLY_FORCING_U |
I k, bi, bj, -1, |
|
./model/src/apply_forcing.F |
185 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
194 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
20 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./model/src/apply_forcing.F |
210 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./model/src/apply_forcing.F |
243 |
APPLY_FORCING_V |
INTEGER k, bi, bj |
|
./model/src/apply_forcing.F |
264 |
APPLY_FORCING_V |
locVar(i,j) = gV(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
268 |
APPLY_FORCING_V |
I iMin, iMax, jMin, jMax, bi, bj, k, |
|
./model/src/apply_forcing.F |
275 |
APPLY_FORCING_V |
tmpVar(i,j) = gV(i,j,k,bi,bj) - locVar(i,j) |
|
./model/src/apply_forcing.F |
276 |
APPLY_FORCING_V |
gV(i,j,k,bi,bj) = locVar(i,j) |
|
./model/src/apply_forcing.F |
301 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
308 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
315 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
324 |
APPLY_FORCING_V |
& - recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/apply_forcing.F |
326 |
APPLY_FORCING_V |
& *_maskS(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
332 |
APPLY_FORCING_V |
IF ( k .EQ. kSurface ) THEN |
|
./model/src/apply_forcing.F |
339 |
APPLY_FORCING_V |
& *recip_drF(k)*_recip_hFacS(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
345 |
APPLY_FORCING_V |
IF ( kSurfS(i,j,bi,bj).EQ.k ) THEN |
|
./model/src/apply_forcing.F |
348 |
APPLY_FORCING_V |
& *recip_drF(k)*_recip_hFacS(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
357 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
365 |
APPLY_FORCING_V |
I k, bi, bj, -2, |
|
./model/src/apply_forcing.F |
374 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
383 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
399 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./model/src/apply_forcing.F |
433 |
APPLY_FORCING_T |
INTEGER k, bi, bj |
|
./model/src/apply_forcing.F |
461 |
APPLY_FORCING_T |
gT(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/apply_forcing.F |
465 |
APPLY_FORCING_T |
I iMin, iMax, jMin, jMax, bi, bj, k, |
|
./model/src/apply_forcing.F |
469 |
APPLY_FORCING_T |
gT_arr(i,j) = gT_arr(i,j) + gT(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
495 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
502 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
509 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
520 |
APPLY_FORCING_T |
& + addMass(i,j,k,bi,bj)*mass2rUnit |
|
./model/src/apply_forcing.F |
521 |
APPLY_FORCING_T |
& *( temp_addMass - theta(i,j,k,bi,bj) ) |
|
./model/src/apply_forcing.F |
523 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
531 |
APPLY_FORCING_T |
& + addMass(i,j,k,bi,bj)*mass2rUnit |
|
./model/src/apply_forcing.F |
532 |
APPLY_FORCING_T |
& *( temp_addMass - tRef(k) ) |
|
./model/src/apply_forcing.F |
534 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
53 |
APPLY_FORCING_U |
INTEGER k, bi, bj |
|
./model/src/apply_forcing.F |
546 |
APPLY_FORCING_T |
tmpFac = (atm_Po/rC(k))**atm_kappa |
|
./model/src/apply_forcing.F |
556 |
APPLY_FORCING_T |
& + frictionHeating(i,j,k,bi,bj)*tmpFac |
|
./model/src/apply_forcing.F |
557 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
572 |
APPLY_FORCING_T |
tmpFac = (atm_Po/rC(k))**atm_kappa |
|
./model/src/apply_forcing.F |
575 |
APPLY_FORCING_T |
km = k-1 |
|
./model/src/apply_forcing.F |
576 |
APPLY_FORCING_T |
kc = k |
|
./model/src/apply_forcing.F |
577 |
APPLY_FORCING_T |
kp = k+1 |
|
./model/src/apply_forcing.F |
578 |
APPLY_FORCING_T |
IF ( k.EQ.1 ) THEN |
|
./model/src/apply_forcing.F |
596 |
APPLY_FORCING_T |
IF ( k.LT.Nr ) THEN |
|
./model/src/apply_forcing.F |
613 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
627 |
APPLY_FORCING_T |
IF ( k .EQ. kSurface ) THEN |
|
./model/src/apply_forcing.F |
632 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
638 |
APPLY_FORCING_T |
IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN |
|
./model/src/apply_forcing.F |
641 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
650 |
APPLY_FORCING_T |
IF (k .EQ. kSurfC(i,j,bi,bj)) THEN |
|
./model/src/apply_forcing.F |
652 |
APPLY_FORCING_T |
& +TsurfCor*recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
662 |
APPLY_FORCING_T |
IF ( k.EQ.kLowC(i,j,bi,bj) ) THEN |
|
./model/src/apply_forcing.F |
666 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
676 |
APPLY_FORCING_T |
swfracb(1)=abs(rF(k)) |
|
./model/src/apply_forcing.F |
677 |
APPLY_FORCING_T |
swfracb(2)=abs(rF(k+1)) |
|
./model/src/apply_forcing.F |
682 |
APPLY_FORCING_T |
kp1 = k+1 |
|
./model/src/apply_forcing.F |
683 |
APPLY_FORCING_T |
IF (k.EQ.Nr) THEN |
|
./model/src/apply_forcing.F |
684 |
APPLY_FORCING_T |
kp1 = k |
|
./model/src/apply_forcing.F |
690 |
APPLY_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
693 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
703 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
711 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
719 |
APPLY_FORCING_T |
I k, bi, bj, myTime, myIter, myThid ) |
|
./model/src/apply_forcing.F |
726 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
734 |
APPLY_FORCING_T |
I k, bi, bj, 1, |
|
./model/src/apply_forcing.F |
743 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
74 |
APPLY_FORCING_U |
locVar(i,j) = gU(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
751 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
759 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
775 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./model/src/apply_forcing.F |
78 |
APPLY_FORCING_U |
I iMin, iMax, jMin, jMax, bi, bj, k, |
|
./model/src/apply_forcing.F |
809 |
APPLY_FORCING_S |
INTEGER k, bi, bj |
|
./model/src/apply_forcing.F |
827 |
APPLY_FORCING_S |
gS(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/apply_forcing.F |
831 |
APPLY_FORCING_S |
I iMin, iMax, jMin, jMax, bi, bj, k, |
|
./model/src/apply_forcing.F |
835 |
APPLY_FORCING_S |
gS_arr(i,j) = gS_arr(i,j) + gS(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
85 |
APPLY_FORCING_U |
tmpVar(i,j) = gU(i,j,k,bi,bj) - locVar(i,j) |
|
./model/src/apply_forcing.F |
860 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
867 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
86 |
APPLY_FORCING_U |
gU(i,j,k,bi,bj) = locVar(i,j) |
|
./model/src/apply_forcing.F |
874 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
885 |
APPLY_FORCING_S |
& + addMass(i,j,k,bi,bj)*mass2rUnit |
|
./model/src/apply_forcing.F |
886 |
APPLY_FORCING_S |
& *( salt_addMass - salt(i,j,k,bi,bj) ) |
|
./model/src/apply_forcing.F |
888 |
APPLY_FORCING_S |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
896 |
APPLY_FORCING_S |
& + addMass(i,j,k,bi,bj)*mass2rUnit |
|
./model/src/apply_forcing.F |
897 |
APPLY_FORCING_S |
& *( salt_addMass - sRef(k) ) |
|
./model/src/apply_forcing.F |
899 |
APPLY_FORCING_S |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
908 |
APPLY_FORCING_S |
IF ( k .EQ. kSurface ) THEN |
|
./model/src/apply_forcing.F |
913 |
APPLY_FORCING_S |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
919 |
APPLY_FORCING_S |
IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN |
|
./model/src/apply_forcing.F |
922 |
APPLY_FORCING_S |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
931 |
APPLY_FORCING_S |
IF (k .EQ. kSurfC(i,j,bi,bj)) THEN |
|
./model/src/apply_forcing.F |
933 |
APPLY_FORCING_S |
& +SsurfCor*recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/apply_forcing.F |
943 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
951 |
APPLY_FORCING_S |
I k, bi, bj, myTime, myIter, myThid ) |
|
./model/src/apply_forcing.F |
958 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
966 |
APPLY_FORCING_S |
I k, bi, bj, 2, |
|
./model/src/apply_forcing.F |
975 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
983 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/apply_forcing.F |
991 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./pkg/kl10/kl10_init_varia.F |
31 |
KL10_INIT_VARIA |
INTEGER i, j, k, bi, bj |
|
./pkg/kl10/kl10_init_varia.F |
39 |
KL10_INIT_VARIA |
DO k = 1, Nr |
|
./pkg/kl10/kl10_init_varia.F |
42 |
KL10_INIT_VARIA |
KLviscAr (i,j,k,bi,bj) = viscArNr(k) |
|
./pkg/kl10/kl10_init_varia.F |
43 |
KL10_INIT_VARIA |
KLdiffKr (i,j,k,bi,bj) = diffKrNrS(k) |
|
./model/src/calc_3d_diffusivity.F |
105 |
CALC_3D_DIFFUSIVITY |
KappaRTr(i,j,k) = |
|
./model/src/calc_3d_diffusivity.F |
106 |
CALC_3D_DIFFUSIVITY |
& IVDConvCount(i,j,k,bi,bj)*ivdc_kappa |
|
./model/src/calc_3d_diffusivity.F |
116 |
CALC_3D_DIFFUSIVITY |
DO k = 1,Nr |
|
./model/src/calc_3d_diffusivity.F |
119 |
CALC_3D_DIFFUSIVITY |
KappaRTr(i,j,k) = KappaRTr(i,j,k) |
|
./model/src/calc_3d_diffusivity.F |
121 |
CALC_3D_DIFFUSIVITY |
& + diffKr(i,j,k,bi,bj) |
|
./model/src/calc_3d_diffusivity.F |
123 |
CALC_3D_DIFFUSIVITY |
& + diffKrNrT(k) |
|
./model/src/calc_3d_diffusivity.F |
129 |
CALC_3D_DIFFUSIVITY |
DO k = 1,Nr |
|
./model/src/calc_3d_diffusivity.F |
132 |
CALC_3D_DIFFUSIVITY |
KappaRTr(i,j,k) = KappaRTr(i,j,k) |
|
./model/src/calc_3d_diffusivity.F |
134 |
CALC_3D_DIFFUSIVITY |
& + diffKr(i,j,k,bi,bj) |
|
./model/src/calc_3d_diffusivity.F |
136 |
CALC_3D_DIFFUSIVITY |
& + diffKrNrS(k) |
|
./model/src/calc_3d_diffusivity.F |
145 |
CALC_3D_DIFFUSIVITY |
DO k = 1,Nr |
|
./model/src/calc_3d_diffusivity.F |
148 |
CALC_3D_DIFFUSIVITY |
KappaRTr(i,j,k) = KappaRTr(i,j,k) |
|
./model/src/calc_3d_diffusivity.F |
150 |
CALC_3D_DIFFUSIVITY |
& + diffKr(i,j,k,bi,bj) |
|
./model/src/calc_3d_diffusivity.F |
152 |
CALC_3D_DIFFUSIVITY |
& + PTRACERS_diffKrNr(k,iTr) |
|
./model/src/calc_3d_diffusivity.F |
247 |
CALC_3D_DIFFUSIVITY |
DO k = 2,Nr |
|
./model/src/calc_3d_diffusivity.F |
248 |
CALC_3D_DIFFUSIVITY |
km = k - 1 |
|
./model/src/calc_3d_diffusivity.F |
252 |
CALC_3D_DIFFUSIVITY |
IF ( k.GT.kSurfC(i,j,bi,bj) .AND. |
|
./model/src/calc_3d_diffusivity.F |
253 |
CALC_3D_DIFFUSIVITY |
& k.LE.kLowC(i,j,bi,bj) ) THEN |
|
./model/src/calc_3d_diffusivity.F |
254 |
CALC_3D_DIFFUSIVITY |
KappaRTr(i,j,k) = KappaRTr(i,j,k) |
|
./model/src/calc_3d_diffusivity.F |
255 |
CALC_3D_DIFFUSIVITY |
& *twoRL/(hFacC(i,j,km,bi,bj)+hFacC(i,j,k,bi,bj)) |
|
./model/src/calc_3d_diffusivity.F |
267 |
CALC_3D_DIFFUSIVITY |
DO k = 2,Nr |
|
./model/src/calc_3d_diffusivity.F |
268 |
CALC_3D_DIFFUSIVITY |
km = k - 1 |
|
./model/src/calc_3d_diffusivity.F |
270 |
CALC_3D_DIFFUSIVITY |
IF ( pCellMix_delR.LT.drF(k) ) |
|
./model/src/calc_3d_diffusivity.F |
271 |
CALC_3D_DIFFUSIVITY |
& pC_kFac = pCellMix_delR*recip_drF(k) |
|
./model/src/calc_3d_diffusivity.F |
278 |
CALC_3D_DIFFUSIVITY |
IF ( k.EQ.kLowC(i,j,bi,bj) .AND. |
|
./model/src/calc_3d_diffusivity.F |
279 |
CALC_3D_DIFFUSIVITY |
& k.GT.kSurfC(i,j,bi,bj) ) THEN |
|
./model/src/calc_3d_diffusivity.F |
280 |
CALC_3D_DIFFUSIVITY |
tmpFac(i,j) = pC_kFac*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/calc_3d_diffusivity.F |
310 |
CALC_3D_DIFFUSIVITY |
KappaRTr(i,j,k) = MAX( KappaRTr(i,j,k), |
|
./model/src/calc_3d_diffusivity.F |
311 |
CALC_3D_DIFFUSIVITY |
& pCellMix_diffKr(k)*tmpFac(i,j) ) |
|
./model/src/calc_3d_diffusivity.F |
357 |
CALC_3D_DIFFUSIVITY |
KappaRTr(i,j,k) = MAX( KappaRTr(i,j,k), |
|
./model/src/calc_3d_diffusivity.F |
358 |
CALC_3D_DIFFUSIVITY |
& pCellMix_diffKr(k)*tmpFac(i,j) ) |
|
./model/src/calc_3d_diffusivity.F |
67 |
CALC_3D_DIFFUSIVITY |
INTEGER i,j,k |
|
./model/src/calc_3d_diffusivity.F |
84 |
CALC_3D_DIFFUSIVITY |
DO k = 1,Nr |
|
./model/src/calc_3d_diffusivity.F |
86 |
CALC_3D_DIFFUSIVITY |
& *(atan(-(rF(k)-diffKrBL79Ho)/diffKrBL79scl)/PI+0.5 _d 0) |
|
./model/src/calc_3d_diffusivity.F |
89 |
CALC_3D_DIFFUSIVITY |
& *(atan(-(rF(k)-diffKrBLEQHo)/diffKrBLEQscl)/PI+0.5 _d 0) |
|
./model/src/calc_3d_diffusivity.F |
95 |
CALC_3D_DIFFUSIVITY |
KappaRTr(i,j,k) = |
|
./model/src/calc_3d_diffusivity.F |
96 |
CALC_3D_DIFFUSIVITY |
& LS_IVDConvCount(i,j,k,bi,bj)*ivdc_kappa |
|
./pkg/kpp/kpp_calc.F |
214 |
KPP_CALC |
integer i, j, k, kp1, km1, im1, ip1, jm1, jp1 |
|
./pkg/kpp/kpp_calc.F |
280 |
KPP_CALC |
DO k = 1, Nr |
|
./pkg/kpp/kpp_calc.F |
283 |
KPP_CALC |
ghat(i,j,k) = dbloc(i,j,k) |
|
./pkg/kpp/kpp_calc.F |
294 |
KPP_CALC |
DO k = 1, Nr-1 |
|
./pkg/kpp/kpp_calc.F |
296 |
KPP_CALC |
I k+1, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
297 |
KPP_CALC |
U ghat (1-OLx,1-OLy,k), |
|
./pkg/kpp/kpp_calc.F |
309 |
KPP_CALC |
DO k = 1, Nr |
|
./pkg/kpp/kpp_calc.F |
311 |
KPP_CALC |
I k+1, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
312 |
KPP_CALC |
U dbloc (1-OLx,1-OLy,k), |
|
./pkg/kpp/kpp_calc.F |
315 |
KPP_CALC |
I k, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
316 |
KPP_CALC |
U Ritop (1-OLx,1-OLy,k), |
|
./pkg/kpp/kpp_calc.F |
319 |
KPP_CALC |
I k, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
320 |
KPP_CALC |
U TTALPHA(1-OLx,1-OLy,k), |
|
./pkg/kpp/kpp_calc.F |
323 |
KPP_CALC |
I k, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
324 |
KPP_CALC |
U SSBETA(1-OLx,1-OLy,k), |
|
./pkg/kpp/kpp_calc.F |
329 |
KPP_CALC |
DO k = 1, Nr |
|
./pkg/kpp/kpp_calc.F |
330 |
KPP_CALC |
km1 = max(1,k-1) |
|
./pkg/kpp/kpp_calc.F |
336 |
KPP_CALC |
dbloc(i,j,k) = dbloc(i,j,k) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
338 |
KPP_CALC |
ghat(i,j,k) = ghat(i,j,k) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
340 |
KPP_CALC |
Ritop(i,j,k) = Ritop(i,j,k) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
342 |
KPP_CALC |
if(k.eq.nzmax(i,j,bi,bj)) then |
|
./pkg/kpp/kpp_calc.F |
343 |
KPP_CALC |
dbloc(i,j,k) = p0 |
|
./pkg/kpp/kpp_calc.F |
344 |
KPP_CALC |
ghat(i,j,k) = p0 |
|
./pkg/kpp/kpp_calc.F |
345 |
KPP_CALC |
Ritop(i,j,k) = p0 |
|
./pkg/kpp/kpp_calc.F |
351 |
KPP_CALC |
Ritop(i,j,k) = (zgrid(1)-zgrid(k)) * Ritop(i,j,k) |
|
./pkg/kpp/kpp_calc.F |
418 |
KPP_CALC |
DO k=2,Nr |
|
./pkg/kpp/kpp_calc.F |
419 |
KPP_CALC |
temp1(i,j,k) = 0. _d 0 |
|
./pkg/kpp/kpp_calc.F |
420 |
KPP_CALC |
temp2(i,j,k) = 0. _d 0 |
|
./pkg/kpp/kpp_calc.F |
423 |
KPP_CALC |
DO k=1,Nr |
|
./pkg/kpp/kpp_calc.F |
424 |
KPP_CALC |
temp1(i,j,k) = SPforcingS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
425 |
KPP_CALC |
temp2(i,j,k) = SPforcingT(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
454 |
KPP_CALC |
DO k = 1, Nr |
|
./pkg/kpp/kpp_calc.F |
457 |
KPP_CALC |
shsq(i,j,k) = p0 |
|
./pkg/kpp/kpp_calc.F |
463 |
KPP_CALC |
DO k = 1, Nrm1 |
|
./pkg/kpp/kpp_calc.F |
464 |
KPP_CALC |
kp1 = k + 1 |
|
./pkg/kpp/kpp_calc.F |
471 |
KPP_CALC |
shsq(i,j,k) = p5 * ( |
|
./pkg/kpp/kpp_calc.F |
472 |
KPP_CALC |
& (uVel(i, j, k,bi,bj)-uVel(i, j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
473 |
KPP_CALC |
& (uVel(i, j, k,bi,bj)-uVel(i, j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
474 |
KPP_CALC |
& (uVel(ip1,j, k,bi,bj)-uVel(ip1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
475 |
KPP_CALC |
& (uVel(ip1,j, k,bi,bj)-uVel(ip1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
476 |
KPP_CALC |
& (vVel(i, j, k,bi,bj)-vVel(i, j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
477 |
KPP_CALC |
& (vVel(i, j, k,bi,bj)-vVel(i, j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
478 |
KPP_CALC |
& (vVel(i, jp1,k,bi,bj)-vVel(i, jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
479 |
KPP_CALC |
& (vVel(i, jp1,k,bi,bj)-vVel(i, jp1,kp1,bi,bj)) ) |
|
./pkg/kpp/kpp_calc.F |
481 |
KPP_CALC |
shsq(i,j,k) = p5 * shsq(i,j,k) + p125 * ( |
|
./pkg/kpp/kpp_calc.F |
482 |
KPP_CALC |
& (uVel(i, jm1,k,bi,bj)-uVel(i, jm1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
483 |
KPP_CALC |
& (uVel(i, jm1,k,bi,bj)-uVel(i, jm1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
484 |
KPP_CALC |
& (uVel(ip1,jm1,k,bi,bj)-uVel(ip1,jm1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
485 |
KPP_CALC |
& (uVel(ip1,jm1,k,bi,bj)-uVel(ip1,jm1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
486 |
KPP_CALC |
& (uVel(i, jp1,k,bi,bj)-uVel(i, jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
487 |
KPP_CALC |
& (uVel(i, jp1,k,bi,bj)-uVel(i, jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
488 |
KPP_CALC |
& (uVel(ip1,jp1,k,bi,bj)-uVel(ip1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
489 |
KPP_CALC |
& (uVel(ip1,jp1,k,bi,bj)-uVel(ip1,jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
490 |
KPP_CALC |
& (vVel(im1,j, k,bi,bj)-vVel(im1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
491 |
KPP_CALC |
& (vVel(im1,j, k,bi,bj)-vVel(im1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
492 |
KPP_CALC |
& (vVel(im1,jp1,k,bi,bj)-vVel(im1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
493 |
KPP_CALC |
& (vVel(im1,jp1,k,bi,bj)-vVel(im1,jp1,kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
494 |
KPP_CALC |
& (vVel(ip1,j, k,bi,bj)-vVel(ip1,j, kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
495 |
KPP_CALC |
& (vVel(ip1,j, k,bi,bj)-vVel(ip1,j, kp1,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
496 |
KPP_CALC |
& (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
497 |
KPP_CALC |
& (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,bi,bj)) ) |
|
./pkg/kpp/kpp_calc.F |
572 |
KPP_CALC |
DO k = 1, Nr |
|
./pkg/kpp/kpp_calc.F |
573 |
KPP_CALC |
km1 = max(1,k-1) |
|
./pkg/kpp/kpp_calc.F |
574 |
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 |
576 |
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 |
578 |
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 |
580 |
KPP_CALC |
KPPghat(i,j,k,bi,bj) = ghat(i,j,k) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
583 |
KPP_CALC |
k = 1 |
|
./pkg/kpp/kpp_calc.F |
585 |
KPP_CALC |
if ( useShelfIce ) k = kTopC(i,j,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
587 |
KPP_CALC |
KPPhbl(i,j,bi,bj) = hbl(i,j) * maskC(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
594 |
KPP_CALC |
DO k = 1, Nr |
|
./pkg/kpp/kpp_calc.F |
596 |
KPP_CALC |
I k, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
597 |
KPP_CALC |
U KPPviscAz(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/kpp/kpp_calc.F |
606 |
KPP_CALC |
DO k = 1, Nr |
|
./pkg/kpp/kpp_calc.F |
608 |
KPP_CALC |
I k, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
609 |
KPP_CALC |
U KPPdiffKzS(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/kpp/kpp_calc.F |
612 |
KPP_CALC |
I k, bi, bj, |
|
./pkg/kpp/kpp_calc.F |
613 |
KPP_CALC |
U KPPdiffKzT(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/kpp/kpp_calc.F |
722 |
KPP_CALC_DUMMY |
integer i, j, k |
|
./pkg/kpp/kpp_calc.F |
731 |
KPP_CALC_DUMMY |
DO k = 1,Nr |
|
./pkg/kpp/kpp_calc.F |
732 |
KPP_CALC_DUMMY |
KPPghat (i,j,k,bi,bj) = 0.0 |
|
./pkg/kpp/kpp_calc.F |
733 |
KPP_CALC_DUMMY |
KPPviscAz (i,j,k,bi,bj) = viscArNr(1) |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
52 |
KPP_CALC_DIFF_PTR |
INTEGER i,j,k |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
57 |
KPP_CALC_DIFF_PTR |
DO k=1,MIN(Nr,kSize) |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
61 |
KPP_CALC_DIFF_PTR |
KappaRx(i,j,k) = LS_KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
63 |
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 |
KappaRx(i,j,k) = KappaRx(i,j,k) |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
67 |
KPP_CALC_DIFF_PTR |
& - diffKrNrS(k) + PTRACERS_diffKrNr(k,iTr) |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
74 |
KPP_CALC_DIFF_PTR |
k = MIN(kArg,kSize) |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
78 |
KPP_CALC_DIFF_PTR |
KappaRx(i,j,k) = LS_KPPdiffKzS(i,j,kArg,bi,bj) |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
80 |
KPP_CALC_DIFF_PTR |
KappaRx(i,j,k) = KPPdiffKzS(i,j,kArg,bi,bj) |
|
./pkg/kpp/kpp_calc_diff_ptr.F |
83 |
KPP_CALC_DIFF_PTR |
KappaRx(i,j,k) = KappaRx(i,j,k) |
|
./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 |
40 |
KPP_CALC_VISC |
KappaRU(i,j,k) = max ( KappaRU(i,j,k), |
|
./pkg/kpp/kpp_calc_visc.F |
41 |
KPP_CALC_VISC |
& KappaRU(i,j,k) - viscArNr(1) + _maskW(i,j,k,bi,bj) * |
|
./pkg/kpp/kpp_calc_visc.F |
42 |
KPP_CALC_VISC |
& 0.5*(KPPviscAz(i,j,k,bi,bj)+KPPviscAz(i-1,j,k,bi,bj)) ) |
|
./pkg/kpp/kpp_calc_visc.F |
48 |
KPP_CALC_VISC |
KappaRV(i,j,k) = max ( KappaRV(i,j,k), |
|
./pkg/kpp/kpp_calc_visc.F |
49 |
KPP_CALC_VISC |
& KappaRV(i,j,k) - viscArNr(1) + _maskS(i,j,k,bi,bj) * |
|
./pkg/kpp/kpp_calc_visc.F |
50 |
KPP_CALC_VISC |
& 0.5*(KPPviscAz(i,j,k,bi,bj)+KPPviscAz(i,j-1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
128 |
KPP_FORCING_SURF |
INTEGER i, j, k, im1, ip1, jm1, jp1 |
|
./pkg/kpp/kpp_forcing_surf.F |
171 |
KPP_FORCING_SURF |
DO k = 1, Nr |
|
./pkg/kpp/kpp_forcing_surf.F |
172 |
KPP_FORCING_SURF |
boplume(I,J,k) = p0 |
|
./pkg/kpp/kpp_forcing_surf.F |
230 |
KPP_FORCING_SURF |
DO k = 1, Nr |
|
./pkg/kpp/kpp_forcing_surf.F |
231 |
KPP_FORCING_SURF |
kp1 = k+1 |
|
./pkg/kpp/kpp_forcing_surf.F |
233 |
KPP_FORCING_SURF |
& ( SSBETA(I,J,k) * SPforcS(i,j,k) + |
|
./pkg/kpp/kpp_forcing_surf.F |
234 |
KPP_FORCING_SURF |
& TTALPHA(I,J,k)* SPforcT(i,j,k) / HeatCapacity_Cp ) |
|
./pkg/kpp/kpp_forcing_surf.F |
236 |
KPP_FORCING_SURF |
boplume(I,J,kp1) = boplume(I,J,k)+temparray(I,J) |
|
./pkg/kpp/kpp_forcing_surf.F |
243 |
KPP_FORCING_SURF |
DO k = 2, Nrp1 |
|
./pkg/kpp/kpp_forcing_surf.F |
244 |
KPP_FORCING_SURF |
boplume(I,J,k) = 0. _d 0 |
|
./pkg/kpp/kpp_forcing_surf.F |
279 |
KPP_FORCING_SURF |
DO k = 1, Nr |
|
./pkg/kpp/kpp_forcing_surf.F |
282 |
KPP_FORCING_SURF |
dVsq(i,j,k) = p0 |
|
./pkg/kpp/kpp_forcing_surf.F |
305 |
KPP_FORCING_SURF |
DO k = 1, Nr |
|
./pkg/kpp/kpp_forcing_surf.F |
306 |
KPP_FORCING_SURF |
IF ( k .LT. nzmax(i,j,bi,bj) .AND. |
|
./pkg/kpp/kpp_forcing_surf.F |
307 |
KPP_FORCING_SURF |
& maskC(I,J,k,bi,bj) .GT. 0. .AND. |
|
./pkg/kpp/kpp_forcing_surf.F |
308 |
KPP_FORCING_SURF |
& dbloc(i,j,k) / drC(k+1) .GT. dB_dz ) |
|
./pkg/kpp/kpp_forcing_surf.F |
309 |
KPP_FORCING_SURF |
& work1(i,j) = k |
|
./pkg/kpp/kpp_forcing_surf.F |
313 |
KPP_FORCING_SURF |
k = work1(i,j) |
|
./pkg/kpp/kpp_forcing_surf.F |
314 |
KPP_FORCING_SURF |
IF ( k .EQ. 0 .OR. nzmax(i,j,bi,bj) .EQ. 1 ) THEN |
|
./pkg/kpp/kpp_forcing_surf.F |
316 |
KPP_FORCING_SURF |
ELSEIF ( k .EQ. 1) THEN |
|
./pkg/kpp/kpp_forcing_surf.F |
319 |
KPP_FORCING_SURF |
ELSEIF ( k .LT. nzmax(i,j,bi,bj) ) THEN |
|
./pkg/kpp/kpp_forcing_surf.F |
320 |
KPP_FORCING_SURF |
dBdz1 = dbloc(i,j,k-1) / drC(k ) |
|
./pkg/kpp/kpp_forcing_surf.F |
321 |
KPP_FORCING_SURF |
dBdz2 = dbloc(i,j,k ) / drC(k+1) |
|
./pkg/kpp/kpp_forcing_surf.F |
322 |
KPP_FORCING_SURF |
zRef(i,j) = rF(k) + drF(k) * (dB_dz - dBdz1) / |
|
./pkg/kpp/kpp_forcing_surf.F |
325 |
KPP_FORCING_SURF |
zRef(i,j) = rF(k+1) |
|
./pkg/kpp/kpp_forcing_surf.F |
379 |
KPP_FORCING_SURF |
DO k = 1, Nr |
|
./pkg/kpp/kpp_forcing_surf.F |
386 |
KPP_FORCING_SURF |
dVsq(i,j,k) = p5 * ( |
|
./pkg/kpp/kpp_forcing_surf.F |
387 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(i, j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
388 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(i, j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
389 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
390 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
391 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(i, j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
392 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(i, j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
393 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
394 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(i, jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
396 |
KPP_FORCING_SURF |
dVsq(i,j,k) = p5 * dVsq(i,j,k) + p125 * ( |
|
./pkg/kpp/kpp_forcing_surf.F |
397 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(i, jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
398 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(i, jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
399 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(ip1,jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
400 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(ip1,jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
401 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
402 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(i, jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
403 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
404 |
KPP_FORCING_SURF |
& (uRef(i,j) - uVel(ip1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
405 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(im1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
406 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(im1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
407 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(im1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
408 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(im1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
409 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
410 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
411 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
412 |
KPP_FORCING_SURF |
& (vRef(i,j) - vVel(ip1,jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
420 |
KPP_FORCING_SURF |
DO k = 1, Nr |
|
./pkg/kpp/kpp_forcing_surf.F |
427 |
KPP_FORCING_SURF |
dVsq(i,j,k) = p5 * ( |
|
./pkg/kpp/kpp_forcing_surf.F |
428 |
KPP_FORCING_SURF |
& (uVel(i, j, 1,bi,bj)-uVel(i, j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
429 |
KPP_FORCING_SURF |
& (uVel(i, j, 1,bi,bj)-uVel(i, j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
430 |
KPP_FORCING_SURF |
& (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
431 |
KPP_FORCING_SURF |
& (uVel(ip1,j, 1,bi,bj)-uVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
432 |
KPP_FORCING_SURF |
& (vVel(i, j, 1,bi,bj)-vVel(i, j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
433 |
KPP_FORCING_SURF |
& (vVel(i, j, 1,bi,bj)-vVel(i, j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
434 |
KPP_FORCING_SURF |
& (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
435 |
KPP_FORCING_SURF |
& (vVel(i, jp1,1,bi,bj)-vVel(i, jp1,k,bi,bj)) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
437 |
KPP_FORCING_SURF |
dVsq(i,j,k) = p5 * dVsq(i,j,k) + p125 * ( |
|
./pkg/kpp/kpp_forcing_surf.F |
438 |
KPP_FORCING_SURF |
& (uVel(i, jm1,1,bi,bj)-uVel(i, jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
439 |
KPP_FORCING_SURF |
& (uVel(i, jm1,1,bi,bj)-uVel(i, jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
440 |
KPP_FORCING_SURF |
& (uVel(ip1,jm1,1,bi,bj)-uVel(ip1,jm1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
441 |
KPP_FORCING_SURF |
& (uVel(ip1,jm1,1,bi,bj)-uVel(ip1,jm1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
442 |
KPP_FORCING_SURF |
& (uVel(i, jp1,1,bi,bj)-uVel(i, jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
443 |
KPP_FORCING_SURF |
& (uVel(i, jp1,1,bi,bj)-uVel(i, jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
444 |
KPP_FORCING_SURF |
& (uVel(ip1,jp1,1,bi,bj)-uVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
445 |
KPP_FORCING_SURF |
& (uVel(ip1,jp1,1,bi,bj)-uVel(ip1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
446 |
KPP_FORCING_SURF |
& (vVel(im1,j, 1,bi,bj)-vVel(im1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
447 |
KPP_FORCING_SURF |
& (vVel(im1,j, 1,bi,bj)-vVel(im1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
448 |
KPP_FORCING_SURF |
& (vVel(im1,jp1,1,bi,bj)-vVel(im1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
449 |
KPP_FORCING_SURF |
& (vVel(im1,jp1,1,bi,bj)-vVel(im1,jp1,k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
450 |
KPP_FORCING_SURF |
& (vVel(ip1,j, 1,bi,bj)-vVel(ip1,j, k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
451 |
KPP_FORCING_SURF |
& (vVel(ip1,j, 1,bi,bj)-vVel(ip1,j, k,bi,bj)) + |
|
./pkg/kpp/kpp_forcing_surf.F |
452 |
KPP_FORCING_SURF |
& (vVel(ip1,jp1,1,bi,bj)-vVel(ip1,jp1,k,bi,bj)) * |
|
./pkg/kpp/kpp_forcing_surf.F |
453 |
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 |
|
./model/src/calc_adv_flow.F |
110 |
CALC_ADV_FLOW |
uTrans(i,j) = uFld(i,j,k)*xA(i,j)*rhoFacC(k) |
|
./model/src/calc_adv_flow.F |
111 |
CALC_ADV_FLOW |
vTrans(i,j) = vFld(i,j,k)*yA(i,j)*rhoFacC(k) |
|
./model/src/calc_adv_flow.F |
116 |
CALC_ADV_FLOW |
IF (k.EQ.1) THEN |
|
./model/src/calc_adv_flow.F |
129 |
CALC_ADV_FLOW |
maskUp(i,j) = maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj) |
|
./model/src/calc_adv_flow.F |
130 |
CALC_ADV_FLOW |
rTrans(i,j) = wFld(i,j,k)*rA(i,j,bi,bj)*maskUp(i,j) |
|
./model/src/calc_adv_flow.F |
131 |
CALC_ADV_FLOW |
& *deepFac2F(k)*rhoFacF(k) |
|
./model/src/calc_adv_flow.F |
15 |
CALC_ADV_FLOW |
I k, bi, bj, myThid ) |
|
./model/src/calc_adv_flow.F |
63 |
CALC_ADV_FLOW |
INTEGER k,bi,bj |
|
./model/src/calc_adv_flow.F |
75 |
CALC_ADV_FLOW |
xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k) |
|
./model/src/calc_adv_flow.F |
76 |
CALC_ADV_FLOW |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./model/src/calc_adv_flow.F |
77 |
CALC_ADV_FLOW |
yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k) |
|
./model/src/calc_adv_flow.F |
78 |
CALC_ADV_FLOW |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./model/src/calc_adv_flow.F |
83 |
CALC_ADV_FLOW |
IF ( k.EQ.Nr ) THEN |
|
./model/src/calc_adv_flow.F |
95 |
CALC_ADV_FLOW |
rTransKp(i,j) = wFld(i,j,k+1)*rA(i,j,bi,bj) |
|
./model/src/calc_adv_flow.F |
96 |
CALC_ADV_FLOW |
& * maskC(i,j,k,bi,bj)*maskC(i,j,k+1,bi,bj) |
|
./model/src/calc_adv_flow.F |
97 |
CALC_ADV_FLOW |
& * deepFac2F(k+1)*rhoFacF(k+1) |
|
./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 |
236 |
KPP_OUTPUT |
DO k=2,Nr |
|
./pkg/kpp/kpp_output.F |
239 |
KPP_OUTPUT |
KPPghatKStave(i,j,k,bi,bj) = KPPghatKStave(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_output.F |
240 |
KPP_OUTPUT |
& + ( KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_output.F |
242 |
KPP_OUTPUT |
& +tmpFac*Kwz(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_output.F |
244 |
KPP_OUTPUT |
& )*KPPghat(i,j,k-1,bi,bj)*DDTT |
|
./pkg/kpp/kpp_output.F |
393 |
KPP_OUTPUT |
DO k=2,Nr |
|
./pkg/kpp/kpp_output.F |
396 |
KPP_OUTPUT |
tmpLoc(i,j,k) = KPPghat(i,j,k-1,bi,bj)* |
|
./pkg/kpp/kpp_output.F |
397 |
KPP_OUTPUT |
& ( KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_output.F |
399 |
KPP_OUTPUT |
& + tmpFac*Kwz(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_output.F |
89 |
KPP_OUTPUT |
INTEGER i, j, k |
|
./pkg/kpp/kpp_routines.F |
1152 |
Z121 |
integer i, k, km1, kp1 |
|
./pkg/kpp/kpp_routines.F |
1169 |
Z121 |
k = 1 |
|
./pkg/kpp/kpp_routines.F |
1175 |
Z121 |
do k = 1, Nr |
|
./pkg/kpp/kpp_routines.F |
1176 |
Z121 |
KRi_range(k) = p5 + SIGN(p5,v(i,k)) |
|
./pkg/kpp/kpp_routines.F |
1177 |
Z121 |
KRi_range(k) = KRi_range(k) * |
|
./pkg/kpp/kpp_routines.F |
1178 |
Z121 |
& ( p5 + SIGN(p5,(Riinfty-v(i,k))) ) |
|
./pkg/kpp/kpp_routines.F |
1187 |
Z121 |
do k = 2, Nr |
|
./pkg/kpp/kpp_routines.F |
1191 |
Z121 |
km1 = k - 1 |
|
./pkg/kpp/kpp_routines.F |
1192 |
Z121 |
kp1 = k + 1 |
|
./pkg/kpp/kpp_routines.F |
1193 |
Z121 |
zflag = v(i,k) |
|
./pkg/kpp/kpp_routines.F |
1194 |
Z121 |
v(i,k) = p2 * v(i,k) + |
|
./pkg/kpp/kpp_routines.F |
1195 |
Z121 |
& KRi_range(k) * KRi_range(kp1) * v(i,kp1) + |
|
./pkg/kpp/kpp_routines.F |
1196 |
Z121 |
& KRi_range(k) * zwork |
|
./pkg/kpp/kpp_routines.F |
1197 |
Z121 |
zwork = KRi_range(k) * zflag |
|
./pkg/kpp/kpp_routines.F |
1198 |
Z121 |
zflag = p2 + KRi_range(k)*(KRi_range(kp1)+KRi_range(km1)) |
|
./pkg/kpp/kpp_routines.F |
1199 |
Z121 |
v(i,k) = v(i,k) / zflag |
|
./pkg/kpp/kpp_routines.F |
1212 |
SMOOTH_HORIZ |
I k, bi, bj, |
|
./pkg/kpp/kpp_routines.F |
1228 |
SMOOTH_HORIZ |
integer k, bi, bj |
|
./pkg/kpp/kpp_routines.F |
1254 |
SMOOTH_HORIZ |
& p25 * maskC(i ,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1255 |
SMOOTH_HORIZ |
& p125 * ( maskC(im1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1256 |
SMOOTH_HORIZ |
& maskC(ip1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1257 |
SMOOTH_HORIZ |
& maskC(i ,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1258 |
SMOOTH_HORIZ |
& maskC(i ,jp1,k,bi,bj) ) + |
|
./pkg/kpp/kpp_routines.F |
1259 |
SMOOTH_HORIZ |
& p0625 * ( maskC(im1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1260 |
SMOOTH_HORIZ |
& maskC(im1,jp1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1261 |
SMOOTH_HORIZ |
& maskC(ip1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1262 |
SMOOTH_HORIZ |
& maskC(ip1,jp1,k,bi,bj) ) |
|
./pkg/kpp/kpp_routines.F |
1265 |
SMOOTH_HORIZ |
& p25 * fld(i ,j )*maskC(i ,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1266 |
SMOOTH_HORIZ |
& p125 *(fld(im1,j )*maskC(im1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1267 |
SMOOTH_HORIZ |
& fld(ip1,j )*maskC(ip1,j ,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1268 |
SMOOTH_HORIZ |
& fld(i ,jm1)*maskC(i ,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1269 |
SMOOTH_HORIZ |
& fld(i ,jp1)*maskC(i ,jp1,k,bi,bj))+ |
|
./pkg/kpp/kpp_routines.F |
1270 |
SMOOTH_HORIZ |
& p0625*(fld(im1,jm1)*maskC(im1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1271 |
SMOOTH_HORIZ |
& fld(im1,jp1)*maskC(im1,jp1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1272 |
SMOOTH_HORIZ |
& fld(ip1,jm1)*maskC(ip1,jm1,k,bi,bj) + |
|
./pkg/kpp/kpp_routines.F |
1273 |
SMOOTH_HORIZ |
& fld(ip1,jp1)*maskC(ip1,jp1,k,bi,bj))) |
|
./pkg/kpp/kpp_routines.F |
155 |
KPPMIX |
integer i, k, md |
|
./pkg/kpp/kpp_routines.F |
1745 |
STATEKPP |
kkppkey = (ikppkey-1)*Nr + k |
|
./pkg/kpp/kpp_routines.F |
1754 |
STATEKPP |
I 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, k, |
|
./pkg/kpp/kpp_routines.F |
1755 |
STATEKPP |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/kpp/kpp_routines.F |
1757 |
STATEKPP |
I k, bi, bj, myThid ) |
|
./pkg/kpp/kpp_routines.F |
1766 |
STATEKPP |
I 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, k, |
|
./pkg/kpp/kpp_routines.F |
1767 |
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 |
1769 |
STATEKPP |
I k-1, bi, bj, myThid ) |
|
./pkg/kpp/kpp_routines.F |
1778 |
STATEKPP |
I 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, k, |
|
./pkg/kpp/kpp_routines.F |
194 |
KPPMIX |
do k=1,Nrp1 |
|
./pkg/kpp/kpp_routines.F |
196 |
KPPMIX |
if(k.ge.kmtj(i)) diffus(i,k,md) = 0.0 |
|
./pkg/kpp/kpp_routines.F |
1986 |
KPP_DOUBLEDIFF |
CALL DIAGNOSTICS_FILL(nuddt,'KPPnuddt',k,1,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_routines.F |
1987 |
KPP_DOUBLEDIFF |
CALL DIAGNOSTICS_FILL(nudds,'KPPnudds',k,1,2,bi,bj,myThid) |
|
./pkg/kpp/kpp_routines.F |
266 |
KPPMIX |
do k = 1, Nr |
|
./pkg/kpp/kpp_routines.F |
268 |
KPPMIX |
if (k .lt. kbl(i)) then |
|
./pkg/kpp/kpp_routines.F |
272 |
KPPMIX |
blmc(i,k,1) = max ( blmc(i,k,1)*msk(i), |
|
./pkg/kpp/kpp_routines.F |
273 |
KPPMIX |
& diffus(i,k,1) ) |
|
./pkg/kpp/kpp_routines.F |
274 |
KPPMIX |
blmc(i,k,2) = max ( blmc(i,k,2)*msk(i), |
|
./pkg/kpp/kpp_routines.F |
275 |
KPPMIX |
& diffus(i,k,2) ) |
|
./pkg/kpp/kpp_routines.F |
276 |
KPPMIX |
blmc(i,k,3) = max ( blmc(i,k,3)*msk(i), |
|
./pkg/kpp/kpp_routines.F |
277 |
KPPMIX |
& diffus(i,k,3) ) |
|
./pkg/kpp/kpp_routines.F |
279 |
KPPMIX |
diffus(i,k,1) = max ( blmc(i,k,1), viscArNr(1) ) |
|
./pkg/kpp/kpp_routines.F |
280 |
KPPMIX |
diffus(i,k,2) = max ( blmc(i,k,2), diffusKzS(i,Nr) ) |
|
./pkg/kpp/kpp_routines.F |
281 |
KPPMIX |
diffus(i,k,3) = max ( blmc(i,k,3), diffusKzT(i,Nr) ) |
|
./pkg/kpp/kpp_routines.F |
283 |
KPPMIX |
ghat(i,k) = 0. _d 0 |
|
./pkg/kpp/kpp_transport_ptr.F |
107 |
KPP_TRANSPORT_PTR |
& *( LS_KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
109 |
KPP_TRANSPORT_PTR |
& + tmpFac*LS_Kwz(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
113 |
KPP_TRANSPORT_PTR |
& *( KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
115 |
KPP_TRANSPORT_PTR |
& + tmpFac*Kwz(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
11 |
KPP_TRANSPORT_PTR |
I bi, bj, k, km1, iTr, |
|
./pkg/kpp/kpp_transport_ptr.F |
65 |
KPP_TRANSPORT_PTR |
INTEGER bi, bj, k, km1, iTr |
|
./pkg/kpp/kpp_transport_ptr.F |
91 |
KPP_TRANSPORT_PTR |
& *KPPghat(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_s.F |
113 |
KPP_TRANSPORT_S |
& *KPPdiffKzS(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_s.F |
13 |
KPP_TRANSPORT_S |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
|
./pkg/kpp/kpp_transport_s.F |
53 |
KPP_TRANSPORT_S |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k,km1 |
|
./pkg/kpp/kpp_transport_s.F |
97 |
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 |
80 |
KPP_TRANSPORT_T |
& *( KPPdiffKzT(i,j,k,bi,bj) + tmpFac*Kwz(i,j,k,bi,bj) ) |
|
./pkg/kpp/kpp_transport_t.F |
95 |
KPP_TRANSPORT_T |
& *KPPdiffKzT(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
10 |
CALC_DIV_GHAT |
I bi,bj,k, |
|
./model/src/calc_div_ghat.F |
115 |
CALC_DIV_GHAT |
pf(i,j) = ( implicDiv2Dflow * gU(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
116 |
CALC_DIV_GHAT |
& + (1. _d 0-implicDiv2Dflow)* uVel(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
132 |
CALC_DIV_GHAT |
cg3d_b(i,j,k,bi,bj) = ( pf(i+1,j)-pf(i,j) ) |
|
./model/src/calc_div_ghat.F |
142 |
CALC_DIV_GHAT |
pf(i,j) = yA(i,j)*gV(i,j,k,bi,bj) / deltatmom |
|
./model/src/calc_div_ghat.F |
151 |
CALC_DIV_GHAT |
& *yA(i,j)*gV(i,j,k,bi,bj) / deltatmom |
|
./model/src/calc_div_ghat.F |
158 |
CALC_DIV_GHAT |
pf(i,j) = ( implicDiv2Dflow * gV(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
159 |
CALC_DIV_GHAT |
& + (1. _d 0-implicDiv2Dflow)* vVel(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
175 |
CALC_DIV_GHAT |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
187 |
CALC_DIV_GHAT |
& - addMass(i,j,k,bi,bj)*mass2rUnit/deltaTMom |
|
./model/src/calc_div_ghat.F |
194 |
CALC_DIV_GHAT |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
195 |
CALC_DIV_GHAT |
& - addMass(i,j,k,bi,bj)*mass2rUnit/deltaTMom |
|
./model/src/calc_div_ghat.F |
44 |
CALC_DIV_GHAT |
INTEGER k |
|
./model/src/calc_div_ghat.F |
67 |
CALC_DIV_GHAT |
xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k) |
|
./model/src/calc_div_ghat.F |
68 |
CALC_DIV_GHAT |
& *drF(k)*_hFacW(i,j,k,bi,bj)*rhoFacC(k) |
|
./model/src/calc_div_ghat.F |
69 |
CALC_DIV_GHAT |
yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k) |
|
./model/src/calc_div_ghat.F |
70 |
CALC_DIV_GHAT |
& *drF(k)*_hFacS(i,j,k,bi,bj)*rhoFacC(k) |
|
./model/src/calc_div_ghat.F |
83 |
CALC_DIV_GHAT |
pf(i,j) = xA(i,j)*gU(i,j,k,bi,bj) / deltaTMom |
|
./model/src/calc_div_ghat.F |
92 |
CALC_DIV_GHAT |
& *xA(i,j)*gU(i,j,k,bi,bj) / deltaTMom |
|
./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 |
|
./model/src/calc_eddy_stress.F |
45 |
CALC_EDDY_STRESS |
INTEGER i,j,k |
|
./model/src/calc_eddy_stress.F |
53 |
CALC_EDDY_STRESS |
DO k=1,Nr |
|
./model/src/calc_eddy_stress.F |
58 |
CALC_EDDY_STRESS |
psiy = op25*(GM_PsiY(i, j ,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
59 |
CALC_EDDY_STRESS |
& +GM_PsiY(i, j+1,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
60 |
CALC_EDDY_STRESS |
& +GM_PsiY(i-1,j ,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
61 |
CALC_EDDY_STRESS |
& +GM_PsiY(i-1,j+1,k,bi,bj)) |
|
./model/src/calc_eddy_stress.F |
63 |
CALC_EDDY_STRESS |
psiy = op25*(eddyPsiY(i, j ,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
64 |
CALC_EDDY_STRESS |
& +eddyPsiY(i, j+1,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
65 |
CALC_EDDY_STRESS |
& +eddyPsiY(i-1,j ,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
66 |
CALC_EDDY_STRESS |
& +eddyPsiY(i-1,j+1,k,bi,bj)) |
|
./model/src/calc_eddy_stress.F |
70 |
CALC_EDDY_STRESS |
tauxEddy(i,j,k,bi,bj) = rhoConst*coriU*psiy |
|
./model/src/calc_eddy_stress.F |
77 |
CALC_EDDY_STRESS |
psix = op25*(GM_PsiX(i, j ,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
78 |
CALC_EDDY_STRESS |
& +GM_PsiX(i+1,j ,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
79 |
CALC_EDDY_STRESS |
& +GM_PsiX(i ,j-1,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
80 |
CALC_EDDY_STRESS |
& +GM_PsiX(i+1,j-1,k,bi,bj)) |
|
./model/src/calc_eddy_stress.F |
82 |
CALC_EDDY_STRESS |
psix = op25*(eddyPsiX(i, j ,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
83 |
CALC_EDDY_STRESS |
& +eddyPsiX(i+1,j ,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
84 |
CALC_EDDY_STRESS |
& +eddyPsiX(i ,j-1,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
85 |
CALC_EDDY_STRESS |
& +eddyPsiX(i+1,j-1,k,bi,bj)) |
|
./model/src/calc_eddy_stress.F |
89 |
CALC_EDDY_STRESS |
tauyEddy(i,j,k,bi,bj) = -rhoConst*coriV*psix |
|
./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 |
225 |
LAND_OUTPUT |
k = 3*land_nLev |
|
./pkg/land/land_output.F |
226 |
LAND_OUTPUT |
CALL WRITE_REC_XY_RL( fn, land_sTtave, k+1, myIter, myThid ) |
|
./pkg/land/land_output.F |
227 |
LAND_OUTPUT |
CALL WRITE_REC_XY_RL( fn, land_hStave, k+2, myIter, myThid ) |
|
./pkg/land/land_output.F |
228 |
LAND_OUTPUT |
CALL WRITE_REC_XY_RL( fn, land_sAtave, k+3, myIter, myThid ) |
|
./pkg/land/land_output.F |
229 |
LAND_OUTPUT |
CALL WRITE_REC_XY_RL( fn, land_ROftave, k+4, myIter, myThid ) |
|
./pkg/land/land_output.F |
230 |
LAND_OUTPUT |
CALL WRITE_REC_XY_RL( fn, land_eROtave, k+5, myIter, myThid ) |
|
./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 |
71 |
LAND_READ_PICKUP |
k=2*land_nLev |
|
./pkg/land/land_read_pickup.F |
73 |
LAND_READ_PICKUP |
& land_skinT, k+1, myIter, myThid ) |
|
./pkg/land/land_read_pickup.F |
75 |
LAND_READ_PICKUP |
& land_hSnow, k+2, myIter, myThid ) |
|
./pkg/land/land_read_pickup.F |
77 |
LAND_READ_PICKUP |
& land_snowAge,k+3, myIter, myThid ) |
|
./pkg/land/land_read_pickup.F |
86 |
LAND_READ_PICKUP |
DO k = 1,MAX_LEN_FNAM |
|
./pkg/land/land_read_pickup.F |
87 |
LAND_READ_PICKUP |
fn(k:k) = ' ' |
|
./pkg/land/land_readparms.F |
163 |
LAND_READPARMS |
DO k=1,land_nLev |
|
./pkg/land/land_readparms.F |
164 |
LAND_READPARMS |
land_dzF(k) = -1. |
|
./pkg/land/land_readparms.F |
165 |
LAND_READPARMS |
land_rec_dzC(k) = -1. |
|
./pkg/land/land_readparms.F |
201 |
LAND_READPARMS |
DO k=1,land_nLev |
|
./pkg/land/land_readparms.F |
202 |
LAND_READPARMS |
tmpvar = tmpvar+land_dzF(k) |
|
./pkg/land/land_readparms.F |
203 |
LAND_READPARMS |
IF (tmpvar.GT.0. _d 0) land_rec_dzC(k) = 2. _d 0 / tmpvar |
|
./pkg/land/land_readparms.F |
204 |
LAND_READPARMS |
tmpvar = land_dzF(k) |
|
./pkg/land/land_readparms.F |
43 |
LAND_READPARMS |
INTEGER iUnit, k |
|
./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) = ' ' |
|
./model/src/calc_grad_phi_fv.F |
103 |
CALC_GRAD_PHI_FV |
dPhiHydX(i,j) = dPhiHydX(i,j)*_maskW(i,j,k,bi,bj) |
|
./model/src/calc_grad_phi_fv.F |
104 |
CALC_GRAD_PHI_FV |
dPhiHydY(i,j) = dPhiHydY(i,j)*_maskS(i,j,k,bi,bj) |
|
./model/src/calc_grad_phi_fv.F |
10 |
CALC_GRAD_PHI_FV |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./model/src/calc_grad_phi_fv.F |
47 |
CALC_GRAD_PHI_FV |
INTEGER k, bi,bj, iMin,iMax, jMin,jMax |
|
./pkg/layers/layers_calc.F |
172 |
LAYERS_CALC |
DO k=1,Nr |
|
./pkg/layers/layers_calc.F |
175 |
LAYERS_CALC |
prho(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
179 |
LAYERS_CALC |
DO k = 1,Nr |
|
./pkg/layers/layers_calc.F |
182 |
LAYERS_CALC |
& theta(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/layers/layers_calc.F |
183 |
LAYERS_CALC |
& salt(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/layers/layers_calc.F |
184 |
LAYERS_CALC |
& prho(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/layers/layers_calc.F |
185 |
LAYERS_CALC |
& k, bi, bj, myThid ) |
|
./pkg/layers/layers_calc.F |
190 |
LAYERS_CALC |
& k, layers_krho(iLa), |
|
./pkg/layers/layers_calc.F |
191 |
LAYERS_CALC |
& layers_alpha(1-OLx,1-OLy,k,bi,bj), myThid ) |
|
./pkg/layers/layers_calc.F |
193 |
LAYERS_CALC |
& k, layers_krho(iLa), |
|
./pkg/layers/layers_calc.F |
194 |
LAYERS_CALC |
& layers_beta(1-OLx,1-OLy,k,bi,bj), myThid ) |
|
./pkg/layers/layers_calc.F |
198 |
LAYERS_CALC |
prho(i,j,k,bi,bj) = prho(i,j,k,bi,bj) + rhoShift |
|
./pkg/layers/layers_calc.F |
448 |
LAYERS_CALC |
DO k=1,Nr |
|
./pkg/layers/layers_calc.F |
451 |
LAYERS_CALC |
layers_dfx (i,j,k,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
452 |
LAYERS_CALC |
layers_dfy (i,j,k,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
453 |
LAYERS_CALC |
layers_dfr (i,j,k,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
454 |
LAYERS_CALC |
layers_afx (i,j,k,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
455 |
LAYERS_CALC |
layers_afy (i,j,k,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
456 |
LAYERS_CALC |
layers_afr (i,j,k,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
457 |
LAYERS_CALC |
layers_tottend (i,j,k,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
459 |
LAYERS_CALC |
layers_sw (i,j,k,1 ,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
80 |
LAYERS_CALC |
INTEGER i, j, k |
|
./pkg/layers/layers_check.F |
28 |
LAYERS_CHECK |
INTEGER iLa, k, errCount |
|
./pkg/layers/layers_check.F |
77 |
LAYERS_CHECK |
DO k=1,Nlayers |
|
./pkg/layers/layers_check.F |
78 |
LAYERS_CHECK |
IF ( layers_bounds(k,iLa).GE.layers_bounds(k+1,iLa) ) THEN |
|
./pkg/layers/layers_check.F |
80 |
LAYERS_CHECK |
& '): layers_bounds k -> k+1 not increasing at k=', k |
|
./pkg/layers/layers_fluxcalc.F |
108 |
LAYERS_FLUXCALC |
INTEGER i,j,k,kk,kg,kci,kp1,kloc |
|
./pkg/layers/layers_fluxcalc.F |
166 |
LAYERS_FLUXCALC |
k = MapIndex(kk) |
|
./pkg/layers/layers_fluxcalc.F |
178 |
LAYERS_FLUXCALC |
kp1=k+1 |
|
./pkg/layers/layers_fluxcalc.F |
179 |
LAYERS_FLUXCALC |
IF (maskW(i,j,kp1,bi,bj).EQ.zeroRS) kp1=k |
|
./pkg/layers/layers_fluxcalc.F |
181 |
LAYERS_FLUXCALC |
& 0.5 _d 0 * (tracer(i-1,j,k,bi,bj)+tracer(i,j,k,bi,bj)) + |
|
./pkg/layers/layers_fluxcalc.F |
258 |
LAYERS_FLUXCALC |
kp1=k+1 |
|
./pkg/layers/layers_fluxcalc.F |
259 |
LAYERS_FLUXCALC |
IF (maskS(i,j,kp1,bi,bj).EQ.zeroRS) kp1=k |
|
./pkg/layers/layers_fluxcalc.F |
261 |
LAYERS_FLUXCALC |
& 0.5 _d 0 * (tracer(i,j-1,k,bi,bj)+tracer(i,j,k,bi,bj)) + |
|
./pkg/layers/layers_fluxcalc.F |
454 |
LAYERS_DIAPYCNAL |
INTEGER i,j,k,kk,kg,kci,kloc |
|
./pkg/layers/layers_fluxcalc.F |
523 |
LAYERS_DIAPYCNAL |
k = MapIndex(kk) |
|
./pkg/layers/layers_fluxcalc.F |
528 |
LAYERS_DIAPYCNAL |
kp1=k+1 |
|
./pkg/layers/layers_fluxcalc.F |
529 |
LAYERS_DIAPYCNAL |
IF (maskC(i,j,kp1,bi,bj).EQ.zeroRS) kp1=k |
|
./pkg/layers/layers_fluxcalc.F |
530 |
LAYERS_DIAPYCNAL |
TatC(i,j) = MapFact(kk) * tracer(i,j,k,bi,bj) + |
|
./pkg/layers/layers_fluxcalc.F |
536 |
LAYERS_DIAPYCNAL |
k = kk |
|
./pkg/layers/layers_fluxcalc.F |
540 |
LAYERS_DIAPYCNAL |
TatC(i,j) = tracer(i,j,k,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
716 |
LAYERS_LOCATE |
O k, |
|
./pkg/layers/layers_fluxcalc.F |
740 |
LAYERS_LOCATE |
INTEGER k(snx+1,sny+1) |
|
./pkg/layers/layers_fluxcalc.F |
780 |
LAYERS_LOCATE |
k(i,j)=1 |
|
./pkg/layers/layers_fluxcalc.F |
782 |
LAYERS_LOCATE |
k(i,j)=n |
|
./pkg/layers/layers_fluxcalc.F |
784 |
LAYERS_LOCATE |
k(i,j)=kl(i,j) |
|
./pkg/layers/layers_fluxcalc.F |
794 |
LAYERS_LOCATE |
k(i,j) = n |
|
./pkg/layers/layers_fluxcalc.F |
797 |
LAYERS_LOCATE |
k(i,j) = 1 |
|
./pkg/layers/layers_fluxcalc.F |
798 |
LAYERS_LOCATE |
ELSE IF ( (x(i,j) .GE. xx(k(i,j))) |
|
./pkg/layers/layers_fluxcalc.F |
799 |
LAYERS_LOCATE |
& .AND. (x(i,j) .LT. xx(k(i,j)+1)) ) THEN |
|
./pkg/layers/layers_fluxcalc.F |
801 |
LAYERS_LOCATE |
ELSE IF (x(i,j) .GE. xx(k(i,j))) THEN |
|
./pkg/layers/layers_fluxcalc.F |
803 |
LAYERS_LOCATE |
DO WHILE (x(i,j) .GE. xx(k(i,j)+1)) |
|
./pkg/layers/layers_fluxcalc.F |
804 |
LAYERS_LOCATE |
k(i,j) = k(i,j) + 1 |
|
./pkg/layers/layers_fluxcalc.F |
807 |
LAYERS_LOCATE |
ELSE IF (x(i,j) .LT. xx(k(i,j)+1)) THEN |
|
./pkg/layers/layers_fluxcalc.F |
809 |
LAYERS_LOCATE |
DO WHILE (x(i,j) .LT. xx(k(i,j))) |
|
./pkg/layers/layers_fluxcalc.F |
810 |
LAYERS_LOCATE |
k(i,j) = k(i,j) - 1 |
|
./pkg/layers/layers_fluxcalc.F |
815 |
LAYERS_LOCATE |
k(i,j) = -1 |
|
./pkg/layers/layers_init_fixed.F |
100 |
LAYERS_INIT_FIXED |
ELSE IF ( (ZZc(kk) .GE. Zc(Nr)) .OR. (k .EQ. Nr) ) THEN |
|
./pkg/layers/layers_init_fixed.F |
104 |
LAYERS_INIT_FIXED |
ELSE IF ( (ZZc(kk) .GE. Zc(k)) |
|
./pkg/layers/layers_init_fixed.F |
107 |
LAYERS_INIT_FIXED |
DO WHILE (ZZc(kk) .GE. Zc(k+1)) |
|
./pkg/layers/layers_init_fixed.F |
108 |
LAYERS_INIT_FIXED |
k = k + 1 |
|
./pkg/layers/layers_init_fixed.F |
111 |
LAYERS_INIT_FIXED |
MapIndex(kk) = k |
|
./pkg/layers/layers_init_fixed.F |
112 |
LAYERS_INIT_FIXED |
MapFact(kk) = 1.0 - (( ZZc(kk) - Zc(k) ) / drC(k+1)) |
|
./pkg/layers/layers_init_fixed.F |
116 |
LAYERS_INIT_FIXED |
& 'S/R LAYERS_INIT_FIXED: kk=', kk, ', k=', k, |
|
./pkg/layers/layers_init_fixed.F |
117 |
LAYERS_INIT_FIXED |
& ', ZZc(kk)=', ZZc(kk),' , Zc(k)=',Zc(k) |
|
./pkg/layers/layers_init_fixed.F |
157 |
LAYERS_INIT_FIXED |
DO k=1,Nlayers |
|
./pkg/layers/layers_init_fixed.F |
158 |
LAYERS_INIT_FIXED |
layers_bounds_w(k,iLa) = 0.5 _d 0 * ( |
|
./pkg/layers/layers_init_fixed.F |
159 |
LAYERS_INIT_FIXED |
& layers_bounds(k+1,iLa) + |
|
./pkg/layers/layers_init_fixed.F |
160 |
LAYERS_INIT_FIXED |
& layers_bounds(k,iLa) ) |
|
./pkg/layers/layers_init_fixed.F |
162 |
LAYERS_INIT_FIXED |
DO k=1,Nlayers-1 |
|
./pkg/layers/layers_init_fixed.F |
163 |
LAYERS_INIT_FIXED |
layers_recip_delta(k,iLa) = 1.0 _d 0 / ( |
|
./pkg/layers/layers_init_fixed.F |
164 |
LAYERS_INIT_FIXED |
& layers_bounds_w(k+1,iLa) - |
|
./pkg/layers/layers_init_fixed.F |
165 |
LAYERS_INIT_FIXED |
& layers_bounds_w(k,iLa) ) |
|
./pkg/layers/layers_init_fixed.F |
34 |
LAYERS_INIT_FIXED |
INTEGER k,kk,kkinit,iLa |
|
./pkg/layers/layers_init_fixed.F |
67 |
LAYERS_INIT_FIXED |
DO k=1,Nr |
|
./pkg/layers/layers_init_fixed.F |
69 |
LAYERS_INIT_FIXED |
dZZf(kk) = dRf(k) / FineGridFact |
|
./pkg/layers/layers_init_fixed.F |
77 |
LAYERS_INIT_FIXED |
DO k=2,Nr |
|
./pkg/layers/layers_init_fixed.F |
78 |
LAYERS_INIT_FIXED |
Zf(k) = Zf(k-1) + drF(k-1) |
|
./pkg/layers/layers_init_fixed.F |
79 |
LAYERS_INIT_FIXED |
Zc(k) = Zc(k-1) + drC(k) |
|
./pkg/layers/layers_init_fixed.F |
93 |
LAYERS_INIT_FIXED |
k = 1 |
|
./pkg/layers/layers_readparms.F |
112 |
LAYERS_READPARMS |
DO k=1,Nlayers+1 |
|
./pkg/layers/layers_readparms.F |
113 |
LAYERS_READPARMS |
IF ( layers_G(k).NE.UNSET_RL ) errCount = errCount + 1 |
|
./pkg/layers/layers_readparms.F |
119 |
LAYERS_READPARMS |
DO k=1,Nlayers+1 |
|
./pkg/layers/layers_readparms.F |
120 |
LAYERS_READPARMS |
IF ( layers_bounds(k,iLa).NE.UNSET_RL ) errCount = errCount+1 |
|
./pkg/layers/layers_readparms.F |
129 |
LAYERS_READPARMS |
DO k=1,Nlayers+1 |
|
./pkg/layers/layers_readparms.F |
130 |
LAYERS_READPARMS |
layers_bounds(k,1) = layers_G(k) |
|
./pkg/layers/layers_readparms.F |
167 |
LAYERS_READPARMS |
DO k=1,Nlayers+1 |
|
./pkg/layers/layers_readparms.F |
168 |
LAYERS_READPARMS |
IF ( layers_bounds(k,iLa).EQ.UNSET_RL ) THEN |
|
./pkg/layers/layers_readparms.F |
170 |
LAYERS_READPARMS |
& 'No value for layers_bounds(k=',k,', iLa=', iLa, ')' |
|
./pkg/layers/layers_readparms.F |
28 |
LAYERS_READPARMS |
INTEGER iUnit, k, iLa |
|
./pkg/layers/layers_readparms.F |
69 |
LAYERS_READPARMS |
DO k=1,Nlayers+1 |
|
./pkg/layers/layers_readparms.F |
70 |
LAYERS_READPARMS |
layers_bounds(k,iLa) = UNSET_RL |
|
./pkg/layers/layers_readparms.F |
78 |
LAYERS_READPARMS |
DO k=1,Nlayers+1 |
|
./pkg/layers/layers_readparms.F |
79 |
LAYERS_READPARMS |
layers_G(k) = UNSET_RL |
|
./pkg/layers/layers_save.F |
150 |
LAYERS_FILL_FIELD |
INTEGER iRun, jRun, k, bi, bj |
|
./pkg/layers/layers_save.F |
220 |
LAYERS_FILL_FIELD |
DO k = kFirst,kLast |
|
./pkg/layers/layers_save.F |
221 |
LAYERS_FILL_FIELD |
kd = kd0 + ksgn*k |
|
./pkg/layers/layers_save.F |
226 |
LAYERS_FILL_FIELD |
I iRun,jRun,k,bi,bj, |
|
./pkg/layers/layers_save.F |
234 |
LAYERS_FILL_FIELD |
DO k = kFirst,kLast |
|
./pkg/layers/layers_save.F |
235 |
LAYERS_FILL_FIELD |
kd = kd0 + ksgn*k |
|
./pkg/layers/layers_save.F |
240 |
LAYERS_FILL_FIELD |
I iRun,jRun,k,bi,bj, |
|
./pkg/layers/layers_save.F |
289 |
LAYERS_CUMULATE |
I iRun,jRun,k,bi,bj, |
|
./pkg/layers/layers_save.F |
318 |
LAYERS_CUMULATE |
INTEGER iRun, jRun, k, bi, bj |
|
./pkg/layers/layers_save.F |
331 |
LAYERS_CUMULATE |
cumFld(i,j) = cumFld(i,j) + inpFld(i,j,k,bi,bj) |
|
./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 |
115 |
CALC_GRAD_PHI_HYD |
IF (Ro_surf(i,j,bi,bj).EQ.rC(k)) THEN |
|
./model/src/calc_grad_phi_hyd.F |
11 |
CALC_GRAD_PHI_HYD |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./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 |
167 |
CALC_GRAD_PHI_HYD |
factorZ = gravity*recip_rhoConst*recip_rhoFacC(k)*0.5 _d 0 |
|
./model/src/calc_grad_phi_hyd.F |
171 |
CALC_GRAD_PHI_HYD |
& *(1. _d 0 + rC(k)*recip_Rcol(i,j,bi,bj)) |
|
./model/src/calc_grad_phi_hyd.F |
179 |
CALC_GRAD_PHI_HYD |
& *recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
187 |
CALC_GRAD_PHI_HYD |
& *recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
198 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
206 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
215 |
CALC_GRAD_PHI_HYD |
factorP = (rC(k)/atm_Po)**atm_kappa |
|
./model/src/calc_grad_phi_hyd.F |
216 |
CALC_GRAD_PHI_HYD |
factorP = (atm_Rd/rC(k))*factorP*0.5 _d 0 |
|
./model/src/calc_grad_phi_hyd.F |
221 |
CALC_GRAD_PHI_HYD |
factorP = halfRL*atm_Cp*(rC(k)/atm_Po)**atm_kappa |
|
./model/src/calc_grad_phi_hyd.F |
229 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
232 |
CALC_GRAD_PHI_HYD |
& *recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
242 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
245 |
CALC_GRAD_PHI_HYD |
& *recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
257 |
CALC_GRAD_PHI_HYD |
dPhiHydX(i,j) = dPhiHydX(i,j)*_maskW(i,j,k,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
258 |
CALC_GRAD_PHI_HYD |
dPhiHydY(i,j) = dPhiHydY(i,j)*_maskS(i,j,k,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
45 |
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/layers/layers_thermodynamics.F |
105 |
LAYERS_CALC_RHS |
tmpfac = -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/layers/layers_thermodynamics.F |
106 |
LAYERS_CALC_RHS |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/layers/layers_thermodynamics.F |
107 |
LAYERS_CALC_RHS |
layers_dfx(i,j,k,iTracer,bi,bj) = maskInC(i,j,bi,bj) * |
|
./pkg/layers/layers_thermodynamics.F |
108 |
LAYERS_CALC_RHS |
& tmpfac * ( layers_dfx(i+1,j,k,iTracer,bi,bj) - |
|
./pkg/layers/layers_thermodynamics.F |
109 |
LAYERS_CALC_RHS |
& layers_dfx(i,j,k,iTracer,bi,bj) ) |
|
./pkg/layers/layers_thermodynamics.F |
110 |
LAYERS_CALC_RHS |
layers_dfy(i,j,k,iTracer,bi,bj) = maskInC(i,j,bi,bj) * |
|
./pkg/layers/layers_thermodynamics.F |
111 |
LAYERS_CALC_RHS |
& tmpfac * ( layers_dfy(i,j+1,k,iTracer,bi,bj) - |
|
./pkg/layers/layers_thermodynamics.F |
112 |
LAYERS_CALC_RHS |
& layers_dfy(i,j,k,iTracer,bi,bj) ) |
|
./pkg/layers/layers_thermodynamics.F |
113 |
LAYERS_CALC_RHS |
layers_dfr(i,j,k,iTracer,bi,bj) = tmpfac * rkSign * |
|
./pkg/layers/layers_thermodynamics.F |
115 |
LAYERS_CALC_RHS |
& layers_dfr(i,j,k,iTracer,bi,bj) ) |
|
./pkg/layers/layers_thermodynamics.F |
117 |
LAYERS_CALC_RHS |
layers_afx(i,j,k,iTracer,bi,bj) = maskInC(i,j,bi,bj) * |
|
./pkg/layers/layers_thermodynamics.F |
118 |
LAYERS_CALC_RHS |
& tmpfac * ( layers_afx(i+1,j,k,iTracer,bi,bj) - |
|
./pkg/layers/layers_thermodynamics.F |
119 |
LAYERS_CALC_RHS |
& layers_afx(i,j,k,iTracer,bi,bj) ) |
|
./pkg/layers/layers_thermodynamics.F |
120 |
LAYERS_CALC_RHS |
layers_afy(i,j,k,iTracer,bi,bj) = maskInC(i,j,bi,bj) * |
|
./pkg/layers/layers_thermodynamics.F |
121 |
LAYERS_CALC_RHS |
& tmpfac * ( layers_afy(i,j+1,k,iTracer,bi,bj) - |
|
./pkg/layers/layers_thermodynamics.F |
122 |
LAYERS_CALC_RHS |
& layers_afy(i,j,k,iTracer,bi,bj) ) |
|
./pkg/layers/layers_thermodynamics.F |
123 |
LAYERS_CALC_RHS |
layers_afr(i,j,k,iTracer,bi,bj) = tmpfac * rkSign * |
|
./pkg/layers/layers_thermodynamics.F |
125 |
LAYERS_CALC_RHS |
& layers_afr(i,j,k,iTracer,bi,bj) ) |
|
./pkg/layers/layers_thermodynamics.F |
129 |
LAYERS_CALC_RHS |
swfracb(1)=abs(rF(k)) |
|
./pkg/layers/layers_thermodynamics.F |
130 |
LAYERS_CALC_RHS |
swfracb(2)=abs(rF(k+1)) |
|
./pkg/layers/layers_thermodynamics.F |
147 |
LAYERS_CALC_RHS |
IF (k.EQ.Nr) THEN |
|
./pkg/layers/layers_thermodynamics.F |
151 |
LAYERS_CALC_RHS |
layers_sw(i,j,k,iTracer,bi,bj) = |
|
./pkg/layers/layers_thermodynamics.F |
152 |
LAYERS_CALC_RHS |
& layers_sw(i,j,k,iTracer,bi,bj) |
|
./pkg/layers/layers_thermodynamics.F |
153 |
LAYERS_CALC_RHS |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,k,bi,bj) |
|
./pkg/layers/layers_thermodynamics.F |
156 |
LAYERS_CALC_RHS |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/layers/layers_thermodynamics.F |
52 |
LAYERS_CALC_RHS |
INTEGER i,j,k,kdown,iTracer |
|
./pkg/layers/layers_thermodynamics.F |
70 |
LAYERS_CALC_RHS |
k = 1 |
|
./pkg/layers/layers_thermodynamics.F |
78 |
LAYERS_CALC_RHS |
layers_surfflux(i,j,k,iTracer,bi,bj) = |
|
./pkg/layers/layers_thermodynamics.F |
79 |
LAYERS_CALC_RHS |
& layers_surfflux(i,j,k,iTracer,bi,bj) |
|
./pkg/layers/layers_thermodynamics.F |
85 |
LAYERS_CALC_RHS |
layers_surfflux(i,j,k,iTracer,bi,bj) = |
|
./pkg/layers/layers_thermodynamics.F |
86 |
LAYERS_CALC_RHS |
& layers_surfflux(i,j,k,iTracer,bi,bj) |
|
./pkg/layers/layers_thermodynamics.F |
95 |
LAYERS_CALC_RHS |
DO k=1,Nr |
|
./pkg/layers/layers_thermodynamics.F |
96 |
LAYERS_CALC_RHS |
kdown= MIN(k+1,Nr) |
|
./pkg/layers/layers_thermodynamics.F |
97 |
LAYERS_CALC_RHS |
IF (k.EQ.Nr) THEN |
|
./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 |
55 |
LONGSTEP_AVERAGE_3D_FAC |
factor = factor*fac(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_average_3d_fac.F |
57 |
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 |
129 |
LONGSTEP_THERMODYNAMICS |
DO k=1,Nr |
|
./pkg/longstep/longstep_thermodynamics.F |
133 |
LONGSTEP_THERMODYNAMICS |
kappaRk(i,j,k) = 0. _d 0 |
|
./pkg/longstep/longstep_thermodynamics.F |
143 |
LONGSTEP_THERMODYNAMICS |
DO k=1,Nr |
|
./pkg/longstep/longstep_thermodynamics.F |
146 |
LONGSTEP_THERMODYNAMICS |
recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
154 |
LONGSTEP_THERMODYNAMICS |
DO k=1,Nr |
|
./pkg/longstep/longstep_thermodynamics.F |
157 |
LONGSTEP_THERMODYNAMICS |
recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
159 |
LONGSTEP_THERMODYNAMICS |
& *dBHybSigF(k)*recip_drF(k) |
|
./pkg/longstep/longstep_thermodynamics.F |
160 |
LONGSTEP_THERMODYNAMICS |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
167 |
LONGSTEP_THERMODYNAMICS |
DO k=1,Nr |
|
./pkg/longstep/longstep_thermodynamics.F |
170 |
LONGSTEP_THERMODYNAMICS |
IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN |
|
./pkg/longstep/longstep_thermodynamics.F |
171 |
LONGSTEP_THERMODYNAMICS |
recip_hFacNew(i,j,k) = 1. _d 0 / hFac_surfC(i,j,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
173 |
LONGSTEP_THERMODYNAMICS |
recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
181 |
LONGSTEP_THERMODYNAMICS |
DO k=1,Nr |
|
./pkg/longstep/longstep_thermodynamics.F |
184 |
LONGSTEP_THERMODYNAMICS |
recip_hFacNew(i,j,k) = _recip_hFacC(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
204 |
LONGSTEP_THERMODYNAMICS |
DO k=1,Nr |
|
./pkg/longstep/longstep_thermodynamics.F |
207 |
LONGSTEP_THERMODYNAMICS |
uFld(i,j,k) = LS_uVel(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
208 |
LONGSTEP_THERMODYNAMICS |
vFld(i,j,k) = LS_vVel(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
209 |
LONGSTEP_THERMODYNAMICS |
wFld(i,j,k) = LS_wVel(i,j,k,bi,bj) |
|
./pkg/longstep/longstep_thermodynamics.F |
91 |
LONGSTEP_THERMODYNAMICS |
INTEGER i, j, k |
|
./pkg/matrix/matrix_init_varia.F |
23 |
MATRIX_INIT_VARIA |
INTEGER i, j, k, bi, bj |
|
./pkg/matrix/matrix_init_varia.F |
38 |
MATRIX_INIT_VARIA |
DO k=1,Nr |
|
./pkg/matrix/matrix_init_varia.F |
41 |
MATRIX_INIT_VARIA |
PTRACERS_initial(i,j,k,bi,bj,iTracer) = |
|
./pkg/matrix/matrix_init_varia.F |
42 |
MATRIX_INIT_VARIA |
& pTracer(i,j,k,bi,bj,iTracer) |
|
./pkg/matrix/matrix_init_varia.F |
43 |
MATRIX_INIT_VARIA |
MATRIX(i,j,k,bi,bj,iTracer,1) = 0. _d 0 |
|
./pkg/matrix/matrix_init_varia.F |
44 |
MATRIX_INIT_VARIA |
MATRIX(i,j,k,bi,bj,iTracer,2) = 0. _d 0 |
|
./pkg/matrix/matrix_store_tendency.F |
101 |
MATRIX_STORE_TENDENCY_IMP |
INTEGER i,j,k |
|
./pkg/matrix/matrix_store_tendency.F |
105 |
MATRIX_STORE_TENDENCY_IMP |
DO k=1,Nr |
|
./pkg/matrix/matrix_store_tendency.F |
108 |
MATRIX_STORE_TENDENCY_IMP |
MATRIX(i,j,k,bi,bj,iTracer,2) = |
|
./pkg/matrix/matrix_store_tendency.F |
109 |
MATRIX_STORE_TENDENCY_IMP |
& MATRIX(i,j,k,bi,bj,iTracer,2) |
|
./pkg/matrix/matrix_store_tendency.F |
110 |
MATRIX_STORE_TENDENCY_IMP |
& + pTracer(i,j,k,bi,bj,iTracer) |
|
./pkg/matrix/matrix_store_tendency.F |
111 |
MATRIX_STORE_TENDENCY_IMP |
pTracer(i,j,k,bi,bj,iTracer)= |
|
./pkg/matrix/matrix_store_tendency.F |
112 |
MATRIX_STORE_TENDENCY_IMP |
& PTRACERS_initial(i,j,k,bi,bj,iTracer) |
|
./pkg/matrix/matrix_store_tendency.F |
47 |
MATRIX_STORE_TENDENCY_EXP |
INTEGER i,j,k |
|
./pkg/matrix/matrix_store_tendency.F |
50 |
MATRIX_STORE_TENDENCY_EXP |
DO k=1,Nr |
|
./pkg/matrix/matrix_store_tendency.F |
53 |
MATRIX_STORE_TENDENCY_EXP |
MATRIX(i,j,k,bi,bj,iTracer,1) = MATRIX(i,j,k,bi,bj,iTracer,1) |
|
./pkg/matrix/matrix_store_tendency.F |
54 |
MATRIX_STORE_TENDENCY_EXP |
& + ( tracNew(i,j,k) - PTRACERS_initial(i,j,k,bi,bj,iTracer) ) |
|
./pkg/matrix/matrix_store_tendency.F |
55 |
MATRIX_STORE_TENDENCY_EXP |
tracNew(i,j,k) = PTRACERS_initial(i,j,k,bi,bj,iTracer) |
|
./pkg/matrix/matrix_write_tendency.F |
105 |
MATRIX_WRITE_TENDENCY |
DO k=1,Nr |
|
./pkg/matrix/matrix_write_tendency.F |
108 |
MATRIX_WRITE_TENDENCY |
MATRIX(i,j,k,bi,bj,iTracer,2) = |
|
./pkg/matrix/matrix_write_tendency.F |
109 |
MATRIX_WRITE_TENDENCY |
& MATRIX(i,j,k,bi,bj,iTracer,2) |
|
./pkg/matrix/matrix_write_tendency.F |
142 |
MATRIX_WRITE_TENDENCY |
DO k=1,Nr |
|
./pkg/matrix/matrix_write_tendency.F |
145 |
MATRIX_WRITE_TENDENCY |
MATRIX(i,j,k,bi,bj,iTracer,2) = 0. _d 0 |
|
./pkg/matrix/matrix_write_tendency.F |
29 |
MATRIX_WRITE_TENDENCY |
INTEGER bi,bj,i,j,k,iTracer,iRec |
|
./pkg/matrix/matrix_write_tendency.F |
46 |
MATRIX_WRITE_TENDENCY |
DO k=1,Nr |
|
./pkg/matrix/matrix_write_tendency.F |
49 |
MATRIX_WRITE_TENDENCY |
MATRIX(i,j,k,bi,bj,iTracer,1) = |
|
./pkg/matrix/matrix_write_tendency.F |
50 |
MATRIX_WRITE_TENDENCY |
& MATRIX(i,j,k,bi,bj,iTracer,1) |
|
./pkg/matrix/matrix_write_tendency.F |
83 |
MATRIX_WRITE_TENDENCY |
DO k=1,Nr |
|
./pkg/matrix/matrix_write_tendency.F |
86 |
MATRIX_WRITE_TENDENCY |
MATRIX(i,j,k,bi,bj,iTracer,1) = 0. _d 0 |
|
./model/src/calc_gw.F |
119 |
CALC_GW |
INTEGER i,j,k, km1, kp1 |
|
./model/src/calc_gw.F |
151 |
CALC_GW |
DO k=1,Nr |
|
./model/src/calc_gw.F |
154 |
CALC_GW |
gW(i,j,k,bi,bj) = 0. |
|
./model/src/calc_gw.F |
182 |
CALC_GW |
DO k=1,Nr |
|
./model/src/calc_gw.F |
183 |
CALC_GW |
km1 = MAX( k-1, 1 ) |
|
./model/src/calc_gw.F |
184 |
CALC_GW |
kp1 = MIN( k+1,Nr ) |
|
./model/src/calc_gw.F |
187 |
CALC_GW |
IF ( k.EQ. 1 ) mskM1 = 0. |
|
./model/src/calc_gw.F |
188 |
CALC_GW |
IF ( k.EQ.Nr ) mskP1 = 0. |
|
./model/src/calc_gw.F |
189 |
CALC_GW |
IF ( k.GT.1 ) THEN |
|
./model/src/calc_gw.F |
194 |
CALC_GW |
IF ( maskC(i,j,k-1,bi,bj).EQ.0. .OR. |
|
./model/src/calc_gw.F |
195 |
CALC_GW |
& maskC(i,j, k ,bi,bj).EQ.0. ) THEN |
|
./model/src/calc_gw.F |
200 |
CALC_GW |
& ( MIN( Ro_surf(i,j,bi,bj),rC(k-1) ) |
|
./model/src/calc_gw.F |
201 |
CALC_GW |
& - MAX( R_low(i,j,bi,bj), rC(k) ) |
|
./model/src/calc_gw.F |
210 |
CALC_GW |
& MIN( Ro_surf(i,j,bi,bj), rC(k-1) ) |
|
./model/src/calc_gw.F |
211 |
CALC_GW |
& -MAX( R_low(i,j,bi,bj), rC(k) ) |
|
./model/src/calc_gw.F |
218 |
CALC_GW |
& MIN( rSurfW(i,j,bi,bj), rC(k-1) ) |
|
./model/src/calc_gw.F |
219 |
CALC_GW |
& -MAX( rLowW(i,j,bi,bj), rC(k) ) |
|
./model/src/calc_gw.F |
229 |
CALC_GW |
& MIN( rSurfS(i,j,bi,bj), rC(k-1) ) |
|
./model/src/calc_gw.F |
230 |
CALC_GW |
& -MAX( rLowS(i,j,bi,bj), rC(k) ) |
|
./model/src/calc_gw.F |
244 |
CALC_GW |
IF ( maskC(i,j,k,bi,bj).EQ.0. ) THEN |
|
./model/src/calc_gw.F |
248 |
CALC_GW |
& ( drF(k-1)*halfRS |
|
./model/src/calc_gw.F |
249 |
CALC_GW |
& + drF( k )*MIN( _hFacC(i,j, k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
255 |
CALC_GW |
& drF(k-1)*MAX( h0FacC(i,j,k-1,bi,bj)-halfRS, zeroRS ) |
|
./model/src/calc_gw.F |
256 |
CALC_GW |
& + drF( k )*MIN( h0FacC(i,j,k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
259 |
CALC_GW |
& drF(k-1)*MAX( _hFacC(i,j,k-1,bi,bj)-halfRS, zeroRS ) |
|
./model/src/calc_gw.F |
260 |
CALC_GW |
& + drF( k )*MIN( _hFacC(i,j,k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
263 |
CALC_GW |
& drF(k-1)*MAX( _hFacW(i,j,k-1,bi,bj)-halfRS, zeroRS ) |
|
./model/src/calc_gw.F |
264 |
CALC_GW |
& + drF( k )*MIN( _hFacW(i,j,k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
266 |
CALC_GW |
& drF(k-1)*MAX( _hFacS(i,j,k-1,bi,bj)-halfRS, zeroRS ) |
|
./model/src/calc_gw.F |
267 |
CALC_GW |
& + drF( k )*MIN( _hFacS(i,j, k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
283 |
CALC_GW |
recip_rThickC(i,j) = recip_drC(k) |
|
./model/src/calc_gw.F |
296 |
CALC_GW |
wFld(i,j) = wVel(i,j,k,bi,bj) |
|
./model/src/calc_gw.F |
301 |
CALC_GW |
IF ( momViscosity .AND. k.GT.1 .AND. biharmonicVisc ) THEN |
|
./model/src/calc_gw.F |
357 |
CALC_GW |
& *recip_deepFac2F(k) |
|
./model/src/calc_gw.F |
363 |
CALC_GW |
IF ( momViscosity .AND. k.GT.1 ) THEN |
|
./model/src/calc_gw.F |
368 |
CALC_GW |
& - (viscAh_W(i,j,k,bi,bj)+viscAh_W(i-1,j,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
369 |
CALC_GW |
& *(wVel(i,j,k,bi,bj)-wVel(i-1,j,k,bi,bj)) |
|
./model/src/calc_gw.F |
372 |
CALC_GW |
& + (viscA4_W(i,j,k,bi,bj)+viscA4_W(i-1,j,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
386 |
CALC_GW |
& - (viscAh_W(i,j,k,bi,bj)+viscAh_W(i,j-1,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
387 |
CALC_GW |
& *(wVel(i,j,k,bi,bj)-wVel(i,j-1,k,bi,bj)) |
|
./model/src/calc_gw.F |
392 |
CALC_GW |
& + (viscA4_W(i,j,k,bi,bj)+viscA4_W(i,j-1,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
408 |
CALC_GW |
viscLoc = ( kappaRU(i,j,k) +kappaRU(i+1,j,k) |
|
./model/src/calc_gw.F |
409 |
CALC_GW |
& +kappaRU(i,j,k+1)+kappaRU(i+1,j,k+1) |
|
./model/src/calc_gw.F |
410 |
CALC_GW |
& +kappaRV(i,j,k) +kappaRV(i,j+1,k) |
|
./model/src/calc_gw.F |
411 |
CALC_GW |
& +kappaRV(i,j,k+1)+kappaRV(i,j+1,k+1) |
|
./model/src/calc_gw.F |
415 |
CALC_GW |
& -wVel(i,j, k ,bi,bj) )*rkSign |
|
./model/src/calc_gw.F |
416 |
CALC_GW |
& *recip_drF(k)*rA(i,j,bi,bj) |
|
./model/src/calc_gw.F |
417 |
CALC_GW |
& *deepFac2C(k)*rhoFacC(k) |
|
./model/src/calc_gw.F |
420 |
CALC_GW |
IF ( k.EQ.2 ) THEN |
|
./model/src/calc_gw.F |
428 |
CALC_GW |
viscLoc = ( kappaRU(i,j,k) + kappaRU(i+1,j,k) |
|
./model/src/calc_gw.F |
429 |
CALC_GW |
& +kappaRV(i,j,k) + kappaRV(i,j+1,k) |
|
./model/src/calc_gw.F |
432 |
CALC_GW |
& - viscLoc*( wVel(i,j, k ,bi,bj) |
|
./model/src/calc_gw.F |
433 |
CALC_GW |
& -wVel(i,j,k-1,bi,bj) )*rkSign |
|
./model/src/calc_gw.F |
434 |
CALC_GW |
& *recip_drF(k-1)*rA(i,j,bi,bj) |
|
./model/src/calc_gw.F |
435 |
CALC_GW |
& *deepFac2C(k-1)*rhoFacC(k-1) |
|
./model/src/calc_gw.F |
449 |
CALC_GW |
& *recip_rhoFacF(k) |
|
./model/src/calc_gw.F |
451 |
CALC_GW |
& *recip_deepFac2F(k) |
|
./model/src/calc_gw.F |
458 |
CALC_GW |
IF ( momViscosity .AND. k.GT.1 .AND. no_slip_sides ) THEN |
|
./model/src/calc_gw.F |
461 |
CALC_GW |
I bi,bj,k, |
|
./model/src/calc_gw.F |
475 |
CALC_GW |
IF ( useSmag3D .AND. k.GT.1 ) THEN |
|
./model/src/calc_gw.F |
481 |
CALC_GW |
I iMin,iMax,jMin,jMax, k, bi, bj, myThid ) |
|
./model/src/calc_gw.F |
494 |
CALC_GW |
IF ( k.GT.1 .OR. selectNHfreeSurf.GE.1 ) THEN |
|
./model/src/calc_gw.F |
502 |
CALC_GW |
& + drF( k )*_hFacW(i,j, k ,bi,bj)*uVel(i,j, k ,bi,bj) |
|
./model/src/calc_gw.F |
503 |
CALC_GW |
& *rhoFacC(k) |
|
./model/src/calc_gw.F |
504 |
CALC_GW |
& )*halfRL*_dyG(i,j,bi,bj)*deepFacF(k) |
|
./model/src/calc_gw.F |
517 |
CALC_GW |
& +drF( k )*_hFacS(i,j, k ,bi,bj)*vVel(i,j, k ,bi,bj) |
|
./model/src/calc_gw.F |
518 |
CALC_GW |
& *rhoFacC(k) |
|
./model/src/calc_gw.F |
519 |
CALC_GW |
& )*halfRL*_dxG(i,j,bi,bj)*deepFacF(k) |
|
./model/src/calc_gw.F |
532 |
CALC_GW |
& ( wVel(i,j, k ,bi,bj)*rVel2wUnit( k ) |
|
./model/src/calc_gw.F |
536 |
CALC_GW |
& ( wVel(i,j, k ,bi,bj)*deepFac2F( k )*rhoFacF( k ) |
|
./model/src/calc_gw.F |
544 |
CALC_GW |
IF ( k.EQ.1 .AND. selectNHfreeSurf.GE.1 ) THEN |
|
./model/src/calc_gw.F |
548 |
CALC_GW |
tmp_WbarZ = wVel(i,j,k,bi,bj)*rVel2wUnit(k) |
|
./model/src/calc_gw.F |
549 |
CALC_GW |
rTrans = wVel(i,j,k,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./model/src/calc_gw.F |
557 |
CALC_GW |
IF ( k.GT.1 .OR. selectNHfreeSurf.GE.1 ) THEN |
|
./model/src/calc_gw.F |
564 |
CALC_GW |
gW(i,j,k,bi,bj) = |
|
./model/src/calc_gw.F |
567 |
CALC_GW |
& + ( flx_Dn(i,j)-flxAdvUp(i,j) )*rkSign*wUnit2rVel(k) |
|
./model/src/calc_gw.F |
569 |
CALC_GW |
& *recip_deepFac2F(k)*recip_rhoFacF(k) |
|
./model/src/calc_gw.F |
576 |
CALC_GW |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj) |
|
./model/src/calc_gw.F |
577 |
CALC_GW |
& + wVel(i,j,k,bi,bj)*mass2rUnit*0.5 _d 0 |
|
./model/src/calc_gw.F |
578 |
CALC_GW |
& *( addMass(i,j,k,bi,bj) |
|
./model/src/calc_gw.F |
581 |
CALC_GW |
& *recip_deepFac2F(k)*recip_rhoFacF(k) |
|
./model/src/calc_gw.F |
608 |
CALC_GW |
IF ( useNHMTerms .AND. k.GT.1 ) THEN |
|
./model/src/calc_gw.F |
610 |
CALC_GW |
I bi,bj,k, |
|
./model/src/calc_gw.F |
616 |
CALC_GW |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)+gwAdd(i,j) |
|
./model/src/calc_gw.F |
620 |
CALC_GW |
IF ( use3dCoriolis .AND. k.GT.1 ) THEN |
|
./model/src/calc_gw.F |
622 |
CALC_GW |
I bi,bj,k, |
|
./model/src/calc_gw.F |
628 |
CALC_GW |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)+gwAdd(i,j) |
|
./model/src/calc_gw.F |
638 |
CALC_GW |
& k, 1, 2, bi,bj, myThid ) |
|
./model/src/calc_gw.F |
645 |
CALC_GW |
& k,Nr, 1, bi,bj, myThid ) |
|
./model/src/calc_gw.F |
654 |
CALC_GW |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)+gwDiss(i,j) |
|
./model/src/calc_gw.F |
663 |
CALC_GW |
I bi, bj, k, Nr, |
|
./model/src/calc_gw.F |
669 |
CALC_GW |
I bi, bj, k, Nr, |
|
./model/src/calc_gw.F |
677 |
CALC_GW |
CALL DIAGNOSTICS_FILL(gw_AB,'AB_gW ',k,1,2,bi,bj,myThid) |
|
./model/src/calc_gw.F |
685 |
CALC_GW |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)+gwDiss(i,j) |
|
./pkg/mdsio/mdsio_gl.F |
1053 |
MDSREADFIELD_2D_GL |
do k=1,nLocz |
|
./pkg/mdsio/mdsio_gl.F |
1058 |
MDSREADFIELD_2D_GL |
irec=1 + INT(iG/sNx) + nSx*nPx*(jG+j-1) + nSx*nPx*Ny*(k-1) |
|
./pkg/mdsio/mdsio_gl.F |
1063 |
MDSREADFIELD_2D_GL |
irec=j + sNy*(k-1) + sNy*nLocz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
1072 |
MDSREADFIELD_2D_GL |
call MDS_SEG4TORS( j,bi,bj,k,nLocz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1075 |
MDSREADFIELD_2D_GL |
call MDS_SEG4TORL( j,bi,bj,k,nLocz, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1089 |
MDSREADFIELD_2D_GL |
call MDS_SEG8TORS( j,bi,bj,k,nLocz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1092 |
MDSREADFIELD_2D_GL |
call MDS_SEG8TORL( j,bi,bj,k,nLocz, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1106 |
MDSREADFIELD_2D_GL |
arr_gl(ii,bi,ip,j,bj,jp,k)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl.F |
1137 |
MDSREADFIELD_2D_GL |
DO k=1,nLocz |
|
./pkg/mdsio/mdsio_gl.F |
1144 |
MDSREADFIELD_2D_GL |
irec = k+nNz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
1180 |
MDSREADFIELD_2D_GL |
arr_gl(i,bi,ip,j,bj,jp,k) = global(II,JJ) |
|
./pkg/mdsio/mdsio_gl.F |
1280 |
MDSWRITEFIELD_2D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
1375 |
MDSWRITEFIELD_2D_GL |
DO k=1,nLocz |
|
./pkg/mdsio/mdsio_gl.F |
1385 |
MDSWRITEFIELD_2D_GL |
global(II,JJ) = arr_gl(i,bi,ip,j,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl.F |
1394 |
MDSWRITEFIELD_2D_GL |
irec=k+nLocz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
1480 |
MDSWRITEFIELD_2D_GL |
do k=1,nLocz |
|
./pkg/mdsio/mdsio_gl.F |
1483 |
MDSWRITEFIELD_2D_GL |
arr(i,j,k,bi,bj)=arr_gl(i,bi,ip,j,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl.F |
1487 |
MDSWRITEFIELD_2D_GL |
irec=j + sNy*(k-1) + sNy*nLocz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
1491 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG4TORS( j,bi,bj,k,nLocz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1494 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG4TORL( j,bi,bj,k,nLocz, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1508 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG8TORS( j,bi,bj,k,nLocz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
1511 |
MDSWRITEFIELD_2D_GL |
call MDS_SEG8TORL( j,bi,bj,k,nLocz, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
266 |
MDSREADFIELD_3D_GL |
do k=1,Nr |
|
./pkg/mdsio/mdsio_gl.F |
271 |
MDSREADFIELD_3D_GL |
irec=1 + INT(iG/sNx) + nSx*nPx*(jG+j-1) + nSx*nPx*Ny*(k-1) |
|
./pkg/mdsio/mdsio_gl.F |
276 |
MDSREADFIELD_3D_GL |
irec=j + sNy*(k-1) + sNy*Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
285 |
MDSREADFIELD_3D_GL |
call MDS_SEG4TORS( j,bi,bj,k,Nr, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
288 |
MDSREADFIELD_3D_GL |
call MDS_SEG4TORL( j,bi,bj,k,Nr, r4seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
302 |
MDSREADFIELD_3D_GL |
call MDS_SEG8TORS( j,bi,bj,k,Nr, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
305 |
MDSREADFIELD_3D_GL |
call MDS_SEG8TORL( j,bi,bj,k,Nr, r8seg, .TRUE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
319 |
MDSREADFIELD_3D_GL |
arr_gl(ii,bi,ip,j,bj,jp,k)=arr(ii,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl.F |
350 |
MDSREADFIELD_3D_GL |
DO k=1,nNz |
|
./pkg/mdsio/mdsio_gl.F |
357 |
MDSREADFIELD_3D_GL |
irec = k+nNz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
393 |
MDSREADFIELD_3D_GL |
arr_gl(i,bi,ip,j,bj,jp,k) = global(II,JJ) |
|
./pkg/mdsio/mdsio_gl.F |
492 |
MDSWRITEFIELD_3D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
586 |
MDSWRITEFIELD_3D_GL |
DO k=1,nNz |
|
./pkg/mdsio/mdsio_gl.F |
596 |
MDSWRITEFIELD_3D_GL |
global(II,JJ) = arr_gl(i,bi,ip,j,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl.F |
605 |
MDSWRITEFIELD_3D_GL |
irec=k+nNz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
691 |
MDSWRITEFIELD_3D_GL |
do k=1,Nr |
|
./pkg/mdsio/mdsio_gl.F |
694 |
MDSWRITEFIELD_3D_GL |
arr(i,j,k,bi,bj)=arr_gl(i,bi,ip,j,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl.F |
698 |
MDSWRITEFIELD_3D_GL |
irec=j + sNy*(k-1) + sNy*Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
702 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG4TORS( j,bi,bj,k,Nr, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
705 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG4TORL( j,bi,bj,k,Nr, r4seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
719 |
MDSWRITEFIELD_3D_GL |
call MDS_SEG8TORS( j,bi,bj,k,Nr, r8seg, .FALSE., arr ) |
|
./pkg/mdsio/mdsio_gl.F |
722 |
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 |
860 |
MDSREADFIELD_2D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
177 |
MDSREADFIELD_XZ_GL |
do k=1,Nr |
|
./pkg/mdsio/mdsio_gl_slice.F |
180 |
MDSREADFIELD_XZ_GL |
irec=k + Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl_slice.F |
188 |
MDSREADFIELD_XZ_GL |
call MDS_SEG4TORS_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
191 |
MDSREADFIELD_XZ_GL |
call MDS_SEG4TORL_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
205 |
MDSREADFIELD_XZ_GL |
call MDS_SEG8TORS_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
208 |
MDSREADFIELD_XZ_GL |
call MDS_SEG8TORL_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
222 |
MDSREADFIELD_XZ_GL |
arr_gl(ii,bi,ip,bj,jp,k)=arr(ii,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl_slice.F |
313 |
MDSREADFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
417 |
MDSREADFIELD_YZ_GL |
do k=1,Nr |
|
./pkg/mdsio/mdsio_gl_slice.F |
420 |
MDSREADFIELD_YZ_GL |
irec=k + Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl_slice.F |
428 |
MDSREADFIELD_YZ_GL |
call MDS_SEG4TORS_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
431 |
MDSREADFIELD_YZ_GL |
call MDS_SEG4TORL_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
445 |
MDSREADFIELD_YZ_GL |
call MDS_SEG8TORS_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
448 |
MDSREADFIELD_YZ_GL |
call MDS_SEG8TORL_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
462 |
MDSREADFIELD_YZ_GL |
arr_gl(bi,ip,jj,bj,jp,k)=arr(jj,k,bi,bj) |
|
./pkg/mdsio/mdsio_gl_slice.F |
567 |
MDSWRITEFIELD_XZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
637 |
MDSWRITEFIELD_XZ_GL |
do k=1,Nr |
|
./pkg/mdsio/mdsio_gl_slice.F |
639 |
MDSWRITEFIELD_XZ_GL |
arr(ii,k,bi,bj)=arr_gl(ii,bi,ip,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl_slice.F |
643 |
MDSWRITEFIELD_XZ_GL |
irec=k + Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl_slice.F |
647 |
MDSWRITEFIELD_XZ_GL |
call MDS_SEG4TORS_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
650 |
MDSWRITEFIELD_XZ_GL |
call MDS_SEG4TORL_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
664 |
MDSWRITEFIELD_XZ_GL |
call MDS_SEG8TORS_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
667 |
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 |
808 |
MDSWRITEFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
878 |
MDSWRITEFIELD_YZ_GL |
do k=1,Nr |
|
./pkg/mdsio/mdsio_gl_slice.F |
880 |
MDSWRITEFIELD_YZ_GL |
arr(jj,k,bi,bj)=arr_gl(bi,ip,jj,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl_slice.F |
884 |
MDSWRITEFIELD_YZ_GL |
irec=k + Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl_slice.F |
888 |
MDSWRITEFIELD_YZ_GL |
call MDS_SEG4TORS_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
891 |
MDSWRITEFIELD_YZ_GL |
call MDS_SEG4TORL_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r4seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
905 |
MDSWRITEFIELD_YZ_GL |
call MDS_SEG8TORS_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r8seg,arr) |
|
./pkg/mdsio/mdsio_gl_slice.F |
908 |
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 |
|
./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 |
|
./model/src/calc_ivdc.F |
50 |
CALC_IVDC |
IF ( -sigmaR(i,j,k)*gravitySign.GT.0. ) THEN |
|
./model/src/calc_ivdc.F |
51 |
CALC_IVDC |
IVDConvCount(i,j,k,bi,bj) = 1. _d 0 |
|
./model/src/calc_ivdc.F |
53 |
CALC_IVDC |
IVDConvCount(i,j,k,bi,bj) = 0. _d 0 |
|
./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 |
70 |
MDS_RD_REC_RL |
DO k=1,nArr |
|
./pkg/mdsio/mdsio_rd_rec_rl.F |
71 |
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 |
291 |
MDS_READ_FIELD |
DO k=kLo,kHi |
|
./pkg/mdsio/mdsio_read_field.F |
295 |
MDS_READ_FIELD |
irec = 1 + k-kLo + (irecord-1)*nNz |
|
./pkg/mdsio/mdsio_read_field.F |
324 |
MDS_READ_FIELD |
I 0, 0, 1, k, kSize, 0, 0, .TRUE., myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
327 |
MDS_READ_FIELD |
I 0, 0, 1, k, kSize, 0, 0, .TRUE., myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
345 |
MDS_READ_FIELD |
I 0, 0, 1, k, kSize, 0, 0, .TRUE., myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
348 |
MDS_READ_FIELD |
I 0, 0, 1, k, kSize, 0, 0, .TRUE., myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
430 |
MDS_READ_FIELD |
DO k=kLo,kHi |
|
./pkg/mdsio/mdsio_read_field.F |
434 |
MDS_READ_FIELD |
& +( k-kLo + (irecord-1)*nNz )*global_nTx*ySize |
|
./pkg/mdsio/mdsio_read_field.F |
435 |
MDS_READ_FIELD |
i1 = bBij + 1 + (j-1)*sNx + (k-kLo)*sNx*sNy |
|
./pkg/mdsio/mdsio_read_field.F |
436 |
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 |
90 |
MDS_READ_WHALOS |
integer i,j,k,bi,bj,ii |
|
./model/src/calc_oce_mxlayer.F |
108 |
CALC_OCE_MXLAYER |
DO k = 2,Nr |
|
./model/src/calc_oce_mxlayer.F |
112 |
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 |
114 |
CALC_OCE_MXLAYER |
I k, bi, bj, myThid ) |
|
./model/src/calc_oce_mxlayer.F |
118 |
CALC_OCE_MXLAYER |
IF ( k.LE.klowC(i,j,bi,bj) .AND. |
|
./model/src/calc_oce_mxlayer.F |
126 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k) |
|
./model/src/calc_oce_mxlayer.F |
154 |
CALC_OCE_MXLAYER |
DO k = 2,Nr-1 |
|
./model/src/calc_oce_mxlayer.F |
158 |
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 |
160 |
CALC_OCE_MXLAYER |
I k, bi, bj, myThid ) |
|
./model/src/calc_oce_mxlayer.F |
164 |
CALC_OCE_MXLAYER |
IF ( k.LT.klowC(i,j,bi,bj) |
|
./model/src/calc_oce_mxlayer.F |
167 |
CALC_OCE_MXLAYER |
& / ( rC(1)-rC(k) ) |
|
./model/src/calc_oce_mxlayer.F |
168 |
CALC_OCE_MXLAYER |
IF ( -sigmaR(i,j,k+1).GT.sigmAv*hMixCriteria ) THEN |
|
./model/src/calc_oce_mxlayer.F |
171 |
CALC_OCE_MXLAYER |
tmpFac = hMixCriteria*sigmaR(i,j,k)/sigmaR(i,j,k+1) |
|
./model/src/calc_oce_mxlayer.F |
178 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rF(1)-rF(k+1) |
|
./model/src/calc_oce_mxlayer.F |
179 |
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/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 |
66 |
MDS_WR_REC_RL |
DO k=1,nArr |
|
./pkg/mdsio/mdsio_wr_rec_rl.F |
67 |
MDS_WR_REC_RL |
r8Buf(k) = arr(k) |
|
./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 |
288 |
MDS_WRITE_FIELD |
DO k=kLo,kHi |
|
./pkg/mdsio/mdsio_write_field.F |
289 |
MDS_WRITE_FIELD |
zeroBuff = k.EQ.kLo |
|
./pkg/mdsio/mdsio_write_field.F |
294 |
MDS_WRITE_FIELD |
I 0, 0, 1, k, kSize, 0, 0, .FALSE., myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
297 |
MDS_WRITE_FIELD |
I 0, 0, 1, k, kSize, 0, 0, .FALSE., myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
315 |
MDS_WRITE_FIELD |
I 0, 0, 1, k, kSize, 0, 0, .FALSE., myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
318 |
MDS_WRITE_FIELD |
I 0, 0, 1, k, kSize, 0, 0, .FALSE., myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
345 |
MDS_WRITE_FIELD |
irec = 1 + k-kLo + (irecord-1)*nNz |
|
./pkg/mdsio/mdsio_write_field.F |
477 |
MDS_WRITE_FIELD |
DO k=kLo,kHi |
|
./pkg/mdsio/mdsio_write_field.F |
481 |
MDS_WRITE_FIELD |
& +( k-kLo + (irecord-1)*nNz )*global_nTx*ySize |
|
./pkg/mdsio/mdsio_write_field.F |
482 |
MDS_WRITE_FIELD |
i1 = bBij + 1 + (j-1)*sNx + (k-kLo)*sNx*sNy |
|
./pkg/mdsio/mdsio_write_field.F |
483 |
MDS_WRITE_FIELD |
i2 = bBij + j*sNx + (k-kLo)*sNx*sNy |
|
./model/src/calc_phi_hyd.F |
139 |
CALC_PHI_HYD |
IF (k.EQ.1) THEN |
|
./model/src/calc_phi_hyd.F |
14 |
CALC_PHI_HYD |
I bi, bj, iMin, iMax, jMin, jMax, k, |
|
./model/src/calc_phi_hyd.F |
159 |
CALC_PHI_HYD |
kkey = (ikey-1)*Nr + k |
|
./model/src/calc_phi_hyd.F |
166 |
CALC_PHI_HYD |
I iMin, iMax, jMin, jMax, k, |
|
./model/src/calc_phi_hyd.F |
167 |
CALC_PHI_HYD |
I tFld(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/calc_phi_hyd.F |
168 |
CALC_PHI_HYD |
I sFld(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/calc_phi_hyd.F |
170 |
CALC_PHI_HYD |
I k, bi, bj, myThid ) |
|
./model/src/calc_phi_hyd.F |
174 |
CALC_PHI_HYD |
alphaRho(i,j) = rhoInSitu(i,j,k,bi,bj) |
|
./model/src/calc_phi_hyd.F |
188 |
CALC_PHI_HYD |
IF ( k.LT.kSurfC(i,j,bi,bj) ) alphaRho(i,j) = 0. _d 0 |
|
./model/src/calc_phi_hyd.F |
194 |
CALC_PHI_HYD |
alphaRho(i,j) = alphaRho(i,j)*maskC(i,j,k,bi,bj) |
|
./model/src/calc_phi_hyd.F |
203 |
CALC_PHI_HYD |
CALL MOM_QUASIHYDROSTATIC(bi,bj,k,uVel,vVel,alphaRho,myThid) |
|
./model/src/calc_phi_hyd.F |
209 |
CALC_PHI_HYD |
& uniformFreeSurfLev .AND. k.EQ.1 ) THEN |
|
./model/src/calc_phi_hyd.F |
232 |
CALC_PHI_HYD |
& + halfRL*drF(k)*gravFacC(k)*gravity |
|
./model/src/calc_phi_hyd.F |
235 |
CALC_PHI_HYD |
& + drF(k)*gravFacC(k)*gravity |
|
./model/src/calc_phi_hyd.F |
242 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
243 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
247 |
CALC_PHI_HYD |
phiHydC(i,j) = ddRloc*gravFacC(k)*gravity |
|
./model/src/calc_phi_hyd.F |
251 |
CALC_PHI_HYD |
& + halfRL*drF(k)*gravFacC(k)*gravity |
|
./model/src/calc_phi_hyd.F |
255 |
CALC_PHI_HYD |
& + halfRL*drF(k)*gravFacC(k)*gravity |
|
./model/src/calc_phi_hyd.F |
267 |
CALC_PHI_HYD |
dRlocM = halfRL*drC(k)*gravFacF(k) |
|
./model/src/calc_phi_hyd.F |
268 |
CALC_PHI_HYD |
IF (k.EQ.1) dRlocM = (rF(k)-rC(k))*gravFacF(k) |
|
./model/src/calc_phi_hyd.F |
269 |
CALC_PHI_HYD |
IF (k.EQ.Nr) THEN |
|
./model/src/calc_phi_hyd.F |
270 |
CALC_PHI_HYD |
dRlocP = (rC(k)-rF(k+1))*gravFacF(k+1) |
|
./model/src/calc_phi_hyd.F |
272 |
CALC_PHI_HYD |
dRlocP = halfRL*drC(k+1)*gravFacF(k+1) |
|
./model/src/calc_phi_hyd.F |
284 |
CALC_PHI_HYD |
rec_dRm = oneRL/(rF(k)-rC(k)) |
|
./model/src/calc_phi_hyd.F |
285 |
CALC_PHI_HYD |
rec_dRp = oneRL/(rC(k)-rF(k+1)) |
|
./model/src/calc_phi_hyd.F |
288 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
289 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
321 |
CALC_PHI_HYD |
kkey = (ikey-1)*Nr + k |
|
./model/src/calc_phi_hyd.F |
328 |
CALC_PHI_HYD |
I iMin, iMax, jMin, jMax, k, |
|
./model/src/calc_phi_hyd.F |
329 |
CALC_PHI_HYD |
I tFld(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/calc_phi_hyd.F |
330 |
CALC_PHI_HYD |
I sFld(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/calc_phi_hyd.F |
332 |
CALC_PHI_HYD |
I k, bi, bj, myThid ) |
|
./model/src/calc_phi_hyd.F |
340 |
CALC_PHI_HYD |
alphaRho(i,j) = rhoInSitu(i,j,k,bi,bj) |
|
./model/src/calc_phi_hyd.F |
349 |
CALC_PHI_HYD |
alphaRho(i,j)=maskC(i,j,k,bi,bj)* |
|
./model/src/calc_phi_hyd.F |
357 |
CALC_PHI_HYD |
CALL MOM_QUASIHYDROSTATIC(bi,bj,k,uVel,vVel,alphaRho,myThid) |
|
./model/src/calc_phi_hyd.F |
373 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
374 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
385 |
CALC_PHI_HYD |
phiHydC(i,j) = phiHydF(i,j) + halfRL*drF(k)*alphaRho(i,j) |
|
./model/src/calc_phi_hyd.F |
389 |
CALC_PHI_HYD |
phiHydF(i,j) = phiHydC(i,j) + halfRL*drF(k)*alphaRho(i,j) |
|
./model/src/calc_phi_hyd.F |
397 |
CALC_PHI_HYD |
dRlocM = halfRL*drC(k) |
|
./model/src/calc_phi_hyd.F |
398 |
CALC_PHI_HYD |
IF (k.EQ.1) dRlocM=rF(k)-rC(k) |
|
./model/src/calc_phi_hyd.F |
399 |
CALC_PHI_HYD |
IF (k.EQ.Nr) THEN |
|
./model/src/calc_phi_hyd.F |
400 |
CALC_PHI_HYD |
dRlocP=rC(k)-rF(k+1) |
|
./model/src/calc_phi_hyd.F |
402 |
CALC_PHI_HYD |
dRlocP=halfRL*drC(k+1) |
|
./model/src/calc_phi_hyd.F |
404 |
CALC_PHI_HYD |
rec_dRm = oneRL/(rF(k)-rC(k)) |
|
./model/src/calc_phi_hyd.F |
405 |
CALC_PHI_HYD |
rec_dRp = oneRL/(rC(k)-rF(k+1)) |
|
./model/src/calc_phi_hyd.F |
412 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
413 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
443 |
CALC_PHI_HYD |
thetaRef = tRef(k) |
|
./model/src/calc_phi_hyd.F |
447 |
CALC_PHI_HYD |
alphaRho(i,j) = ( tFld(i,j,k,bi,bj) |
|
./model/src/calc_phi_hyd.F |
448 |
CALC_PHI_HYD |
& *( sFld(i,j,k,bi,bj)*atm_Rq + oneRL ) |
|
./model/src/calc_phi_hyd.F |
449 |
CALC_PHI_HYD |
& - thetaRef )*maskC(i,j,k,bi,bj) |
|
./model/src/calc_phi_hyd.F |
455 |
CALC_PHI_HYD |
alphaRho(i,j) = rhoInSitu(i,j,k,bi,bj) |
|
./model/src/calc_phi_hyd.F |
463 |
CALC_PHI_HYD |
CALL MOM_QUASIHYDROSTATIC(bi,bj,k,uVel,vVel,alphaRho,myThid) |
|
./model/src/calc_phi_hyd.F |
481 |
CALC_PHI_HYD |
& ( R_low(i,j,bi,bj) + aHybSigmF( k )*fullDepth |
|
./model/src/calc_phi_hyd.F |
482 |
CALC_PHI_HYD |
& + bHybSigmF( k )*locDepth |
|
./model/src/calc_phi_hyd.F |
485 |
CALC_PHI_HYD |
& ( R_low(i,j,bi,bj) + aHybSigmC( k )*fullDepth |
|
./model/src/calc_phi_hyd.F |
486 |
CALC_PHI_HYD |
& + bHybSigmC( k )*locDepth |
|
./model/src/calc_phi_hyd.F |
489 |
CALC_PHI_HYD |
& ( R_low(i,j,bi,bj)+ aHybSigmF(k+1)*fullDepth |
|
./model/src/calc_phi_hyd.F |
490 |
CALC_PHI_HYD |
& + bHybSigmF(k+1)*locDepth |
|
./model/src/calc_phi_hyd.F |
511 |
CALC_PHI_HYD |
IF (k.EQ.1) THEN |
|
./model/src/calc_phi_hyd.F |
512 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rF( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
513 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
515 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rC(k-1)/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
516 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) )*halfRL |
|
./model/src/calc_phi_hyd.F |
518 |
CALC_PHI_HYD |
IF (k.EQ.Nr) THEN |
|
./model/src/calc_phi_hyd.F |
519 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
520 |
CALC_PHI_HYD |
& -((rF(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
522 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
523 |
CALC_PHI_HYD |
& -((rC(k+1)/atm_Po)**atm_kappa) )*halfRL |
|
./model/src/calc_phi_hyd.F |
545 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rF( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
546 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
547 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
548 |
CALC_PHI_HYD |
& -((rF(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
551 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
552 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
556 |
CALC_PHI_HYD |
phiHydC(i,j) = ddRloc*recip_drF(k)*2. _d 0 |
|
./model/src/calc_phi_hyd.F |
577 |
CALC_PHI_HYD |
IF (k.EQ.1) THEN |
|
./model/src/calc_phi_hyd.F |
578 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rF( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
579 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
581 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rC(k-1)/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
582 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) )*halfRL |
|
./model/src/calc_phi_hyd.F |
584 |
CALC_PHI_HYD |
IF (k.EQ.Nr) THEN |
|
./model/src/calc_phi_hyd.F |
585 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
586 |
CALC_PHI_HYD |
& -((rF(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
588 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
589 |
CALC_PHI_HYD |
& -((rC(k+1)/atm_Po)**atm_kappa) )*halfRL |
|
./model/src/calc_phi_hyd.F |
591 |
CALC_PHI_HYD |
rec_dRm = oneRL/(rF(k)-rC(k)) |
|
./model/src/calc_phi_hyd.F |
592 |
CALC_PHI_HYD |
rec_dRp = oneRL/(rC(k)-rF(k+1)) |
|
./model/src/calc_phi_hyd.F |
595 |
CALC_PHI_HYD |
IF (k.EQ.kSurfC(i,j,bi,bj)) THEN |
|
./model/src/calc_phi_hyd.F |
596 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
626 |
CALC_PHI_HYD |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./model/src/calc_phi_hyd.F |
641 |
CALC_PHI_HYD |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./model/src/calc_phi_hyd.F |
662 |
CALC_PHI_HYD |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./model/src/calc_phi_hyd.F |
669 |
CALC_PHI_HYD |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./model/src/calc_phi_hyd.F |
68 |
CALC_PHI_HYD |
INTEGER bi,bj,iMin,iMax,jMin,jMax,k |
|
./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 |
92 |
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 |
330 |
MDS_WRITELOCAL |
DO k=1,nNz |
|
./pkg/mdsio/mdsio_writelocal.F |
335 |
MDS_WRITELOCAL |
& + ( k-1 + (irecord-1)*nNz )*global_nTx*ySize |
|
./pkg/mdsio/mdsio_writelocal.F |
336 |
MDS_WRITELOCAL |
i1 = bBij + 1 + (j-1)*sNx + (k-1)*sNx*sNy |
|
./pkg/mdsio/mdsio_writelocal.F |
337 |
MDS_WRITELOCAL |
i2 = bBij + j*sNx + (k-1)*sNx*sNy |
|
./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 |
229 |
MNC_SET_OUTDIR |
integer i,j,k, ntot, npathd, idate |
|
./pkg/mnc/mnc_readparms.F |
251 |
MNC_SET_OUTDIR |
k = ILNBLNK(mnc_outdir_str) |
|
./pkg/mnc/mnc_readparms.F |
252 |
MNC_SET_OUTDIR |
IF (k .GT. MNC_MAX_PATH) k = MNC_MAX_PATH |
|
./pkg/mnc/mnc_readparms.F |
253 |
MNC_SET_OUTDIR |
pathd(1:k) = mnc_outdir_str(1:k) |
|
./pkg/mnc/mnc_readparms.F |
255 |
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_viscosity.F |
103 |
CALC_VISCOSITY |
IF ( useGGL90 .AND. k.LE.Nr ) THEN |
|
./model/src/calc_viscosity.F |
105 |
CALC_VISCOSITY |
I bi,bj, iMin,iMax,jMin,jMax, k, |
|
./model/src/calc_viscosity.F |
111 |
CALC_VISCOSITY |
IF ( k.EQ.Nr+1 .AND. |
|
./model/src/calc_viscosity.F |
116 |
CALC_VISCOSITY |
kappaRU(i,j,k) = kappaRU(i,j,ki) |
|
./model/src/calc_viscosity.F |
117 |
CALC_VISCOSITY |
kappaRV(i,j,k) = kappaRV(i,j,ki) |
|
./model/src/calc_viscosity.F |
129 |
CALC_VISCOSITY |
DO k = 2,Nr |
|
./model/src/calc_viscosity.F |
130 |
CALC_VISCOSITY |
km = k - 1 |
|
./model/src/calc_viscosity.F |
134 |
CALC_VISCOSITY |
IF ( k.GT.kSurfW(i,j,bi,bj) .AND. |
|
./model/src/calc_viscosity.F |
135 |
CALC_VISCOSITY |
& k.LE.MIN( kLowC(i,j,bi,bj), kLowC(i-1,j,bi,bj) ) |
|
./model/src/calc_viscosity.F |
137 |
CALC_VISCOSITY |
kappaRU(i,j,k) = kappaRU(i,j,k) |
|
./model/src/calc_viscosity.F |
138 |
CALC_VISCOSITY |
& *twoRL/(hFacW(i,j,km,bi,bj)+hFacW(i,j,k,bi,bj)) |
|
./model/src/calc_viscosity.F |
144 |
CALC_VISCOSITY |
IF ( k.GT.kSurfS(i,j,bi,bj) .AND. |
|
./model/src/calc_viscosity.F |
145 |
CALC_VISCOSITY |
& k.LE.MIN( kLowC(i,j,bi,bj), kLowC(i,j-1,bi,bj) ) |
|
./model/src/calc_viscosity.F |
147 |
CALC_VISCOSITY |
kappaRV(i,j,k) = kappaRV(i,j,k) |
|
./model/src/calc_viscosity.F |
148 |
CALC_VISCOSITY |
& *twoRL/(hFacS(i,j,km,bi,bj)+hFacS(i,j,k,bi,bj)) |
|
./model/src/calc_viscosity.F |
160 |
CALC_VISCOSITY |
DO k = 2,Nr |
|
./model/src/calc_viscosity.F |
161 |
CALC_VISCOSITY |
km = k - 1 |
|
./model/src/calc_viscosity.F |
163 |
CALC_VISCOSITY |
IF ( pCellMix_delR.LT.drF(k) ) |
|
./model/src/calc_viscosity.F |
164 |
CALC_VISCOSITY |
& pC_kFac = pCellMix_delR*recip_drF(k) |
|
./model/src/calc_viscosity.F |
171 |
CALC_VISCOSITY |
IF ( k.EQ.MIN( kLowC(i,j,bi,bj), kLowC(i-1,j,bi,bj) ) |
|
./model/src/calc_viscosity.F |
172 |
CALC_VISCOSITY |
& .AND. k.GT.kSurfW(i,j,bi,bj) ) THEN |
|
./model/src/calc_viscosity.F |
173 |
CALC_VISCOSITY |
tmpFac(i,j) = pC_kFac*_recip_hFacW(i,j,k,bi,bj) |
|
./model/src/calc_viscosity.F |
203 |
CALC_VISCOSITY |
kappaRU(i,j,k) = MAX( kappaRU(i,j,k), |
|
./model/src/calc_viscosity.F |
204 |
CALC_VISCOSITY |
& pCellMix_viscAr(k)*tmpFac(i,j) ) |
|
./model/src/calc_viscosity.F |
214 |
CALC_VISCOSITY |
IF ( k.EQ.MIN( kLowC(i,j,bi,bj), kLowC(i,j-1,bi,bj) ) |
|
./model/src/calc_viscosity.F |
215 |
CALC_VISCOSITY |
& .AND. k.GT.kSurfS(i,j,bi,bj) ) THEN |
|
./model/src/calc_viscosity.F |
216 |
CALC_VISCOSITY |
tmpFac(i,j) = pC_kFac*_recip_hFacS(i,j,k,bi,bj) |
|
./model/src/calc_viscosity.F |
246 |
CALC_VISCOSITY |
kappaRV(i,j,k) = MAX( kappaRV(i,j,k), |
|
./model/src/calc_viscosity.F |
247 |
CALC_VISCOSITY |
& pCellMix_viscAr(k)*tmpFac(i,j) ) |
|
./model/src/calc_viscosity.F |
294 |
CALC_VISCOSITY |
kappaRU(i,j,k) = MAX( kappaRU(i,j,k), |
|
./model/src/calc_viscosity.F |
295 |
CALC_VISCOSITY |
& pCellMix_viscAr(k)*tmpFac(i,j) ) |
|
./model/src/calc_viscosity.F |
338 |
CALC_VISCOSITY |
kappaRV(i,j,k) = MAX( kappaRV(i,j,k), |
|
./model/src/calc_viscosity.F |
339 |
CALC_VISCOSITY |
& pCellMix_viscAr(k)*tmpFac(i,j) ) |
|
./model/src/calc_viscosity.F |
47 |
CALC_VISCOSITY |
INTEGER i,j,k |
|
./model/src/calc_viscosity.F |
56 |
CALC_VISCOSITY |
DO k = 1,Nr+1 |
|
./model/src/calc_viscosity.F |
57 |
CALC_VISCOSITY |
ki = MIN(k,Nr) |
|
./model/src/calc_viscosity.F |
61 |
CALC_VISCOSITY |
kappaRU(i,j,k) = viscArNr(ki) |
|
./model/src/calc_viscosity.F |
62 |
CALC_VISCOSITY |
kappaRV(i,j,k) = viscArNr(ki) |
|
./model/src/calc_viscosity.F |
67 |
CALC_VISCOSITY |
IF ( useKPP .AND. k.LE.Nr ) THEN |
|
./model/src/calc_viscosity.F |
69 |
CALC_VISCOSITY |
I bi,bj, iMin,iMax,jMin,jMax, k, |
|
./model/src/calc_viscosity.F |
76 |
CALC_VISCOSITY |
IF ( usePP81 .AND. k.LE.Nr ) THEN |
|
./model/src/calc_viscosity.F |
78 |
CALC_VISCOSITY |
I bi,bj, iMin,iMax,jMin,jMax, k, |
|
./model/src/calc_viscosity.F |
85 |
CALC_VISCOSITY |
IF ( useKL10 .AND. k.LE.Nr ) THEN |
|
./model/src/calc_viscosity.F |
87 |
CALC_VISCOSITY |
I bi,bj, iMin,iMax,jMin,jMax, k, |
|
./model/src/calc_viscosity.F |
94 |
CALC_VISCOSITY |
IF ( useMY82 .AND. k.LE.Nr ) THEN |
|
./model/src/calc_viscosity.F |
96 |
CALC_VISCOSITY |
I bi,bj, iMin,iMax,jMin,jMax, k, |
|
./pkg/mom_common/mom_calc_3d_strain.F |
102 |
MOM_CALC_3D_STRAIN |
str33(i,j,k) = recip_drF(k)*rkSign |
|
./pkg/mom_common/mom_calc_3d_strain.F |
103 |
MOM_CALC_3D_STRAIN |
& *( maskp1*wVel( i , j ,kp1,bi,bj)-wVel( i , j , k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
110 |
MOM_CALC_3D_STRAIN |
str12(i,j,k) = halfRL*( |
|
./pkg/mom_common/mom_calc_3d_strain.F |
112 |
MOM_CALC_3D_STRAIN |
& *( uVel( i , j , k ,bi,bj)-uVel( i ,j-1, k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
114 |
MOM_CALC_3D_STRAIN |
& *( vVel( i , j , k ,bi,bj)-vVel(i-1, j , k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
120 |
MOM_CALC_3D_STRAIN |
IF ( k.EQ.1 .AND. freeSlip3d ) THEN |
|
./pkg/mom_common/mom_calc_3d_strain.F |
123 |
MOM_CALC_3D_STRAIN |
str13(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
124 |
MOM_CALC_3D_STRAIN |
str23(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
127 |
MOM_CALC_3D_STRAIN |
ELSEIF ( k.EQ.1 ) THEN |
|
./pkg/mom_common/mom_calc_3d_strain.F |
131 |
MOM_CALC_3D_STRAIN |
str13(i,j,k) = halfRL*( |
|
./pkg/mom_common/mom_calc_3d_strain.F |
132 |
MOM_CALC_3D_STRAIN |
& recip_drC(k)*rkSign |
|
./pkg/mom_common/mom_calc_3d_strain.F |
133 |
MOM_CALC_3D_STRAIN |
& *( uVel( i , j , k ,bi,bj)*twoRL ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
135 |
MOM_CALC_3D_STRAIN |
& *( wVel( i , j , k ,bi,bj)-wVel(i-1, j , k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
141 |
MOM_CALC_3D_STRAIN |
str23(i,j,k) = halfRL*( |
|
./pkg/mom_common/mom_calc_3d_strain.F |
142 |
MOM_CALC_3D_STRAIN |
& recip_drC(k)*rkSign |
|
./pkg/mom_common/mom_calc_3d_strain.F |
143 |
MOM_CALC_3D_STRAIN |
& *( vVel( i , j , k ,bi,bj)*twoRL ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
145 |
MOM_CALC_3D_STRAIN |
& *( wVel( i , j , k ,bi,bj)-wVel( i ,j-1, k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
153 |
MOM_CALC_3D_STRAIN |
str13(i,j,k) = halfRL*( |
|
./pkg/mom_common/mom_calc_3d_strain.F |
154 |
MOM_CALC_3D_STRAIN |
& recip_drC(k)*rkSign |
|
./pkg/mom_common/mom_calc_3d_strain.F |
155 |
MOM_CALC_3D_STRAIN |
& *( uVel( i , j , k ,bi,bj)-uVel( i , j ,k-1 ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
157 |
MOM_CALC_3D_STRAIN |
& *( wVel( i , j , k ,bi,bj)-wVel(i-1, j , k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
164 |
MOM_CALC_3D_STRAIN |
str23(i,j,k) = halfRL*( |
|
./pkg/mom_common/mom_calc_3d_strain.F |
165 |
MOM_CALC_3D_STRAIN |
& recip_drC(k)*rkSign |
|
./pkg/mom_common/mom_calc_3d_strain.F |
166 |
MOM_CALC_3D_STRAIN |
& *( vVel( i , j , k ,bi,bj)-vVel( i , j ,k-1,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
168 |
MOM_CALC_3D_STRAIN |
& *( wVel( i , j , k ,bi,bj)-wVel( i ,j-1, k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
177 |
MOM_CALC_3D_STRAIN |
str12(i,j,k) = str12(i,j,k) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
178 |
MOM_CALC_3D_STRAIN |
& *maskW(i,j-1,k,bi,bj)*maskW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
181 |
MOM_CALC_3D_STRAIN |
IF ( k.GE.2 ) THEN |
|
./pkg/mom_common/mom_calc_3d_strain.F |
184 |
MOM_CALC_3D_STRAIN |
str13(i,j,k) = str13(i,j,k) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
185 |
MOM_CALC_3D_STRAIN |
& *maskW(i,j,k-1,bi,bj)*maskW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
190 |
MOM_CALC_3D_STRAIN |
str23(i,j,k) = str23(i,j,k) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
191 |
MOM_CALC_3D_STRAIN |
& *maskS(i,j,k-1,bi,bj)*maskS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
201 |
MOM_CALC_3D_STRAIN |
k = Nr+1 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
205 |
MOM_CALC_3D_STRAIN |
str13(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
206 |
MOM_CALC_3D_STRAIN |
str23(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
215 |
MOM_CALC_3D_STRAIN |
str13(i,j,k) = |
|
./pkg/mom_common/mom_calc_3d_strain.F |
218 |
MOM_CALC_3D_STRAIN |
& *( 0. _d 0 - uVel( i , j ,k-1 ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
225 |
MOM_CALC_3D_STRAIN |
str23(i,j,k) = |
|
./pkg/mom_common/mom_calc_3d_strain.F |
228 |
MOM_CALC_3D_STRAIN |
& *( 0. _d 0 - vVel( i , j ,k-1,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
51 |
MOM_CALC_3D_STRAIN |
INTEGER i, j, k |
|
./pkg/mom_common/mom_calc_3d_strain.F |
58 |
MOM_CALC_3D_STRAIN |
DO k=1,Nr |
|
./pkg/mom_common/mom_calc_3d_strain.F |
59 |
MOM_CALC_3D_STRAIN |
kp1 = MIN(k+1,Nr) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
61 |
MOM_CALC_3D_STRAIN |
IF ( k.EQ.Nr ) maskp1 = zeroRL |
|
./pkg/mom_common/mom_calc_3d_strain.F |
66 |
MOM_CALC_3D_STRAIN |
str11(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
70 |
MOM_CALC_3D_STRAIN |
str22(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
74 |
MOM_CALC_3D_STRAIN |
str12(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
75 |
MOM_CALC_3D_STRAIN |
str13(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
79 |
MOM_CALC_3D_STRAIN |
str12(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
80 |
MOM_CALC_3D_STRAIN |
str23(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
86 |
MOM_CALC_3D_STRAIN |
str11(i,j,k) = recip_dxF(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
87 |
MOM_CALC_3D_STRAIN |
& *( uVel(i+1, j , k ,bi,bj)-uVel( i , j , k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
94 |
MOM_CALC_3D_STRAIN |
str22(i,j,k) = recip_dyF(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
95 |
MOM_CALC_3D_STRAIN |
& *( vVel( i ,j+1, k ,bi,bj)-vVel( i , j , k ,bi,bj) ) |
|
./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 |
43 |
MOM_CALC_HDIV |
& )*recip_rA(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_hdiv.F |
56 |
MOM_CALC_HDIV |
& ( ( uFld(i+1, j )*dyG(i+1, j ,bi,bj)*hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
57 |
MOM_CALC_HDIV |
& -uFld( i , j )*dyG( i , j ,bi,bj)*hFacW( i , j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hdiv.F |
58 |
MOM_CALC_HDIV |
& +( vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
59 |
MOM_CALC_HDIV |
& -vFld( i , j )*dxG( i , j ,bi,bj)*hFacS( i , j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hdiv.F |
60 |
MOM_CALC_HDIV |
& )*recip_rA(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_hdiv.F |
61 |
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 |
117 |
MOM_CALC_HFACZ |
& SMOOTHMIN_RS(_hFacW(i ,j ,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
119 |
MOM_CALC_HFACZ |
& MIN(_hFacW(i ,j ,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
121 |
MOM_CALC_HFACZ |
& _hFacW(i ,j-1,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
122 |
MOM_CALC_HFACZ |
& *maskW(i,j,k,bi,bj)*maskW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
125 |
MOM_CALC_HFACZ |
& SMOOTHMIN_RS(_hFacS(i ,j ,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
127 |
MOM_CALC_HFACZ |
& MIN(_hFacS(i ,j ,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
129 |
MOM_CALC_HFACZ |
& _hFacS(i-1,j ,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
130 |
MOM_CALC_HFACZ |
& *maskS(i,j,k,bi,bj)*maskS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
145 |
MOM_CALC_HFACZ |
& *maskW(i,j,k,bi,bj)*maskW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
146 |
MOM_CALC_HFACZ |
& *maskS(i,j,k,bi,bj)*maskS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
14 |
MOM_CALC_HFACZ |
I bi, bj, k, |
|
./pkg/mom_common/mom_calc_hfacz.F |
196 |
MOM_CALC_HFACZ |
& ( _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
197 |
MOM_CALC_HFACZ |
& +_hFacW(i,j-1,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
198 |
MOM_CALC_HFACZ |
& + ( _hFacS( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
199 |
MOM_CALC_HFACZ |
& +_hFacS(i-1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
214 |
MOM_CALC_HFACZ |
& _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
215 |
MOM_CALC_HFACZ |
& + _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
216 |
MOM_CALC_HFACZ |
& , _hFacS( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
217 |
MOM_CALC_HFACZ |
& + _hFacS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
225 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacW(i,j,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
226 |
MOM_CALC_HFACZ |
& _hFacW(i,j-1,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
227 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
228 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
261 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacW(i,j,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
262 |
MOM_CALC_HFACZ |
& _hFacW(i,j-1,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
263 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen) |
|
./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 |
& +_hFacS( i ,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
270 |
MOM_CALC_HFACZ |
& + _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
273 |
MOM_CALC_HFACZ |
& ( _hFacW(i, j ,k,bi,bj) |
|
./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 |
286 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacW(i,j,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
287 |
MOM_CALC_HFACZ |
& _hFacW(i,j-1,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
288 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
293 |
MOM_CALC_HFACZ |
& ( _hFacS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
294 |
MOM_CALC_HFACZ |
& +_hFacW(i,j-1,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
295 |
MOM_CALC_HFACZ |
& + _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
298 |
MOM_CALC_HFACZ |
& ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
299 |
MOM_CALC_HFACZ |
& +_hFacW(i, j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
300 |
MOM_CALC_HFACZ |
& + _hFacS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
303 |
MOM_CALC_HFACZ |
& ( _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
304 |
MOM_CALC_HFACZ |
& +_hFacS(i-1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
305 |
MOM_CALC_HFACZ |
& + _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
316 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacW(i,j,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
317 |
MOM_CALC_HFACZ |
& _hFacW(i,j-1,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
318 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
323 |
MOM_CALC_HFACZ |
& ( _hFacS( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
324 |
MOM_CALC_HFACZ |
& +_hFacW(i, j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
325 |
MOM_CALC_HFACZ |
& + _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
328 |
MOM_CALC_HFACZ |
& ( _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
329 |
MOM_CALC_HFACZ |
& +_hFacW(i,j-1,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
330 |
MOM_CALC_HFACZ |
& + _hFacS( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
333 |
MOM_CALC_HFACZ |
& ( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
334 |
MOM_CALC_HFACZ |
& +_hFacS( i ,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
335 |
MOM_CALC_HFACZ |
& + _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
345 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacW(i,j,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
346 |
MOM_CALC_HFACZ |
& _hFacW(i,j-1,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
347 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen) |
|
./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 |
& +_hFacW(i, j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
354 |
MOM_CALC_HFACZ |
& + _hFacS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
357 |
MOM_CALC_HFACZ |
& ( _hFacW(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
358 |
MOM_CALC_HFACZ |
& +_hFacS(i-1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
359 |
MOM_CALC_HFACZ |
& + _hFacW(i,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
43 |
MOM_CALC_HFACZ |
INTEGER bi, bj, k |
|
./pkg/mom_common/mom_calc_hfacz.F |
97 |
MOM_CALC_HFACZ |
kkey = (ikey-1)*Nr + k |
|
./pkg/mom_common/mom_calc_ke.F |
110 |
MOM_CALC_KE |
& ( uFld( i , j )*uFld( i , j )*_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
111 |
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 |
112 |
MOM_CALC_KE |
& + ( vFld( i , j )*vFld( i , j )*_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
113 |
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 |
114 |
MOM_CALC_KE |
& )*_recip_hFacC(i,j,k,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 |
125 |
MOM_CALC_KE |
& *_hFacW(i ,j, k,bi,bj)*rAw(i ,j, bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
127 |
MOM_CALC_KE |
& *_hFacW(i+1,j,k,bi,bj)*rAw(i+1,j,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
131 |
MOM_CALC_KE |
& *_hFacS(i, j, k,bi,bj)*rAs(i ,j, bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
133 |
MOM_CALC_KE |
& *_hFacS(i,j+1,k,bi,bj)*rAs(i,j+1,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
134 |
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 |
122 |
MOM_CALC_RELVORT3 |
& )*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_relvort3.F |
137 |
MOM_CALC_RELVORT3 |
& )*recip_deepFacC(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 |
164 |
MOM_CALC_RELVORT3 |
& )*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_relvort3.F |
171 |
MOM_CALC_RELVORT3 |
& )*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_relvort3.F |
178 |
MOM_CALC_RELVORT3 |
& )*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_relvort3.F |
194 |
MOM_CALC_RELVORT3 |
& )*recip_deepFacC(k) |
|
./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 |
221 |
MOM_CALC_RELVORT3 |
& )*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_relvort3.F |
228 |
MOM_CALC_RELVORT3 |
& )*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_relvort3.F |
235 |
MOM_CALC_RELVORT3 |
& )*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_relvort3.F |
251 |
MOM_CALC_RELVORT3 |
& )*recip_deepFacC(k) |
|
./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 |
278 |
MOM_CALC_RELVORT3 |
& )*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_relvort3.F |
285 |
MOM_CALC_RELVORT3 |
& )*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_relvort3.F |
29 |
MOM_CALC_RELVORT3 |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_calc_relvort3.F |
301 |
MOM_CALC_RELVORT3 |
& )*recip_deepFacC(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 |
63 |
MOM_CALC_RELVORT3 |
& )*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_relvort3.F |
8 |
MOM_CALC_RELVORT3 |
I bi,bj,k, |
|
./pkg/mom_common/mom_calc_smag_3d.F |
121 |
MOM_CALC_SMAG_3D |
kl = k |
|
./pkg/mom_common/mom_calc_smag_3d.F |
163 |
MOM_CALC_SMAG_3D |
IF ( k.EQ.1 ) THEN |
|
./pkg/mom_common/mom_calc_smag_3d.F |
166 |
MOM_CALC_SMAG_3D |
viscAh3d_13(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_smag_3d.F |
167 |
MOM_CALC_SMAG_3D |
viscAh3d_23(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_smag_3d.F |
16 |
MOM_CALC_SMAG_3D |
I k, bi, bj, myThid ) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
173 |
MOM_CALC_SMAG_3D |
kl = k+1 |
|
./pkg/mom_common/mom_calc_smag_3d.F |
57 |
MOM_CALC_SMAG_3D |
INTEGER k, bi, bj |
|
./pkg/mom_common/mom_calc_smag_3d.F |
90 |
MOM_CALC_SMAG_3D |
kl = k + n - 1 |
|
./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_strain.F |
62 |
MOM_CALC_STRAIN |
& )*recip_rAz(i,j,bi,bj)*recip_deepFacC(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_tension.F |
59 |
MOM_CALC_TENSION |
& )*recip_rA(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_visc.F |
158 |
MOM_CALC_VISC |
lockey_1 = (ikey-1)*Nr + k |
|
./pkg/mom_common/mom_calc_visc.F |
15 |
MOM_CALC_VISC |
I bi,bj,k, |
|
./pkg/mom_common/mom_calc_visc.F |
170 |
MOM_CALC_VISC |
deepFac3 = deepFac2C(k)*deepFacC(k) |
|
./pkg/mom_common/mom_calc_visc.F |
171 |
MOM_CALC_VISC |
deepFac4 = deepFac2C(k)*deepFac2C(k) |
|
./pkg/mom_common/mom_calc_visc.F |
269 |
MOM_CALC_VISC |
& *recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_visc.F |
282 |
MOM_CALC_VISC |
& *recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_visc.F |
291 |
MOM_CALC_VISC |
& *recip_dxG(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_visc.F |
292 |
MOM_CALC_VISC |
& *maskS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
302 |
MOM_CALC_VISC |
& *recip_dyG(i,j,bi,bj)*recip_deepFacC(k) |
|
./pkg/mom_common/mom_calc_visc.F |
303 |
MOM_CALC_VISC |
& *maskW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
329 |
MOM_CALC_VISC |
L2 = L2_D(i,j,bi,bj)*deepFac2C(k) |
|
./pkg/mom_common/mom_calc_visc.F |
411 |
MOM_CALC_VISC |
& +viscAhDfld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
425 |
MOM_CALC_VISC |
& +viscA4Dfld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
437 |
MOM_CALC_VISC |
L2 = L2_Z(i,j,bi,bj)*deepFac2C(k) |
|
./pkg/mom_common/mom_calc_visc.F |
519 |
MOM_CALC_VISC |
& +viscAhZfld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
530 |
MOM_CALC_VISC |
& +viscA4Zfld(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
543 |
MOM_CALC_VISC |
IF ( k.LT.Nr ) THEN |
|
./pkg/mom_common/mom_calc_visc.F |
547 |
MOM_CALC_VISC |
viscAh_W(i,j,k+1,bi,bj) = halfRL*viscAh_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
548 |
MOM_CALC_VISC |
viscA4_W(i,j,k+1,bi,bj) = halfRL*viscA4_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
555 |
MOM_CALC_VISC |
IF ( k.EQ.1 ) THEN |
|
./pkg/mom_common/mom_calc_visc.F |
559 |
MOM_CALC_VISC |
viscAh_W(i,j,k,bi,bj) = shiftAh + viscAh_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
560 |
MOM_CALC_VISC |
viscA4_W(i,j,k,bi,bj) = shiftA4 + viscA4_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
567 |
MOM_CALC_VISC |
viscAh_W(i,j,k,bi,bj) = shiftAh + viscAh_W(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
569 |
MOM_CALC_VISC |
viscA4_W(i,j,k,bi,bj) = shiftA4 + viscA4_W(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
593 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_D,'VISCAHD ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
594 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_D,'VISCA4D ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
595 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_Z,'VISCAHZ ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
596 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_Z,'VISCA4Z ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
598 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_DMax,'VAHDMAX ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
599 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_DMax,'VA4DMAX ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
600 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_ZMax,'VAHZMAX ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
601 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_ZMax,'VA4ZMAX ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
603 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_DMin,'VAHDMIN ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
604 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_DMin,'VA4DMIN ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
605 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_ZMin,'VAHZMIN ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
606 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_ZMin,'VA4ZMIN ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
608 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_DLth,'VAHDLTH ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
609 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_DLth,'VA4DLTH ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
610 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_ZLth,'VAHZLTH ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
611 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_ZLth,'VA4ZLTH ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
614 |
MOM_CALC_VISC |
& k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
616 |
MOM_CALC_VISC |
& k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
618 |
MOM_CALC_VISC |
& k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
620 |
MOM_CALC_VISC |
& k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
622 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_DSmg,'VAHDSMAG',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
623 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_DSmg,'VA4DSMAG',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
624 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_ZSmg,'VAHZSMAG',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
625 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_ZSmg,'VA4ZSMAG',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
91 |
MOM_CALC_VISC |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_hdissip.F |
27 |
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 |
33 |
MOM_INIT_FIXED |
INTEGER i,j,k,bi,bj |
|
./pkg/mom_common/mom_init_fixed.F |
37 |
MOM_INIT_FIXED |
k = 1 |
|
./pkg/mom_common/mom_init_fixed.F |
46 |
MOM_INIT_FIXED |
DO k=1,Nr |
|
./pkg/mom_common/mom_init_fixed.F |
49 |
MOM_INIT_FIXED |
viscAhDfld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
50 |
MOM_INIT_FIXED |
viscAhZfld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
56 |
MOM_INIT_FIXED |
DO k=1,Nr |
|
./pkg/mom_common/mom_init_fixed.F |
59 |
MOM_INIT_FIXED |
viscA4Dfld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
60 |
MOM_INIT_FIXED |
viscA4Zfld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
67 |
MOM_INIT_FIXED |
DO k=1,Nr |
|
./pkg/mom_common/mom_init_fixed.F |
70 |
MOM_INIT_FIXED |
viscAh_W(i,j,k,bi,bj) = viscAhW |
|
./pkg/mom_common/mom_init_fixed.F |
71 |
MOM_INIT_FIXED |
viscA4_W(i,j,k,bi,bj) = viscA4W |
|
./pkg/mom_common/mom_quasihydrostatic.F |
102 |
MOM_QUASIHYDROSTATIC |
& ( (uFld( i ,j,k,bi,bj)*uFld( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
103 |
MOM_QUASIHYDROSTATIC |
& +uFld(i+1,j,k,bi,bj)*uFld(i+1,j,k,bi,bj)) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
104 |
MOM_QUASIHYDROSTATIC |
& + (vFld(i, j ,k,bi,bj)*vFld(i, j ,k,bi,bj) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
105 |
MOM_QUASIHYDROSTATIC |
& +vFld(i,j+1,k,bi,bj)*vFld(i,j+1,k,bi,bj)) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
106 |
MOM_QUASIHYDROSTATIC |
& )* 0.5 _d 0 * recip_rSphere*recip_deepFacC(k) |
|
./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 |
61 |
MOM_QUASIHYDROSTATIC |
& *recip_gravity*recip_gravFacC(k) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
78 |
MOM_QUASIHYDROSTATIC |
scalingFactor = tRef(k)*recip_gravity |
|
./pkg/mom_common/mom_quasihydrostatic.F |
89 |
MOM_QUASIHYDROSTATIC |
& (uFld(i,j,k,bi,bj)+uFld(i+1,j,k,bi,bj)) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
91 |
MOM_QUASIHYDROSTATIC |
& (vFld(i,j,k,bi,bj)+vFld(i,j+1,k,bi,bj)) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
103 |
MOM_U_BOTDRAG_IMPL |
cDrag(i,j,k) = cDrag(i,j,k) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
119 |
MOM_U_BOTDRAG_IMPL |
cDrag(i,j,k) = cDrag(i,j,k) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
122 |
MOM_U_BOTDRAG_IMPL |
& *_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
130 |
MOM_U_BOTDRAG_IMPL |
cDrag(i,j,k) = cDrag(i,j,k) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
143 |
MOM_U_BOTDRAG_IMPL |
& ( uFld( i , j ,k)*uFld( i , j ,k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
144 |
MOM_U_BOTDRAG_IMPL |
& +uFld(i+1, j ,k)*uFld(i+1, j ,k)*_hFacW(i+1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
145 |
MOM_U_BOTDRAG_IMPL |
& + ( vFld( i , j ,k)*vFld( i , j ,k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
146 |
MOM_U_BOTDRAG_IMPL |
& +vFld( i ,j+1,k)*vFld( i ,j+1,k)*_hFacS(i,j+1,k,bi,bj) ) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
147 |
MOM_U_BOTDRAG_IMPL |
& )*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
154 |
MOM_U_BOTDRAG_IMPL |
cDrag(i,j,k) = cDrag(i,j,k) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
165 |
MOM_U_BOTDRAG_IMPL |
uSq = uFld(i,j,k)*uFld(i,j,k) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
166 |
MOM_U_BOTDRAG_IMPL |
& + ( (vFld(i-1, j ,k)*vFld(i-1, j ,k)*hFacS(i-1, j ,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
167 |
MOM_U_BOTDRAG_IMPL |
& +vFld( i , j ,k)*vFld( i , j ,k)*hFacS( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
168 |
MOM_U_BOTDRAG_IMPL |
& + (vFld(i-1,j+1,k)*vFld(i-1,j+1,k)*hFacS(i-1,j+1,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
169 |
MOM_U_BOTDRAG_IMPL |
& +vFld( i ,j+1,k)*vFld( i ,j+1,k)*hFacS( i ,j+1,k,bi,bj)) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
170 |
MOM_U_BOTDRAG_IMPL |
& )*recip_hFacW(i,j,k,bi,bj)*0.25 _d 0 |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
172 |
MOM_U_BOTDRAG_IMPL |
cDrag(i,j,k) = cDrag(i,j,k) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
183 |
MOM_U_BOTDRAG_IMPL |
uSq = ( hFacS(i-1, j ,k,bi,bj) + hFacS( i , j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
184 |
MOM_U_BOTDRAG_IMPL |
& + ( hFacS(i-1,j+1,k,bi,bj) + hFacS( i ,j+1,k,bi,bj) ) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
186 |
MOM_U_BOTDRAG_IMPL |
uSq = uFld(i,j,k)*uFld(i,j,k) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
187 |
MOM_U_BOTDRAG_IMPL |
& +( (vFld(i-1, j ,k)*vFld(i-1, j ,k)*hFacS(i-1, j ,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
188 |
MOM_U_BOTDRAG_IMPL |
& +vFld( i , j ,k)*vFld( i , j ,k)*hFacS( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
189 |
MOM_U_BOTDRAG_IMPL |
& + (vFld(i-1,j+1,k)*vFld(i-1,j+1,k)*hFacS(i-1,j+1,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
190 |
MOM_U_BOTDRAG_IMPL |
& +vFld( i ,j+1,k)*vFld( i ,j+1,k)*hFacS( i ,j+1,k,bi,bj)) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
193 |
MOM_U_BOTDRAG_IMPL |
uSq = uFld(i,j,k)*uFld(i,j,k) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
196 |
MOM_U_BOTDRAG_IMPL |
cDrag(i,j,k) = cDrag(i,j,k) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
55 |
MOM_U_BOTDRAG_IMPL |
INTEGER i,j,k |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
67 |
MOM_U_BOTDRAG_IMPL |
DO k=1,Nr |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
71 |
MOM_U_BOTDRAG_IMPL |
kDown = MIN(k+1,Nr) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
72 |
MOM_U_BOTDRAG_IMPL |
kLowF = k+1 |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
78 |
MOM_U_BOTDRAG_IMPL |
kDown = MAX(k-1,1) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
79 |
MOM_U_BOTDRAG_IMPL |
kLowF = k |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
83 |
MOM_U_BOTDRAG_IMPL |
IF ( k.EQ.kBottom ) THEN |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
84 |
MOM_U_BOTDRAG_IMPL |
recDrC = recip_drF(k) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
87 |
MOM_U_BOTDRAG_IMPL |
recDrF_bot(i,j) = _recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
94 |
MOM_U_BOTDRAG_IMPL |
recDrF_bot(i,j) = _recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
118 |
MOM_U_BOTTOMDRAG |
& *_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
14 |
MOM_U_BOTTOMDRAG |
I bi, bj, k, |
|
./pkg/mom_common/mom_u_bottomdrag.F |
152 |
MOM_U_BOTTOMDRAG |
& + ( (vFld(i-1, j )*vFld(i-1, j )*hFacS(i-1, j ,k,bi,bj) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
153 |
MOM_U_BOTTOMDRAG |
& +vFld( i , j )*vFld( i , j )*hFacS( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
154 |
MOM_U_BOTTOMDRAG |
& + (vFld(i-1,j+1)*vFld(i-1,j+1)*hFacS(i-1,j+1,k,bi,bj) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
155 |
MOM_U_BOTTOMDRAG |
& +vFld( i ,j+1)*vFld( i ,j+1)*hFacS( i ,j+1,k,bi,bj)) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
156 |
MOM_U_BOTTOMDRAG |
& )*recip_hFacW(i,j,k,bi,bj)*0.25 _d 0 |
|
./pkg/mom_common/mom_u_bottomdrag.F |
169 |
MOM_U_BOTTOMDRAG |
uSq = ( hFacS(i-1, j ,k,bi,bj) + hFacS( i , j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
170 |
MOM_U_BOTTOMDRAG |
& + ( hFacS(i-1,j+1,k,bi,bj) + hFacS( i ,j+1,k,bi,bj) ) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
173 |
MOM_U_BOTTOMDRAG |
& +( (vFld(i-1, j )*vFld(i-1, j )*hFacS(i-1, j ,k,bi,bj) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
174 |
MOM_U_BOTTOMDRAG |
& +vFld( i , j )*vFld( i , j )*hFacS( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
175 |
MOM_U_BOTTOMDRAG |
& + (vFld(i-1,j+1)*vFld(i-1,j+1)*hFacS(i-1,j+1,k,bi,bj) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
176 |
MOM_U_BOTTOMDRAG |
& +vFld( i ,j+1)*vFld( i ,j+1)*hFacS( i ,j+1,k,bi,bj)) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
195 |
MOM_U_BOTTOMDRAG |
CALL DIAGNOSTICS_FILL(uDragTerms,'UBotDrag',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
43 |
MOM_U_BOTTOMDRAG |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_u_bottomdrag.F |
67 |
MOM_U_BOTTOMDRAG |
kDown = MIN(k+1,Nr) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
68 |
MOM_U_BOTTOMDRAG |
kLowF = k+1 |
|
./pkg/mom_common/mom_u_bottomdrag.F |
74 |
MOM_U_BOTTOMDRAG |
kDown = MAX(k-1,1) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
75 |
MOM_U_BOTTOMDRAG |
kLowF = k |
|
./pkg/mom_common/mom_u_bottomdrag.F |
79 |
MOM_U_BOTTOMDRAG |
IF ( k.EQ.kBottom ) THEN |
|
./pkg/mom_common/mom_u_bottomdrag.F |
80 |
MOM_U_BOTTOMDRAG |
recDrC = recip_drF(k) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
83 |
MOM_U_BOTTOMDRAG |
recDrF_bot(i,j) = _recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
90 |
MOM_U_BOTTOMDRAG |
recDrF_bot(i,j) = _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 |
& *deepFac2F( k )*rhoFacF( k ) |
|
./pkg/mom_common/mom_u_implicit_r.F |
105 |
MOM_U_IMPLICIT_R |
DO k=1,Nr-1 |
|
./pkg/mom_common/mom_u_implicit_r.F |
108 |
MOM_U_IMPLICIT_R |
IF (maskW(i,j,k+1,bi,bj).EQ.oneRS) |
|
./pkg/mom_common/mom_u_implicit_r.F |
109 |
MOM_U_IMPLICIT_R |
& d5d(i,j,k) = -deltaTMom |
|
./pkg/mom_common/mom_u_implicit_r.F |
110 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
111 |
MOM_U_IMPLICIT_R |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
112 |
MOM_U_IMPLICIT_R |
& *kappaRU(i,j,k+1)*recip_drC(k+1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
113 |
MOM_U_IMPLICIT_R |
& *deepFac2F(k+1)*rhoFacF(k+1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
118 |
MOM_U_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/mom_common/mom_u_implicit_r.F |
121 |
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 |
144 |
MOM_U_IMPLICIT_R |
DO k=2,Nr |
|
./pkg/mom_common/mom_u_implicit_r.F |
149 |
MOM_U_IMPLICIT_R |
& wVel( i ,j,k,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
150 |
MOM_U_IMPLICIT_R |
& *maskC( i ,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
151 |
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 |
152 |
MOM_U_IMPLICIT_R |
& *maskC(i-1,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
153 |
MOM_U_IMPLICIT_R |
& )*deepFac2F(k)*rhoFacF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
169 |
MOM_U_IMPLICIT_R |
b5d(i,j,k) = b5d(i,j,k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
171 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
172 |
MOM_U_IMPLICIT_R |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
173 |
MOM_U_IMPLICIT_R |
c5d(i,j,k) = c5d(i,j,k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
175 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
176 |
MOM_U_IMPLICIT_R |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
177 |
MOM_U_IMPLICIT_R |
c5d(i,j,k-1) = c5d(i,j,k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
179 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
180 |
MOM_U_IMPLICIT_R |
& *recip_deepFac2C(k-1)*recip_rhoFacC(k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
181 |
MOM_U_IMPLICIT_R |
d5d(i,j,k-1) = d5d(i,j,k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
183 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
184 |
MOM_U_IMPLICIT_R |
& *recip_deepFac2C(k-1)*recip_rhoFacC(k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
193 |
MOM_U_IMPLICIT_R |
b5d(i,j,k) = b5d(i,j,k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
194 |
MOM_U_IMPLICIT_R |
& - rCenter*_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
195 |
MOM_U_IMPLICIT_R |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
196 |
MOM_U_IMPLICIT_R |
c5d(i,j,k) = c5d(i,j,k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
197 |
MOM_U_IMPLICIT_R |
& - rCenter*_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
198 |
MOM_U_IMPLICIT_R |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
199 |
MOM_U_IMPLICIT_R |
c5d(i,j,k-1) = c5d(i,j,k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
200 |
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 |
201 |
MOM_U_IMPLICIT_R |
& *recip_deepFac2C(k-1)*recip_rhoFacC(k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
202 |
MOM_U_IMPLICIT_R |
d5d(i,j,k-1) = d5d(i,j,k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
203 |
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 |
204 |
MOM_U_IMPLICIT_R |
& *recip_deepFac2C(k-1)*recip_rhoFacC(k-1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
218 |
MOM_U_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/mom_common/mom_u_implicit_r.F |
221 |
MOM_U_IMPLICIT_R |
IF ( c5d(i,j,k).NE.zeroRL ) THEN |
|
./pkg/mom_common/mom_u_implicit_r.F |
222 |
MOM_U_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 / c5d(i,j,k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
224 |
MOM_U_IMPLICIT_R |
c5d(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_u_implicit_r.F |
231 |
MOM_U_IMPLICIT_R |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)*c5d(i,j,k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
255 |
MOM_U_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/mom_common/mom_u_implicit_r.F |
258 |
MOM_U_IMPLICIT_R |
dU_psFacX(i,j,k,bi,bj) = maskW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
259 |
MOM_U_IMPLICIT_R |
& *recip_deepFacC(k)*recip_rhoFacC(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
264 |
MOM_U_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/mom_common/mom_u_implicit_r.F |
267 |
MOM_U_IMPLICIT_R |
dU_psFacX(i,j,k,bi,bj) = dU_psFacX(i,j,k,bi,bj)*c5d(i,j,k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
286 |
MOM_U_IMPLICIT_R |
DO k= 1,Nr |
|
./pkg/mom_common/mom_u_implicit_r.F |
287 |
MOM_U_IMPLICIT_R |
IF ( k.EQ.1 ) THEN |
|
./pkg/mom_common/mom_u_implicit_r.F |
298 |
MOM_U_IMPLICIT_R |
vf(i,j) = -rAw(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
299 |
MOM_U_IMPLICIT_R |
& * kappaRU(i,j,k)*recip_drC(k)*rkSign |
|
./pkg/mom_common/mom_u_implicit_r.F |
300 |
MOM_U_IMPLICIT_R |
& * (gU(i,j,k,bi,bj) - gU(i,j,k-1,bi,bj)) |
|
./pkg/mom_common/mom_u_implicit_r.F |
301 |
MOM_U_IMPLICIT_R |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
302 |
MOM_U_IMPLICIT_R |
& *_maskW(i,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
306 |
MOM_U_IMPLICIT_R |
CALL DIAGNOSTICS_FILL(vf,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/mom_common/mom_u_implicit_r.F |
52 |
MOM_U_IMPLICIT_R |
INTEGER i,j,k |
|
./pkg/mom_common/mom_u_implicit_r.F |
74 |
MOM_U_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/mom_common/mom_u_implicit_r.F |
78 |
MOM_U_IMPLICIT_R |
b5d(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_u_implicit_r.F |
79 |
MOM_U_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 |
|
./pkg/mom_common/mom_u_implicit_r.F |
80 |
MOM_U_IMPLICIT_R |
d5d(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_u_implicit_r.F |
92 |
MOM_U_IMPLICIT_R |
DO k=2,Nr |
|
./pkg/mom_common/mom_u_implicit_r.F |
95 |
MOM_U_IMPLICIT_R |
IF (maskW(i,j,k-1,bi,bj).EQ.oneRS) |
|
./pkg/mom_common/mom_u_implicit_r.F |
96 |
MOM_U_IMPLICIT_R |
& b5d(i,j,k) = -deltaTMom |
|
./pkg/mom_common/mom_u_implicit_r.F |
97 |
MOM_U_IMPLICIT_R |
& *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
98 |
MOM_U_IMPLICIT_R |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
99 |
MOM_U_IMPLICIT_R |
& *kappaRU(i,j, k )*recip_drC( k ) |
|
./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 |
110 |
MOM_U_SIDEDRAG |
hFacZClosedS = h0FacW(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_u_sidedrag.F |
111 |
MOM_U_SIDEDRAG |
hFacZClosedN = h0FacW(i,j,k,bi,bj) - hFacZ(i,j+1) |
|
./pkg/mom_common/mom_u_sidedrag.F |
113 |
MOM_U_SIDEDRAG |
hFacZClosedS = _hFacW(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_u_sidedrag.F |
114 |
MOM_U_SIDEDRAG |
hFacZClosedN = _hFacW(i,j,k,bi,bj) - hFacZ(i,j+1) |
|
./pkg/mom_common/mom_u_sidedrag.F |
117 |
MOM_U_SIDEDRAG |
& -_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
118 |
MOM_U_SIDEDRAG |
& *recip_drF(k)*recip_rAw(i,j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
11 |
MOM_U_SIDEDRAG |
I bi, bj, k, |
|
./pkg/mom_common/mom_u_sidedrag.F |
143 |
MOM_U_SIDEDRAG |
& )*drF(k)*sideDragFactor |
|
./pkg/mom_common/mom_u_sidedrag.F |
152 |
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 |
68 |
MOM_U_SIDEDRAG |
hFacZClosedS = h0FacW(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_u_sidedrag.F |
69 |
MOM_U_SIDEDRAG |
hFacZClosedN = h0FacW(i,j,k,bi,bj) - hFacZ(i,j+1) |
|
./pkg/mom_common/mom_u_sidedrag.F |
71 |
MOM_U_SIDEDRAG |
hFacZClosedS = _hFacW(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_u_sidedrag.F |
72 |
MOM_U_SIDEDRAG |
hFacZClosedN = _hFacW(i,j,k,bi,bj) - hFacZ(i,j+1) |
|
./pkg/mom_common/mom_u_sidedrag.F |
81 |
MOM_U_SIDEDRAG |
& -_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
82 |
MOM_U_SIDEDRAG |
& *recip_drF(k)*recip_rAw(i,j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
87 |
MOM_U_SIDEDRAG |
& *drF(k)*2.*( |
|
./pkg/mom_common/mom_uv_smag_3d.F |
100 |
MOM_UV_SMAG_3D |
& -viscAh3d_12( i , j , k )*str12( i , j ,k) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
103 |
MOM_UV_SMAG_3D |
& +( viscAh3d_00( i , j , k )*str22( i , j ,k) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
105 |
MOM_UV_SMAG_3D |
& -viscAh3d_00( i ,j-1, k )*str22( i ,j-1,k) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
108 |
MOM_UV_SMAG_3D |
& + recip_drF( k ) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
109 |
MOM_UV_SMAG_3D |
& *( viscAh3d_23( i , j ,k+1)*str23( i , j ,k+1) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
111 |
MOM_UV_SMAG_3D |
& -viscAh3d_23( i , j , k )*str23( i , j , k ) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
113 |
MOM_UV_SMAG_3D |
& )*rkSign*recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
17 |
MOM_UV_SMAG_3D |
I iMin,iMax,jMin,jMax, k, bi, bj, myThid ) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
44 |
MOM_UV_SMAG_3D |
INTEGER k, bi, bj |
|
./pkg/mom_common/mom_uv_smag_3d.F |
58 |
MOM_UV_SMAG_3D |
km1 = MAX( 1,k-1) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
59 |
MOM_UV_SMAG_3D |
kp1 = MIN(Nr,k+1) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
62 |
MOM_UV_SMAG_3D |
IF ( k.LE.1 ) maskM1 = 0. |
|
./pkg/mom_common/mom_uv_smag_3d.F |
63 |
MOM_UV_SMAG_3D |
IF ( k.GE.Nr ) maskP1 = 0. |
|
./pkg/mom_common/mom_uv_smag_3d.F |
76 |
MOM_UV_SMAG_3D |
& ( viscAh3d_00( i , j , k )*str11( i , j , k ) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
78 |
MOM_UV_SMAG_3D |
& -viscAh3d_00(i-1, j , k )*str11(i-1, j , k ) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
81 |
MOM_UV_SMAG_3D |
& +( viscAh3d_12( i ,j+1, k )*str12( i ,j+1, k ) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
83 |
MOM_UV_SMAG_3D |
& -viscAh3d_12( i , j , k )*str12( i , j , k ) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
86 |
MOM_UV_SMAG_3D |
& + recip_drF( k ) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
87 |
MOM_UV_SMAG_3D |
& *( viscAh3d_13( i , j ,k+1)*str13( i , j ,k+1) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
89 |
MOM_UV_SMAG_3D |
& -viscAh3d_13( i , j , k )*str13( i , j , k ) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
91 |
MOM_UV_SMAG_3D |
& )*rkSign*recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
98 |
MOM_UV_SMAG_3D |
& ( viscAh3d_12(i+1, j , k )*str12(i+1, j ,k) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
103 |
MOM_V_BOTDRAG_IMPL |
cDrag(i,j,k) = cDrag(i,j,k) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
119 |
MOM_V_BOTDRAG_IMPL |
cDrag(i,j,k) = cDrag(i,j,k) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
122 |
MOM_V_BOTDRAG_IMPL |
& *_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
130 |
MOM_V_BOTDRAG_IMPL |
cDrag(i,j,k) = cDrag(i,j,k) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
143 |
MOM_V_BOTDRAG_IMPL |
& ( uFld( i , j ,k)*uFld( i , j ,k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
144 |
MOM_V_BOTDRAG_IMPL |
& +uFld(i+1, j ,k)*uFld(i+1, j ,k)*_hFacW(i+1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
145 |
MOM_V_BOTDRAG_IMPL |
& + ( vFld( i , j ,k)*vFld( i , j ,k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
146 |
MOM_V_BOTDRAG_IMPL |
& +vFld( i ,j+1,k)*vFld( i ,j+1,k)*_hFacS(i,j+1,k,bi,bj) ) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
147 |
MOM_V_BOTDRAG_IMPL |
& )*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
154 |
MOM_V_BOTDRAG_IMPL |
cDrag(i,j,k) = cDrag(i,j,k) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
165 |
MOM_V_BOTDRAG_IMPL |
vSq = vFld(i,j,k)*vFld(i,j,k) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
166 |
MOM_V_BOTDRAG_IMPL |
& + ( (uFld( i ,j-1,k)*uFld( i ,j-1,k)*hFacW( i ,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
167 |
MOM_V_BOTDRAG_IMPL |
& +uFld( i , j ,k)*uFld( i , j ,k)*hFacW( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
168 |
MOM_V_BOTDRAG_IMPL |
& + (uFld(i+1,j-1,k)*uFld(i+1,j-1,k)*hFacW(i+1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
169 |
MOM_V_BOTDRAG_IMPL |
& +uFld(i+1, j ,k)*uFld(i+1, j ,k)*hFacW(i+1, j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
170 |
MOM_V_BOTDRAG_IMPL |
& )*recip_hFacS(i,j,k,bi,bj)*0.25 _d 0 |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
172 |
MOM_V_BOTDRAG_IMPL |
cDrag(i,j,k) = cDrag(i,j,k) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
183 |
MOM_V_BOTDRAG_IMPL |
vSq = ( hFacW( i ,j-1,k,bi,bj) + hFacW( i , j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
184 |
MOM_V_BOTDRAG_IMPL |
& + ( hFacW(i+1,j-1,k,bi,bj) + hFacW(i+1, j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
186 |
MOM_V_BOTDRAG_IMPL |
vSq = vFld(i,j,k)*vFld(i,j,k) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
187 |
MOM_V_BOTDRAG_IMPL |
& +( (uFld( i ,j-1,k)*uFld( i ,j-1,k)*hFacW( i ,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
188 |
MOM_V_BOTDRAG_IMPL |
& +uFld( i , j ,k)*uFld( i , j ,k)*hFacW( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
189 |
MOM_V_BOTDRAG_IMPL |
& + (uFld(i+1,j-1,k)*uFld(i+1,j-1,k)*hFacW(i+1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
190 |
MOM_V_BOTDRAG_IMPL |
& +uFld(i+1, j ,k)*uFld(i+1, j ,k)*hFacW(i+1, j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
193 |
MOM_V_BOTDRAG_IMPL |
vSq = vFld(i,j,k)*vFld(i,j,k) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
196 |
MOM_V_BOTDRAG_IMPL |
cDrag(i,j,k) = cDrag(i,j,k) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
55 |
MOM_V_BOTDRAG_IMPL |
INTEGER i,j,k |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
67 |
MOM_V_BOTDRAG_IMPL |
DO k=1,Nr |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
71 |
MOM_V_BOTDRAG_IMPL |
kDown = MIN(k+1,Nr) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
72 |
MOM_V_BOTDRAG_IMPL |
kLowF = k+1 |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
78 |
MOM_V_BOTDRAG_IMPL |
kDown = MAX(k-1,1) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
79 |
MOM_V_BOTDRAG_IMPL |
kLowF = k |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
83 |
MOM_V_BOTDRAG_IMPL |
IF ( k.EQ.kBottom ) THEN |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
84 |
MOM_V_BOTDRAG_IMPL |
recDrC = recip_drF(k) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
87 |
MOM_V_BOTDRAG_IMPL |
recDrF_bot(i,j) = _recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
94 |
MOM_V_BOTDRAG_IMPL |
recDrF_bot(i,j) = _recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
118 |
MOM_V_BOTTOMDRAG |
& *_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
14 |
MOM_V_BOTTOMDRAG |
I bi, bj, k, |
|
./pkg/mom_common/mom_v_bottomdrag.F |
152 |
MOM_V_BOTTOMDRAG |
& + ( (uFld( i ,j-1)*uFld( i ,j-1)*hFacW( i ,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
153 |
MOM_V_BOTTOMDRAG |
& +uFld( i , j )*uFld( i , j )*hFacW( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
154 |
MOM_V_BOTTOMDRAG |
& + (uFld(i+1,j-1)*uFld(i+1,j-1)*hFacW(i+1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
155 |
MOM_V_BOTTOMDRAG |
& +uFld(i+1, j )*uFld(i+1, j )*hFacW(i+1, j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
156 |
MOM_V_BOTTOMDRAG |
& )*recip_hFacS(i,j,k,bi,bj)*0.25 _d 0 |
|
./pkg/mom_common/mom_v_bottomdrag.F |
169 |
MOM_V_BOTTOMDRAG |
vSq = ( hFacW( i ,j-1,k,bi,bj) + hFacW( i , j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
170 |
MOM_V_BOTTOMDRAG |
& + ( hFacW(i+1,j-1,k,bi,bj) + hFacW(i+1, j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
173 |
MOM_V_BOTTOMDRAG |
& +( (uFld( i ,j-1)*uFld( i ,j-1)*hFacW( i ,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
174 |
MOM_V_BOTTOMDRAG |
& +uFld( i , j )*uFld( i , j )*hFacW( i , j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
175 |
MOM_V_BOTTOMDRAG |
& + (uFld(i+1,j-1)*uFld(i+1,j-1)*hFacW(i+1,j-1,k,bi,bj) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
176 |
MOM_V_BOTTOMDRAG |
& +uFld(i+1, j )*uFld(i+1, j )*hFacW(i+1, j ,k,bi,bj)) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
195 |
MOM_V_BOTTOMDRAG |
CALL DIAGNOSTICS_FILL(vDragTerms,'VBotDrag',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
43 |
MOM_V_BOTTOMDRAG |
INTEGER bi,bj,k |
|
./pkg/mom_common/mom_v_bottomdrag.F |
67 |
MOM_V_BOTTOMDRAG |
kDown = MIN(k+1,Nr) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
68 |
MOM_V_BOTTOMDRAG |
kLowF = k+1 |
|
./pkg/mom_common/mom_v_bottomdrag.F |
74 |
MOM_V_BOTTOMDRAG |
kDown = MAX(k-1,1) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
75 |
MOM_V_BOTTOMDRAG |
kLowF = k |
|
./pkg/mom_common/mom_v_bottomdrag.F |
79 |
MOM_V_BOTTOMDRAG |
IF ( k.EQ.kBottom ) THEN |
|
./pkg/mom_common/mom_v_bottomdrag.F |
80 |
MOM_V_BOTTOMDRAG |
recDrC = recip_drF(k) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
83 |
MOM_V_BOTTOMDRAG |
recDrF_bot(i,j) = _recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
90 |
MOM_V_BOTTOMDRAG |
recDrF_bot(i,j) = _recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./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 |
& *deepFac2F( k )*rhoFacF( k ) |
|
./pkg/mom_common/mom_v_implicit_r.F |
105 |
MOM_V_IMPLICIT_R |
DO k=1,Nr-1 |
|
./pkg/mom_common/mom_v_implicit_r.F |
108 |
MOM_V_IMPLICIT_R |
IF (maskS(i,j,k+1,bi,bj).EQ.oneRS) |
|
./pkg/mom_common/mom_v_implicit_r.F |
109 |
MOM_V_IMPLICIT_R |
& d5d(i,j,k) = -deltaTMom |
|
./pkg/mom_common/mom_v_implicit_r.F |
110 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
111 |
MOM_V_IMPLICIT_R |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
112 |
MOM_V_IMPLICIT_R |
& *kappaRV(i,j,k+1)*recip_drC(k+1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
113 |
MOM_V_IMPLICIT_R |
& *deepFac2F(k+1)*rhoFacF(k+1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
118 |
MOM_V_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/mom_common/mom_v_implicit_r.F |
121 |
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 |
144 |
MOM_V_IMPLICIT_R |
DO k=2,Nr |
|
./pkg/mom_common/mom_v_implicit_r.F |
149 |
MOM_V_IMPLICIT_R |
& wVel(i, j ,k,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
150 |
MOM_V_IMPLICIT_R |
& *maskC(i, j ,k-1,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
151 |
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 |
152 |
MOM_V_IMPLICIT_R |
& *maskC(i,j-1,k-1,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
153 |
MOM_V_IMPLICIT_R |
& )*deepFac2F(k)*rhoFacF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
169 |
MOM_V_IMPLICIT_R |
b5d(i,j,k) = b5d(i,j,k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
171 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
172 |
MOM_V_IMPLICIT_R |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
173 |
MOM_V_IMPLICIT_R |
c5d(i,j,k) = c5d(i,j,k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
175 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
176 |
MOM_V_IMPLICIT_R |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
177 |
MOM_V_IMPLICIT_R |
c5d(i,j,k-1) = c5d(i,j,k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
179 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
180 |
MOM_V_IMPLICIT_R |
& *recip_deepFac2C(k-1)*recip_rhoFacC(k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
181 |
MOM_V_IMPLICIT_R |
d5d(i,j,k-1) = d5d(i,j,k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
183 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k-1,bi,bj)*recip_drF(k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
184 |
MOM_V_IMPLICIT_R |
& *recip_deepFac2C(k-1)*recip_rhoFacC(k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
193 |
MOM_V_IMPLICIT_R |
b5d(i,j,k) = b5d(i,j,k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
194 |
MOM_V_IMPLICIT_R |
& - rCenter*_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
195 |
MOM_V_IMPLICIT_R |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
196 |
MOM_V_IMPLICIT_R |
c5d(i,j,k) = c5d(i,j,k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
197 |
MOM_V_IMPLICIT_R |
& - rCenter*_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
198 |
MOM_V_IMPLICIT_R |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
199 |
MOM_V_IMPLICIT_R |
c5d(i,j,k-1) = c5d(i,j,k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
200 |
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 |
201 |
MOM_V_IMPLICIT_R |
& *recip_deepFac2C(k-1)*recip_rhoFacC(k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
202 |
MOM_V_IMPLICIT_R |
d5d(i,j,k-1) = d5d(i,j,k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
203 |
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 |
204 |
MOM_V_IMPLICIT_R |
& *recip_deepFac2C(k-1)*recip_rhoFacC(k-1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
218 |
MOM_V_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/mom_common/mom_v_implicit_r.F |
221 |
MOM_V_IMPLICIT_R |
IF ( c5d(i,j,k).NE.zeroRL ) THEN |
|
./pkg/mom_common/mom_v_implicit_r.F |
222 |
MOM_V_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 / c5d(i,j,k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
224 |
MOM_V_IMPLICIT_R |
c5d(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_v_implicit_r.F |
231 |
MOM_V_IMPLICIT_R |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)*c5d(i,j,k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
255 |
MOM_V_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/mom_common/mom_v_implicit_r.F |
258 |
MOM_V_IMPLICIT_R |
dV_psFacY(i,j,k,bi,bj) = maskS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
259 |
MOM_V_IMPLICIT_R |
& *recip_deepFacC(k)*recip_rhoFacC(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
264 |
MOM_V_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/mom_common/mom_v_implicit_r.F |
267 |
MOM_V_IMPLICIT_R |
dV_psFacY(i,j,k,bi,bj) = dV_psFacY(i,j,k,bi,bj)*c5d(i,j,k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
286 |
MOM_V_IMPLICIT_R |
DO k= 1,Nr |
|
./pkg/mom_common/mom_v_implicit_r.F |
287 |
MOM_V_IMPLICIT_R |
IF ( k.EQ.1 ) THEN |
|
./pkg/mom_common/mom_v_implicit_r.F |
298 |
MOM_V_IMPLICIT_R |
vf(i,j) = -rAs(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
299 |
MOM_V_IMPLICIT_R |
& * kappaRV(i,j,k)*recip_drC(k)*rkSign |
|
./pkg/mom_common/mom_v_implicit_r.F |
300 |
MOM_V_IMPLICIT_R |
& * (gV(i,j,k,bi,bj) - gV(i,j,k-1,bi,bj)) |
|
./pkg/mom_common/mom_v_implicit_r.F |
301 |
MOM_V_IMPLICIT_R |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
302 |
MOM_V_IMPLICIT_R |
& *_maskS(i,j,k-1,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
306 |
MOM_V_IMPLICIT_R |
CALL DIAGNOSTICS_FILL(vf,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/mom_common/mom_v_implicit_r.F |
52 |
MOM_V_IMPLICIT_R |
INTEGER i,j,k |
|
./pkg/mom_common/mom_v_implicit_r.F |
74 |
MOM_V_IMPLICIT_R |
DO k=1,Nr |
|
./pkg/mom_common/mom_v_implicit_r.F |
78 |
MOM_V_IMPLICIT_R |
b5d(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_v_implicit_r.F |
79 |
MOM_V_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 |
|
./pkg/mom_common/mom_v_implicit_r.F |
80 |
MOM_V_IMPLICIT_R |
d5d(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_v_implicit_r.F |
92 |
MOM_V_IMPLICIT_R |
DO k=2,Nr |
|
./pkg/mom_common/mom_v_implicit_r.F |
95 |
MOM_V_IMPLICIT_R |
IF (maskS(i,j,k-1,bi,bj).EQ.oneRS) |
|
./pkg/mom_common/mom_v_implicit_r.F |
96 |
MOM_V_IMPLICIT_R |
& b5d(i,j,k) = -deltaTMom |
|
./pkg/mom_common/mom_v_implicit_r.F |
97 |
MOM_V_IMPLICIT_R |
& *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
98 |
MOM_V_IMPLICIT_R |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
99 |
MOM_V_IMPLICIT_R |
& *kappaRV(i,j, k )*recip_drC( k ) |
|
./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 |
107 |
MOM_V_SIDEDRAG |
hFacZClosedW = h0FacS(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
108 |
MOM_V_SIDEDRAG |
hFacZClosedE = h0FacS(i,j,k,bi,bj) - hFacZ(i+1,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
110 |
MOM_V_SIDEDRAG |
hFacZClosedW = _hFacS(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
111 |
MOM_V_SIDEDRAG |
hFacZClosedE = _hFacS(i,j,k,bi,bj) - hFacZ(i+1,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
114 |
MOM_V_SIDEDRAG |
& -_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
115 |
MOM_V_SIDEDRAG |
& *recip_drF(k)*recip_rAs(i,j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
11 |
MOM_V_SIDEDRAG |
I bi, bj, k, |
|
./pkg/mom_common/mom_v_sidedrag.F |
130 |
MOM_V_SIDEDRAG |
& )*drF(k)*sideDragFactor |
|
./pkg/mom_common/mom_v_sidedrag.F |
139 |
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 |
68 |
MOM_V_SIDEDRAG |
hFacZClosedW = h0FacS(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
69 |
MOM_V_SIDEDRAG |
hFacZClosedE = h0FacS(i,j,k,bi,bj) - hFacZ(i+1,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
71 |
MOM_V_SIDEDRAG |
hFacZClosedW = _hFacS(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
72 |
MOM_V_SIDEDRAG |
hFacZClosedE = _hFacS(i,j,k,bi,bj) - hFacZ(i+1,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
83 |
MOM_V_SIDEDRAG |
& -_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
84 |
MOM_V_SIDEDRAG |
& *recip_drF(k)*recip_rAs(i,j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
89 |
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_common/mom_w_smag_3d.F |
16 |
MOM_W_SMAG_3D |
I iMin,iMax,jMin,jMax, k, bi, bj, myThid ) |
|
./pkg/mom_common/mom_w_smag_3d.F |
47 |
MOM_W_SMAG_3D |
INTEGER k, bi, bj |
|
./pkg/mom_common/mom_w_smag_3d.F |
60 |
MOM_W_SMAG_3D |
km1 = MAX(1,k-1) |
|
./pkg/mom_common/mom_w_smag_3d.F |
62 |
MOM_W_SMAG_3D |
IF ( k.LE.1 ) maskM1 = 0. |
|
./pkg/mom_common/mom_w_smag_3d.F |
77 |
MOM_W_SMAG_3D |
& ( viscAh3d_13(i+1, j , k )*str13(i+1, j ,k) |
|
./pkg/mom_common/mom_w_smag_3d.F |
80 |
MOM_W_SMAG_3D |
& -viscAh3d_13( i , j , k )*str13( i , j ,k) |
|
./pkg/mom_common/mom_w_smag_3d.F |
84 |
MOM_W_SMAG_3D |
& +( viscAh3d_23( i ,j+1, k )*str23( i ,j+1,k) |
|
./pkg/mom_common/mom_w_smag_3d.F |
87 |
MOM_W_SMAG_3D |
& -viscAh3d_23( i , j , k )*str23( i , j ,k) |
|
./pkg/mom_common/mom_w_smag_3d.F |
92 |
MOM_W_SMAG_3D |
& *( viscAh3d_00( i , j , k )*str33( i , j , k ) |
|
./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 |
181 |
MOM_FLUXFORM |
act0 = k - 1 |
|
./pkg/mom_fluxform/mom_fluxform.F |
265 |
MOM_FLUXFORM |
CALL MOM_CALC_HFACZ( bi,bj,k,hFacZ,r_hFacZ,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
271 |
MOM_FLUXFORM |
xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
272 |
MOM_FLUXFORM |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
273 |
MOM_FLUXFORM |
yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
274 |
MOM_FLUXFORM |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
284 |
MOM_FLUXFORM |
& MIN( h0FacW(i,j,k,bi,bj), h0FacW(i,j-1,k,bi,bj) ), |
|
./pkg/mom_fluxform/mom_fluxform.F |
285 |
MOM_FLUXFORM |
& MIN( h0FacS(i,j,k,bi,bj), h0FacS(i-1,j,k,bi,bj) ) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
294 |
MOM_FLUXFORM |
uFld(i,j) = uVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
295 |
MOM_FLUXFORM |
vFld(i,j) = vVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
303 |
MOM_FLUXFORM |
uTrans(i,j) = uFld(i,j)*xA(i,j)*rhoFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
304 |
MOM_FLUXFORM |
vTrans(i,j) = vFld(i,j)*yA(i,j)*rhoFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
308 |
MOM_FLUXFORM |
CALL MOM_CALC_KE( bi,bj,k,2,uFld,vFld,KE,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
310 |
MOM_FLUXFORM |
CALL MOM_CALC_HDIV( bi,bj,k,2,uFld,vFld,hDiv,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
311 |
MOM_FLUXFORM |
CALL MOM_CALC_RELVORT3( bi,bj,k,uFld,vFld,hFacZ,vort3,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
312 |
MOM_FLUXFORM |
CALL MOM_CALC_TENSION( bi,bj,k,uFld,vFld,tension,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
313 |
MOM_FLUXFORM |
CALL MOM_CALC_STRAIN( bi,bj,k,uFld,vFld,hFacZ,strain,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
324 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(hDiv, 'momHDiv ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
325 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(vort3, 'momVort3',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
326 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(tension,'Tension ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
327 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(strain, 'Strain ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
333 |
MOM_FLUXFORM |
IF (momAdvection.AND.k.EQ.1) THEN |
|
./pkg/mom_fluxform/mom_fluxform.F |
336 |
MOM_FLUXFORM |
CALL MOM_UV_BOUNDARY( bi, bj, k, |
|
./pkg/mom_fluxform/mom_fluxform.F |
338 |
MOM_FLUXFORM |
O uBnd(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
339 |
MOM_FLUXFORM |
O vBnd(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
357 |
MOM_FLUXFORM |
CALL MOM_CALC_RTRANS( k, bi, bj, |
|
./pkg/mom_fluxform/mom_fluxform.F |
362 |
MOM_FLUXFORM |
CALL MOM_U_ADV_WU( bi,bj,k,uVel,wVel,rTransU, |
|
./pkg/mom_fluxform/mom_fluxform.F |
365 |
MOM_FLUXFORM |
CALL MOM_V_ADV_WV( bi,bj,k,vVel,wVel,rTransV, |
|
./pkg/mom_fluxform/mom_fluxform.F |
373 |
MOM_FLUXFORM |
CALL MOM_CALC_RTRANS( k+1, bi, bj, |
|
./pkg/mom_fluxform/mom_fluxform.F |
379 |
MOM_FLUXFORM |
IF ( momAdvection .AND. k.LT.Nr ) THEN |
|
./pkg/mom_fluxform/mom_fluxform.F |
380 |
MOM_FLUXFORM |
CALL MOM_UV_BOUNDARY( bi, bj, k+1, |
|
./pkg/mom_fluxform/mom_fluxform.F |
382 |
MOM_FLUXFORM |
O uBnd(1-OLx,1-OLy,k+1,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
383 |
MOM_FLUXFORM |
O vBnd(1-OLx,1-OLy,k+1,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
398 |
MOM_FLUXFORM |
CALL MOM_CALC_VISC( bi, bj, k, |
|
./pkg/mom_fluxform/mom_fluxform.F |
413 |
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 |
415 |
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 |
418 |
MOM_FLUXFORM |
I bi,bj,k+1,uBnd,wVel,rTransU, |
|
./pkg/mom_fluxform/mom_fluxform.F |
41 |
MOM_FLUXFORM |
I bi,bj,k,iMin,iMax,jMin,jMax, |
|
./pkg/mom_fluxform/mom_fluxform.F |
423 |
MOM_FLUXFORM |
CALL MOM_U_ADV_UU( bi,bj,k,uTrans,uFld,fZon,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
427 |
MOM_FLUXFORM |
CALL MOM_U_ADV_VU( bi,bj,k,vTrans,uFld,fMer,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
432 |
MOM_FLUXFORM |
I bi,bj,k+1,uVel,wVel,rTransU, |
|
./pkg/mom_fluxform/mom_fluxform.F |
439 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = |
|
./pkg/mom_fluxform/mom_fluxform.F |
441 |
MOM_FLUXFORM |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)/ |
|
./pkg/mom_fluxform/mom_fluxform.F |
444 |
MOM_FLUXFORM |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
445 |
MOM_FLUXFORM |
& *recip_rAw(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
456 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL( fZon, 'ADVx_Um ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
457 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL( fMer, 'ADVy_Um ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
458 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fVerUkm,'ADVrE_Um',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
468 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
470 |
MOM_FLUXFORM |
& *uVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
477 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
478 |
MOM_FLUXFORM |
& - rStarDhWDt(i,j,bi,bj)*uVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
489 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
490 |
MOM_FLUXFORM |
& + uVel(i,j,k,bi,bj)*mass2rUnit*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_fluxform.F |
491 |
MOM_FLUXFORM |
& *( addMass(i-1,j,k,bi,bj) + addMass(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
492 |
MOM_FLUXFORM |
& *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)*recip_rhoFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
493 |
MOM_FLUXFORM |
& * recip_rAw(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
503 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_fluxform/mom_fluxform.F |
515 |
MOM_FLUXFORM |
& CALL MOM_U_DEL2U( bi, bj, k, uFld, hFacZ, h0FacZ, |
|
./pkg/mom_fluxform/mom_fluxform.F |
519 |
MOM_FLUXFORM |
CALL MOM_U_XVISCFLUX( bi,bj,k,uFld,v4F,fZon, |
|
./pkg/mom_fluxform/mom_fluxform.F |
523 |
MOM_FLUXFORM |
CALL MOM_U_YVISCFLUX( bi,bj,k,uFld,v4F,hFacZ,fMer, |
|
./pkg/mom_fluxform/mom_fluxform.F |
528 |
MOM_FLUXFORM |
CALL MOM_U_RVISCFLUX( bi,bj, k, uVel,kappaRU,fVrUp,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
529 |
MOM_FLUXFORM |
CALL MOM_U_RVISCFLUX( bi,bj,k+1,uVel,kappaRU,fVrDw,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
538 |
MOM_FLUXFORM |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)/ |
|
./pkg/mom_fluxform/mom_fluxform.F |
541 |
MOM_FLUXFORM |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
542 |
MOM_FLUXFORM |
& *recip_rAw(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
547 |
MOM_FLUXFORM |
& *recip_rhoFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
554 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fZon, 'VISCx_Um',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
555 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fMer, 'VISCy_Um',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
557 |
MOM_FLUXFORM |
& CALL DIAGNOSTICS_FILL(fVrUp,'VISrE_Um',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
564 |
MOM_FLUXFORM |
CALL MOM_U_SIDEDRAG( bi, bj, k, |
|
./pkg/mom_fluxform/mom_fluxform.F |
578 |
MOM_FLUXFORM |
CALL MOM_U_BOTTOMDRAG( bi, bj, k, |
|
./pkg/mom_fluxform/mom_fluxform.F |
591 |
MOM_FLUXFORM |
CALL SHELFICE_U_DRAG( bi, bj, k, |
|
./pkg/mom_fluxform/mom_fluxform.F |
615 |
MOM_FLUXFORM |
CALL MOM_U_METRIC_NH( bi,bj,k,uFld,wVel,mT,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
618 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+mtNHFacU*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
624 |
MOM_FLUXFORM |
CALL MOM_U_METRIC_SPHERE( bi,bj,k,uFld,vFld,mT,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
627 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+mtFacU*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
633 |
MOM_FLUXFORM |
CALL MOM_U_METRIC_CYLINDER( bi,bj,k,uFld,vFld,mT,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
636 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+mtFacU*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
648 |
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 |
650 |
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 |
652 |
MOM_FLUXFORM |
CALL MOM_V_ADV_WV( bi,bj,k+1,vBnd,wVel,rTransV, |
|
./pkg/mom_fluxform/mom_fluxform.F |
657 |
MOM_FLUXFORM |
CALL MOM_V_ADV_UV( bi,bj,k,uTrans,vFld,fZon,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
661 |
MOM_FLUXFORM |
CALL MOM_V_ADV_VV( bi,bj,k,vTrans,vFld,fMer,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
665 |
MOM_FLUXFORM |
CALL MOM_V_ADV_WV( bi,bj,k+1,vVel,wVel,rTransV, |
|
./pkg/mom_fluxform/mom_fluxform.F |
672 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = |
|
./pkg/mom_fluxform/mom_fluxform.F |
674 |
MOM_FLUXFORM |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)/ |
|
./pkg/mom_fluxform/mom_fluxform.F |
677 |
MOM_FLUXFORM |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
678 |
MOM_FLUXFORM |
& *recip_rAs(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
689 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL( fZon, 'ADVx_Vm ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
690 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL( fMer, 'ADVy_Vm ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
691 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fVerVkm,'ADVrE_Vm',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
701 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
703 |
MOM_FLUXFORM |
& *vVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
710 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
711 |
MOM_FLUXFORM |
& - rStarDhSDt(i,j,bi,bj)*vVel(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
722 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
723 |
MOM_FLUXFORM |
& + vVel(i,j,k,bi,bj)*mass2rUnit*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_fluxform.F |
724 |
MOM_FLUXFORM |
& *( addMass(i,j-1,k,bi,bj) + addMass(i,j,k,bi,bj) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
725 |
MOM_FLUXFORM |
& *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)*recip_rhoFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
726 |
MOM_FLUXFORM |
& * recip_rAs(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
736 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_fluxform/mom_fluxform.F |
747 |
MOM_FLUXFORM |
& CALL MOM_V_DEL2V( bi, bj, k, vFld, hFacZ, h0FacZ, |
|
./pkg/mom_fluxform/mom_fluxform.F |
751 |
MOM_FLUXFORM |
CALL MOM_V_XVISCFLUX( bi,bj,k,vFld,v4f,hFacZ,fZon, |
|
./pkg/mom_fluxform/mom_fluxform.F |
755 |
MOM_FLUXFORM |
CALL MOM_V_YVISCFLUX( bi,bj,k,vFld,v4f,fMer, |
|
./pkg/mom_fluxform/mom_fluxform.F |
760 |
MOM_FLUXFORM |
CALL MOM_V_RVISCFLUX( bi,bj, k, vVel,KappaRV,fVrUp,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
761 |
MOM_FLUXFORM |
CALL MOM_V_RVISCFLUX( bi,bj,k+1,vVel,KappaRV,fVrDw,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
770 |
MOM_FLUXFORM |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)/ |
|
./pkg/mom_fluxform/mom_fluxform.F |
773 |
MOM_FLUXFORM |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
774 |
MOM_FLUXFORM |
& *recip_rAs(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
779 |
MOM_FLUXFORM |
& *recip_rhoFacC(k) |
|
./pkg/mom_fluxform/mom_fluxform.F |
786 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fZon, 'VISCx_Vm',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
787 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fMer, 'VISCy_Vm',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
789 |
MOM_FLUXFORM |
& CALL DIAGNOSTICS_FILL(fVrUp,'VISrE_Vm',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
796 |
MOM_FLUXFORM |
CALL MOM_V_SIDEDRAG( bi, bj, k, |
|
./pkg/mom_fluxform/mom_fluxform.F |
810 |
MOM_FLUXFORM |
CALL MOM_V_BOTTOMDRAG( bi, bj, k, |
|
./pkg/mom_fluxform/mom_fluxform.F |
823 |
MOM_FLUXFORM |
CALL SHELFICE_V_DRAG( bi, bj, k, |
|
./pkg/mom_fluxform/mom_fluxform.F |
847 |
MOM_FLUXFORM |
CALL MOM_V_METRIC_NH( bi,bj,k,vFld,wVel,mT,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
850 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+mtNHFacV*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
856 |
MOM_FLUXFORM |
CALL MOM_V_METRIC_SPHERE( bi,bj,k,uFld,mT,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
859 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+mtFacV*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
865 |
MOM_FLUXFORM |
CALL MOM_V_METRIC_CYLINDER( bi,bj,k,uFld,vFld,mT,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
868 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+mtFacV*mT(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
86 |
MOM_FLUXFORM |
INTEGER bi,bj,k |
|
./pkg/mom_fluxform/mom_fluxform.F |
877 |
MOM_FLUXFORM |
CALL MOM_U_CORIOLIS( bi,bj,k,vFld,cf,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
880 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+fuFac*cf(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
885 |
MOM_FLUXFORM |
& CALL DIAGNOSTICS_FILL(cf,'Um_Cori ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
887 |
MOM_FLUXFORM |
CALL MOM_V_CORIOLIS( bi,bj,k,uFld,cf,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
890 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+fvFac*cf(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
895 |
MOM_FLUXFORM |
& CALL DIAGNOSTICS_FILL(cf,'Vm_Cori ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
901 |
MOM_FLUXFORM |
CALL MOM_U_CORIOLIS_NH( bi,bj,k,wVel,cf,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
904 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+fuFac*cf(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
909 |
MOM_FLUXFORM |
CALL MOM_V_CORIOLIS_NH( bi,bj,k,wVel,cf,myThid ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
912 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+fvFac*cf(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
921 |
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 |
922 |
MOM_FLUXFORM |
guDiss(i,j) = guDiss(i,j) *_maskW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
923 |
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 |
924 |
MOM_FLUXFORM |
gvDiss(i,j) = gvDiss(i,j) *_maskS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
930 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(KE, 'momKE ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
931 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(gU(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
932 |
MOM_FLUXFORM |
& 'Um_Advec',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
933 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(gV(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_fluxform/mom_fluxform.F |
934 |
MOM_FLUXFORM |
& 'Vm_Advec',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 |
105 |
MOM_U_DEL2U |
hFacZClosedS = h0FacW(i,j,k,bi,bj) - h0FacZ(i,j) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
106 |
MOM_U_DEL2U |
hFacZClosedN = h0FacW(i,j,k,bi,bj) - h0FacZ(i,j+1) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
108 |
MOM_U_DEL2U |
hFacZClosedS = _hFacW(i,j,k,bi,bj) - h0FacZ(i,j) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
109 |
MOM_U_DEL2U |
hFacZClosedN = _hFacW(i,j,k,bi,bj) - h0FacZ(i,j+1) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
112 |
MOM_U_DEL2U |
& -_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
113 |
MOM_U_DEL2U |
& *recip_rAw(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
119 |
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 |
34 |
MOM_U_DEL2U |
INTEGER bi, bj, k |
|
./pkg/mom_fluxform/mom_u_del2u.F |
55 |
MOM_U_DEL2U |
fZon(i,j) = drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
73 |
MOM_U_DEL2U |
fMer(i,j) = drF(k)*hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
89 |
MOM_U_DEL2U |
& recip_drF(k)*_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
90 |
MOM_U_DEL2U |
& *recip_rAw(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
93 |
MOM_U_DEL2U |
& )*_maskW(i,j,k,bi,bj) |
|
./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) |
|
./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 |
104 |
MOM_V_DEL2V |
hFacZClosedW = h0FacS(i,j,k,bi,bj) - h0FacZ(i,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
105 |
MOM_V_DEL2V |
hFacZClosedE = h0FacS(i,j,k,bi,bj) - h0FacZ(i+1,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
107 |
MOM_V_DEL2V |
hFacZClosedW = _hFacS(i,j,k,bi,bj) - h0FacZ(i,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
108 |
MOM_V_DEL2V |
hFacZClosedE = _hFacS(i,j,k,bi,bj) - h0FacZ(i+1,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
111 |
MOM_V_DEL2V |
& -_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
112 |
MOM_V_DEL2V |
& *recip_rAs(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
118 |
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 |
34 |
MOM_V_DEL2V |
INTEGER bi, bj, k |
|
./pkg/mom_fluxform/mom_v_del2v.F |
54 |
MOM_V_DEL2V |
fZon(i,j) = drF(k)*hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
69 |
MOM_V_DEL2V |
fMer(i,j) = drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
88 |
MOM_V_DEL2V |
& recip_drF(k)*_recip_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
89 |
MOM_V_DEL2V |
& *recip_rAs(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
92 |
MOM_V_DEL2V |
& )*_maskS(i,j,k,bi,bj) |
|
./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) |
|
./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 |
13 |
MOM_VECINV |
I bi,bj,k,iMin,iMax,jMin,jMax, |
|
./pkg/mom_vecinv/mom_vecinv.F |
148 |
MOM_VECINV |
act0 = k - 1 |
|
./pkg/mom_vecinv/mom_vecinv.F |
173 |
MOM_VECINV |
IF ((bi .EQ. 1).AND.(bj .EQ. 1).AND.(k .EQ. 1)) THEN |
|
./pkg/mom_vecinv/mom_vecinv.F |
182 |
MOM_VECINV |
offsets(3) = k |
|
./pkg/mom_vecinv/mom_vecinv.F |
242 |
MOM_VECINV |
CALL MOM_CALC_HFACZ(bi,bj,k,hFacZ,r_hFacZ,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
247 |
MOM_VECINV |
uFld(i,j) = uVel(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
248 |
MOM_VECINV |
vFld(i,j) = vVel(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vecinv.F |
271 |
MOM_VECINV |
CALL MOM_CALC_KE(bi,bj,k,selectKEscheme,uFld,vFld,KE,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
273 |
MOM_VECINV |
CALL MOM_CALC_RELVORT3(bi,bj,k,uFld,vFld,hFacZ,vort3,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
316 |
MOM_VECINV |
& MIN( h0FacW(i,j,k,bi,bj), h0FacW(i,j-1,k,bi,bj) ), |
|
./pkg/mom_vecinv/mom_vecinv.F |
317 |
MOM_VECINV |
& MIN( h0FacS(i,j,k,bi,bj), h0FacS(i-1,j,k,bi,bj) ) ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
330 |
MOM_VECINV |
CALL MOM_CALC_HDIV(bi,bj,k,2,uFld,vFld,hDiv,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
333 |
MOM_VECINV |
CALL MOM_CALC_TENSION( bi,bj,k,uFld,vFld,tension,myThid ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
334 |
MOM_VECINV |
CALL MOM_CALC_STRAIN( bi,bj,k,uFld,vFld,hFacZ,strain,myThid ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
369 |
MOM_VECINV |
CALL MOM_CALC_VISC( bi, bj, k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
397 |
MOM_VECINV |
CALL MOM_VI_DEL2UV(bi,bj,k,hDiv,vort3,hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
406 |
MOM_VECINV |
CALL MOM_CALC_HDIV(bi,bj,k,2,del2u,del2v,dStar,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
407 |
MOM_VECINV |
CALL MOM_CALC_RELVORT3(bi,bj,k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
427 |
MOM_VECINV |
CALL MOM_HDISSIP( bi, bj, k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
435 |
MOM_VECINV |
CALL MOM_VI_HDISSIP( bi, bj, k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
448 |
MOM_VECINV |
CALL MOM_U_RVISCFLUX(bi,bj,k+1,uVel,kappaRU,vrF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
466 |
MOM_VECINV |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_vecinv/mom_vecinv.F |
469 |
MOM_VECINV |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/mom_vecinv/mom_vecinv.F |
477 |
MOM_VECINV |
CALL MOM_U_SIDEDRAG( bi, bj, k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
492 |
MOM_VECINV |
CALL MOM_U_BOTTOMDRAG( bi, bj, k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
504 |
MOM_VECINV |
CALL SHELFICE_U_DRAG( bi, bj, k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
521 |
MOM_VECINV |
CALL MOM_V_RVISCFLUX(bi,bj,k+1,vVel,kappaRV,vrF,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
537 |
MOM_VECINV |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/mom_vecinv/mom_vecinv.F |
540 |
MOM_VECINV |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/mom_vecinv/mom_vecinv.F |
548 |
MOM_VECINV |
CALL MOM_V_SIDEDRAG( bi, bj, k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
563 |
MOM_VECINV |
CALL MOM_V_BOTTOMDRAG( bi, bj, k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
575 |
MOM_VECINV |
CALL SHELFICE_V_DRAG( bi, bj, k, |
|
./pkg/mom_vecinv/mom_vecinv.F |
598 |
MOM_VECINV |
& CALL MOM_CALC_ABSVORT3(bi,bj,k,vort3,omega3,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
613 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS(bi,bj,k,selectVortScheme,useJamartMomAdv, |
|
./pkg/mom_vecinv/mom_vecinv.F |
616 |
MOM_VECINV |
CALL MOM_VI_V_CORIOLIS(bi,bj,k,selectVortScheme,useJamartMomAdv, |
|
./pkg/mom_vecinv/mom_vecinv.F |
620 |
MOM_VECINV |
CALL MOM_VI_CORIOLIS(bi,bj,k,uFld,vFld,hFacZ,r_hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
625 |
MOM_VECINV |
gU(i,j,k,bi,bj) = uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
626 |
MOM_VECINV |
gV(i,j,k,bi,bj) = vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
631 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('fV','I10',1,uCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
632 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('fU','I10',1,vCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
645 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(uCf,'Um_Cori ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
646 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(vCf,'Vm_Cori ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
652 |
MOM_VECINV |
gU(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
653 |
MOM_VECINV |
gV(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
669 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS_C4(bi,bj,k,selectVortScheme, |
|
./pkg/mom_vecinv/mom_vecinv.F |
674 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS_C4(bi,bj,k,selectVortScheme, |
|
./pkg/mom_vecinv/mom_vecinv.F |
679 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS(bi,bj,k,selectVortScheme,useJamartMomAdv, |
|
./pkg/mom_vecinv/mom_vecinv.F |
683 |
MOM_VECINV |
CALL MOM_VI_U_CORIOLIS(bi,bj,k,selectVortScheme,useJamartMomAdv, |
|
./pkg/mom_vecinv/mom_vecinv.F |
689 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
694 |
MOM_VECINV |
CALL MOM_VI_V_CORIOLIS_C4(bi,bj,k,selectVortScheme, |
|
./pkg/mom_vecinv/mom_vecinv.F |
699 |
MOM_VECINV |
CALL MOM_VI_V_CORIOLIS_C4(bi,bj,k,selectVortScheme, |
|
./pkg/mom_vecinv/mom_vecinv.F |
704 |
MOM_VECINV |
CALL MOM_VI_V_CORIOLIS(bi,bj,k,selectVortScheme,useJamartMomAdv, |
|
./pkg/mom_vecinv/mom_vecinv.F |
708 |
MOM_VECINV |
CALL MOM_VI_V_CORIOLIS(bi,bj,k,selectVortScheme,useJamartMomAdv, |
|
./pkg/mom_vecinv/mom_vecinv.F |
714 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
727 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('zV','I10',1,uCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
728 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('zU','I10',1,vCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
73 |
MOM_VECINV |
INTEGER bi,bj,k |
|
./pkg/mom_vecinv/mom_vecinv.F |
743 |
MOM_VECINV |
& Nr, k, bi, bj, myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
745 |
MOM_VECINV |
& Nr, k, bi, bj, myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
750 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(uCf,'Um_AdvZ3',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
751 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(vCf,'Vm_AdvZ3',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
757 |
MOM_VECINV |
CALL MOM_VI_U_VERTSHEAR(bi,bj,k,uVel,wVel,uCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
760 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
763 |
MOM_VECINV |
CALL MOM_VI_V_VERTSHEAR(bi,bj,k,vVel,wVel,vCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
766 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
771 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(uCf,'Um_AdvRe',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
772 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(vCf,'Vm_AdvRe',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
778 |
MOM_VECINV |
CALL MOM_VI_U_GRAD_KE(bi,bj,k,KE,uCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
781 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
784 |
MOM_VECINV |
CALL MOM_VI_V_GRAD_KE(bi,bj,k,KE,vCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
787 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
792 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('KEx','I10',1,uCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
793 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('KEy','I10',1,vCf,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
810 |
MOM_VECINV |
CALL MOM_U_CORIOLIS_NH(bi,bj,k,wVel,uCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
813 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
818 |
MOM_VECINV |
CALL MOM_V_CORIOLIS_NH(bi,bj,k,wVel,vCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
821 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
829 |
MOM_VECINV |
CALL MOM_U_METRIC_NH(bi,bj,k,uFld,wVel,uCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
832 |
MOM_VECINV |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
835 |
MOM_VECINV |
CALL MOM_V_METRIC_NH(bi,bj,k,vFld,wVel,vCf,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
838 |
MOM_VECINV |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
846 |
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 |
847 |
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 |
853 |
MOM_VECINV |
& .AND. k.EQ.4 .AND. myIter.EQ.nIter0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
857 |
MOM_VECINV |
& guDiss,gvDiss, k, standardMessageUnit,bi,bj,myThid ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
864 |
MOM_VECINV |
& bi,bj,k, myIter, myThid ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
866 |
MOM_VECINV |
& bi,bj,k, myIter, myThid ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
868 |
MOM_VECINV |
& bi,bj,k, myIter, myThid ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
870 |
MOM_VECINV |
& bi,bj,k, myIter, myThid ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
873 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('W3','I10',1,omega3, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
874 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Z3','I10',1,vort3BC,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
875 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('KE','I10',1,KE, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
876 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('D', 'I10',1,hDiv, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
877 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Dt','I10',1,tension,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
879 |
MOM_VECINV |
& bi,bj,k, myIter, myThid ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
880 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Du','I10',1,guDiss, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
881 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Dv','I10',1,gvDiss, bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
907 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(vort3BC,'momVort3',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
908 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(KE, 'momKE ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
910 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(hDiv, 'momHDiv ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
913 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(tension, 'Tension ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
914 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(strainBC,'Strain ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
916 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(gU(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_vecinv/mom_vecinv.F |
917 |
MOM_VECINV |
& 'Um_Advec',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
918 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(gV(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/mom_vecinv/mom_vecinv.F |
919 |
MOM_VECINV |
& 'Vm_Advec',k,1,2,bi,bj,myThid) |
|
./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 |
119 |
MOM_VI_DEL2UV |
& +_recip_hFacS(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
122 |
MOM_VI_DEL2UV |
& )*maskS(i,j,k,bi,bj)*recip_deepFacC(k) |
|
./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 |
94 |
MOM_VI_DEL2UV |
& -_recip_hFacW(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_del2uv.F |
97 |
MOM_VI_DEL2UV |
& )*maskW(i,j,k,bi,bj)*recip_deepFacC(k) |
|
./model/src/cg3d.F |
140 |
CG3D |
DO k=1,Nr |
|
./model/src/cg3d.F |
143 |
CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*cg3dNorm |
|
./model/src/cg3d.F |
144 |
CG3D |
& * maskC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
145 |
CG3D |
rhsMax = MAX(ABS(cg3d_b(i,j,k,bi,bj)),rhsMax) |
|
./model/src/cg3d.F |
156 |
CG3D |
DO k=1,Nr |
|
./model/src/cg3d.F |
159 |
CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*rhsNorm |
|
./model/src/cg3d.F |
160 |
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 |
273 |
CG3D |
DO k=1,1 |
|
./model/src/cg3d.F |
279 |
CG3D |
cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
280 |
CG3D |
& *cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
284 |
CG3D |
DO k=2,Nr |
|
./model/src/cg3d.F |
290 |
CG3D |
cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
291 |
CG3D |
& *( cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
292 |
CG3D |
& -zML(i,j,k,bi,bj)*cg3d_q(i,j,k-1,bi,bj) |
|
./model/src/cg3d.F |
297 |
CG3D |
DO k=Nr,Nr |
|
./model/src/cg3d.F |
304 |
CG3D |
& +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
308 |
CG3D |
DO k=Nr-1,1,-1 |
|
./model/src/cg3d.F |
314 |
CG3D |
cg3d_q(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
315 |
CG3D |
& -zMU(i,j,k,bi,bj)*cg3d_q(i,j,k+1,bi,bj) |
|
./model/src/cg3d.F |
324 |
CG3D |
& +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
341 |
CG3D |
DO k=1,Nr |
|
./model/src/cg3d.F |
344 |
CG3D |
cg3d_s(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
345 |
CG3D |
& + cgBeta*cg3d_s(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
364 |
CG3D |
DO k=1,Nr |
|
./model/src/cg3d.F |
368 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
384 |
CG3D |
k=1 |
|
./model/src/cg3d.F |
390 |
CG3D |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d.F |
391 |
CG3D |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d.F |
392 |
CG3D |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d.F |
393 |
CG3D |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d.F |
394 |
CG3D |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d.F |
395 |
CG3D |
& +aV3d( i, j,k+1,bi,bj)*cg3d_s( i, j,k+1,bi,bj) |
|
./model/src/cg3d.F |
396 |
CG3D |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d.F |
398 |
CG3D |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
401 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
405 |
CG3D |
k=1 |
|
./model/src/cg3d.F |
411 |
CG3D |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d.F |
412 |
CG3D |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d.F |
413 |
CG3D |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d.F |
414 |
CG3D |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d.F |
415 |
CG3D |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d.F |
416 |
CG3D |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d.F |
418 |
CG3D |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
421 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
425 |
CG3D |
DO k=2,Nr-1 |
|
./model/src/cg3d.F |
431 |
CG3D |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d.F |
432 |
CG3D |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d.F |
433 |
CG3D |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d.F |
434 |
CG3D |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d.F |
435 |
CG3D |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d.F |
436 |
CG3D |
& +aV3d( i, j, k, bi,bj)*cg3d_s( i, j,k-1,bi,bj) |
|
./model/src/cg3d.F |
437 |
CG3D |
& +aV3d( i, j,k+1,bi,bj)*cg3d_s( i, j,k+1,bi,bj) |
|
./model/src/cg3d.F |
438 |
CG3D |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d.F |
440 |
CG3D |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
443 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
448 |
CG3D |
k=Nr |
|
./model/src/cg3d.F |
454 |
CG3D |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d.F |
455 |
CG3D |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d.F |
456 |
CG3D |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d.F |
457 |
CG3D |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d.F |
458 |
CG3D |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d.F |
459 |
CG3D |
& +aV3d( i, j, k, bi,bj)*cg3d_s( i, j,k-1,bi,bj) |
|
./model/src/cg3d.F |
460 |
CG3D |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d.F |
462 |
CG3D |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
465 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
483 |
CG3D |
DO k=1,Nr |
|
./model/src/cg3d.F |
489 |
CG3D |
cg3d_x(i,j,k,bi,bj)=cg3d_x(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
490 |
CG3D |
& +alpha*cg3d_s(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
491 |
CG3D |
cg3d_r(i,j,k,bi,bj)=cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
492 |
CG3D |
& -alpha*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
494 |
CG3D |
& +cg3d_r(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
525 |
CG3D |
DO k=1,Nr |
|
./model/src/cg3d.F |
528 |
CG3D |
cg3d_x(i,j,k,bi,bj) = cg3d_x(i,j,k,bi,bj)/rhsNorm |
|
./model/src/cg3d.F |
96 |
CG3D |
INTEGER i, j, k, it3d |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
158 |
MOM_VI_HDISSIP |
& -_recip_hFacW(i,j,k,bi,bj)*( Zip-Zij ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
164 |
MOM_VI_HDISSIP |
& _recip_hFacS(i,j,k,bi,bj)*( (Zpj-Zij)*cosFacV(j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
173 |
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 |
178 |
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 |
219 |
MOM_VI_HDISSIP |
& -_recip_hFacW(i,j,k,bi,bj)*viscA4Z*( Zip-Zij ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
225 |
MOM_VI_HDISSIP |
& _recip_hFacS(i,j,k,bi,bj)*viscA4Z*( Zpj-Zij )*cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
234 |
MOM_VI_HDISSIP |
& - viscA4Z*_recip_hFacW(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
239 |
MOM_VI_HDISSIP |
vD4 = viscA4Z*_recip_hFacS(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
258 |
MOM_VI_HDISSIP |
uDissip(i,j) = uDissip(i,j)*maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
259 |
MOM_VI_HDISSIP |
& *recip_deepFacC(k) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
260 |
MOM_VI_HDISSIP |
vDissip(i,j) = vDissip(i,j)*maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
261 |
MOM_VI_HDISSIP |
& *recip_deepFacC(k) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
26 |
MOM_VI_HDISSIP |
INTEGER bi, bj, k |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
64 |
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 |
69 |
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 |
7 |
MOM_VI_HDISSIP |
I bi, bj, k, |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
94 |
MOM_VI_HDISSIP |
& - viscAhZ*_recip_hFacW(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
99 |
MOM_VI_HDISSIP |
vD2 = viscAhZ*_recip_hFacS(i,j,k,bi,bj)* |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
109 |
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 |
119 |
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 |
120 |
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 |
122 |
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 |
123 |
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 |
136 |
MOM_VI_U_CORIOLIS |
& * _maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
154 |
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 |
160 |
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 |
166 |
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 |
172 |
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 |
176 |
MOM_VI_U_CORIOLIS |
& * _maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
193 |
MOM_VI_U_CORIOLIS |
& * 4. _d 0 * _hFacW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
195 |
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 |
196 |
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 |
68 |
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 |
69 |
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 |
70 |
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 |
71 |
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 |
84 |
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 |
132 |
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 |
133 |
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 |
134 |
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 |
135 |
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 |
159 |
MOM_VI_U_CORIOLIS_C4 |
& * _maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
173 |
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 |
174 |
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 |
176 |
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 |
177 |
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 |
203 |
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 |
23 |
MOM_VI_U_GRAD_KE |
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)*recip_deepFacC(k) |
|
./pkg/mom_vecinv/mom_vi_u_grad_ke.F |
7 |
MOM_VI_U_GRAD_KE |
I bi,bj,k, |
|
./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) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
109 |
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 |
119 |
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 |
120 |
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 |
122 |
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 |
123 |
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 |
136 |
MOM_VI_V_CORIOLIS |
& * _maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
154 |
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 |
160 |
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 |
166 |
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 |
172 |
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 |
176 |
MOM_VI_V_CORIOLIS |
& * _maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
193 |
MOM_VI_V_CORIOLIS |
& * 4. _d 0 * _hFacS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
195 |
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 |
196 |
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 |
68 |
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 |
69 |
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 |
70 |
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 |
71 |
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 |
84 |
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 |
132 |
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 |
133 |
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 |
134 |
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 |
135 |
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 |
159 |
MOM_VI_V_CORIOLIS_C4 |
& * _maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
173 |
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 |
174 |
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 |
176 |
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 |
177 |
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 |
203 |
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 |
23 |
MOM_VI_V_GRAD_KE |
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)*recip_deepFacC(k) |
|
./pkg/mom_vecinv/mom_vi_v_grad_ke.F |
7 |
MOM_VI_V_GRAD_KE |
I bi,bj,k, |
|
./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) |
|
./model/src/cg3d_ex0.F |
133 |
CG3D_EX0 |
DO k=1,Nr |
|
./model/src/cg3d_ex0.F |
136 |
CG3D_EX0 |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*cg3dNorm |
|
./model/src/cg3d_ex0.F |
137 |
CG3D_EX0 |
& * maskC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
138 |
CG3D_EX0 |
rhsMaxLoc = MAX(ABS(cg3d_b(i,j,k,bi,bj)),rhsMaxLoc) |
|
./model/src/cg3d_ex0.F |
144 |
CG3D_EX0 |
DO k=1,Nr |
|
./model/src/cg3d_ex0.F |
147 |
CG3D_EX0 |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*rhsNorm(bi,bj) |
|
./model/src/cg3d_ex0.F |
148 |
CG3D_EX0 |
cg3d_x(i,j,k,bi,bj) = cg3d_x(i,j,k,bi,bj)*rhsNorm(bi,bj) |
|
./model/src/cg3d_ex0.F |
175 |
CG3D_EX0 |
DO k=1,Nr |
|
./model/src/cg3d_ex0.F |
179 |
CG3D_EX0 |
& +cg3d_x(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
194 |
CG3D_EX0 |
DO k=1,Nr |
|
./model/src/cg3d_ex0.F |
195 |
CG3D_EX0 |
km1 = MAX(k-1, 1 ) |
|
./model/src/cg3d_ex0.F |
196 |
CG3D_EX0 |
kp1 = MIN(k+1, Nr) |
|
./model/src/cg3d_ex0.F |
199 |
CG3D_EX0 |
IF ( k .EQ. 1 ) maskM1 = 0. _d 0 |
|
./model/src/cg3d_ex0.F |
200 |
CG3D_EX0 |
IF ( k .EQ. Nr) maskP1 = 0. _d 0 |
|
./model/src/cg3d_ex0.F |
206 |
CG3D_EX0 |
cg3d_r(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
208 |
CG3D_EX0 |
& +aW3d( i, j, k, bi,bj)*cg3d_x(i-1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
209 |
CG3D_EX0 |
& +aW3d(i+1,j, k, bi,bj)*cg3d_x(i+1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
210 |
CG3D_EX0 |
& +aS3d( i, j, k, bi,bj)*cg3d_x( i,j-1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
211 |
CG3D_EX0 |
& +aS3d( i,j+1,k, bi,bj)*cg3d_x( i,j+1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
212 |
CG3D_EX0 |
& +aV3d( i, j, k, bi,bj)*cg3d_x( i, j,km1,bi,bj)*maskM1 |
|
./model/src/cg3d_ex0.F |
214 |
CG3D_EX0 |
& +aC3d( i, j, k, bi,bj)*cg3d_x( i, j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
216 |
CG3D_EX0 |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
220 |
CG3D_EX0 |
& +cg3d_r(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
221 |
CG3D_EX0 |
sumRHStile(bi,bj) = sumRHStile(bi,bj)+cg3d_b(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
226 |
CG3D_EX0 |
cg3d_s(i,j,k,bi,bj) = 0. |
|
./model/src/cg3d_ex0.F |
270 |
CG3D_EX0 |
DO k=1,1 |
|
./model/src/cg3d_ex0.F |
276 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
277 |
CG3D_EX0 |
& *cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
281 |
CG3D_EX0 |
DO k=2,Nr |
|
./model/src/cg3d_ex0.F |
287 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
288 |
CG3D_EX0 |
& *( cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
289 |
CG3D_EX0 |
& -zML(i,j,k,bi,bj)*cg3d_q(i,j,k-1,bi,bj) |
|
./model/src/cg3d_ex0.F |
294 |
CG3D_EX0 |
DO k=Nr,Nr |
|
./model/src/cg3d_ex0.F |
301 |
CG3D_EX0 |
& +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
305 |
CG3D_EX0 |
DO k=Nr-1,1,-1 |
|
./model/src/cg3d_ex0.F |
311 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
312 |
CG3D_EX0 |
& -zMU(i,j,k,bi,bj)*cg3d_q(i,j,k+1,bi,bj) |
|
./model/src/cg3d_ex0.F |
321 |
CG3D_EX0 |
& +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
329 |
CG3D_EX0 |
DO k=1,Nr |
|
./model/src/cg3d_ex0.F |
332 |
CG3D_EX0 |
cg3d_s(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
333 |
CG3D_EX0 |
& + cgBeta*cg3d_s(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
348 |
CG3D_EX0 |
DO k=1,Nr |
|
./model/src/cg3d_ex0.F |
352 |
CG3D_EX0 |
& +cg3d_s(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
368 |
CG3D_EX0 |
k=1 |
|
./model/src/cg3d_ex0.F |
374 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d_ex0.F |
375 |
CG3D_EX0 |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
376 |
CG3D_EX0 |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
377 |
CG3D_EX0 |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
378 |
CG3D_EX0 |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
379 |
CG3D_EX0 |
& +aV3d( i, j,k+1,bi,bj)*cg3d_s( i, j,k+1,bi,bj) |
|
./model/src/cg3d_ex0.F |
380 |
CG3D_EX0 |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
382 |
CG3D_EX0 |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
385 |
CG3D_EX0 |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
389 |
CG3D_EX0 |
k=1 |
|
./model/src/cg3d_ex0.F |
395 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d_ex0.F |
396 |
CG3D_EX0 |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
397 |
CG3D_EX0 |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
398 |
CG3D_EX0 |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
399 |
CG3D_EX0 |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
400 |
CG3D_EX0 |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
402 |
CG3D_EX0 |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
405 |
CG3D_EX0 |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
409 |
CG3D_EX0 |
DO k=2,Nr-1 |
|
./model/src/cg3d_ex0.F |
415 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d_ex0.F |
416 |
CG3D_EX0 |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
417 |
CG3D_EX0 |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
418 |
CG3D_EX0 |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
419 |
CG3D_EX0 |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
420 |
CG3D_EX0 |
& +aV3d( i, j, k, bi,bj)*cg3d_s( i, j,k-1,bi,bj) |
|
./model/src/cg3d_ex0.F |
421 |
CG3D_EX0 |
& +aV3d( i, j,k+1,bi,bj)*cg3d_s( i, j,k+1,bi,bj) |
|
./model/src/cg3d_ex0.F |
422 |
CG3D_EX0 |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
424 |
CG3D_EX0 |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
427 |
CG3D_EX0 |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
432 |
CG3D_EX0 |
k=Nr |
|
./model/src/cg3d_ex0.F |
438 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = |
|
./model/src/cg3d_ex0.F |
439 |
CG3D_EX0 |
& aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
440 |
CG3D_EX0 |
& +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
441 |
CG3D_EX0 |
& +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
442 |
CG3D_EX0 |
& +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj) |
|
./model/src/cg3d_ex0.F |
443 |
CG3D_EX0 |
& +aV3d( i, j, k, bi,bj)*cg3d_s( i, j,k-1,bi,bj) |
|
./model/src/cg3d_ex0.F |
444 |
CG3D_EX0 |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d_ex0.F |
446 |
CG3D_EX0 |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
449 |
CG3D_EX0 |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
458 |
CG3D_EX0 |
DO k=1,Nr |
|
./model/src/cg3d_ex0.F |
464 |
CG3D_EX0 |
cg3d_x(i,j,k,bi,bj)=cg3d_x(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
465 |
CG3D_EX0 |
& +alpha*cg3d_s(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
466 |
CG3D_EX0 |
cg3d_r(i,j,k,bi,bj)=cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
467 |
CG3D_EX0 |
& -alpha*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
469 |
CG3D_EX0 |
& +cg3d_r(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
509 |
CG3D_EX0 |
DO k=1,Nr |
|
./model/src/cg3d_ex0.F |
512 |
CG3D_EX0 |
cg3d_x(i,j,k,bi,bj) = cg3d_x(i,j,k,bi,bj)/rhsNorm(bi,bj) |
|
./model/src/cg3d_ex0.F |
88 |
CG3D_EX0 |
INTEGER i, j, k, it3d |
|
./pkg/monitor/mon_calc_advcfl.F |
107 |
MON_CALC_ADVCFL_TILE |
rTrans(i,j) = wFld(i,j,k) |
|
./pkg/monitor/mon_calc_advcfl.F |
108 |
MON_CALC_ADVCFL_TILE |
& *deepFac2F(k)*rhoFacF(k) |
|
./pkg/monitor/mon_calc_advcfl.F |
109 |
MON_CALC_ADVCFL_TILE |
recVol_dT = dT_lev(k) |
|
./pkg/monitor/mon_calc_advcfl.F |
110 |
MON_CALC_ADVCFL_TILE |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/monitor/mon_calc_advcfl.F |
111 |
MON_CALC_ADVCFL_TILE |
& *recip_drF(k)*recip_hFacC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_advcfl.F |
54 |
MON_CALC_ADVCFL_TILE |
INTEGER i,j,k |
|
./pkg/monitor/mon_calc_advcfl.F |
72 |
MON_CALC_ADVCFL_TILE |
DO k=myNr,1,-1 |
|
./pkg/monitor/mon_calc_advcfl.F |
78 |
MON_CALC_ADVCFL_TILE |
uTrans(i,j) = uFld(i,j,k)*dyG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/monitor/mon_calc_advcfl.F |
79 |
MON_CALC_ADVCFL_TILE |
& *hFacW(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_advcfl.F |
80 |
MON_CALC_ADVCFL_TILE |
vTrans(i,j) = vFld(i,j,k)*dxG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/monitor/mon_calc_advcfl.F |
81 |
MON_CALC_ADVCFL_TILE |
& *hFacS(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_advcfl.F |
86 |
MON_CALC_ADVCFL_TILE |
recVol_dT = dT_lev(k) |
|
./pkg/monitor/mon_calc_advcfl.F |
87 |
MON_CALC_ADVCFL_TILE |
& *recip_rA(i,j,bi,bj)*recip_deepFac2C(k) |
|
./pkg/monitor/mon_calc_advcfl.F |
88 |
MON_CALC_ADVCFL_TILE |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
103 |
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 |
68 |
MON_CALC_STATS_RL |
DO k=1,myNr |
|
./pkg/monitor/mon_calc_stats_rl.F |
71 |
MON_CALC_STATS_RL |
tmpVal = arr(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
72 |
MON_CALC_STATS_RL |
tmpMask = arrMask(i,j,bi,bj)*arrhFac(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
90 |
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 |
92 |
MON_CALC_STATS_RL |
ddx = (arr(i+1,j,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rl.F |
93 |
MON_CALC_STATS_RL |
& + (arr(i-1,j,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rl.F |
95 |
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 |
97 |
MON_CALC_STATS_RL |
ddy = (arr(i,j+1,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rl.F |
98 |
MON_CALC_STATS_RL |
& + (arr(i,j-1,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
103 |
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 |
68 |
MON_CALC_STATS_RS |
DO k=1,myNr |
|
./pkg/monitor/mon_calc_stats_rs.F |
71 |
MON_CALC_STATS_RS |
tmpVal = arr(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
72 |
MON_CALC_STATS_RS |
tmpMask = arrMask(i,j,bi,bj)*arrhFac(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
90 |
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 |
92 |
MON_CALC_STATS_RS |
ddx = (arr(i+1,j,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
93 |
MON_CALC_STATS_RS |
& + (arr(i-1,j,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
95 |
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 |
97 |
MON_CALC_STATS_RS |
ddy = (arr(i,j+1,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
98 |
MON_CALC_STATS_RS |
& + (arr(i,j-1,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_ke.F |
100 |
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 |
101 |
MON_KE |
& +vVel(i, j ,k,bi,bj)*vVel(i, j ,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
102 |
MON_KE |
& *dxG(i, j ,bi,bj)*dyC(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
103 |
MON_KE |
& +vVel(i,j+1,k,bi,bj)*vVel(i,j+1,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
104 |
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 |
107 |
MON_KE |
& + tmpVal*deepFac2C(k)*rhoFacC(k)*drF(k) |
|
./pkg/monitor/mon_ke.F |
108 |
MON_KE |
tmpVal= tmpVal*_recip_hFacC(i,j,k,bi,bj)*recip_rA(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
113 |
MON_KE |
& ( wVel(i,j, k, bi,bj)*wVel(i,j, k, bi,bj)*msk_1 |
|
./pkg/monitor/mon_ke.F |
114 |
MON_KE |
& *deepFac2F( k )*rhoFacF( k ) |
|
./pkg/monitor/mon_ke.F |
117 |
MON_KE |
& )*maskC(i,j,k,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
119 |
MON_KE |
& + tmpWke*rA(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
121 |
MON_KE |
& + tmpWke*recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/monitor/mon_ke.F |
189 |
MON_KE |
DO k=1,Nr |
|
./pkg/monitor/mon_ke.F |
190 |
MON_KE |
R_drK = rSphere*deepFacC(k)*deepFac2C(k) |
|
./pkg/monitor/mon_ke.F |
191 |
MON_KE |
& *rhoFacC(k)*drF(k) |
|
./pkg/monitor/mon_ke.F |
195 |
MON_KE |
tmpVal = abFac1*guNm(i,j,k,bi,bj,m1) |
|
./pkg/monitor/mon_ke.F |
196 |
MON_KE |
& + abFac2*guNm(i,j,k,bi,bj,m2) |
|
./pkg/monitor/mon_ke.F |
198 |
MON_KE |
tmpVal = abFac1*guNm1(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
200 |
MON_KE |
tmpVal = tmpVal*deltaTMom + uVel(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
202 |
MON_KE |
& + R_drK*tmpVal*_hFacW(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
228 |
MON_KE |
DO k=1,Nr |
|
./pkg/monitor/mon_ke.F |
229 |
MON_KE |
R_drK = rSphere*deepFacC(k)*deepFac2C(k) |
|
./pkg/monitor/mon_ke.F |
230 |
MON_KE |
& *rhoFacC(k)*drF(k) |
|
./pkg/monitor/mon_ke.F |
234 |
MON_KE |
tmpVal = abFac1*gvNm(i,j,k,bi,bj,m1) |
|
./pkg/monitor/mon_ke.F |
235 |
MON_KE |
& + abFac2*gvNm(i,j,k,bi,bj,m2) |
|
./pkg/monitor/mon_ke.F |
237 |
MON_KE |
tmpVal = abFac1*gvNm1(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
239 |
MON_KE |
tmpVal = tmpVal*deltaTMom + vVel(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
241 |
MON_KE |
& + R_drK*tmpVal*_hFacS(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
34 |
MON_KE |
INTEGER i,j,k |
|
./pkg/monitor/mon_ke.F |
70 |
MON_KE |
DO k=1,Nr |
|
./pkg/monitor/mon_ke.F |
71 |
MON_KE |
kp1 = MIN(k+1,Nr) |
|
./pkg/monitor/mon_ke.F |
73 |
MON_KE |
IF ( k.GE.Nr ) mskp1 = 0. |
|
./pkg/monitor/mon_ke.F |
77 |
MON_KE |
IF ( k.EQ.1 .AND. selectNHfreeSurf.LE.0 ) msk_1 = 0. |
|
./pkg/monitor/mon_ke.F |
81 |
MON_KE |
& + rA(i,j,bi,bj)*deepFac2C(k) |
|
./pkg/monitor/mon_ke.F |
82 |
MON_KE |
& *rhoFacC(k)*drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
97 |
MON_KE |
& uVel( i ,j,k,bi,bj)*uVel( i ,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
98 |
MON_KE |
& *dyG( i ,j,bi,bj)*dxC( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
99 |
MON_KE |
& +uVel(i+1,j,k,bi,bj)*uVel(i+1,j,k,bi,bj) |
|
./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) |
|
./pkg/monitor/mon_surfcor.F |
126 |
MON_SURFCOR |
DO k=2,Nr |
|
./pkg/monitor/mon_surfcor.F |
132 |
MON_SURFCOR |
& - ddPI*rA(i,j,bi,bj)*wVel(i,j,k,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
133 |
MON_SURFCOR |
& *(theta(i,j,k,bi,bj)+theta(i,j,k-1,bi,bj))*0.5 _d 0 |
|
./pkg/monitor/mon_surfcor.F |
134 |
MON_SURFCOR |
& *maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
149 |
MON_SURFCOR |
DO k=1,Nr |
|
./pkg/monitor/mon_surfcor.F |
151 |
MON_SURFCOR |
& atm_cp*((rC(k)/atm_po)**atm_kappa) |
|
./pkg/monitor/mon_surfcor.F |
154 |
MON_SURFCOR |
tmpVol = rA(i,j,bi,bj)*h0FacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/monitor/mon_surfcor.F |
156 |
MON_SURFCOR |
tmpVal = rStarDhCDt(i,j,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
159 |
MON_SURFCOR |
& +tmpVol*rStarDhCDt(i,j,bi,bj)*salt(i,j,k,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
54 |
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 |
128 |
MONITOR |
k = 1 |
|
./pkg/monitor/monitor.F |
129 |
MONITOR |
IF ( usingPCoords ) k = Nr |
|
./pkg/monitor/monitor.F |
130 |
MONITOR |
CALL MON_WRITESTATS_RL( 1, theta(1-OLx,1-OLy,k,1,1), '_sst', |
|
./pkg/monitor/monitor.F |
132 |
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 |
142 |
ADMONITOR |
k = 1 |
|
./pkg/monitor/monitor_ad.F |
143 |
ADMONITOR |
IF ( usingPCoords ) k = Nr |
|
./pkg/monitor/monitor_ad.F |
144 |
ADMONITOR |
CALL MON_WRITESTATS_RL( 1, adTheta(1-OLx,1-OLy,k,1,1), |
|
./pkg/monitor/monitor_ad.F |
146 |
ADMONITOR |
CALL MON_WRITESTATS_RL( 1, adSalt(1-OLx,1-OLy,k,1,1), |
|
./pkg/monitor/monitor_ad.F |
174 |
ADMONITOR |
k = 1 |
|
./pkg/monitor/monitor_ad.F |
175 |
ADMONITOR |
IF ( usingPCoords ) k = Nr |
|
./pkg/monitor/monitor_ad.F |
176 |
ADMONITOR |
CALL MON_WRITESTATS_RL( 1, var3Du(1-OLx,1-OLy,k,1,1), |
|
./pkg/monitor/monitor_ad.F |
178 |
ADMONITOR |
CALL MON_WRITESTATS_RL( 1, var3Dv(1-OLx,1-OLy,k,1,1), |
|
./pkg/monitor/monitor_ad.F |
58 |
ADMONITOR |
INTEGER k |
|
./pkg/monitor/monitor_ad.F |
80 |
ADMONITOR |
DO k = 1,MAX_LEN_MBUF |
|
./pkg/monitor/monitor_ad.F |
81 |
ADMONITOR |
mon_fname(k:k) = ' ' |
|
./pkg/monitor/monitor_g.F |
128 |
G_MONITOR |
k = 1 |
|
./pkg/monitor/monitor_g.F |
129 |
G_MONITOR |
IF ( usingPCoords ) k = Nr |
|
./pkg/monitor/monitor_g.F |
130 |
G_MONITOR |
CALL MON_WRITESTATS_RL( 1,g_theta(1-OLx,1-OLy,k,1,1),'_g_sst', |
|
./pkg/monitor/monitor_g.F |
132 |
G_MONITOR |
CALL MON_WRITESTATS_RL( 1, g_salt(1-OLx,1-OLy,k,1,1),'_g_sss', |
|
./pkg/monitor/monitor_g.F |
60 |
G_MONITOR |
INTEGER k |
|
./pkg/monitor/monitor_g.F |
76 |
G_MONITOR |
DO k = 1,MAX_LEN_MBUF |
|
./pkg/monitor/monitor_g.F |
77 |
G_MONITOR |
mon_fname(k:k) = ' ' |
|
./pkg/my82/my82_calc.F |
168 |
MY82_CALC |
& viscArnr(k) ) |
|
./pkg/my82/my82_calc.F |
171 |
MY82_CALC |
& diffKr(i,j,k,bi,bj) ) |
|
./pkg/my82/my82_calc.F |
173 |
MY82_CALC |
& diffKrNrS(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 |
& - diffKrNrS(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) |
|
./model/src/config_summary.F |
262 |
CONFIG_SUMMARY |
DO k = 1, Nr |
|
./model/src/config_summary.F |
264 |
CONFIG_SUMMARY |
& k,eosRefT(k),eosRefS(k),eosSig0(k), (eosC(i,k),i=1,9) |
|
./model/src/config_summary.F |
67 |
CONFIG_SUMMARY |
INTEGER i, 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) = diffKrNrS(k) |
|
./pkg/my82/my82_ri_number.F |
45 |
MY82_RI_NUMBER |
INTEGER bi, bj, iMin, iMax, jMin, jMax, k |
|
./model/src/convective_adjustment.F |
139 |
CONVECTIVE_ADJUSTMENT |
kkey = (ikey-1)*Nr + k |
|
./model/src/convective_adjustment.F |
189 |
CONVECTIVE_ADJUSTMENT |
I bi,bj,k,weightA,weightB, |
|
./model/src/convective_adjustment.F |
195 |
CONVECTIVE_ADJUSTMENT |
I bi,bj,k,weightA,weightB, |
|
./model/src/convective_adjustment.F |
203 |
CONVECTIVE_ADJUSTMENT |
I bi,bj,k,weightA,weightB,myThid) |
|
./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 |
114 |
MYPACKAGE_TENDENCY_APPLY_V |
INTEGER k, bi, bj |
|
./pkg/mypackage/mypackage_tendency_apply.F |
128 |
MYPACKAGE_TENDENCY_APPLY_V |
& + maskS(i,j,k,bi,bj) * myPa_TendVelV(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
136 |
MYPACKAGE_TENDENCY_APPLY_V |
& + maskS(i,j,k,bi,bj)*( myPa_TendVelV(i,j-1,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
137 |
MYPACKAGE_TENDENCY_APPLY_V |
& +myPa_TendVelV(i, j ,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
155 |
MYPACKAGE_TENDENCY_APPLY_T |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/mypackage/mypackage_tendency_apply.F |
181 |
MYPACKAGE_TENDENCY_APPLY_T |
INTEGER k, bi, bj |
|
./pkg/mypackage/mypackage_tendency_apply.F |
195 |
MYPACKAGE_TENDENCY_APPLY_T |
& + maskC(i,j,k,bi,bj) * myPa_TendScal1(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
19 |
MYPACKAGE_TENDENCY_APPLY_U |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/mypackage/mypackage_tendency_apply.F |
212 |
MYPACKAGE_TENDENCY_APPLY_S |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/mypackage/mypackage_tendency_apply.F |
238 |
MYPACKAGE_TENDENCY_APPLY_S |
INTEGER k, bi, bj |
|
./pkg/mypackage/mypackage_tendency_apply.F |
252 |
MYPACKAGE_TENDENCY_APPLY_S |
& + maskC(i,j,k,bi,bj) * myPa_TendScal2(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
46 |
MYPACKAGE_TENDENCY_APPLY_U |
INTEGER k, bi, bj |
|
./pkg/mypackage/mypackage_tendency_apply.F |
60 |
MYPACKAGE_TENDENCY_APPLY_U |
& + maskW(i,j,k,bi,bj) * myPa_TendVelU(i,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
68 |
MYPACKAGE_TENDENCY_APPLY_U |
& + maskW(i,j,k,bi,bj)*( myPa_TendVelU(i-1,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
69 |
MYPACKAGE_TENDENCY_APPLY_U |
& +myPa_TendVelU( i ,j,k,bi,bj) |
|
./pkg/mypackage/mypackage_tendency_apply.F |
87 |
MYPACKAGE_TENDENCY_APPLY_V |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./model/src/convective_adjustment_ini.F |
139 |
CONVECTIVE_ADJUSTMENT_INI |
kkey = (ikey-1)*Nr + k |
|
./model/src/convective_adjustment_ini.F |
187 |
CONVECTIVE_ADJUSTMENT_INI |
I bi,bj,k,weightA,weightB, |
|
./model/src/convective_adjustment_ini.F |
193 |
CONVECTIVE_ADJUSTMENT_INI |
I bi,bj,k,weightA,weightB, |
|
./model/src/convective_adjustment_ini.F |
201 |
CONVECTIVE_ADJUSTMENT_INI |
I bi,bj,k,weightA,weightB,myThid) |
|
./model/src/convective_adjustment_ini.F |
94 |
CONVECTIVE_ADJUSTMENT_INI |
ConvectCount(i,j,k) = 0. |
|
./model/src/convective_weights.F |
10 |
CONVECTIVE_WEIGHTS |
I bi, bj, k, rhoKm1, rhoK, |
|
./model/src/convective_weights.F |
41 |
CONVECTIVE_WEIGHTS |
INTEGER bi,bj,k |
|
./model/src/convective_weights.F |
60 |
CONVECTIVE_WEIGHTS |
IF ( _hFacC(i,j,k-1,bi,bj)* _hFacC(i,j,k,bi,bj) .GT. 0. .AND. |
|
./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) = 1. |
|
./model/src/convective_weights.F |
75 |
CONVECTIVE_WEIGHTS |
convectCount(i,j,k) = 0. |
|
./pkg/obcs/obcs_add_tides.F |
100 |
OBCS_ADD_TIDES |
DO k=1,Nr |
|
./pkg/obcs/obcs_add_tides.F |
105 |
OBCS_ADD_TIDES |
OBNv(i,k,bi,bj) = OBNv(i,k,bi,bj) + |
|
./pkg/obcs/obcs_add_tides.F |
106 |
OBCS_ADD_TIDES |
& maskS(i,jB,k,bi,bj) * OBNam(i,td,bi,bj) * |
|
./pkg/obcs/obcs_add_tides.F |
118 |
OBCS_ADD_TIDES |
DO k=1,Nr |
|
./pkg/obcs/obcs_add_tides.F |
123 |
OBCS_ADD_TIDES |
OBSv(i,k,bi,bj) = OBSv(i,k,bi,bj) + |
|
./pkg/obcs/obcs_add_tides.F |
124 |
OBCS_ADD_TIDES |
& maskS(i,1+jB,k,bi,bj)* OBSam(i,td,bi,bj) * |
|
./pkg/obcs/obcs_add_tides.F |
51 |
OBCS_ADD_TIDES |
INTEGER i, j, k, iB, jB |
|
./pkg/obcs/obcs_add_tides.F |
64 |
OBCS_ADD_TIDES |
DO k=1,Nr |
|
./pkg/obcs/obcs_add_tides.F |
69 |
OBCS_ADD_TIDES |
OBEu(j,k,bi,bj) = OBEu(j,k,bi,bj) + |
|
./pkg/obcs/obcs_add_tides.F |
70 |
OBCS_ADD_TIDES |
& maskW(iB,j,k,bi,bj) * OBEam(j,td,bi,bj) * |
|
./pkg/obcs/obcs_add_tides.F |
82 |
OBCS_ADD_TIDES |
DO k=1,Nr |
|
./pkg/obcs/obcs_add_tides.F |
87 |
OBCS_ADD_TIDES |
OBWu(j,k,bi,bj) = OBWu(j,k,bi,bj) + |
|
./pkg/obcs/obcs_add_tides.F |
88 |
OBCS_ADD_TIDES |
& maskW(1+iB,j,k,bi,bj) * OBWam(j,td,bi,bj) * |
|
./pkg/obcs/obcs_apply_ptracer.F |
105 |
OBCS_APPLY_PTRACER |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_ptracer.F |
106 |
OBCS_APPLY_PTRACER |
kl = MIN(k,kMx) |
|
./pkg/obcs/obcs_apply_ptracer.F |
107 |
OBCS_APPLY_PTRACER |
pFld(Iobc,j,kl) = OBEptr(j,k,bi,bj,iTracer) |
|
./pkg/obcs/obcs_apply_ptracer.F |
120 |
OBCS_APPLY_PTRACER |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_ptracer.F |
121 |
OBCS_APPLY_PTRACER |
kl = MIN(k,kMx) |
|
./pkg/obcs/obcs_apply_ptracer.F |
122 |
OBCS_APPLY_PTRACER |
pFld(Iobc,j,kl) = OBWptr(j,k,bi,bj,iTracer) |
|
./pkg/obcs/obcs_apply_ptracer.F |
52 |
OBCS_APPLY_PTRACER |
INTEGER k, kLo, kHi |
|
./pkg/obcs/obcs_apply_ptracer.F |
74 |
OBCS_APPLY_PTRACER |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_ptracer.F |
75 |
OBCS_APPLY_PTRACER |
kl = MIN(k,kMx) |
|
./pkg/obcs/obcs_apply_ptracer.F |
76 |
OBCS_APPLY_PTRACER |
pFld(i,Jobc,kl) = OBNptr(i,k,bi,bj,iTracer) |
|
./pkg/obcs/obcs_apply_ptracer.F |
89 |
OBCS_APPLY_PTRACER |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_ptracer.F |
90 |
OBCS_APPLY_PTRACER |
kl = MIN(k,kMx) |
|
./pkg/obcs/obcs_apply_ptracer.F |
91 |
OBCS_APPLY_PTRACER |
pFld(i,Jobc,kl) = OBSptr(i,k,bi,bj,iTracer) |
|
./pkg/obcs/obcs_apply_seaice.F |
128 |
OBCS_APPLY_SEAICE |
k = 1 |
|
./pkg/obcs/obcs_apply_seaice.F |
136 |
OBCS_APPLY_SEAICE |
IF ( _maskS(i,Jobc-1,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
175 |
OBCS_APPLY_SEAICE |
IF ( _maskS(i,Jobc+2,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
214 |
OBCS_APPLY_SEAICE |
IF ( _maskW(Iobc-1,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
253 |
OBCS_APPLY_SEAICE |
IF ( _maskW(Iobc+2,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/obcs/obcs_apply_seaice.F |
50 |
OBCS_APPLY_SEAICE |
INTEGER k |
|
./pkg/obcs/obcs_apply_ts.F |
100 |
OBCS_APPLY_TS |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_ts.F |
101 |
OBCS_APPLY_TS |
tFld(i,Jobc,k,bi,bj) = OBNt(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
102 |
OBCS_APPLY_TS |
sFld(i,Jobc,k,bi,bj) = OBNs(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
119 |
OBCS_APPLY_TS |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_ts.F |
120 |
OBCS_APPLY_TS |
tFld(i,Jobc,k,bi,bj) = tFld(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
121 |
OBCS_APPLY_TS |
& + dTtracerLev(k)*OBSt(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
122 |
OBCS_APPLY_TS |
sFld(i,Jobc,k,bi,bj) = sFld(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
123 |
OBCS_APPLY_TS |
& + dTtracerLev(k)*OBSs(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
134 |
OBCS_APPLY_TS |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_ts.F |
135 |
OBCS_APPLY_TS |
tFld(i,Jobc,k,bi,bj) = OBSt(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
136 |
OBCS_APPLY_TS |
sFld(i,Jobc,k,bi,bj) = OBSs(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
154 |
OBCS_APPLY_TS |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_ts.F |
155 |
OBCS_APPLY_TS |
tFld(Iobc,j,k,bi,bj) = tFld(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
156 |
OBCS_APPLY_TS |
& + dTtracerLev(k)*OBEt(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
157 |
OBCS_APPLY_TS |
sFld(Iobc,j,k,bi,bj) = sFld(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
158 |
OBCS_APPLY_TS |
& + dTtracerLev(k)*OBEs(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
169 |
OBCS_APPLY_TS |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_ts.F |
170 |
OBCS_APPLY_TS |
tFld(Iobc,j,k,bi,bj) = OBEt(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
171 |
OBCS_APPLY_TS |
sFld(Iobc,j,k,bi,bj) = OBEs(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
188 |
OBCS_APPLY_TS |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_ts.F |
189 |
OBCS_APPLY_TS |
tFld(Iobc,j,k,bi,bj) = tFld(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
190 |
OBCS_APPLY_TS |
& + dTtracerLev(k)*OBWt(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
191 |
OBCS_APPLY_TS |
sFld(Iobc,j,k,bi,bj) = sFld(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
192 |
OBCS_APPLY_TS |
& + dTtracerLev(k)*OBWs(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
203 |
OBCS_APPLY_TS |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_ts.F |
204 |
OBCS_APPLY_TS |
tFld(Iobc,j,k,bi,bj) = OBWt(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
205 |
OBCS_APPLY_TS |
sFld(Iobc,j,k,bi,bj) = OBWs(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
49 |
OBCS_APPLY_TS |
INTEGER k, kLo, kHi |
|
./pkg/obcs/obcs_apply_ts.F |
85 |
OBCS_APPLY_TS |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_ts.F |
86 |
OBCS_APPLY_TS |
tFld(i,Jobc,k,bi,bj) = tFld(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
87 |
OBCS_APPLY_TS |
& + dTtracerLev(k)*OBNt(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
88 |
OBCS_APPLY_TS |
sFld(i,Jobc,k,bi,bj) = sFld(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
89 |
OBCS_APPLY_TS |
& + dTtracerLev(k)*OBNs(i,k,bi,bj) |
|
./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/obcs/obcs_apply_uv.F |
103 |
OBCS_APPLY_UV |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_uv.F |
104 |
OBCS_APPLY_UV |
uFld(i,Jobc,k,bi,bj) = OBSu(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
105 |
OBCS_APPLY_UV |
& *_maskW(i,Jobc,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 |
vFld(Iobc,j,k,bi,bj) = OBEv(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
121 |
OBCS_APPLY_UV |
& *_maskS(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
133 |
OBCS_APPLY_UV |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_uv.F |
134 |
OBCS_APPLY_UV |
vFld(Iobc,j,k,bi,bj) = OBWv(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
135 |
OBCS_APPLY_UV |
& *_maskS(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
150 |
OBCS_APPLY_UV |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_uv.F |
151 |
OBCS_APPLY_UV |
vFld(i,Jobc,k,bi,bj) = OBNv(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
152 |
OBCS_APPLY_UV |
& *_maskS(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
153 |
OBCS_APPLY_UV |
vFld(i,Jobc+1,k,bi,bj) = OBNv(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
154 |
OBCS_APPLY_UV |
& *_maskS(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
167 |
OBCS_APPLY_UV |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_uv.F |
168 |
OBCS_APPLY_UV |
vFld(i,Jobc+1,k,bi,bj) = OBSv(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
169 |
OBCS_APPLY_UV |
& *_maskS(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
170 |
OBCS_APPLY_UV |
vFld(i,Jobc,k,bi,bj) = OBSv(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
171 |
OBCS_APPLY_UV |
& *_maskS(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
186 |
OBCS_APPLY_UV |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_uv.F |
187 |
OBCS_APPLY_UV |
uFld(Iobc,j,k,bi,bj) = OBEu(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
188 |
OBCS_APPLY_UV |
& *_maskW(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
189 |
OBCS_APPLY_UV |
uFld(Iobc+1,j,k,bi,bj) = OBEu(j,K,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
190 |
OBCS_APPLY_UV |
& *_maskW(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
203 |
OBCS_APPLY_UV |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_uv.F |
204 |
OBCS_APPLY_UV |
uFld(Iobc+1,j,k,bi,bj) = OBWu(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
205 |
OBCS_APPLY_UV |
& *_maskW(Iobc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
206 |
OBCS_APPLY_UV |
uFld(Iobc,j,k,bi,bj) = OBWu(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
207 |
OBCS_APPLY_UV |
& *_maskW(Iobc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
50 |
OBCS_APPLY_UV |
INTEGER k, kLo, kHi |
|
./pkg/obcs/obcs_apply_uv.F |
89 |
OBCS_APPLY_UV |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_uv.F |
90 |
OBCS_APPLY_UV |
uFld(i,Jobc,k,bi,bj) = OBNu(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_uv.F |
91 |
OBCS_APPLY_UV |
& *_maskW(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
109 |
OBCS_APPLY_W |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_w.F |
110 |
OBCS_APPLY_W |
km1 = MAX( k-1, 1 ) |
|
./pkg/obcs/obcs_apply_w.F |
111 |
OBCS_APPLY_W |
obc_mask = maskC(Iobc,j,km1,bi,bj)*maskC(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
112 |
OBCS_APPLY_W |
wFld(Iobc,j,k,bi,bj) = OBEw(j,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
115 |
OBCS_APPLY_W |
obc_mask = maskC(Iobc,j,km1,bi,bj)*maskC(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
116 |
OBCS_APPLY_W |
wFld(Iobc,j,k,bi,bj) = OBEw(j,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
128 |
OBCS_APPLY_W |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_w.F |
129 |
OBCS_APPLY_W |
km1 = MAX( k-1, 1 ) |
|
./pkg/obcs/obcs_apply_w.F |
130 |
OBCS_APPLY_W |
obc_mask = maskC(Iobc,j,km1,bi,bj)*maskC(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
131 |
OBCS_APPLY_W |
wFld(Iobc,j,k,bi,bj) = OBWw(j,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
134 |
OBCS_APPLY_W |
obc_mask = maskC(Iobc,j,km1,bi,bj)*maskC(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
135 |
OBCS_APPLY_W |
wFld(Iobc,j,k,bi,bj) = OBWw(j,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
48 |
OBCS_APPLY_W |
INTEGER k, km1 |
|
./pkg/obcs/obcs_apply_w.F |
59 |
OBCS_APPLY_W |
k = kArg |
|
./pkg/obcs/obcs_apply_w.F |
60 |
OBCS_APPLY_W |
km1 = MAX( k-1, 1 ) |
|
./pkg/obcs/obcs_apply_w.F |
70 |
OBCS_APPLY_W |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_w.F |
71 |
OBCS_APPLY_W |
km1 = MAX( k-1, 1 ) |
|
./pkg/obcs/obcs_apply_w.F |
72 |
OBCS_APPLY_W |
obc_mask = maskC(i,Jobc,km1,bi,bj)*maskC(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
73 |
OBCS_APPLY_W |
wFld(i,Jobc,k,bi,bj) = OBNw(i,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
76 |
OBCS_APPLY_W |
obc_mask = maskC(i,Jobc,km1,bi,bj)*maskC(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
77 |
OBCS_APPLY_W |
wFld(i,Jobc,k,bi,bj) = OBNw(i,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
89 |
OBCS_APPLY_W |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_w.F |
90 |
OBCS_APPLY_W |
km1 = MAX( k-1, 1 ) |
|
./pkg/obcs/obcs_apply_w.F |
91 |
OBCS_APPLY_W |
obc_mask = maskC(i,Jobc,km1,bi,bj)*maskC(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
92 |
OBCS_APPLY_W |
wFld(i,Jobc,k,bi,bj) = OBSw(i,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_w.F |
95 |
OBCS_APPLY_W |
obc_mask = maskC(i,Jobc,km1,bi,bj)*maskC(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_w.F |
96 |
OBCS_APPLY_W |
wFld(i,Jobc,k,bi,bj) = OBSw(i,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_balance_flow.F |
101 |
OBCS_BALANCE_FLOW |
tmpA = drF(k)*hFacW(iB,j,k,bi,bj)*dyG(iB,j,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
104 |
OBCS_BALANCE_FLOW |
tileFlow(bi,bj) = tileFlow(bi,bj) + tmpA*OBEu(j,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
144 |
OBCS_BALANCE_FLOW |
DO k=1,Nr |
|
./pkg/obcs/obcs_balance_flow.F |
150 |
OBCS_BALANCE_FLOW |
tmpA = drF(k)*hFacW(1+iB,j,k,bi,bj)*dyG(1+iB,j,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
153 |
OBCS_BALANCE_FLOW |
tileFlow(bi,bj) = tileFlow(bi,bj) + tmpA*OBWu(j,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
193 |
OBCS_BALANCE_FLOW |
DO k=1,Nr |
|
./pkg/obcs/obcs_balance_flow.F |
199 |
OBCS_BALANCE_FLOW |
tmpA = drF(k)*hFacS(i,jB,k,bi,bj)*dxG(i,jB,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
202 |
OBCS_BALANCE_FLOW |
tileFlow(bi,bj) = tileFlow(bi,bj) + tmpA*OBNv(i,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
242 |
OBCS_BALANCE_FLOW |
DO k=1,Nr |
|
./pkg/obcs/obcs_balance_flow.F |
248 |
OBCS_BALANCE_FLOW |
tmpA = drF(k)*hFacS(i,1+jB,k,bi,bj)*dxG(i,1+jB,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
251 |
OBCS_BALANCE_FLOW |
tileFlow(bi,bj) = tileFlow(bi,bj) + tmpA*OBSv(i,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
323 |
OBCS_BALANCE_FLOW |
DO k=1,Nr |
|
./pkg/obcs/obcs_balance_flow.F |
327 |
OBCS_BALANCE_FLOW |
OBEu(j,k,bi,bj) = OBEu(j,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
328 |
OBCS_BALANCE_FLOW |
& + flowE*maskW(iB,j,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
343 |
OBCS_BALANCE_FLOW |
DO k=1,Nr |
|
./pkg/obcs/obcs_balance_flow.F |
347 |
OBCS_BALANCE_FLOW |
OBWu(j,k,bi,bj) = OBWu(j,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
348 |
OBCS_BALANCE_FLOW |
& + flowW*maskW(1+iB,j,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
363 |
OBCS_BALANCE_FLOW |
DO k=1,Nr |
|
./pkg/obcs/obcs_balance_flow.F |
367 |
OBCS_BALANCE_FLOW |
OBNv(i,k,bi,bj) = OBNv(i,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
368 |
OBCS_BALANCE_FLOW |
& + flowN*maskS(i,jB,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
383 |
OBCS_BALANCE_FLOW |
DO k=1,Nr |
|
./pkg/obcs/obcs_balance_flow.F |
387 |
OBCS_BALANCE_FLOW |
OBSv(i,k,bi,bj) = OBSv(i,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
388 |
OBCS_BALANCE_FLOW |
& + flowS*maskS(i,1+jB,k,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
48 |
OBCS_BALANCE_FLOW |
INTEGER i, j, k, iB, jB |
|
./pkg/obcs/obcs_balance_flow.F |
95 |
OBCS_BALANCE_FLOW |
DO k=1,Nr |
|
./pkg/obcs/obcs_calc.F |
101 |
OBCS_CALC |
DO k=1,Nr |
|
./pkg/obcs/obcs_calc.F |
104 |
OBCS_CALC |
OBEu(j,k,bi,bj)= U_F1(j,k,2) |
|
./pkg/obcs/obcs_calc.F |
105 |
OBCS_CALC |
OBEv(j,k,bi,bj)= V_F1(j,k,2) |
|
./pkg/obcs/obcs_calc.F |
106 |
OBCS_CALC |
OBEt(j,k,bi,bj)= T_F1(j,k,2) |
|
./pkg/obcs/obcs_calc.F |
107 |
OBCS_CALC |
OBEs(j,k,bi,bj)= S_F1(j,k,2) |
|
./pkg/obcs/obcs_calc.F |
116 |
OBCS_CALC |
DO k=1,Nr |
|
./pkg/obcs/obcs_calc.F |
119 |
OBCS_CALC |
OBEu(j,k,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
120 |
OBCS_CALC |
OBEv(j,k,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
121 |
OBCS_CALC |
OBEt(j,k,bi,bj)=tRef(k) |
|
./pkg/obcs/obcs_calc.F |
122 |
OBCS_CALC |
OBEs(j,k,bi,bj)=sRef(k) |
|
./pkg/obcs/obcs_calc.F |
124 |
OBCS_CALC |
OBEw(j,k,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
151 |
OBCS_CALC |
DO k=1,Nr |
|
./pkg/obcs/obcs_calc.F |
154 |
OBCS_CALC |
OBWu(j,k,bi,bj)= U_F1(j,k,1) |
|
./pkg/obcs/obcs_calc.F |
155 |
OBCS_CALC |
OBWv(j,k,bi,bj)= V_F1(j,k,1) |
|
./pkg/obcs/obcs_calc.F |
156 |
OBCS_CALC |
OBWt(j,k,bi,bj)= T_F1(j,k,1) |
|
./pkg/obcs/obcs_calc.F |
157 |
OBCS_CALC |
OBWs(j,k,bi,bj)= S_F1(j,k,1) |
|
./pkg/obcs/obcs_calc.F |
166 |
OBCS_CALC |
DO k=1,Nr |
|
./pkg/obcs/obcs_calc.F |
169 |
OBCS_CALC |
OBWu(j,k,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
170 |
OBCS_CALC |
OBWv(j,k,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
171 |
OBCS_CALC |
OBWt(j,k,bi,bj)=tRef(k) |
|
./pkg/obcs/obcs_calc.F |
172 |
OBCS_CALC |
OBWs(j,k,bi,bj)=sRef(k) |
|
./pkg/obcs/obcs_calc.F |
174 |
OBCS_CALC |
OBWw(j,k,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
200 |
OBCS_CALC |
DO k=1,Nr |
|
./pkg/obcs/obcs_calc.F |
203 |
OBCS_CALC |
OBNv(i,k,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
204 |
OBCS_CALC |
OBNu(i,k,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
205 |
OBCS_CALC |
OBNt(i,k,bi,bj)=tRef(k) |
|
./pkg/obcs/obcs_calc.F |
206 |
OBCS_CALC |
OBNs(i,k,bi,bj)=sRef(k) |
|
./pkg/obcs/obcs_calc.F |
208 |
OBCS_CALC |
OBNw(i,k,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
234 |
OBCS_CALC |
DO k=1,Nr |
|
./pkg/obcs/obcs_calc.F |
237 |
OBCS_CALC |
OBSu(i,k,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
238 |
OBCS_CALC |
OBSv(i,k,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
239 |
OBCS_CALC |
OBSt(i,k,bi,bj)=tRef(k) |
|
./pkg/obcs/obcs_calc.F |
240 |
OBCS_CALC |
OBSs(i,k,bi,bj)=sRef(k) |
|
./pkg/obcs/obcs_calc.F |
242 |
OBCS_CALC |
OBSw(i,k,bi,bj)=0. |
|
./pkg/obcs/obcs_calc.F |
283 |
OBCS_CALC |
DO k=1,Nr |
|
./pkg/obcs/obcs_calc.F |
287 |
OBCS_CALC |
OBEptr(j,k,bi,bj,iTracer) = |
|
./pkg/obcs/obcs_calc.F |
288 |
OBCS_CALC |
& pTracer(I_obc-1,j,k,bi,bj,iTracer) |
|
./pkg/obcs/obcs_calc.F |
289 |
OBCS_CALC |
& *_maskW(I_obc,j,k,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
315 |
OBCS_CALC |
DO k=1,Nr |
|
./pkg/obcs/obcs_calc.F |
319 |
OBCS_CALC |
OBWptr(j,k,bi,bj,iTracer) = |
|
./pkg/obcs/obcs_calc.F |
320 |
OBCS_CALC |
& pTracer(I_obc+1,j,k,bi,bj,iTracer) |
|
./pkg/obcs/obcs_calc.F |
321 |
OBCS_CALC |
& *_maskW(I_obc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
347 |
OBCS_CALC |
DO k=1,Nr |
|
./pkg/obcs/obcs_calc.F |
351 |
OBCS_CALC |
OBNptr(i,k,bi,bj,iTracer) = |
|
./pkg/obcs/obcs_calc.F |
352 |
OBCS_CALC |
& pTracer(i,J_obc-1,k,bi,bj,iTracer) |
|
./pkg/obcs/obcs_calc.F |
353 |
OBCS_CALC |
& *_maskS(i,J_obc,k,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
379 |
OBCS_CALC |
DO k=1,Nr |
|
./pkg/obcs/obcs_calc.F |
383 |
OBCS_CALC |
OBSptr(i,k,bi,bj,iTracer) = |
|
./pkg/obcs/obcs_calc.F |
384 |
OBCS_CALC |
& pTracer(i,J_obc+1,k,bi,bj,iTracer) |
|
./pkg/obcs/obcs_calc.F |
385 |
OBCS_CALC |
& *_maskS(i,J_obc+1,k,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
61 |
OBCS_CALC |
INTEGER i, j, k |
|
./pkg/obcs/obcs_calc_stevens.F |
1042 |
OBCS_STEVENS_SAVE_TRACERS |
INTEGER bi,bj,i,j,k,Iobc,Jobc |
|
./pkg/obcs/obcs_calc_stevens.F |
1053 |
OBCS_STEVENS_SAVE_TRACERS |
DO k = 1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
1054 |
OBCS_STEVENS_SAVE_TRACERS |
OBNtStevens(i,k,bi,bj) = theta(i,Jobc-1,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1055 |
OBCS_STEVENS_SAVE_TRACERS |
& *maskC(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1056 |
OBCS_STEVENS_SAVE_TRACERS |
OBNsStevens(i,k,bi,bj) = salt(i,Jobc-1,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1057 |
OBCS_STEVENS_SAVE_TRACERS |
& *maskC(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1069 |
OBCS_STEVENS_SAVE_TRACERS |
DO k = 1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
1070 |
OBCS_STEVENS_SAVE_TRACERS |
OBStStevens(i,k,bi,bj) = theta(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1071 |
OBCS_STEVENS_SAVE_TRACERS |
& *maskC(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1072 |
OBCS_STEVENS_SAVE_TRACERS |
OBSsStevens(i,k,bi,bj) = salt(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1073 |
OBCS_STEVENS_SAVE_TRACERS |
& *maskC(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1085 |
OBCS_STEVENS_SAVE_TRACERS |
DO k = 1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
1086 |
OBCS_STEVENS_SAVE_TRACERS |
OBEtStevens(j,k,bi,bj) = theta(Iobc-1,j,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1087 |
OBCS_STEVENS_SAVE_TRACERS |
& *maskC(Iobc-1,j,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1088 |
OBCS_STEVENS_SAVE_TRACERS |
OBEsStevens(j,k,bi,bj) = salt(Iobc-1,j,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1089 |
OBCS_STEVENS_SAVE_TRACERS |
& *maskC(Iobc-1,j,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1101 |
OBCS_STEVENS_SAVE_TRACERS |
DO k = 1,Nr |
|
./pkg/obcs/obcs_calc_stevens.F |
1102 |
OBCS_STEVENS_SAVE_TRACERS |
OBWtStevens(j,k,bi,bj) = theta(Iobc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1103 |
OBCS_STEVENS_SAVE_TRACERS |
& *maskC(Iobc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1104 |
OBCS_STEVENS_SAVE_TRACERS |
OBWsStevens(j,k,bi,bj) = salt(Iobc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
1105 |
OBCS_STEVENS_SAVE_TRACERS |
& *maskC(Iobc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
642 |
OBCS_CALC_STEVENS |
& *drF(k)* _hFacW(I,J,K,bi,bj)*dyG(I,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
646 |
OBCS_CALC_STEVENS |
& *drF(k)* _hFacW(I+1,J,K,bi,bj)*dyG(I+1,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
720 |
OBCS_STEVENS_CALC_TRACER_EAST |
INTEGER i,j,k |
|
./pkg/obcs/obcs_calc_stevens.F |
801 |
OBCS_STEVENS_CALC_TRACER_WEST |
INTEGER i,j,k |
|
./pkg/obcs/obcs_calc_stevens.F |
883 |
OBCS_STEVENS_CALC_TRACER_NORTH |
INTEGER i,j,k |
|
./pkg/obcs/obcs_calc_stevens.F |
965 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
INTEGER i,j,k |
|
./pkg/obcs/obcs_copy_tracer.F |
111 |
OBCS_COPY_TRACER |
DO k = 1,kSiz |
|
./pkg/obcs/obcs_copy_tracer.F |
113 |
OBCS_COPY_TRACER |
trFld(i,j,k) = trFld(Iobc,j,k) |
|
./pkg/obcs/obcs_copy_tracer.F |
52 |
OBCS_COPY_TRACER |
INTEGER i, j, k |
|
./pkg/obcs/obcs_copy_tracer.F |
62 |
OBCS_COPY_TRACER |
DO k = 1,kSiz |
|
./pkg/obcs/obcs_copy_tracer.F |
64 |
OBCS_COPY_TRACER |
trFld(i,j,k) = trFld(i,Jobc,k) |
|
./pkg/obcs/obcs_copy_tracer.F |
78 |
OBCS_COPY_TRACER |
DO k = 1,kSiz |
|
./pkg/obcs/obcs_copy_tracer.F |
80 |
OBCS_COPY_TRACER |
trFld(i,j,k) = trFld(i,Jobc,k) |
|
./pkg/obcs/obcs_copy_tracer.F |
95 |
OBCS_COPY_TRACER |
DO k = 1,kSiz |
|
./pkg/obcs/obcs_copy_tracer.F |
97 |
OBCS_COPY_TRACER |
trFld(i,j,k) = trFld(Iobc,j,k) |
|
./pkg/obcs/obcs_copy_uv_n.F |
109 |
OBCS_COPY_UV_N |
DO k = 1, kSiz |
|
./pkg/obcs/obcs_copy_uv_n.F |
111 |
OBCS_COPY_UV_N |
uFld(i,j,k) = uFld(Iobc+1,j,k) |
|
./pkg/obcs/obcs_copy_uv_n.F |
50 |
OBCS_COPY_UV_N |
INTEGER i, j, k |
|
./pkg/obcs/obcs_copy_uv_n.F |
60 |
OBCS_COPY_UV_N |
DO k = 1, kSiz |
|
./pkg/obcs/obcs_copy_uv_n.F |
62 |
OBCS_COPY_UV_N |
vFld(i,j,k) = vFld(i,Jobc,k) |
|
./pkg/obcs/obcs_copy_uv_n.F |
76 |
OBCS_COPY_UV_N |
DO k = 1, kSiz |
|
./pkg/obcs/obcs_copy_uv_n.F |
78 |
OBCS_COPY_UV_N |
vFld(i,j,k) = vFld(i,Jobc+1,k) |
|
./pkg/obcs/obcs_copy_uv_n.F |
93 |
OBCS_COPY_UV_N |
DO k = 1, kSiz |
|
./pkg/obcs/obcs_copy_uv_n.F |
95 |
OBCS_COPY_UV_N |
uFld(i,j,k) = uFld(Iobc,j,k) |
|
./model/src/correction_step.F |
110 |
CORRECTION_STEP |
& *(phi_nh(i,j,k,bi,bj)-phi_nh(i-1,j,k,bi,bj)) |
|
./model/src/correction_step.F |
112 |
CORRECTION_STEP |
& )*_maskW(i,j,k,bi,bj) |
|
./model/src/correction_step.F |
123 |
CORRECTION_STEP |
& *(phi_nh(i,j,k,bi,bj)-phi_nh(i,j-1,k,bi,bj)) |
|
./model/src/correction_step.F |
125 |
CORRECTION_STEP |
& )*_maskS(i,j,k,bi,bj) |
|
./model/src/correction_step.F |
136 |
CORRECTION_STEP |
uVel(i,j,k,bi,bj)=( gU(i,j,k,bi,bj) |
|
./model/src/correction_step.F |
138 |
CORRECTION_STEP |
& )*_maskW(i,j,k,bi,bj) |
|
./model/src/correction_step.F |
148 |
CORRECTION_STEP |
vVel(i,j,k,bi,bj)=( gV(i,j,k,bi,bj) |
|
./model/src/correction_step.F |
150 |
CORRECTION_STEP |
& )*_maskS(i,j,k,bi,bj) |
|
./model/src/correction_step.F |
57 |
CORRECTION_STEP |
INTEGER k |
|
./model/src/correction_step.F |
64 |
CORRECTION_STEP |
DO k=1,Nr |
|
./model/src/correction_step.F |
76 |
CORRECTION_STEP |
& -psFac*dU_psFacX(i,j,k,bi,bj)*phiSurfX(i,j) |
|
./model/src/correction_step.F |
85 |
CORRECTION_STEP |
& -psFac*dV_psFacY(i,j,k,bi,bj)*phiSurfY(i,j) |
|
./model/src/correction_step.F |
95 |
CORRECTION_STEP |
& *recip_deepFacC(k)*recip_rhoFacC(k) |
|
./model/src/correction_step.F |
98 |
CORRECTION_STEP |
& *recip_deepFacC(k)*recip_rhoFacC(k) |
|
./pkg/obcs/obcs_diag_balance.F |
117 |
OBCS_DIAG_BALANCE |
n = OBW_connect(j,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
120 |
OBCS_DIAG_BALANCE |
tmpA = drF(k)*hFacW(iB,j,k,bi,bj)*dyG(iB,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
13 |
OBCS_DIAG_BALANCE |
I uTrans, vTrans, k, |
|
./pkg/obcs/obcs_diag_balance.F |
140 |
OBCS_DIAG_BALANCE |
n = OBN_connect(i,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
142 |
OBCS_DIAG_BALANCE |
tmpA = drF(k)*hFacS(i,jB,k,bi,bj)*dxG(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
162 |
OBCS_DIAG_BALANCE |
n = OBS_connect(i,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
165 |
OBCS_DIAG_BALANCE |
tmpA = drF(k)*hFacS(i,jB,k,bi,bj)*dxG(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
182 |
OBCS_DIAG_BALANCE |
DO n=1,OB_connectNumber(k) |
|
./pkg/obcs/obcs_diag_balance.F |
188 |
OBCS_DIAG_BALANCE |
& 'OBCS_DIAG_BALANCE (it,k,n=', myIter, k, n, |
|
./pkg/obcs/obcs_diag_balance.F |
208 |
OBCS_DIAG_BALANCE |
n = OBE_connect(j,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
214 |
OBCS_DIAG_BALANCE |
& + inFlow(n)*drF(k)*hFacW(iB,j,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
229 |
OBCS_DIAG_BALANCE |
n = OBW_connect(j,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
235 |
OBCS_DIAG_BALANCE |
& + inFlow(n)*drF(k)*hFacW(iB,j,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
249 |
OBCS_DIAG_BALANCE |
n = OBN_connect(i,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
255 |
OBCS_DIAG_BALANCE |
& + inFlow(n)*drF(k)*hFacS(i,jB,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
270 |
OBCS_DIAG_BALANCE |
n = OBS_connect(i,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
276 |
OBCS_DIAG_BALANCE |
& + inFlow(n)*drF(k)*hFacS(i,jB,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
46 |
OBCS_DIAG_BALANCE |
INTEGER k |
|
./pkg/obcs/obcs_diag_balance.F |
77 |
OBCS_DIAG_BALANCE |
DO n=1,OB_connectNumber(k) |
|
./pkg/obcs/obcs_diag_balance.F |
95 |
OBCS_DIAG_BALANCE |
n = OBE_connect(j,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
97 |
OBCS_DIAG_BALANCE |
tmpA = drF(k)*hFacW(iB,j,k,bi,bj)*dyG(iB,j,bi,bj) |
|
./pkg/obcs/obcs_fields_load.F |
693 |
OBCS_TIME_INTERP_XZ |
INTEGER bi,bj,i,k |
|
./pkg/obcs/obcs_fields_load.F |
697 |
OBCS_TIME_INTERP_XZ |
DO k = 1, Nr |
|
./pkg/obcs/obcs_fields_load.F |
699 |
OBCS_TIME_INTERP_XZ |
fld(i,k,bi,bj) = bWght*fld0(i,k,bi,bj) |
|
./pkg/obcs/obcs_fields_load.F |
700 |
OBCS_TIME_INTERP_XZ |
& +aWght*fld1(i,k,bi,bj) |
|
./pkg/obcs/obcs_fields_load.F |
744 |
OBCS_TIME_INTERP_YZ |
INTEGER bi,bj,j,k |
|
./pkg/obcs/obcs_fields_load.F |
748 |
OBCS_TIME_INTERP_YZ |
DO k = 1, Nr |
|
./pkg/obcs/obcs_fields_load.F |
750 |
OBCS_TIME_INTERP_YZ |
fld(j,k,bi,bj) = bWght*fld0(j,k,bi,bj) |
|
./pkg/obcs/obcs_fields_load.F |
751 |
OBCS_TIME_INTERP_YZ |
& +aWght*fld1(j,k,bi,bj) |
|
./pkg/obcs/obcs_init_variables.F |
100 |
OBCS_INIT_VARIABLES |
OBSv1(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
101 |
OBCS_INIT_VARIABLES |
OBSt1(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
102 |
OBCS_INIT_VARIABLES |
OBSs1(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
105 |
OBCS_INIT_VARIABLES |
OBSvStevens(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
106 |
OBCS_INIT_VARIABLES |
OBStStevens(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
107 |
OBCS_INIT_VARIABLES |
OBSsStevens(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
114 |
OBCS_INIT_VARIABLES |
OBEu(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
115 |
OBCS_INIT_VARIABLES |
OBEv(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
116 |
OBCS_INIT_VARIABLES |
OBEt(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
117 |
OBCS_INIT_VARIABLES |
OBEs(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
119 |
OBCS_INIT_VARIABLES |
OBEu0(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
120 |
OBCS_INIT_VARIABLES |
OBEv0(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
121 |
OBCS_INIT_VARIABLES |
OBEt0(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
122 |
OBCS_INIT_VARIABLES |
OBEs0(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
123 |
OBCS_INIT_VARIABLES |
OBEu1(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
124 |
OBCS_INIT_VARIABLES |
OBEv1(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
125 |
OBCS_INIT_VARIABLES |
OBEt1(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
126 |
OBCS_INIT_VARIABLES |
OBEs1(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
129 |
OBCS_INIT_VARIABLES |
OBEuStevens(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
130 |
OBCS_INIT_VARIABLES |
OBEtStevens(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
131 |
OBCS_INIT_VARIABLES |
OBEsStevens(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
136 |
OBCS_INIT_VARIABLES |
OBWu(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
137 |
OBCS_INIT_VARIABLES |
OBWv(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
138 |
OBCS_INIT_VARIABLES |
OBWt(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
139 |
OBCS_INIT_VARIABLES |
OBWs(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
141 |
OBCS_INIT_VARIABLES |
OBWu0(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
142 |
OBCS_INIT_VARIABLES |
OBWv0(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
143 |
OBCS_INIT_VARIABLES |
OBWt0(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
144 |
OBCS_INIT_VARIABLES |
OBWs0(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
145 |
OBCS_INIT_VARIABLES |
OBWu1(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
146 |
OBCS_INIT_VARIABLES |
OBWv1(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
147 |
OBCS_INIT_VARIABLES |
OBWt1(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
148 |
OBCS_INIT_VARIABLES |
OBWs1(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
151 |
OBCS_INIT_VARIABLES |
OBWuStevens(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
152 |
OBCS_INIT_VARIABLES |
OBWtStevens(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
153 |
OBCS_INIT_VARIABLES |
OBWsStevens(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
160 |
OBCS_INIT_VARIABLES |
DO k=1,Nr |
|
./pkg/obcs/obcs_init_variables.F |
162 |
OBCS_INIT_VARIABLES |
OBNw (i,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
163 |
OBCS_INIT_VARIABLES |
OBSw (i,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
165 |
OBCS_INIT_VARIABLES |
OBNw0(i,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
166 |
OBCS_INIT_VARIABLES |
OBSw0(i,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
167 |
OBCS_INIT_VARIABLES |
OBNw1(i,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
168 |
OBCS_INIT_VARIABLES |
OBSw1(i,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
172 |
OBCS_INIT_VARIABLES |
OBEw (j,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
173 |
OBCS_INIT_VARIABLES |
OBWw (j,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
175 |
OBCS_INIT_VARIABLES |
OBEw0(j,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
176 |
OBCS_INIT_VARIABLES |
OBWw0(j,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
177 |
OBCS_INIT_VARIABLES |
OBEw1(j,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
178 |
OBCS_INIT_VARIABLES |
OBWw1(j,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
301 |
OBCS_INIT_VARIABLES |
DO k=1,Nr |
|
./pkg/obcs/obcs_init_variables.F |
304 |
OBCS_INIT_VARIABLES |
OBNptr (i,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
306 |
OBCS_INIT_VARIABLES |
OBNptr0(i,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
307 |
OBCS_INIT_VARIABLES |
OBNptr1(i,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
312 |
OBCS_INIT_VARIABLES |
OBSptr (i,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
314 |
OBCS_INIT_VARIABLES |
OBSptr0(i,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
315 |
OBCS_INIT_VARIABLES |
OBSptr1(i,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
322 |
OBCS_INIT_VARIABLES |
OBEptr (j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
324 |
OBCS_INIT_VARIABLES |
OBEptr0(j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
325 |
OBCS_INIT_VARIABLES |
OBEptr1(j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
330 |
OBCS_INIT_VARIABLES |
OBWptr (j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
332 |
OBCS_INIT_VARIABLES |
OBWptr0(j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
333 |
OBCS_INIT_VARIABLES |
OBWptr1(j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
362 |
OBCS_INIT_VARIABLES |
DO k=1,tidalComponents |
|
./pkg/obcs/obcs_init_variables.F |
365 |
OBCS_INIT_VARIABLES |
OBNam (i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
366 |
OBCS_INIT_VARIABLES |
OBNph (i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
369 |
OBCS_INIT_VARIABLES |
OBSam (i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
370 |
OBCS_INIT_VARIABLES |
OBSph (i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
375 |
OBCS_INIT_VARIABLES |
OBEam (j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
376 |
OBCS_INIT_VARIABLES |
OBEph (j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
379 |
OBCS_INIT_VARIABLES |
OBWam (j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
380 |
OBCS_INIT_VARIABLES |
OBWph (j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
47 |
OBCS_INIT_VARIABLES |
INTEGER i, j, k |
|
./pkg/obcs/obcs_init_variables.F |
65 |
OBCS_INIT_VARIABLES |
DO k=1,Nr |
|
./pkg/obcs/obcs_init_variables.F |
68 |
OBCS_INIT_VARIABLES |
OBNu(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
69 |
OBCS_INIT_VARIABLES |
OBNv(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
70 |
OBCS_INIT_VARIABLES |
OBNt(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
71 |
OBCS_INIT_VARIABLES |
OBNs(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
73 |
OBCS_INIT_VARIABLES |
OBNu0(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
74 |
OBCS_INIT_VARIABLES |
OBNv0(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
75 |
OBCS_INIT_VARIABLES |
OBNt0(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
76 |
OBCS_INIT_VARIABLES |
OBNs0(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
77 |
OBCS_INIT_VARIABLES |
OBNu1(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
78 |
OBCS_INIT_VARIABLES |
OBNv1(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
79 |
OBCS_INIT_VARIABLES |
OBNt1(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
80 |
OBCS_INIT_VARIABLES |
OBNs1(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
83 |
OBCS_INIT_VARIABLES |
OBNvStevens(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
84 |
OBCS_INIT_VARIABLES |
OBNtStevens(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
85 |
OBCS_INIT_VARIABLES |
OBNsStevens(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
90 |
OBCS_INIT_VARIABLES |
OBSu(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
91 |
OBCS_INIT_VARIABLES |
OBSv(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
92 |
OBCS_INIT_VARIABLES |
OBSt(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
93 |
OBCS_INIT_VARIABLES |
OBSs(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
95 |
OBCS_INIT_VARIABLES |
OBSu0(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
96 |
OBCS_INIT_VARIABLES |
OBSv0(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
97 |
OBCS_INIT_VARIABLES |
OBSt0(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
98 |
OBCS_INIT_VARIABLES |
OBSs0(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
99 |
OBCS_INIT_VARIABLES |
OBSu1(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_mon_stats.F |
109 |
OBCS_MON_STATS_EW_RL |
DO k=1,kSize |
|
./pkg/obcs/obcs_mon_stats.F |
110 |
OBCS_MON_STATS_EW_RL |
km = MIN(k,mSize) |
|
./pkg/obcs/obcs_mon_stats.F |
122 |
OBCS_MON_STATS_EW_RL |
tmpV = arr(ii,j,k,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
123 |
OBCS_MON_STATS_EW_RL |
tmpA = arrDy(iB,j,bi,bj)*arrDr(k)*tmpMask |
|
./pkg/obcs/obcs_mon_stats.F |
164 |
OBCS_MON_STATS_EW_RL |
DO k=0,4 |
|
./pkg/obcs/obcs_mon_stats.F |
165 |
OBCS_MON_STATS_EW_RL |
arrStats(k,2) = 0. _d 0 |
|
./pkg/obcs/obcs_mon_stats.F |
181 |
OBCS_MON_STATS_EW_RL |
DO k=1,kSize |
|
./pkg/obcs/obcs_mon_stats.F |
182 |
OBCS_MON_STATS_EW_RL |
km = MIN(k,mSize) |
|
./pkg/obcs/obcs_mon_stats.F |
195 |
OBCS_MON_STATS_EW_RL |
tmpV = arr(ii,j,k,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
196 |
OBCS_MON_STATS_EW_RL |
tmpA = arrDy(iB,j,bi,bj)*arrDr(k)*tmpMask |
|
./pkg/obcs/obcs_mon_stats.F |
313 |
OBCS_MON_STATS_NS_RL |
INTEGER i, k, km |
|
./pkg/obcs/obcs_mon_stats.F |
324 |
OBCS_MON_STATS_NS_RL |
DO k=0,4 |
|
./pkg/obcs/obcs_mon_stats.F |
325 |
OBCS_MON_STATS_NS_RL |
arrStats(k,1) = 0. _d 0 |
|
./pkg/obcs/obcs_mon_stats.F |
341 |
OBCS_MON_STATS_NS_RL |
DO k=1,kSize |
|
./pkg/obcs/obcs_mon_stats.F |
342 |
OBCS_MON_STATS_NS_RL |
km = MIN(k,mSize) |
|
./pkg/obcs/obcs_mon_stats.F |
354 |
OBCS_MON_STATS_NS_RL |
tmpV = arr(i,jj,k,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
355 |
OBCS_MON_STATS_NS_RL |
tmpA = arrDx(i,jB,bi,bj)*arrDr(k)*tmpMask |
|
./pkg/obcs/obcs_mon_stats.F |
396 |
OBCS_MON_STATS_NS_RL |
DO k=0,4 |
|
./pkg/obcs/obcs_mon_stats.F |
397 |
OBCS_MON_STATS_NS_RL |
arrStats(k,2) = 0. _d 0 |
|
./pkg/obcs/obcs_mon_stats.F |
413 |
OBCS_MON_STATS_NS_RL |
DO k=1,kSize |
|
./pkg/obcs/obcs_mon_stats.F |
414 |
OBCS_MON_STATS_NS_RL |
km = MIN(k,mSize) |
|
./pkg/obcs/obcs_mon_stats.F |
427 |
OBCS_MON_STATS_NS_RL |
tmpV = arr(i,jj,k,bi,bj) |
|
./pkg/obcs/obcs_mon_stats.F |
428 |
OBCS_MON_STATS_NS_RL |
tmpA = arrDx(i,jB,bi,bj)*arrDr(k)*tmpMask |
|
./pkg/obcs/obcs_mon_stats.F |
81 |
OBCS_MON_STATS_EW_RL |
INTEGER j, k, km |
|
./pkg/obcs/obcs_mon_stats.F |
92 |
OBCS_MON_STATS_EW_RL |
DO k=0,4 |
|
./pkg/obcs/obcs_mon_stats.F |
93 |
OBCS_MON_STATS_EW_RL |
arrStats(k,1) = 0. _d 0 |
|
./model/src/cycle_ab_tracer.F |
45 |
CYCLE_AB_TRACER |
INTEGER i,j,k |
|
./model/src/cycle_ab_tracer.F |
49 |
CYCLE_AB_TRACER |
DO k=1,Nr |
|
./model/src/cycle_ab_tracer.F |
52 |
CYCLE_AB_TRACER |
tracNm1(i,j,k) = tracer(i,j,k) |
|
./model/src/cycle_ab_tracer.F |
53 |
CYCLE_AB_TRACER |
tracer(i,j,k) = tracNew(i,j,k) |
|
./pkg/obcs/obcs_save_uv_n.F |
101 |
OBCS_SAVE_UV_N |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_save_uv_n.F |
102 |
OBCS_SAVE_UV_N |
OBEuStevens(j,k,bi,bj) = uFld(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_save_uv_n.F |
103 |
OBCS_SAVE_UV_N |
& *_maskW(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_save_uv_n.F |
115 |
OBCS_SAVE_UV_N |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_save_uv_n.F |
116 |
OBCS_SAVE_UV_N |
OBWuStevens(j,k,bi,bj) = uFld(Iobc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_save_uv_n.F |
117 |
OBCS_SAVE_UV_N |
& *_maskW(Iobc+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_save_uv_n.F |
53 |
OBCS_SAVE_UV_N |
INTEGER k, kLo, kHi |
|
./pkg/obcs/obcs_save_uv_n.F |
72 |
OBCS_SAVE_UV_N |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_save_uv_n.F |
73 |
OBCS_SAVE_UV_N |
OBNvStevens(i,k,bi,bj) = vFld(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_save_uv_n.F |
74 |
OBCS_SAVE_UV_N |
& *_maskS(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_save_uv_n.F |
86 |
OBCS_SAVE_UV_N |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_save_uv_n.F |
87 |
OBCS_SAVE_UV_N |
OBSvStevens(i,k,bi,bj) = vFld(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_save_uv_n.F |
88 |
OBCS_SAVE_UV_N |
& *_maskS(i,Jobc+1,k,bi,bj) |
|
./pkg/obcs/obcs_set_connect.F |
110 |
OBCS_SET_CONNECT |
DO k=1,Nr |
|
./pkg/obcs/obcs_set_connect.F |
112 |
OBCS_SET_CONNECT |
OBS_connect(i,k,bi,bj) = NINT( tmpXZ(i,k,bi,bj) ) |
|
./pkg/obcs/obcs_set_connect.F |
127 |
OBCS_SET_CONNECT |
DO k=1,Nr |
|
./pkg/obcs/obcs_set_connect.F |
129 |
OBCS_SET_CONNECT |
OBE_connect(j,k,bi,bj) = NINT( tmpYZ(j,k,bi,bj) ) |
|
./pkg/obcs/obcs_set_connect.F |
144 |
OBCS_SET_CONNECT |
DO k=1,Nr |
|
./pkg/obcs/obcs_set_connect.F |
146 |
OBCS_SET_CONNECT |
OBW_connect(j,k,bi,bj) = NINT( tmpYZ(j,k,bi,bj) ) |
|
./pkg/obcs/obcs_set_connect.F |
159 |
OBCS_SET_CONNECT |
DO k=1,Nr |
|
./pkg/obcs/obcs_set_connect.F |
161 |
OBCS_SET_CONNECT |
IF (OB_Jn(i,bi,bj).EQ.OB_indexNone) OBN_connect(i,k,bi,bj)=0 |
|
./pkg/obcs/obcs_set_connect.F |
162 |
OBCS_SET_CONNECT |
IF (OB_Js(i,bi,bj).EQ.OB_indexNone) OBS_connect(i,k,bi,bj)=0 |
|
./pkg/obcs/obcs_set_connect.F |
165 |
OBCS_SET_CONNECT |
IF (OB_Ie(j,bi,bj).EQ.OB_indexNone) OBE_connect(j,k,bi,bj)=0 |
|
./pkg/obcs/obcs_set_connect.F |
166 |
OBCS_SET_CONNECT |
IF (OB_Iw(j,bi,bj).EQ.OB_indexNone) OBW_connect(j,k,bi,bj)=0 |
|
./pkg/obcs/obcs_set_connect.F |
174 |
OBCS_SET_CONNECT |
DO k=1,Nr |
|
./pkg/obcs/obcs_set_connect.F |
182 |
OBCS_SET_CONNECT |
tmpConnect(i) = OBN_connect(i,k,bi,bj) |
|
./pkg/obcs/obcs_set_connect.F |
183 |
OBCS_SET_CONNECT |
tmpConnect(sNx+i) = OBS_connect(i,k,bi,bj) |
|
./pkg/obcs/obcs_set_connect.F |
186 |
OBCS_SET_CONNECT |
tmpConnect(sNx*2+j) = OBW_connect(j,k,bi,bj) |
|
./pkg/obcs/obcs_set_connect.F |
187 |
OBCS_SET_CONNECT |
tmpConnect(sNx*2+sNy+j) = OBE_connect(j,k,bi,bj) |
|
./pkg/obcs/obcs_set_connect.F |
213 |
OBCS_SET_CONNECT |
& 'k=', k, ' numLocal(', bi,',',bj,')=', numLocal(bi,bj), |
|
./pkg/obcs/obcs_set_connect.F |
267 |
OBCS_SET_CONNECT |
WRITE(msgBuf,'(A,I4,2(A,I10))') 'OBCS_SET_CONNECT: @ k=', k, |
|
./pkg/obcs/obcs_set_connect.F |
275 |
OBCS_SET_CONNECT |
WRITE(msgBuf,'(A,I4,2(A,I10))') 'OBCS_SET_CONNECT: @ k=', k, |
|
./pkg/obcs/obcs_set_connect.F |
295 |
OBCS_SET_CONNECT |
tmpConnect(i) = OBN_connect(i,k,bi,bj) |
|
./pkg/obcs/obcs_set_connect.F |
296 |
OBCS_SET_CONNECT |
tmpConnect(sNx+i) = OBS_connect(i,k,bi,bj) |
|
./pkg/obcs/obcs_set_connect.F |
299 |
OBCS_SET_CONNECT |
tmpConnect(sNx*2+j) = OBW_connect(j,k,bi,bj) |
|
./pkg/obcs/obcs_set_connect.F |
300 |
OBCS_SET_CONNECT |
tmpConnect(sNx*2+sNy+j) = OBE_connect(j,k,bi,bj) |
|
./pkg/obcs/obcs_set_connect.F |
312 |
OBCS_SET_CONNECT |
OBN_connect(i,k,bi,bj) = tmpConnect(i) |
|
./pkg/obcs/obcs_set_connect.F |
313 |
OBCS_SET_CONNECT |
OBS_connect(i,k,bi,bj) = tmpConnect(sNx+i) |
|
./pkg/obcs/obcs_set_connect.F |
316 |
OBCS_SET_CONNECT |
OBW_connect(j,k,bi,bj) = tmpConnect(sNx*2+j) |
|
./pkg/obcs/obcs_set_connect.F |
317 |
OBCS_SET_CONNECT |
OBE_connect(j,k,bi,bj) = tmpConnect(sNx*2+sNy+j) |
|
./pkg/obcs/obcs_set_connect.F |
325 |
OBCS_SET_CONNECT |
OB_connectNumber(k) = numConnect |
|
./pkg/obcs/obcs_set_connect.F |
42 |
OBCS_SET_CONNECT |
INTEGER i, j, k |
|
./pkg/obcs/obcs_set_connect.F |
68 |
OBCS_SET_CONNECT |
DO k=1,Nr |
|
./pkg/obcs/obcs_set_connect.F |
70 |
OBCS_SET_CONNECT |
OBN_connect(i,k,bi,bj) = idN |
|
./pkg/obcs/obcs_set_connect.F |
71 |
OBCS_SET_CONNECT |
OBS_connect(i,k,bi,bj) = idS |
|
./pkg/obcs/obcs_set_connect.F |
74 |
OBCS_SET_CONNECT |
OBE_connect(j,k,bi,bj) = idE |
|
./pkg/obcs/obcs_set_connect.F |
75 |
OBCS_SET_CONNECT |
OBW_connect(j,k,bi,bj) = idW |
|
./pkg/obcs/obcs_set_connect.F |
93 |
OBCS_SET_CONNECT |
DO k=1,Nr |
|
./pkg/obcs/obcs_set_connect.F |
95 |
OBCS_SET_CONNECT |
OBN_connect(i,k,bi,bj) = NINT( tmpXZ(i,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
104 |
OBCS_SPONGE_U |
urelax= OBSu(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
107 |
OBCS_SPONGE_U |
& float(spongeThickness-jsl)*OBSu(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
108 |
OBCS_SPONGE_U |
& + float(jsl)*uVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
121 |
OBCS_SPONGE_U |
& - _maskW(i,j,k,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
122 |
OBCS_SPONGE_U |
& * ( uVel(i,j,k,bi,bj) - urelax ) |
|
./pkg/obcs/obcs_sponge.F |
139 |
OBCS_SPONGE_U |
urelax=OBEu(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
142 |
OBCS_SPONGE_U |
& float(spongeThickness-isl)*OBEu(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
143 |
OBCS_SPONGE_U |
& + float(isl)*uVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
156 |
OBCS_SPONGE_U |
& - _maskW(i,j,k,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
157 |
OBCS_SPONGE_U |
& * ( uVel(i,j,k,bi,bj) - urelax ) |
|
./pkg/obcs/obcs_sponge.F |
174 |
OBCS_SPONGE_U |
urelax= OBWu(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
177 |
OBCS_SPONGE_U |
& float(spongeThickness-isl)*OBWu(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
178 |
OBCS_SPONGE_U |
& + float(isl)*uVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
18 |
OBCS_SPONGE_U |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/obcs/obcs_sponge.F |
191 |
OBCS_SPONGE_U |
& - _maskW(i,j,k,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
192 |
OBCS_SPONGE_U |
& * ( uVel(i,j,k,bi,bj) - urelax ) |
|
./pkg/obcs/obcs_sponge.F |
212 |
OBCS_SPONGE_V |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/obcs/obcs_sponge.F |
240 |
OBCS_SPONGE_V |
INTEGER k, bi, bj |
|
./pkg/obcs/obcs_sponge.F |
263 |
OBCS_SPONGE_V |
vrelax= OBNv(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
266 |
OBCS_SPONGE_V |
& float(spongeThickness-jsl)*OBNv(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
267 |
OBCS_SPONGE_V |
& + float(jsl)*vVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
280 |
OBCS_SPONGE_V |
& - _maskS(i,j,k,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
281 |
OBCS_SPONGE_V |
& * ( vVel(i,j,k,bi,bj) - vrelax ) |
|
./pkg/obcs/obcs_sponge.F |
298 |
OBCS_SPONGE_V |
vrelax= OBSv(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
301 |
OBCS_SPONGE_V |
& float(spongeThickness-jsl)*OBSv(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
302 |
OBCS_SPONGE_V |
& + float(jsl)*vVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
315 |
OBCS_SPONGE_V |
& - _maskS(i,j,k,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
316 |
OBCS_SPONGE_V |
& * ( vVel(i,j,k,bi,bj) - vrelax ) |
|
./pkg/obcs/obcs_sponge.F |
333 |
OBCS_SPONGE_V |
vrelax= OBEv(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
336 |
OBCS_SPONGE_V |
& float(spongeThickness-isl)*OBEv(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
337 |
OBCS_SPONGE_V |
& + float(isl)*vVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
350 |
OBCS_SPONGE_V |
& - _maskS(i,j,k,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
351 |
OBCS_SPONGE_V |
& * ( vVel(i,j,k,bi,bj) - vrelax ) |
|
./pkg/obcs/obcs_sponge.F |
368 |
OBCS_SPONGE_V |
vrelax = OBWv(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
371 |
OBCS_SPONGE_V |
& float(spongeThickness-isl)*OBWv(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
372 |
OBCS_SPONGE_V |
& + float(isl)*vVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
385 |
OBCS_SPONGE_V |
& - _maskS(i,j,k,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
386 |
OBCS_SPONGE_V |
& * ( vVel(i,j,k,bi,bj) - vrelax ) |
|
./pkg/obcs/obcs_sponge.F |
406 |
OBCS_SPONGE_T |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/obcs/obcs_sponge.F |
438 |
OBCS_SPONGE_T |
INTEGER k, bi, bj |
|
./pkg/obcs/obcs_sponge.F |
463 |
OBCS_SPONGE_T |
kkey = (ikey-1)*Nr + k |
|
./pkg/obcs/obcs_sponge.F |
46 |
OBCS_SPONGE_U |
INTEGER k, bi, bj |
|
./pkg/obcs/obcs_sponge.F |
477 |
OBCS_SPONGE_T |
IF (OBNt(i,k,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
479 |
OBCS_SPONGE_T |
trelax = OBNt(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
482 |
OBCS_SPONGE_T |
& float(spongeThickness-jsl)*OBNt(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
483 |
OBCS_SPONGE_T |
& + float(jsl)*theta(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
496 |
OBCS_SPONGE_T |
& - maskC(i,j,k,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
497 |
OBCS_SPONGE_T |
& * ( theta(i,j,k,bi,bj) - trelax ) |
|
./pkg/obcs/obcs_sponge.F |
517 |
OBCS_SPONGE_T |
IF (OBSt(i,k,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
519 |
OBCS_SPONGE_T |
trelax= OBSt(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
522 |
OBCS_SPONGE_T |
& float(spongeThickness-jsl)*OBSt(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
523 |
OBCS_SPONGE_T |
& + float(jsl)*theta(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
536 |
OBCS_SPONGE_T |
& - maskC(i,j,k,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
537 |
OBCS_SPONGE_T |
& * ( theta(i,j,k,bi,bj) - trelax ) |
|
./pkg/obcs/obcs_sponge.F |
557 |
OBCS_SPONGE_T |
IF (OBEt(j,k,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
559 |
OBCS_SPONGE_T |
trelax = OBEt(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
562 |
OBCS_SPONGE_T |
& float(spongeThickness-isl)*OBEt(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
563 |
OBCS_SPONGE_T |
& + float(isl)*theta(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
576 |
OBCS_SPONGE_T |
& - maskC(i,j,k,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
577 |
OBCS_SPONGE_T |
& * ( theta(i,j,k,bi,bj) - trelax ) |
|
./pkg/obcs/obcs_sponge.F |
597 |
OBCS_SPONGE_T |
IF (OBWt(j,k,bi,bj).ne. 0.d0) THEN |
|
./pkg/obcs/obcs_sponge.F |
599 |
OBCS_SPONGE_T |
trelax= OBWt(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
602 |
OBCS_SPONGE_T |
& float(spongeThickness-isl)*OBWt(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
603 |
OBCS_SPONGE_T |
& + float(isl)*theta(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
616 |
OBCS_SPONGE_T |
& - maskC(i,j,k,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
617 |
OBCS_SPONGE_T |
& * ( theta(i,j,k,bi,bj) - trelax ) |
|
./pkg/obcs/obcs_sponge.F |
638 |
OBCS_SPONGE_S |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/obcs/obcs_sponge.F |
670 |
OBCS_SPONGE_S |
INTEGER k, bi, bj |
|
./pkg/obcs/obcs_sponge.F |
695 |
OBCS_SPONGE_S |
kkey = (ikey-1)*Nr + k |
|
./pkg/obcs/obcs_sponge.F |
69 |
OBCS_SPONGE_U |
urelax = OBNu(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
709 |
OBCS_SPONGE_S |
IF (OBNs(i,k,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
711 |
OBCS_SPONGE_S |
srelax= OBNs(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
714 |
OBCS_SPONGE_S |
& float(spongeThickness-jsl)*OBNs(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
715 |
OBCS_SPONGE_S |
& + float(jsl)*salt(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
728 |
OBCS_SPONGE_S |
& - maskC(i,j,k,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
729 |
OBCS_SPONGE_S |
& * ( salt(i,j,k,bi,bj) - srelax ) |
|
./pkg/obcs/obcs_sponge.F |
72 |
OBCS_SPONGE_U |
& float(spongeThickness-jsl)*OBNu(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
73 |
OBCS_SPONGE_U |
& + float(jsl)*uVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
749 |
OBCS_SPONGE_S |
IF (OBSs(i,k,bi,bj).ne. 0.d0) THEN |
|
./pkg/obcs/obcs_sponge.F |
751 |
OBCS_SPONGE_S |
srelax= OBSs(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
754 |
OBCS_SPONGE_S |
& float(spongeThickness-jsl)*OBSs(i,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
755 |
OBCS_SPONGE_S |
& + float(jsl)*salt(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
768 |
OBCS_SPONGE_S |
& - maskC(i,j,k,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
769 |
OBCS_SPONGE_S |
& * ( salt(i,j,k,bi,bj) - srelax ) |
|
./pkg/obcs/obcs_sponge.F |
789 |
OBCS_SPONGE_S |
IF (OBEs(j,k,bi,bj).ne. 0.d0) THEN |
|
./pkg/obcs/obcs_sponge.F |
791 |
OBCS_SPONGE_S |
srelax= OBEs(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
794 |
OBCS_SPONGE_S |
& float(spongeThickness-isl)*OBEs(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
795 |
OBCS_SPONGE_S |
& + float(isl)*salt(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
808 |
OBCS_SPONGE_S |
& - maskC(i,j,k,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
809 |
OBCS_SPONGE_S |
& * ( salt(i,j,k,bi,bj) - srelax ) |
|
./pkg/obcs/obcs_sponge.F |
829 |
OBCS_SPONGE_S |
IF (OBWs(j,k,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
831 |
OBCS_SPONGE_S |
srelax= OBWs(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
834 |
OBCS_SPONGE_S |
& float(spongeThickness-isl)*OBWs(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
835 |
OBCS_SPONGE_S |
& + float(isl)*salt(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
848 |
OBCS_SPONGE_S |
& - maskC(i,j,k,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
849 |
OBCS_SPONGE_S |
& * ( salt(i,j,k,bi,bj) - srelax ) |
|
./pkg/obcs/obcs_sponge.F |
86 |
OBCS_SPONGE_U |
& - _maskW(i,j,k,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
87 |
OBCS_SPONGE_U |
& * ( uVel(i,j,k,bi,bj) - urelax ) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
12 |
OBCS_U1_ADV_TRACER |
I trIdentity, bi, bj, k, |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
51 |
OBCS_U1_ADV_TRACER |
INTEGER bi, bj, k |
|
./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 |
50 |
CYCLE_TRACER |
tracer(i,j,k) = gTracer(i,j,k) |
|
./model/src/diags_phi_hyd.F |
100 |
DIAGS_PHI_HYD |
dPhiRef =( Ro_surf(i,j,bi,bj)-rC(k) )*recip_rhoConst |
|
./model/src/diags_phi_hyd.F |
101 |
DIAGS_PHI_HYD |
totPhiHyd(i,j,k,bi,bj) = |
|
./model/src/diags_phi_hyd.F |
112 |
DIAGS_PHI_HYD |
dPhiRef =( Ro_surf(i,j,bi,bj)-rC(k) )*gravity |
|
./model/src/diags_phi_hyd.F |
113 |
DIAGS_PHI_HYD |
totPhiHyd(i,j,k,bi,bj) = |
|
./model/src/diags_phi_hyd.F |
11 |
DIAGS_PHI_HYD |
I k, bi, bj, iMin,iMax, jMin,jMax, |
|
./model/src/diags_phi_hyd.F |
125 |
DIAGS_PHI_HYD |
CALL DIAGNOSTICS_FILL(phiHydCstR,'PHIHYDcR',k,1,2,bi,bj,myThid) |
|
./model/src/diags_phi_hyd.F |
44 |
DIAGS_PHI_HYD |
INTEGER k, bi,bj, iMin,iMax, jMin,jMax |
|
./model/src/diags_phi_hyd.F |
65 |
DIAGS_PHI_HYD |
totPhiHyd(i,j,k,bi,bj) = phiHydC(i,j) |
|
./model/src/diags_phi_hyd.F |
69 |
DIAGS_PHI_HYD |
phiHydCstR(i,j) = totPhiHyd(i,j,k,bi,bj) |
|
./model/src/diags_phi_hyd.F |
84 |
DIAGS_PHI_HYD |
dPhiRef = phiRef(2*k) - gravity*topoZ(i,j,bi,bj) |
|
./model/src/diags_phi_hyd.F |
86 |
DIAGS_PHI_HYD |
totPhiHyd(i,j,k,bi,bj) = |
|
./model/src/diags_phi_rlow.F |
101 |
DIAGS_PHI_RLOW |
IF (k.GT.1 ) ratioRm = halfRL*drC(k)/(rF(k)-rC(k)) |
|
./model/src/diags_phi_rlow.F |
102 |
DIAGS_PHI_RLOW |
IF (k.LT.Nr) ratioRp = halfRL*drC(k+1)/(rC(k)-rF(k+1)) |
|
./model/src/diags_phi_rlow.F |
103 |
DIAGS_PHI_RLOW |
ratioRm = ratioRm*gravFacF(k) |
|
./model/src/diags_phi_rlow.F |
104 |
DIAGS_PHI_RLOW |
ratioRp = ratioRp*gravFacF(k+1) |
|
./model/src/diags_phi_rlow.F |
108 |
DIAGS_PHI_RLOW |
IF ( k .EQ. kLowC(i,j,bi,bj) ) THEN |
|
./model/src/diags_phi_rlow.F |
109 |
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 |
124 |
DIAGS_PHI_RLOW |
IF ( k.EQ.Nr ) THEN |
|
./model/src/diags_phi_rlow.F |
146 |
DIAGS_PHI_RLOW |
dPhiRef = phiRef(2*k+1) - gravity*topoZ(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
47 |
DIAGS_PHI_RLOW |
INTEGER k, bi,bj, iMin,iMax, jMin,jMax |
|
./model/src/diags_phi_rlow.F |
75 |
DIAGS_PHI_RLOW |
IF ( k.EQ.1 ) THEN |
|
./model/src/diags_phi_rlow.F |
88 |
DIAGS_PHI_RLOW |
IF ( k .EQ. kLowC(i,j,bi,bj) ) THEN |
|
./model/src/diags_phi_rlow.F |
89 |
DIAGS_PHI_RLOW |
ddRloc = rC(k)-R_low(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
91 |
DIAGS_PHI_RLOW |
& + ddRloc*gravFacC(k)*gravity*alphRho(i,j)*recip_rhoConst |
|
./pkg/offline/offline_fields_load.F |
366 |
OFFLINE_FIELDS_LOAD |
DO k=1,Nr |
|
./pkg/offline/offline_fields_load.F |
369 |
OFFLINE_FIELDS_LOAD |
uVel(i,j,k,bi,bj) = bWght*uvel0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
370 |
OFFLINE_FIELDS_LOAD |
& + aWght*uvel1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
371 |
OFFLINE_FIELDS_LOAD |
vVel(i,j,k,bi,bj) = bWght*vvel0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
372 |
OFFLINE_FIELDS_LOAD |
& + aWght*vvel1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
373 |
OFFLINE_FIELDS_LOAD |
wVel(i,j,k,bi,bj) = bWght*wvel0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
374 |
OFFLINE_FIELDS_LOAD |
& + aWght*wvel1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
375 |
OFFLINE_FIELDS_LOAD |
theta(i,j,k,bi,bj)= bWght*tave0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
376 |
OFFLINE_FIELDS_LOAD |
& + aWght*tave1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
377 |
OFFLINE_FIELDS_LOAD |
salt(i,j,k,bi,bj) = bWght*save0(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
378 |
OFFLINE_FIELDS_LOAD |
& + aWght*save1(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
384 |
OFFLINE_FIELDS_LOAD |
DO k=1,Nr |
|
./pkg/offline/offline_fields_load.F |
387 |
OFFLINE_FIELDS_LOAD |
uVel(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
389 |
OFFLINE_FIELDS_LOAD |
vVel(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) |
|
./pkg/offline/offline_fields_load.F |
73 |
OFFLINE_FIELDS_LOAD |
INTEGER bi,bj,i,j,k |
|
./pkg/offline/offline_get_diffus.F |
104 |
OFFLINE_GET_DIFFUS |
DO k=1,Nr |
|
./pkg/offline/offline_get_diffus.F |
107 |
OFFLINE_GET_DIFFUS |
Kwx(i,j,k,bi,bj) = bWght*gmkx0(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
108 |
OFFLINE_GET_DIFFUS |
& + aWght*gmkx1(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
109 |
OFFLINE_GET_DIFFUS |
Kwy(i,j,k,bi,bj) = bWght*gmky0(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
110 |
OFFLINE_GET_DIFFUS |
& + aWght*gmky1(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
111 |
OFFLINE_GET_DIFFUS |
Kwz(i,j,k,bi,bj) = bWght*gmkz0(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
112 |
OFFLINE_GET_DIFFUS |
& + aWght*gmkz1(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
120 |
OFFLINE_GET_DIFFUS |
DO k=1,Nr |
|
./pkg/offline/offline_get_diffus.F |
123 |
OFFLINE_GET_DIFFUS |
KPPdiffKzS(i,j,k,bi,bj) = bWght*kdfs0(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
124 |
OFFLINE_GET_DIFFUS |
& + aWght*kdfs1(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
127 |
OFFLINE_GET_DIFFUS |
KPPghat(i,j,k,bi,bj) = bWght*kght0(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
128 |
OFFLINE_GET_DIFFUS |
& + aWght*kght1(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
54 |
OFFLINE_GET_DIFFUS |
INTEGER i,j,k |
|
./pkg/offline/offline_get_diffus.F |
83 |
OFFLINE_GET_DIFFUS |
DO k=1,Nr |
|
./pkg/offline/offline_get_diffus.F |
86 |
OFFLINE_GET_DIFFUS |
wVel(i,j,k,bi,bj) = bWght*wvel0(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
87 |
OFFLINE_GET_DIFFUS |
& + aWght*wvel1(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
93 |
OFFLINE_GET_DIFFUS |
DO k=1,Nr |
|
./pkg/offline/offline_get_diffus.F |
96 |
OFFLINE_GET_DIFFUS |
IVDConvCount(i,j,k,bi,bj) = bWght*conv0(i,j,k,bi,bj) |
|
./pkg/offline/offline_get_diffus.F |
97 |
OFFLINE_GET_DIFFUS |
& + aWght*conv1(i,j,k,bi,bj) |
|
./pkg/offline/offline_init_varia.F |
27 |
OFFLINE_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/offline/offline_init_varia.F |
34 |
OFFLINE_INIT_VARIA |
DO k=1,Nr |
|
./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 |
uvel1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
39 |
OFFLINE_INIT_VARIA |
vvel0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
40 |
OFFLINE_INIT_VARIA |
vvel1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
41 |
OFFLINE_INIT_VARIA |
wvel0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
42 |
OFFLINE_INIT_VARIA |
wvel1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
43 |
OFFLINE_INIT_VARIA |
tave0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
44 |
OFFLINE_INIT_VARIA |
tave1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
45 |
OFFLINE_INIT_VARIA |
save0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
46 |
OFFLINE_INIT_VARIA |
save1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
47 |
OFFLINE_INIT_VARIA |
gmkx0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
48 |
OFFLINE_INIT_VARIA |
gmkx1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
49 |
OFFLINE_INIT_VARIA |
gmky0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
50 |
OFFLINE_INIT_VARIA |
gmky1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
51 |
OFFLINE_INIT_VARIA |
gmkz0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
52 |
OFFLINE_INIT_VARIA |
gmkz1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
53 |
OFFLINE_INIT_VARIA |
conv0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
54 |
OFFLINE_INIT_VARIA |
conv1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
55 |
OFFLINE_INIT_VARIA |
kdfs0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
56 |
OFFLINE_INIT_VARIA |
kdfs1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
57 |
OFFLINE_INIT_VARIA |
kght0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
58 |
OFFLINE_INIT_VARIA |
kght1(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/diags_rho.F |
151 |
DIAGS_RHO_G |
INTEGER k, bi,bj |
|
./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) = uFld(i,j,k,bi,bj)*_hFacW(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
170 |
DIAGS_RHO_G |
& *(rho3d(i-1,j,k,bi,bj)+rho3d(i,j,k,bi,bj)) |
|
./model/src/diags_rho.F |
174 |
DIAGS_RHO_G |
CALL DIAGNOSTICS_FILL(tmpFld,'URHOMASS',k,1,2,bi,bj,myThid) |
|
./model/src/diags_rho.F |
17 |
DIAGS_RHO_L |
I diagRho, k, bi, bj, |
|
./model/src/diags_rho.F |
183 |
DIAGS_RHO_G |
DO k=1,Nr |
|
./model/src/diags_rho.F |
186 |
DIAGS_RHO_G |
tmpFld(i,j) = vFld(i,j,k,bi,bj)*_hFacS(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
187 |
DIAGS_RHO_G |
& *(rho3d(i,j-1,k,bi,bj)+rho3d(i,j,k,bi,bj)) |
|
./model/src/diags_rho.F |
191 |
DIAGS_RHO_G |
CALL DIAGNOSTICS_FILL(tmpFld,'VRHOMASS',k,1,2,bi,bj,myThid) |
|
./model/src/diags_rho.F |
200 |
DIAGS_RHO_G |
DO k=1,Nr |
|
./model/src/diags_rho.F |
201 |
DIAGS_RHO_G |
IF ( k.EQ.1 ) THEN |
|
./model/src/diags_rho.F |
204 |
DIAGS_RHO_G |
tmpFld(i,j) = wFld(i,j,k,bi,bj)*rho3d(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
210 |
DIAGS_RHO_G |
tmpFld(i,j) = wFld(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
211 |
DIAGS_RHO_G |
& *(rho3d(i,j,k-1,bi,bj)+rho3d(i,j,k,bi,bj)) |
|
./model/src/diags_rho.F |
216 |
DIAGS_RHO_G |
CALL DIAGNOSTICS_FILL(tmpFld,'WRHOMASS',k,1,2,bi,bj,myThid) |
|
./model/src/diags_rho.F |
49 |
DIAGS_RHO_L |
INTEGER k, bi, bj |
|
./model/src/diags_rho.F |
68 |
DIAGS_RHO_L |
IF ( k.GE.2 .AND. MOD(diagRho,8).GE.4 ) THEN |
|
./model/src/diags_rho.F |
73 |
DIAGS_RHO_L |
tmpFld(i,j) = wFld(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
74 |
DIAGS_RHO_L |
& *( rho3d(i,j,k) - rhoKm1(i,j) )*rkSign |
|
./model/src/diags_rho.F |
77 |
DIAGS_RHO_L |
CALL DIAGNOSTICS_FILL(tmpFld,'WdRHO_P ',k,1,2,bi,bj,myThid) |
|
./model/src/diags_rho.F |
78 |
DIAGS_RHO_L |
IF ( k.EQ.2 ) CALL DIAGNOSTICS_COUNT('WdRHO_P ',bi,bj,myThid) |
|
./model/src/diags_rho.F |
81 |
DIAGS_RHO_L |
IF ( k.GE.2 .AND. diagRho.GE.8 ) THEN |
|
./model/src/diags_rho.F |
86 |
DIAGS_RHO_L |
tmpFld(i,j) = wFld(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
87 |
DIAGS_RHO_L |
& *( rhoKm1(i,j) - rho3d(i,j,k-1) )*rkSign |
|
./model/src/diags_rho.F |
90 |
DIAGS_RHO_L |
CALL DIAGNOSTICS_FILL(tmpFld,'WdRHOdP ',k,1,2,bi,bj,myThid) |
|
./model/src/diags_rho.F |
91 |
DIAGS_RHO_L |
IF ( k.EQ.2 ) CALL DIAGNOSTICS_COUNT('WdRHOdP ',bi,bj,myThid) |
|
./pkg/openad/externalDummies.F |
221 |
STREAMICE_SMOOTH_ADJOINT_FIELD |
INTEGER i, j, bi, bj, k |
|
./pkg/openad/externalDummies.F |
233 |
STREAMICE_SMOOTH_ADJOINT_FIELD |
k=0 |
|
./model/src/do_atmospheric_phys.F |
106 |
DO_ATMOSPHERIC_PHYS |
DO k=1,Nr |
|
./model/src/do_atmospheric_phys.F |
109 |
DO_ATMOSPHERIC_PHYS |
rhoInSitu(i,j,k,bi,bj) = 0. |
|
./model/src/do_atmospheric_phys.F |
65 |
DO_ATMOSPHERIC_PHYS |
INTEGER i, j, k |
|
./model/src/do_atmospheric_phys.F |
82 |
DO_ATMOSPHERIC_PHYS |
DO k=1,Nr |
|
./model/src/do_atmospheric_phys.F |
88 |
DO_ATMOSPHERIC_PHYS |
thetaRef = tRef(k) |
|
./model/src/do_atmospheric_phys.F |
92 |
DO_ATMOSPHERIC_PHYS |
rhoInSitu(i,j,k,bi,bj) = |
|
./model/src/do_atmospheric_phys.F |
93 |
DO_ATMOSPHERIC_PHYS |
& ( theta(i,j,k,bi,bj) |
|
./model/src/do_atmospheric_phys.F |
94 |
DO_ATMOSPHERIC_PHYS |
& *( salt(i,j,k,bi,bj)*atm_Rq + oneRL ) |
|
./model/src/do_atmospheric_phys.F |
95 |
DO_ATMOSPHERIC_PHYS |
& - thetaRef )*maskC(i,j,k,bi,bj) |
|
./pkg/opps/opps_calc.F |
132 |
OPPS_CALC |
DO k=1,KMax-1 |
|
./pkg/opps/opps_calc.F |
137 |
OPPS_CALC |
Pd(k,ktr) = tracerEnv(k,ktr) |
|
./pkg/opps/opps_calc.F |
139 |
OPPS_CALC |
Dd(k)=STATE1(Pd(k,2),Pd(k,1),i,j,k,bi,bj,myThid) |
|
./pkg/opps/opps_calc.F |
140 |
OPPS_CALC |
De(k)=Dd(k) |
|
./pkg/opps/opps_calc.F |
144 |
OPPS_CALC |
Wd(k)= - .5*(wVel(K)+wVel(K+1)) |
|
./pkg/opps/opps_calc.F |
160 |
OPPS_CALC |
wsqr=Wd(k)*Wd(k) |
|
./pkg/opps/opps_calc.F |
161 |
OPPS_CALC |
PlumeEntrainment(k) = 0.0 |
|
./pkg/opps/opps_calc.F |
166 |
OPPS_CALC |
& 'S/R OPPS_CALC: doing old lowerparcel', k |
|
./pkg/opps/opps_calc.F |
172 |
OPPS_CALC |
StartingFlux=radius*radius*Wd(k)*Dd(k) |
|
./pkg/opps/opps_calc.F |
175 |
OPPS_CALC |
dz2=DrF(k) |
|
./pkg/opps/opps_calc.F |
176 |
OPPS_CALC |
DO k2=k,KMax-1 |
|
./pkg/opps/opps_calc.F |
189 |
OPPS_CALC |
IF (D2-D1 .LT. STABILITY_THRESHOLD.or.k2.ne.k) THEN |
|
./pkg/opps/opps_calc.F |
212 |
OPPS_CALC |
if(maxdepth.eq.k) goto 1000 |
|
./pkg/opps/opps_calc.F |
273 |
OPPS_CALC |
if(maxdepth.eq.k) goto 1000 |
|
./pkg/opps/opps_calc.F |
284 |
OPPS_CALC |
if(maxdepth.eq.k) goto 1000 |
|
./pkg/opps/opps_calc.F |
295 |
OPPS_CALC |
Ad(k)=FRACTIONAL_AREA |
|
./pkg/opps/opps_calc.F |
304 |
OPPS_CALC |
Md(k)=Wd(k)*Ad(k) |
|
./pkg/opps/opps_calc.F |
306 |
OPPS_CALC |
DO k2=k+1,maxDepth |
|
./pkg/opps/opps_calc.F |
307 |
OPPS_CALC |
Md(k2)=Md(k)*PlumeEntrainment(k2) |
|
./pkg/opps/opps_calc.F |
327 |
OPPS_CALC |
do k2=k,maxDepth-1 |
|
./pkg/opps/opps_calc.F |
373 |
OPPS_CALC |
tracerEnv(k,ktr) = tracerEnv(k,ktr)- |
|
./pkg/opps/opps_calc.F |
374 |
OPPS_CALC |
& (mda(k)*(Pda(k,ktr)-Paa(k,ktr)))*dt*recip_drF(k) |
|
./pkg/opps/opps_calc.F |
384 |
OPPS_CALC |
DO k2=k+1,kmx |
|
./pkg/opps/opps_calc.F |
385 |
OPPS_CALC |
k2m1 = max(k,k2-1) |
|
./pkg/opps/opps_calc.F |
570 |
NLOPPS |
INTEGER i,j,k |
|
./pkg/opps/opps_calc.F |
624 |
NLOPPS |
do k=1,km |
|
./pkg/opps/opps_calc.F |
625 |
NLOPPS |
dz(k) = 0.01*gcmdz(k) |
|
./pkg/opps/opps_calc.F |
628 |
NLOPPS |
do k=1,km |
|
./pkg/opps/opps_calc.F |
629 |
NLOPPS |
GridThickness(k) = dz(k) |
|
./pkg/opps/opps_calc.F |
648 |
NLOPPS |
DO k=1,NumGridPoints |
|
./pkg/opps/opps_calc.F |
649 |
NLOPPS |
stemp(k)=sa(i,k) |
|
./pkg/opps/opps_calc.F |
650 |
NLOPPS |
ttemp(k)=ta(i,k) |
|
./pkg/opps/opps_calc.F |
659 |
NLOPPS |
if(sa(i,k).gt.40..or.ta(i,k).lt.-4.0) then |
|
./pkg/opps/opps_calc.F |
669 |
NLOPPS |
write(*,*)(ta(i,k),sa(i,k),k=1,NumGridPoints) |
|
./pkg/opps/opps_calc.F |
672 |
NLOPPS |
DO k=1,NumGridPoints-1 |
|
./pkg/opps/opps_calc.F |
676 |
NLOPPS |
Sd(k)=stemp(k) |
|
./pkg/opps/opps_calc.F |
677 |
NLOPPS |
Td(k)=ttemp(k) |
|
./pkg/opps/opps_calc.F |
678 |
NLOPPS |
Dd(k)=state1(stemp(k),ttemp(k),k) |
|
./pkg/opps/opps_calc.F |
679 |
NLOPPS |
De(k)=Dd(k) |
|
./pkg/opps/opps_calc.F |
684 |
NLOPPS |
Wd(k) = 0.03 |
|
./pkg/opps/opps_calc.F |
692 |
NLOPPS |
wsqr=Wd(k)*Wd(k) |
|
./pkg/opps/opps_calc.F |
693 |
NLOPPS |
PlumeEntrainment(k) = 0.0 |
|
./pkg/opps/opps_calc.F |
697 |
NLOPPS |
StartingFlux=radius*radius*Wd(k)*Dd(k) |
|
./pkg/opps/opps_calc.F |
700 |
NLOPPS |
dz2=GridThickness(k) |
|
./pkg/opps/opps_calc.F |
701 |
NLOPPS |
DO k2=k,NumGridPoints-1 |
|
./pkg/opps/opps_calc.F |
710 |
NLOPPS |
IF (D2-D1 .LT. STABILITY_THRESHOLD.or.k2.ne.k) THEN |
|
./pkg/opps/opps_calc.F |
726 |
NLOPPS |
if(maxdepth.eq.k) goto 1000 |
|
./pkg/opps/opps_calc.F |
769 |
NLOPPS |
if(maxdepth.eq.k) goto 1000 |
|
./pkg/opps/opps_calc.F |
779 |
NLOPPS |
if(maxdepth.eq.k) goto 1000 |
|
./pkg/opps/opps_calc.F |
790 |
NLOPPS |
Ad(k)=FRACTIONAL_AREA |
|
./pkg/opps/opps_calc.F |
800 |
NLOPPS |
Md(k)=Wd(k)*Ad(k) |
|
./pkg/opps/opps_calc.F |
802 |
NLOPPS |
DO k2=k+1,MaxDepth |
|
./pkg/opps/opps_calc.F |
803 |
NLOPPS |
Md(k2)=Md(k)*PlumeEntrainment(k2) |
|
./pkg/opps/opps_calc.F |
819 |
NLOPPS |
do k2=k,maxdepth-1 |
|
./pkg/opps/opps_calc.F |
859 |
NLOPPS |
ttemp(k) = ttemp(k)- |
|
./pkg/opps/opps_calc.F |
860 |
NLOPPS |
* (mda(k)*(tda(k)-taa(k)))*dt*recip_drF(k) |
|
./pkg/opps/opps_calc.F |
862 |
NLOPPS |
stemp(k) = stemp(k)- |
|
./pkg/opps/opps_calc.F |
863 |
NLOPPS |
* (mda(k)*(sda(k)-saa(k)))*dt*recip_drF(k) |
|
./pkg/opps/opps_calc.F |
867 |
NLOPPS |
if(Maxdepth-k.gt.1) then |
|
./pkg/opps/opps_calc.F |
868 |
NLOPPS |
do k2=k+1,Maxdepth-1 |
|
./pkg/opps/opps_calc.F |
908 |
NLOPPS |
do k2=k,maxdepth |
|
./pkg/opps/opps_calc.F |
919 |
NLOPPS |
if(sa(i,k).gt.40..or.ta(i,k).lt.-4.0) then |
|
./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 |
85 |
PP81_CALC |
PPviscAr(I,J,K,bi,bj) = MAX(PPviscTmp,viscArNr(k)) |
|
./pkg/pp81/pp81_calc.F |
88 |
PP81_CALC |
& diffKr(i,j,k,bi,bj) ) |
|
./pkg/pp81/pp81_calc.F |
90 |
PP81_CALC |
& diffKrNrS(k) ) |
|
./pkg/pp81/pp81_calc_diff.F |
47 |
PP81_CALC_DIFF |
INTEGER i,j,k |
|
./pkg/pp81/pp81_calc_diff.F |
52 |
PP81_CALC_DIFF |
DO k=1,MIN(Nr,kSize) |
|
./pkg/pp81/pp81_calc_diff.F |
55 |
PP81_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k) |
|
./pkg/pp81/pp81_calc_diff.F |
56 |
PP81_CALC_DIFF |
& +( PPdiffKr(i,j,k,bi,bj) |
|
./pkg/pp81/pp81_calc_diff.F |
58 |
PP81_CALC_DIFF |
& - diffKr(i,j,k,bi,bj) ) |
|
./pkg/pp81/pp81_calc_diff.F |
60 |
PP81_CALC_DIFF |
& - diffKrNrS(k) ) |
|
./pkg/pp81/pp81_calc_diff.F |
67 |
PP81_CALC_DIFF |
k = MIN(kArg,kSize) |
|
./pkg/pp81/pp81_calc_diff.F |
70 |
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/do_oceanic_phys.F |
215 |
DO_OCEANIC_PHYS |
INTEGER i, j, k |
|
./model/src/do_oceanic_phys.F |
303 |
DO_OCEANIC_PHYS |
DO k=1,Nr |
|
./model/src/do_oceanic_phys.F |
306 |
DO_OCEANIC_PHYS |
sigmaRfield(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
639 |
DO_OCEANIC_PHYS |
DO k=1,Nr |
|
./model/src/do_oceanic_phys.F |
643 |
DO_OCEANIC_PHYS |
sigmaX(i,j,k) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
644 |
DO_OCEANIC_PHYS |
sigmaY(i,j,k) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
645 |
DO_OCEANIC_PHYS |
sigmaR(i,j,k) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
659 |
DO_OCEANIC_PHYS |
DO k=1,Nr |
|
./model/src/do_oceanic_phys.F |
662 |
DO_OCEANIC_PHYS |
rhoInSitu(i,j,k,bi,bj) = 0. |
|
./model/src/do_oceanic_phys.F |
664 |
DO_OCEANIC_PHYS |
GGL90viscArU(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
665 |
DO_OCEANIC_PHYS |
GGL90viscArV(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
666 |
DO_OCEANIC_PHYS |
GGL90diffKr(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
670 |
DO_OCEANIC_PHYS |
SPforcingS(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
671 |
DO_OCEANIC_PHYS |
SPforcingT(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
680 |
DO_OCEANIC_PHYS |
DO k=1,Nr |
|
./model/src/do_oceanic_phys.F |
683 |
DO_OCEANIC_PHYS |
IVDConvCount(i,j,k,bi,bj) = 0. |
|
./model/src/do_oceanic_phys.F |
692 |
DO_OCEANIC_PHYS |
DO k=1,Nr |
|
./model/src/do_oceanic_phys.F |
695 |
DO_OCEANIC_PHYS |
Kwx(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
696 |
DO_OCEANIC_PHYS |
Kwy(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
697 |
DO_OCEANIC_PHYS |
Kwz(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
699 |
DO_OCEANIC_PHYS |
Kux(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
700 |
DO_OCEANIC_PHYS |
Kvy(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
703 |
DO_OCEANIC_PHYS |
Kuz(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
704 |
DO_OCEANIC_PHYS |
Kvz(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
707 |
DO_OCEANIC_PHYS |
GM_PsiX(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
708 |
DO_OCEANIC_PHYS |
GM_PsiY(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
722 |
DO_OCEANIC_PHYS |
DO k=1,Nr |
|
./model/src/do_oceanic_phys.F |
725 |
DO_OCEANIC_PHYS |
KPPdiffKzS(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
726 |
DO_OCEANIC_PHYS |
KPPdiffKzT(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
768 |
DO_OCEANIC_PHYS |
DO k=1,Nr |
|
./model/src/do_oceanic_phys.F |
771 |
DO_OCEANIC_PHYS |
O rhoInSitu(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/do_oceanic_phys.F |
772 |
DO_OCEANIC_PHYS |
I k, bi, bj, myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
781 |
DO_OCEANIC_PHYS |
DO k=Nr,1,-1 |
|
./model/src/do_oceanic_phys.F |
785 |
DO_OCEANIC_PHYS |
I k, bi, bj, myTime, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
791 |
DO_OCEANIC_PHYS |
DO k=1,Nr |
|
./model/src/do_oceanic_phys.F |
793 |
DO_OCEANIC_PHYS |
I iMin, iMax, jMin, jMax, k, |
|
./model/src/do_oceanic_phys.F |
794 |
DO_OCEANIC_PHYS |
I theta(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/do_oceanic_phys.F |
795 |
DO_OCEANIC_PHYS |
I salt (1-OLx,1-OLy,k,bi,bj), |
|
./model/src/do_oceanic_phys.F |
796 |
DO_OCEANIC_PHYS |
O rhoInSitu(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/do_oceanic_phys.F |
797 |
DO_OCEANIC_PHYS |
I k, bi, bj, myThid ) |
|
./model/src/do_oceanic_phys.F |
803 |
DO_OCEANIC_PHYS |
DO k=1,Nr |
|
./model/src/do_oceanic_phys.F |
809 |
DO_OCEANIC_PHYS |
thetaRef = tRef(k) |
|
./model/src/do_oceanic_phys.F |
813 |
DO_OCEANIC_PHYS |
rhoInSitu(i,j,k,bi,bj) = |
|
./model/src/do_oceanic_phys.F |
814 |
DO_OCEANIC_PHYS |
& ( theta(i,j,k,bi,bj) |
|
./model/src/do_oceanic_phys.F |
815 |
DO_OCEANIC_PHYS |
& *( salt(i,j,k,bi,bj)*atm_Rq + oneRL ) |
|
./model/src/do_oceanic_phys.F |
816 |
DO_OCEANIC_PHYS |
& - thetaRef )*maskC(i,j,k,bi,bj) |
|
./model/src/do_oceanic_phys.F |
832 |
DO_OCEANIC_PHYS |
DO k=Nr,1,-1 |
|
./model/src/do_oceanic_phys.F |
839 |
DO_OCEANIC_PHYS |
kkey = (itdkey-1)*Nr + k |
|
./model/src/do_oceanic_phys.F |
851 |
DO_OCEANIC_PHYS |
IF ( calcGMRedi .OR. (k.GT.1 .AND. calcConvect) |
|
./model/src/do_oceanic_phys.F |
855 |
DO_OCEANIC_PHYS |
IF (k.GT.1) THEN |
|
./model/src/do_oceanic_phys.F |
865 |
DO_OCEANIC_PHYS |
I iMin, iMax, jMin, jMax, k, |
|
./model/src/do_oceanic_phys.F |
866 |
DO_OCEANIC_PHYS |
I theta(1-OLx,1-OLy,k-1,bi,bj), |
|
./model/src/do_oceanic_phys.F |
867 |
DO_OCEANIC_PHYS |
I salt (1-OLx,1-OLy,k-1,bi,bj), |
|
./model/src/do_oceanic_phys.F |
869 |
DO_OCEANIC_PHYS |
I k-1, bi, bj, myThid ) |
|
./model/src/do_oceanic_phys.F |
877 |
DO_OCEANIC_PHYS |
rhoKp1(i,j) = rhoInSitu(i,j,k,bi,bj) |
|
./model/src/do_oceanic_phys.F |
881 |
DO_OCEANIC_PHYS |
I bi, bj, iMin, iMax, jMin, jMax, k, |
|
./model/src/do_oceanic_phys.F |
882 |
DO_OCEANIC_PHYS |
I rhoInSitu(1-OLx,1-OLy,k,bi,bj), rhoKm1, rhoKp1, |
|
./model/src/do_oceanic_phys.F |
889 |
DO_OCEANIC_PHYS |
sigmaRfield(i,j,k,bi,bj)=sigmaR(i,j,k) |
|
./model/src/do_oceanic_phys.F |
906 |
DO_OCEANIC_PHYS |
IF (k.GT.1 .AND. calcConvect) THEN |
|
./model/src/do_oceanic_phys.F |
911 |
DO_OCEANIC_PHYS |
I bi, bj, iMin, iMax, jMin, jMax, k, |
|
./model/src/do_oceanic_phys.F |
918 |
DO_OCEANIC_PHYS |
CALL DIAGS_RHO_L( doDiagsRho, k, bi, bj, |
|
./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) = diffKrNrS(k) |
|
./pkg/pp81/pp81_ri_number.F |
47 |
PP81_RI_NUMBER |
INTEGER bi, bj, iMin, iMax, jMin, jMax, k |
|
./pkg/profiles/cost_profiles.F |
156 |
COST_PROFILES |
prof_lev_comb(k,num_file,bi,bj) = -999 |
|
./pkg/profiles/cost_profiles.F |
159 |
COST_PROFILES |
if(prof_depth(num_file, k,bi,bj).EQ. |
|
./pkg/profiles/cost_profiles.F |
162 |
COST_PROFILES |
& prof_lev_comb(k,num_file,bi,bj).EQ.-999) then |
|
./pkg/profiles/cost_profiles.F |
163 |
COST_PROFILES |
prof_lev_comb(k,num_file,bi,bj) = k2 |
|
./pkg/profiles/cost_profiles.F |
175 |
COST_PROFILES |
prof_traj1D(k)=0. |
|
./pkg/profiles/cost_profiles.F |
178 |
COST_PROFILES |
prof_data1D(k)=0. |
|
./pkg/profiles/cost_profiles.F |
180 |
COST_PROFILES |
prof_weights1D(k)=0. |
|
./pkg/profiles/cost_profiles.F |
212 |
COST_PROFILES |
& prof_lev_comb(k,num_file,bi,bj),num_var) |
|
./pkg/profiles/cost_profiles.F |
214 |
COST_PROFILES |
& prof_lev_comb(k,num_file,bi,bj), num_var) |
|
./pkg/profiles/cost_profiles.F |
215 |
COST_PROFILES |
& + prof_traj1D(k) |
|
./pkg/profiles/cost_profiles.F |
218 |
COST_PROFILES |
& prof_lev_comb(k,num_file,bi,bj), num_var) |
|
./pkg/profiles/cost_profiles.F |
220 |
COST_PROFILES |
& prof_lev_comb(k,num_file,bi,bj), num_var) |
|
./pkg/profiles/cost_profiles.F |
221 |
COST_PROFILES |
& + prof_data1D(k) |
|
./pkg/profiles/cost_profiles.F |
224 |
COST_PROFILES |
& prof_lev_comb(k,num_file,bi,bj), num_var) |
|
./pkg/profiles/cost_profiles.F |
226 |
COST_PROFILES |
& prof_lev_comb(k,num_file,bi,bj), num_var) |
|
./pkg/profiles/cost_profiles.F |
227 |
COST_PROFILES |
& + 1. _d 0 /prof_weights1D(k) |
|
./pkg/profiles/cost_profiles.F |
230 |
COST_PROFILES |
& prof_lev_comb(k,num_file,bi,bj), num_var) |
|
./pkg/profiles/cost_profiles.F |
232 |
COST_PROFILES |
& prof_lev_comb(k,num_file,bi,bj), num_var) |
|
./pkg/profiles/cost_profiles.F |
446 |
COST_PROFILES |
prof_traj1D(k)=0. |
|
./pkg/profiles/cost_profiles.F |
447 |
COST_PROFILES |
prof_traj1D_mean(k)=0. |
|
./pkg/profiles/cost_profiles.F |
448 |
COST_PROFILES |
prof_mask1D_cur(k,bi,bj)=0. |
|
./pkg/profiles/cost_profiles.F |
449 |
COST_PROFILES |
prof_data1D(k)=0. |
|
./pkg/profiles/cost_profiles.F |
450 |
COST_PROFILES |
prof_weights1D(k)=0. |
|
./pkg/profiles/cost_profiles.F |
452 |
COST_PROFILES |
prof_data1D_mean(k)=0. |
|
./pkg/profiles/cost_profiles.F |
453 |
COST_PROFILES |
prof_weights1D_mean(k)=0. |
|
./pkg/profiles/cost_profiles.F |
464 |
COST_PROFILES |
ktmp = prof_lev_comb(k,num_file,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
465 |
COST_PROFILES |
prof_traj1D_mean(k) = |
|
./pkg/profiles/cost_profiles.F |
467 |
COST_PROFILES |
prof_data1D_mean(k) = |
|
./pkg/profiles/cost_profiles.F |
469 |
COST_PROFILES |
prof_weights1D_mean(k) = |
|
./pkg/profiles/cost_profiles.F |
543 |
COST_PROFILES |
& prof_traj1D_all_mean(iavgbin,k,num_var) |
|
./pkg/profiles/cost_profiles.F |
545 |
COST_PROFILES |
& prof_data1D_all_mean(iavgbin,k,num_var) |
|
./pkg/profiles/cost_profiles.F |
547 |
COST_PROFILES |
& prof_weights1D_all_mean(iavgbin,k,num_var) |
|
./pkg/profiles/profiles_init_fixed.F |
155 |
PROFILES_INIT_FIXED |
do k=1,NVARMAX |
|
./pkg/profiles/profiles_init_fixed.F |
156 |
PROFILES_INIT_FIXED |
profiles_data_buff(m,l,k,bi,bj)=0. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
157 |
PROFILES_INIT_FIXED |
profiles_weight_buff(m,l,k,bi,bj)=0. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
238 |
PROFILES_INIT_FIXED |
do k=1,ProfDepthNo(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
239 |
PROFILES_INIT_FIXED |
err = NF_GET_VAR1_DOUBLE(fid,varid1a,k, |
|
./pkg/profiles/profiles_init_fixed.F |
240 |
PROFILES_INIT_FIXED |
& prof_depth(num_file,k,bi,bj)) |
|
./pkg/profiles/profiles_init_fixed.F |
280 |
PROFILES_INIT_FIXED |
do k=1,NOBSGLOB |
|
./pkg/profiles/profiles_init_fixed.F |
281 |
PROFILES_INIT_FIXED |
prof_time(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
282 |
PROFILES_INIT_FIXED |
prof_lon(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
283 |
PROFILES_INIT_FIXED |
prof_lat(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
284 |
PROFILES_INIT_FIXED |
prof_ind_glob(num_file,k,bi,bj)=0 |
|
./pkg/profiles/profiles_init_fixed.F |
286 |
PROFILES_INIT_FIXED |
prof_ind_avgbin(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
289 |
PROFILES_INIT_FIXED |
prof_interp_i(num_file,k,q,bi,bj) = 1 |
|
./pkg/profiles/profiles_init_fixed.F |
290 |
PROFILES_INIT_FIXED |
prof_interp_j(num_file,k,q,bi,bj) = 1 |
|
./pkg/profiles/profiles_init_fixed.F |
291 |
PROFILES_INIT_FIXED |
prof_interp_weights(num_file,k,q,bi,bj) = 0. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
293 |
PROFILES_INIT_FIXED |
prof_interp_xC11(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
294 |
PROFILES_INIT_FIXED |
prof_interp_yC11(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
295 |
PROFILES_INIT_FIXED |
prof_interp_xCNINJ(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
296 |
PROFILES_INIT_FIXED |
prof_interp_yCNINJ(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
372 |
PROFILES_INIT_FIXED |
do k=1,min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1)) |
|
./pkg/profiles/profiles_init_fixed.F |
378 |
PROFILES_INIT_FIXED |
IF (( ( tmpyymmdd(k).GT.yymmddMin ).OR.(( tmpyymmdd(k).EQ. |
|
./pkg/profiles/profiles_init_fixed.F |
379 |
PROFILES_INIT_FIXED |
& yymmddMin ).AND.( tmphhmmss(k).GT.hhmmssMin ))).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
380 |
PROFILES_INIT_FIXED |
& ( ( tmpyymmdd(k).LT.yymmddMax ).OR.(( tmpyymmdd(k).EQ. |
|
./pkg/profiles/profiles_init_fixed.F |
381 |
PROFILES_INIT_FIXED |
& yymmddMax ).AND.( tmphhmmss(k).LT.hhmmssMax ))) ) THEN |
|
./pkg/profiles/profiles_init_fixed.F |
382 |
PROFILES_INIT_FIXED |
hh = int(tmphhmmss(k))/10000 |
|
./pkg/profiles/profiles_init_fixed.F |
385 |
PROFILES_INIT_FIXED |
call CAL_FULLDATE( int(tmpyymmdd(k)),int(tmphhmmss(k)), |
|
./pkg/profiles/profiles_init_fixed.F |
412 |
PROFILES_INIT_FIXED |
if ((xC(1,1,bi,bj).LE.tmp_lon2(k)).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
413 |
PROFILES_INIT_FIXED |
& (tmp_lon.GT.tmp_lon2(k)).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
414 |
PROFILES_INIT_FIXED |
& (yC(1,1,bi,bj).LE.tmp_lat2(k)).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
415 |
PROFILES_INIT_FIXED |
& (yC(1,sNy+1,bi,bj).GT.tmp_lat2(k)) ) then |
|
./pkg/profiles/profiles_init_fixed.F |
416 |
PROFILES_INIT_FIXED |
lon_cur=tmp_lon2(k) |
|
./pkg/profiles/profiles_init_fixed.F |
417 |
PROFILES_INIT_FIXED |
lat_cur=tmp_lat2(k) |
|
./pkg/profiles/profiles_init_fixed.F |
419 |
PROFILES_INIT_FIXED |
& (xC(1,1,bi,bj).LE.tmp_lon2(k)+360. _d 0).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
41 |
PROFILES_INIT_FIXED |
integer i,j,k,l,m,bi,bj,iG,jG,num_file,ProfNo_tile |
|
./pkg/profiles/profiles_init_fixed.F |
420 |
PROFILES_INIT_FIXED |
& (tmp_lon.GT.tmp_lon2(k)+360. _d 0).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
421 |
PROFILES_INIT_FIXED |
& (yC(1,1,bi,bj).LE.tmp_lat2(k)).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
422 |
PROFILES_INIT_FIXED |
& (yC(1,sNy+1,bi,bj).GT.tmp_lat2(k)) |
|
./pkg/profiles/profiles_init_fixed.F |
424 |
PROFILES_INIT_FIXED |
lon_cur=tmp_lon2(k)+360. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
425 |
PROFILES_INIT_FIXED |
lat_cur=tmp_lat2(k) |
|
./pkg/profiles/profiles_init_fixed.F |
480 |
PROFILES_INIT_FIXED |
prof_ind_glob(num_file,ProfNo_tile,bi,bj)=k+1000*(kk-1) |
|
./pkg/profiles/profiles_init_fixed.F |
482 |
PROFILES_INIT_FIXED |
prof_ind_avgbin(num_file,ProfNo_tile,bi,bj)=tmp_avgbin(k) |
|
./pkg/profiles/profiles_init_fixed.F |
514 |
PROFILES_INIT_FIXED |
if ( ( abs( tmp_xC11(k) - xC(1,1,bi,bj) ).LT.0.0001 _d 0 ) .AND. |
|
./pkg/profiles/profiles_init_fixed.F |
515 |
PROFILES_INIT_FIXED |
& ( abs( tmp_yC11(k) - yC(1,1,bi,bj) ).LT.0.0001 _d 0) .AND. |
|
./pkg/profiles/profiles_init_fixed.F |
516 |
PROFILES_INIT_FIXED |
& ( abs( tmp_xCNINJ(k) - xC(sNx,sNy,bi,bj) ).LT.0.0001 _d 0 ) .AND. |
|
./pkg/profiles/profiles_init_fixed.F |
517 |
PROFILES_INIT_FIXED |
& ( abs( tmp_yCNINJ(k) - yC(sNx,sNy,bi,bj) ).LT.0.0001 _d 0 ) |
|
./pkg/profiles/profiles_init_fixed.F |
524 |
PROFILES_INIT_FIXED |
prof_ind_avgbin(num_file,ProfNo_tile,bi,bj)=tmp_avgbin(k) |
|
./pkg/profiles/profiles_init_fixed.F |
526 |
PROFILES_INIT_FIXED |
prof_interp_xC11(num_file,ProfNo_tile,bi,bj)=tmp_xC11(k) |
|
./pkg/profiles/profiles_init_fixed.F |
527 |
PROFILES_INIT_FIXED |
prof_interp_yC11(num_file,ProfNo_tile,bi,bj)=tmp_yC11(k) |
|
./pkg/profiles/profiles_init_fixed.F |
528 |
PROFILES_INIT_FIXED |
prof_interp_xCNINJ(num_file,ProfNo_tile,bi,bj)=tmp_xCNINJ(k) |
|
./pkg/profiles/profiles_init_fixed.F |
529 |
PROFILES_INIT_FIXED |
prof_interp_yCNINJ(num_file,ProfNo_tile,bi,bj)=tmp_yCNINJ(k) |
|
./pkg/profiles/profiles_init_fixed.F |
533 |
PROFILES_INIT_FIXED |
& =tmp_weights(k,q) |
|
./pkg/profiles/profiles_init_fixed.F |
535 |
PROFILES_INIT_FIXED |
& =tmp_i(k,q) |
|
./pkg/profiles/profiles_init_fixed.F |
537 |
PROFILES_INIT_FIXED |
& =tmp_j(k,q) |
|
./pkg/profiles/profiles_init_fixed.F |
538 |
PROFILES_INIT_FIXED |
tmp_sum_weights=tmp_sum_weights+tmp_weights(k,q) |
|
./pkg/profiles/profiles_init_fixed.F |
541 |
PROFILES_INIT_FIXED |
if ( (tmp_i(k,q).LT.0).OR.(tmp_j(k,q).LT.0) |
|
./pkg/profiles/profiles_init_fixed.F |
542 |
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 |
551 |
PROFILES_INIT_FIXED |
if ( tmp_weights(k,q) .NE. 0. _d 0) then |
|
./pkg/profiles/profiles_init_fixed.F |
552 |
PROFILES_INIT_FIXED |
if ( ((tmp_i(k,q).EQ.0).AND.(tmp_j(k,q).EQ.0)) |
|
./pkg/profiles/profiles_init_fixed.F |
553 |
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 |
554 |
PROFILES_INIT_FIXED |
& .OR.((tmp_i(k,q).EQ.0).AND.(tmp_j(k,q).EQ.sNy+1)) |
|
./pkg/profiles/profiles_init_fixed.F |
555 |
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 |
565 |
PROFILES_INIT_FIXED |
if ( (tmp_weights(k,q).LT.0. _d 0).OR. |
|
./pkg/profiles/profiles_init_fixed.F |
566 |
PROFILES_INIT_FIXED |
& (tmp_weights(k,q).GT.1. _d 0) ) then |
|
./pkg/profiles/profiles_init_fixed.F |
586 |
PROFILES_INIT_FIXED |
prof_ind_glob(num_file,ProfNo_tile,bi,bj)=k+1000*(kk-1) |
|
./pkg/profiles/profiles_init_fixed.F |
624 |
PROFILES_INIT_FIXED |
do k=1,NVARMAX |
|
./pkg/profiles/profiles_init_fixed.F |
625 |
PROFILES_INIT_FIXED |
prof_num_var_cur(num_file,k,bi,bj)=0 |
|
./pkg/profiles/profiles_init_fixed.F |
629 |
PROFILES_INIT_FIXED |
do k=1,NVARMAX |
|
./pkg/profiles/profiles_init_fixed.F |
630 |
PROFILES_INIT_FIXED |
JL = ILNBLNK( prof_names(num_file,k) ) |
|
./pkg/profiles/profiles_init_fixed.F |
631 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,prof_names(num_file,k)(1:JL), varid1 ) |
|
./pkg/profiles/profiles_init_fixed.F |
633 |
PROFILES_INIT_FIXED |
vec_quantities(num_file,k,bi,bj)=.TRUE. |
|
./pkg/profiles/profiles_init_fixed.F |
636 |
PROFILES_INIT_FIXED |
prof_num_var_cur(num_file,k,bi,bj)= |
|
./pkg/profiles/profiles_init_fixed.F |
639 |
PROFILES_INIT_FIXED |
vec_quantities(num_file,k,bi,bj)=.FALSE. |
|
./pkg/profiles/profiles_init_fixed.F |
643 |
PROFILES_INIT_FIXED |
do k=1,NVARMAX |
|
./pkg/profiles/profiles_init_fixed.F |
644 |
PROFILES_INIT_FIXED |
if (vec_quantities(num_file,k,bi,bj)) then |
|
./pkg/profiles/profiles_init_fixed.F |
645 |
PROFILES_INIT_FIXED |
KL = ILNBLNK( prof_names(num_file,k) ) |
|
./pkg/profiles/profiles_init_fixed.F |
646 |
PROFILES_INIT_FIXED |
JL = ILNBLNK( prof_namesmod(num_file,k) ) |
|
./pkg/profiles/profiles_init_fixed.F |
647 |
PROFILES_INIT_FIXED |
if (prof_namesmod(num_file,k).EQ.'pTracer') then |
|
./pkg/profiles/profiles_init_fixed.F |
648 |
PROFILES_INIT_FIXED |
write(msgbuf,'(a,I3,5a,I3)') ' variable #',k,' is ' , |
|
./pkg/profiles/profiles_init_fixed.F |
649 |
PROFILES_INIT_FIXED |
& prof_names(num_file,k)(1:KL),' and ', |
|
./pkg/profiles/profiles_init_fixed.F |
650 |
PROFILES_INIT_FIXED |
& prof_namesmod(num_file,k)(1:JL),' #', |
|
./pkg/profiles/profiles_init_fixed.F |
651 |
PROFILES_INIT_FIXED |
& prof_itracer(num_file,k) |
|
./pkg/profiles/profiles_init_fixed.F |
653 |
PROFILES_INIT_FIXED |
write(msgbuf,'(a,I3,4a)') ' variable #',k, |
|
./pkg/profiles/profiles_init_fixed.F |
655 |
PROFILES_INIT_FIXED |
& prof_names(num_file,k)(1:KL),' and ', |
|
./pkg/profiles/profiles_init_fixed.F |
656 |
PROFILES_INIT_FIXED |
& prof_namesmod(num_file,k)(1:JL) |
|
./pkg/profiles/profiles_init_fixed.F |
752 |
PROFILES_INIT_FIXED |
do k=1,NVARMAX |
|
./pkg/profiles/profiles_init_fixed.F |
753 |
PROFILES_INIT_FIXED |
prof_num_var_cur(num_file,k,bi,bj)=0 |
|
./pkg/profiles/profiles_init_fixed.F |
754 |
PROFILES_INIT_FIXED |
vec_quantities(num_file,k,bi,bj)=.FALSE. |
|
./pkg/profiles/profiles_init_fixed.F |
757 |
PROFILES_INIT_FIXED |
do k=1,NOBSGLOB |
|
./pkg/profiles/profiles_init_fixed.F |
758 |
PROFILES_INIT_FIXED |
prof_time(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
759 |
PROFILES_INIT_FIXED |
prof_lon(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
760 |
PROFILES_INIT_FIXED |
prof_lat(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
761 |
PROFILES_INIT_FIXED |
prof_ind_glob(num_file,k,bi,bj)=0 |
|
./pkg/profiles/profiles_init_fixed.F |
763 |
PROFILES_INIT_FIXED |
prof_ind_avgbin(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
766 |
PROFILES_INIT_FIXED |
prof_interp_i(num_file,k,q,bi,bj) = 1 |
|
./pkg/profiles/profiles_init_fixed.F |
767 |
PROFILES_INIT_FIXED |
prof_interp_j(num_file,k,q,bi,bj) = 1 |
|
./pkg/profiles/profiles_init_fixed.F |
768 |
PROFILES_INIT_FIXED |
prof_interp_weights(num_file,k,q,bi,bj) = 0. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
770 |
PROFILES_INIT_FIXED |
prof_interp_xC11(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
771 |
PROFILES_INIT_FIXED |
prof_interp_yC11(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
772 |
PROFILES_INIT_FIXED |
prof_interp_xCNINJ(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
773 |
PROFILES_INIT_FIXED |
prof_interp_yCNINJ(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
795 |
PROFILES_INIT_FIXED |
prof_depth_comb(m,bi,bj) = prof_depth(num_file, k,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
802 |
PROFILES_INIT_FIXED |
if(prof_depth(num_file, k,bi,bj).lt. |
|
./pkg/profiles/profiles_init_fixed.F |
808 |
PROFILES_INIT_FIXED |
& prof_depth(num_file, k,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
815 |
PROFILES_INIT_FIXED |
else if(prof_depth(num_file, k,bi,bj).gt. |
|
./pkg/profiles/profiles_init_fixed.F |
817 |
PROFILES_INIT_FIXED |
& prof_depth(num_file, k,bi,bj).lt. |
|
./pkg/profiles/profiles_init_fixed.F |
823 |
PROFILES_INIT_FIXED |
& prof_depth(num_file, k,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
830 |
PROFILES_INIT_FIXED |
else if ( prof_depth(num_file, k,bi,bj).gt. |
|
./pkg/profiles/profiles_init_fixed.F |
834 |
PROFILES_INIT_FIXED |
& prof_depth(num_file, k,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
881 |
PROFILES_INIT_FIXED |
k=MDS_RECLEN(64,(sNx+2)*(sNy+2),mythid) |
|
./pkg/profiles/profiles_init_fixed.F |
886 |
PROFILES_INIT_FIXED |
& status='unknown',access='direct', recl= k) |
|
./pkg/profiles/profiles_init_fixed.F |
901 |
PROFILES_INIT_FIXED |
k=MDS_RECLEN(64,(sNx+2)*(sNy+2),mythid) |
|
./pkg/profiles/profiles_init_fixed.F |
906 |
PROFILES_INIT_FIXED |
& status='unknown', access='direct', recl= k) |
|
./pkg/profiles/profiles_inloop.F |
46 |
PROFILES_INLOOP |
integer k,bi,bj,prof_num, num_file, num_var |
|
./pkg/profiles/profiles_inloop.F |
72 |
PROFILES_INLOOP |
do k=1,NUM_INTERP_POINTS |
|
./pkg/profiles/profiles_inloop.F |
73 |
PROFILES_INLOOP |
prof_i1D(k)= prof_interp_i(num_file,prof_num,k,bi,bj) |
|
./pkg/profiles/profiles_inloop.F |
74 |
PROFILES_INLOOP |
prof_j1D(k)= prof_interp_j(num_file,prof_num,k,bi,bj) |
|
./pkg/profiles/profiles_inloop.F |
75 |
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_inloop.F |
89 |
PROFILES_INLOOP |
do k=1,NLEVELMAX |
|
./pkg/profiles/profiles_inloop.F |
90 |
PROFILES_INLOOP |
prof_traj1D(k)=prof_traj1D(k)* |
|
./pkg/profiles/profiles_interp.F |
100 |
PROFILES_INTERP |
tab_coeffs1(q)=m_UE(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/profiles/profiles_interp.F |
102 |
PROFILES_INTERP |
tab_coeffs1(q)=m_VN(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/profiles/profiles_interp.F |
107 |
PROFILES_INTERP |
tab_coeffs3(q)=maskC(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/profiles/profiles_interp.F |
114 |
PROFILES_INTERP |
traj_cur(k)=0. _d 0 |
|
./pkg/profiles/profiles_interp.F |
115 |
PROFILES_INTERP |
mask_cur(k)=1. _d 0 |
|
./pkg/profiles/profiles_interp.F |
117 |
PROFILES_INTERP |
traj_cur(k)=traj_cur(k) |
|
./pkg/profiles/profiles_interp.F |
121 |
PROFILES_INTERP |
traj_cur(k)=0. _d 0 |
|
./pkg/profiles/profiles_interp.F |
122 |
PROFILES_INTERP |
mask_cur(k)=0. _d 0 |
|
./pkg/profiles/profiles_interp.F |
146 |
PROFILES_INTERP |
do k=1,nr-1 |
|
./pkg/profiles/profiles_interp.F |
147 |
PROFILES_INTERP |
if ((prof_depth(file_cur,kk,bi,bj).GE.-rC(k)).AND. |
|
./pkg/profiles/profiles_interp.F |
148 |
PROFILES_INTERP |
& (prof_depth(file_cur,kk,bi,bj).LT.-rC(k+1))) then |
|
./pkg/profiles/profiles_interp.F |
149 |
PROFILES_INTERP |
kcur=k |
|
./pkg/profiles/profiles_interp.F |
71 |
PROFILES_INTERP |
integer q,k,kk,kcur,bi,bj |
|
./pkg/profiles/profiles_interp.F |
82 |
PROFILES_INTERP |
do k=1,nr |
|
./pkg/profiles/profiles_interp.F |
86 |
PROFILES_INTERP |
tab_coeffs1(q)=theta(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/profiles/profiles_interp.F |
88 |
PROFILES_INTERP |
tab_coeffs1(q)=salt(i_cur(q),j_cur(q),k,bi,bj) |
|
./pkg/profiles/profiles_interp.F |
91 |
PROFILES_INTERP |
tab_coeffs1(q)=pTracer(i_cur(q),j_cur(q),k,bi,bj, |
|
./pkg/profiles/profiles_readvector.F |
104 |
PROFILES_READVECTOR |
do k=1,vec_count(1) |
|
./pkg/profiles/profiles_readvector.F |
106 |
PROFILES_READVECTOR |
profiles_data_buff(k,kk,kkk,bi,bj)=vec_tmp1((kk-1)*vec_count(1)+k) |
|
./pkg/profiles/profiles_readvector.F |
107 |
PROFILES_READVECTOR |
profiles_weight_buff(k,kk,kkk,bi,bj)=vec_tmp2((kk-1)*vec_count(1) |
|
./pkg/profiles/profiles_readvector.F |
108 |
PROFILES_READVECTOR |
& +k) |
|
./pkg/profiles/profiles_readvector.F |
110 |
PROFILES_READVECTOR |
if(vec_tmp3((kk-1)*vec_count(1)+k).LE.-990. _d 0) |
|
./pkg/profiles/profiles_readvector.F |
111 |
PROFILES_READVECTOR |
& profiles_weight_buff(k,kk,kkk,bi,bj) = 0. _d 0 |
|
./pkg/profiles/profiles_readvector.F |
123 |
PROFILES_READVECTOR |
do k=1,vec_loc_length |
|
./pkg/profiles/profiles_readvector.F |
124 |
PROFILES_READVECTOR |
vec_loc(k)= profiles_weight_buff |
|
./pkg/profiles/profiles_readvector.F |
125 |
PROFILES_READVECTOR |
& (k,irec-profiles_minind_buff(bi,bj)+1,-vNb,bi,bj) |
|
./pkg/profiles/profiles_readvector.F |
129 |
PROFILES_READVECTOR |
do k=1,vec_loc_length |
|
./pkg/profiles/profiles_readvector.F |
130 |
PROFILES_READVECTOR |
vec_loc(k)=profiles_data_buff |
|
./pkg/profiles/profiles_readvector.F |
131 |
PROFILES_READVECTOR |
& (k,irec-profiles_minind_buff(bi,bj)+1,vNb,bi,bj) |
|
./pkg/profiles/profiles_readvector.F |
29 |
PROFILES_READVECTOR |
integer vec_loc_length, vNb, k, kk, kkk,bi,bj |
|
./pkg/ptracers/ptracers_apply_forcing.F |
108 |
PTRACERS_APPLY_FORCING |
IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN |
|
./pkg/ptracers/ptracers_apply_forcing.F |
110 |
PTRACERS_APPLY_FORCING |
& +meanSurfCorPTr(iTracer)*recip_drF(k) |
|
./pkg/ptracers/ptracers_apply_forcing.F |
111 |
PTRACERS_APPLY_FORCING |
& *_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/ptracers/ptracers_apply_forcing.F |
121 |
PTRACERS_APPLY_FORCING |
I k, bi, bj, iTracer+2, |
|
./pkg/ptracers/ptracers_apply_forcing.F |
13 |
PTRACERS_APPLY_FORCING |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/ptracers/ptracers_apply_forcing.F |
43 |
PTRACERS_APPLY_FORCING |
INTEGER k, bi,bj, iTracer |
|
./pkg/ptracers/ptracers_apply_forcing.F |
78 |
PTRACERS_APPLY_FORCING |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/ptracers/ptracers_apply_forcing.F |
83 |
PTRACERS_APPLY_FORCING |
IF ( k .EQ. kSurface ) THEN |
|
./pkg/ptracers/ptracers_apply_forcing.F |
90 |
PTRACERS_APPLY_FORCING |
& *recip_drF(k)*recip_hFacC(i,j,k,bi,bj) |
|
./pkg/ptracers/ptracers_apply_forcing.F |
96 |
PTRACERS_APPLY_FORCING |
IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN |
|
./pkg/ptracers/ptracers_apply_forcing.F |
99 |
PTRACERS_APPLY_FORCING |
& *recip_drF(k)*recip_hFacC(i,j,k,bi,bj) |
|
./pkg/ptracers/ptracers_convect.F |
13 |
PTRACERS_CONVECT |
SUBROUTINE PTRACERS_CONVECT( bi,bj,k,weightA,weightB,myThid ) |
|
./pkg/ptracers/ptracers_convect.F |
36 |
PTRACERS_CONVECT |
INTEGER bi,bj,k |
|
./pkg/ptracers/ptracers_convect.F |
70 |
PTRACERS_CONVECT |
kkey = (iptrkey-1)*Nr + k |
|
./pkg/ptracers/ptracers_convect.F |
76 |
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) ) |
|
./pkg/ptracers/ptracers_init_varia.F |
114 |
PTRACERS_INIT_VARIA |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_init_varia.F |
117 |
PTRACERS_INIT_VARIA |
IF (maskC(i,j,k,bi,bj).EQ.0.) |
|
./pkg/ptracers/ptracers_init_varia.F |
118 |
PTRACERS_INIT_VARIA |
& pTracer(i,j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/ptracers/ptracers_init_varia.F |
38 |
PTRACERS_INIT_VARIA |
INTEGER i,j,k,bi,bj,iTracer |
|
./pkg/ptracers/ptracers_init_varia.F |
62 |
PTRACERS_INIT_VARIA |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_init_varia.F |
65 |
PTRACERS_INIT_VARIA |
pTracer(i,j,k,bi,bj,iTracer) = PTRACERS_ref(k,iTracer) |
|
./pkg/ptracers/ptracers_init_varia.F |
66 |
PTRACERS_INIT_VARIA |
gpTrNm1(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/ptracers/ptracers_init_varia.F |
80 |
PTRACERS_INIT_VARIA |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_init_varia.F |
83 |
PTRACERS_INIT_VARIA |
_Ptracers_som(i,j,k,bi,bj,n,iTracer) = 0. _d 0 |
|
./pkg/ptracers/ptracers_integrate.F |
154 |
PTRACERS_INTEGRATE |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_integrate.F |
157 |
PTRACERS_INTEGRATE |
gTracer(i,j,k) = 0. _d 0 |
|
./pkg/ptracers/ptracers_integrate.F |
210 |
PTRACERS_INTEGRATE |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_integrate.F |
213 |
PTRACERS_INTEGRATE |
kappaRk(i,j,k) = 0. _d 0 |
|
./pkg/ptracers/ptracers_integrate.F |
269 |
PTRACERS_INTEGRATE |
DO k=Nr,1,-1 |
|
./pkg/ptracers/ptracers_integrate.F |
271 |
PTRACERS_INTEGRATE |
kkey = (iptrkey-1)*Nr + k |
|
./pkg/ptracers/ptracers_integrate.F |
274 |
PTRACERS_INTEGRATE |
kM1 = MAX(1,k-1) |
|
./pkg/ptracers/ptracers_integrate.F |
275 |
PTRACERS_INTEGRATE |
kUp = 1+MOD(k+1,2) |
|
./pkg/ptracers/ptracers_integrate.F |
276 |
PTRACERS_INTEGRATE |
kDown= 1+MOD(k,2) |
|
./pkg/ptracers/ptracers_integrate.F |
291 |
PTRACERS_INTEGRATE |
I k, bi, bj, myThid ) |
|
./pkg/ptracers/ptracers_integrate.F |
302 |
PTRACERS_INTEGRATE |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/ptracers/ptracers_integrate.F |
307 |
PTRACERS_INTEGRATE |
CALL DIAGNOSTICS_FILL(gTrForc,diagName,k,1,2,bi,bj,myThid) |
|
./pkg/ptracers/ptracers_integrate.F |
314 |
PTRACERS_INTEGRATE |
I bi,bj, iMin,iMax,jMin,jMax, k,kM1, kUp,kDown, |
|
./pkg/ptracers/ptracers_integrate.F |
315 |
PTRACERS_INTEGRATE |
I xA, yA, maskUp, uFld(1-OLx,1-OLy,k), |
|
./pkg/ptracers/ptracers_integrate.F |
316 |
PTRACERS_INTEGRATE |
I vFld(1-OLx,1-OLy,k), wFld(1-OLx,1-OLy,k), |
|
./pkg/ptracers/ptracers_integrate.F |
320 |
PTRACERS_INTEGRATE |
I KappaRk(1-OLx,1-OLy,k), dummy, |
|
./pkg/ptracers/ptracers_integrate.F |
338 |
PTRACERS_INTEGRATE |
gTracer(i,j,k) = gTracer(i,j,k) + gTrForc(i,j) |
|
./pkg/ptracers/ptracers_integrate.F |
351 |
PTRACERS_INTEGRATE |
I bi, bj, k, Nr, |
|
./pkg/ptracers/ptracers_integrate.F |
359 |
PTRACERS_INTEGRATE |
CALL DIAGNOSTICS_FILL(gTr_AB,diagName,k,1,2,bi,bj,myThid) |
|
./pkg/ptracers/ptracers_integrate.F |
368 |
PTRACERS_INTEGRATE |
gTracer(i,j,k) = gTracer(i,j,k) + gTrForc(i,j) |
|
./pkg/ptracers/ptracers_integrate.F |
377 |
PTRACERS_INTEGRATE |
I bi, bj, k, |
|
./pkg/ptracers/ptracers_integrate.F |
382 |
PTRACERS_INTEGRATE |
I bi, bj, k, |
|
./pkg/ptracers/ptracers_integrate.F |
97 |
PTRACERS_INTEGRATE |
INTEGER i, j, k |
|
./pkg/ptracers/ptracers_readparms.F |
118 |
PTRACERS_READPARMS |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_readparms.F |
119 |
PTRACERS_READPARMS |
PTRACERS_diffKrNr(k,iTracer)=diffKrNrS(k) |
|
./pkg/ptracers/ptracers_readparms.F |
120 |
PTRACERS_READPARMS |
PTRACERS_ref (k,iTracer)=0. _d 0 |
|
./pkg/ptracers/ptracers_readparms.F |
151 |
PTRACERS_READPARMS |
DO k = 1,Nr |
|
./pkg/ptracers/ptracers_readparms.F |
153 |
PTRACERS_READPARMS |
PTRACERS_dTLev(k) = LS_nIter*dTtracerLev(k) |
|
./pkg/ptracers/ptracers_readparms.F |
155 |
PTRACERS_READPARMS |
PTRACERS_dTLev(k) = dTtracerLev(k) |
|
./pkg/ptracers/ptracers_readparms.F |
216 |
PTRACERS_READPARMS |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_readparms.F |
217 |
PTRACERS_READPARMS |
PTRACERS_diffKrNr(k,iTracer)=PTRACERS_diffKr(iTracer) |
|
./pkg/ptracers/ptracers_readparms.F |
39 |
PTRACERS_READPARMS |
INTEGER k, iTracer |
|
./pkg/ptracers/ptracers_reset.F |
118 |
PTRACERS_RESET |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_reset.F |
121 |
PTRACERS_RESET |
_Ptracers_som(i,j,k,bi,bj,n,iTracer) = 0. _d 0 |
|
./pkg/ptracers/ptracers_reset.F |
43 |
PTRACERS_RESET |
INTEGER i,j,k,bi,bj,iTracer |
|
./pkg/ptracers/ptracers_reset.F |
72 |
PTRACERS_RESET |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_reset.F |
75 |
PTRACERS_RESET |
pTracer(i,j,k,bi,bj,iTracer) = PTRACERS_ref(k,iTracer) |
|
./pkg/ptracers/ptracers_reset.F |
76 |
PTRACERS_RESET |
gpTrNm1(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/ptracers/ptracers_reset.F |
95 |
PTRACERS_RESET |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_reset.F |
98 |
PTRACERS_RESET |
IF (maskC(i,j,k,bi,bj).EQ.0.) |
|
./pkg/ptracers/ptracers_reset.F |
99 |
PTRACERS_RESET |
& pTracer(i,j,k,bi,bj,iTracer)=0. _d 0 |
|
./model/src/dynamics.F |
187 |
DYNAMICS |
INTEGER k, km1, kp1, kUp, kDown |
|
./model/src/dynamics.F |
301 |
DYNAMICS |
DO k=1,Nr |
|
./model/src/dynamics.F |
305 |
DYNAMICS |
gU(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/dynamics.F |
306 |
DYNAMICS |
gV(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/dynamics.F |
369 |
DYNAMICS |
DO k=1,Nr+1 |
|
./model/src/dynamics.F |
372 |
DYNAMICS |
kappaRU(i,j,k) = 0. _d 0 |
|
./model/src/dynamics.F |
373 |
DYNAMICS |
kappaRV(i,j,k) = 0. _d 0 |
|
./model/src/dynamics.F |
421 |
DYNAMICS |
DO k=1,Nr |
|
./model/src/dynamics.F |
427 |
DYNAMICS |
km1 = MAX(1,k-1) |
|
./model/src/dynamics.F |
428 |
DYNAMICS |
kp1 = MIN(k+1,Nr) |
|
./model/src/dynamics.F |
429 |
DYNAMICS |
kup = 1+MOD(k+1,2) |
|
./model/src/dynamics.F |
430 |
DYNAMICS |
kDown= 1+MOD(k,2) |
|
./model/src/dynamics.F |
433 |
DYNAMICS |
kkey = (idynkey-1)*Nr + k |
|
./model/src/dynamics.F |
482 |
DYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./model/src/dynamics.F |
491 |
DYNAMICS |
& 'Um_dPHdx', k, 1, 2, bi, bj, myThid ) |
|
./model/src/dynamics.F |
493 |
DYNAMICS |
& 'Vm_dPHdy', k, 1, 2, bi, bj, myThid ) |
|
./model/src/dynamics.F |
527 |
DYNAMICS |
I bi,bj,k,iMin,iMax,jMin,jMax, |
|
./model/src/dynamics.F |
537 |
DYNAMICS |
I bi,bj,k,iMin,iMax,jMin,jMax, |
|
./model/src/dynamics.F |
552 |
DYNAMICS |
I k, bi, bj, myThid ) |
|
./model/src/dynamics.F |
557 |
DYNAMICS |
I iMin,iMax,jMin,jMax, k, bi, bj, myThid ) |
|
./model/src/dynamics.F |
568 |
DYNAMICS |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./pkg/rbcs/rbcs_add_tendency.F |
110 |
RBCS_ADD_TENDENCY |
& - RBC_mask(i,j,k,bi,bj,irbc)*rec_tauRlx |
|
./pkg/rbcs/rbcs_add_tendency.F |
111 |
RBCS_ADD_TENDENCY |
& *( salt(i,j,k,bi,bj)- RBCsalt(i,j,k,bi,bj) ) |
|
./pkg/rbcs/rbcs_add_tendency.F |
125 |
RBCS_ADD_TENDENCY |
& - RBC_mask(i,j,k,bi,bj,irbc)*rec_tauRlx |
|
./pkg/rbcs/rbcs_add_tendency.F |
126 |
RBCS_ADD_TENDENCY |
& *( pTracer(i,j,k,bi,bj,iTracer) |
|
./pkg/rbcs/rbcs_add_tendency.F |
127 |
RBCS_ADD_TENDENCY |
& - RBC_ptracers(i,j,k,bi,bj,iTracer) ) |
|
./pkg/rbcs/rbcs_add_tendency.F |
12 |
RBCS_ADD_TENDENCY |
I k, bi, bj, tracerNum, |
|
./pkg/rbcs/rbcs_add_tendency.F |
42 |
RBCS_ADD_TENDENCY |
INTEGER k, bi, bj |
|
./pkg/rbcs/rbcs_add_tendency.F |
74 |
RBCS_ADD_TENDENCY |
& - RBC_maskU(i,j,k,bi,bj)*rec_tauRlx |
|
./pkg/rbcs/rbcs_add_tendency.F |
75 |
RBCS_ADD_TENDENCY |
& *( uVel(i,j,k,bi,bj)- RBCuVel(i,j,k,bi,bj) ) |
|
./pkg/rbcs/rbcs_add_tendency.F |
84 |
RBCS_ADD_TENDENCY |
& - RBC_maskV(i,j,k,bi,bj)*rec_tauRlx |
|
./pkg/rbcs/rbcs_add_tendency.F |
85 |
RBCS_ADD_TENDENCY |
& *( vVel(i,j,k,bi,bj)- RBCvVel(i,j,k,bi,bj) ) |
|
./pkg/rbcs/rbcs_add_tendency.F |
97 |
RBCS_ADD_TENDENCY |
& - RBC_mask(i,j,k,bi,bj,irbc)*rec_tauRlx |
|
./pkg/rbcs/rbcs_add_tendency.F |
98 |
RBCS_ADD_TENDENCY |
& *( theta(i,j,k,bi,bj)- RBCtemp(i,j,k,bi,bj) ) |
|
./pkg/rbcs/rbcs_fields_load.F |
235 |
RBCS_FIELDS_LOAD |
DO k=1,Nr |
|
./pkg/rbcs/rbcs_fields_load.F |
238 |
RBCS_FIELDS_LOAD |
RBCuVel(i,j,k,bi,bj) = bWght*rbcu0(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
239 |
RBCS_FIELDS_LOAD |
& +aWght*rbcu1(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
240 |
RBCS_FIELDS_LOAD |
RBCvVel(i,j,k,bi,bj) = bWght*rbcv0(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
241 |
RBCS_FIELDS_LOAD |
& +aWght*rbcv1(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
247 |
RBCS_FIELDS_LOAD |
DO k=1,Nr |
|
./pkg/rbcs/rbcs_fields_load.F |
250 |
RBCS_FIELDS_LOAD |
RBCtemp(i,j,k,bi,bj) = bWght*rbct0(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
251 |
RBCS_FIELDS_LOAD |
& +aWght*rbct1(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
252 |
RBCS_FIELDS_LOAD |
RBCsalt(i,j,k,bi,bj) = bWght*rbcs0(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
253 |
RBCS_FIELDS_LOAD |
& +aWght*rbcs1(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_fields_load.F |
266 |
RBCS_FIELDS_LOAD |
DO k=1,Nr |
|
./pkg/rbcs/rbcs_fields_load.F |
269 |
RBCS_FIELDS_LOAD |
RBC_ptracers(i,j,k,bi,bj,iTracer) = |
|
./pkg/rbcs/rbcs_fields_load.F |
270 |
RBCS_FIELDS_LOAD |
& bWght*rbcptr0(i,j,k,bi,bj,iTracer) |
|
./pkg/rbcs/rbcs_fields_load.F |
271 |
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 |
|
./pkg/rbcs/rbcs_init_fixed.F |
197 |
RBCS_INIT_FIXED |
DO k=1,Nr |
|
./pkg/rbcs/rbcs_init_fixed.F |
200 |
RBCS_INIT_FIXED |
RBC_maskU(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_fixed.F |
201 |
RBCS_INIT_FIXED |
RBC_maskV(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_fixed.F |
217 |
RBCS_INIT_FIXED |
DO k=1,Nr |
|
./pkg/rbcs/rbcs_init_fixed.F |
220 |
RBCS_INIT_FIXED |
RBC_mask(i,j,k,bi,bj,irbc) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_fixed.F |
240 |
RBCS_INIT_FIXED |
DO k=1,Nr |
|
./pkg/rbcs/rbcs_init_fixed.F |
243 |
RBCS_INIT_FIXED |
RBC_mask(i,j,k,bi,bj,irbc) = RBC_mask(i,j,k,bi,bj,irbc) |
|
./pkg/rbcs/rbcs_init_fixed.F |
244 |
RBCS_INIT_FIXED |
& * maskC(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_init_fixed.F |
264 |
RBCS_INIT_FIXED |
DO k=1,Nr |
|
./pkg/rbcs/rbcs_init_fixed.F |
267 |
RBCS_INIT_FIXED |
RBC_maskU(i,j,k,bi,bj) = |
|
./pkg/rbcs/rbcs_init_fixed.F |
268 |
RBCS_INIT_FIXED |
& ( RBC_mask(i-1,j,k,bi,bj,1) |
|
./pkg/rbcs/rbcs_init_fixed.F |
269 |
RBCS_INIT_FIXED |
& + RBC_mask( i ,j,k,bi,bj,1) )*0.5 _d 0 |
|
./pkg/rbcs/rbcs_init_fixed.F |
281 |
RBCS_INIT_FIXED |
DO k=1,Nr |
|
./pkg/rbcs/rbcs_init_fixed.F |
284 |
RBCS_INIT_FIXED |
RBC_maskV(i,j,k,bi,bj) = |
|
./pkg/rbcs/rbcs_init_fixed.F |
285 |
RBCS_INIT_FIXED |
& ( RBC_mask(i,j-1,k,bi,bj,1) |
|
./pkg/rbcs/rbcs_init_fixed.F |
286 |
RBCS_INIT_FIXED |
& + RBC_mask(i, j ,k,bi,bj,1) )*0.5 _d 0 |
|
./pkg/rbcs/rbcs_init_fixed.F |
298 |
RBCS_INIT_FIXED |
DO k=1,Nr |
|
./pkg/rbcs/rbcs_init_fixed.F |
301 |
RBCS_INIT_FIXED |
RBC_maskU(i,j,k,bi,bj) = RBC_maskU(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_init_fixed.F |
302 |
RBCS_INIT_FIXED |
& * maskW(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_init_fixed.F |
303 |
RBCS_INIT_FIXED |
RBC_maskV(i,j,k,bi,bj) = RBC_maskV(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_init_fixed.F |
304 |
RBCS_INIT_FIXED |
& * maskS(i,j,k,bi,bj) |
|
./pkg/rbcs/rbcs_init_fixed.F |
40 |
RBCS_INIT_FIXED |
INTEGER i,j,k,bi,bj |
|
./pkg/rbcs/rbcs_init_varia.F |
34 |
RBCS_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/rbcs/rbcs_init_varia.F |
42 |
RBCS_INIT_VARIA |
DO k=1,Nr |
|
./pkg/rbcs/rbcs_init_varia.F |
46 |
RBCS_INIT_VARIA |
rbcu0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
47 |
RBCS_INIT_VARIA |
rbcv0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
48 |
RBCS_INIT_VARIA |
rbcu1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
49 |
RBCS_INIT_VARIA |
rbcv1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
50 |
RBCS_INIT_VARIA |
RBCuVel(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
51 |
RBCS_INIT_VARIA |
RBCvVel(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
53 |
RBCS_INIT_VARIA |
rbct0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
54 |
RBCS_INIT_VARIA |
rbcs0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
55 |
RBCS_INIT_VARIA |
rbct1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
56 |
RBCS_INIT_VARIA |
rbcs1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
57 |
RBCS_INIT_VARIA |
RBCtemp(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
58 |
RBCS_INIT_VARIA |
RBCsalt(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
70 |
RBCS_INIT_VARIA |
DO k=1,Nr |
|
./pkg/rbcs/rbcs_init_varia.F |
73 |
RBCS_INIT_VARIA |
rbcptr0(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
74 |
RBCS_INIT_VARIA |
rbcptr1(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
75 |
RBCS_INIT_VARIA |
RBC_ptracers(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./model/src/external_forcing.F |
428 |
EXTERNAL_FORCING_T |
& + frictionHeating(i,j,k,bi,bj)*tmpFac |
|
./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/find_alpha.F |
126 |
FIND_ALPHA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
132 |
FIND_ALPHA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
140 |
FIND_ALPHA |
t1 = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
148 |
FIND_ALPHA |
s1 = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
18 |
FIND_ALPHA |
I bi, bj, iMin, iMax, jMin, jMax, k, kRef, |
|
./model/src/find_alpha.F |
233 |
FIND_ALPHA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
239 |
FIND_ALPHA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
245 |
FIND_ALPHA |
t1 = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
247 |
FIND_ALPHA |
s1 = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
291 |
FIND_ALPHA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
297 |
FIND_ALPHA |
ct = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
298 |
FIND_ALPHA |
sa = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
348 |
FIND_BETA |
I bi, bj, iMin, iMax, jMin, jMax, k, kRef, |
|
./model/src/find_alpha.F |
381 |
FIND_BETA |
INTEGER k |
|
./model/src/find_alpha.F |
423 |
FIND_BETA |
tP=theta(i,j,k,bi,bj)-refTemp |
|
./model/src/find_alpha.F |
424 |
FIND_BETA |
sP=salt(i,j,k,bi,bj)-refSalt |
|
./model/src/find_alpha.F |
454 |
FIND_BETA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
460 |
FIND_BETA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
468 |
FIND_BETA |
t1 = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
472 |
FIND_BETA |
s1 = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
51 |
FIND_ALPHA |
INTEGER k |
|
./model/src/find_alpha.F |
547 |
FIND_BETA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
553 |
FIND_BETA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
559 |
FIND_BETA |
t1 = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
561 |
FIND_BETA |
s1 = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
598 |
FIND_BETA |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/find_alpha.F |
604 |
FIND_BETA |
ct = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
605 |
FIND_BETA |
sa = salt(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
93 |
FIND_ALPHA |
tP=theta(i,j,k,bi,bj)-refTemp |
|
./model/src/find_alpha.F |
94 |
FIND_ALPHA |
sP=salt(i,j,k,bi,bj)-refSalt |
|
./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) |
|
./model/src/find_hyd_press_1d.F |
100 |
FIND_HYD_PRESS_1D |
dRlocP = halfRL*drC(k+1) |
|
./model/src/find_hyd_press_1d.F |
101 |
FIND_HYD_PRESS_1D |
IF (k.EQ.1) dRlocM = drC(k) |
|
./model/src/find_hyd_press_1d.F |
102 |
FIND_HYD_PRESS_1D |
IF (k.EQ.Nr) dRlocP = drC(k+1) |
|
./model/src/find_hyd_press_1d.F |
103 |
FIND_HYD_PRESS_1D |
pCen(k) = pInt(k) |
|
./model/src/find_hyd_press_1d.F |
104 |
FIND_HYD_PRESS_1D |
& + rhoCen(k)*gravity*gravFacF(k)*dRlocM |
|
./model/src/find_hyd_press_1d.F |
105 |
FIND_HYD_PRESS_1D |
pInt(k+1) = pCen(k) |
|
./model/src/find_hyd_press_1d.F |
106 |
FIND_HYD_PRESS_1D |
& + rhoCen(k)*gravity*gravFacF(k+1)*dRlocP |
|
./model/src/find_hyd_press_1d.F |
111 |
FIND_HYD_PRESS_1D |
DO k=1,Nr |
|
./model/src/find_hyd_press_1d.F |
113 |
FIND_HYD_PRESS_1D |
I tCen(k), sCen(k), pCen(k), |
|
./model/src/find_hyd_press_1d.F |
114 |
FIND_HYD_PRESS_1D |
O rhoLoc(k), myThid ) |
|
./model/src/find_hyd_press_1d.F |
120 |
FIND_HYD_PRESS_1D |
DO k=1,Nr |
|
./model/src/find_hyd_press_1d.F |
121 |
FIND_HYD_PRESS_1D |
dRho = rhoLoc(k)-rhoCen(k) |
|
./model/src/find_hyd_press_1d.F |
146 |
FIND_HYD_PRESS_1D |
DO k=1,Nr |
|
./model/src/find_hyd_press_1d.F |
147 |
FIND_HYD_PRESS_1D |
rhoCen(k) = rhoLoc(k) |
|
./model/src/find_hyd_press_1d.F |
167 |
FIND_HYD_PRESS_1D |
DO k=1,Nr |
|
./model/src/find_hyd_press_1d.F |
168 |
FIND_HYD_PRESS_1D |
rhoCen(k) = rhoLoc(k) |
|
./model/src/find_hyd_press_1d.F |
58 |
FIND_HYD_PRESS_1D |
INTEGER k, n |
|
./model/src/find_hyd_press_1d.F |
91 |
FIND_HYD_PRESS_1D |
DO k=1,Nr |
|
./model/src/find_hyd_press_1d.F |
92 |
FIND_HYD_PRESS_1D |
pCen(k) = pInt(k) |
|
./model/src/find_hyd_press_1d.F |
93 |
FIND_HYD_PRESS_1D |
& + rhoCen(k)*gravity*gravFacC(k)*drF(k)*halfRL |
|
./model/src/find_hyd_press_1d.F |
94 |
FIND_HYD_PRESS_1D |
pInt(k+1) = pInt(k) |
|
./model/src/find_hyd_press_1d.F |
95 |
FIND_HYD_PRESS_1D |
& + rhoCen(k)*gravity*gravFacC(k)*drF(k) |
|
./model/src/find_hyd_press_1d.F |
98 |
FIND_HYD_PRESS_1D |
DO k=1,Nr |
|
./model/src/find_hyd_press_1d.F |
99 |
FIND_HYD_PRESS_1D |
dRlocM = halfRL*drC(k) |
|
./model/src/find_rho.F |
1188 |
LOOK_FOR_NEG_SALINITY |
I k, bi, bj, myThid ) |
|
./model/src/find_rho.F |
1213 |
LOOK_FOR_NEG_SALINITY |
INTEGER k, bi, bj |
|
./model/src/find_rho.F |
1235 |
LOOK_FOR_NEG_SALINITY |
& ' from level k =', k, ' ; bi,bj =', bi, bj |
|
./model/src/find_rho.F |
31 |
FIND_RHO_2D |
I k, bi, bj, myThid ) |
|
./model/src/find_rho.F |
61 |
FIND_RHO_2D |
INTEGER k, bi, bj |
|
./model/src/find_rho.F |
91 |
FIND_RHO_2D |
I k, bi, bj, myThid ) |
|
./pkg/salt_plume/salt_plume_apply.F |
150 |
SALT_PLUME_APPLY |
DO k=1,Nr |
|
./pkg/salt_plume/salt_plume_apply.F |
153 |
SALT_PLUME_APPLY |
plumetend(i,j,k) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_apply.F |
154 |
SALT_PLUME_APPLY |
work(i,j,k) = tracer(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_apply.F |
173 |
SALT_PLUME_APPLY |
DO k=1,Nr |
|
./pkg/salt_plume/salt_plume_apply.F |
176 |
SALT_PLUME_APPLY |
SPforcingT(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/salt_plume/salt_plume_apply.F |
182 |
SALT_PLUME_APPLY |
DO k=1,Nr |
|
./pkg/salt_plume/salt_plume_apply.F |
185 |
SALT_PLUME_APPLY |
SPforcingS(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/salt_plume/salt_plume_apply.F |
191 |
SALT_PLUME_APPLY |
DO k=Nr,1,-1 |
|
./pkg/salt_plume/salt_plume_apply.F |
192 |
SALT_PLUME_APPLY |
kp1=k+1 |
|
./pkg/salt_plume/salt_plume_apply.F |
199 |
SALT_PLUME_APPLY |
gTr_Surf2kLev = dSPvolSurf2kLev(i,j,k,bi,bj) * SurfVal |
|
./pkg/salt_plume/salt_plume_apply.F |
206 |
SALT_PLUME_APPLY |
gTr_kLev2Above= dSPvolkLev2Above(i,j,k,bi,bj) * work(i,j,k) |
|
./pkg/salt_plume/salt_plume_apply.F |
210 |
SALT_PLUME_APPLY |
plumetend(i,j,k) = ConvertFac * |
|
./pkg/salt_plume/salt_plume_apply.F |
212 |
SALT_PLUME_APPLY |
IF(k.eq.1) plumetend(i,j,k) = ConvertFac * |
|
./pkg/salt_plume/salt_plume_apply.F |
225 |
SALT_PLUME_APPLY |
SPforcingS(i,j,k,bi,bj)=plumetend(i,j,k) |
|
./pkg/salt_plume/salt_plume_apply.F |
228 |
SALT_PLUME_APPLY |
SPforcingT(i,j,k,bi,bj)=plumetend(i,j,k) |
|
./pkg/salt_plume/salt_plume_apply.F |
245 |
SALT_PLUME_APPLY |
DO k=Nr,1,-1 |
|
./pkg/salt_plume/salt_plume_apply.F |
246 |
SALT_PLUME_APPLY |
kp1=k+1 |
|
./pkg/salt_plume/salt_plume_apply.F |
250 |
SALT_PLUME_APPLY |
& plumetend(i,j,k)=SPforcingT(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_apply.F |
252 |
SALT_PLUME_APPLY |
plumetend(i,j,k)=SPforcingS(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_apply.F |
70 |
SALT_PLUME_APPLY |
INTEGER i, j, k |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
101 |
SALT_PLUME_CALC_DEPTH |
DO k = 2,Nr |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
103 |
SALT_PLUME_CALC_DEPTH |
kkey = (ikey-1)*Nr + k |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
122 |
SALT_PLUME_CALC_DEPTH |
IF ( k.LE.klowC(i,j,bi,bj) .AND. |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
130 |
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 |
148 |
SALT_PLUME_CALC_DEPTH |
DO k=2,Nr |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
150 |
SALT_PLUME_CALC_DEPTH |
kkey = (ikey-1)*Nr + k |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
156 |
SALT_PLUME_CALC_DEPTH |
GG =-1.0*sigmaR(i,j,k) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
157 |
SALT_PLUME_CALC_DEPTH |
GGm1=-1.0*sigmaR(i,j,k-1) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
158 |
SALT_PLUME_CALC_DEPTH |
IF ( k.LE.klowC(i,j,bi,bj) .AND. |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
164 |
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 |
58 |
SALT_PLUME_CALC_DEPTH |
INTEGER i,j,k |
|
./pkg/salt_plume/salt_plume_init_varia.F |
30 |
SALT_PLUME_INIT_VARIA |
INTEGER k |
|
./pkg/salt_plume/salt_plume_init_varia.F |
46 |
SALT_PLUME_INIT_VARIA |
DO k=1,Nr |
|
./pkg/salt_plume/salt_plume_init_varia.F |
47 |
SALT_PLUME_INIT_VARIA |
dSPvolSurf2kLev (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
48 |
SALT_PLUME_INIT_VARIA |
dSPvolkLev2Above(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
49 |
SALT_PLUME_INIT_VARIA |
SPforcingS (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
50 |
SALT_PLUME_INIT_VARIA |
SPforcingT (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
51 |
SALT_PLUME_INIT_VARIA |
SPplumek (i,j,k,bi,bj) = 1. _d 0 |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
103 |
SALT_PLUME_TENDENCY_APPLY_S |
IF ( SaltPlumeDepth(i,j,bi,bj) .GT. ABS(rF(k)) ) THEN |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
106 |
SALT_PLUME_TENDENCY_APPLY_S |
& *maskC(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
109 |
SALT_PLUME_TENDENCY_APPLY_S |
plumetend(I,J) = SPforcingS(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
112 |
SALT_PLUME_TENDENCY_APPLY_S |
& *recip_drF(k)*mass2rUnit*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
11 |
SALT_PLUME_TENDENCY_APPLY_S |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
124 |
SALT_PLUME_TENDENCY_APPLY_S |
IF ( SaltPlumeDepth(i,j,bi,bj) .GT. ABS(rF(k)) ) THEN |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
127 |
SALT_PLUME_TENDENCY_APPLY_S |
plumekb(1)=ABS(rF(k)) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
128 |
SALT_PLUME_TENDENCY_APPLY_S |
plumekb(2)=ABS(rF(k+1)) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
144 |
SALT_PLUME_TENDENCY_APPLY_S |
plumefrac(I,J) = (plumekb(2)-plumekb(1))*maskC(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
147 |
SALT_PLUME_TENDENCY_APPLY_S |
plumetend(i,j) = SPforcingS(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
150 |
SALT_PLUME_TENDENCY_APPLY_S |
& *recip_drF(k)*mass2rUnit*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
162 |
SALT_PLUME_TENDENCY_APPLY_S |
& plumefrac,'PLUMEKB ',k,1,2,bi,bj,myThid ) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
164 |
SALT_PLUME_TENDENCY_APPLY_S |
& plumetend,'oceSPtnd',k,1,2,bi,bj,myThid ) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
41 |
SALT_PLUME_TENDENCY_APPLY_S |
INTEGER k, bi, bj |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
72 |
SALT_PLUME_TENDENCY_APPLY_S |
IF ( k .LT. Nr ) THEN |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
76 |
SALT_PLUME_TENDENCY_APPLY_S |
plumekb2D(i,j)=ABS(rF(k)) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
89 |
SALT_PLUME_TENDENCY_APPLY_S |
plumekb2D(i,j) = ABS(rF(k+1)) |
|
./pkg/salt_plume/salt_plume_tendency_apply_t.F |
11 |
SALT_PLUME_TENDENCY_APPLY_T |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/salt_plume/salt_plume_tendency_apply_t.F |
41 |
SALT_PLUME_TENDENCY_APPLY_T |
INTEGER k, bi, bj |
|
./pkg/salt_plume/salt_plume_tendency_apply_t.F |
58 |
SALT_PLUME_TENDENCY_APPLY_T |
IF ( SaltPlumeDepth(i,j,bi,bj) .GT. ABS(rF(k)) ) THEN |
|
./pkg/salt_plume/salt_plume_tendency_apply_t.F |
59 |
SALT_PLUME_TENDENCY_APPLY_T |
plumeEtend(i,j) = SPforcingT(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_t.F |
61 |
SALT_PLUME_TENDENCY_APPLY_T |
& *recip_drF(k)*mass2rUnit*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_t.F |
72 |
SALT_PLUME_TENDENCY_APPLY_T |
& plumeEtend,'oceEPtnd',k,1,2,bi,bj,myThid ) |
|
./pkg/salt_plume/salt_plume_volfrac.F |
109 |
SALT_PLUME_VOLFRAC |
SPplumek(i,j,k,bi,bj)=dMbdt(i,j) |
|
./pkg/salt_plume/salt_plume_volfrac.F |
110 |
SALT_PLUME_VOLFRAC |
IF(SPplumek(i,j,k,bi,bj).GT. 0.9999999) THEN |
|
./pkg/salt_plume/salt_plume_volfrac.F |
111 |
SALT_PLUME_VOLFRAC |
SPkBottom(i,j)=k |
|
./pkg/salt_plume/salt_plume_volfrac.F |
155 |
SALT_PLUME_VOLFRAC |
DO k=Nr,1,-1 |
|
./pkg/salt_plume/salt_plume_volfrac.F |
158 |
SALT_PLUME_VOLFRAC |
dplumek=SPplumek(i,j,k+1,bi,bj)-SPplumek(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_volfrac.F |
159 |
SALT_PLUME_VOLFRAC |
dSPvolSurf2kLev(i,j,k,bi,bj)=dplumek*SPbrineVolFlux(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_volfrac.F |
169 |
SALT_PLUME_VOLFRAC |
DO k=Nlev,1,-1 |
|
./pkg/salt_plume/salt_plume_volfrac.F |
170 |
SALT_PLUME_VOLFRAC |
kp1=k+1 |
|
./pkg/salt_plume/salt_plume_volfrac.F |
171 |
SALT_PLUME_VOLFRAC |
dSPvolkLev2Above(i,j,k,bi,bj)=dSPvolkLev2Above(i,j,kp1,bi,bj) |
|
./pkg/salt_plume/salt_plume_volfrac.F |
172 |
SALT_PLUME_VOLFRAC |
& - dSPvolSurf2kLev(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_volfrac.F |
68 |
SALT_PLUME_VOLFRAC |
INTEGER i,j,k,kp1,Nlev,Nrp1 |
|
./pkg/salt_plume/salt_plume_volfrac.F |
74 |
SALT_PLUME_VOLFRAC |
DO k=1,Nr |
|
./pkg/salt_plume/salt_plume_volfrac.F |
77 |
SALT_PLUME_VOLFRAC |
dSPvolSurf2kLev(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_volfrac.F |
78 |
SALT_PLUME_VOLFRAC |
dSPvolkLev2Above(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_volfrac.F |
79 |
SALT_PLUME_VOLFRAC |
SPplumek(i,j,k,bi,bj) = 1. _d 0 |
|
./pkg/salt_plume/salt_plume_volfrac.F |
93 |
SALT_PLUME_VOLFRAC |
DO k = Nrp1,1,-1 |
|
./pkg/salt_plume/salt_plume_volfrac.F |
97 |
SALT_PLUME_VOLFRAC |
dMbdt(i,j)=abs(rF(k)) |
|
./pkg/sbo/sbo_calc.F |
106 |
SBO_CALC |
integer bi, bj, i, j, k |
|
./pkg/sbo/sbo_calc.F |
235 |
SBO_CALC |
DO k = 1, Nr |
|
./pkg/sbo/sbo_calc.F |
236 |
SBO_CALC |
dvolume = rA(i,j,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
238 |
SBO_CALC |
& rhoInSitu(i,j,k,bi,bj) * dvolume |
|
./pkg/sbo/sbo_calc.F |
258 |
SBO_CALC |
DO k = 1, Nr |
|
./pkg/sbo/sbo_calc.F |
260 |
SBO_CALC |
& rhoInSitu(i,j,k,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
346 |
SBO_CALC |
DO k = 1, Nr |
|
./pkg/sbo/sbo_calc.F |
347 |
SBO_CALC |
dvolume = rA(i,j,bi,bj)*drF(k) |
|
./pkg/sbo/sbo_calc.F |
348 |
SBO_CALC |
& * maskC(i,j,k,bi,bj)*hFacC(i,j,k,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
350 |
SBO_CALC |
& ( VN(i,j,k,bi,bj)*SINlon(i,j,bi,bj) - |
|
./pkg/sbo/sbo_calc.F |
351 |
SBO_CALC |
& UE(i,j,k,bi,bj)* |
|
./pkg/sbo/sbo_calc.F |
355 |
SBO_CALC |
& (-VN(i,j,k,bi,bj)*COSlon(i,j,bi,bj) - |
|
./pkg/sbo/sbo_calc.F |
356 |
SBO_CALC |
& UE(i,j,k,bi,bj)* |
|
./pkg/sbo/sbo_calc.F |
360 |
SBO_CALC |
& UE(i,j,k,bi,bj)*COSlat(i,j,bi,bj) |
|
./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) = gTracer(i,j,k) |
|
./model/src/freesurf_rescale_g.F |
56 |
FREESURF_RESCALE_G |
gTracer(i,j,k) = gTracer(i,j,k) |
|
./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) = gTracer(i,j,k) |
|
./model/src/freesurf_rescale_g.F |
69 |
FREESURF_RESCALE_G |
& *_hFacC(i,j,k,bi,bj)/hFac_surfC(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
59 |
ADVECT |
INTEGER k |
|
./pkg/seaice/advect.F |
78 |
ADVECT |
DO k=1,2 |
|
./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/seaice/seaice_advection.F |
131 |
SEAICE_ADVECTION |
INTEGER i,j,k |
|
./pkg/seaice/seaice_advection.F |
243 |
SEAICE_ADVECTION |
k = 1 |
|
./pkg/seaice/seaice_advection.F |
258 |
SEAICE_ADVECTION |
maskLocW(i,j) = _maskW(i,j,k,bi,bj)*maskInW(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
259 |
SEAICE_ADVECTION |
maskLocS(i,j) = _maskS(i,j,k,bi,bj)*maskInS(i,j,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
261 |
SEAICE_ADVECTION |
maskLocW(i,j) = _maskW(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
262 |
SEAICE_ADVECTION |
maskLocS(i,j) = _maskS(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_advection.F |
368 |
SEAICE_ADVECTION |
CALL GAD_DST2U1_ADV_X( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
378 |
SEAICE_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_X( bi,bj,k, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
382 |
SEAICE_ADVECTION |
CALL GAD_DST3_ADV_X( bi,bj,k, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
386 |
SEAICE_ADVECTION |
CALL GAD_DST3FL_ADV_X( bi,bj,k, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
391 |
SEAICE_ADVECTION |
CALL GAD_OS7MP_ADV_X( bi,bj,k, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
570 |
SEAICE_ADVECTION |
CALL GAD_DST2U1_ADV_Y( bi,bj,k, advectionScheme, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
580 |
SEAICE_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_Y( bi,bj,k, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
584 |
SEAICE_ADVECTION |
CALL GAD_DST3_ADV_Y( bi,bj,k, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
588 |
SEAICE_ADVECTION |
CALL GAD_DST3FL_ADV_Y( bi,bj,k, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
593 |
SEAICE_ADVECTION |
CALL GAD_OS7MP_ADV_Y( bi,bj,k, .TRUE., |
|
./pkg/seaice/seaice_advection.F |
749 |
SEAICE_ADVECTION |
CALL DIAGNOSTICS_FILL(afx,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/seaice/seaice_advection.F |
751 |
SEAICE_ADVECTION |
CALL DIAGNOSTICS_FILL(afy,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/seaice/seaice_advection.F |
758 |
SEAICE_ADVECTION |
& .AND. k.LE.3 .AND. myIter.EQ.1+nIter0 |
|
./pkg/seaice/seaice_advection.F |
762 |
SEAICE_ADVECTION |
& afx,afy, k, standardMessageUnit,bi,bj,myThid ) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
123 |
SEAICE_BOTTOMDRAG_COEFFS |
DO k=1,nITD |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
133 |
SEAICE_BOTTOMDRAG_COEFFS |
hActual = HEFFITD(I,J,k,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
135 |
SEAICE_BOTTOMDRAG_COEFFS |
hCrit = ABS(R_low(I,J,bi,bj))*AREAITD(I,J,k,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
78 |
SEAICE_BOTTOMDRAG_COEFFS |
INTEGER k |
|
./pkg/seaice/seaice_calc_ice_strength.F |
138 |
SEAICE_CALC_ICE_STRENGTH |
DO k = 1, nITD |
|
./pkg/seaice/seaice_calc_ice_strength.F |
144 |
SEAICE_CALC_ICE_STRENGTH |
IF ( partFunc(i,j,k) .GT. 0. _d 0 ) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
146 |
SEAICE_CALC_ICE_STRENGTH |
& + partFunc(i,j,k) * ( - hActual(i,j,k)**2 |
|
./pkg/seaice/seaice_calc_ice_strength.F |
147 |
SEAICE_CALC_ICE_STRENGTH |
& + ( hrMax(i,j,k)**2 + hrMin(i,j,k)**2 |
|
./pkg/seaice/seaice_calc_ice_strength.F |
148 |
SEAICE_CALC_ICE_STRENGTH |
& + hrMax(i,j,k)*hrMin(i,j,k) )*tmpscal1 |
|
./pkg/seaice/seaice_calc_ice_strength.F |
149 |
SEAICE_CALC_ICE_STRENGTH |
& / ridgeRatio(i,j,k) ) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
154 |
SEAICE_CALC_ICE_STRENGTH |
DO k = 1, nITD |
|
./pkg/seaice/seaice_calc_ice_strength.F |
158 |
SEAICE_CALC_ICE_STRENGTH |
& + partFunc(i,j,k) * ( - hActual(i,j,k)**2 + |
|
./pkg/seaice/seaice_calc_ice_strength.F |
159 |
SEAICE_CALC_ICE_STRENGTH |
& ( hrMin(i,j,k)*hrMin(i,j,k) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
160 |
SEAICE_CALC_ICE_STRENGTH |
& + 2. _d 0 * hrMin(i,j,k)*hrExp(i,j,k) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
161 |
SEAICE_CALC_ICE_STRENGTH |
& + 2. _d 0 * hrExp(i,j,k)*hrExp(i,j,k) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
162 |
SEAICE_CALC_ICE_STRENGTH |
& )/ridgeRatio(i,j,k) ) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
68 |
SEAICE_CALC_ICE_STRENGTH |
INTEGER k |
|
./model/src/grad_sigma.F |
102 |
GRAD_SIGMA |
sigmaR(i,j,k)= maskC(i,j,k,bi,bj)*maskC(i,j,k-1,bi,bj) |
|
./model/src/grad_sigma.F |
103 |
GRAD_SIGMA |
& *recip_drC(k)*rkSign |
|
./model/src/grad_sigma.F |
10 |
GRAD_SIGMA |
I bi, bj, iMin, iMax, jMin, jMax, k, |
|
./model/src/grad_sigma.F |
40 |
GRAD_SIGMA |
INTEGER bi,bj,iMin,iMax,jMin,jMax,k |
|
./model/src/grad_sigma.F |
72 |
GRAD_SIGMA |
sigmaX(i,j,k)=_maskW(i,j,k,bi,bj) |
|
./model/src/grad_sigma.F |
87 |
GRAD_SIGMA |
sigmaY(i,j,k)=_maskS(i,j,k,bi,bj) |
|
./model/src/grad_sigma.F |
93 |
GRAD_SIGMA |
IF (k.EQ.1) THEN |
|
./model/src/grad_sigma.F |
96 |
GRAD_SIGMA |
sigmaR(i,j,k)= 0. _d 0 |
|
./pkg/seaice/seaice_calc_lhs.F |
76 |
SEAICE_CALC_LHS |
INTEGER k |
|
./pkg/seaice/seaice_calc_lhs.F |
93 |
SEAICE_CALC_LHS |
k=1 |
|
./pkg/seaice/seaice_calc_strainrates.F |
150 |
SEAICE_CALC_STRAINRATES |
hFacU = _maskW(i,j,k,bi,bj) - _maskW(i,j-1,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
151 |
SEAICE_CALC_STRAINRATES |
hFacV = _maskS(i,j,k,bi,bj) - _maskS(i-1,j,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
157 |
SEAICE_CALC_STRAINRATES |
& *maskC(i ,j ,k,bi,bj)*maskC(i-1,j ,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
158 |
SEAICE_CALC_STRAINRATES |
& *maskC(i ,j-1,k,bi,bj)*maskC(i-1,j-1,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
173 |
SEAICE_CALC_STRAINRATES |
hFacU = (_maskW(i,j,k,bi,bj) - _maskW(i,j-1,k,bi,bj))*third |
|
./pkg/seaice/seaice_calc_strainrates.F |
174 |
SEAICE_CALC_STRAINRATES |
hFacV = (_maskS(i,j,k,bi,bj) - _maskS(i-1,j,k,bi,bj))*third |
|
./pkg/seaice/seaice_calc_strainrates.F |
175 |
SEAICE_CALC_STRAINRATES |
hFacU = hFacU*( _maskW(i,j-2,k,bi,bj)*_maskW(i,j-1,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
176 |
SEAICE_CALC_STRAINRATES |
& + _maskW(i,j+1,k,bi,bj)*_maskW(i,j, k,bi,bj) ) |
|
./pkg/seaice/seaice_calc_strainrates.F |
177 |
SEAICE_CALC_STRAINRATES |
hFacV = hFacV*( _maskS(i-2,j,k,bi,bj)*_maskS(i-1,j,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
178 |
SEAICE_CALC_STRAINRATES |
& + _maskS(i+1,j,k,bi,bj)*_maskS(i ,j,k,bi,bj) ) |
|
./pkg/seaice/seaice_calc_strainrates.F |
193 |
SEAICE_CALC_STRAINRATES |
& - uFld(i,j-2,bi,bj)*_maskW(i,j-1,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
194 |
SEAICE_CALC_STRAINRATES |
& - uFld(i,j+1,bi,bj)*_maskW(i,j ,k,bi,bj) ) * hFacU |
|
./pkg/seaice/seaice_calc_strainrates.F |
196 |
SEAICE_CALC_STRAINRATES |
& - vFld(i-2,j,bi,bj)*_maskS(i-1,j,k,bi,bj) |
|
./pkg/seaice/seaice_calc_strainrates.F |
197 |
SEAICE_CALC_STRAINRATES |
& - vFld(i+1,j,bi,bj)*_maskS(i ,j,k,bi,bj) ) * hFacV |
|
./pkg/seaice/seaice_calc_strainrates.F |
76 |
SEAICE_CALC_STRAINRATES |
INTEGER k |
|
./pkg/seaice/seaice_calc_strainrates.F |
89 |
SEAICE_CALC_STRAINRATES |
k = 1 |
|
./pkg/seaice/seaice_calc_viscosities.F |
199 |
SEAICE_CALC_VISCOSITIES |
sumNorm = maskC(I,J, k,bi,bj)+maskC(I-1,J, k,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
200 |
SEAICE_CALC_VISCOSITIES |
& + maskC(I,J-1,k,bi,bj)+maskC(I-1,J-1,k,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
216 |
SEAICE_CALC_VISCOSITIES |
maskZ = maskC(I,J, k,bi,bj)*maskC(I-1,J, k,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
217 |
SEAICE_CALC_VISCOSITIES |
& * maskC(I,J-1,k,bi,bj)*maskC(I-1,J-1,k,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
78 |
SEAICE_CALC_VISCOSITIES |
INTEGER k |
|
./pkg/seaice/seaice_calc_viscosities.F |
86 |
SEAICE_CALC_VISCOSITIES |
k=1 |
|
./pkg/seaice/seaice_cost_concentration.F |
255 |
SEAICE_COST_CONCENTRATION |
do k = 1,nnzobs |
|
./pkg/seaice/seaice_cost_concentration.F |
258 |
SEAICE_COST_CONCENTRATION |
localobs(i,j,k,bi,bj) = spval |
|
./pkg/seaice/seaice_cost_concentration.F |
269 |
SEAICE_COST_CONCENTRATION |
do k = 1,nnzobs |
|
./pkg/seaice/seaice_cost_concentration.F |
283 |
SEAICE_COST_CONCENTRATION |
IF (localobs(i,j,k,bi,bj) .eq. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
285 |
SEAICE_COST_CONCENTRATION |
ELSEIF ((localobs(i,j,k,bi,bj).gt.0. _d 0 ) .and. |
|
./pkg/seaice/seaice_cost_concentration.F |
286 |
SEAICE_COST_CONCENTRATION |
& (localobs(i,j,k,bi,bj).lt.0.15 _d 0)) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
288 |
SEAICE_COST_CONCENTRATION |
ELSEIF ((localobs(i,j,k,bi,bj).ge.0.15 _d 0) .and. |
|
./pkg/seaice/seaice_cost_concentration.F |
289 |
SEAICE_COST_CONCENTRATION |
& (localobs(i,j,k,bi,bj).le.0.25 _d 0)) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
310 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj), localweight(i,j,bi,bj), |
|
./pkg/seaice/seaice_cost_concentration.F |
328 |
SEAICE_COST_CONCENTRATION |
do k = 1,nnzobs |
|
./pkg/seaice/seaice_cost_concentration.F |
331 |
SEAICE_COST_CONCENTRATION |
if (localobs(i,j,k,bi,bj) .LT. -1) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
347 |
SEAICE_COST_CONCENTRATION |
do k = 1,nnzobs |
|
./pkg/seaice/seaice_cost_concentration.F |
350 |
SEAICE_COST_CONCENTRATION |
cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_concentration.F |
351 |
SEAICE_COST_CONCENTRATION |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/seaice/seaice_cost_concentration.F |
352 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/seaice/seaice_cost_concentration.F |
353 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/seaice/seaice_cost_concentration.F |
354 |
SEAICE_COST_CONCENTRATION |
cmask(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_concentration.F |
360 |
SEAICE_COST_CONCENTRATION |
do k = 1,nnzobs |
|
./pkg/seaice/seaice_cost_concentration.F |
363 |
SEAICE_COST_CONCENTRATION |
localwww = localweight(i,j,bi,bj)*cmask(i,j,k) |
|
./pkg/seaice/seaice_cost_concentration.F |
366 |
SEAICE_COST_CONCENTRATION |
localwww = localModWeight(i,j,bi,bj)*cmask(i,j,k) |
|
./pkg/seaice/seaice_cost_concentration.F |
369 |
SEAICE_COST_CONCENTRATION |
junk = ( localbar(i,j,k,bi,bj) - |
|
./pkg/seaice/seaice_cost_concentration.F |
370 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj) ) |
|
./pkg/seaice/seaice_cost_concentration.F |
379 |
SEAICE_COST_CONCENTRATION |
& localbar(i,j,k,bi,bj), |
|
./pkg/seaice/seaice_cost_concentration.F |
380 |
SEAICE_COST_CONCENTRATION |
& localobs(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_concentration.F |
90 |
SEAICE_COST_CONCENTRATION |
integer i,j,k |
|
./pkg/seaice/seaice_cost_export.F |
32 |
SEAICE_COST_EXPORT |
integer i, j, k |
|
./pkg/seaice/seaice_cost_export.F |
50 |
SEAICE_COST_EXPORT |
do k = 1, kmaxdepth |
|
./pkg/seaice/seaice_cost_init_varia.F |
46 |
SEAICE_COST_INIT_VARIA |
integer i,j,k |
|
./pkg/seaice/seaice_cost_init_varia.F |
78 |
SEAICE_COST_INIT_VARIA |
k = 1 |
|
./pkg/seaice/seaice_cost_sss.F |
270 |
SEAICE_COST_SSS |
do k = 1,nnzobs |
|
./pkg/seaice/seaice_cost_sss.F |
273 |
SEAICE_COST_SSS |
localobs(i,j,k,bi,bj) = spval |
|
./pkg/seaice/seaice_cost_sss.F |
285 |
SEAICE_COST_SSS |
do k = 1,nnzobs |
|
./pkg/seaice/seaice_cost_sss.F |
288 |
SEAICE_COST_SSS |
if (localobs(i,j,k,bi,bj) .LT. -1) THEN |
|
./pkg/seaice/seaice_cost_sss.F |
304 |
SEAICE_COST_SSS |
do k = 1,nnzobs |
|
./pkg/seaice/seaice_cost_sss.F |
307 |
SEAICE_COST_SSS |
cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_sss.F |
308 |
SEAICE_COST_SSS |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/seaice/seaice_cost_sss.F |
309 |
SEAICE_COST_SSS |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/seaice/seaice_cost_sss.F |
310 |
SEAICE_COST_SSS |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/seaice/seaice_cost_sss.F |
311 |
SEAICE_COST_SSS |
cmask(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_sss.F |
317 |
SEAICE_COST_SSS |
do k = 1,nnzobs |
|
./pkg/seaice/seaice_cost_sss.F |
320 |
SEAICE_COST_SSS |
localwww = localweight(i,j,bi,bj)*cmask(i,j,k) |
|
./pkg/seaice/seaice_cost_sss.F |
323 |
SEAICE_COST_SSS |
if ( localobs(i,j,k,bi,bj) .GT. 0.0 .AND. |
|
./pkg/seaice/seaice_cost_sss.F |
329 |
SEAICE_COST_SSS |
junk = ( localbar(i,j,k,bi,bj) - SEAICE_clamp_salt ) |
|
./pkg/seaice/seaice_cost_sss.F |
345 |
SEAICE_COST_SSS |
& localbar(i,j,k,bi,bj), |
|
./pkg/seaice/seaice_cost_sss.F |
346 |
SEAICE_COST_SSS |
& areabar(i,j,k,bi,bj), |
|
./pkg/seaice/seaice_cost_sss.F |
347 |
SEAICE_COST_SSS |
& localobs(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_sss.F |
88 |
SEAICE_COST_SSS |
integer i,j,k |
|
./pkg/seaice/seaice_cost_sst.F |
270 |
SEAICE_COST_SST |
do k = 1,nnzobs |
|
./pkg/seaice/seaice_cost_sst.F |
273 |
SEAICE_COST_SST |
localobs(i,j,k,bi,bj) = spval |
|
./pkg/seaice/seaice_cost_sst.F |
285 |
SEAICE_COST_SST |
do k = 1,nnzobs |
|
./pkg/seaice/seaice_cost_sst.F |
288 |
SEAICE_COST_SST |
if (localobs(i,j,k,bi,bj) .LT. -1) THEN |
|
./pkg/seaice/seaice_cost_sst.F |
304 |
SEAICE_COST_SST |
do k = 1,nnzobs |
|
./pkg/seaice/seaice_cost_sst.F |
307 |
SEAICE_COST_SST |
cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_sst.F |
308 |
SEAICE_COST_SST |
if ( localobs(i,j,k,bi,bj) .lt. spminloc .or. |
|
./pkg/seaice/seaice_cost_sst.F |
309 |
SEAICE_COST_SST |
& localobs(i,j,k,bi,bj) .gt. spmaxloc .or. |
|
./pkg/seaice/seaice_cost_sst.F |
310 |
SEAICE_COST_SST |
& localobs(i,j,k,bi,bj) .eq. spzeroloc ) then |
|
./pkg/seaice/seaice_cost_sst.F |
311 |
SEAICE_COST_SST |
cmask(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_sst.F |
317 |
SEAICE_COST_SST |
do k = 1,nnzobs |
|
./pkg/seaice/seaice_cost_sst.F |
320 |
SEAICE_COST_SST |
localwww = localweight(i,j,bi,bj)*cmask(i,j,k) |
|
./pkg/seaice/seaice_cost_sst.F |
323 |
SEAICE_COST_SST |
if ( localobs(i,j,k,bi,bj) .GT. 0.0 .AND. |
|
./pkg/seaice/seaice_cost_sst.F |
326 |
SEAICE_COST_SST |
junk = ( localbar(i,j,k,bi,bj) - |
|
./pkg/seaice/seaice_cost_sst.F |
341 |
SEAICE_COST_SST |
& localbar(i,j,k,bi,bj), |
|
./pkg/seaice/seaice_cost_sst.F |
342 |
SEAICE_COST_SST |
& areabar(i,j,k,bi,bj), |
|
./pkg/seaice/seaice_cost_sst.F |
343 |
SEAICE_COST_SST |
& localobs(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_sst.F |
86 |
SEAICE_COST_SST |
integer i,j,k |
|
./pkg/seaice/seaice_cost_weights.F |
103 |
SEAICE_COST_WEIGHTS |
k = 1 |
|
./pkg/seaice/seaice_cost_weights.F |
116 |
SEAICE_COST_WEIGHTS |
& *frame(i,j)*_hFacC(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_weights.F |
127 |
SEAICE_COST_WEIGHTS |
& *frame(i,j)*_hFacC(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_weights.F |
47 |
SEAICE_COST_WEIGHTS |
integer i,j,k |
|
./model/src/impldiff.F |
100 |
IMPLDIFF |
deltaTX(k) = dTtracerLev(k) |
|
./model/src/impldiff.F |
103 |
IMPLDIFF |
DO k=1,Nr |
|
./model/src/impldiff.F |
104 |
IMPLDIFF |
deltaTX(k) = deltaTMom |
|
./model/src/impldiff.F |
109 |
IMPLDIFF |
DO k=1,Nr |
|
./model/src/impldiff.F |
117 |
IMPLDIFF |
locTr(i,j,k) = 0. _d 0 |
|
./model/src/impldiff.F |
133 |
IMPLDIFF |
DO k=2,Nr |
|
./model/src/impldiff.F |
141 |
IMPLDIFF |
a(i,j,k) = -deltaTX(k)*recip_hFac(i,j,k)*recip_drF(k) |
|
./model/src/impldiff.F |
142 |
IMPLDIFF |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./model/src/impldiff.F |
143 |
IMPLDIFF |
& *KappaRX(i,j, k )*recip_drC( k ) |
|
./model/src/impldiff.F |
144 |
IMPLDIFF |
& *deepFac2F(k)*rhoFacF(k) |
|
./model/src/impldiff.F |
145 |
IMPLDIFF |
IF (recip_hFac(i,j,k-1).EQ.0.) a(i,j,k)=0. |
|
./model/src/impldiff.F |
151 |
IMPLDIFF |
DO k=1,Nr-1 |
|
./model/src/impldiff.F |
159 |
IMPLDIFF |
c(i,j,k) = -deltaTX(k)*recip_hFac(i,j,k)*recip_drF(k) |
|
./model/src/impldiff.F |
160 |
IMPLDIFF |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./model/src/impldiff.F |
161 |
IMPLDIFF |
& *KappaRX(i,j,k+1)*recip_drC(k+1) |
|
./model/src/impldiff.F |
162 |
IMPLDIFF |
& *deepFac2F(k+1)*rhoFacF(k+1) |
|
./model/src/impldiff.F |
163 |
IMPLDIFF |
IF (recip_hFac(i,j,k+1).EQ.0.) c(i,j,k)=0. |
|
./model/src/impldiff.F |
179 |
IMPLDIFF |
DO k=1,Nr |
|
./model/src/impldiff.F |
187 |
IMPLDIFF |
b(i,j,k) = 1. _d 0 - ( a(i,j,k) + c(i,j,k) ) |
|
./model/src/impldiff.F |
195 |
IMPLDIFF |
DO k=1,Nr |
|
./model/src/impldiff.F |
203 |
IMPLDIFF |
bet(i,j,k) = 1. _d 0 |
|
./model/src/impldiff.F |
204 |
IMPLDIFF |
gam(i,j,k) = 0. _d 0 |
|
./model/src/impldiff.F |
212 |
IMPLDIFF |
k = 1 |
|
./model/src/impldiff.F |
231 |
IMPLDIFF |
DO k=2,Nr |
|
./model/src/impldiff.F |
240 |
IMPLDIFF |
gam(i,j,k) = c(i,j,k-1)*bet(i,j,k-1) |
|
./model/src/impldiff.F |
241 |
IMPLDIFF |
IF ( ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) .NE. 0.) |
|
./model/src/impldiff.F |
242 |
IMPLDIFF |
& bet(i,j,k) = 1. _d 0 / ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) |
|
./model/src/impldiff.F |
260 |
IMPLDIFF |
DO k=2,Nr |
|
./model/src/impldiff.F |
268 |
IMPLDIFF |
locTr(i,j,k) = bet(i,j,k)* |
|
./model/src/impldiff.F |
269 |
IMPLDIFF |
& (gTracer(i,j,k) - a(i,j,k)*locTr(i,j,k-1)) |
|
./model/src/impldiff.F |
276 |
IMPLDIFF |
DO k=Nr-1,1,-1 |
|
./model/src/impldiff.F |
284 |
IMPLDIFF |
locTr(i,j,k) = locTr(i,j,k) - gam(i,j,k+1)*locTr(i,j,k+1) |
|
./model/src/impldiff.F |
289 |
IMPLDIFF |
DO k=1,Nr |
|
./model/src/impldiff.F |
297 |
IMPLDIFF |
gTracer(i,j,k) = locTr(i,j,k) |
|
./model/src/impldiff.F |
320 |
IMPLDIFF |
DO k= 1,Nr |
|
./model/src/impldiff.F |
321 |
IMPLDIFF |
IF ( k.EQ.1 ) THEN |
|
./model/src/impldiff.F |
338 |
IMPLDIFF |
& -rA(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./model/src/impldiff.F |
339 |
IMPLDIFF |
& * KappaRX(i,j,k)*recip_drC(k)*rkSign |
|
./model/src/impldiff.F |
340 |
IMPLDIFF |
& * (gTracer(i,j,k) - gTracer(i,j,k-1)) |
|
./model/src/impldiff.F |
341 |
IMPLDIFF |
& * maskC(i,j,k,bi,bj) |
|
./model/src/impldiff.F |
342 |
IMPLDIFF |
& * maskC(i,j,k-1,bi,bj) |
|
./model/src/impldiff.F |
354 |
IMPLDIFF |
& -rAw(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./model/src/impldiff.F |
355 |
IMPLDIFF |
& * KappaRX(i,j,k)*recip_drC(k)*rkSign |
|
./model/src/impldiff.F |
356 |
IMPLDIFF |
& * (gTracer(i,j,k) - gTracer(i,j,k-1)) |
|
./model/src/impldiff.F |
357 |
IMPLDIFF |
& * _maskW(i,j,k,bi,bj) |
|
./model/src/impldiff.F |
358 |
IMPLDIFF |
& * _maskW(i,j,k-1,bi,bj) |
|
./model/src/impldiff.F |
370 |
IMPLDIFF |
& -rAs(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./model/src/impldiff.F |
371 |
IMPLDIFF |
& * KappaRX(i,j,k)*recip_drC(k)*rkSign |
|
./model/src/impldiff.F |
372 |
IMPLDIFF |
& * (gTracer(i,j,k) - gTracer(i,j,k-1)) |
|
./model/src/impldiff.F |
373 |
IMPLDIFF |
& * _maskS(i,j,k,bi,bj) |
|
./model/src/impldiff.F |
374 |
IMPLDIFF |
& * _maskS(i,j,k-1,bi,bj) |
|
./model/src/impldiff.F |
378 |
IMPLDIFF |
CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid) |
|
./model/src/impldiff.F |
382 |
IMPLDIFF |
& k, 1, 2,bi,bj, myThid ) |
|
./model/src/impldiff.F |
64 |
IMPLDIFF |
INTEGER i,j,k |
|
./model/src/impldiff.F |
92 |
IMPLDIFF |
DO k=1,Nr |
|
./model/src/impldiff.F |
93 |
IMPLDIFF |
deltaTX(k) = PTRACERS_dTLev(k) |
|
./model/src/impldiff.F |
99 |
IMPLDIFF |
DO k=1,Nr |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
51 |
SEAICE_CTRL_MAP_INI |
integer i,j,k |
|
./pkg/seaice/seaice_diagnostics_state.F |
53 |
SEAICE_DIAGNOSTICS_STATE |
INTEGER k |
|
./pkg/seaice/seaice_diagnostics_state.F |
82 |
SEAICE_DIAGNOSTICS_STATE |
DO k=1,SEAICE_multDim |
|
./pkg/seaice/seaice_diffusion.F |
105 |
SEAICE_DIFFUSION |
CALL DIAGNOSTICS_FILL(fZon,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/seaice/seaice_diffusion.F |
107 |
SEAICE_DIFFUSION |
CALL DIAGNOSTICS_FILL(fMer,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/seaice/seaice_diffusion.F |
68 |
SEAICE_DIFFUSION |
INTEGER i, j, k |
|
./pkg/seaice/seaice_diffusion.F |
80 |
SEAICE_DIFFUSION |
k = 1 |
|
./pkg/seaice/seaice_diffusion.F |
88 |
SEAICE_DIFFUSION |
CALL GAD_DIFF_X(bi,bj,k,xA,diffKh,iceFld,fZon,myThid) |
|
./pkg/seaice/seaice_diffusion.F |
90 |
SEAICE_DIFFUSION |
CALL GAD_DIFF_Y(bi,bj,k,yA,diffKh,iceFld,fMer,myThid) |
|
./pkg/seaice/seaice_do_ridging.F |
124 |
SEAICE_DO_RIDGING |
DO k=1,nITD |
|
./pkg/seaice/seaice_do_ridging.F |
127 |
SEAICE_DO_RIDGING |
openWater(i,j) = openWater(i,j) - AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
178 |
SEAICE_DO_RIDGING |
DO k=1,nITD |
|
./pkg/seaice/seaice_do_ridging.F |
181 |
SEAICE_DO_RIDGING |
netArea(i,j) = netArea(i,j) + AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
207 |
SEAICE_DO_RIDGING |
DO k=1,nITD |
|
./pkg/seaice/seaice_do_ridging.F |
210 |
SEAICE_DO_RIDGING |
areaPR(i,j,k) = AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
211 |
SEAICE_DO_RIDGING |
heffPR(i,j,k) = HEFFITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
212 |
SEAICE_DO_RIDGING |
hsnwPR(i,j,k) = HSNOWITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
238 |
SEAICE_DO_RIDGING |
DO k=1,nITD |
|
./pkg/seaice/seaice_do_ridging.F |
242 |
SEAICE_DO_RIDGING |
IF ( areaPR(i,j,k) .GT. SEAICE_area_reg |
|
./pkg/seaice/seaice_do_ridging.F |
243 |
SEAICE_DO_RIDGING |
& .AND. partFunc(i,j,k) .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
244 |
SEAICE_DO_RIDGING |
tmp = partFunc(i,j,k)*grossClosing(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
245 |
SEAICE_DO_RIDGING |
IF ( tmp .GT. AREAITD(i,j,k,bi,bj) ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
246 |
SEAICE_DO_RIDGING |
tmpFac = AREAITD(i,j,k,bi,bj)/tmp |
|
./pkg/seaice/seaice_do_ridging.F |
269 |
SEAICE_DO_RIDGING |
DO k=1,nITD |
|
./pkg/seaice/seaice_do_ridging.F |
273 |
SEAICE_DO_RIDGING |
doRidging(i,j) = areaPR(i,j,k) .GT. SEAICE_area_reg |
|
./pkg/seaice/seaice_do_ridging.F |
274 |
SEAICE_DO_RIDGING |
& .AND. partFunc(i,j,k) .GT. 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
282 |
SEAICE_DO_RIDGING |
ridgingArea(i,j) = partFunc(i,j,k)*grossClosing(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
283 |
SEAICE_DO_RIDGING |
IF ( ridgingArea(i,j) .GT. areaPR(i,j,k) ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
284 |
SEAICE_DO_RIDGING |
ridgingArea(i,j) = areaPR(i,j,k) |
|
./pkg/seaice/seaice_do_ridging.F |
286 |
SEAICE_DO_RIDGING |
areaFraction(i,j) = ridgingArea(i,j)/areaPR(i,j,k) |
|
./pkg/seaice/seaice_do_ridging.F |
287 |
SEAICE_DO_RIDGING |
ridgedArea(i,j) = ridgingArea(i,j)/ridgeRatio(i,j,k) |
|
./pkg/seaice/seaice_do_ridging.F |
290 |
SEAICE_DO_RIDGING |
ridgingHEFF(i,j) = heffPR(i,j,k) * areaFraction(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
291 |
SEAICE_DO_RIDGING |
ridgingHsnw(i,j) = hsnwPR(i,j,k) * areaFraction(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
302 |
SEAICE_DO_RIDGING |
AREAITD(i,j,k,bi,bj) = AREAITD(i,j,k,bi,bj) - ridgingArea(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
303 |
SEAICE_DO_RIDGING |
HEFFITD(i,j,k,bi,bj) = HEFFITD(i,j,k,bi,bj) - ridgingHeff(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
304 |
SEAICE_DO_RIDGING |
HSNOWITD(i,j,k,bi,bj)=HSNOWITD(i,j,k,bi,bj) - ridgingHsnw(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
325 |
SEAICE_DO_RIDGING |
IF ( hrMin(i,j,k) .GE. hLimit(l) .OR. |
|
./pkg/seaice/seaice_do_ridging.F |
326 |
SEAICE_DO_RIDGING |
& hrMax(i,j,k) .LE. hLimit(l-1) ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
332 |
SEAICE_DO_RIDGING |
hL = MAX(hrMin(i,j,k), hLimit(l-1)) |
|
./pkg/seaice/seaice_do_ridging.F |
333 |
SEAICE_DO_RIDGING |
hR = MIN(hrMax(i,j,k), hLimit(l)) |
|
./pkg/seaice/seaice_do_ridging.F |
335 |
SEAICE_DO_RIDGING |
& / ( hrMax(i,j,k) - hrMin(i,j,k) ) |
|
./pkg/seaice/seaice_do_ridging.F |
339 |
SEAICE_DO_RIDGING |
& / ( hrMax(i,j,k) + hrMin(i,j,k) ) |
|
./pkg/seaice/seaice_do_ridging.F |
351 |
SEAICE_DO_RIDGING |
& .AND. hrMin(i,j,k) .LT. hLimit(l) |
|
./pkg/seaice/seaice_do_ridging.F |
352 |
SEAICE_DO_RIDGING |
& .AND. hrExp(i,j,k) .NE. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
353 |
SEAICE_DO_RIDGING |
hL = MAX( hrMin(i,j,k), hLimit(l-1) ) |
|
./pkg/seaice/seaice_do_ridging.F |
355 |
SEAICE_DO_RIDGING |
expL = EXP(-( hL - hrMin(i,j,k) )/hrExp(i,j,k) ) |
|
./pkg/seaice/seaice_do_ridging.F |
356 |
SEAICE_DO_RIDGING |
expR = EXP(-( hR - hrMin(i,j,k) )/hrExp(i,j,k) ) |
|
./pkg/seaice/seaice_do_ridging.F |
359 |
SEAICE_DO_RIDGING |
& ( ( hL + hrExp(i,j,k) ) * expL |
|
./pkg/seaice/seaice_do_ridging.F |
360 |
SEAICE_DO_RIDGING |
& - ( hR + hrExp(i,j,k) ) * expR ) |
|
./pkg/seaice/seaice_do_ridging.F |
361 |
SEAICE_DO_RIDGING |
& / ( hrMin(i,j,k) + hrExp(i,j,k) ) |
|
./pkg/seaice/seaice_do_ridging.F |
368 |
SEAICE_DO_RIDGING |
IF ( doRidging(i,j) .AND. hrExp(i,j,k) .NE. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
369 |
SEAICE_DO_RIDGING |
hL = MAX( hrMin(i,j,k), hLimit(l-1) ) |
|
./pkg/seaice/seaice_do_ridging.F |
370 |
SEAICE_DO_RIDGING |
expL = EXP(-( hL - hrMin(i,j,k) )/hrExp(i,j,k) ) |
|
./pkg/seaice/seaice_do_ridging.F |
372 |
SEAICE_DO_RIDGING |
volFraction (i,j) = ( hL + hrExp(i,j,k) ) * expL |
|
./pkg/seaice/seaice_do_ridging.F |
373 |
SEAICE_DO_RIDGING |
& / ( hrMin(i,j,k) + hrExp(i,j,k) ) |
|
./pkg/seaice/seaice_do_ridging.F |
401 |
SEAICE_DO_RIDGING |
DO k=1,nITD |
|
./pkg/seaice/seaice_do_ridging.F |
404 |
SEAICE_DO_RIDGING |
netArea(i,j) = netArea(i,j) + AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
62 |
SEAICE_DO_RIDGING |
INTEGER k, l, n |
|
./pkg/seaice/seaice_fgmres.F |
343 |
SEAICE_FGMRES |
integer i1, ii, j, jj, k, k1!, n1 |
|
./pkg/seaice/seaice_fgmres.F |
416 |
SEAICE_FGMRES |
do k=1, n |
|
./pkg/seaice/seaice_fgmres.F |
417 |
SEAICE_FGMRES |
wk1(k,bi,bj) = vv(k,i,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
429 |
SEAICE_FGMRES |
do k=1, n |
|
./pkg/seaice/seaice_fgmres.F |
430 |
SEAICE_FGMRES |
w(k,i,bi,bj) = wk2(k,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
439 |
SEAICE_FGMRES |
do k=1,n |
|
./pkg/seaice/seaice_fgmres.F |
440 |
SEAICE_FGMRES |
wk1(k,bi,bj)=wk2(k,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
457 |
SEAICE_FGMRES |
do k=1,n |
|
./pkg/seaice/seaice_fgmres.F |
458 |
SEAICE_FGMRES |
vv(k,i1,bi,bj)=wk2(k,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
470 |
SEAICE_FGMRES |
do k=1,n |
|
./pkg/seaice/seaice_fgmres.F |
471 |
SEAICE_FGMRES |
vv(k,i1,bi,bj) = vv(k,i1,bi,bj) - t*vv(k,j,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
483 |
SEAICE_FGMRES |
do k=1,n |
|
./pkg/seaice/seaice_fgmres.F |
484 |
SEAICE_FGMRES |
vv(k,i1,bi,bj) = vv(k,i1,bi,bj)*t |
|
./pkg/seaice/seaice_fgmres.F |
497 |
SEAICE_FGMRES |
do k=2,i |
|
./pkg/seaice/seaice_fgmres.F |
498 |
SEAICE_FGMRES |
k1 = k-1 |
|
./pkg/seaice/seaice_fgmres.F |
500 |
SEAICE_FGMRES |
hh(k1,i,myThid) = c(k1,myThid)*t+s(k1,myThid)*hh(k,i,myThid) |
|
./pkg/seaice/seaice_fgmres.F |
501 |
SEAICE_FGMRES |
hh(k,i,myThid) = -s(k1,myThid)*t+c(k1,myThid)*hh(k,i,myThid) |
|
./pkg/seaice/seaice_fgmres.F |
549 |
SEAICE_FGMRES |
k=i-ii+1 |
|
./pkg/seaice/seaice_fgmres.F |
550 |
SEAICE_FGMRES |
k1 = k+1 |
|
./pkg/seaice/seaice_fgmres.F |
551 |
SEAICE_FGMRES |
t=rs(k,myThid) |
|
./pkg/seaice/seaice_fgmres.F |
553 |
SEAICE_FGMRES |
t = t-hh(k,j,myThid)*rs(j,myThid) |
|
./pkg/seaice/seaice_fgmres.F |
555 |
SEAICE_FGMRES |
rs(k,myThid) = t/hh(k,k,myThid) |
|
./pkg/seaice/seaice_fgmres.F |
565 |
SEAICE_FGMRES |
do k=1,n |
|
./pkg/seaice/seaice_fgmres.F |
566 |
SEAICE_FGMRES |
sol(k,bi,bj) = sol(k,bi,bj) + t*w(k,j,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
591 |
SEAICE_FGMRES |
do k=1,n |
|
./pkg/seaice/seaice_fgmres.F |
592 |
SEAICE_FGMRES |
vv(k,1,bi,bj) = vv(k,1,bi,bj) + t*vv(k,j,bi,bj) |
|
./pkg/seaice/seaice_init_fixed.F |
168 |
SEAICE_INIT_FIXED |
DO k=1,nITD-1 |
|
./pkg/seaice/seaice_init_fixed.F |
169 |
SEAICE_INIT_FIXED |
Hlimit(k) = Hlimit(k-1) |
|
./pkg/seaice/seaice_init_fixed.F |
172 |
SEAICE_INIT_FIXED |
& *( oneRL + TANH( Hlimit_c3 *( FLOAT(k-1)*tmpVar - oneRL ) ) ) |
|
./pkg/seaice/seaice_init_fixed.F |
185 |
SEAICE_INIT_FIXED |
& ' SEAICE_INIT_FIXED: Hlimit = ', (Hlimit(k),k=0,nITD) |
|
./pkg/seaice/seaice_init_fixed.F |
37 |
SEAICE_INIT_FIXED |
INTEGER k |
|
./pkg/seaice/seaice_init_varia.F |
261 |
SEAICE_INIT_VARIA |
DO k=1,nITD |
|
./pkg/seaice/seaice_init_varia.F |
262 |
SEAICE_INIT_VARIA |
AREAITD(i,j,k,bi,bj) =0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
263 |
SEAICE_INIT_VARIA |
HEFFITD(i,j,k,bi,bj) =0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
315 |
SEAICE_INIT_VARIA |
DO k=1,nITD |
|
./pkg/seaice/seaice_init_varia.F |
316 |
SEAICE_INIT_VARIA |
HSNOWITD(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
337 |
SEAICE_INIT_VARIA |
DO k=1,nITD |
|
./pkg/seaice/seaice_init_varia.F |
338 |
SEAICE_INIT_VARIA |
TICES(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
424 |
SEAICE_INIT_VARIA |
DO k=1,nITD |
|
./pkg/seaice/seaice_init_varia.F |
425 |
SEAICE_INIT_VARIA |
TICES(i,j,k,bi,bj)=273.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
45 |
SEAICE_INIT_VARIA |
INTEGER k |
|
./pkg/seaice/seaice_itd_pickup.F |
105 |
SEAICE_ITD_PICKUP |
DO k = 1, nITD |
|
./pkg/seaice/seaice_itd_pickup.F |
110 |
SEAICE_ITD_PICKUP |
AREAITD(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_pickup.F |
111 |
SEAICE_ITD_PICKUP |
HEFFITD(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_pickup.F |
112 |
SEAICE_ITD_PICKUP |
HSNOWITD(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_pickup.F |
160 |
SEAICE_ITD_PICKUP |
k=1 |
|
./pkg/seaice/seaice_itd_pickup.F |
162 |
SEAICE_ITD_PICKUP |
IF ( LND_x(LND_i).GT.Hlimit(k) ) k=k+1 |
|
./pkg/seaice/seaice_itd_pickup.F |
163 |
SEAICE_ITD_PICKUP |
AREAITD(i,j,k,bi,bj) = AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_pickup.F |
165 |
SEAICE_ITD_PICKUP |
HEFFITD(i,j,k,bi,bj) = HEFFITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_pickup.F |
77 |
SEAICE_ITD_PICKUP |
INTEGER i, j, bi, bj, k |
|
./pkg/seaice/seaice_itd_redist.F |
124 |
SEAICE_ITD_REDIST |
DO k=1,nITD-1 |
|
./pkg/seaice/seaice_itd_redist.F |
127 |
SEAICE_ITD_REDIST |
IF (AREAITD(i,j,k,bi,bj) .lt. 0.0) THEN |
|
./pkg/seaice/seaice_itd_redist.F |
130 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k+1,bi,bj) = AREAITD (i,j,k+1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
131 |
SEAICE_ITD_REDIST |
& + AREAITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
132 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
133 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k+1,bi,bj) = HEFFITD (i,j,k+1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
134 |
SEAICE_ITD_REDIST |
& + HEFFITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
135 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
136 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k+1,bi,bj) = HSNOWITD(i,j,k+1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
137 |
SEAICE_ITD_REDIST |
& + HSNOWITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
138 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
153 |
SEAICE_ITD_REDIST |
DO k=1,nITD-1 |
|
./pkg/seaice/seaice_itd_redist.F |
156 |
SEAICE_ITD_REDIST |
IF (HEFFITD(i,j,k,bi,bj) .gt. |
|
./pkg/seaice/seaice_itd_redist.F |
157 |
SEAICE_ITD_REDIST |
& Hlimit(k)*AREAITD(i,j,k,bi,bj)) THEN |
|
./pkg/seaice/seaice_itd_redist.F |
160 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k+1,bi,bj) = AREAITD (i,j,k+1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
161 |
SEAICE_ITD_REDIST |
& + AREAITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
162 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
163 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k+1,bi,bj) = HEFFITD (i,j,k+1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
164 |
SEAICE_ITD_REDIST |
& + HEFFITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
165 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
166 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k+1,bi,bj) = HSNOWITD(i,j,k+1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
167 |
SEAICE_ITD_REDIST |
& + HSNOWITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
168 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
180 |
SEAICE_ITD_REDIST |
DO k=nITD,2,-1 |
|
./pkg/seaice/seaice_itd_redist.F |
183 |
SEAICE_ITD_REDIST |
IF (HEFFITD(i,j,k,bi,bj) .lt. |
|
./pkg/seaice/seaice_itd_redist.F |
184 |
SEAICE_ITD_REDIST |
& Hlimit(k-1)*AREAITD(i,j,k,bi,bj)) THEN |
|
./pkg/seaice/seaice_itd_redist.F |
187 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k-1,bi,bj) = AREAITD (i,j,k-1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
188 |
SEAICE_ITD_REDIST |
& + AREAITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
189 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
190 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k-1,bi,bj) = HEFFITD (i,j,k-1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
191 |
SEAICE_ITD_REDIST |
& + HEFFITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
192 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
193 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k-1,bi,bj) = HSNOWITD(i,j,k-1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
194 |
SEAICE_ITD_REDIST |
& + HSNOWITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
195 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
73 |
SEAICE_ITD_REDIST |
INTEGER i, j, k |
|
./pkg/seaice/seaice_itd_redist.F |
93 |
SEAICE_ITD_REDIST |
DO k=1,nITD |
|
./pkg/seaice/seaice_itd_redist.F |
96 |
SEAICE_ITD_REDIST |
openWater(i,j) = openWater(i,j) - AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
120 |
SEAICE_ITD_REMAP |
DO k=1,nITD |
|
./pkg/seaice/seaice_itd_remap.F |
123 |
SEAICE_ITD_REMAP |
hActualPre (i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
124 |
SEAICE_ITD_REMAP |
hActual (i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
125 |
SEAICE_ITD_REMAP |
dhActual(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
127 |
SEAICE_ITD_REMAP |
IF ( areaitdPre(i,j,k) .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
128 |
SEAICE_ITD_REMAP |
hActualPre(i,j,k) = heffitdPre(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
129 |
SEAICE_ITD_REMAP |
& /SQRT( areaitdPre(i,j,k)**2 + area_reg_sq ) |
|
./pkg/seaice/seaice_itd_remap.F |
132 |
SEAICE_ITD_REMAP |
IF ( AREAITD(i,j,k,bi,bj) .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
133 |
SEAICE_ITD_REMAP |
hActual(i,j,k) = HEFFITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
134 |
SEAICE_ITD_REMAP |
& /SQRT( AREAITD(i,j,k,bi,bj)**2 + area_reg_sq ) |
|
./pkg/seaice/seaice_itd_remap.F |
137 |
SEAICE_ITD_REMAP |
dhActual(i,j,k) = hActual(i,j,k) - hActualPre(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
139 |
SEAICE_ITD_REMAP |
IF ( areaitdPre(i,j,k) .GT. SEAICE_area_reg ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
140 |
SEAICE_ITD_REMAP |
hActualPre(i,j,k) = heffitdPre(i,j,k)/areaitdPre(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
142 |
SEAICE_ITD_REMAP |
IF ( AREAITD(i,j,k,bi,bj) .GT. SEAICE_area_reg ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
143 |
SEAICE_ITD_REMAP |
hActual(i,j,k) = HEFFITD(i,j,k,bi,bj)/AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
145 |
SEAICE_ITD_REMAP |
dhActual(i,j,k) = hActual(i,j,k) - hActualPre(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
158 |
SEAICE_ITD_REMAP |
DO k=1,nITD-1 |
|
./pkg/seaice/seaice_itd_remap.F |
161 |
SEAICE_ITD_REMAP |
IF ( hActualPre(i,j,k) .GT.SEAICE_eps .AND. |
|
./pkg/seaice/seaice_itd_remap.F |
162 |
SEAICE_ITD_REMAP |
& hActualPre(i,j,k+1).GT.SEAICE_eps ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
163 |
SEAICE_ITD_REMAP |
slope = ( dhActual(i,j,k+1) - dhActual(i,j,k) ) |
|
./pkg/seaice/seaice_itd_remap.F |
164 |
SEAICE_ITD_REMAP |
& /( hActualPre(i,j,k+1) - hActualPre(i,j,k) ) |
|
./pkg/seaice/seaice_itd_remap.F |
165 |
SEAICE_ITD_REMAP |
hLimitNew(i,j,k) = hLimit(k) + dhActual(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
166 |
SEAICE_ITD_REMAP |
& + slope * ( hLimit(k) - hActualPre(i,j,k) ) |
|
./pkg/seaice/seaice_itd_remap.F |
167 |
SEAICE_ITD_REMAP |
ELSEIF ( hActualPre(i,j,k) .GT.SEAICE_eps ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
168 |
SEAICE_ITD_REMAP |
hLimitNew(i,j,k) = hLimit(k) + dhActual(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
169 |
SEAICE_ITD_REMAP |
ELSEIF ( hActualPre(i,j,k+1).GT.SEAICE_eps ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
170 |
SEAICE_ITD_REMAP |
hLimitNew(i,j,k) = hLimit(k) + dhActual(i,j,k+1) |
|
./pkg/seaice/seaice_itd_remap.F |
172 |
SEAICE_ITD_REMAP |
hLimitNew(i,j,k) = hLimit(k) |
|
./pkg/seaice/seaice_itd_remap.F |
176 |
SEAICE_ITD_REMAP |
IF ( ( AREAITD(i,j,k,bi,bj).GT.SEAICE_area_reg .AND. |
|
./pkg/seaice/seaice_itd_remap.F |
177 |
SEAICE_ITD_REMAP |
& hActual(i,j,k) .GE. hLimitNew(i,j,k) ) .OR. |
|
./pkg/seaice/seaice_itd_remap.F |
178 |
SEAICE_ITD_REMAP |
& ( AREAITD(i,j,k+1,bi,bj).GT.SEAICE_area_reg .AND. |
|
./pkg/seaice/seaice_itd_remap.F |
179 |
SEAICE_ITD_REMAP |
& hActual(i,j,k+1) .LE. hLimitNew(i,j,k) ) ) |
|
./pkg/seaice/seaice_itd_remap.F |
184 |
SEAICE_ITD_REMAP |
IF ( ( hLimitNew(i,j,k) .GT. hLimit(k+1) ) .OR. |
|
./pkg/seaice/seaice_itd_remap.F |
185 |
SEAICE_ITD_REMAP |
& ( hLimitNew(i,j,k) .LT. hLimit(k-1) ) ) |
|
./pkg/seaice/seaice_itd_remap.F |
200 |
SEAICE_ITD_REMAP |
k = nITD |
|
./pkg/seaice/seaice_itd_remap.F |
203 |
SEAICE_ITD_REMAP |
hLimitNew(i,j,k) = hLimit(k) |
|
./pkg/seaice/seaice_itd_remap.F |
204 |
SEAICE_ITD_REMAP |
IF ( AREAITD(i,j,k,bi,bj).GT.SEAICE_area_reg ) |
|
./pkg/seaice/seaice_itd_remap.F |
205 |
SEAICE_ITD_REMAP |
& hLimitNew(i,j,k) = MAX( 3. _d 0*hActual(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
206 |
SEAICE_ITD_REMAP |
& - 2. _d 0 * hLimitNew(i,j,k-1), hLimit(k-1) ) |
|
./pkg/seaice/seaice_itd_remap.F |
215 |
SEAICE_ITD_REMAP |
k = 1 |
|
./pkg/seaice/seaice_itd_remap.F |
219 |
SEAICE_ITD_REMAP |
aLoc(i,j) = AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
223 |
SEAICE_ITD_REMAP |
hL(i,j,k) = hLimitNew(i,j,k-1) |
|
./pkg/seaice/seaice_itd_remap.F |
224 |
SEAICE_ITD_REMAP |
hR(i,j,k) = hLimit(k) |
|
./pkg/seaice/seaice_itd_remap.F |
228 |
SEAICE_ITD_REMAP |
O g0(1,1,k), g1(1,1,k), |
|
./pkg/seaice/seaice_itd_remap.F |
229 |
SEAICE_ITD_REMAP |
U hL(1,1,k), hR(1,1,k), |
|
./pkg/seaice/seaice_itd_remap.F |
230 |
SEAICE_ITD_REMAP |
I hActual(1,1,k), aLoc, |
|
./pkg/seaice/seaice_itd_remap.F |
239 |
SEAICE_ITD_REMAP |
& AREAITD(i,j,k,bi,bj) .GT. SEAICE_area_reg ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
241 |
SEAICE_ITD_REMAP |
IF ( dhActual(i,j,k) .LT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
244 |
SEAICE_ITD_REMAP |
dh0 = MIN(-dhActual(i,j,k),hLimit(k)) |
|
./pkg/seaice/seaice_itd_remap.F |
245 |
SEAICE_ITD_REMAP |
etaMax = MIN(dh0,hR(i,j,k)) - hL(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
248 |
SEAICE_ITD_REMAP |
da0 = g0(i,j,k)*etaMax + g1(i,j,k)*etaMax*etaMax*0.5 _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
249 |
SEAICE_ITD_REMAP |
daMax = AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
250 |
SEAICE_ITD_REMAP |
& * ( 1. _d 0 - hActual(i,j,k)/hActualPre(i,j,k)) |
|
./pkg/seaice/seaice_itd_remap.F |
253 |
SEAICE_ITD_REMAP |
IF ( (AREAITD(i,j,k,bi,bj)-da0) .GT. SEAICE_area_reg ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
254 |
SEAICE_ITD_REMAP |
hActual(i,j,k) = hActual(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
255 |
SEAICE_ITD_REMAP |
& * AREAITD(i,j,k,bi,bj)/( AREAITD(i,j,k,bi,bj) - da0 ) |
|
./pkg/seaice/seaice_itd_remap.F |
257 |
SEAICE_ITD_REMAP |
hActual(i,j,k) = ZERO |
|
./pkg/seaice/seaice_itd_remap.F |
258 |
SEAICE_ITD_REMAP |
da0 = AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
261 |
SEAICE_ITD_REMAP |
AREAITD(i,j,k,bi,bj) = AREAITD(i,j,k,bi,bj) - da0 |
|
./pkg/seaice/seaice_itd_remap.F |
265 |
SEAICE_ITD_REMAP |
hLimitNew(i,j,k-1) = MIN( dhActual(i,j,k), hLimit(k) ) |
|
./pkg/seaice/seaice_itd_remap.F |
273 |
SEAICE_ITD_REMAP |
DO k=1,nITD |
|
./pkg/seaice/seaice_itd_remap.F |
277 |
SEAICE_ITD_REMAP |
aLoc(i,j) = AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
279 |
SEAICE_ITD_REMAP |
hL(i,j,k) = hLimitNew(i,j,k-1) |
|
./pkg/seaice/seaice_itd_remap.F |
280 |
SEAICE_ITD_REMAP |
hR(i,j,k) = hLimitNew(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
284 |
SEAICE_ITD_REMAP |
O g0(1,1,k), g1(1,1,k), |
|
./pkg/seaice/seaice_itd_remap.F |
285 |
SEAICE_ITD_REMAP |
U hL(1,1,k), hR(1,1,k), |
|
./pkg/seaice/seaice_itd_remap.F |
286 |
SEAICE_ITD_REMAP |
I hActual(1,1,k), aLoc, |
|
./pkg/seaice/seaice_itd_remap.F |
291 |
SEAICE_ITD_REMAP |
DO k=1,nITD-1 |
|
./pkg/seaice/seaice_itd_remap.F |
298 |
SEAICE_ITD_REMAP |
IF ( hLimitNew(i,j,k) .GT. hLimit(k) ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
299 |
SEAICE_ITD_REMAP |
etaMin = MAX( hLimit(k), hL(i,j,k)) - hL(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
300 |
SEAICE_ITD_REMAP |
etaMax = MIN(hLimitNew(i,j,k), hR(i,j,k)) - hL(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
301 |
SEAICE_ITD_REMAP |
kDonor = k |
|
./pkg/seaice/seaice_itd_remap.F |
302 |
SEAICE_ITD_REMAP |
kRecvr = k+1 |
|
./pkg/seaice/seaice_itd_remap.F |
305 |
SEAICE_ITD_REMAP |
etaMax = MIN(hLimit(k), hR(i,j,k+1)) - hL(i,j,k+1) |
|
./pkg/seaice/seaice_itd_remap.F |
306 |
SEAICE_ITD_REMAP |
kDonor = k+1 |
|
./pkg/seaice/seaice_itd_remap.F |
307 |
SEAICE_ITD_REMAP |
kRecvr = k |
|
./pkg/seaice/seaice_itd_remap.F |
533 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
INTEGER i, j, k |
|
./pkg/seaice/seaice_itd_remap.F |
541 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
DO k=1,nITD-1 |
|
./pkg/seaice/seaice_itd_remap.F |
544 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
IF ( AREAITD(i,j,k,bi,bj).GT.SEAICE_area_reg .AND. |
|
./pkg/seaice/seaice_itd_remap.F |
545 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
& hActual(i,j,k) .GE. hLimitNew(i,j,k) ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
548 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
& 'for category ', k, tmpBuf |
|
./pkg/seaice/seaice_itd_remap.F |
554 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
IF ( AREAITD(i,j,k+1,bi,bj).GT.SEAICE_area_reg .AND. |
|
./pkg/seaice/seaice_itd_remap.F |
555 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
& hActual(i,j,k+1) .LE. hLimitNew(i,j,k) ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
558 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
& 'for category ', k, tmpBuf |
|
./pkg/seaice/seaice_itd_remap.F |
562 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
& AREAITD(i,j,k+1,bi,bj), hActual(i,j,k+1), |
|
./pkg/seaice/seaice_itd_remap.F |
563 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
& hActualPre(i,j,k+1), |
|
./pkg/seaice/seaice_itd_remap.F |
564 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
& AREAITD(i,j,k,bi,bj), hActual(i,j,k), |
|
./pkg/seaice/seaice_itd_remap.F |
565 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
& hActualPre(i,j,k), |
|
./pkg/seaice/seaice_itd_remap.F |
566 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
& hLimitNew(i,j,k), hLimit(k) |
|
./pkg/seaice/seaice_itd_remap.F |
568 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
IF ( hLimitNew(i,j,k) .GT. hLimit(k+1) ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
571 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
& 'for category ', k, tmpBuf |
|
./pkg/seaice/seaice_itd_remap.F |
575 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
IF ( hLimitNew(i,j,k) .LT. hLimit(k-1) ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
578 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
& 'for category ', k, tmpBuf |
|
./pkg/seaice/seaice_itd_remap.F |
75 |
SEAICE_ITD_REMAP |
INTEGER i, j, k |
|
./pkg/seaice/seaice_itd_sum.F |
67 |
SEAICE_ITD_SUM |
INTEGER i, j, k |
|
./pkg/seaice/seaice_itd_sum.F |
89 |
SEAICE_ITD_SUM |
DO k=2,nITD |
|
./pkg/seaice/seaice_itd_sum.F |
92 |
SEAICE_ITD_SUM |
AREA (i,j,bi,bj) = AREA (i,j,bi,bj) + AREAITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_sum.F |
93 |
SEAICE_ITD_SUM |
HEFF (i,j,bi,bj) = HEFF (i,j,bi,bj) + HEFFITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_sum.F |
94 |
SEAICE_ITD_SUM |
HSNOW(i,j,bi,bj) = HSNOW(i,j,bi,bj) + HSNOWITD(i,j,k,bi,bj) |
|
./model/src/ini_cg2d.F |
103 |
INI_CG2D |
faceArea = _dyG(i,j,bi,bj)*drF(k) |
|
./model/src/ini_cg2d.F |
104 |
INI_CG2D |
& *_hFacW(i,j,k,bi,bj) |
|
./model/src/ini_cg2d.F |
108 |
INI_CG2D |
faceArea = _dxG(i,j,bi,bj)*drF(k) |
|
./model/src/ini_cg2d.F |
109 |
INI_CG2D |
& *_hFacS(i,j,k,bi,bj) |
|
./model/src/ini_cg2d.F |
45 |
INI_CG2D |
INTEGER i, j, k, ks |
|
./model/src/ini_cg2d.F |
99 |
INI_CG2D |
DO k=1,Nr |
|
./pkg/seaice/seaice_mom_advection.F |
129 |
SEAICE_MOM_ADVECTION |
k = 1 |
|
./pkg/seaice/seaice_mom_advection.F |
131 |
SEAICE_MOM_ADVECTION |
CALL MOM_CALC_HFACZ(bi,bj,k,hFacZ,r_hFacZ,myThid) |
|
./pkg/seaice/seaice_mom_advection.F |
152 |
SEAICE_MOM_ADVECTION |
CALL MOM_CALC_KE(bi,bj,k,SEAICEselectKEscheme,uFld,vFld,KE,myThid) |
|
./pkg/seaice/seaice_mom_advection.F |
154 |
SEAICE_MOM_ADVECTION |
CALL MOM_CALC_RELVORT3(bi,bj,k,uFld,vFld,hFacZ,vort3,myThid) |
|
./pkg/seaice/seaice_mom_advection.F |
184 |
SEAICE_MOM_ADVECTION |
CALL MOM_VI_U_CORIOLIS_C4(bi,bj,k,SEAICEselectVortScheme, |
|
./pkg/seaice/seaice_mom_advection.F |
190 |
SEAICE_MOM_ADVECTION |
CALL MOM_VI_U_CORIOLIS(bi,bj,k,SEAICEselectVortScheme, |
|
./pkg/seaice/seaice_mom_advection.F |
201 |
SEAICE_MOM_ADVECTION |
CALL MOM_VI_V_CORIOLIS_C4(bi,bj,k,SEAICEselectVortScheme, |
|
./pkg/seaice/seaice_mom_advection.F |
207 |
SEAICE_MOM_ADVECTION |
CALL MOM_VI_V_CORIOLIS(bi,bj,k,SEAICEselectVortScheme, |
|
./pkg/seaice/seaice_mom_advection.F |
227 |
SEAICE_MOM_ADVECTION |
CALL DIAGNOSTICS_FILL(uCf,'SIuAdvZ3',k,1,2,bi,bj,myThid) |
|
./pkg/seaice/seaice_mom_advection.F |
228 |
SEAICE_MOM_ADVECTION |
CALL DIAGNOSTICS_FILL(vCf,'SIvAdvZ3',k,1,2,bi,bj,myThid) |
|
./pkg/seaice/seaice_mom_advection.F |
233 |
SEAICE_MOM_ADVECTION |
CALL MOM_VI_U_GRAD_KE(bi,bj,k,KE,uCf,myThid) |
|
./pkg/seaice/seaice_mom_advection.F |
239 |
SEAICE_MOM_ADVECTION |
CALL MOM_VI_V_GRAD_KE(bi,bj,k,KE,vCf,myThid) |
|
./pkg/seaice/seaice_mom_advection.F |
247 |
SEAICE_MOM_ADVECTION |
CALL DIAGNOSTICS_FILL(uCf,'SIKEx ',k,1,2,bi,bj,myThid) |
|
./pkg/seaice/seaice_mom_advection.F |
248 |
SEAICE_MOM_ADVECTION |
CALL DIAGNOSTICS_FILL(vCf,'SIKEy ',k,1,2,bi,bj,myThid) |
|
./pkg/seaice/seaice_mom_advection.F |
263 |
SEAICE_MOM_ADVECTION |
CALL DIAGNOSTICS_FILL(KE, 'SImomKE ',k,1,2,bi,bj,myThid) |
|
./pkg/seaice/seaice_mom_advection.F |
264 |
SEAICE_MOM_ADVECTION |
CALL DIAGNOSTICS_FILL(gU, 'SIuMmAdv',k,1,2,bi,bj,myThid) |
|
./pkg/seaice/seaice_mom_advection.F |
265 |
SEAICE_MOM_ADVECTION |
CALL DIAGNOSTICS_FILL(gV, 'SIvMmAdv',k,1,2,bi,bj,myThid) |
|
./pkg/seaice/seaice_mom_advection.F |
79 |
SEAICE_MOM_ADVECTION |
INTEGER i,j,k |
|
./pkg/seaice/seaice_mom_advection.F |
91 |
SEAICE_MOM_ADVECTION |
act0 = k - 1 |
|
./model/src/ini_cg3d.F |
108 |
INI_CG3D |
DO k=1,Nr |
|
./model/src/ini_cg3d.F |
111 |
INI_CG3D |
faceArea = _dyG(i,j,bi,bj)*drF(k) |
|
./model/src/ini_cg3d.F |
112 |
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 |
129 |
INI_CG3D |
aS3d(i,j,k,bi,bj) = faceArea*recip_dyC(i,j,bi,bj) |
|
./model/src/ini_cg3d.F |
131 |
INI_CG3D |
myNorm = MAX(ABS(aS3d(i,j,k,bi,bj)),myNorm) |
|
./model/src/ini_cg3d.F |
135 |
INI_CG3D |
DO k=1,1 |
|
./model/src/ini_cg3d.F |
138 |
INI_CG3D |
aV3d(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
142 |
INI_CG3D |
DO k=2,Nr |
|
./model/src/ini_cg3d.F |
143 |
INI_CG3D |
tmpFac = nh_Fac*rVel2wUnit(k)*rVel2wUnit(k) |
|
./model/src/ini_cg3d.F |
144 |
INI_CG3D |
& + igwFac*dBdrRef(k)*deltaTMom*dTtracerLev(k) |
|
./model/src/ini_cg3d.F |
148 |
INI_CG3D |
faceArea = _rA(i,j,bi,bj)*maskC(i,j, k ,bi,bj) |
|
./model/src/ini_cg3d.F |
149 |
INI_CG3D |
& *maskC(i,j,k-1,bi,bj) |
|
./model/src/ini_cg3d.F |
150 |
INI_CG3D |
& *deepFac2F(k) |
|
./model/src/ini_cg3d.F |
154 |
INI_CG3D |
theRecip_Dr = recip_drC(k) |
|
./model/src/ini_cg3d.F |
160 |
INI_CG3D |
aV3d(i,j,k,bi,bj) = faceArea*theRecip_Dr*tmpFac |
|
./model/src/ini_cg3d.F |
162 |
INI_CG3D |
myNorm = MAX(ABS(aV3d(i,j,k,bi,bj)),myNorm) |
|
./model/src/ini_cg3d.F |
190 |
INI_CG3D |
DO k=1,Nr |
|
./model/src/ini_cg3d.F |
193 |
INI_CG3D |
aW = aW3d( i, j, k, bi,bj) |
|
./model/src/ini_cg3d.F |
194 |
INI_CG3D |
aE = aW3d(i+1,j, k, bi,bj) |
|
./model/src/ini_cg3d.F |
195 |
INI_CG3D |
aN = aS3d( i,j+1,k, bi,bj) |
|
./model/src/ini_cg3d.F |
196 |
INI_CG3D |
aS = aS3d( i, j, k, bi,bj) |
|
./model/src/ini_cg3d.F |
197 |
INI_CG3D |
aU = aV3d( i, j, k, bi,bj) |
|
./model/src/ini_cg3d.F |
198 |
INI_CG3D |
IF ( k .NE. Nr ) THEN |
|
./model/src/ini_cg3d.F |
199 |
INI_CG3D |
aL = aV3d(i, j,k+1,bi,bj) |
|
./model/src/ini_cg3d.F |
203 |
INI_CG3D |
aC3d(i,j,k,bi,bj) = -aW-aE-aN-aS-aU-aL |
|
./model/src/ini_cg3d.F |
237 |
INI_CG3D |
DO k=1,Nr |
|
./model/src/ini_cg3d.F |
240 |
INI_CG3D |
aW3d(i,j,k,bi,bj) = aW3d(i,j,k,bi,bj)*myNorm |
|
./model/src/ini_cg3d.F |
241 |
INI_CG3D |
aS3d(i,j,k,bi,bj) = aS3d(i,j,k,bi,bj)*myNorm |
|
./model/src/ini_cg3d.F |
242 |
INI_CG3D |
aV3d(i,j,k,bi,bj) = aV3d(i,j,k,bi,bj)*myNorm |
|
./model/src/ini_cg3d.F |
243 |
INI_CG3D |
aC3d(i,j,k,bi,bj) = aC3d(i,j,k,bi,bj)*myNorm |
|
./model/src/ini_cg3d.F |
266 |
INI_CG3D |
DO k=1,Nr |
|
./model/src/ini_cg3d.F |
269 |
INI_CG3D |
IF ( aC3d(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./model/src/ini_cg3d.F |
270 |
INI_CG3D |
zMC(i,j,k,bi,bj) = aC3d(i,j,k,bi,bj) |
|
./model/src/ini_cg3d.F |
271 |
INI_CG3D |
zML(i,j,k,bi,bj) = aV3d(i,j,k,bi,bj) |
|
./model/src/ini_cg3d.F |
272 |
INI_CG3D |
IF ( k.NE.Nr ) THEN |
|
./model/src/ini_cg3d.F |
273 |
INI_CG3D |
zMU(i,j,k,bi,bj)= aV3d(i,j,k+1,bi,bj) |
|
./model/src/ini_cg3d.F |
275 |
INI_CG3D |
zMU(i,j,k,bi,bj)= 0. |
|
./model/src/ini_cg3d.F |
283 |
INI_CG3D |
zMC(i,j,k,bi,bj) = 1. _d 0 |
|
./model/src/ini_cg3d.F |
284 |
INI_CG3D |
zMU(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
285 |
INI_CG3D |
zML(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
290 |
INI_CG3D |
k = 1 |
|
./model/src/ini_cg3d.F |
293 |
INI_CG3D |
zMC(i,j,k,bi,bj) = 1. _d 0 / zMC(i,j,k,bi,bj) |
|
./model/src/ini_cg3d.F |
294 |
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 |
297 |
INI_CG3D |
DO k=2,Nr |
|
./model/src/ini_cg3d.F |
300 |
INI_CG3D |
zMC(i,j,k,bi,bj) = 1. _d 0 / |
|
./model/src/ini_cg3d.F |
301 |
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 |
302 |
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 |
306 |
INI_CG3D |
DO k=1,Nr |
|
./model/src/ini_cg3d.F |
309 |
INI_CG3D |
IF ( aC3d(i,j,k,bi,bj) .EQ. 0. ) THEN |
|
./model/src/ini_cg3d.F |
310 |
INI_CG3D |
zMC(i,j,k,bi,bj) = 1. |
|
./model/src/ini_cg3d.F |
311 |
INI_CG3D |
zML(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
312 |
INI_CG3D |
zMU(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
47 |
INI_CG3D |
INTEGER i, j, k, ks |
|
./model/src/ini_cg3d.F |
63 |
INI_CG3D |
DO k=1,Nr |
|
./model/src/ini_cg3d.F |
67 |
INI_CG3D |
aW3d(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
68 |
INI_CG3D |
aS3d(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
69 |
INI_CG3D |
aV3d(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
70 |
INI_CG3D |
aC3d(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
71 |
INI_CG3D |
zMC (i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
72 |
INI_CG3D |
zML (i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
73 |
INI_CG3D |
zMU (i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
79 |
INI_CG3D |
cg3d_q(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
80 |
INI_CG3D |
cg3d_r(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
81 |
INI_CG3D |
cg3d_s(i,j,k,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
87 |
INI_CG3D |
cg3d_b(i,j,k,bi,bj) = 0. |
|
./pkg/seaice/seaice_output.F |
217 |
SEAICE_OUTPUT |
DO k=1,nITD |
|
./pkg/seaice/seaice_output.F |
220 |
SEAICE_OUTPUT |
HEFFITDtave(i,j,k,bi,bj) = |
|
./pkg/seaice/seaice_output.F |
221 |
SEAICE_OUTPUT |
& HEFFITDtave(i,j,k,bi,bj) +HEFFITD(i,j,k,bi,bj)*deltaTClock |
|
./pkg/seaice/seaice_output.F |
222 |
SEAICE_OUTPUT |
AREAITDtave(i,j,k,bi,bj) = |
|
./pkg/seaice/seaice_output.F |
223 |
SEAICE_OUTPUT |
& AREAITDtave(i,j,k,bi,bj) +AREAITD(i,j,k,bi,bj)*deltaTClock |
|
./pkg/seaice/seaice_output.F |
63 |
SEAICE_OUTPUT |
INTEGER k |
|
./pkg/seaice/seaice_preconditioner.F |
139 |
SEAICE_PRECONDITIONER |
k = 1 |
|
./pkg/seaice/seaice_preconditioner.F |
484 |
SEAICE_PRECOND_RHSU |
k = 1 |
|
./pkg/seaice/seaice_preconditioner.F |
517 |
SEAICE_PRECOND_RHSU |
& (vVel(I ,J ,k,bi,bj)-vIceLoc(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
518 |
SEAICE_PRECOND_RHSU |
& +vVel(I ,J+1,k,bi,bj)-vIceLoc(I ,J+1,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
520 |
SEAICE_PRECOND_RHSU |
& (vVel(I-1,J ,k,bi,bj)-vIceLoc(I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
521 |
SEAICE_PRECOND_RHSU |
& +vVel(I-1,J+1,k,bi,bj)-vIceLoc(I-1,J+1,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
589 |
SEAICE_PRECOND_RHSV |
k = 1 |
|
./pkg/seaice/seaice_preconditioner.F |
622 |
SEAICE_PRECOND_RHSV |
& (uVel(I ,J ,k,bi,bj)-uIceLoc(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
623 |
SEAICE_PRECOND_RHSV |
& +uVel(I+1,J ,k,bi,bj)-uIceLoc(I+1,J ,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
625 |
SEAICE_PRECOND_RHSV |
& (uVel(I ,J-1,k,bi,bj)-uIceLoc(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
626 |
SEAICE_PRECOND_RHSV |
& +uVel(I+1,J-1,k,bi,bj)-uIceLoc(I+1,J-1,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
84 |
SEAICE_PRECONDITIONER |
INTEGER k |
|
./pkg/seaice/seaice_prepare_ridging.F |
102 |
SEAICE_PREPARE_RIDGING |
IF ( HEFFITD(i,j,k,bi,bj) .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_prepare_ridging.F |
105 |
SEAICE_PREPARE_RIDGING |
tmp = HEFFITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_prepare_ridging.F |
106 |
SEAICE_PREPARE_RIDGING |
& /SQRT( AREAITD(i,j,k,bi,bj)**2 + area_reg_sq ) |
|
./pkg/seaice/seaice_prepare_ridging.F |
107 |
SEAICE_PREPARE_RIDGING |
hActual(i,j,k) = SQRT(tmp * tmp + hice_reg_sq) |
|
./pkg/seaice/seaice_prepare_ridging.F |
124 |
SEAICE_PREPARE_RIDGING |
DO k = 1, nITD |
|
./pkg/seaice/seaice_prepare_ridging.F |
127 |
SEAICE_PREPARE_RIDGING |
gSum(i,j,k) = gSum(i,j,k-1) |
|
./pkg/seaice/seaice_prepare_ridging.F |
128 |
SEAICE_PREPARE_RIDGING |
IF ( AREAITD(i,j,k,bi,bj) .GT. SEAICE_area_floor ) |
|
./pkg/seaice/seaice_prepare_ridging.F |
129 |
SEAICE_PREPARE_RIDGING |
& gSum(i,j,k) = gSum(i,j,k) + AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_prepare_ridging.F |
134 |
SEAICE_PREPARE_RIDGING |
DO k = 0, nITD |
|
./pkg/seaice/seaice_prepare_ridging.F |
138 |
SEAICE_PREPARE_RIDGING |
& gSum(i,j,k) = gSum(i,j,k) / gSum(i,j,nITD) |
|
./pkg/seaice/seaice_prepare_ridging.F |
153 |
SEAICE_PREPARE_RIDGING |
DO k = 0, nITD |
|
./pkg/seaice/seaice_prepare_ridging.F |
156 |
SEAICE_PREPARE_RIDGING |
partFunc(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_prepare_ridging.F |
157 |
SEAICE_PREPARE_RIDGING |
IF ( gSum(i,j,k) .LT. SEAICEgStar ) THEN |
|
./pkg/seaice/seaice_prepare_ridging.F |
158 |
SEAICE_PREPARE_RIDGING |
partFunc(i,j,k) = |
|
./pkg/seaice/seaice_prepare_ridging.F |
159 |
SEAICE_PREPARE_RIDGING |
& (gSum(i,j,k)-gSum(i,j,k-1)) * recip_gStar |
|
./pkg/seaice/seaice_prepare_ridging.F |
160 |
SEAICE_PREPARE_RIDGING |
& *( 2. _d 0 - (gSum(i,j,k-1)+gSum(i,j,k))*recip_gStar) |
|
./pkg/seaice/seaice_prepare_ridging.F |
161 |
SEAICE_PREPARE_RIDGING |
ELSEIF ( gSum(i,j,k-1) .LT. SEAICEgStar |
|
./pkg/seaice/seaice_prepare_ridging.F |
162 |
SEAICE_PREPARE_RIDGING |
& .AND. gSum(i,j,k) .GE. SEAICEgStar ) THEN |
|
./pkg/seaice/seaice_prepare_ridging.F |
163 |
SEAICE_PREPARE_RIDGING |
partFunc(i,j,k) = |
|
./pkg/seaice/seaice_prepare_ridging.F |
164 |
SEAICE_PREPARE_RIDGING |
& (SEAICEgStar-gSum(i,j,k-1)) * recip_gStar |
|
./pkg/seaice/seaice_prepare_ridging.F |
165 |
SEAICE_PREPARE_RIDGING |
& *( 2. _d 0 - (gSum(i,j,k-1)+SEAICEgStar)*recip_gStar) |
|
./pkg/seaice/seaice_prepare_ridging.F |
178 |
SEAICE_PREPARE_RIDGING |
k = -1 |
|
./pkg/seaice/seaice_prepare_ridging.F |
181 |
SEAICE_PREPARE_RIDGING |
gSum(i,j,k) = EXP(-gSum(i,j,k)*recip_astar) * tmp |
|
./pkg/seaice/seaice_prepare_ridging.F |
184 |
SEAICE_PREPARE_RIDGING |
DO k = 0, nITD |
|
./pkg/seaice/seaice_prepare_ridging.F |
187 |
SEAICE_PREPARE_RIDGING |
gSum(i,j,k) = EXP(-gSum(i,j,k)*recip_astar) * tmp |
|
./pkg/seaice/seaice_prepare_ridging.F |
188 |
SEAICE_PREPARE_RIDGING |
partFunc(i,j,k) = gSum(i,j,k-1) - gSum(i,j,k) |
|
./pkg/seaice/seaice_prepare_ridging.F |
201 |
SEAICE_PREPARE_RIDGING |
DO k = 1, nITD |
|
./pkg/seaice/seaice_prepare_ridging.F |
204 |
SEAICE_PREPARE_RIDGING |
hrMin(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_prepare_ridging.F |
205 |
SEAICE_PREPARE_RIDGING |
hrMax(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_prepare_ridging.F |
206 |
SEAICE_PREPARE_RIDGING |
hrExp(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_prepare_ridging.F |
208 |
SEAICE_PREPARE_RIDGING |
ridgeRatio(i,j,k) = 1. _d 0 |
|
./pkg/seaice/seaice_prepare_ridging.F |
215 |
SEAICE_PREPARE_RIDGING |
DO k = 1, nITD |
|
./pkg/seaice/seaice_prepare_ridging.F |
218 |
SEAICE_PREPARE_RIDGING |
IF ( hActual(i,j,k) .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_prepare_ridging.F |
220 |
SEAICE_PREPARE_RIDGING |
hrMin(i,j,k) = 2. _d 0 * hActual(i,j,k) |
|
./pkg/seaice/seaice_prepare_ridging.F |
221 |
SEAICE_PREPARE_RIDGING |
hrMax(i,j,k) = 2. _d 0 * SQRT(hActual(i,j,k)*SEAICEhStar) |
|
./pkg/seaice/seaice_prepare_ridging.F |
224 |
SEAICE_PREPARE_RIDGING |
hrMin(i,j,k) = MIN(hrMin(i,j,k),hActual(i,j,k)+SEAICEmaxRaft) |
|
./pkg/seaice/seaice_prepare_ridging.F |
225 |
SEAICE_PREPARE_RIDGING |
hrMax(i,j,k) = MAX(hrMax(i,j,k),hrMin(i,j,k)+SEAICE_hice_reg) |
|
./pkg/seaice/seaice_prepare_ridging.F |
227 |
SEAICE_PREPARE_RIDGING |
ridgeRatio(i,j,k) = |
|
./pkg/seaice/seaice_prepare_ridging.F |
228 |
SEAICE_PREPARE_RIDGING |
& 0.5 _d 0 * (hrMax(i,j,k)+hrMin(i,j,k))/hActual(i,j,k) |
|
./pkg/seaice/seaice_prepare_ridging.F |
236 |
SEAICE_PREPARE_RIDGING |
DO k = 1, nITD |
|
./pkg/seaice/seaice_prepare_ridging.F |
239 |
SEAICE_PREPARE_RIDGING |
IF ( hActual(i,j,k) .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_prepare_ridging.F |
242 |
SEAICE_PREPARE_RIDGING |
tmp = hActual(i,j,k) |
|
./pkg/seaice/seaice_prepare_ridging.F |
243 |
SEAICE_PREPARE_RIDGING |
hrMin(i,j,k) = MIN(2.D0 * tmp, tmp+SEAICEmaxRaft) |
|
./pkg/seaice/seaice_prepare_ridging.F |
244 |
SEAICE_PREPARE_RIDGING |
hrExp(i,j,k) = SEAICEmuRidging*SQRT(tmp) |
|
./pkg/seaice/seaice_prepare_ridging.F |
246 |
SEAICE_PREPARE_RIDGING |
ridgeRatio(i,j,k)=(hrMin(i,j,k)+hrExp(i,j,k))/tmp |
|
./pkg/seaice/seaice_prepare_ridging.F |
266 |
SEAICE_PREPARE_RIDGING |
DO k = 1, nITD |
|
./pkg/seaice/seaice_prepare_ridging.F |
269 |
SEAICE_PREPARE_RIDGING |
partFunc(i,j,k) = partFunc(i,j,k) * heffM(i,j,bi,bj) |
|
./pkg/seaice/seaice_prepare_ridging.F |
271 |
SEAICE_PREPARE_RIDGING |
& + partFunc(i,j,k)*( 1. _d 0 - 1. _d 0/ridgeRatio(i,j,k) ) |
|
./pkg/seaice/seaice_prepare_ridging.F |
81 |
SEAICE_PREPARE_RIDGING |
INTEGER k |
|
./pkg/seaice/seaice_prepare_ridging.F |
95 |
SEAICE_PREPARE_RIDGING |
DO k=1,nITD |
|
./pkg/seaice/seaice_prepare_ridging.F |
98 |
SEAICE_PREPARE_RIDGING |
hActual(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_read_pickup.F |
309 |
SEAICE_READ_PICKUP |
DO k=2,nITD |
|
./pkg/seaice/seaice_read_pickup.F |
312 |
SEAICE_READ_PICKUP |
TICES(i,j,k,bi,bj) = TICES(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_read_pickup.F |
58 |
SEAICE_READ_PICKUP |
INTEGER i,j,k,bi,bj |
|
./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 |
70 |
SHAP_FILT_APPLY_TS |
DO k=1, Nr |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
72 |
SHAP_FILT_APPLY_TS |
& CALL SHAP_FILT_TRACEROLD( tFld,bi,bj,k,myTime,myThid ) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
74 |
SHAP_FILT_APPLY_TS |
& CALL SHAP_FILT_TRACEROLD( sFld,bi,bj,k,myTime,myThid ) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
148 |
SHAP_FILT_APPLY_UV |
DO k=1,Nr |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
153 |
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 |
154 |
SHAP_FILT_APPLY_UV |
& *_hFacW(i ,j, k,bi,bj)*rAw(i ,j, bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
155 |
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 |
156 |
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 |
159 |
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 |
160 |
SHAP_FILT_APPLY_UV |
& *_hFacS(i,j ,k,bi,bj)*rAs(i,j ,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
161 |
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 |
162 |
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 |
170 |
SHAP_FILT_APPLY_UV |
frictionHeating(i,j,k,bi,bj) = |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
171 |
SHAP_FILT_APPLY_UV |
& frictionHeating(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
172 |
SHAP_FILT_APPLY_UV |
& - dKE_shap(i,j)*drF(k)*rUnit2mass |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
180 |
SHAP_FILT_APPLY_UV |
& k, 1, 2, bi, bj, myThid ) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
62 |
SHAP_FILT_APPLY_UV |
INTEGER bi, bj, k |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
67 |
SHAP_FILT_APPLY_UV |
INTEGER bi, bj, k, i, j |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
81 |
SHAP_FILT_APPLY_UV |
DO k=1, Nr |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
82 |
SHAP_FILT_APPLY_UV |
CALL SHAP_FILT_U( uFld,bi,bj,k,myTime,myThid ) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
83 |
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 |
107 |
SHAP_FILT_TRACER_S2 |
DO k=1,kSize |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
117 |
SHAP_FILT_TRACER_S2 |
& tmpFld(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
126 |
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 |
127 |
SHAP_FILT_TRACER_S2 |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
135 |
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 |
136 |
SHAP_FILT_TRACER_S2 |
& *_hFacW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
148 |
SHAP_FILT_TRACER_S2 |
& tmpFld(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
157 |
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 |
158 |
SHAP_FILT_TRACER_S2 |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
166 |
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 |
167 |
SHAP_FILT_TRACER_S2 |
& *_hFacS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
185 |
SHAP_FILT_TRACER_S2 |
tmpFld(i,j,k,bi,bj) = -0.125*tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
192 |
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 |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
199 |
SHAP_FILT_TRACER_S2 |
tmpFld(i,j,k,bi,bj) = -0.125*tmpGrd(i,j) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
200 |
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 |
217 |
SHAP_FILT_TRACER_S2 |
DO k=1,kSize |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
220 |
SHAP_FILT_TRACER_S2 |
field(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
221 |
SHAP_FILT_TRACER_S2 |
& -tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
222 |
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_init_fixed.F |
102 |
SHELFICE_INIT_FIXED |
DO k=1,Nr |
|
./pkg/shelfice/shelfice_init_fixed.F |
106 |
SHELFICE_INIT_FIXED |
& .AND. hFacC(i,j,k,bi,bj).NE.zeroRS ) THEN |
|
./pkg/shelfice/shelfice_init_fixed.F |
107 |
SHELFICE_INIT_FIXED |
maskSHI(i,j,k,bi,bj) = 1. _d 0 |
|
./pkg/shelfice/shelfice_init_fixed.F |
49 |
SHELFICE_INIT_FIXED |
INTEGER k |
|
./pkg/shelfice/shelfice_init_fixed.F |
95 |
SHELFICE_INIT_FIXED |
DO k=1,Nr |
|
./pkg/shelfice/shelfice_init_fixed.F |
98 |
SHELFICE_INIT_FIXED |
maskSHI(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
104 |
INI_DYNVARS |
DO k=1,Nr |
|
./model/src/ini_dynvars.F |
107 |
INI_DYNVARS |
dU_psFacX(i,j,k,bi,bj) = maskW(i,j,k,bi,bj) |
|
./model/src/ini_dynvars.F |
108 |
INI_DYNVARS |
& *recip_deepFacC(k)*recip_rhoFacC(k) |
|
./model/src/ini_dynvars.F |
109 |
INI_DYNVARS |
dV_psFacY(i,j,k,bi,bj) = maskS(i,j,k,bi,bj) |
|
./model/src/ini_dynvars.F |
110 |
INI_DYNVARS |
& *recip_deepFacC(k)*recip_rhoFacC(k) |
|
./model/src/ini_dynvars.F |
42 |
INI_DYNVARS |
INTEGER i, j, k |
|
./model/src/ini_dynvars.F |
50 |
INI_DYNVARS |
DO k=1,Nr |
|
./model/src/ini_dynvars.F |
54 |
INI_DYNVARS |
uVel (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
55 |
INI_DYNVARS |
vVel (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
56 |
INI_DYNVARS |
wVel (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
57 |
INI_DYNVARS |
theta(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
58 |
INI_DYNVARS |
salt (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
60 |
INI_DYNVARS |
gU(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
61 |
INI_DYNVARS |
gV(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
63 |
INI_DYNVARS |
gT(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
64 |
INI_DYNVARS |
gS(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
67 |
INI_DYNVARS |
guNm(i,j,k,bi,bj,1) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
68 |
INI_DYNVARS |
gvNm(i,j,k,bi,bj,1) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
69 |
INI_DYNVARS |
gtNm(i,j,k,bi,bj,1) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
70 |
INI_DYNVARS |
gsNm(i,j,k,bi,bj,1) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
71 |
INI_DYNVARS |
guNm(i,j,k,bi,bj,2) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
72 |
INI_DYNVARS |
gvNm(i,j,k,bi,bj,2) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
73 |
INI_DYNVARS |
gtNm(i,j,k,bi,bj,2) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
74 |
INI_DYNVARS |
gsNm(i,j,k,bi,bj,2) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
76 |
INI_DYNVARS |
guNm1(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
77 |
INI_DYNVARS |
gvNm1(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
78 |
INI_DYNVARS |
gtNm1(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
79 |
INI_DYNVARS |
gsNm1(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
81 |
INI_DYNVARS |
totPhiHyd (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
82 |
INI_DYNVARS |
rhoInSitu (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
83 |
INI_DYNVARS |
IVDConvCount(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
85 |
INI_DYNVARS |
dU_psFacX (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
86 |
INI_DYNVARS |
dV_psFacY (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_u_drag.F |
108 |
SHELFICE_U_DRAG |
IF ( k.EQ.MAX( kTopC(i-1,j,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_u_drag.F |
110 |
SHELFICE_U_DRAG |
& - _recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_u_drag.F |
11 |
SHELFICE_U_DRAG |
I bi, bj, k, |
|
./pkg/shelfice/shelfice_u_drag.F |
124 |
SHELFICE_U_DRAG |
IF ( k.EQ.MAX( kTopC(i-1,j,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_u_drag.F |
129 |
SHELFICE_U_DRAG |
& - _recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_u_drag.F |
140 |
SHELFICE_U_DRAG |
IF ( k.EQ.MAX( kTopC(i-1,j,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_u_drag.F |
142 |
SHELFICE_U_DRAG |
& + ( (vFld(i-1, j )*vFld(i-1, j )*hFacS(i-1, j ,k,bi,bj) |
|
./pkg/shelfice/shelfice_u_drag.F |
143 |
SHELFICE_U_DRAG |
& +vFld( i , j )*vFld( i , j )*hFacS( i , j ,k,bi,bj)) |
|
./pkg/shelfice/shelfice_u_drag.F |
144 |
SHELFICE_U_DRAG |
& + (vFld(i-1,j+1)*vFld(i-1,j+1)*hFacS(i-1,j+1,k,bi,bj) |
|
./pkg/shelfice/shelfice_u_drag.F |
145 |
SHELFICE_U_DRAG |
& +vFld( i ,j+1)*vFld( i ,j+1)*hFacS( i ,j+1,k,bi,bj)) |
|
./pkg/shelfice/shelfice_u_drag.F |
146 |
SHELFICE_U_DRAG |
& )*recip_hFacW(i,j,k,bi,bj)*0.25 _d 0 |
|
./pkg/shelfice/shelfice_u_drag.F |
150 |
SHELFICE_U_DRAG |
& - _recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_u_drag.F |
161 |
SHELFICE_U_DRAG |
IF ( k.EQ.MAX( kTopC(i-1,j,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_u_drag.F |
162 |
SHELFICE_U_DRAG |
uSq = ( hFacS(i-1, j ,k,bi,bj) + hFacS( i , j ,k,bi,bj) ) |
|
./pkg/shelfice/shelfice_u_drag.F |
163 |
SHELFICE_U_DRAG |
& + ( hFacS(i-1,j+1,k,bi,bj) + hFacS( i ,j+1,k,bi,bj) ) |
|
./pkg/shelfice/shelfice_u_drag.F |
166 |
SHELFICE_U_DRAG |
& +( (vFld(i-1, j )*vFld(i-1, j )*hFacS(i-1, j ,k,bi,bj) |
|
./pkg/shelfice/shelfice_u_drag.F |
167 |
SHELFICE_U_DRAG |
& +vFld( i , j )*vFld( i , j )*hFacS( i , j ,k,bi,bj)) |
|
./pkg/shelfice/shelfice_u_drag.F |
168 |
SHELFICE_U_DRAG |
& + (vFld(i-1,j+1)*vFld(i-1,j+1)*hFacS(i-1,j+1,k,bi,bj) |
|
./pkg/shelfice/shelfice_u_drag.F |
169 |
SHELFICE_U_DRAG |
& +vFld( i ,j+1)*vFld( i ,j+1)*hFacS( i ,j+1,k,bi,bj)) |
|
./pkg/shelfice/shelfice_u_drag.F |
177 |
SHELFICE_U_DRAG |
& - _recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_u_drag.F |
190 |
SHELFICE_U_DRAG |
CALL DIAGNOSTICS_FILL(uDragTerms,'SHIUDrag',k,1,2,bi,bj,myThid) |
|
./pkg/shelfice/shelfice_u_drag.F |
39 |
SHELFICE_U_DRAG |
INTEGER bi,bj,k |
|
./pkg/shelfice/shelfice_u_drag.F |
62 |
SHELFICE_U_DRAG |
kUpC = k |
|
./pkg/shelfice/shelfice_u_drag.F |
65 |
SHELFICE_U_DRAG |
kUpC = k+1 |
|
./pkg/shelfice/shelfice_u_drag.F |
77 |
SHELFICE_U_DRAG |
IF ( k.EQ.MAX( kTopC(i-1,j,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_u_drag.F |
79 |
SHELFICE_U_DRAG |
& - _recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_u_drag.F |
99 |
SHELFICE_U_DRAG |
& * _recip_hFacW(i,j,k,bi,bj) |
|
./pkg/shelfice/shelfice_v_drag.F |
108 |
SHELFICE_V_DRAG |
IF ( k.EQ.MAX( kTopC(i,j-1,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_v_drag.F |
110 |
SHELFICE_V_DRAG |
& - _recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_v_drag.F |
11 |
SHELFICE_V_DRAG |
I bi, bj, k, |
|
./pkg/shelfice/shelfice_v_drag.F |
124 |
SHELFICE_V_DRAG |
IF ( k.EQ.MAX( kTopC(i,j-1,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_v_drag.F |
129 |
SHELFICE_V_DRAG |
& - _recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_v_drag.F |
140 |
SHELFICE_V_DRAG |
IF ( k.EQ.MAX( kTopC(i,j-1,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_v_drag.F |
142 |
SHELFICE_V_DRAG |
& + ( (uFld( i ,j-1)*uFld( i ,j-1)*hFacW( i ,j-1,k,bi,bj) |
|
./pkg/shelfice/shelfice_v_drag.F |
143 |
SHELFICE_V_DRAG |
& +uFld( i , j )*uFld( i , j )*hFacW( i , j ,k,bi,bj)) |
|
./pkg/shelfice/shelfice_v_drag.F |
144 |
SHELFICE_V_DRAG |
& + (uFld(i+1,j-1)*uFld(i+1,j-1)*hFacW(i+1,j-1,k,bi,bj) |
|
./pkg/shelfice/shelfice_v_drag.F |
145 |
SHELFICE_V_DRAG |
& +uFld(i+1, j )*uFld(i+1, j )*hFacW(i+1, j ,k,bi,bj)) |
|
./pkg/shelfice/shelfice_v_drag.F |
146 |
SHELFICE_V_DRAG |
& )*recip_hFacS(i,j,k,bi,bj)*0.25 _d 0 |
|
./pkg/shelfice/shelfice_v_drag.F |
150 |
SHELFICE_V_DRAG |
& - _recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_v_drag.F |
161 |
SHELFICE_V_DRAG |
IF ( k.EQ.MAX( kTopC(i,j-1,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_v_drag.F |
162 |
SHELFICE_V_DRAG |
vSq = ( hFacW( i ,j-1,k,bi,bj) + hFacW( i , j ,k,bi,bj) ) |
|
./pkg/shelfice/shelfice_v_drag.F |
163 |
SHELFICE_V_DRAG |
& + ( hFacW(i+1,j-1,k,bi,bj) + hFacW(i+1, j ,k,bi,bj) ) |
|
./pkg/shelfice/shelfice_v_drag.F |
166 |
SHELFICE_V_DRAG |
& +( (uFld( i ,j-1)*uFld( i ,j-1)*hFacW( i ,j-1,k,bi,bj) |
|
./pkg/shelfice/shelfice_v_drag.F |
167 |
SHELFICE_V_DRAG |
& +uFld( i , j )*uFld( i , j )*hFacW( i , j ,k,bi,bj)) |
|
./pkg/shelfice/shelfice_v_drag.F |
168 |
SHELFICE_V_DRAG |
& + (uFld(i+1,j-1)*uFld(i+1,j-1)*hFacW(i+1,j-1,k,bi,bj) |
|
./pkg/shelfice/shelfice_v_drag.F |
169 |
SHELFICE_V_DRAG |
& +uFld(i+1, j )*uFld(i+1, j )*hFacW(i+1, j ,k,bi,bj)) |
|
./pkg/shelfice/shelfice_v_drag.F |
177 |
SHELFICE_V_DRAG |
& - _recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_v_drag.F |
190 |
SHELFICE_V_DRAG |
CALL DIAGNOSTICS_FILL(vDragTerms,'SHIVDrag',k,1,2,bi,bj,myThid) |
|
./pkg/shelfice/shelfice_v_drag.F |
39 |
SHELFICE_V_DRAG |
INTEGER bi,bj,k |
|
./pkg/shelfice/shelfice_v_drag.F |
62 |
SHELFICE_V_DRAG |
kUpC = k |
|
./pkg/shelfice/shelfice_v_drag.F |
65 |
SHELFICE_V_DRAG |
kUpC = k+1 |
|
./pkg/shelfice/shelfice_v_drag.F |
77 |
SHELFICE_V_DRAG |
IF ( k.EQ.MAX( kTopC(i,j-1,bi,bj),kTopC(i,j,bi,bj) ) ) THEN |
|
./pkg/shelfice/shelfice_v_drag.F |
79 |
SHELFICE_V_DRAG |
& - _recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_v_drag.F |
99 |
SHELFICE_V_DRAG |
& * _recip_hFacS(i,j,k,bi,bj) |
|
./model/src/ini_eos.F |
360 |
EOS_CHECK |
INTEGER i, j, k |
|
./model/src/ini_eos.F |
41 |
INI_EOS |
INTEGER i, k |
|
./model/src/ini_eos.F |
450 |
EOS_CHECK |
k = 1 |
|
./model/src/ini_eos.F |
467 |
EOS_CHECK |
mskSave = maskC(i,j,k,bi,bj) |
|
./model/src/ini_eos.F |
468 |
EOS_CHECK |
rC_Save = rC(k) |
|
./model/src/ini_eos.F |
469 |
EOS_CHECK |
maskC(i,j,k,bi,bj) = 1. |
|
./model/src/ini_eos.F |
470 |
EOS_CHECK |
totPhiHyd(i,j,k,bi,bj) = 0. |
|
./model/src/ini_eos.F |
474 |
EOS_CHECK |
rC(k) = -pLoc(kcheck)*recip_rhoConst*recip_gravity |
|
./model/src/ini_eos.F |
476 |
EOS_CHECK |
rC(k) = pLoc(kcheck) |
|
./model/src/ini_eos.F |
488 |
EOS_CHECK |
I iMin, iMax, jMin, jMax, k, |
|
./model/src/ini_eos.F |
491 |
EOS_CHECK |
I k, bi, bj, myThid ) |
|
./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 |
548 |
EOS_CHECK |
maskC(i,j,k,bi,bj) = mskSave |
|
./model/src/ini_eos.F |
549 |
EOS_CHECK |
rC(k) = rC_Save |
|
./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 |
72 |
INI_EOS |
DO k = 1,48 |
|
./model/src/ini_eos.F |
73 |
INI_EOS |
teos(k) = 0. _d 0 |
|
./model/src/ini_eos.F |
81 |
INI_EOS |
READ(37,*) k |
|
./model/src/ini_eos.F |
82 |
INI_EOS |
IF (k.NE.Nr) THEN |
|
./model/src/ini_eos.F |
91 |
INI_EOS |
READ(37,*) (eosRefT(k),eosRefS(k),eosSig0(k),k=1,Nr) |
|
./model/src/ini_eos.F |
92 |
INI_EOS |
DO k=1,Nr |
|
./model/src/ini_eos.F |
93 |
INI_EOS |
READ(37,*) (eosC(i,k),i=1,9) |
|
./pkg/smooth/smooth3d.F |
27 |
SMOOTH3D |
integer i,j,k,bi,bj |
|
./model/src/ini_ffields.F |
105 |
INI_FFIELDS |
frictionHeating(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
112 |
INI_FFIELDS |
eddyPsiX (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
113 |
INI_FFIELDS |
eddyPsiY (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
114 |
INI_FFIELDS |
tauxEddy (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
115 |
INI_FFIELDS |
tauyEddy (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
116 |
INI_FFIELDS |
uEulerMean(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
117 |
INI_FFIELDS |
vEulerMean(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
38 |
INI_FFIELDS |
INTEGER i, j, k |
|
./model/src/ini_ffields.F |
94 |
INI_FFIELDS |
DO k=1,Nr |
|
./model/src/ini_ffields.F |
98 |
INI_FFIELDS |
addMass(i,j,k,bi,bj) = 0. _d 0 |
|
./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 |
28 |
SMOOTH_DIFF2D |
integer i,j,k, bi, bj |
|
./pkg/smooth/smooth_diff3d.F |
119 |
SMOOTH_DIFF3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_diff3d.F |
122 |
SMOOTH_DIFF3D |
gT_in(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_diff3d.F |
138 |
SMOOTH_DIFF3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_diff3d.F |
140 |
SMOOTH_DIFF3D |
I bi, bj, k, Nr, |
|
./pkg/smooth/smooth_diff3d.F |
146 |
SMOOTH_DIFF3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_diff3d.F |
149 |
SMOOTH_DIFF3D |
if (maskc(i,j,k,bi,bj).NE.0.) then |
|
./pkg/smooth/smooth_diff3d.F |
150 |
SMOOTH_DIFF3D |
fld_in(i,j,k,bi,bj)=fld_in(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_diff3d.F |
151 |
SMOOTH_DIFF3D |
& +smooth3DdelTime*gT_in(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_diff3d.F |
152 |
SMOOTH_DIFF3D |
gT_in(i,j,k,bi,bj)=0 |
|
./pkg/smooth/smooth_diff3d.F |
27 |
SMOOTH_DIFF3D |
integer i,j,k, bi,bj, iMin,iMax,jMin,jMax |
|
./pkg/smooth/smooth_diff3d.F |
57 |
SMOOTH_DIFF3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_diff3d.F |
60 |
SMOOTH_DIFF3D |
gT_in(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_diff3d.F |
61 |
SMOOTH_DIFF3D |
gTm1_in(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar2d.F |
28 |
SMOOTH_FILTERVAR2D |
integer i,j,k, bi, bj, ii, jj, kk |
|
./pkg/smooth/smooth_filtervar3d.F |
117 |
SMOOTH_FILTERVAR3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_filtervar3d.F |
120 |
SMOOTH_FILTERVAR3D |
smoothTmpFld(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_filtervar3d.F |
125 |
SMOOTH_FILTERVAR3D |
DO k=kk,Nr,dkLoc |
|
./pkg/smooth/smooth_filtervar3d.F |
128 |
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 |
193 |
SMOOTH_FILTERVAR3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_filtervar3d.F |
196 |
SMOOTH_FILTERVAR3D |
smoothTmpMean(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar3d.F |
197 |
SMOOTH_FILTERVAR3D |
smoothTmpVar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar3d.F |
215 |
SMOOTH_FILTERVAR3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_filtervar3d.F |
218 |
SMOOTH_FILTERVAR3D |
smoothTmpFld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar3d.F |
219 |
SMOOTH_FILTERVAR3D |
if (maskC(i,j,k,bi,bj).NE.0) then |
|
./pkg/smooth/smooth_filtervar3d.F |
220 |
SMOOTH_FILTERVAR3D |
smoothTmpFld(i,j,k,bi,bj)=port_rand_norm() |
|
./pkg/smooth/smooth_filtervar3d.F |
223 |
SMOOTH_FILTERVAR3D |
smoothTmpFld(i,j,k,bi,bj)=smoothTmpFld(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_filtervar3d.F |
224 |
SMOOTH_FILTERVAR3D |
& *sqrt(recip_rA(i,j,bi,bj)*recip_drF(k)) |
|
./pkg/smooth/smooth_filtervar3d.F |
239 |
SMOOTH_FILTERVAR3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_filtervar3d.F |
242 |
SMOOTH_FILTERVAR3D |
smoothTmpVar(i,j,k,bi,bj)=smoothTmpVar(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_filtervar3d.F |
243 |
SMOOTH_FILTERVAR3D |
& +smoothTmpFld(i,j,k,bi,bj)*smoothTmpFld(i,j,k,bi,bj)/nbRand |
|
./pkg/smooth/smooth_filtervar3d.F |
244 |
SMOOTH_FILTERVAR3D |
smoothTmpMean(i,j,k,bi,bj)=smoothTmpMean(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_filtervar3d.F |
245 |
SMOOTH_FILTERVAR3D |
& +smoothTmpFld(i,j,k,bi,bj)/nbRand |
|
./pkg/smooth/smooth_filtervar3d.F |
257 |
SMOOTH_FILTERVAR3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_filtervar3d.F |
260 |
SMOOTH_FILTERVAR3D |
if (maskC(i,j,k,bi,bj).NE.0) then |
|
./pkg/smooth/smooth_filtervar3d.F |
261 |
SMOOTH_FILTERVAR3D |
smooth3Dnorm(i,j,k,bi,bj)= |
|
./pkg/smooth/smooth_filtervar3d.F |
262 |
SMOOTH_FILTERVAR3D |
& 1/sqrt ( nbRand/(nbRand-1)* ( smoothTmpVar(i,j,k,bi,bj) - |
|
./pkg/smooth/smooth_filtervar3d.F |
263 |
SMOOTH_FILTERVAR3D |
& smoothTmpMean(i,j,k,bi,bj)*smoothTmpMean(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_filtervar3d.F |
28 |
SMOOTH_FILTERVAR3D |
integer i,j,k, bi, bj, ii, jj, kk |
|
./pkg/smooth/smooth_filtervar3d.F |
87 |
SMOOTH_FILTERVAR3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_filtervar3d.F |
90 |
SMOOTH_FILTERVAR3D |
smooth3Dnorm(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_impldiff.F |
103 |
SMOOTH_IMPLDIFF |
DO k=1,Nr |
|
./pkg/smooth/smooth_impldiff.F |
106 |
SMOOTH_IMPLDIFF |
bet(i,j,k) = 1. _d 0 |
|
./pkg/smooth/smooth_impldiff.F |
107 |
SMOOTH_IMPLDIFF |
gam(i,j,k) = 0. _d 0 |
|
./pkg/smooth/smooth_impldiff.F |
115 |
SMOOTH_IMPLDIFF |
k = 1 |
|
./pkg/smooth/smooth_impldiff.F |
129 |
SMOOTH_IMPLDIFF |
DO k=2,Nr |
|
./pkg/smooth/smooth_impldiff.F |
133 |
SMOOTH_IMPLDIFF |
gam(i,j,k) = c(i,j,k-1)*bet(i,j,k-1) |
|
./pkg/smooth/smooth_impldiff.F |
134 |
SMOOTH_IMPLDIFF |
IF ( ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) .NE. 0.) |
|
./pkg/smooth/smooth_impldiff.F |
135 |
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 |
149 |
SMOOTH_IMPLDIFF |
DO k=2,Nr |
|
./pkg/smooth/smooth_impldiff.F |
152 |
SMOOTH_IMPLDIFF |
gYnm1(i,j,k,bi,bj) = bet(i,j,k)* |
|
./pkg/smooth/smooth_impldiff.F |
153 |
SMOOTH_IMPLDIFF |
& (gXnm1(i,j,k,bi,bj) - a(i,j,k)*gYnm1(i,j,k-1,bi,bj)) |
|
./pkg/smooth/smooth_impldiff.F |
161 |
SMOOTH_IMPLDIFF |
DO k=Nr-1,1,-1 |
|
./pkg/smooth/smooth_impldiff.F |
164 |
SMOOTH_IMPLDIFF |
gYnm1(i,j,k,bi,bj)=gYnm1(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_impldiff.F |
165 |
SMOOTH_IMPLDIFF |
& -gam(i,j,k+1)*gYnm1(i,j,k+1,bi,bj) |
|
./pkg/smooth/smooth_impldiff.F |
170 |
SMOOTH_IMPLDIFF |
DO k=1,Nr |
|
./pkg/smooth/smooth_impldiff.F |
173 |
SMOOTH_IMPLDIFF |
gXnm1(i,j,k,bi,bj)=gYnm1(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_impldiff.F |
36 |
SMOOTH_IMPLDIFF |
INTEGER i,j,k |
|
./pkg/smooth/smooth_impldiff.F |
49 |
SMOOTH_IMPLDIFF |
DO k=1,Nr |
|
./pkg/smooth/smooth_impldiff.F |
52 |
SMOOTH_IMPLDIFF |
gYNm1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_impldiff.F |
63 |
SMOOTH_IMPLDIFF |
DO k=2,Nr |
|
./pkg/smooth/smooth_impldiff.F |
66 |
SMOOTH_IMPLDIFF |
a(i,j,k) = -deltaTX*recip_hFac(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/smooth/smooth_impldiff.F |
67 |
SMOOTH_IMPLDIFF |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/smooth/smooth_impldiff.F |
68 |
SMOOTH_IMPLDIFF |
& *KappaRX(i,j, k )*recip_drC( k ) |
|
./pkg/smooth/smooth_impldiff.F |
69 |
SMOOTH_IMPLDIFF |
& *deepFac2F(k)*rhoFacF(k) |
|
./pkg/smooth/smooth_impldiff.F |
70 |
SMOOTH_IMPLDIFF |
IF (recip_hFac(i,j,k-1,bi,bj).EQ.0.) a(i,j,k)=0. |
|
./pkg/smooth/smooth_impldiff.F |
76 |
SMOOTH_IMPLDIFF |
DO k=1,Nr-1 |
|
./pkg/smooth/smooth_impldiff.F |
79 |
SMOOTH_IMPLDIFF |
c(i,j,k) = -deltaTX*recip_hFac(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/smooth/smooth_impldiff.F |
80 |
SMOOTH_IMPLDIFF |
& *recip_deepFac2C(k)*recip_rhoFacC(k) |
|
./pkg/smooth/smooth_impldiff.F |
81 |
SMOOTH_IMPLDIFF |
& *KappaRX(i,j,k+1)*recip_drC(k+1) |
|
./pkg/smooth/smooth_impldiff.F |
82 |
SMOOTH_IMPLDIFF |
& *deepFac2F(k+1)*rhoFacF(k+1) |
|
./pkg/smooth/smooth_impldiff.F |
83 |
SMOOTH_IMPLDIFF |
IF (recip_hFac(i,j,k+1,bi,bj).EQ.0.) c(i,j,k)=0. |
|
./pkg/smooth/smooth_impldiff.F |
94 |
SMOOTH_IMPLDIFF |
DO k=1,Nr |
|
./pkg/smooth/smooth_impldiff.F |
97 |
SMOOTH_IMPLDIFF |
b(i,j,k) = 1. _d 0 - c(i,j,k) - a(i,j,k) |
|
./pkg/smooth/smooth_init2d.F |
23 |
SMOOTH_INIT2D |
integer i,j,k, bi, bj |
|
./pkg/smooth/smooth_init3d.F |
117 |
SMOOTH_INIT3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_init3d.F |
120 |
SMOOTH_INIT3D |
smooth3D_Lx(i,j,k,bi,bj)=smooth3D_Lx0(smoothOpNb) |
|
./pkg/smooth/smooth_init3d.F |
121 |
SMOOTH_INIT3D |
smooth3D_Ly(i,j,k,bi,bj)=smooth3D_Ly0(smoothOpNb) |
|
./pkg/smooth/smooth_init3d.F |
131 |
SMOOTH_INIT3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_init3d.F |
134 |
SMOOTH_INIT3D |
smooth3D_Kuy(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
135 |
SMOOTH_INIT3D |
smooth3D_Kvx(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
136 |
SMOOTH_INIT3D |
smooth3D_Kwx(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
137 |
SMOOTH_INIT3D |
smooth3D_Kwy(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
138 |
SMOOTH_INIT3D |
smooth3D_Kwz(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
139 |
SMOOTH_INIT3D |
smooth3D_Kux(i,j,k,bi,bj)=smooth3D_Lx(i,j,k,bi,bj)* |
|
./pkg/smooth/smooth_init3d.F |
140 |
SMOOTH_INIT3D |
& smooth3D_Lx(i,j,k,bi,bj)/smooth3DtotTime/2 |
|
./pkg/smooth/smooth_init3d.F |
141 |
SMOOTH_INIT3D |
smooth3D_Kvy(i,j,k,bi,bj)=smooth3D_Ly(i,j,k,bi,bj)* |
|
./pkg/smooth/smooth_init3d.F |
142 |
SMOOTH_INIT3D |
& smooth3D_Ly(i,j,k,bi,bj)/smooth3DtotTime/2 |
|
./pkg/smooth/smooth_init3d.F |
143 |
SMOOTH_INIT3D |
smooth3D_Kuz(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
144 |
SMOOTH_INIT3D |
smooth3D_Kvz(i,j,k,bi,bj)=0. |
|
./pkg/smooth/smooth_init3d.F |
29 |
SMOOTH_INIT3D |
integer i,j,k, bi, bj, imin, imax, jmin, jmax |
|
./pkg/smooth/smooth_init3d.F |
56 |
SMOOTH_INIT3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_init3d.F |
59 |
SMOOTH_INIT3D |
smooth3D_Lz(i,j,k,bi,bj)=smooth3D_Lz0(smoothOpNb) |
|
./pkg/smooth/smooth_init3d.F |
69 |
SMOOTH_INIT3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_init3d.F |
72 |
SMOOTH_INIT3D |
smooth3D_kappaR(i,j,k,bi,bj)=smooth3D_Lz(i,j,k,bi,bj)* |
|
./pkg/smooth/smooth_init3d.F |
73 |
SMOOTH_INIT3D |
& smooth3D_Lz(i,j,k,bi,bj)/smooth3DtotTime/2 |
|
./pkg/smooth/smooth_init3d.F |
84 |
SMOOTH_INIT3D |
DO k=1,Nr |
|
./pkg/smooth/smooth_init3d.F |
88 |
SMOOTH_INIT3D |
smooth3D_KzMax=drC(k) |
|
./pkg/smooth/smooth_init3d.F |
90 |
SMOOTH_INIT3D |
if (smooth3D_kappaR(i,j,k,bi,bj).GT.smooth3D_KzMax) then |
|
./pkg/smooth/smooth_init3d.F |
91 |
SMOOTH_INIT3D |
smooth3D_kappaR(i,j,k,bi,bj)=smooth3D_KzMax |
|
./pkg/smooth/smooth_init_fixed.F |
24 |
SMOOTH_INIT_FIXED |
integer i,j,k, bi, bj, imin, imax, jmin, jmax |
|
./pkg/smooth/smooth_init_fixed.F |
35 |
SMOOTH_INIT_FIXED |
DO k=1,Nr |
|
./pkg/smooth/smooth_init_fixed.F |
38 |
SMOOTH_INIT_FIXED |
smooth_recip_hFacC(i,j,k,bi,bj)=_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_init_fixed.F |
39 |
SMOOTH_INIT_FIXED |
smooth_hFacW(i,j,k,bi,bj)=_hFacW(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_init_fixed.F |
40 |
SMOOTH_INIT_FIXED |
smooth_hFacS(i,j,k,bi,bj)=_hFacS(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
104 |
SMOOTH_RHS |
& maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
115 |
SMOOTH_RHS |
& *smooth3D_Kux(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
117 |
SMOOTH_RHS |
& *(fld_in(i,j,k,bi,bj)-fld_in(i-1,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
124 |
SMOOTH_RHS |
& +0.5*recip_drC(k)* |
|
./pkg/smooth/smooth_rhs.F |
125 |
SMOOTH_RHS |
& ( maskC(i-1,j,k,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
126 |
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 |
127 |
SMOOTH_RHS |
& +maskC( i ,j,k,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
128 |
SMOOTH_RHS |
& (fld_in( i ,j, MAX(k-1,1) ,bi,bj)-fld_in( i ,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
130 |
SMOOTH_RHS |
& +0.5*recip_drC(MIN(k+1,Nr))* |
|
./pkg/smooth/smooth_rhs.F |
131 |
SMOOTH_RHS |
& ( maskC(i-1,j,MIN(k+1,Nr),bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
132 |
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 |
133 |
SMOOTH_RHS |
& +maskC( i ,j,MIN(k+1,Nr),bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
134 |
SMOOTH_RHS |
& (fld_in( i ,j,k,bi,bj)-fld_in( i ,j,MIN(k+1,Nr),bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
137 |
SMOOTH_RHS |
& - xA(i,j,bi,bj)*smooth3D_Kuz(i,j,k,bi,bj)*dTdz(bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
144 |
SMOOTH_RHS |
& +0.5*(maskS(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
146 |
SMOOTH_RHS |
& (fld_in(i,j,k,bi,bj)-fld_in(i,j-1,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
147 |
SMOOTH_RHS |
& +maskS(i,j+1,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
149 |
SMOOTH_RHS |
& (fld_in(i,j+1,k,bi,bj)-fld_in(i,j,k,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
150 |
SMOOTH_RHS |
& +0.5*(maskS(i-1,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
152 |
SMOOTH_RHS |
& (fld_in(i-1,j,k,bi,bj)-fld_in(i-1,j-1,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
153 |
SMOOTH_RHS |
& +maskS(i-1,j+1,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
155 |
SMOOTH_RHS |
& (fld_in(i-1,j+1,k,bi,bj)-fld_in(i-1,j,k,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
158 |
SMOOTH_RHS |
& - xA(i,j,bi,bj)*smooth3D_Kuy(i,j,k,bi,bj)*dTdy(bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
167 |
SMOOTH_RHS |
fZon(i,j,k,bi,bj) = fZon(i,j,k,bi,bj) + df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
183 |
SMOOTH_RHS |
& *smooth3D_Kvy(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
185 |
SMOOTH_RHS |
& *(fld_in(i,j,k,bi,bj)-fld_in(i,j-1,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
192 |
SMOOTH_RHS |
& +0.5*recip_drC(k)* |
|
./pkg/smooth/smooth_rhs.F |
193 |
SMOOTH_RHS |
& ( maskC(i,j-1,k,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
194 |
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 |
195 |
SMOOTH_RHS |
& +maskC(i, j ,k,bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
196 |
SMOOTH_RHS |
& (fld_in(i, j ,MAX(k-1,1),bi,bj)-fld_in(i, j ,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
198 |
SMOOTH_RHS |
& +0.5*recip_drC(MIN(k+1,Nr))* |
|
./pkg/smooth/smooth_rhs.F |
199 |
SMOOTH_RHS |
& ( maskC(i,j-1,MIN(k+1,Nr),bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
200 |
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 |
201 |
SMOOTH_RHS |
& +maskC(i, j ,MIN(k+1,Nr),bi,bj)* |
|
./pkg/smooth/smooth_rhs.F |
202 |
SMOOTH_RHS |
& (fld_in(i, j ,k,bi,bj)-fld_in(i, j ,MIN(k+1,Nr),bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
205 |
SMOOTH_RHS |
& - yA(i,j,bi,bj)*smooth3D_Kvz(i,j,k,bi,bj)*dTdz(bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
212 |
SMOOTH_RHS |
& +0.5*(maskW(i+1,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
214 |
SMOOTH_RHS |
& (fld_in(i+1,j,k,bi,bj)-fld_in(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
215 |
SMOOTH_RHS |
& +maskW(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
217 |
SMOOTH_RHS |
& (fld_in(i,j,k,bi,bj)-fld_in(i-1,j,k,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
218 |
SMOOTH_RHS |
& +0.5*(maskW(i+1,j-1,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
220 |
SMOOTH_RHS |
& (fld_in(i+1,j-1,k,bi,bj)-fld_in(i,j-1,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
221 |
SMOOTH_RHS |
& +maskW(i,j-1,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
223 |
SMOOTH_RHS |
& (fld_in(i,j-1,k,bi,bj)-fld_in(i-1,j-1,k,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
226 |
SMOOTH_RHS |
& - yA(i,j,bi,bj)*smooth3D_Kvx(i,j,k,bi,bj)*dTdx(bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
234 |
SMOOTH_RHS |
fMer(i,j,k,bi,bj) = fMer(i,j,k,bi,bj) + df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
248 |
SMOOTH_RHS |
IF (k.gt.1) then |
|
./pkg/smooth/smooth_rhs.F |
253 |
SMOOTH_RHS |
& *smooth3D_kappaR(i,j,k,bi,bj)*recip_drC(k) |
|
./pkg/smooth/smooth_rhs.F |
254 |
SMOOTH_RHS |
& *(fld_in(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
255 |
SMOOTH_RHS |
& -fld_in(i,j,k-1,bi,bj))*rkSign |
|
./pkg/smooth/smooth_rhs.F |
268 |
SMOOTH_RHS |
& +0.5*(maskW(i+1,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
270 |
SMOOTH_RHS |
& (fld_in(i+1,j,k,bi,bj)-fld_in(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
271 |
SMOOTH_RHS |
& +maskW(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
273 |
SMOOTH_RHS |
& (fld_in(i,j,k,bi,bj)-fld_in(i-1,j,k,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
274 |
SMOOTH_RHS |
& +0.5*(maskW(i+1,j,k-1,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
276 |
SMOOTH_RHS |
& (fld_in(i+1,j,k-1,bi,bj)-fld_in(i,j,k-1,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
277 |
SMOOTH_RHS |
& +maskW(i,j,k-1,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
279 |
SMOOTH_RHS |
& (fld_in(i,j,k-1,bi,bj)-fld_in(i-1,j,k-1,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
283 |
SMOOTH_RHS |
& +0.5*(maskS(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
285 |
SMOOTH_RHS |
& (fld_in(i,j,k,bi,bj)-fld_in(i,j-1,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
286 |
SMOOTH_RHS |
& +maskS(i,j+1,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
288 |
SMOOTH_RHS |
& (fld_in(i,j+1,k,bi,bj)-fld_in(i,j,k,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
289 |
SMOOTH_RHS |
& +0.5*(maskS(i,j,k-1,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
291 |
SMOOTH_RHS |
& (fld_in(i,j,k-1,bi,bj)-fld_in(i,j-1,k-1,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
292 |
SMOOTH_RHS |
& +maskS(i,j+1,k-1,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
294 |
SMOOTH_RHS |
& (fld_in(i,j+1,k-1,bi,bj)-fld_in(i,j,k-1,bi,bj))) |
|
./pkg/smooth/smooth_rhs.F |
299 |
SMOOTH_RHS |
& *( smooth3D_Kwx(i,j,k,bi,bj)*dTdx(bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
300 |
SMOOTH_RHS |
& +smooth3D_Kwy(i,j,k,bi,bj)*dTdy(bi,bj) ) |
|
./pkg/smooth/smooth_rhs.F |
312 |
SMOOTH_RHS |
fVerT(i,j,k-1,bi,bj) = fVerT(i,j,k-1,bi,bj) + |
|
./pkg/smooth/smooth_rhs.F |
335 |
SMOOTH_RHS |
DO k=1,Nr |
|
./pkg/smooth/smooth_rhs.F |
339 |
SMOOTH_RHS |
gt_in(i,j,k,bi,bj)=gt_in(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
340 |
SMOOTH_RHS |
& -smooth_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/smooth/smooth_rhs.F |
342 |
SMOOTH_RHS |
& *( (fZon(i+1,j,k,bi,bj)-fZon(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
343 |
SMOOTH_RHS |
& +(fMer(i,j+1,k,bi,bj)-fMer(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
344 |
SMOOTH_RHS |
& +(fVerT(i,j,k,bi,bj)-fVerT(i,j,k-1,bi,bj))*rkSign |
|
./pkg/smooth/smooth_rhs.F |
351 |
SMOOTH_RHS |
gt_in(i,j,k,bi,bj)=gt_in(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
352 |
SMOOTH_RHS |
& -smooth_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/smooth/smooth_rhs.F |
354 |
SMOOTH_RHS |
& *( (fZon(i+1,j,k,bi,bj)-fZon(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
355 |
SMOOTH_RHS |
& +(fMer(i,j+1,k,bi,bj)-fMer(i,j,k,bi,bj)) |
|
./pkg/smooth/smooth_rhs.F |
356 |
SMOOTH_RHS |
& +(fVerT(i,j,k,bi,bj))*rkSign |
|
./pkg/smooth/smooth_rhs.F |
61 |
SMOOTH_RHS |
INTEGER i,j,k |
|
./pkg/smooth/smooth_rhs.F |
74 |
SMOOTH_RHS |
DO k=1,Nr |
|
./pkg/smooth/smooth_rhs.F |
77 |
SMOOTH_RHS |
fZon(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_rhs.F |
78 |
SMOOTH_RHS |
fMer(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_rhs.F |
79 |
SMOOTH_RHS |
fVerT(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_rhs.F |
80 |
SMOOTH_RHS |
gt_in(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_rhs.F |
91 |
SMOOTH_RHS |
DO k=1,Nr |
|
./pkg/smooth/smooth_rhs.F |
97 |
SMOOTH_RHS |
& *drF(k)*smooth_hFacW(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
99 |
SMOOTH_RHS |
& *drF(k)*smooth_hFacS(i,j,k,bi,bj) |
|
./pkg/sphere/sphere.F |
322 |
SHC2ZONE |
do k = 1,lmax |
|
./pkg/sphere/sphere.F |
323 |
SHC2ZONE |
fact(k) = 1.0 |
|
./pkg/streamice/adstreamice_cg_solve.F |
70 |
ADSTREAMICE_CG_SOLVE |
INTEGER iter, is, js, ie, je, colx, coly, k |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
147 |
STREAMICE_ADV_FLUX_FL_X |
DO k=-1,1 |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
148 |
STREAMICE_ADV_FLUX_FL_X |
stencil (k) = TRAC(i-k,j,bi,bj) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
42 |
STREAMICE_ADV_FLUX_FL_X |
INTEGER i, j, bi, bj, Gi, Gj, k |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
95 |
STREAMICE_ADV_FLUX_FL_X |
DO k=-1,1 |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
96 |
STREAMICE_ADV_FLUX_FL_X |
stencil (k) = TRAC(i+k-1,j,bi,bj) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
150 |
STREAMICE_ADV_FLUX_FL_Y |
DO k=-1,1 |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
151 |
STREAMICE_ADV_FLUX_FL_Y |
stencil (k) = TRAC(i,j-k,bi,bj) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
42 |
STREAMICE_ADV_FLUX_FL_Y |
INTEGER i, j, bi, bj, Gi, Gj, k |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
98 |
STREAMICE_ADV_FLUX_FL_Y |
DO k=-1,1 |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
99 |
STREAMICE_ADV_FLUX_FL_Y |
stencil (k) = TRAC(i,j+k-1,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
238 |
STREAMICE_ADV_FRONT |
DO k=1,4 |
|
./pkg/streamice/streamice_adv_front.F |
242 |
STREAMICE_ADV_FRONT |
DO k=1,2 |
|
./pkg/streamice/streamice_adv_front.F |
243 |
STREAMICE_ADV_FRONT |
IF ( (STREAMICE_ufacemask(i-1+k,j,bi,bj).eq.2.0) .or. |
|
./pkg/streamice/streamice_adv_front.F |
245 |
STREAMICE_ADV_FRONT |
& STREAMICE_calve_mask(i+2*k-3,j,bi,bj).ne.1.0) |
|
./pkg/streamice/streamice_adv_front.F |
248 |
STREAMICE_ADV_FRONT |
ELSEIF (STREAMICE_hmask(i+2*k-3,j,bi,bj).eq.0 _d 0) THEN ! adjacent cell is completely ice free |
|
./pkg/streamice/streamice_adv_front.F |
250 |
STREAMICE_ADV_FRONT |
new_partial (k) = 1 |
|
./pkg/streamice/streamice_adv_front.F |
253 |
STREAMICE_ADV_FRONT |
DO k=1,2 |
|
./pkg/streamice/streamice_adv_front.F |
254 |
STREAMICE_ADV_FRONT |
IF ( (STREAMICE_vfacemask (i,j-1+k,bi,bj).eq.2.0) .or. |
|
./pkg/streamice/streamice_adv_front.F |
256 |
STREAMICE_ADV_FRONT |
& STREAMICE_calve_mask(i,j+2*k-3,bi,bj).ne.1.0) |
|
./pkg/streamice/streamice_adv_front.F |
259 |
STREAMICE_ADV_FRONT |
ELSEIF (STREAMICE_hmask(i,j+2*k-3,bi,bj).eq.0 _d 0) THEN |
|
./pkg/streamice/streamice_adv_front.F |
261 |
STREAMICE_ADV_FRONT |
new_partial (k+2) = 1 |
|
./pkg/streamice/streamice_adv_front.F |
271 |
STREAMICE_ADV_FRONT |
DO k=1,2 |
|
./pkg/streamice/streamice_adv_front.F |
272 |
STREAMICE_ADV_FRONT |
IF (new_partial(k) .eq. 1) THEN |
|
./pkg/streamice/streamice_adv_front.F |
273 |
STREAMICE_ADV_FRONT |
hflux_x_SI2(i-1+k,j,bi,bj) = |
|
./pkg/streamice/streamice_adv_front.F |
275 |
STREAMICE_ADV_FRONT |
& dxG(i-1+k,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
279 |
STREAMICE_ADV_FRONT |
DO k=1,2 |
|
./pkg/streamice/streamice_adv_front.F |
280 |
STREAMICE_ADV_FRONT |
IF (new_partial(k+2) .eq. 1) THEN |
|
./pkg/streamice/streamice_adv_front.F |
281 |
STREAMICE_ADV_FRONT |
hflux_y_SI2(i,j-1+k,bi,bj) = |
|
./pkg/streamice/streamice_adv_front.F |
283 |
STREAMICE_ADV_FRONT |
& dxG(i,j-1+k,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
44 |
STREAMICE_ADV_FRONT |
INTEGER i, j, bi, bj, k, iter_count, iter_rpt |
|
./pkg/streamice/streamice_advect_thickness.F |
41 |
STREAMICE_ADVECT_THICKNESS |
INTEGER i, j, bi, bj, Gi, Gj, k |
|
./pkg/streamice/streamice_advect_thickness.F |
72 |
STREAMICE_ADVECT_THICKNESS |
DO k=1,streamice_smooth_thick_adjoint |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
34 |
STREAMICE_APPLY_FLUX_CTRL |
INTEGER bi, bj, i, j, k |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
62 |
STREAMICE_APPLY_FLUX_CTRL |
DO k=1,n_fluxes_max |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
63 |
STREAMICE_APPLY_FLUX_CTRL |
IF (maskval.eq.streamice_ctrl_flux_id(k)) THEN |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
67 |
STREAMICE_APPLY_FLUX_CTRL |
& streamice_flux_scale_current (k) |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
72 |
STREAMICE_APPLY_FLUX_CTRL |
& streamice_flux_scale_current (k) |
|
./pkg/streamice/streamice_cg_functions.F |
242 |
STREAMICE_CG_MAKE_A |
INTEGER jlqx, jlqy, jnodx,jnody, m_j, col_y, col_x, cg_halo, k |
|
./pkg/streamice/streamice_cg_solve.F |
68 |
STREAMICE_CG_SOLVE |
INTEGER iter, is, js, ie, je, colx, coly, k |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
47 |
STREAMICE_CG_SOLVE_MATFREE |
INTEGER iter, is, js, ie, je, colx, coly, k |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
233 |
STREAMICE_CG_SOLVE_PETSC |
DO k=1,18 |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
234 |
STREAMICE_CG_SOLVE_PETSC |
indices_col(k) = 0 |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
235 |
STREAMICE_CG_SOLVE_PETSC |
mat_values(k,1) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
237 |
STREAMICE_CG_SOLVE_PETSC |
k=0 |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
248 |
STREAMICE_CG_SOLVE_PETSC |
k=k+1 |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
249 |
STREAMICE_CG_SOLVE_PETSC |
mat_values (k,1) = A_uu(i,j,bi,bj,colx,coly) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
250 |
STREAMICE_CG_SOLVE_PETSC |
indices_col (k) = dof_index_col |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
258 |
STREAMICE_CG_SOLVE_PETSC |
k=k+1 |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
259 |
STREAMICE_CG_SOLVE_PETSC |
mat_values (k,1) = A_uv(i,j,bi,bj,colx,coly) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
260 |
STREAMICE_CG_SOLVE_PETSC |
indices_col (k) = dof_index_col |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
266 |
STREAMICE_CG_SOLVE_PETSC |
call MATSETVALUES (matrix, 1, dof_index, k, indices_col, |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
279 |
STREAMICE_CG_SOLVE_PETSC |
DO k=1,18 |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
280 |
STREAMICE_CG_SOLVE_PETSC |
indices_col(k) = 0 |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
281 |
STREAMICE_CG_SOLVE_PETSC |
mat_values(k,1) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
283 |
STREAMICE_CG_SOLVE_PETSC |
k=0 |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
293 |
STREAMICE_CG_SOLVE_PETSC |
k=k+1 |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
294 |
STREAMICE_CG_SOLVE_PETSC |
mat_values (k,1) = A_vu(i,j,bi,bj,colx,coly) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
295 |
STREAMICE_CG_SOLVE_PETSC |
indices_col (k) = dof_index_col |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
303 |
STREAMICE_CG_SOLVE_PETSC |
k=k+1 |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
304 |
STREAMICE_CG_SOLVE_PETSC |
mat_values (k,1) = A_vv(i,j,bi,bj,colx,coly) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
305 |
STREAMICE_CG_SOLVE_PETSC |
indices_col (k) = dof_index_col |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
311 |
STREAMICE_CG_SOLVE_PETSC |
call MATSETVALUES (matrix, 1, dof_index, k, indices_col, |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
73 |
STREAMICE_CG_SOLVE_PETSC |
INTEGER iter, is, js, ie, je, colx, coly, k |
|
./pkg/streamice/streamice_check.F |
35 |
STREAMICE_CHECK |
INTEGER m,n,k |
|
./pkg/streamice/streamice_cost_surf_accum.F |
49 |
STREAMICE_COST_SURF_ACCUM |
integer i, j, k, bi, bj |
|
./pkg/streamice/streamice_driving_stress.F |
38 |
STREAMICE_DRIVING_STRESS |
INTEGER i, j, bi, bj, k, l, |
|
./model/src/ini_linear_phisurf.F |
124 |
INI_LINEAR_PHISURF |
k = kSurfC(i,j,bi,bj) |
|
./model/src/ini_linear_phisurf.F |
126 |
INI_LINEAR_PHISURF |
I tRef(k), sRef(k), pLoc, |
|
./model/src/ini_linear_phisurf.F |
49 |
INI_LINEAR_PHISURF |
INTEGER i, j, k |
|
./pkg/streamice/streamice_driving_stress_fd.F |
38 |
STREAMICE_DRIVING_STRESS_FD |
INTEGER i, j, bi, bj, k, l, |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
100 |
STREAMICE_DRIVING_STRESS_PPM |
taudx_SI(i+k,j+l,bi,bj) = taudx_SI(i+k,j+l,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
125 |
STREAMICE_DRIVING_STRESS_PPM |
DO k=0,1 |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
127 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
128 |
STREAMICE_DRIVING_STRESS_PPM |
taudx_SI(i+k,j+l,bi,bj) = taudx_SI(i+k,j+l,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
143 |
STREAMICE_DRIVING_STRESS_PPM |
k = 0 |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
145 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
146 |
STREAMICE_DRIVING_STRESS_PPM |
taudx_SI(i+k,j+l,bi,bj) = taudx_SI(i+k,j+l,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
156 |
STREAMICE_DRIVING_STRESS_PPM |
k = 1 |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
158 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
159 |
STREAMICE_DRIVING_STRESS_PPM |
taudx_SI(i+k,j+l,bi,bj) = taudx_SI(i+k,j+l,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
188 |
STREAMICE_DRIVING_STRESS_PPM |
DO k=0,1 |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
190 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
191 |
STREAMICE_DRIVING_STRESS_PPM |
taudx_SI(i+k,j+l,bi,bj) = taudx_SI(i+k,j+l,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
222 |
STREAMICE_DRIVING_STRESS_PPM |
DO k=0,1 |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
224 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
225 |
STREAMICE_DRIVING_STRESS_PPM |
taudy_SI(i+k,j+l,bi,bj) = taudy_SI(i+k,j+l,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
251 |
STREAMICE_DRIVING_STRESS_PPM |
DO k=0,1 |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
253 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
254 |
STREAMICE_DRIVING_STRESS_PPM |
taudy_SI(i+k,j+l,bi,bj) = taudy_SI(i+k,j+l,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
270 |
STREAMICE_DRIVING_STRESS_PPM |
DO k=0,1 |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
271 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
272 |
STREAMICE_DRIVING_STRESS_PPM |
taudy_SI(i+k,j+l,bi,bj) = taudy_SI(i+k,j+l,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
283 |
STREAMICE_DRIVING_STRESS_PPM |
DO k=0,1 |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
284 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
285 |
STREAMICE_DRIVING_STRESS_PPM |
taudy_SI(i+k,j+l,bi,bj) = taudy_SI(i+k,j+l,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
314 |
STREAMICE_DRIVING_STRESS_PPM |
DO k=0,1 |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
316 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
317 |
STREAMICE_DRIVING_STRESS_PPM |
taudy_SI(i+k,j+l,bi,bj) = |