| 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) = taudy_SI(i+k,j+l,bi,bj) - |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
38 |
STREAMICE_DRIVING_STRESS_PPM |
INTEGER i, j, bi, bj, k, l, |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
97 |
STREAMICE_DRIVING_STRESS_PPM |
DO k=0,1 |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
99 |
STREAMICE_DRIVING_STRESS_PPM |
IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN |
|
./pkg/streamice/streamice_forced_buttress.F |
141 |
STREAMICE_FORCED_BUTTRESS |
do k=0,1 |
|
./pkg/streamice/streamice_forced_buttress.F |
142 |
STREAMICE_FORCED_BUTTRESS |
if (streamice_umask(i+1,j+k,bi,bj).eq.1.0) then |
|
./pkg/streamice/streamice_forced_buttress.F |
144 |
STREAMICE_FORCED_BUTTRESS |
if ((j+k).eq.10) then |
|
./pkg/streamice/streamice_forced_buttress.F |
146 |
STREAMICE_FORCED_BUTTRESS |
& taudx_SI(i+1,j+k,bi,bj) |
|
./pkg/streamice/streamice_forced_buttress.F |
149 |
STREAMICE_FORCED_BUTTRESS |
taudx_SI(i+1,j+k,bi,bj) = taudx_SI(i+1,j+k,bi,bj) + |
|
./pkg/streamice/streamice_forced_buttress.F |
154 |
STREAMICE_FORCED_BUTTRESS |
taudy_SI(i+1,j+k,bi,bj) = taudy_SI(i+1,j+k,bi,bj) + |
|
./pkg/streamice/streamice_forced_buttress.F |
159 |
STREAMICE_FORCED_BUTTRESS |
if ((j+k).eq.10) then |
|
./pkg/streamice/streamice_forced_buttress.F |
160 |
STREAMICE_FORCED_BUTTRESS |
print *, "GOT HERE 1", taudx_SI(i+1,j+k,bi,bj) |
|
./pkg/streamice/streamice_forced_buttress.F |
171 |
STREAMICE_FORCED_BUTTRESS |
do k=0,1 |
|
./pkg/streamice/streamice_forced_buttress.F |
172 |
STREAMICE_FORCED_BUTTRESS |
if (streamice_umask(i,j+k,bi,bj).eq.1.0) then |
|
./pkg/streamice/streamice_forced_buttress.F |
175 |
STREAMICE_FORCED_BUTTRESS |
taudx_SI(i,j+k,bi,bj) = taudx_SI(i,j+k,bi,bj) - |
|
./pkg/streamice/streamice_forced_buttress.F |
180 |
STREAMICE_FORCED_BUTTRESS |
taudy_SI(i,j+k,bi,bj) = taudy_SI(i,j+k,bi,bj) - |
|
./pkg/streamice/streamice_forced_buttress.F |
192 |
STREAMICE_FORCED_BUTTRESS |
do k=0,1 |
|
./pkg/streamice/streamice_forced_buttress.F |
193 |
STREAMICE_FORCED_BUTTRESS |
if (streamice_umask(i+k,j+1,bi,bj).eq.1.0) then |
|
./pkg/streamice/streamice_forced_buttress.F |
195 |
STREAMICE_FORCED_BUTTRESS |
taudy_SI(i+k,j+1,bi,bj) = taudy_SI(i+k,j+1,bi,bj) + |
|
./pkg/streamice/streamice_forced_buttress.F |
200 |
STREAMICE_FORCED_BUTTRESS |
taudx_SI(i+k,j+1,bi,bj) = taudx_SI(i+k,j+1,bi,bj) + |
|
./pkg/streamice/streamice_forced_buttress.F |
211 |
STREAMICE_FORCED_BUTTRESS |
do k=0,1 |
|
./pkg/streamice/streamice_forced_buttress.F |
212 |
STREAMICE_FORCED_BUTTRESS |
if (streamice_umask(i+k,j,bi,bj).eq.1.0) then |
|
./pkg/streamice/streamice_forced_buttress.F |
214 |
STREAMICE_FORCED_BUTTRESS |
taudy_SI(i+k,j,bi,bj) = taudy_SI(i+k,j,bi,bj) - |
|
./pkg/streamice/streamice_forced_buttress.F |
219 |
STREAMICE_FORCED_BUTTRESS |
taudx_SI(i+k,j,bi,bj) = taudx_SI(i+k,j,bi,bj) - |
|
./pkg/streamice/streamice_forced_buttress.F |
38 |
STREAMICE_FORCED_BUTTRESS |
INTEGER i, j, bi, bj, k, l |
|
./pkg/streamice/streamice_init_fixed.F |
263 |
STREAMICE_INIT_FIXED |
DO k=1,Nr |
|
./pkg/streamice/streamice_init_fixed.F |
264 |
STREAMICE_INIT_FIXED |
STREAMICE_ctrl_mask(i,j,k,bi,bj) = 1. _d 0 |
|
./pkg/streamice/streamice_init_fixed.F |
36 |
STREAMICE_INIT_FIXED |
INTEGER bi, bj, i, j, Gi, Gj, m, k |
|
./pkg/streamice/streamice_init_varia.F |
111 |
STREAMICE_INIT_VARIA |
do k=1,Nr |
|
./pkg/streamice/streamice_init_varia.F |
112 |
STREAMICE_INIT_VARIA |
visc_streamice_full(i,j,k,bi,bj) = |
|
./pkg/streamice/streamice_init_varia.F |
266 |
STREAMICE_INIT_VARIA |
Do k=1,Nr |
|
./pkg/streamice/streamice_init_varia.F |
267 |
STREAMICE_INIT_VARIA |
STREAMICE_ctrl_mask(i,j,k,bi,bj) = 1. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
39 |
STREAMICE_INIT_VARIA |
INTEGER i, j, k, bi, bj, Gi, Gj, r |
|
./pkg/streamice/streamice_init_varia.F |
72 |
STREAMICE_INIT_VARIA |
do k=1,Nr |
|
./pkg/streamice/streamice_init_varia.F |
73 |
STREAMICE_INIT_VARIA |
B_glen(i,j,k,bi,bj) = B_glen_isothermal |
|
./model/src/ini_masks_etc.F |
109 |
INI_MASKS_ETC |
DO k=1, Nr |
|
./model/src/ini_masks_etc.F |
110 |
INI_MASKS_ETC |
hFacMnSz = MAX( hFacMin, MIN(hFacMinDr*recip_drF(k),oneRL) ) |
|
./model/src/ini_masks_etc.F |
114 |
INI_MASKS_ETC |
hFacCtmp = (rF(k)-R_low(i,j,bi,bj))*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
120 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
122 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj) = hFacMnSz |
|
./model/src/ini_masks_etc.F |
125 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj) = hFacCtmp |
|
./model/src/ini_masks_etc.F |
137 |
INI_MASKS_ETC |
DO k=1,Nr |
|
./model/src/ini_masks_etc.F |
140 |
INI_MASKS_ETC |
tmpVar1(i,j) = tmpVar1(i,j) + drF(k)*hFacC(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
152 |
INI_MASKS_ETC |
DO k=1, Nr |
|
./model/src/ini_masks_etc.F |
153 |
INI_MASKS_ETC |
hFacMnSz = MAX( hFacMin, MIN(hFacMinDr*recip_drF(k),oneRL) ) |
|
./model/src/ini_masks_etc.F |
157 |
INI_MASKS_ETC |
hFacCtmp = (rF(k)-Ro_surf(i,j,bi,bj))*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
159 |
INI_MASKS_ETC |
hFacCtmp = hFacC(i,j,k,bi,bj) - MAX( hFacCtmp, zeroRL ) |
|
./model/src/ini_masks_etc.F |
165 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
167 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj) = hFacMnSz |
|
./model/src/ini_masks_etc.F |
170 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj) = hFacCtmp |
|
./model/src/ini_masks_etc.F |
187 |
INI_MASKS_ETC |
DO k=1,Nr |
|
./model/src/ini_masks_etc.F |
190 |
INI_MASKS_ETC |
tmpVar2(i,j) = tmpVar2(i,j) + drF(k)*hFacC(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
192 |
INI_MASKS_ETC |
IF ( hFacC(i,j,k,bi,bj).NE.zeroRS ) kLowC(i,j,bi,bj) = k |
|
./model/src/ini_masks_etc.F |
196 |
INI_MASKS_ETC |
DO k=Nr,1,-1 |
|
./model/src/ini_masks_etc.F |
199 |
INI_MASKS_ETC |
IF ( hFacC(i,j,k,bi,bj).NE.zeroRS ) kSurfC(i,j,bi,bj) = k |
|
./model/src/ini_masks_etc.F |
256 |
INI_MASKS_ETC |
DO k=1, Nr |
|
./model/src/ini_masks_etc.F |
258 |
INI_MASKS_ETC |
hFacW(1-OLx,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
260 |
INI_MASKS_ETC |
hFacW(i,j,k,bi,bj) = |
|
./model/src/ini_masks_etc.F |
261 |
INI_MASKS_ETC |
& MIN( hFacC(i,j,k,bi,bj), hFacC(i-1,j,k,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
265 |
INI_MASKS_ETC |
hFacS(i,1-OLy,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
269 |
INI_MASKS_ETC |
hFacS(i,j,k,bi,bj) = |
|
./model/src/ini_masks_etc.F |
270 |
INI_MASKS_ETC |
& MIN( hFacC(i,j,k,bi,bj), hFacC(i,j-1,k,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
280 |
INI_MASKS_ETC |
DO k=1, Nr |
|
./model/src/ini_masks_etc.F |
281 |
INI_MASKS_ETC |
hFacMnSz = MAX( hFacMin, MIN(hFacMinDr*recip_drF(k),oneRL) ) |
|
./model/src/ini_masks_etc.F |
285 |
INI_MASKS_ETC |
hFac1tmp = ( rF(k) - rLowW(i,j,bi,bj) )*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
296 |
INI_MASKS_ETC |
hFac2tmp = ( rF(k) -rSurfW(i,j,bi,bj) )*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
300 |
INI_MASKS_ETC |
hFacW(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
302 |
INI_MASKS_ETC |
hFacW(i,j,k,bi,bj) = MAX( hFacCtmp, hFacMnSz ) |
|
./model/src/ini_masks_etc.F |
309 |
INI_MASKS_ETC |
hFac1tmp = ( rF(k) - rLowS(i,j,bi,bj) )*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
320 |
INI_MASKS_ETC |
hFac2tmp = ( rF(k) -rSurfS(i,j,bi,bj) )*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
324 |
INI_MASKS_ETC |
hFacS(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
326 |
INI_MASKS_ETC |
hFacS(i,j,k,bi,bj) = MAX( hFacCtmp, hFacMnSz ) |
|
./model/src/ini_masks_etc.F |
369 |
INI_MASKS_ETC |
DO k=1,Nr |
|
./model/src/ini_masks_etc.F |
372 |
INI_MASKS_ETC |
tmpVar1(i,j) = tmpVar1(i,j) + drF(k)*hFacW(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
373 |
INI_MASKS_ETC |
tmpVar2(i,j) = tmpVar2(i,j) + drF(k)*hFacS(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
439 |
INI_MASKS_ETC |
DO k=Nr,1,-1 |
|
./model/src/ini_masks_etc.F |
440 |
INI_MASKS_ETC |
IF (hFacW(i,j,k,bi,bj).NE.zeroRS) kSurfW(i,j,bi,bj) = k |
|
./model/src/ini_masks_etc.F |
441 |
INI_MASKS_ETC |
IF (hFacS(i,j,k,bi,bj).NE.zeroRS) kSurfS(i,j,bi,bj) = k |
|
./model/src/ini_masks_etc.F |
45 |
INI_MASKS_ETC |
INTEGER i, j, k |
|
./model/src/ini_masks_etc.F |
477 |
INI_MASKS_ETC |
DO k=1,Nr |
|
./model/src/ini_masks_etc.F |
480 |
INI_MASKS_ETC |
IF ( hFacC(i,j,k,bi,bj).NE.zeroRS ) THEN |
|
./model/src/ini_masks_etc.F |
481 |
INI_MASKS_ETC |
recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / hFacC(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
482 |
INI_MASKS_ETC |
maskC(i,j,k,bi,bj) = 1. |
|
./model/src/ini_masks_etc.F |
484 |
INI_MASKS_ETC |
recip_hFacC(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
485 |
INI_MASKS_ETC |
maskC(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
487 |
INI_MASKS_ETC |
IF ( hFacW(i,j,k,bi,bj).NE.zeroRS ) THEN |
|
./model/src/ini_masks_etc.F |
488 |
INI_MASKS_ETC |
recip_hFacW(i,j,k,bi,bj) = 1. _d 0 / hFacW(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
489 |
INI_MASKS_ETC |
maskW(i,j,k,bi,bj) = 1. |
|
./model/src/ini_masks_etc.F |
491 |
INI_MASKS_ETC |
recip_hFacW(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
492 |
INI_MASKS_ETC |
maskW(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
494 |
INI_MASKS_ETC |
IF ( hFacS(i,j,k,bi,bj).NE.zeroRS ) THEN |
|
./model/src/ini_masks_etc.F |
495 |
INI_MASKS_ETC |
recip_hFacS(i,j,k,bi,bj) = 1. _d 0 / hFacS(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
496 |
INI_MASKS_ETC |
maskS(i,j,k,bi,bj) = 1. |
|
./model/src/ini_masks_etc.F |
498 |
INI_MASKS_ETC |
recip_hFacS(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
499 |
INI_MASKS_ETC |
maskS(i,j,k,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
508 |
INI_MASKS_ETC |
DO k=1,Nr |
|
./model/src/ini_masks_etc.F |
511 |
INI_MASKS_ETC |
h0FacC(i,j,k,bi,bj) = _hFacC(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
512 |
INI_MASKS_ETC |
h0FacW(i,j,k,bi,bj) = _hFacW(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
513 |
INI_MASKS_ETC |
h0FacS(i,j,k,bi,bj) = _hFacS(i,j,k,bi,bj) |
|
./pkg/streamice/streamice_taub.F |
37 |
STREAMICE_TAUB |
INTEGER i, j, bi, bj, k, l |
|
./pkg/streamice/streamice_taub.F |
64 |
STREAMICE_TAUB |
DO k=0,1 |
|
./pkg/streamice/streamice_taub.F |
67 |
STREAMICE_TAUB |
& dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) * |
|
./pkg/streamice/streamice_taub.F |
70 |
STREAMICE_TAUB |
& U_new_si(i+k,j+l,bi,bj) |
|
./pkg/streamice/streamice_taub.F |
72 |
STREAMICE_TAUB |
& U_streamice(i+k,j+l,bi,bj) |
|
./pkg/streamice/streamice_taub.F |
75 |
STREAMICE_TAUB |
& dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) * |
|
./pkg/streamice/streamice_taub.F |
78 |
STREAMICE_TAUB |
& V_new_si(i+k,j+l,bi,bj) |
|
./pkg/streamice/streamice_taub.F |
80 |
STREAMICE_TAUB |
& V_streamice(i+k,j+l,bi,bj) |
|
./pkg/streamice/streamice_tridiag_solve.F |
38 |
STREAMICE_TRIDIAG_SOLVE |
INTEGER iMin,iMax,i,j,k |
|
./pkg/streamice/streamice_tridiag_solve.F |
77 |
STREAMICE_TRIDIAG_SOLVE |
do k=1,3 |
|
./pkg/streamice/streamice_tridiag_solve.F |
78 |
STREAMICE_TRIDIAG_SOLVE |
aMat(i) = amat(i)+A_uu(i,k,1,1,-1,j) |
|
./pkg/streamice/streamice_tridiag_solve.F |
79 |
STREAMICE_TRIDIAG_SOLVE |
bMat(i) = bmat(i)+A_uu(i,k,1,1,0,j) |
|
./pkg/streamice/streamice_tridiag_solve.F |
80 |
STREAMICE_TRIDIAG_SOLVE |
cMat(i) = cmat(i)+A_uu(i,k,1,1,1,j) |
|
./pkg/streamice/streamice_vel_solve.F |
52 |
STREAMICE_VEL_SOLVE |
INTEGER i, j, k, l, iter, cg_iters, bi, bj |
|
./pkg/streamice/streamice_vel_solve_openad.F |
44 |
STREAMICE_VEL_SOLVE_OPENAD |
INTEGER i, j, k, l, bi, bj, loopiter |
|
./model/src/ini_mixing.F |
49 |
INI_MIXING |
INTEGER i, j, k |
|
./model/src/ini_mixing.F |
54 |
INI_MIXING |
DO k=1,Nr |
|
./model/src/ini_mixing.F |
58 |
INI_MIXING |
diffKr(i,j,k,bi,bj) = diffKrNrS(k) |
|
./model/src/ini_mixing.F |
62 |
INI_MIXING |
kapGM(i,j,k,bi,bj) = GM_background_K* |
|
./model/src/ini_mixing.F |
63 |
INI_MIXING |
& GM_bolFac2d(i,j,bi,bj)*GM_bolFac1d(k) |
|
./model/src/ini_mixing.F |
66 |
INI_MIXING |
kapRedi(i,j,k,bi,bj) = GM_isopycK* |
|
./model/src/ini_mixing.F |
67 |
INI_MIXING |
& GM_isoFac2d(i,j,bi,bj)*GM_isoFac1d(k) |
|
./pkg/streamice/streamice_visc_beta.F |
36 |
STREAMICE_VISC_BETA |
INTEGER i, j, bi, bj, k, l |
|
./pkg/streamice/streamice_visc_beta.F |
49 |
STREAMICE_VISC_BETA |
DO k=0,1 |
|
./pkg/streamice/streamice_visc_beta.F |
52 |
STREAMICE_VISC_BETA |
& dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) * |
|
./pkg/streamice/streamice_visc_beta.F |
54 |
STREAMICE_VISC_BETA |
& U_streamice(i+k,j+l,bi,bj) |
|
./pkg/streamice/streamice_visc_beta.F |
56 |
STREAMICE_VISC_BETA |
& dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) * |
|
./pkg/streamice/streamice_visc_beta.F |
58 |
STREAMICE_VISC_BETA |
& V_streamice(i+k,j+l,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
42 |
STREAMICE_VISC_BETA_HYBRID |
INTEGER i, j, bi, bj, k, l, m |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
69 |
STREAMICE_VISC_BETA_HYBRID |
DO k=0,1 |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
72 |
STREAMICE_VISC_BETA_HYBRID |
& dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
74 |
STREAMICE_VISC_BETA_HYBRID |
& U_streamice(i+k,j+l,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
76 |
STREAMICE_VISC_BETA_HYBRID |
& dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
78 |
STREAMICE_VISC_BETA_HYBRID |
& V_streamice(i+k,j+l,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
130 |
THSICE_ADVECTION |
INTEGER i,j,k |
|
./pkg/thsice/thsice_advection.F |
152 |
THSICE_ADVECTION |
k = 1 |
|
./pkg/thsice/thsice_advection.F |
359 |
THSICE_ADVECTION |
CALL GAD_DST2U1_ADV_X( bi,bj,k, advectionScheme, .FALSE., |
|
./pkg/thsice/thsice_advection.F |
368 |
THSICE_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_X( bi,bj,k, .FALSE., deltaTadvect, |
|
./pkg/thsice/thsice_advection.F |
372 |
THSICE_ADVECTION |
CALL GAD_DST3_ADV_X( bi,bj,k, .FALSE., deltaTadvect, |
|
./pkg/thsice/thsice_advection.F |
376 |
THSICE_ADVECTION |
CALL GAD_DST3FL_ADV_X( bi,bj,k, .FALSE., deltaTadvect, |
|
./pkg/thsice/thsice_advection.F |
579 |
THSICE_ADVECTION |
CALL GAD_DST2U1_ADV_Y( bi,bj,k, advectionScheme, .FALSE., |
|
./pkg/thsice/thsice_advection.F |
588 |
THSICE_ADVECTION |
CALL GAD_FLUXLIMIT_ADV_Y( bi,bj,k, .FALSE., deltaTadvect, |
|
./pkg/thsice/thsice_advection.F |
592 |
THSICE_ADVECTION |
CALL GAD_DST3_ADV_Y( bi,bj,k, .FALSE., deltaTadvect, |
|
./pkg/thsice/thsice_advection.F |
596 |
THSICE_ADVECTION |
CALL GAD_DST3FL_ADV_Y( bi,bj,k, .FALSE., deltaTadvect, |
|
./pkg/thsice/thsice_advection.F |
763 |
THSICE_ADVECTION |
& .AND. k.LE.3 .AND. myIter.EQ.1+nIter0 |
|
./pkg/thsice/thsice_advection.F |
767 |
THSICE_ADVECTION |
& afx,afy, k, standardMessageUnit,bi,bj,myThid ) |
|
./pkg/thsice/thsice_calc_thickn.F |
173 |
THSICE_CALC_THICKN |
INTEGER i,j,k |
|
./pkg/thsice/thsice_calc_thickn.F |
290 |
THSICE_CALC_THICKN |
DO k = 1,nlyr |
|
./pkg/thsice/thsice_calc_thickn.F |
293 |
THSICE_CALC_THICKN |
qicen(i,j,k) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
294 |
THSICE_CALC_THICKN |
hnew (i,j,k) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
345 |
THSICE_CALC_THICKN |
DO k=1,powerLawExp2 |
|
./pkg/thsice/thsice_calc_thickn.F |
483 |
THSICE_CALC_THICKN |
DO k = 1, nlyr |
|
./pkg/thsice/thsice_calc_thickn.F |
486 |
THSICE_CALC_THICKN |
hnew(i,j,k) = hIce(i,j) * rec_nlyr |
|
./pkg/thsice/thsice_calc_thickn.F |
519 |
THSICE_CALC_THICKN |
DO k = 1, nlyr |
|
./pkg/thsice/thsice_calc_thickn.F |
537 |
THSICE_CALC_THICKN |
rq = rhoi * qicen(i,j,k) |
|
./pkg/thsice/thsice_calc_thickn.F |
538 |
THSICE_CALC_THICKN |
rqh = rq * hnew(i,j,k) |
|
./pkg/thsice/thsice_calc_thickn.F |
540 |
THSICE_CALC_THICKN |
hnew(i,j,k) = hnew(i,j,k) - etop(i,j) / rq |
|
./pkg/thsice/thsice_calc_thickn.F |
544 |
THSICE_CALC_THICKN |
hnew(i,j,k) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
597 |
THSICE_CALC_THICKN |
DO k = nlyr, 1, -1 |
|
./pkg/thsice/thsice_calc_thickn.F |
616 |
THSICE_CALC_THICKN |
& hnew(i,j,k) .GT. 0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
617 |
THSICE_CALC_THICKN |
rq = rhoi * qicen(i,j,k) |
|
./pkg/thsice/thsice_calc_thickn.F |
618 |
THSICE_CALC_THICKN |
rqh = rq * hnew(i,j,k) |
|
./pkg/thsice/thsice_calc_thickn.F |
620 |
THSICE_CALC_THICKN |
hnew(i,j,k) = hnew(i,j,k) - ebot(i,j) / rq |
|
./pkg/thsice/thsice_calc_thickn.F |
624 |
THSICE_CALC_THICKN |
hnew(i,j,k) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
755 |
THSICE_CALC_THICKN |
DO k = 1, nlyr |
|
./pkg/thsice/thsice_calc_thickn.F |
794 |
THSICE_CALC_THICKN |
IF (dhi.GE.hnew(i,j,k)) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
795 |
THSICE_CALC_THICKN |
evapLoc(i,j)=evapLoc(i,j)-hnew(i,j,k)*rhoi/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
797 |
THSICE_CALC_THICKN |
& - hnew(i,j,k)*rhoi*(qicen(i,j,k)-Lfresh) |
|
./pkg/thsice/thsice_calc_thickn.F |
798 |
THSICE_CALC_THICKN |
hnew(i,j,k)=0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
803 |
THSICE_CALC_THICKN |
hq = hnew(i,j,k)*qicen(i,j,k)-dhi*Lfresh |
|
./pkg/thsice/thsice_calc_thickn.F |
804 |
THSICE_CALC_THICKN |
hnew(i,j,k) = hnew(i,j,k) - dhi |
|
./pkg/thsice/thsice_calc_thickn.F |
805 |
THSICE_CALC_THICKN |
qicen(i,j,k)=hq/hnew(i,j,k) |
|
./model/src/ini_nh_fields.F |
105 |
INI_NH_FIELDS |
DO k=1,Nr |
|
./model/src/ini_nh_fields.F |
109 |
INI_NH_FIELDS |
& + phi_nh(i,j,k,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./model/src/ini_nh_fields.F |
48 |
INI_NH_FIELDS |
INTEGER k |
|
./model/src/ini_nh_vars.F |
39 |
INI_NH_VARS |
INTEGER i, j, k |
|
./model/src/ini_nh_vars.F |
51 |
INI_NH_VARS |
DO k=1,Nr |
|
./model/src/ini_nh_vars.F |
54 |
INI_NH_VARS |
phi_nh(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_nh_vars.F |
55 |
INI_NH_VARS |
gW (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_nh_vars.F |
57 |
INI_NH_VARS |
gWnm (i,j,k,bi,bj,1) = 0. _d 0 |
|
./model/src/ini_nh_vars.F |
58 |
INI_NH_VARS |
gWnm (i,j,k,bi,bj,2) = 0. _d 0 |
|
./model/src/ini_nh_vars.F |
60 |
INI_NH_VARS |
gWnm1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_monitor.F |
61 |
THSICE_MONITOR |
INTEGER k |
|
./pkg/thsice/thsice_monitor.F |
86 |
THSICE_MONITOR |
DO k = 1,MAX_LEN_MBUF |
|
./pkg/thsice/thsice_monitor.F |
87 |
THSICE_MONITOR |
mon_fname(k:k) = ' ' |
|
./model/src/ini_nlfs_vars.F |
114 |
INI_NLFS_VARS |
DO k=1,Nr |
|
./model/src/ini_nlfs_vars.F |
117 |
INI_NLFS_VARS |
hFacC(i,j,k,bi,bj) = h0FacC(i,j,k,bi,bj) |
|
./model/src/ini_nlfs_vars.F |
118 |
INI_NLFS_VARS |
hFacW(i,j,k,bi,bj) = h0FacW(i,j,k,bi,bj) |
|
./model/src/ini_nlfs_vars.F |
119 |
INI_NLFS_VARS |
hFacS(i,j,k,bi,bj) = h0FacS(i,j,k,bi,bj) |
|
./model/src/ini_nlfs_vars.F |
39 |
INI_NLFS_VARS |
INTEGER k, ks |
|
./pkg/thsice/thsice_solve4temp.F |
156 |
THSICE_SOLVE4TEMP |
INTEGER i, j, k, iterMax |
|
./pkg/thsice/thsice_solve4temp.F |
377 |
THSICE_SOLVE4TEMP |
k = 1 |
|
./pkg/thsice/thsice_solve4temp.F |
378 |
THSICE_SOLVE4TEMP |
CALL THSICE_GET_EXF( bi, bj, k, |
|
./pkg/thsice/thsice_solve4temp.F |
422 |
THSICE_SOLVE4TEMP |
DO k = 1,iterMax |
|
./pkg/thsice/thsice_solve4temp.F |
429 |
THSICE_SOLVE4TEMP |
kkey = (ticekey-1)*MaxTsf + k |
|
./pkg/thsice/thsice_solve4temp.F |
440 |
THSICE_SOLVE4TEMP |
CALL THSICE_GET_EXF( bi, bj, k+1, |
|
./pkg/thsice/thsice_solve4temp.F |
501 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: k,ts,t1,dTs=',k,Tsf(i,j),tIc1(i,j),dTsrf1(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
538 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: k,ts,t1,dTs=', k,Tsf(i,j),tIc1(i,j),dTsrf1(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
539 |
THSICE_SOLVE4TEMP |
IF ( useBlkFlx .AND. k.EQ.nitMaxTsf .AND. |
|
./pkg/thsice/thsice_solve4temp.F |
581 |
THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: k, Ts, Tice=',k,Tsf(i,j),tIc1(i,j),tIc2(i,j) |
|
./pkg/timeave/timeave_cumul_1k1t.F |
31 |
TIMEAVE_CUMUL_1K1T |
INTEGER k, bi, bj, myThid |
|
./pkg/timeave/timeave_cumul_1k1t.F |
41 |
TIMEAVE_CUMUL_1K1T |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_1k1t.F |
9 |
TIMEAVE_CUMUL_1K1T |
I Ksize, k, bi, bj, myThid ) |
|
./pkg/timeave/timeave_cumul_1t.F |
35 |
TIMEAVE_CUMUL_1T |
INTEGER i, j, k |
|
./pkg/timeave/timeave_cumul_1t.F |
37 |
TIMEAVE_CUMUL_1T |
DO k=1,Ksize |
|
./pkg/timeave/timeave_cumul_1t.F |
40 |
TIMEAVE_CUMUL_1T |
fldtave(i,j,k,bi,bj)= |
|
./pkg/timeave/timeave_cumul_1t.F |
41 |
TIMEAVE_CUMUL_1T |
& fldtave(i,j,k,bi,bj)+fld(i,j,k)*deltaTloc |
|
./model/src/ini_p_ground.F |
108 |
INI_P_GROUND |
DO k=1,2*Nr |
|
./model/src/ini_p_ground.F |
109 |
INI_P_GROUND |
IF (Hfld(i,j,bi,bj).GE.hRef(k)) ks = k |
|
./model/src/ini_p_ground.F |
135 |
INI_P_GROUND |
DO k=1,nLevHvR |
|
./model/src/ini_p_ground.F |
136 |
INI_P_GROUND |
pLevHvR(k+1)= pLevHvR(1) - k*dpHvR |
|
./model/src/ini_p_ground.F |
137 |
INI_P_GROUND |
PiHvR(k+1) = atm_Cp*(pLevHvR(k+1)**atm_kappa) |
|
./model/src/ini_p_ground.F |
138 |
INI_P_GROUND |
pMidHvR(k)= (pLevHvR(k)+pLevHvR(k+1))*0.5 _d 0 |
|
./model/src/ini_p_ground.F |
139 |
INI_P_GROUND |
dPiHvR(k) = PiHvR(k) - PiHvR(k+1) |
|
./model/src/ini_p_ground.F |
144 |
INI_P_GROUND |
DO k=1,Nr |
|
./model/src/ini_p_ground.F |
145 |
INI_P_GROUND |
ratioRm(k) = 1. _d 0 |
|
./model/src/ini_p_ground.F |
146 |
INI_P_GROUND |
ratioRp(k) = 1. _d 0 |
|
./model/src/ini_p_ground.F |
147 |
INI_P_GROUND |
IF (k.GT.1 ) ratioRm(k) = 0.5 _d 0*drC(k)/(rF(k)-rC(k)) |
|
./model/src/ini_p_ground.F |
148 |
INI_P_GROUND |
IF (k.LT.Nr) ratioRp(k) = 0.5 _d 0*drC(k+1)/(rC(k)-rF(k+1)) |
|
./model/src/ini_p_ground.F |
187 |
INI_P_GROUND |
DO k=1,nLevHvR |
|
./model/src/ini_p_ground.F |
190 |
INI_P_GROUND |
dzLoc = dPiHvR(k)*thetaHvR(k)*recip_gravity |
|
./model/src/ini_p_ground.F |
193 |
INI_P_GROUND |
PiLoc = PiHvR(k) |
|
./model/src/ini_p_ground.F |
194 |
INI_P_GROUND |
& - gravity*( phiLoc - zLoc )/thetaHvR(k) |
|
./model/src/ini_p_ground.F |
232 |
INI_P_GROUND |
DO k=1,Nr |
|
./model/src/ini_p_ground.F |
233 |
INI_P_GROUND |
IF ( findPoSurf .AND. Po_surf.GE.rC(k) ) THEN |
|
./model/src/ini_p_ground.F |
234 |
INI_P_GROUND |
Po_surf = rC(k) + (Po_surf-rC(k))/ratioRm(k) |
|
./model/src/ini_p_ground.F |
237 |
INI_P_GROUND |
rMidKp1 = rF(k+1) |
|
./model/src/ini_p_ground.F |
238 |
INI_P_GROUND |
IF (k.LT.Nr) rMidKp1 = (rC(k)+rC(k+1))*0.5 _d 0 |
|
./model/src/ini_p_ground.F |
240 |
INI_P_GROUND |
Po_surf = rC(k) + (Po_surf-rC(k))/ratioRp(k) |
|
./model/src/ini_p_ground.F |
277 |
INI_P_GROUND |
DO k=2,Nr |
|
./model/src/ini_p_ground.F |
278 |
INI_P_GROUND |
IF ( Pfld(i,j,bi,bj).LT.rF(k) ) ks = k |
|
./model/src/ini_p_ground.F |
316 |
INI_P_GROUND |
DO k=1,Nr |
|
./model/src/ini_p_ground.F |
317 |
INI_P_GROUND |
IF ( findPoSurf .AND. Po_surf.GE.rC(k) ) THEN |
|
./model/src/ini_p_ground.F |
318 |
INI_P_GROUND |
Po_surf = rC(k) + (Po_surf-rC(k))*ratioRm(k) |
|
./model/src/ini_p_ground.F |
321 |
INI_P_GROUND |
IF ( findPoSurf .AND. Po_surf.GE.rF(k+1) ) THEN |
|
./model/src/ini_p_ground.F |
322 |
INI_P_GROUND |
Po_surf = rC(k) + (Po_surf-rC(k))*ratioRp(k) |
|
./model/src/ini_p_ground.F |
335 |
INI_P_GROUND |
DO k=1,kLev-1 |
|
./model/src/ini_p_ground.F |
336 |
INI_P_GROUND |
dzLoc = dPiHvR(k)*thetaHvR(k)*recip_gravity |
|
./model/src/ini_p_ground.F |
403 |
ANALYLIC_THETA |
INTEGER k |
|
./model/src/ini_p_ground.F |
436 |
ANALYLIC_THETA |
DO k=1,kSize |
|
./model/src/ini_p_ground.F |
437 |
ANALYLIC_THETA |
ppl = MIN(pNlev(k),ppN1) |
|
./model/src/ini_p_ground.F |
438 |
ANALYLIC_THETA |
ppm = MIN(MAX(pNlev(k),ppN1),ppN2) |
|
./model/src/ini_p_ground.F |
439 |
ANALYLIC_THETA |
pph = MAX(pNlev(k),ppN2) |
|
./model/src/ini_p_ground.F |
441 |
ANALYLIC_THETA |
thetaLev(k) = |
|
./model/src/ini_p_ground.F |
447 |
ANALYLIC_THETA |
& + (ttdC+yCtmp)*MAX(0. _d 0,pNlev(k)-yDtmp)/(1-yDtmp) |
|
./model/src/ini_p_ground.F |
62 |
INI_P_GROUND |
INTEGER bi,bj,i,j,k, ks |
|
./model/src/ini_p_ground.F |
88 |
INI_P_GROUND |
DO k=1,Nr |
|
./model/src/ini_p_ground.F |
89 |
INI_P_GROUND |
rHalf(2*k-1) = rF(k) |
|
./model/src/ini_p_ground.F |
90 |
INI_P_GROUND |
rHalf(2*k) = rC(k) |
|
./model/src/ini_p_ground.F |
97 |
INI_P_GROUND |
DO k=1,2*Nr+1 |
|
./model/src/ini_p_ground.F |
98 |
INI_P_GROUND |
hRef(k) = phiRef(k)*recip_gravity |
|
./pkg/timeave/timeave_cumul_1vfc.F |
38 |
TIMEAVE_CUMUL_1VFC |
INTEGER i, j, k |
|
./pkg/timeave/timeave_cumul_1vfc.F |
42 |
TIMEAVE_CUMUL_1VFC |
DO k=1,Ksize |
|
./pkg/timeave/timeave_cumul_1vfc.F |
45 |
TIMEAVE_CUMUL_1VFC |
fldtave(i,j,k,bi,bj)= fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_1vfc.F |
46 |
TIMEAVE_CUMUL_1VFC |
& + deltaTloc*fld1(i,j,k,bi,bj)*fld2(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
109 |
TIMEAVE_CUMUL_2V |
DO k=1,Ksize |
|
./pkg/timeave/timeave_cumul_2v.F |
112 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
113 |
TIMEAVE_CUMUL_2V |
& + .25 _d 0*( fld1(i,j-1,k,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
114 |
TIMEAVE_CUMUL_2V |
& *( fld2(i-1,j,k,bi,bj) + fld2(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
123 |
TIMEAVE_CUMUL_2V |
DO k=1,Ksize |
|
./pkg/timeave/timeave_cumul_2v.F |
124 |
TIMEAVE_CUMUL_2V |
km1 = MAX(k-1,1) |
|
./pkg/timeave/timeave_cumul_2v.F |
127 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
128 |
TIMEAVE_CUMUL_2V |
& + .25 _d 0*( fld1(i,j,km1,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
129 |
TIMEAVE_CUMUL_2V |
& *( fld2(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
130 |
TIMEAVE_CUMUL_2V |
& +fld2( i ,j,k,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
140 |
TIMEAVE_CUMUL_2V |
DO k=1,Ksize |
|
./pkg/timeave/timeave_cumul_2v.F |
141 |
TIMEAVE_CUMUL_2V |
km1 = MAX(k-1,1) |
|
./pkg/timeave/timeave_cumul_2v.F |
144 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
145 |
TIMEAVE_CUMUL_2V |
& + .25 _d 0*( fld1(i,j,km1,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
146 |
TIMEAVE_CUMUL_2V |
& *( fld2(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
147 |
TIMEAVE_CUMUL_2V |
& +fld2(i, j ,k,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
158 |
TIMEAVE_CUMUL_2V |
DO k=2,Ksize |
|
./pkg/timeave/timeave_cumul_2v.F |
161 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
162 |
TIMEAVE_CUMUL_2V |
& + .5 _d 0*( fld1(i,j,k-1,bi,bj) - fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
163 |
TIMEAVE_CUMUL_2V |
& *( fld2(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
164 |
TIMEAVE_CUMUL_2V |
& +fld2( i ,j,k,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
175 |
TIMEAVE_CUMUL_2V |
DO k=2,Ksize |
|
./pkg/timeave/timeave_cumul_2v.F |
178 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
179 |
TIMEAVE_CUMUL_2V |
& + .5 _d 0*( fld1(i,j,k-1,bi,bj) - fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
180 |
TIMEAVE_CUMUL_2V |
& *( fld2(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
181 |
TIMEAVE_CUMUL_2V |
& +fld2(i, j ,k,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
43 |
TIMEAVE_CUMUL_2V |
INTEGER i, j, k |
|
./pkg/timeave/timeave_cumul_2v.F |
51 |
TIMEAVE_CUMUL_2V |
DO k=1,Ksize |
|
./pkg/timeave/timeave_cumul_2v.F |
54 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj)= fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
55 |
TIMEAVE_CUMUL_2V |
& + fld1(i,j,k,bi,bj)*fld2(i,j,k,bi,bj)*deltaTloc |
|
./pkg/timeave/timeave_cumul_2v.F |
65 |
TIMEAVE_CUMUL_2V |
DO k=1,Ksize |
|
./pkg/timeave/timeave_cumul_2v.F |
68 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj)= fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
69 |
TIMEAVE_CUMUL_2V |
& + .5 * ( fld1(i-1,j,k,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
70 |
TIMEAVE_CUMUL_2V |
& * fld2(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
79 |
TIMEAVE_CUMUL_2V |
DO k=1,Ksize |
|
./pkg/timeave/timeave_cumul_2v.F |
82 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj)= fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
83 |
TIMEAVE_CUMUL_2V |
& + .5 * ( fld1(i,j-1,k,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
84 |
TIMEAVE_CUMUL_2V |
& * fld2(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
93 |
TIMEAVE_CUMUL_2V |
DO k=1,Ksize |
|
./pkg/timeave/timeave_cumul_2v.F |
94 |
TIMEAVE_CUMUL_2V |
km1 = MAX(k-1,1) |
|
./pkg/timeave/timeave_cumul_2v.F |
97 |
TIMEAVE_CUMUL_2V |
fldtave(i,j,k,bi,bj)= fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
98 |
TIMEAVE_CUMUL_2V |
& + .5 * ( fld1(i,j,km1,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
99 |
TIMEAVE_CUMUL_2V |
& * fld2(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2vfc.F |
44 |
TIMEAVE_CUMUL_2VFC |
INTEGER i, j, k |
|
./pkg/timeave/timeave_cumul_2vfc.F |
50 |
TIMEAVE_CUMUL_2VFC |
DO k=1,Ksize |
|
./pkg/timeave/timeave_cumul_2vfc.F |
53 |
TIMEAVE_CUMUL_2VFC |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) + deltaTloc* |
|
./pkg/timeave/timeave_cumul_2vfc.F |
54 |
TIMEAVE_CUMUL_2VFC |
& fld1(i,j,k,bi,bj)*fld2(i,j,k,bi,bj)*fld3(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2vfc.F |
65 |
TIMEAVE_CUMUL_2VFC |
DO k=1,Ksize |
|
./pkg/timeave/timeave_cumul_2vfc.F |
68 |
TIMEAVE_CUMUL_2VFC |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) + deltaTloc* |
|
./pkg/timeave/timeave_cumul_2vfc.F |
69 |
TIMEAVE_CUMUL_2VFC |
& 0.5*( fld1(i-1,j,k,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2vfc.F |
70 |
TIMEAVE_CUMUL_2VFC |
& *fld2(i,j,k,bi,bj)*fld3(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_2vfc.F |
81 |
TIMEAVE_CUMUL_2VFC |
DO k=1,Ksize |
|
./pkg/timeave/timeave_cumul_2vfc.F |
84 |
TIMEAVE_CUMUL_2VFC |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) + deltaTloc* |
|
./pkg/timeave/timeave_cumul_2vfc.F |
85 |
TIMEAVE_CUMUL_2VFC |
& 0.5*( fld1(i,j-1,k,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2vfc.F |
86 |
TIMEAVE_CUMUL_2VFC |
& *fld2(i,j,k,bi,bj)*fld3(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
40 |
TIMEAVE_CUMUL_DIF_1T |
INTEGER i, j, k |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
44 |
TIMEAVE_CUMUL_DIF_1T |
DO k=1,Ksize |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
47 |
TIMEAVE_CUMUL_DIF_1T |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
48 |
TIMEAVE_CUMUL_DIF_1T |
& - ( fld1(i,j,k) - fld1(i-1,j,k) ) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
50 |
TIMEAVE_CUMUL_DIF_1T |
& * fld2(i,j,k) * deltaTloc |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
57 |
TIMEAVE_CUMUL_DIF_1T |
DO k=1,Ksize |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
60 |
TIMEAVE_CUMUL_DIF_1T |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
61 |
TIMEAVE_CUMUL_DIF_1T |
& - ( fld1(i,j,k) - fld1(i,j-1,k) ) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
63 |
TIMEAVE_CUMUL_DIF_1T |
& * fld2(i,j,k) * deltaTloc |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
70 |
TIMEAVE_CUMUL_DIF_1T |
DO k=2,Ksize |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
73 |
TIMEAVE_CUMUL_DIF_1T |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
74 |
TIMEAVE_CUMUL_DIF_1T |
& + ( fld1(i,j,k) - fld1(i,j,k-1) ) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
75 |
TIMEAVE_CUMUL_DIF_1T |
& * recip_drC(k) |
|
./pkg/timeave/timeave_cumul_dif_1t.F |
76 |
TIMEAVE_CUMUL_DIF_1T |
& * fld2(i,j,k) * deltaTloc |
|
./pkg/timeave/timeave_cumulate.F |
35 |
TIMEAVE_CUMULATE |
INTEGER i, j, k |
|
./pkg/timeave/timeave_cumulate.F |
39 |
TIMEAVE_CUMULATE |
DO k=1,Ksize |
|
./pkg/timeave/timeave_cumulate.F |
42 |
TIMEAVE_CUMULATE |
fldtave(i,j,k,bi,bj)= |
|
./pkg/timeave/timeave_cumulate.F |
43 |
TIMEAVE_CUMULATE |
& fldtave(i,j,k,bi,bj)+fld(i,j,k,bi,bj)*deltaTloc |
|
./pkg/timeave/timeave_norma_2v.F |
33 |
TIMEAVE_NORMA_2V |
INTEGER i, j, k |
|
./pkg/timeave/timeave_norma_2v.F |
37 |
TIMEAVE_NORMA_2V |
DO k=1,Ksize |
|
./pkg/timeave/timeave_norma_2v.F |
40 |
TIMEAVE_NORMA_2V |
IF ( cumulWeight(i,j,k,bi,bj) .GT. 0. _d 0 ) THEN |
|
./pkg/timeave/timeave_norma_2v.F |
41 |
TIMEAVE_NORMA_2V |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_norma_2v.F |
42 |
TIMEAVE_NORMA_2V |
& / cumulWeight(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_normalize.F |
42 |
TIMEAVE_NORMALIZE |
INTEGER i, j, k |
|
./pkg/timeave/timeave_normalize.F |
49 |
TIMEAVE_NORMALIZE |
DO k=1,Ksize |
|
./pkg/timeave/timeave_normalize.F |
52 |
TIMEAVE_NORMALIZE |
fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_reset.F |
29 |
TIMEAVE_RESET |
INTEGER i, j, k |
|
./pkg/timeave/timeave_reset.F |
33 |
TIMEAVE_RESET |
DO k=1,Ksize |
|
./pkg/timeave/timeave_reset.F |
36 |
TIMEAVE_RESET |
fldtave(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_parms.F |
1051 |
INI_PARMS |
DO k =1,Nr |
|
./model/src/ini_parms.F |
1052 |
INI_PARMS |
delZ(k) = UNSET_RL |
|
./model/src/ini_parms.F |
1053 |
INI_PARMS |
delP(k) = UNSET_RL |
|
./model/src/ini_parms.F |
1054 |
INI_PARMS |
delR(k) = UNSET_RL |
|
./model/src/ini_parms.F |
1065 |
INI_PARMS |
DO k=1,Nr |
|
./model/src/ini_parms.F |
1066 |
INI_PARMS |
pCellMix_viscAr(k) = viscArNr(k) |
|
./model/src/ini_parms.F |
1067 |
INI_PARMS |
pCellMix_diffKr(k) = diffKrNrT(k) |
|
./model/src/ini_parms.F |
1291 |
INI_PARMS |
DO k=1,Nr+1 |
|
./model/src/ini_parms.F |
1292 |
INI_PARMS |
IF ( delRc(k).EQ.UNSET_RL ) THEN |
|
./model/src/ini_parms.F |
1295 |
INI_PARMS |
& 'S/R INI_PARMS: No value for delRc at k =', k |
|
./model/src/ini_parms.F |
1300 |
INI_PARMS |
IF ( k.EQ.1 ) setCenterDr = .TRUE. |
|
./model/src/ini_parms.F |
1303 |
INI_PARMS |
& 'S/R INI_PARMS: No value for delRc at k <', k |
|
./model/src/ini_parms.F |
1312 |
INI_PARMS |
DO k = 1, Nr |
|
./model/src/ini_parms.F |
1313 |
INI_PARMS |
IF ( delZ(k) .NE. UNSET_RL ) zCoordInputData = .TRUE. |
|
./model/src/ini_parms.F |
1314 |
INI_PARMS |
IF ( delP(k) .NE. UNSET_RL ) pCoordInputData = .TRUE. |
|
./model/src/ini_parms.F |
1315 |
INI_PARMS |
IF ( delR(k) .NE. UNSET_RL ) rCoordInputData = .TRUE. |
|
./model/src/ini_parms.F |
1316 |
INI_PARMS |
IF ( delR(k) .EQ. UNSET_RL ) delR(k) = delZ(k) |
|
./model/src/ini_parms.F |
1317 |
INI_PARMS |
IF ( delR(k) .EQ. UNSET_RL ) delR(k) = delP(k) |
|
./model/src/ini_parms.F |
1318 |
INI_PARMS |
IF ( delR(k) .EQ. UNSET_RL ) THEN |
|
./model/src/ini_parms.F |
1321 |
INI_PARMS |
& 'S/R INI_PARMS: No value for delZ/delP/delR at k =', k |
|
./model/src/ini_parms.F |
1326 |
INI_PARMS |
IF ( k.EQ.1 ) setInterFDr = .TRUE. |
|
./model/src/ini_parms.F |
1329 |
INI_PARMS |
& 'S/R INI_PARMS: No value for delZ/delP/delR at k <', k |
|
./model/src/ini_parms.F |
491 |
INI_PARMS |
DO k=1,Nr |
|
./model/src/ini_parms.F |
492 |
INI_PARMS |
IF ( viscArNr(k).NE.UNSET_RL ) vertSetCount = vertSetCount + 1 |
|
./model/src/ini_parms.F |
509 |
INI_PARMS |
DO k=1,Nr |
|
./model/src/ini_parms.F |
510 |
INI_PARMS |
viscArNr(k) = viscAr |
|
./model/src/ini_parms.F |
525 |
INI_PARMS |
DO k=1,Nr |
|
./model/src/ini_parms.F |
526 |
INI_PARMS |
IF ( diffKrNrT(k).NE.UNSET_RL ) vertSetCount = vertSetCount + 1 |
|
./model/src/ini_parms.F |
546 |
INI_PARMS |
DO k=1,Nr |
|
./model/src/ini_parms.F |
547 |
INI_PARMS |
diffKrNrT(k) = diffKrT |
|
./model/src/ini_parms.F |
557 |
INI_PARMS |
DO k=1,Nr |
|
./model/src/ini_parms.F |
558 |
INI_PARMS |
IF ( diffKrNrS(k).NE.UNSET_RL ) vertSetCount = vertSetCount + 1 |
|
./model/src/ini_parms.F |
576 |
INI_PARMS |
DO k=1,Nr |
|
./model/src/ini_parms.F |
577 |
INI_PARMS |
diffKrNrS(k) = diffKrS |
|
./model/src/ini_parms.F |
583 |
INI_PARMS |
DO k=1,Nr |
|
./model/src/ini_parms.F |
584 |
INI_PARMS |
diffKrNrS(k) = diffKrNrT(k) |
|
./model/src/ini_parms.F |
61 |
INI_PARMS |
INTEGER k, i, j, iUnit |
|
./model/src/ini_parms.F |
904 |
INI_PARMS |
DO k=1,Nr |
|
./model/src/ini_parms.F |
905 |
INI_PARMS |
IF (dTtracerLev(k).EQ.0.) dTtracerLev(k)= deltaTtracer |
|
./pkg/timeave/timeave_surf_flux.F |
102 |
TIMEAVE_SURF_FLUX |
& + PmEpR(i,j,bi,bj)*salt(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_surf_flux.F |
41 |
TIMEAVE_SURF_FLUX |
k=Nr |
|
./pkg/timeave/timeave_surf_flux.F |
43 |
TIMEAVE_SURF_FLUX |
k=1 |
|
./pkg/timeave/timeave_surf_flux.F |
49 |
TIMEAVE_SURF_FLUX |
tmpFld(i,j)=fu(i,j,bi,bj)*foFacMom*_maskW(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_surf_flux.F |
58 |
TIMEAVE_SURF_FLUX |
tmpFld(i,j)=fv(i,j,bi,bj)*foFacMom*_maskS(i,j,k,bi,bj) |
|
./pkg/timeave/timeave_surf_flux.F |
81 |
TIMEAVE_SURF_FLUX |
& + PmEpR(i,j,bi,bj)*theta(i,j,k,bi,bj)*HeatCapacity_Cp |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
39 |
ZONAL_FILT_APPLY_UV |
INTEGER i, j, k |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
47 |
ZONAL_FILT_APPLY_UV |
DO k=1,Nr |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
51 |
ZONAL_FILT_APPLY_UV |
uFlow(i,j) = uFld(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
56 |
ZONAL_FILT_APPLY_UV |
I hFacW(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
60 |
ZONAL_FILT_APPLY_UV |
uFld(i,j,k,bi,bj) = uFlow(i,j)*recip_hFacW(i,j,k,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
43 |
ZONAL_FILT_NOFILL |
DO k=kMin, kMax |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
48 |
ZONAL_FILT_NOFILL |
phi(I) = field(i,j,k,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
77 |
ZONAL_FILT_NOFILL |
field(i,j,k,bi,bj) = phi(sNx+i) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
80 |
ZONAL_FILT_NOFILL |
field(i,j,k,bi,bj) = phi(I) |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
83 |
ZONAL_FILT_NOFILL |
field(i,j,k,bi,bj) = phi(i-sNx) |
|
./model/src/ini_pressure.F |
107 |
INI_PRESSURE |
DO k = 1, Nr |
|
./model/src/ini_pressure.F |
111 |
INI_PRESSURE |
oldPhi(i,j) = totPhiHyd(i,j,k,bi,bj) |
|
./model/src/ini_pressure.F |
115 |
INI_PRESSURE |
I bi, bj, iMin, iMax, jMin, jMax, k, |
|
./model/src/ini_pressure.F |
124 |
INI_PRESSURE |
& + (totPhiHyd(i,j,k,bi,bj)-oldPhi(i,j))**2 |
|
./model/src/ini_pressure.F |
125 |
INI_PRESSURE |
& * maskC(i,j,k,bi,bj) |
|
./model/src/ini_pressure.F |
126 |
INI_PRESSURE |
sumTile = sumTile + maskC(i,j,k,bi,bj) |
|
./model/src/ini_pressure.F |
45 |
INI_PRESSURE |
INTEGER i, j, k |
|
./model/src/ini_pressure.F |
71 |
INI_PRESSURE |
DO k = 1,Nr |
|
./model/src/ini_pressure.F |
74 |
INI_PRESSURE |
totPhiHyd(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/zonal_filt/zonal_filter.F |
100 |
ZONAL_FILTER |
field(i,j,k) = phi(sNx+i) |
|
./pkg/zonal_filt/zonal_filter.F |
103 |
ZONAL_FILTER |
field(i,j,k) = phi(i) |
|
./pkg/zonal_filt/zonal_filter.F |
106 |
ZONAL_FILTER |
field(i,j,k) = phi(i-sNx) |
|
./pkg/zonal_filt/zonal_filter.F |
54 |
ZONAL_FILTER |
INTEGER i, j, k |
|
./pkg/zonal_filt/zonal_filter.F |
56 |
ZONAL_FILTER |
DO k= 1, kSize |
|
./pkg/zonal_filt/zonal_filter.F |
64 |
ZONAL_FILTER |
phi(i) = field(i,j,k) |
|
./pkg/zonal_filt/zonal_filter.F |
65 |
ZONAL_FILTER |
phiMask(i) = fieldMask(i,j,k) |
|
./model/src/ini_salt.F |
101 |
INI_SALT |
IF ( maskC(i,j,k,bi,bj).NE.0. |
|
./model/src/ini_salt.F |
102 |
INI_SALT |
& .AND. salt(i,j,k,bi,bj).EQ.0. ) THEN |
|
./model/src/ini_salt.F |
51 |
INI_SALT |
INTEGER i, j, k, localWarnings |
|
./model/src/ini_salt.F |
58 |
INI_SALT |
DO k=1,Nr |
|
./model/src/ini_salt.F |
61 |
INI_SALT |
salt(i,j,k,bi,bj) = sRef(k) |
|
./model/src/ini_salt.F |
90 |
INI_SALT |
DO k=1,Nr |
|
./model/src/ini_salt.F |
94 |
INI_SALT |
IF (maskC(i,j,k,bi,bj).EQ.0.) salt(i,j,k,bi,bj) = 0. |
|
./model/src/ini_salt.F |
98 |
INI_SALT |
IF ( sRef(k).NE.0. ) THEN |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
35 |
COST_TEST |
integer i, j, k |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
59 |
COST_TEST |
k=1 |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
69 |
COST_TEST |
objf_test(bi,bj) = objf_test(bi,bj) + maskW(i,j,k,bi,bj) |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
70 |
COST_TEST |
& *( uVel(i,j,k,bi,bj) ) |
|
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
71 |
COST_TEST |
& *( uVel(i,j,k,bi,bj) ) |
|
./model/src/ini_sigma_hfac.F |
101 |
INI_SIGMA_HFAC |
DO k=1, Nr |
|
./model/src/ini_sigma_hfac.F |
105 |
INI_SIGMA_HFAC |
hFactmp = ( dAHybSigF(k)*rFullDepth |
|
./model/src/ini_sigma_hfac.F |
106 |
INI_SIGMA_HFAC |
& + dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/ini_sigma_hfac.F |
107 |
INI_SIGMA_HFAC |
& )*recip_drF(k) |
|
./model/src/ini_sigma_hfac.F |
108 |
INI_SIGMA_HFAC |
hFacC(i,j,k,bi,bj) = hFactmp |
|
./model/src/ini_sigma_hfac.F |
111 |
INI_SIGMA_HFAC |
hFacC(i,j,k,bi,bj) = 0. |
|
./model/src/ini_sigma_hfac.F |
215 |
INI_SIGMA_HFAC |
DO k=1, Nr |
|
./model/src/ini_sigma_hfac.F |
219 |
INI_SIGMA_HFAC |
& ( dAHybSigF(k)*rFullDepth |
|
./model/src/ini_sigma_hfac.F |
220 |
INI_SIGMA_HFAC |
& + dBHybSigF(k)*( rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj) ) |
|
./model/src/ini_sigma_hfac.F |
221 |
INI_SIGMA_HFAC |
& )*recip_drF(k) |
|
./model/src/ini_sigma_hfac.F |
222 |
INI_SIGMA_HFAC |
hFacW(i,j,k,bi,bj) = hFactmp*maskInW(i,j,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
226 |
INI_SIGMA_HFAC |
DO k=1, Nr |
|
./model/src/ini_sigma_hfac.F |
230 |
INI_SIGMA_HFAC |
& ( dAHybSigF(k)*rFullDepth |
|
./model/src/ini_sigma_hfac.F |
231 |
INI_SIGMA_HFAC |
& + dBHybSigF(k)*( rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj) ) |
|
./model/src/ini_sigma_hfac.F |
232 |
INI_SIGMA_HFAC |
& )*recip_drF(k) |
|
./model/src/ini_sigma_hfac.F |
233 |
INI_SIGMA_HFAC |
hFacS(i,j,k,bi,bj) = hFactmp*maskInS(i,j,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
45 |
INI_SIGMA_HFAC |
INTEGER i, j, k |
|
./verification/advect_cs/code/ini_vel.F |
36 |
INI_VEL |
INTEGER bi,bj,i,j,k |
|
./verification/advect_cs/code/ini_vel.F |
54 |
INI_VEL |
DO k=1,Nr |
|
./verification/advect_cs/code/ini_vel.F |
59 |
INI_VEL |
uVel(i,j,k,bi,bj)=0. _d 0 |
|
./verification/advect_cs/code/ini_vel.F |
61 |
INI_VEL |
vVel(i,j,k,bi,bj)=0. _d 0 |
|
./verification/advect_cs/code/ini_vel.F |
83 |
INI_VEL |
DO k=1,Nr |
|
./verification/advect_cs/code/ini_vel.F |
86 |
INI_VEL |
uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./verification/advect_cs/code/ini_vel.F |
87 |
INI_VEL |
vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./model/src/ini_theta.F |
102 |
INI_THETA |
IF ( maskC(i,j,k,bi,bj).NE.0. |
|
./model/src/ini_theta.F |
103 |
INI_THETA |
& .AND. theta(i,j,k,bi,bj).EQ.0. ) THEN |
|
./model/src/ini_theta.F |
137 |
INI_THETA |
DO k=1,Nr |
|
./model/src/ini_theta.F |
140 |
INI_THETA |
IF (theta(i,j,k,bi,bj) .LT. Tfreezing) THEN |
|
./model/src/ini_theta.F |
141 |
INI_THETA |
theta(i,j,k,bi,bj) = Tfreezing |
|
./model/src/ini_theta.F |
51 |
INI_THETA |
INTEGER i, j, k, localWarnings |
|
./model/src/ini_theta.F |
59 |
INI_THETA |
DO k=1,Nr |
|
./model/src/ini_theta.F |
62 |
INI_THETA |
theta(i,j,k,bi,bj) = tRef(k) |
|
./model/src/ini_theta.F |
91 |
INI_THETA |
DO k=1,Nr |
|
./model/src/ini_theta.F |
95 |
INI_THETA |
IF (maskC(i,j,k,bi,bj).EQ.0.) theta(i,j,k,bi,bj) = 0. |
|
./model/src/ini_theta.F |
99 |
INI_THETA |
IF ( tRef(k).NE.0. ) THEN |
|
./verification/advect_xy/code/ini_salt.F |
100 |
INI_SALT |
IF ( maskC(i,j,k,bi,bj).NE.0. |
|
./verification/advect_xy/code/ini_salt.F |
101 |
INI_SALT |
& .AND. salt(i,j,k,bi,bj).EQ.0. ) THEN |
|
./verification/advect_xy/code/ini_salt.F |
47 |
INI_SALT |
INTEGER i, j, k, localWarnings |
|
./verification/advect_xy/code/ini_salt.F |
55 |
INI_SALT |
DO k=1,Nr |
|
./verification/advect_xy/code/ini_salt.F |
58 |
INI_SALT |
salt(i,j,k,bi,bj) = sRef(k) |
|
./verification/advect_xy/code/ini_salt.F |
67 |
INI_SALT |
& +( rC(k) + 50. _d 3 )**2 |
|
./verification/advect_xy/code/ini_salt.F |
69 |
INI_SALT |
IF ( rD.LE.60. _d 3 ) salt(i,j,k,bi,bj) = sRef(k)+1. _d 0 |
|
./verification/advect_xy/code/ini_salt.F |
89 |
INI_SALT |
DO k=1,Nr |
|
./verification/advect_xy/code/ini_salt.F |
93 |
INI_SALT |
IF (maskC(i,j,k,bi,bj).EQ.0.) salt(i,j,k,bi,bj) = 0. |
|
./verification/advect_xy/code/ini_salt.F |
97 |
INI_SALT |
IF ( sRef(k).NE.0. ) THEN |
|
./verification/advect_xy/code/ini_theta.F |
101 |
INI_THETA |
IF ( maskC(i,j,k,bi,bj).NE.0. |
|
./verification/advect_xy/code/ini_theta.F |
102 |
INI_THETA |
& .AND. theta(i,j,k,bi,bj).EQ.0. ) THEN |
|
./verification/advect_xy/code/ini_theta.F |
136 |
INI_THETA |
DO k=1,Nr |
|
./verification/advect_xy/code/ini_theta.F |
139 |
INI_THETA |
IF (theta(i,j,k,bi,bj) .LT. Tfreezing) THEN |
|
./verification/advect_xy/code/ini_theta.F |
140 |
INI_THETA |
theta(i,j,k,bi,bj) = Tfreezing |
|
./verification/advect_xy/code/ini_theta.F |
47 |
INI_THETA |
INTEGER i, j, k, localWarnings |
|
./verification/advect_xy/code/ini_theta.F |
56 |
INI_THETA |
DO k=1,Nr |
|
./verification/advect_xy/code/ini_theta.F |
59 |
INI_THETA |
theta(i,j,k,bi,bj) = tRef(k) |
|
./verification/advect_xy/code/ini_theta.F |
68 |
INI_THETA |
& +( rC(k) + 50. _d 3 )**2 |
|
./verification/advect_xy/code/ini_theta.F |
70 |
INI_THETA |
theta(i,j,k,bi,bj) = EXP( -0.5 _d 0*( rD/20. _d 3 )**2 ) |
|
./verification/advect_xy/code/ini_theta.F |
90 |
INI_THETA |
DO k=1,Nr |
|
./verification/advect_xy/code/ini_theta.F |
94 |
INI_THETA |
IF (maskC(i,j,k,bi,bj).EQ.0.) theta(i,j,k,bi,bj) = 0. |
|
./verification/advect_xy/code/ini_theta.F |
98 |
INI_THETA |
IF ( tRef(k).NE.0. ) THEN |
|
./verification/advect_xy/code/ini_vel.F |
36 |
INI_VEL |
INTEGER bi,bj,i,j,k |
|
./verification/advect_xy/code/ini_vel.F |
48 |
INI_VEL |
DO k=1,Nr |
|
./verification/advect_xy/code/ini_vel.F |
51 |
INI_VEL |
uVel(i,j,k,bi,bj)=1. _d 0 |
|
./verification/advect_xy/code/ini_vel.F |
52 |
INI_VEL |
vVel(i,j,k,bi,bj)=1. _d 0 |
|
./verification/advect_xy/code/ini_vel.F |
73 |
INI_VEL |
DO k=1,Nr |
|
./verification/advect_xy/code/ini_vel.F |
76 |
INI_VEL |
uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./verification/advect_xy/code/ini_vel.F |
77 |
INI_VEL |
vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./model/src/ini_vel.F |
36 |
INI_VEL |
INTEGER bi,bj,i,j,k |
|
./model/src/ini_vel.F |
48 |
INI_VEL |
DO k=1,Nr |
|
./model/src/ini_vel.F |
51 |
INI_VEL |
uVel(i,j,k,bi,bj)=0. _d 0 |
|
./model/src/ini_vel.F |
52 |
INI_VEL |
vVel(i,j,k,bi,bj)=0. _d 0 |
|
./model/src/ini_vel.F |
72 |
INI_VEL |
DO k=1,Nr |
|
./model/src/ini_vel.F |
75 |
INI_VEL |
uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./model/src/ini_vel.F |
76 |
INI_VEL |
vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
447 |
AIM_SURF_BC |
DO k=1,3 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
449 |
AIM_SURF_BC |
dTsurf(J,k,myThid) = 0. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
92 |
AIM_SURF_BC |
INTEGER i,j,I2,k, nm0 |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
24 |
MOM_VI_HFACZ_DISS |
INTEGER bi,bj,k |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
44 |
MOM_VI_HFACZ_DISS |
hFacZOpen=MIN(_hFacW(i,j,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
45 |
MOM_VI_HFACZ_DISS |
& + _hFacW(i,j-1,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
46 |
MOM_VI_HFACZ_DISS |
& , _hFacS(i,j,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
47 |
MOM_VI_HFACZ_DISS |
& + _hFacS(i-1,j,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
64 |
MOM_VI_HFACZ_DISS |
hFacZOpen=MIN( _hFacW(i,j,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
65 |
MOM_VI_HFACZ_DISS |
& , _hFacW(i,j-1,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
66 |
MOM_VI_HFACZ_DISS |
& , _hFacS(i,j,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
67 |
MOM_VI_HFACZ_DISS |
& , _hFacS(i-1,j,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
7 |
MOM_VI_HFACZ_DISS |
I bi,bj,k, |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
22 |
MOM_VI_MASK_VORT3 |
INTEGER bi,bj,k |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
43 |
MOM_VI_MASK_VORT3 |
hFacZOpen=min(_hFacW(i,j,k,bi,bj), |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
44 |
MOM_VI_MASK_VORT3 |
& _hFacW(i,j-1,k,bi,bj)) |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
45 |
MOM_VI_MASK_VORT3 |
hFacZOpen=min(_hFacS(i,j,k,bi,bj),hFacZOpen) |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
46 |
MOM_VI_MASK_VORT3 |
hFacZOpen=min(_hFacS(i-1,j,k,bi,bj),hFacZOpen) |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
7 |
MOM_VI_MASK_VORT3 |
I bi,bj,k, |
|
./model/src/ini_vertical_grid.F |
100 |
INI_VERTICAL_GRID |
drF( k ) = 0.5 _d 0 *delRc(k) |
|
./model/src/ini_vertical_grid.F |
101 |
INI_VERTICAL_GRID |
drF(k-1) = 0.5 _d 0 *delRc(k) + drF(k-1) |
|
./model/src/ini_vertical_grid.F |
108 |
INI_VERTICAL_GRID |
DO k=1,Nr+1 |
|
./model/src/ini_vertical_grid.F |
109 |
INI_VERTICAL_GRID |
drC(k) = delRc(k) |
|
./model/src/ini_vertical_grid.F |
112 |
INI_VERTICAL_GRID |
DO k=1,Nr+1 |
|
./model/src/ini_vertical_grid.F |
113 |
INI_VERTICAL_GRID |
IF (delRc(k).LE.0.) THEN |
|
./model/src/ini_vertical_grid.F |
115 |
INI_VERTICAL_GRID |
& 'S/R INI_VERTICAL_GRID: delRc(k=',k,' )=',delRc(k) |
|
./model/src/ini_vertical_grid.F |
127 |
INI_VERTICAL_GRID |
DO k=2,Nr |
|
./model/src/ini_vertical_grid.F |
128 |
INI_VERTICAL_GRID |
drC(k) = 0.5 _d 0 *(delR(k-1)+delR(k)) |
|
./model/src/ini_vertical_grid.F |
144 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
145 |
INI_VERTICAL_GRID |
rF(k+1) = rF(k) + rkSign*drF(k) |
|
./model/src/ini_vertical_grid.F |
148 |
INI_VERTICAL_GRID |
DO k=2,Nr |
|
./model/src/ini_vertical_grid.F |
149 |
INI_VERTICAL_GRID |
rC(k) = rC(k-1) + rkSign*drC(k) |
|
./model/src/ini_vertical_grid.F |
164 |
INI_VERTICAL_GRID |
DO k=Nr,1,-1 |
|
./model/src/ini_vertical_grid.F |
165 |
INI_VERTICAL_GRID |
rF(k) = rF(k+1) - rkSign*drF(k) |
|
./model/src/ini_vertical_grid.F |
168 |
INI_VERTICAL_GRID |
DO k=Nr,2,-1 |
|
./model/src/ini_vertical_grid.F |
169 |
INI_VERTICAL_GRID |
rC(k-1) = rC(k) - rkSign*drC(k) |
|
./model/src/ini_vertical_grid.F |
176 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
178 |
INI_VERTICAL_GRID |
IF ( (rC(k)-rF(k+1)) .NE. 0. ) |
|
./model/src/ini_vertical_grid.F |
179 |
INI_VERTICAL_GRID |
& tmpRatio = (rF(k)-rC(k)) / (rC(k)-rF(k+1)) |
|
./model/src/ini_vertical_grid.F |
187 |
INI_VERTICAL_GRID |
& k, ' :', tmpRatio |
|
./model/src/ini_vertical_grid.F |
190 |
INI_VERTICAL_GRID |
& 'S/R INI_VERTICAL_GRID: rC=', rC(k), |
|
./model/src/ini_vertical_grid.F |
191 |
INI_VERTICAL_GRID |
& ' , rF(k,k+1)=',rF(k),rF(k+1) |
|
./model/src/ini_vertical_grid.F |
198 |
INI_VERTICAL_GRID |
DO k=1,Nr+1 |
|
./model/src/ini_vertical_grid.F |
199 |
INI_VERTICAL_GRID |
recip_drC(k) = 1. _d 0/drC(k) |
|
./model/src/ini_vertical_grid.F |
201 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
202 |
INI_VERTICAL_GRID |
recip_drF(k) = 1. _d 0/drF(k) |
|
./model/src/ini_vertical_grid.F |
207 |
INI_VERTICAL_GRID |
DO k=1,Nr+1 |
|
./model/src/ini_vertical_grid.F |
208 |
INI_VERTICAL_GRID |
aHybSigmF(k) = 0. _d 0 |
|
./model/src/ini_vertical_grid.F |
209 |
INI_VERTICAL_GRID |
bHybSigmF(k) = 0. _d 0 |
|
./model/src/ini_vertical_grid.F |
210 |
INI_VERTICAL_GRID |
dAHybSigC(k) = 0. _d 0 |
|
./model/src/ini_vertical_grid.F |
211 |
INI_VERTICAL_GRID |
dAHybSigC(k) = 0. _d 0 |
|
./model/src/ini_vertical_grid.F |
213 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
214 |
INI_VERTICAL_GRID |
aHybSigmC(k) = 0. _d 0 |
|
./model/src/ini_vertical_grid.F |
215 |
INI_VERTICAL_GRID |
bHybSigmC(k) = 0. _d 0 |
|
./model/src/ini_vertical_grid.F |
216 |
INI_VERTICAL_GRID |
dAHybSigF(k) = 0. _d 0 |
|
./model/src/ini_vertical_grid.F |
217 |
INI_VERTICAL_GRID |
dAHybSigF(k) = 0. _d 0 |
|
./model/src/ini_vertical_grid.F |
250 |
INI_VERTICAL_GRID |
DO k=1,Nr+1 |
|
./model/src/ini_vertical_grid.F |
261 |
INI_VERTICAL_GRID |
tmpRS = MIN( rF(k), rSigBndRS ) |
|
./model/src/ini_vertical_grid.F |
262 |
INI_VERTICAL_GRID |
bHybSigmF(k) = ( rF(k) - tmpRS )/(rF(1)-rSigBndRS) |
|
./model/src/ini_vertical_grid.F |
263 |
INI_VERTICAL_GRID |
aHybSigmF(k) = (1. _d 0 - bHybSigmF(k)) |
|
./model/src/ini_vertical_grid.F |
268 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
279 |
INI_VERTICAL_GRID |
tmpRS = MIN( rC(k), rSigBndRS ) |
|
./model/src/ini_vertical_grid.F |
280 |
INI_VERTICAL_GRID |
bHybSigmC(k) = ( rC(k) - tmpRS )/(rF(1)-rSigBndRS) |
|
./model/src/ini_vertical_grid.F |
281 |
INI_VERTICAL_GRID |
aHybSigmC(k) = (1. _d 0 - bHybSigmC(k)) |
|
./model/src/ini_vertical_grid.F |
288 |
INI_VERTICAL_GRID |
DO k=1,Nr+1 |
|
./model/src/ini_vertical_grid.F |
298 |
INI_VERTICAL_GRID |
tmpRS = MAX( rF(k), rSigBndRS ) |
|
./model/src/ini_vertical_grid.F |
299 |
INI_VERTICAL_GRID |
bHybSigmF(k) = ( rF(k)-rF(Nr+1) )/( tmpRS-rF(Nr+1) ) |
|
./model/src/ini_vertical_grid.F |
300 |
INI_VERTICAL_GRID |
aHybSigmF(k) = bHybSigmF(k)*( tmpRS-rF(1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
304 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
314 |
INI_VERTICAL_GRID |
tmpRS = MAX( rC(k), rSigBndRS ) |
|
./model/src/ini_vertical_grid.F |
315 |
INI_VERTICAL_GRID |
bHybSigmC(k) = ( rC(k)-rF(Nr+1) )/( tmpRS-rF(Nr+1) ) |
|
./model/src/ini_vertical_grid.F |
316 |
INI_VERTICAL_GRID |
aHybSigmC(k) = bHybSigmC(k)*( tmpRS-rF(1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
333 |
INI_VERTICAL_GRID |
DO k=2,Nr |
|
./model/src/ini_vertical_grid.F |
334 |
INI_VERTICAL_GRID |
bHybSigmF(k) = ( bHybSigmC(k) + bHybSigmC(k-1) )*0.5 _d 0 |
|
./model/src/ini_vertical_grid.F |
335 |
INI_VERTICAL_GRID |
aHybSigmF(k) = ( aHybSigmC(k) + aHybSigmC(k-1) )*0.5 _d 0 |
|
./model/src/ini_vertical_grid.F |
340 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
341 |
INI_VERTICAL_GRID |
bHybSigmC(k) = ( bHybSigmF(k) + bHybSigmF(k+1) )*0.5 _d 0 |
|
./model/src/ini_vertical_grid.F |
342 |
INI_VERTICAL_GRID |
aHybSigmC(k) = ( aHybSigmF(k) + aHybSigmF(k+1) )*0.5 _d 0 |
|
./model/src/ini_vertical_grid.F |
347 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
348 |
INI_VERTICAL_GRID |
dAHybSigF(k) = ( aHybSigmF(k+1) - aHybSigmF(k) )*rkSign |
|
./model/src/ini_vertical_grid.F |
349 |
INI_VERTICAL_GRID |
dBHybSigF(k) = ( bHybSigmF(k+1) - bHybSigmF(k) )*rkSign |
|
./model/src/ini_vertical_grid.F |
351 |
INI_VERTICAL_GRID |
DO k=2,Nr |
|
./model/src/ini_vertical_grid.F |
352 |
INI_VERTICAL_GRID |
dAHybSigC(k) = ( aHybSigmC(k) - aHybSigmC(k-1) )*rkSign |
|
./model/src/ini_vertical_grid.F |
353 |
INI_VERTICAL_GRID |
dBHybSigC(k) = ( bHybSigmC(k) - bHybSigmC(k-1) )*rkSign |
|
./model/src/ini_vertical_grid.F |
35 |
INI_VERTICAL_GRID |
INTEGER k |
|
./model/src/ini_vertical_grid.F |
364 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
365 |
INI_VERTICAL_GRID |
tmpError = ( rC(k)-rF(Nr+1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
366 |
INI_VERTICAL_GRID |
& - ( aHybSigmC(k)+bHybSigmC(k) ) |
|
./model/src/ini_vertical_grid.F |
374 |
INI_VERTICAL_GRID |
& ' k=', k,' , err=', tmpError, ' ; rC=', rC(k), |
|
./model/src/ini_vertical_grid.F |
375 |
INI_VERTICAL_GRID |
& ' , a & b=', aHybSigmC(k), bHybSigmC(k) |
|
./model/src/ini_vertical_grid.F |
380 |
INI_VERTICAL_GRID |
DO k=1,Nr+1 |
|
./model/src/ini_vertical_grid.F |
381 |
INI_VERTICAL_GRID |
tmpError = ( rF(k)-rF(Nr+1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
382 |
INI_VERTICAL_GRID |
& - ( aHybSigmF(k)+bHybSigmF(k) ) |
|
./model/src/ini_vertical_grid.F |
390 |
INI_VERTICAL_GRID |
& ' k=', k,' , err=', tmpError, ' ; rF=', rF(k), |
|
./model/src/ini_vertical_grid.F |
391 |
INI_VERTICAL_GRID |
& ' , a & b=', aHybSigmF(k), bHybSigmF(k) |
|
./model/src/ini_vertical_grid.F |
76 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
77 |
INI_VERTICAL_GRID |
drF(k) = delR(k) |
|
./model/src/ini_vertical_grid.F |
80 |
INI_VERTICAL_GRID |
DO k=1,Nr |
|
./model/src/ini_vertical_grid.F |
81 |
INI_VERTICAL_GRID |
IF (delR(k).LE.0.) THEN |
|
./model/src/ini_vertical_grid.F |
83 |
INI_VERTICAL_GRID |
& 'S/R INI_VERTICAL_GRID: delR(k=',k,' )=',delR(k) |
|
./model/src/ini_vertical_grid.F |
95 |
INI_VERTICAL_GRID |
DO k=2,Nr |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
32 |
COST_TEST |
integer i, j, k |
|
./model/src/integr_continuity.F |
103 |
INTEGR_CONTINUITY |
DO k=1,Nr |
|
./model/src/integr_continuity.F |
109 |
INTEGR_CONTINUITY |
uTrans(i,j) = uFld(i,j,k,bi,bj)*_dyG(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
110 |
INTEGR_CONTINUITY |
& *deepFacC(k)*rhoFacC(k) |
|
./model/src/integr_continuity.F |
111 |
INTEGR_CONTINUITY |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./model/src/integr_continuity.F |
112 |
INTEGR_CONTINUITY |
vTrans(i,j) = vFld(i,j,k,bi,bj)*_dxG(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
113 |
INTEGR_CONTINUITY |
& *deepFacC(k)*rhoFacC(k) |
|
./model/src/integr_continuity.F |
114 |
INTEGR_CONTINUITY |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./model/src/integr_continuity.F |
122 |
INTEGR_CONTINUITY |
& +maskC(i,j,k,bi,bj)*( uTrans(i+1,j)-uTrans(i,j) |
|
./model/src/integr_continuity.F |
125 |
INTEGR_CONTINUITY |
& -facMass*addMass(i,j,k,bi,bj) |
|
./model/src/integr_continuity.F |
255 |
INTEGR_CONTINUITY |
DO k=Nr,1,-1 |
|
./model/src/integr_continuity.F |
259 |
INTEGR_CONTINUITY |
I bi, bj, k, uFld, vFld, |
|
./model/src/integr_continuity.F |
265 |
INTEGR_CONTINUITY |
IF ( k.EQ.Nr .AND. myIter.NE.0 .AND. usingPCoords |
|
./model/src/integr_continuity.F |
270 |
INTEGR_CONTINUITY |
wVel(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) |
|
./model/src/integr_continuity.F |
271 |
INTEGR_CONTINUITY |
& +mass2rUnit*PmEpR(i,j,bi,bj)*maskC(i,j,k,bi,bj) |
|
./model/src/integr_continuity.F |
283 |
INTEGR_CONTINUITY |
wVel(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)*maskInC(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
289 |
INTEGR_CONTINUITY |
& CALL OBCS_APPLY_W( bi, bj, k, wVel, myThid ) |
|
./model/src/integr_continuity.F |
55 |
INTEGR_CONTINUITY |
INTEGER k,bi,bj |
|
./model/src/integrate_for_w.F |
101 |
INTEGRATE_FOR_W |
ELSEIF (k.EQ.Nr) THEN |
|
./model/src/integrate_for_w.F |
104 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
106 |
INTEGRATE_FOR_W |
& *maskC(i,j,k,bi,bj)*maskC(i,j,k-1,bi,bj) |
|
./model/src/integrate_for_w.F |
107 |
INTEGRATE_FOR_W |
& *recip_deepFac2F(k)*recip_rhoFacF(k) |
|
./model/src/integrate_for_w.F |
10 |
INTEGRATE_FOR_W |
I bi, bj, k, uFld, vFld, mFld, rStarDhDt, |
|
./model/src/integrate_for_w.F |
113 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
114 |
INTEGRATE_FOR_W |
& ( wFld(i,j,k+1,bi,bj)*deepFac2F(k+1)*rhoFacF(k+1) |
|
./model/src/integrate_for_w.F |
116 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj)*maskC(i,j,k-1,bi,bj) |
|
./model/src/integrate_for_w.F |
117 |
INTEGRATE_FOR_W |
& *recip_deepFac2F(k)*recip_rhoFacF(k) |
|
./model/src/integrate_for_w.F |
126 |
INTEGRATE_FOR_W |
IF (k.EQ.Nr) THEN |
|
./model/src/integrate_for_w.F |
129 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
131 |
INTEGRATE_FOR_W |
& -rStarDhDt(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
132 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
133 |
INTEGRATE_FOR_W |
& *recip_deepFac2F(k)*recip_rhoFacF(k) |
|
./model/src/integrate_for_w.F |
139 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
140 |
INTEGRATE_FOR_W |
& ( wFld(i,j,k+1,bi,bj)*deepFac2F(k+1)*rhoFacF(k+1) |
|
./model/src/integrate_for_w.F |
142 |
INTEGRATE_FOR_W |
& -rStarDhDt(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
143 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
144 |
INTEGRATE_FOR_W |
& *recip_deepFac2F(k)*recip_rhoFacF(k) |
|
./model/src/integrate_for_w.F |
152 |
INTEGRATE_FOR_W |
IF (k.EQ.Nr) THEN |
|
./model/src/integrate_for_w.F |
155 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
157 |
INTEGRATE_FOR_W |
& -dEtaHdt(i,j,bi,bj)*dBHybSigF(k) |
|
./model/src/integrate_for_w.F |
158 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
164 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
165 |
INTEGRATE_FOR_W |
& ( wFld(i,j,k+1,bi,bj) |
|
./model/src/integrate_for_w.F |
167 |
INTEGRATE_FOR_W |
& -dEtaHdt(i,j,bi,bj)*dBHybSigF(k) |
|
./model/src/integrate_for_w.F |
168 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
177 |
INTEGRATE_FOR_W |
IF (k.EQ.Nr) THEN |
|
./model/src/integrate_for_w.F |
180 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
182 |
INTEGRATE_FOR_W |
& *maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
183 |
INTEGRATE_FOR_W |
& *recip_deepFac2F(k)*recip_rhoFacF(k) |
|
./model/src/integrate_for_w.F |
189 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = |
|
./model/src/integrate_for_w.F |
190 |
INTEGRATE_FOR_W |
& ( wFld(i,j,k+1,bi,bj)*deepFac2F(k+1)*rhoFacF(k+1) |
|
./model/src/integrate_for_w.F |
192 |
INTEGRATE_FOR_W |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
193 |
INTEGRATE_FOR_W |
& *recip_deepFac2F(k)*recip_rhoFacF(k) |
|
./model/src/integrate_for_w.F |
36 |
INTEGRATE_FOR_W |
INTEGER bi,bj,k |
|
./model/src/integrate_for_w.F |
66 |
INTEGRATE_FOR_W |
uTrans(i,j) = uFld(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
67 |
INTEGRATE_FOR_W |
& *_dyG(i,j,bi,bj)*deepFacC(k)*rhoFacC(k) |
|
./model/src/integrate_for_w.F |
68 |
INTEGRATE_FOR_W |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
69 |
INTEGRATE_FOR_W |
vTrans(i,j) = vFld(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
70 |
INTEGRATE_FOR_W |
& *_dxG(i,j,bi,bj)*deepFacC(k)*rhoFacC(k) |
|
./model/src/integrate_for_w.F |
71 |
INTEGRATE_FOR_W |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
85 |
INTEGRATE_FOR_W |
& + mFld(i,j,k,bi,bj)*mass2rUnit |
|
./model/src/integrate_for_w.F |
95 |
INTEGRATE_FOR_W |
IF (k.EQ.1) THEN |
|
./model/src/integrate_for_w.F |
98 |
INTEGRATE_FOR_W |
wFld(i,j,k,bi,bj) = 0. |
|
./verification/dome/code/obcs_calc.F |
138 |
OBCS_CALC |
OBWt(J,K,bi,bj)= Tref(k) |
|
./verification/dome/code/obcs_calc.F |
163 |
OBCS_CALC |
zt=(z(k) + Dmax - (hinit + Dmax))/(hinit+Dmax) |
|
./model/src/load_fields_driver.F |
100 |
LOAD_FIELDS_DRIVER |
addMass(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/load_fields_driver.F |
113 |
LOAD_FIELDS_DRIVER |
DO k=1,Nr |
|
./model/src/load_fields_driver.F |
116 |
LOAD_FIELDS_DRIVER |
frictionHeating(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/load_fields_driver.F |
84 |
LOAD_FIELDS_DRIVER |
INTEGER i,j,k,bi,bj |
|
./model/src/load_fields_driver.F |
97 |
LOAD_FIELDS_DRIVER |
DO k=1,Nr |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
119 |
FIZHI_INIT_VEG |
do k=1,maxtyp |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
122 |
FIZHI_INIT_VEG |
if(surftype(i,j,k,bi,bj).ge.100 .and. |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
123 |
FIZHI_INIT_VEG |
& tilefrac(i,j,k,bi,bj).gt.0.) then |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
126 |
FIZHI_INIT_VEG |
ityp (nchptot(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
127 |
FIZHI_INIT_VEG |
chfr (nchptot(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
67 |
FIZHI_INIT_VEG |
INTEGER i,j,k,bi,bj |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
83 |
FIZHI_INIT_VEG |
do k = 3,maxtyp |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
86 |
FIZHI_INIT_VEG |
surftype(i,j,k,bi,bj) = 0 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
87 |
FIZHI_INIT_VEG |
tilefrac(i,j,k,bi,bj) = 0. |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
108 |
INI_SALT |
call QSAT(temperature(i,j,k,bi,bj),pinmb,qstar(i,j,k,bi,bj), |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
110 |
INI_SALT |
salt(I,J,K,bi,bj) = rhum(i,j,k,bi,bj) * qstar(i,j,k,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
130 |
INI_SALT |
& .AND. sRef(k).NE.0.) THEN |
|
./model/src/load_ref_files.F |
138 |
LOAD_REF_FILES |
DO k=1,Nr |
|
./model/src/load_ref_files.F |
139 |
LOAD_REF_FILES |
gravFacC(k) = gravFacC(k)*recip_gravity |
|
./model/src/load_ref_files.F |
141 |
LOAD_REF_FILES |
DO k=2,Nr |
|
./model/src/load_ref_files.F |
143 |
LOAD_REF_FILES |
gravFacF(k) = ( gravFacC(k-1)*(rF(k)-rC(k)) |
|
./model/src/load_ref_files.F |
144 |
LOAD_REF_FILES |
& + gravFacC(k)*(rC(k-1)-rF(k)) )*recip_drC(k) |
|
./model/src/load_ref_files.F |
151 |
LOAD_REF_FILES |
DO k=1,Nr |
|
./model/src/load_ref_files.F |
152 |
LOAD_REF_FILES |
recip_gravFacC(k) = 1. _d 0/gravFacC(k) |
|
./model/src/load_ref_files.F |
154 |
LOAD_REF_FILES |
DO k=1,Nr+1 |
|
./model/src/load_ref_files.F |
155 |
LOAD_REF_FILES |
recip_gravFacF(k) = 1. _d 0/gravFacF(k) |
|
./model/src/load_ref_files.F |
160 |
LOAD_REF_FILES |
DO k=1,Nr |
|
./model/src/load_ref_files.F |
161 |
LOAD_REF_FILES |
gravFacC(k) = 1. _d 0 |
|
./model/src/load_ref_files.F |
162 |
LOAD_REF_FILES |
recip_gravFacC(k) = 1. _d 0 |
|
./model/src/load_ref_files.F |
164 |
LOAD_REF_FILES |
DO k=1,Nr+1 |
|
./model/src/load_ref_files.F |
165 |
LOAD_REF_FILES |
gravFacF(k) = 1. _d 0 |
|
./model/src/load_ref_files.F |
166 |
LOAD_REF_FILES |
recip_gravFacF(k) = 1. _d 0 |
|
./model/src/load_ref_files.F |
41 |
LOAD_REF_FILES |
INTEGER k, kLen |
|
./model/src/load_ref_files.F |
53 |
LOAD_REF_FILES |
DO k=1,Nr |
|
./model/src/load_ref_files.F |
54 |
LOAD_REF_FILES |
IF (tRef(k).EQ.UNSET_RL) tRef(k) = tracerDefault |
|
./model/src/load_ref_files.F |
55 |
LOAD_REF_FILES |
tracerDefault = tRef(k) |
|
./model/src/load_ref_files.F |
59 |
LOAD_REF_FILES |
DO k=1,Nr |
|
./model/src/load_ref_files.F |
60 |
LOAD_REF_FILES |
IF (tRef(k).NE.UNSET_RL) THEN |
|
./model/src/load_ref_files.F |
62 |
LOAD_REF_FILES |
& 'Cannot set both tRef(k=', k, ') and tRefFile' |
|
./model/src/load_ref_files.F |
84 |
LOAD_REF_FILES |
DO k=1,Nr |
|
./model/src/load_ref_files.F |
85 |
LOAD_REF_FILES |
IF (sRef(k).EQ.UNSET_RL) sRef(k) = tracerDefault |
|
./model/src/load_ref_files.F |
86 |
LOAD_REF_FILES |
tracerDefault = sRef(k) |
|
./model/src/load_ref_files.F |
90 |
LOAD_REF_FILES |
DO k=1,Nr |
|
./model/src/load_ref_files.F |
91 |
LOAD_REF_FILES |
IF (sRef(k).NE.UNSET_RL) THEN |
|
./model/src/load_ref_files.F |
93 |
LOAD_REF_FILES |
& 'Cannot set both sRef(k=', k, ') and sRefFile' |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
100 |
FIZHI_INIT_VEG |
tilefrac(i,j,k,bi,bj) = 0. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
129 |
FIZHI_INIT_VEG |
do k=1,maxtyp |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
132 |
FIZHI_INIT_VEG |
if(surftype(i,j,k,bi,bj).lt.100 .and. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
133 |
FIZHI_INIT_VEG |
& tilefrac(i,j,k,bi,bj).gt.0.) then |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
136 |
FIZHI_INIT_VEG |
ityp (nchpland(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
137 |
FIZHI_INIT_VEG |
chfr (nchpland(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
147 |
FIZHI_INIT_VEG |
do k=1,maxtyp |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
150 |
FIZHI_INIT_VEG |
if(surftype(i,j,k,bi,bj).ge.100 .and. |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
151 |
FIZHI_INIT_VEG |
& tilefrac(i,j,k,bi,bj).gt.0.) then |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
154 |
FIZHI_INIT_VEG |
ityp (nchptot(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
155 |
FIZHI_INIT_VEG |
chfr (nchptot(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
67 |
FIZHI_INIT_VEG |
INTEGER i,j,k,bi,bj |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
96 |
FIZHI_INIT_VEG |
do k = 3,maxtyp |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
99 |
FIZHI_INIT_VEG |
surftype(i,j,k,bi,bj) = 0 |
|
./verification/flt_example/extra/cvprofiles.F |
200 |
NO PROCEDURE |
do k=1,Nr |
|
./verification/flt_example/extra/cvprofiles.F |
201 |
NO PROCEDURE |
if (.not. preflag) uvel(m,k,n) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
202 |
NO PROCEDURE |
if (.not. preflag) vvel(m,k,n) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
203 |
NO PROCEDURE |
temp(m,k,n) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
204 |
NO PROCEDURE |
if (.not. preflag) salt(m,k,n) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
215 |
NO PROCEDURE |
do k=2,Nr |
|
./verification/flt_example/extra/cvprofiles.F |
216 |
NO PROCEDURE |
if (delZ(k) .ne. delZ(k-1)) then |
|
./verification/flt_example/extra/cvprofiles.F |
225 |
NO PROCEDURE |
do k=2,Nr+1 |
|
./verification/flt_example/extra/cvprofiles.F |
226 |
NO PROCEDURE |
Dep_w(k)=Dep_w(k-1)+delZ(k-1) |
|
./verification/flt_example/extra/cvprofiles.F |
227 |
NO PROCEDURE |
if (k .ne. Nr+1) Dep_wm1(k) = Dep_w(k) |
|
./verification/flt_example/extra/cvprofiles.F |
230 |
NO PROCEDURE |
do k=1,Nr |
|
./verification/flt_example/extra/cvprofiles.F |
231 |
NO PROCEDURE |
Dep_t(k)=(Dep_w(k)+Dep_w(k+1))*0.5 |
|
./verification/flt_example/extra/cvprofiles.F |
288 |
NO PROCEDURE |
do k=1,Nr |
|
./verification/flt_example/extra/cvprofiles.F |
289 |
NO PROCEDURE |
if (.not. preflag) uvel(ip,k,np) = SNGL(tmp(6+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
290 |
NO PROCEDURE |
if (.not. preflag) vvel(ip,k,np) = SNGL(tmp(6+1*Nr+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
291 |
NO PROCEDURE |
temp(ip,k,np) = SNGL(tmp(6+2*Nr+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
292 |
NO PROCEDURE |
if (.not. preflag) salt(ip,k,np) = SNGL(tmp(6+3*Nr+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
293 |
NO PROCEDURE |
if (temp(ip,k,np) .eq. 0.) then |
|
./verification/flt_example/extra/cvprofiles.F |
294 |
NO PROCEDURE |
if (.not. preflag) uvel(ip,k,np) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
295 |
NO PROCEDURE |
if (.not. preflag) vvel(ip,k,np) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
296 |
NO PROCEDURE |
temp(ip,k,np) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
297 |
NO PROCEDURE |
if (.not. preflag) salt(ip,k,np) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
558 |
NO PROCEDURE |
do k=1,Nr |
|
./verification/flt_example/extra/cvprofiles.F |
559 |
NO PROCEDURE |
temp(ip,k,np) = SNGL(tmp(6+3*Nr+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
560 |
NO PROCEDURE |
if (SNGL(tmp(6+2*Nr+k)) .eq. 0.) then |
|
./verification/flt_example/extra/cvprofiles.F |
561 |
NO PROCEDURE |
temp(ip,k,np) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
588 |
NO PROCEDURE |
do k=1,Nr |
|
./verification/flt_example/extra/cvprofiles.F |
589 |
NO PROCEDURE |
temp(ip,k,np) = SNGL(tmp(6+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
590 |
NO PROCEDURE |
if (SNGL(tmp(6+2*Nr+k)) .eq. 0.) then |
|
./verification/flt_example/extra/cvprofiles.F |
591 |
NO PROCEDURE |
temp(ip,k,np) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
618 |
NO PROCEDURE |
do k=1,Nr |
|
./verification/flt_example/extra/cvprofiles.F |
619 |
NO PROCEDURE |
temp(ip,k,np) = SNGL(tmp(6+1*Nr+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
620 |
NO PROCEDURE |
if (SNGL(tmp(6+2*Nr+k)) .eq. 0.) then |
|
./verification/flt_example/extra/cvprofiles.F |
621 |
NO PROCEDURE |
temp(ip,k,np) = spval |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
33 |
COST_TEST |
integer i, j, k |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
60 |
COST_TEST |
k=1 |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
81 |
COST_TEST |
do k=1,nr |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
82 |
COST_TEST |
if (maskC(i,j,k,bi,bj).NE.0.) then |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
84 |
COST_TEST |
& (theta(i,j,k,bi,bj)-thetaLev(i,j,k,bi,bj))**2 |
|
./verification/halfpipe_streamice/code_ad/cost_test.F |
41 |
COST_TEST |
integer i, j, k |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
51 |
CTRL_MAP_GENTIM2D |
integer i,j,k |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
153 |
CTRL_MAP_INI_GENARR |
do k = 1,Nr |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
157 |
CTRL_MAP_INI_GENARR |
theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
158 |
CTRL_MAP_INI_GENARR |
& + fac*tmpfld3d(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
160 |
CTRL_MAP_INI_GENARR |
salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
161 |
CTRL_MAP_INI_GENARR |
& + fac*tmpfld3d(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
164 |
CTRL_MAP_INI_GENARR |
diffkr(i,j,k,bi,bj) = diffkr(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
165 |
CTRL_MAP_INI_GENARR |
& + tmpfld3d(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
56 |
CTRL_MAP_INI_GENARR |
integer i,j,k |
|
./verification/halfpipe_streamice/code_oad/cost_test.F |
41 |
COST_TEST |
integer i, j, k |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
51 |
CTRL_MAP_GENTIM2D |
integer i,j,k |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
153 |
CTRL_MAP_INI_GENARR |
do k = 1,Nr |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
157 |
CTRL_MAP_INI_GENARR |
theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
158 |
CTRL_MAP_INI_GENARR |
& + fac*tmpfld3d(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
160 |
CTRL_MAP_INI_GENARR |
salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
161 |
CTRL_MAP_INI_GENARR |
& + fac*tmpfld3d(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
164 |
CTRL_MAP_INI_GENARR |
diffkr(i,j,k,bi,bj) = diffkr(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
165 |
CTRL_MAP_INI_GENARR |
& + tmpfld3d(i,j,k,bi,bj) |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
56 |
CTRL_MAP_INI_GENARR |
integer i,j,k |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
112 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
146 |
APPLY_FORCING_V |
INTEGER k, bi, bj |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
166 |
APPLY_FORCING_V |
IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
169 |
APPLY_FORCING_V |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
170 |
APPLY_FORCING_V |
& +rF(k+1)*recip_P0g ) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
181 |
APPLY_FORCING_V |
termP = aHybSigmC(k)*rFullDepth |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
187 |
APPLY_FORCING_V |
& + bHybSigmC(k) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
191 |
APPLY_FORCING_V |
& - kV*vVel(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
19 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
205 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
238 |
APPLY_FORCING_T |
INTEGER k, bi, bj |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
259 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( rF(k) + rF(k+1) ) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
266 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
267 |
APPLY_FORCING_T |
& + rF(k+1) ) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
278 |
APPLY_FORCING_T |
termP = aHybSigmC(k)*rFullDepth |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
284 |
APPLY_FORCING_T |
& + bHybSigmC(k) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
290 |
APPLY_FORCING_T |
& - kT*( theta(i,j,k,bi,bj)-thetaEq ) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
291 |
APPLY_FORCING_T |
& *maskC(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
304 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
338 |
APPLY_FORCING_S |
INTEGER k, bi, bj |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
53 |
APPLY_FORCING_U |
INTEGER k, bi, bj |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
73 |
APPLY_FORCING_U |
IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
76 |
APPLY_FORCING_U |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
77 |
APPLY_FORCING_U |
& +rF(k+1)*recip_P0g ) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
88 |
APPLY_FORCING_U |
termP = aHybSigmC(k)*rFullDepth |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
94 |
APPLY_FORCING_U |
& + bHybSigmC(k) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
98 |
APPLY_FORCING_U |
& - kV*uVel(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
104 |
INI_THETA |
IF ( tRef(k).NE.0. ) THEN |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
112 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
146 |
APPLY_FORCING_V |
INTEGER k, bi, bj |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
166 |
APPLY_FORCING_V |
IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
169 |
APPLY_FORCING_V |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
170 |
APPLY_FORCING_V |
& +rF(k+1)*recip_P0g ) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
181 |
APPLY_FORCING_V |
termP = aHybSigmC(k)*rFullDepth |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
187 |
APPLY_FORCING_V |
& + bHybSigmC(k) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
191 |
APPLY_FORCING_V |
& - kV*vVel(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
19 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
205 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
238 |
APPLY_FORCING_T |
INTEGER k, bi, bj |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
259 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( rF(k) + rF(k+1) ) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
266 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
267 |
APPLY_FORCING_T |
& + rF(k+1) ) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
278 |
APPLY_FORCING_T |
termP = aHybSigmC(k)*rFullDepth |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
284 |
APPLY_FORCING_T |
& + bHybSigmC(k) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
290 |
APPLY_FORCING_T |
& - kT*( theta(i,j,k,bi,bj)-thetaEq ) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
291 |
APPLY_FORCING_T |
& *maskC(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
304 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
338 |
APPLY_FORCING_S |
INTEGER k, bi, bj |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
53 |
APPLY_FORCING_U |
INTEGER k, bi, bj |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
73 |
APPLY_FORCING_U |
IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
76 |
APPLY_FORCING_U |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
77 |
APPLY_FORCING_U |
& +rF(k+1)*recip_P0g ) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
88 |
APPLY_FORCING_U |
termP = aHybSigmC(k)*rFullDepth |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
94 |
APPLY_FORCING_U |
& + bHybSigmC(k) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
98 |
APPLY_FORCING_U |
& - kV*uVel(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
33 |
COST_TEST |
integer i, j, k |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
56 |
COST_TEST |
k=1 |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
47 |
CTRL_MAP_GENTIM2D |
integer i,j,k |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
134 |
CTRL_MAP_INI_GENARR |
do k = 1,Nr |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
52 |
CTRL_MAP_INI_GENARR |
integer i,j,k |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
104 |
INI_THETA |
IF ( tRef(k).NE.0. ) THEN |
|
./model/src/port_rand.F |
52 |
NO PROCEDURE |
INTEGER i,ii,inext,inextp,k |
|
./model/src/port_rand.F |
71 |
NO PROCEDURE |
DO k=1,4 |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
112 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
146 |
APPLY_FORCING_V |
INTEGER k, bi, bj |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
166 |
APPLY_FORCING_V |
IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
169 |
APPLY_FORCING_V |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
170 |
APPLY_FORCING_V |
& +rF(k+1)*recip_P0g ) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
181 |
APPLY_FORCING_V |
termP = aHybSigmC(k)*rFullDepth |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
187 |
APPLY_FORCING_V |
& + bHybSigmC(k) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
191 |
APPLY_FORCING_V |
& - kV*vVel(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
19 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
205 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
238 |
APPLY_FORCING_T |
INTEGER k, bi, bj |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
259 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( rF(k) + rF(k+1) ) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
266 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
267 |
APPLY_FORCING_T |
& + rF(k+1) ) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
278 |
APPLY_FORCING_T |
termP = aHybSigmC(k)*rFullDepth |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
284 |
APPLY_FORCING_T |
& + bHybSigmC(k) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
290 |
APPLY_FORCING_T |
& - kT*( theta(i,j,k,bi,bj)-thetaEq ) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
291 |
APPLY_FORCING_T |
& *maskC(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
304 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
338 |
APPLY_FORCING_S |
INTEGER k, bi, bj |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
53 |
APPLY_FORCING_U |
INTEGER k, bi, bj |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
73 |
APPLY_FORCING_U |
IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
76 |
APPLY_FORCING_U |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
77 |
APPLY_FORCING_U |
& +rF(k+1)*recip_P0g ) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
88 |
APPLY_FORCING_U |
termP = aHybSigmC(k)*rFullDepth |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
94 |
APPLY_FORCING_U |
& + bHybSigmC(k) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
98 |
APPLY_FORCING_U |
& - kV*uVel(i,j,k,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/cost_test.F |
33 |
COST_TEST |
integer i, j, k |
|
./verification/hs94.1x64x5/code_oad/cost_test.F |
56 |
COST_TEST |
k=1 |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
47 |
CTRL_MAP_GENTIM2D |
integer i,j,k |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
134 |
CTRL_MAP_INI_GENARR |
do k = 1,Nr |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
52 |
CTRL_MAP_INI_GENARR |
integer i,j,k |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
104 |
INI_THETA |
IF ( tRef(k).NE.0. ) THEN |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
112 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
146 |
APPLY_FORCING_V |
INTEGER k, bi, bj |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
166 |
APPLY_FORCING_V |
IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
169 |
APPLY_FORCING_V |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
170 |
APPLY_FORCING_V |
& +rF(k+1)*recip_P0g ) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
181 |
APPLY_FORCING_V |
termP = aHybSigmC(k)*rFullDepth |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
187 |
APPLY_FORCING_V |
& + bHybSigmC(k) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
191 |
APPLY_FORCING_V |
& - kV*vVel(i,j,k,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
19 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
205 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
238 |
APPLY_FORCING_T |
INTEGER k, bi, bj |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
259 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( rF(k) + rF(k+1) ) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
266 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
267 |
APPLY_FORCING_T |
& + rF(k+1) ) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
278 |
APPLY_FORCING_T |
termP = aHybSigmC(k)*rFullDepth |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
284 |
APPLY_FORCING_T |
& + bHybSigmC(k) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
290 |
APPLY_FORCING_T |
& - kT*( theta(i,j,k,bi,bj)-thetaEq ) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
291 |
APPLY_FORCING_T |
& *maskC(i,j,k,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
304 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
338 |
APPLY_FORCING_S |
INTEGER k, bi, bj |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
53 |
APPLY_FORCING_U |
INTEGER k, bi, bj |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
73 |
APPLY_FORCING_U |
IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
76 |
APPLY_FORCING_U |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
77 |
APPLY_FORCING_U |
& +rF(k+1)*recip_P0g ) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
88 |
APPLY_FORCING_U |
termP = aHybSigmC(k)*rFullDepth |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
94 |
APPLY_FORCING_U |
& + bHybSigmC(k) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
98 |
APPLY_FORCING_U |
& - kV*uVel(i,j,k,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
104 |
INI_THETA |
IF ( tRef(k).NE.0. ) THEN |
|
./model/src/post_cg3d.F |
117 |
POST_CG3D |
DO k=1,Nr |
|
./model/src/post_cg3d.F |
120 |
POST_CG3D |
phi_nh(i,j,k,bi,bj) = ( phi_nh(i,j,k,bi,bj) |
|
./model/src/post_cg3d.F |
122 |
POST_CG3D |
& )*maskC(i,j,k,bi,bj) |
|
./model/src/post_cg3d.F |
50 |
POST_CG3D |
INTEGER i,j,k,bi,bj |
|
./verification/internal_wave/code/obcs_calc.F |
134 |
OBCS_CALC |
& + Uinflow*sin(mz*PI*(float(k)-0.5 _d 0)/float(Nr)) |
|
./verification/internal_wave/code/obcs_calc.F |
148 |
OBCS_CALC |
& *sin(mz*PI*(float(k)-0.5 _d 0)/float(Nr)) |
|
./model/src/pre_cg3d.F |
191 |
PRE_CG3D |
k=1 |
|
./model/src/pre_cg3d.F |
192 |
PRE_CG3D |
kp1 = MIN(k+1,Nr) |
|
./model/src/pre_cg3d.F |
194 |
PRE_CG3D |
IF (k.GE.Nr) wFacKp = 0. |
|
./model/src/pre_cg3d.F |
197 |
PRE_CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/pre_cg3d.F |
198 |
PRE_CG3D |
& +drF(k)*dyG(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj)*uf(i+1,j) |
|
./model/src/pre_cg3d.F |
199 |
PRE_CG3D |
& -drF(k)*dyG( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)*uf( i ,j) |
|
./model/src/pre_cg3d.F |
200 |
PRE_CG3D |
& +drF(k)*dxG(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj)*vf(i,j+1) |
|
./model/src/pre_cg3d.F |
201 |
PRE_CG3D |
& -drF(k)*dxG(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)*vf(i, j ) |
|
./model/src/pre_cg3d.F |
207 |
PRE_CG3D |
DO k=2,Nr |
|
./model/src/pre_cg3d.F |
208 |
PRE_CG3D |
kp1 = MIN(k+1,Nr) |
|
./model/src/pre_cg3d.F |
211 |
PRE_CG3D |
wFacKm = implicDiv2DFlow*deepFac2F( k )*rhoFacF( k ) |
|
./model/src/pre_cg3d.F |
213 |
PRE_CG3D |
IF (k.GE.Nr) wFacKp = 0. |
|
./model/src/pre_cg3d.F |
216 |
PRE_CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/pre_cg3d.F |
217 |
PRE_CG3D |
& +drF(k)*dyG(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj)*uf(i+1,j) |
|
./model/src/pre_cg3d.F |
218 |
PRE_CG3D |
& -drF(k)*dyG( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)*uf( i ,j) |
|
./model/src/pre_cg3d.F |
219 |
PRE_CG3D |
& +drF(k)*dxG(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj)*vf(i,j+1) |
|
./model/src/pre_cg3d.F |
220 |
PRE_CG3D |
& -drF(k)*dxG(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)*vf(i, j ) |
|
./model/src/pre_cg3d.F |
221 |
PRE_CG3D |
& +( wVel(i,j, k ,bi,bj)*wFacKm*maskC(i,j,k-1,bi,bj) |
|
./model/src/pre_cg3d.F |
239 |
PRE_CG3D |
DO k=1,Nr |
|
./model/src/pre_cg3d.F |
242 |
PRE_CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/pre_cg3d.F |
244 |
PRE_CG3D |
phi_nh(i,j,k,bi,bj) = phi_nh(i,j,k,bi,bj) |
|
./model/src/pre_cg3d.F |
57 |
PRE_CG3D |
INTEGER i,j,k,bi,bj |
|
./verification/isomip/code_ad/cost_test.F |
33 |
COST_TEST |
integer i, j, k |
|
./verification/isomip/code_ad/cost_test.F |
60 |
COST_TEST |
k=1 |
|
./verification/isomip/code_ad/cost_test.F |
81 |
COST_TEST |
do k=1,nr |
|
./verification/isomip/code_ad/cost_test.F |
82 |
COST_TEST |
if (maskC(i,j,k,bi,bj).NE.0.) then |
|
./verification/isomip/code_ad/cost_test.F |
84 |
COST_TEST |
& ( theta(i,j,k,bi,bj) )**2 |
|
./model/src/pressure_for_eos.F |
109 |
PRESSURE_FOR_EOS |
locPres(i,j) = rC(k) |
|
./model/src/pressure_for_eos.F |
38 |
PRESSURE_FOR_EOS |
INTEGER bi, bj, k |
|
./model/src/pressure_for_eos.F |
60 |
PRESSURE_FOR_EOS |
& totPhiHyd(i,j,k,bi,bj) |
|
./model/src/pressure_for_eos.F |
61 |
PRESSURE_FOR_EOS |
& +( phi_nh(i,j,k,bi,bj) - dPhiNH(i,j,bi,bj) ) |
|
./model/src/pressure_for_eos.F |
62 |
PRESSURE_FOR_EOS |
& + phiRef(2*k) ) |
|
./model/src/pressure_for_eos.F |
78 |
PRESSURE_FOR_EOS |
& totPhiHyd(i,j,k,bi,bj) |
|
./model/src/pressure_for_eos.F |
79 |
PRESSURE_FOR_EOS |
& + phiRef(2*k) ) |
|
./model/src/pressure_for_eos.F |
91 |
PRESSURE_FOR_EOS |
locPres(i,j) = pRef4EOS(k) |
|
./model/src/pressure_for_eos.F |
99 |
PRESSURE_FOR_EOS |
locPres(i,j) = rhoConst*phiRef(2*k) |
|
./model/src/pressure_for_eos.F |
9 |
PRESSURE_FOR_EOS |
I bi, bj, iMin, iMax, jMin, jMax, k, |
|
./verification/isomip/code_oad/cost_test.F |
33 |
COST_TEST |
integer i, j, k |
|
./verification/isomip/code_oad/cost_test.F |
60 |
COST_TEST |
k=1 |
|
./verification/isomip/code_oad/cost_test.F |
81 |
COST_TEST |
do k=1,nr |
|
./verification/isomip/code_oad/cost_test.F |
82 |
COST_TEST |
if (maskC(i,j,k,bi,bj).NE.0.) then |
|
./verification/isomip/code_oad/cost_test.F |
84 |
COST_TEST |
& ( theta(i,j,k,bi,bj) )**2 |
|
./verification/natl_box/results/comp_orig.F |
15 |
NO PROCEDURE |
integer lbuffer1, lbuffer2, i, j, k, irec |
|
./verification/natl_box/results/comp_orig.F |
28 |
NO PROCEDURE |
do k=1,nrec |
|
./model/src/rotate_uv2en.F |
101 |
ROTATE_UV2EN_RL |
& *( vFldY(i,j+1,k,bi,bj) + vFldY(i,j,k,bi,bj) ) |
|
./model/src/rotate_uv2en.F |
112 |
ROTATE_UV2EN_RL |
tmpU(i,j) = uFldX(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
113 |
ROTATE_UV2EN_RL |
tmpV(i,j) = vFldY(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
125 |
ROTATE_UV2EN_RL |
uFldE(i,j,k,bi,bj) = |
|
./model/src/rotate_uv2en.F |
128 |
ROTATE_UV2EN_RL |
vFldN(i,j,k,bi,bj) = |
|
./model/src/rotate_uv2en.F |
141 |
ROTATE_UV2EN_RL |
& angleCosC(i,j,bi,bj)*uFldE(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
142 |
ROTATE_UV2EN_RL |
& +angleSinC(i,j,bi,bj)*vFldN(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
144 |
ROTATE_UV2EN_RL |
& -angleSinC(i,j,bi,bj)*uFldE(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
145 |
ROTATE_UV2EN_RL |
& +angleCosC(i,j,bi,bj)*vFldN(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
152 |
ROTATE_UV2EN_RL |
uFldX(i,1,k,bi,bj)=0. |
|
./model/src/rotate_uv2en.F |
153 |
ROTATE_UV2EN_RL |
vFldY(i,1,k,bi,bj)=0. |
|
./model/src/rotate_uv2en.F |
156 |
ROTATE_UV2EN_RL |
uFldX(1,j,k,bi,bj)=0. |
|
./model/src/rotate_uv2en.F |
157 |
ROTATE_UV2EN_RL |
vFldY(1,j,k,bi,bj)=0. |
|
./model/src/rotate_uv2en.F |
159 |
ROTATE_UV2EN_RL |
uFldX(i,j,k,bi,bj) = 0.5 _d 0 |
|
./model/src/rotate_uv2en.F |
161 |
ROTATE_UV2EN_RL |
vFldY(i,j,k,bi,bj) = 0.5 _d 0 |
|
./model/src/rotate_uv2en.F |
164 |
ROTATE_UV2EN_RL |
uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskW(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
165 |
ROTATE_UV2EN_RL |
vFldY(i,j,k,bi,bj)=vFldY(i,j,k,bi,bj)*maskS(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
173 |
ROTATE_UV2EN_RL |
uFldX(i,j,k,bi,bj) = tmpU(i,j) |
|
./model/src/rotate_uv2en.F |
174 |
ROTATE_UV2EN_RL |
vFldY(i,j,k,bi,bj) = tmpV(i,j) |
|
./model/src/rotate_uv2en.F |
176 |
ROTATE_UV2EN_RL |
uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
177 |
ROTATE_UV2EN_RL |
vFldY(i,j,k,bi,bj)=vFldY(i,j,k,bi,bj)*maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
242 |
ROTATE_UV2EN_RS |
integer i,j,k,kk |
|
./model/src/rotate_uv2en.F |
259 |
ROTATE_UV2EN_RS |
do k = 1,kSize |
|
./model/src/rotate_uv2en.F |
264 |
ROTATE_UV2EN_RS |
kk=k |
|
./model/src/rotate_uv2en.F |
280 |
ROTATE_UV2EN_RS |
& *( uFldX(i+1,j,k,bi,bj) + uFldX(i,j,k,bi,bj) ) |
|
./model/src/rotate_uv2en.F |
282 |
ROTATE_UV2EN_RS |
& *( vFldY(i,j+1,k,bi,bj) + vFldY(i,j,k,bi,bj) ) |
|
./model/src/rotate_uv2en.F |
293 |
ROTATE_UV2EN_RS |
tmpU(i,j) = uFldX(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
294 |
ROTATE_UV2EN_RS |
tmpV(i,j) = vFldY(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
306 |
ROTATE_UV2EN_RS |
uFldE(i,j,k,bi,bj) = |
|
./model/src/rotate_uv2en.F |
309 |
ROTATE_UV2EN_RS |
vFldN(i,j,k,bi,bj) = |
|
./model/src/rotate_uv2en.F |
322 |
ROTATE_UV2EN_RS |
& angleCosC(i,j,bi,bj)*uFldE(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
323 |
ROTATE_UV2EN_RS |
& +angleSinC(i,j,bi,bj)*vFldN(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
325 |
ROTATE_UV2EN_RS |
& -angleSinC(i,j,bi,bj)*uFldE(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
326 |
ROTATE_UV2EN_RS |
& +angleCosC(i,j,bi,bj)*vFldN(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
333 |
ROTATE_UV2EN_RS |
uFldX(i,1,k,bi,bj)=0. |
|
./model/src/rotate_uv2en.F |
334 |
ROTATE_UV2EN_RS |
vFldY(i,1,k,bi,bj)=0. |
|
./model/src/rotate_uv2en.F |
337 |
ROTATE_UV2EN_RS |
uFldX(1,j,k,bi,bj)=0. |
|
./model/src/rotate_uv2en.F |
338 |
ROTATE_UV2EN_RS |
vFldY(1,j,k,bi,bj)=0. |
|
./model/src/rotate_uv2en.F |
340 |
ROTATE_UV2EN_RS |
uFldX(i,j,k,bi,bj) = 0.5 _d 0 |
|
./model/src/rotate_uv2en.F |
342 |
ROTATE_UV2EN_RS |
vFldY(i,j,k,bi,bj) = 0.5 _d 0 |
|
./model/src/rotate_uv2en.F |
345 |
ROTATE_UV2EN_RS |
uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskW(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
346 |
ROTATE_UV2EN_RS |
vFldY(i,j,k,bi,bj)=vFldY(i,j,k,bi,bj)*maskS(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
354 |
ROTATE_UV2EN_RS |
uFldX(i,j,k,bi,bj) = tmpU(i,j) |
|
./model/src/rotate_uv2en.F |
355 |
ROTATE_UV2EN_RS |
vFldY(i,j,k,bi,bj) = tmpV(i,j) |
|
./model/src/rotate_uv2en.F |
357 |
ROTATE_UV2EN_RS |
uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
358 |
ROTATE_UV2EN_RS |
vFldY(i,j,k,bi,bj)=vFldY(i,j,k,bi,bj)*maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
61 |
ROTATE_UV2EN_RL |
integer i,j,k,kk |
|
./model/src/rotate_uv2en.F |
78 |
ROTATE_UV2EN_RL |
do k = 1,kSize |
|
./model/src/rotate_uv2en.F |
83 |
ROTATE_UV2EN_RL |
kk=k |
|
./model/src/rotate_uv2en.F |
99 |
ROTATE_UV2EN_RL |
& *( uFldX(i+1,j,k,bi,bj) + uFldX(i,j,k,bi,bj) ) |
|
./verification/rotating_tank/code/apply_forcing.F |
1000 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
1008 |
APPLY_FORCING_S |
I k, bi, bj, myTime, 0, myThid ) |
|
./verification/rotating_tank/code/apply_forcing.F |
1015 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
1023 |
APPLY_FORCING_S |
I k, bi, bj, 2, |
|
./verification/rotating_tank/code/apply_forcing.F |
102 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
1032 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
1040 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
1048 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
109 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
116 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
121 |
APPLY_FORCING_U |
IF ( k .EQ. kSurface ) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
128 |
APPLY_FORCING_U |
& *recip_drF(k)*_recip_hFacW(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
134 |
APPLY_FORCING_U |
IF ( kSurfW(i,j,bi,bj).EQ.k ) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
137 |
APPLY_FORCING_U |
& *recip_drF(k)*_recip_hFacW(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
146 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
154 |
APPLY_FORCING_U |
I k, bi, bj, -1, |
|
./verification/rotating_tank/code/apply_forcing.F |
164 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
173 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
189 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
20 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
222 |
APPLY_FORCING_V |
INTEGER k, bi, bj |
|
./verification/rotating_tank/code/apply_forcing.F |
243 |
APPLY_FORCING_V |
locVar(i,j) = gV(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
247 |
APPLY_FORCING_V |
I iMin, iMax, jMin, jMax, bi, bj, k, |
|
./verification/rotating_tank/code/apply_forcing.F |
251 |
APPLY_FORCING_V |
tmpVar = gV(i,j,k,bi,bj) - locVar(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
252 |
APPLY_FORCING_V |
gV(i,j,k,bi,bj) = locVar(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
271 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
278 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
285 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
290 |
APPLY_FORCING_V |
IF ( k .EQ. kSurface ) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
297 |
APPLY_FORCING_V |
& *recip_drF(k)*_recip_hFacS(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
303 |
APPLY_FORCING_V |
IF ( kSurfS(i,j,bi,bj).EQ.k ) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
306 |
APPLY_FORCING_V |
& *recip_drF(k)*_recip_hFacS(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
315 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
323 |
APPLY_FORCING_V |
I k, bi, bj, -2, |
|
./verification/rotating_tank/code/apply_forcing.F |
332 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
341 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
357 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
391 |
APPLY_FORCING_T |
INTEGER k, bi, bj |
|
./verification/rotating_tank/code/apply_forcing.F |
466 |
APPLY_FORCING_T |
locVar(i,j) = gT(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
470 |
APPLY_FORCING_T |
I iMin, iMax, jMin, jMax, bi, bj, k, |
|
./verification/rotating_tank/code/apply_forcing.F |
474 |
APPLY_FORCING_T |
tmpVar = gT(i,j,k,bi,bj) - locVar(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
475 |
APPLY_FORCING_T |
gT(i,j,k,bi,bj) = locVar(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
497 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
504 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
511 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
522 |
APPLY_FORCING_T |
& + addMass(i,j,k,bi,bj)*mass2rUnit |
|
./verification/rotating_tank/code/apply_forcing.F |
523 |
APPLY_FORCING_T |
& *( temp_addMass - theta(i,j,k,bi,bj) ) |
|
./verification/rotating_tank/code/apply_forcing.F |
525 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
533 |
APPLY_FORCING_T |
& + addMass(i,j,k,bi,bj)*mass2rUnit |
|
./verification/rotating_tank/code/apply_forcing.F |
534 |
APPLY_FORCING_T |
& *( temp_addMass - tRef(k) ) |
|
./verification/rotating_tank/code/apply_forcing.F |
536 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
53 |
APPLY_FORCING_U |
INTEGER k, bi, bj |
|
./verification/rotating_tank/code/apply_forcing.F |
548 |
APPLY_FORCING_T |
tmpFac = (atm_Po/rC(k))**atm_kappa |
|
./verification/rotating_tank/code/apply_forcing.F |
558 |
APPLY_FORCING_T |
& + frictionHeating(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
560 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
575 |
APPLY_FORCING_T |
tmpFac = (atm_Po/rC(k))**atm_kappa |
|
./verification/rotating_tank/code/apply_forcing.F |
578 |
APPLY_FORCING_T |
km = k-1 |
|
./verification/rotating_tank/code/apply_forcing.F |
579 |
APPLY_FORCING_T |
kc = k |
|
./verification/rotating_tank/code/apply_forcing.F |
580 |
APPLY_FORCING_T |
kp = k+1 |
|
./verification/rotating_tank/code/apply_forcing.F |
581 |
APPLY_FORCING_T |
IF ( k.EQ.1 ) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
599 |
APPLY_FORCING_T |
IF ( k.LT.Nr ) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
616 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
630 |
APPLY_FORCING_T |
IF ( k .EQ. kSurface ) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
635 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
641 |
APPLY_FORCING_T |
IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
644 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
653 |
APPLY_FORCING_T |
IF (k .EQ. kSurfC(i,j,bi,bj)) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
655 |
APPLY_FORCING_T |
& +TsurfCor*recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
664 |
APPLY_FORCING_T |
swfracb(1)=abs(rF(k)) |
|
./verification/rotating_tank/code/apply_forcing.F |
665 |
APPLY_FORCING_T |
swfracb(2)=abs(rF(k+1)) |
|
./verification/rotating_tank/code/apply_forcing.F |
670 |
APPLY_FORCING_T |
kp1 = k+1 |
|
./verification/rotating_tank/code/apply_forcing.F |
671 |
APPLY_FORCING_T |
IF (k.EQ.Nr) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
672 |
APPLY_FORCING_T |
kp1 = k |
|
./verification/rotating_tank/code/apply_forcing.F |
678 |
APPLY_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
681 |
APPLY_FORCING_T |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
708 |
APPLY_FORCING_T |
hC = hFacC(i ,j ,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
709 |
APPLY_FORCING_T |
hW = hFacW(i ,j ,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
710 |
APPLY_FORCING_T |
hE = hFacW(i+1,j ,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
711 |
APPLY_FORCING_T |
hN = hFacS(i ,j+1,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
712 |
APPLY_FORCING_T |
hS = hFacS(i ,j ,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
715 |
APPLY_FORCING_T |
faceArea = drF(k)*dyG(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
717 |
APPLY_FORCING_T |
& -faceArea*kDiffCyl*(theta(i,j,k,bi,bj) - tCyl) |
|
./verification/rotating_tank/code/apply_forcing.F |
722 |
APPLY_FORCING_T |
faceArea = drF(k)*dyG(i+1,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
724 |
APPLY_FORCING_T |
& -faceArea*kDiffCyl*(tCyl - theta(i,j,k,bi,bj)) |
|
./verification/rotating_tank/code/apply_forcing.F |
729 |
APPLY_FORCING_T |
faceArea = drF(k)*dxG(i,j+1,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
731 |
APPLY_FORCING_T |
& -faceArea*kDiffCyl*(tCyl-theta(i,j,k,bi,bj)) |
|
./verification/rotating_tank/code/apply_forcing.F |
736 |
APPLY_FORCING_T |
faceArea = drF(k)*dxG(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
738 |
APPLY_FORCING_T |
& -faceArea*kDiffCyl*(theta(i,j,k,bi,bj) - tCyl) |
|
./verification/rotating_tank/code/apply_forcing.F |
745 |
APPLY_FORCING_T |
& -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k) |
|
./verification/rotating_tank/code/apply_forcing.F |
74 |
APPLY_FORCING_U |
locVar(i,j) = gU(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
760 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
768 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
776 |
APPLY_FORCING_T |
I k, bi, bj, myTime, 0, myThid ) |
|
./verification/rotating_tank/code/apply_forcing.F |
783 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
78 |
APPLY_FORCING_U |
I iMin, iMax, jMin, jMax, bi, bj, k, |
|
./verification/rotating_tank/code/apply_forcing.F |
791 |
APPLY_FORCING_T |
I k, bi, bj, 1, |
|
./verification/rotating_tank/code/apply_forcing.F |
800 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
808 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
816 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
82 |
APPLY_FORCING_U |
tmpVar = gU(i,j,k,bi,bj) - locVar(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
832 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
83 |
APPLY_FORCING_U |
gU(i,j,k,bi,bj) = locVar(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
866 |
APPLY_FORCING_S |
INTEGER k, bi, bj |
|
./verification/rotating_tank/code/apply_forcing.F |
887 |
APPLY_FORCING_S |
locVar(i,j) = gS(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
891 |
APPLY_FORCING_S |
I iMin, iMax, jMin, jMax, bi, bj, k, |
|
./verification/rotating_tank/code/apply_forcing.F |
895 |
APPLY_FORCING_S |
tmpVar = gS(i,j,k,bi,bj) - locVar(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
896 |
APPLY_FORCING_S |
gS(i,j,k,bi,bj) = locVar(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
917 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
924 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
931 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./verification/rotating_tank/code/apply_forcing.F |
942 |
APPLY_FORCING_S |
& + addMass(i,j,k,bi,bj)*mass2rUnit |
|
./verification/rotating_tank/code/apply_forcing.F |
943 |
APPLY_FORCING_S |
& *( salt_addMass - salt(i,j,k,bi,bj) ) |
|
./verification/rotating_tank/code/apply_forcing.F |
945 |
APPLY_FORCING_S |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
953 |
APPLY_FORCING_S |
& + addMass(i,j,k,bi,bj)*mass2rUnit |
|
./verification/rotating_tank/code/apply_forcing.F |
954 |
APPLY_FORCING_S |
& *( salt_addMass - sRef(k) ) |
|
./verification/rotating_tank/code/apply_forcing.F |
956 |
APPLY_FORCING_S |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
965 |
APPLY_FORCING_S |
IF ( k .EQ. kSurface ) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
970 |
APPLY_FORCING_S |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
976 |
APPLY_FORCING_S |
IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
979 |
APPLY_FORCING_S |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
988 |
APPLY_FORCING_S |
IF (k .EQ. kSurfC(i,j,bi,bj)) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
990 |
APPLY_FORCING_S |
& +SsurfCor*recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/salt_integrate.F |
120 |
SALT_INTEGRATE |
INTEGER i, j, k |
|
./model/src/salt_integrate.F |
205 |
SALT_INTEGRATE |
DO k=1,Nr |
|
./model/src/salt_integrate.F |
208 |
SALT_INTEGRATE |
gS_loc(i,j,k) = 0. _d 0 |
|
./model/src/salt_integrate.F |
219 |
SALT_INTEGRATE |
DO k=1,Nr |
|
./model/src/salt_integrate.F |
222 |
SALT_INTEGRATE |
kappaRk(i,j,k) = 0. _d 0 |
|
./model/src/salt_integrate.F |
290 |
SALT_INTEGRATE |
DO k=Nr,1,-1 |
|
./model/src/salt_integrate.F |
292 |
SALT_INTEGRATE |
kkey = (itdkey-1)*Nr + k |
|
./model/src/salt_integrate.F |
294 |
SALT_INTEGRATE |
kM1 = MAX(1,k-1) |
|
./model/src/salt_integrate.F |
295 |
SALT_INTEGRATE |
kUp = 1+MOD(k+1,2) |
|
./model/src/salt_integrate.F |
296 |
SALT_INTEGRATE |
kDown= 1+MOD(k,2) |
|
./model/src/salt_integrate.F |
318 |
SALT_INTEGRATE |
I k, bi, bj, myThid ) |
|
./model/src/salt_integrate.F |
329 |
SALT_INTEGRATE |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/salt_integrate.F |
333 |
SALT_INTEGRATE |
CALL DIAGNOSTICS_FILL(gsForc,'gS_Forc ',k,1,2,bi,bj,myThid) |
|
./model/src/salt_integrate.F |
342 |
SALT_INTEGRATE |
I bi, bj, iMin,iMax,jMin,jMax, k, kM1, kUp, kDown, |
|
./model/src/salt_integrate.F |
343 |
SALT_INTEGRATE |
I xA, yA, maskUp, uFld(1-OLx,1-OLy,k), |
|
./model/src/salt_integrate.F |
344 |
SALT_INTEGRATE |
I vFld(1-OLx,1-OLy,k), wFld(1-OLx,1-OLy,k), |
|
./model/src/salt_integrate.F |
346 |
SALT_INTEGRATE |
I diffKhS, diffK4S, KappaRk(1-OLx,1-OLy,k), diffKr4S, |
|
./model/src/salt_integrate.F |
357 |
SALT_INTEGRATE |
I bi, bj, iMin,iMax,jMin,jMax, k, kM1, kUp, kDown, |
|
./model/src/salt_integrate.F |
358 |
SALT_INTEGRATE |
I xA, yA, maskUp, uFld(1-OLx,1-OLy,k), |
|
./model/src/salt_integrate.F |
359 |
SALT_INTEGRATE |
I vFld(1-OLx,1-OLy,k), wFld(1-OLx,1-OLy,k), |
|
./model/src/salt_integrate.F |
361 |
SALT_INTEGRATE |
I diffKhS, diffK4S, KappaRk(1-OLx,1-OLy,k), diffKr4S, |
|
./model/src/salt_integrate.F |
376 |
SALT_INTEGRATE |
gS_loc(i,j,k) = gS_loc(i,j,k) + gsForc(i,j) |
|
./model/src/salt_integrate.F |
384 |
SALT_INTEGRATE |
I bi, bj, k, Nr, |
|
./model/src/salt_integrate.F |
390 |
SALT_INTEGRATE |
I bi, bj, k, Nr, |
|
./model/src/salt_integrate.F |
397 |
SALT_INTEGRATE |
CALL DIAGNOSTICS_FILL(gs_AB,'AB_gS ',k,1,2,bi,bj,myThid) |
|
./model/src/salt_integrate.F |
406 |
SALT_INTEGRATE |
gS_loc(i,j,k) = gS_loc(i,j,k) + gsForc(i,j) |
|
./model/src/salt_integrate.F |
414 |
SALT_INTEGRATE |
I bi, bj, k, |
|
./model/src/salt_integrate.F |
426 |
SALT_INTEGRATE |
I bi, bj, k, |
|
./model/src/salt_integrate.F |
430 |
SALT_INTEGRATE |
I bi, bj, k, |
|
./model/src/salt_integrate.F |
435 |
SALT_INTEGRATE |
I bi, bj, k, |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
34 |
INI_VEL |
INTEGER bi,bj,i,j,k |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
51 |
INI_VEL |
DO k=1,Nr |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
56 |
INI_VEL |
uVel(i,j,k,bi,bj)=0. |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
58 |
INI_VEL |
vVel(i,j,k,bi,bj)=0. |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
60 |
INI_VEL |
wVel(i,j,k,bi,bj)=0. |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
88 |
INI_VEL |
DO k=1,Nr |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
91 |
INI_VEL |
uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
92 |
INI_VEL |
vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./model/src/set_defaults.F |
149 |
SET_DEFAULTS |
DO k=1,Nr |
|
./model/src/set_defaults.F |
150 |
SET_DEFAULTS |
viscArNr(k) = UNSET_RL |
|
./model/src/set_defaults.F |
168 |
SET_DEFAULTS |
DO k=1,Nr |
|
./model/src/set_defaults.F |
169 |
SET_DEFAULTS |
diffKrNrT(k) = UNSET_RL |
|
./model/src/set_defaults.F |
170 |
SET_DEFAULTS |
diffKrNrS(k) = UNSET_RL |
|
./model/src/set_defaults.F |
171 |
SET_DEFAULTS |
diffKr4T(k) = 0. |
|
./model/src/set_defaults.F |
172 |
SET_DEFAULTS |
diffKr4S(k) = 0. |
|
./model/src/set_defaults.F |
298 |
SET_DEFAULTS |
DO k=1,Nr |
|
./model/src/set_defaults.F |
299 |
SET_DEFAULTS |
dTtracerLev(k) = 0. _d 0 |
|
./model/src/set_defaults.F |
40 |
SET_DEFAULTS |
INTEGER i, j, k |
|
./model/src/set_defaults.F |
52 |
SET_DEFAULTS |
DO k=1,Nr |
|
./model/src/set_defaults.F |
53 |
SET_DEFAULTS |
delRdefault(k) = 0. |
|
./model/src/set_defaults.F |
55 |
SET_DEFAULTS |
DO k=1,Nr+1 |
|
./model/src/set_defaults.F |
56 |
SET_DEFAULTS |
delRc(k) = UNSET_RL |
|
./model/src/set_defaults.F |
65 |
SET_DEFAULTS |
DO k=1,Nr |
|
./model/src/set_defaults.F |
66 |
SET_DEFAULTS |
tRef(k) = UNSET_RL |
|
./model/src/set_defaults.F |
67 |
SET_DEFAULTS |
sRef(k) = UNSET_RL |
|
./model/src/set_grid_factors.F |
35 |
SET_GRID_FACTORS |
INTEGER k |
|
./model/src/set_grid_factors.F |
51 |
SET_GRID_FACTORS |
DO k=1,Nr |
|
./model/src/set_grid_factors.F |
52 |
SET_GRID_FACTORS |
deepFacC(k) = 1. _d 0 |
|
./model/src/set_grid_factors.F |
53 |
SET_GRID_FACTORS |
deepFac2C(k)= 1. _d 0 |
|
./model/src/set_grid_factors.F |
54 |
SET_GRID_FACTORS |
recip_deepFacC(k) = 1. _d 0 |
|
./model/src/set_grid_factors.F |
55 |
SET_GRID_FACTORS |
recip_deepFac2C(k)= 1. _d 0 |
|
./model/src/set_grid_factors.F |
57 |
SET_GRID_FACTORS |
DO k=1,Nr+1 |
|
./model/src/set_grid_factors.F |
58 |
SET_GRID_FACTORS |
deepFacF(k) = 1. _d 0 |
|
./model/src/set_grid_factors.F |
59 |
SET_GRID_FACTORS |
deepFac2F(k)= 1. _d 0 |
|
./model/src/set_grid_factors.F |
60 |
SET_GRID_FACTORS |
recip_deepFacF(k) = 1. _d 0 |
|
./model/src/set_grid_factors.F |
61 |
SET_GRID_FACTORS |
recip_deepFac2F(k)= 1. _d 0 |
|
./model/src/set_grid_factors.F |
66 |
SET_GRID_FACTORS |
DO k=1,Nr |
|
./model/src/set_grid_factors.F |
67 |
SET_GRID_FACTORS |
deepFacC(k) = (rSphere+rC(k))*recip_rSphere |
|
./model/src/set_grid_factors.F |
68 |
SET_GRID_FACTORS |
deepFac2C(k) = deepFacC(k)*deepFacC(k) |
|
./model/src/set_grid_factors.F |
70 |
SET_GRID_FACTORS |
DO k=1,Nr+1 |
|
./model/src/set_grid_factors.F |
71 |
SET_GRID_FACTORS |
deepFacF(k) = (rSphere+rF(k))*recip_rSphere |
|
./model/src/set_grid_factors.F |
72 |
SET_GRID_FACTORS |
deepFac2F(k) = deepFacF(k)*deepFacF(k) |
|
./model/src/set_grid_factors.F |
75 |
SET_GRID_FACTORS |
DO k=1,Nr |
|
./model/src/set_grid_factors.F |
76 |
SET_GRID_FACTORS |
deepFacC(k) = ( rSphere + phiRef(2*k)*recip_gravity |
|
./model/src/set_grid_factors.F |
78 |
SET_GRID_FACTORS |
deepFac2C(k) = deepFacC(k)*deepFacC(k) |
|
./model/src/set_grid_factors.F |
80 |
SET_GRID_FACTORS |
DO k=1,Nr+1 |
|
./model/src/set_grid_factors.F |
81 |
SET_GRID_FACTORS |
deepFacF(k) = ( rSphere + phiRef(2*k-1)*recip_gravity |
|
./model/src/set_grid_factors.F |
83 |
SET_GRID_FACTORS |
deepFac2F(k) = deepFacF(k)*deepFacF(k) |
|
./model/src/set_grid_factors.F |
87 |
SET_GRID_FACTORS |
DO k=1,Nr |
|
./model/src/set_grid_factors.F |
88 |
SET_GRID_FACTORS |
recip_deepFacC(k) = 1. _d 0/deepFacC(k) |
|
./model/src/set_grid_factors.F |
89 |
SET_GRID_FACTORS |
recip_deepFac2C(k)= 1. _d 0/deepFac2C(k) |
|
./model/src/set_grid_factors.F |
91 |
SET_GRID_FACTORS |
DO k=1,Nr+1 |
|
./model/src/set_grid_factors.F |
92 |
SET_GRID_FACTORS |
recip_deepFacF(k) = 1. _d 0/deepFacF(k) |
|
./model/src/set_grid_factors.F |
93 |
SET_GRID_FACTORS |
recip_deepFac2F(k)= 1. _d 0/deepFac2F(k) |
|
./model/src/set_parms.F |
202 |
SET_PARMS |
DO k=1,Nr |
|
./model/src/set_parms.F |
203 |
SET_PARMS |
tempVertDiff4 = tempVertDiff4 .OR. ( diffKr4T(k).GT.0. _d 0 ) |
|
./model/src/set_parms.F |
204 |
SET_PARMS |
saltVertDiff4 = saltVertDiff4 .OR. ( diffKr4S(k).GT.0. _d 0 ) |
|
./model/src/set_parms.F |
41 |
SET_PARMS |
INTEGER k |
|
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
44 |
COST_TRACER |
integer i, j, k |
|
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
51 |
COST_TRACER |
k=1 |
|
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
55 |
COST_TRACER |
locfc = locfc + maskC(i,j,k,bi,bj)* |
|
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
56 |
COST_TRACER |
& ptracer(i,j,k,bi,bj,6)* |
|
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
57 |
COST_TRACER |
& rA(i,j,bi,bj)*drF(k) |
|
./model/src/set_ref_state.F |
100 |
SET_REF_STATE |
& + rhoConst*(rF(k+1)-rF(1))*gravity*gravitySign |
|
./model/src/set_ref_state.F |
103 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
104 |
SET_REF_STATE |
phiRef(2*k) = phiRef(2*k-1) |
|
./model/src/set_ref_state.F |
105 |
SET_REF_STATE |
& + halfRL*drF(k)*gravity*gravFacC(k) |
|
./model/src/set_ref_state.F |
106 |
SET_REF_STATE |
phiRef(2*k+1) = phiRef(2*k-1) + drF(k)*gravity*gravFacC(k) |
|
./model/src/set_ref_state.F |
107 |
SET_REF_STATE |
pRef4EOS(k) = rhoConst*phiRef(2*k) |
|
./model/src/set_ref_state.F |
108 |
SET_REF_STATE |
pRefLocF(k+1) = rhoConst*phiRef(2*k+1) |
|
./model/src/set_ref_state.F |
112 |
SET_REF_STATE |
DO k=2,Nr |
|
./model/src/set_ref_state.F |
113 |
SET_REF_STATE |
phiRef(2*k-1) = phiRef(2*k-2) |
|
./model/src/set_ref_state.F |
114 |
SET_REF_STATE |
& + halfRL*drC(k)*gravity*gravFacF(k) |
|
./model/src/set_ref_state.F |
115 |
SET_REF_STATE |
phiRef(2*k) = phiRef(2*k-2) + drC(k)*gravity*gravFacF(k) |
|
./model/src/set_ref_state.F |
117 |
SET_REF_STATE |
k = Nr |
|
./model/src/set_ref_state.F |
118 |
SET_REF_STATE |
phiRef(2*k+1) = phiRef(2*k) + drC(k+1)*gravity*gravFacF(k+1) |
|
./model/src/set_ref_state.F |
119 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
120 |
SET_REF_STATE |
pRef4EOS(k) = rhoConst*phiRef(2*k) |
|
./model/src/set_ref_state.F |
121 |
SET_REF_STATE |
pRefLocF(k+1) = rhoConst*phiRef(2*k+1) |
|
./model/src/set_ref_state.F |
126 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
127 |
SET_REF_STATE |
phiRef(2*k) = phiRef(2*Nr+1) |
|
./model/src/set_ref_state.F |
128 |
SET_REF_STATE |
& - recip_rhoConst*( rC(k) - rF(Nr+1) ) |
|
./model/src/set_ref_state.F |
129 |
SET_REF_STATE |
phiRef(2*k-1) = phiRef(2*Nr+1) |
|
./model/src/set_ref_state.F |
130 |
SET_REF_STATE |
& - recip_rhoConst*( rF(k) - rF(Nr+1) ) |
|
./model/src/set_ref_state.F |
169 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
170 |
SET_REF_STATE |
pLoc = pRef4EOS(k) |
|
./model/src/set_ref_state.F |
172 |
SET_REF_STATE |
I tRef(k), sRef(k), pLoc, |
|
./model/src/set_ref_state.F |
173 |
SET_REF_STATE |
O rhoRef(k), myThid ) |
|
./model/src/set_ref_state.F |
190 |
SET_REF_STATE |
DO k=2,Nr |
|
./model/src/set_ref_state.F |
191 |
SET_REF_STATE |
pLoc = pRefLocF(k) |
|
./model/src/set_ref_state.F |
193 |
SET_REF_STATE |
I tRef(k-1), sRef(k-1), pLoc, |
|
./model/src/set_ref_state.F |
196 |
SET_REF_STATE |
I tRef(k), sRef(k), pLoc, |
|
./model/src/set_ref_state.F |
198 |
SET_REF_STATE |
dBdrRef(k) = (rhoDw - rhoUp)*recip_drC(k) |
|
./model/src/set_ref_state.F |
199 |
SET_REF_STATE |
& *recip_rhoConst*gravity*gravFacF(k) |
|
./model/src/set_ref_state.F |
202 |
SET_REF_STATE |
dBdrRef(k) = ( sBeta *(sRef(k)-sRef(k-1)) |
|
./model/src/set_ref_state.F |
203 |
SET_REF_STATE |
& -tAlpha*(tRef(k)-tRef(k-1)) |
|
./model/src/set_ref_state.F |
204 |
SET_REF_STATE |
& )*recip_drC(k) |
|
./model/src/set_ref_state.F |
205 |
SET_REF_STATE |
& *rhoNil*recip_rhoConst*gravity*gravFacF(k) |
|
./model/src/set_ref_state.F |
213 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
214 |
SET_REF_STATE |
pLoc = rC(k) |
|
./model/src/set_ref_state.F |
216 |
SET_REF_STATE |
I tRef(k), sRef(k), pLoc, |
|
./model/src/set_ref_state.F |
217 |
SET_REF_STATE |
O rhoRef(k), myThid ) |
|
./model/src/set_ref_state.F |
222 |
SET_REF_STATE |
DO k=1,Nr+1 |
|
./model/src/set_ref_state.F |
223 |
SET_REF_STATE |
pLoc = rF(k) |
|
./model/src/set_ref_state.F |
224 |
SET_REF_STATE |
IF ( k.GE.2 ) CALL FIND_RHO_SCALAR( |
|
./model/src/set_ref_state.F |
225 |
SET_REF_STATE |
I tRef(k-1), sRef(k-1), pLoc, |
|
./model/src/set_ref_state.F |
227 |
SET_REF_STATE |
IF ( k.LE.Nr ) CALL FIND_RHO_SCALAR( |
|
./model/src/set_ref_state.F |
228 |
SET_REF_STATE |
I tRef(k), sRef(k), pLoc, |
|
./model/src/set_ref_state.F |
230 |
SET_REF_STATE |
IF ( k.GE.2 .AND. k.LE.Nr ) THEN |
|
./model/src/set_ref_state.F |
231 |
SET_REF_STATE |
dBdrRef(k) = (rhoDw - rhoUp)*recip_drC(k) |
|
./model/src/set_ref_state.F |
234 |
SET_REF_STATE |
ELSEIF ( k.EQ.1 ) THEN |
|
./model/src/set_ref_state.F |
243 |
SET_REF_STATE |
wUnit2rVel(k) = gravity*rhoLoc |
|
./model/src/set_ref_state.F |
244 |
SET_REF_STATE |
rVel2wUnit(k) = 1. _d 0 / wUnit2rVel(k) |
|
./model/src/set_ref_state.F |
252 |
SET_REF_STATE |
DO k=2,Nr |
|
./model/src/set_ref_state.F |
253 |
SET_REF_STATE |
conv_theta2T = (rF(k)/atm_Po)**atm_kappa |
|
./model/src/set_ref_state.F |
256 |
SET_REF_STATE |
ddPI=atm_Cp*( ((rC(k-1)/atm_Po)**atm_kappa) |
|
./model/src/set_ref_state.F |
257 |
SET_REF_STATE |
& -((rC( k )/atm_Po)**atm_kappa) ) |
|
./model/src/set_ref_state.F |
258 |
SET_REF_STATE |
dBdrRef(k) = (tRef(k) - tRef(k-1))*recip_drC(k) |
|
./model/src/set_ref_state.F |
259 |
SET_REF_STATE |
& * ddPI*recip_drC(k) |
|
./model/src/set_ref_state.F |
267 |
SET_REF_STATE |
DO k=1,Nr+1 |
|
./model/src/set_ref_state.F |
268 |
SET_REF_STATE |
IF ( k.EQ.1 ) THEN |
|
./model/src/set_ref_state.F |
269 |
SET_REF_STATE |
thetaLoc = tRef(k) |
|
./model/src/set_ref_state.F |
270 |
SET_REF_STATE |
ELSEIF ( k.GT.Nr ) THEN |
|
./model/src/set_ref_state.F |
271 |
SET_REF_STATE |
thetaLoc = tRef(k-1) |
|
./model/src/set_ref_state.F |
273 |
SET_REF_STATE |
thetaLoc = (tRef(k) + tRef(k-1))*0.5 _d 0 |
|
./model/src/set_ref_state.F |
275 |
SET_REF_STATE |
IF ( thetaLoc.GT.0. _d 0 .AND. rF(k).GT.0. _d 0 ) THEN |
|
./model/src/set_ref_state.F |
276 |
SET_REF_STATE |
conv_theta2T = (rF(k)/atm_Po)**atm_kappa |
|
./model/src/set_ref_state.F |
277 |
SET_REF_STATE |
wUnit2rVel(k) = gravity |
|
./model/src/set_ref_state.F |
278 |
SET_REF_STATE |
& * rF(k)/(atm_Rd*conv_theta2T*thetaLoc) |
|
./model/src/set_ref_state.F |
279 |
SET_REF_STATE |
rVel2wUnit(k) = 1. _d 0 / wUnit2rVel(k) |
|
./model/src/set_ref_state.F |
289 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
290 |
SET_REF_STATE |
tLoc(k) = thetaConst |
|
./model/src/set_ref_state.F |
294 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
295 |
SET_REF_STATE |
tLoc(k) = tRef(k) |
|
./model/src/set_ref_state.F |
301 |
SET_REF_STATE |
DO k=1,2*Nr |
|
./model/src/set_ref_state.F |
302 |
SET_REF_STATE |
ks = (k+1)/2 |
|
./model/src/set_ref_state.F |
303 |
SET_REF_STATE |
ddPI=atm_Cp*( ((rHalf( k )/atm_Po)**atm_kappa) |
|
./model/src/set_ref_state.F |
304 |
SET_REF_STATE |
& -((rHalf(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/set_ref_state.F |
305 |
SET_REF_STATE |
phiRef(k+1) = phiRef(k)+ddPI*tLoc(ks) |
|
./model/src/set_ref_state.F |
311 |
SET_REF_STATE |
k = 1 |
|
./model/src/set_ref_state.F |
312 |
SET_REF_STATE |
ddPI=atm_Cp*( ((rF(k)/atm_Po)**atm_kappa) |
|
./model/src/set_ref_state.F |
313 |
SET_REF_STATE |
& -((rC(k)/atm_Po)**atm_kappa) ) |
|
./model/src/set_ref_state.F |
314 |
SET_REF_STATE |
phiRef(2*k) = phiRef(1) + ddPI*tLoc(k) |
|
./model/src/set_ref_state.F |
315 |
SET_REF_STATE |
DO k=1,Nr-1 |
|
./model/src/set_ref_state.F |
316 |
SET_REF_STATE |
ddPI=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/set_ref_state.F |
317 |
SET_REF_STATE |
& -((rC(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/set_ref_state.F |
318 |
SET_REF_STATE |
phiRef(2*k+1) = phiRef(2*k) + ddPI*0.5*tLoc(k) |
|
./model/src/set_ref_state.F |
319 |
SET_REF_STATE |
phiRef(2*k+2) = phiRef(2*k) |
|
./model/src/set_ref_state.F |
320 |
SET_REF_STATE |
& + ddPI*0.5*(tLoc(k)+tLoc(k+1)) |
|
./model/src/set_ref_state.F |
322 |
SET_REF_STATE |
k = Nr |
|
./model/src/set_ref_state.F |
323 |
SET_REF_STATE |
ddPI=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/set_ref_state.F |
324 |
SET_REF_STATE |
& -((rF(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/set_ref_state.F |
325 |
SET_REF_STATE |
phiRef(2*k+1) = phiRef(2*k) + ddPI*tLoc(k) |
|
./model/src/set_ref_state.F |
342 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
343 |
SET_REF_STATE |
rhoFacC(k) = rho1Ref(k)/rhoConst |
|
./model/src/set_ref_state.F |
346 |
SET_REF_STATE |
DO k=2,Nr |
|
./model/src/set_ref_state.F |
348 |
SET_REF_STATE |
rhoFacF(k) = ( rhoFacC(k-1)*(rF(k)-rC(k)) |
|
./model/src/set_ref_state.F |
349 |
SET_REF_STATE |
& + rhoFacC(k)*(rC(k-1)-rF(k)) )*recip_drC(k) |
|
./model/src/set_ref_state.F |
356 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
357 |
SET_REF_STATE |
recip_rhoFacC(k) = 1. _d 0/rhoFacC(k) |
|
./model/src/set_ref_state.F |
359 |
SET_REF_STATE |
DO k=1,Nr+1 |
|
./model/src/set_ref_state.F |
360 |
SET_REF_STATE |
recip_rhoFacF(k) = 1. _d 0/rhoFacF(k) |
|
./model/src/set_ref_state.F |
386 |
SET_REF_STATE |
DO k=1,2*Nr+1 |
|
./model/src/set_ref_state.F |
388 |
SET_REF_STATE |
& ' K=',k*0.5,' ; r=',rHalf(k),' ; phiRef/g=', |
|
./model/src/set_ref_state.F |
389 |
SET_REF_STATE |
& phiRef(k)*recip_gravity |
|
./model/src/set_ref_state.F |
41 |
SET_REF_STATE |
INTEGER k, ks, stdUnit |
|
./model/src/set_ref_state.F |
54 |
SET_REF_STATE |
DO k=1,2*Nr |
|
./model/src/set_ref_state.F |
55 |
SET_REF_STATE |
phiRef(k) = 0. |
|
./model/src/set_ref_state.F |
59 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
60 |
SET_REF_STATE |
rhoRef(k) = 0. |
|
./model/src/set_ref_state.F |
61 |
SET_REF_STATE |
dBdrRef(k) = 0. |
|
./model/src/set_ref_state.F |
62 |
SET_REF_STATE |
pRef4EOS(k) = 0. |
|
./model/src/set_ref_state.F |
63 |
SET_REF_STATE |
rHalf(2*k-1) = rF(k) |
|
./model/src/set_ref_state.F |
64 |
SET_REF_STATE |
rHalf(2*k) = rC(k) |
|
./model/src/set_ref_state.F |
68 |
SET_REF_STATE |
DO k=1,Nr+1 |
|
./model/src/set_ref_state.F |
69 |
SET_REF_STATE |
rVel2wUnit(k) = 1. _d 0 |
|
./model/src/set_ref_state.F |
70 |
SET_REF_STATE |
wUnit2rVel(k) = 1. _d 0 |
|
./model/src/set_ref_state.F |
74 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
75 |
SET_REF_STATE |
rhoFacC(k) = 1. _d 0 |
|
./model/src/set_ref_state.F |
76 |
SET_REF_STATE |
recip_rhoFacC(k) = 1. _d 0 |
|
./model/src/set_ref_state.F |
78 |
SET_REF_STATE |
DO k=1,Nr+1 |
|
./model/src/set_ref_state.F |
79 |
SET_REF_STATE |
rhoFacF(k) = 1. _d 0 |
|
./model/src/set_ref_state.F |
80 |
SET_REF_STATE |
recip_rhoFacF(k) = 1. _d 0 |
|
./model/src/set_ref_state.F |
89 |
SET_REF_STATE |
DO k=1,Nr |
|
./model/src/set_ref_state.F |
90 |
SET_REF_STATE |
phiRef(2*k) = phiRef(1) |
|
./model/src/set_ref_state.F |
91 |
SET_REF_STATE |
& + (rC(k) - rF(1))*gravity*gravitySign |
|
./model/src/set_ref_state.F |
92 |
SET_REF_STATE |
phiRef(2*k+1) = phiRef(1) |
|
./model/src/set_ref_state.F |
93 |
SET_REF_STATE |
& + (rF(k+1)-rF(1))*gravity*gravitySign |
|
./model/src/set_ref_state.F |
97 |
SET_REF_STATE |
pRef4EOS(k) = pRefLocF(1) |
|
./model/src/set_ref_state.F |
98 |
SET_REF_STATE |
& + rhoConst*(rC(k) - rF(1))*gravity*gravitySign |
|
./model/src/set_ref_state.F |
99 |
SET_REF_STATE |
pRefLocF(k+1) = pRefLocF(1) |
|
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F |
44 |
COST_TRACER |
integer i, j, k |
|
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F |
51 |
COST_TRACER |
k=1 |
|
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F |
55 |
COST_TRACER |
locfc = locfc + maskC(i,j,k,bi,bj)* |
|
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F |
56 |
COST_TRACER |
& ptracer(i,j,k,bi,bj,6)* |
|
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F |
57 |
COST_TRACER |
& rA(i,j,bi,bj)*drF(k) |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
142 |
CTRL_MAP_INI_GENARR |
do k = 1,Nr |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
150 |
CTRL_MAP_INI_GENARR |
pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr) |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
151 |
CTRL_MAP_INI_GENARR |
& + fac*tmpfld3d(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
52 |
CTRL_MAP_INI_GENARR |
integer i,j,k |
|
./model/src/solve_for_pressure.F |
177 |
SOLVE_FOR_PRESSURE |
DO k=Nr,1,-1 |
|
./model/src/solve_for_pressure.F |
179 |
SOLVE_FOR_PRESSURE |
I bi,bj,k, |
|
./model/src/solve_for_pressure.F |
58 |
SOLVE_FOR_PRESSURE |
INTEGER i,j,k,bi,bj |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
102 |
PTRACERS_APPLY_FORCING |
& +meanSurfCorPTr(iTracer)*recip_drF(k) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
103 |
PTRACERS_APPLY_FORCING |
& *_recip_hFacC(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
113 |
PTRACERS_APPLY_FORCING |
I k, bi, bj, iTracer+2, |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
13 |
PTRACERS_APPLY_FORCING |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
43 |
PTRACERS_APPLY_FORCING |
INTEGER k, bi,bj, iTracer |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
74 |
PTRACERS_APPLY_FORCING |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
79 |
PTRACERS_APPLY_FORCING |
IF ( k .EQ. kSurface ) THEN |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
84 |
PTRACERS_APPLY_FORCING |
& *recip_drF(k)*recip_hFacC(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
92 |
PTRACERS_APPLY_FORCING |
& + 1. _d 0 * maskC(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
98 |
PTRACERS_APPLY_FORCING |
IF (k .EQ. kSurface) THEN |
|
./model/src/solve_pentadiagonal.F |
101 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
107 |
SOLVE_PENTADIAGONAL |
ELSEIF (k.EQ.2) THEN |
|
./model/src/solve_pentadiagonal.F |
111 |
SOLVE_PENTADIAGONAL |
b5d(i,j,k) = b5d(i,j,k)*c5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
112 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = c5d(i,j,k) - b5d(i,j,k)*d5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
113 |
SOLVE_PENTADIAGONAL |
d5d(i,j,k) = d5d(i,j,k) - b5d(i,j,k)*e5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
114 |
SOLVE_PENTADIAGONAL |
IF ( c5d(i,j,k).NE.0. _d 0 ) THEN |
|
./model/src/solve_pentadiagonal.F |
115 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = 1. _d 0 / c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
117 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
128 |
SOLVE_PENTADIAGONAL |
a5d(i,j,k) = a5d(i,j,k)*c5d(i,j,k-2) |
|
./model/src/solve_pentadiagonal.F |
129 |
SOLVE_PENTADIAGONAL |
b5d(i,j,k) = b5d(i,j,k) - a5d(i,j,k)*d5d(i,j,k-2) |
|
./model/src/solve_pentadiagonal.F |
130 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = c5d(i,j,k) - a5d(i,j,k)*e5d(i,j,k-2) |
|
./model/src/solve_pentadiagonal.F |
132 |
SOLVE_PENTADIAGONAL |
b5d(i,j,k) = b5d(i,j,k)*c5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
133 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = c5d(i,j,k) - b5d(i,j,k)*d5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
134 |
SOLVE_PENTADIAGONAL |
d5d(i,j,k) = d5d(i,j,k) - b5d(i,j,k)*e5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
135 |
SOLVE_PENTADIAGONAL |
IF ( c5d(i,j,k).NE.0. _d 0 ) THEN |
|
./model/src/solve_pentadiagonal.F |
136 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = 1. _d 0 / c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
138 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
150 |
SOLVE_PENTADIAGONAL |
DO k=2,Nr |
|
./model/src/solve_pentadiagonal.F |
152 |
SOLVE_PENTADIAGONAL |
IF (k.EQ.2) THEN |
|
./model/src/solve_pentadiagonal.F |
155 |
SOLVE_PENTADIAGONAL |
y5d(i,j,k) = y5d(i,j,k) - b5d(i,j,k)*y5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
161 |
SOLVE_PENTADIAGONAL |
y5d(i,j,k) = y5d(i,j,k) - b5d(i,j,k)*y5d(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
162 |
SOLVE_PENTADIAGONAL |
& - a5d(i,j,k)*y5d(i,j,k-2) |
|
./model/src/solve_pentadiagonal.F |
170 |
SOLVE_PENTADIAGONAL |
DO k=Nr,1,-1 |
|
./model/src/solve_pentadiagonal.F |
171 |
SOLVE_PENTADIAGONAL |
IF (k.EQ.Nr) THEN |
|
./model/src/solve_pentadiagonal.F |
174 |
SOLVE_PENTADIAGONAL |
y5d(i,j,k) = y5d(i,j,k)*c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
177 |
SOLVE_PENTADIAGONAL |
ELSEIF (k.EQ.Nr-1) THEN |
|
./model/src/solve_pentadiagonal.F |
180 |
SOLVE_PENTADIAGONAL |
y5d(i,j,k) = ( y5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
181 |
SOLVE_PENTADIAGONAL |
& - d5d(i,j,k)*y5d(i,j,k+1) |
|
./model/src/solve_pentadiagonal.F |
182 |
SOLVE_PENTADIAGONAL |
& )*c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
188 |
SOLVE_PENTADIAGONAL |
y5d(i,j,k) = ( y5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
189 |
SOLVE_PENTADIAGONAL |
& - d5d(i,j,k)*y5d(i,j,k+1) |
|
./model/src/solve_pentadiagonal.F |
190 |
SOLVE_PENTADIAGONAL |
& - e5d(i,j,k)*y5d(i,j,k+2) |
|
./model/src/solve_pentadiagonal.F |
191 |
SOLVE_PENTADIAGONAL |
& )*c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
204 |
SOLVE_PENTADIAGONAL |
DO k=1,Nr |
|
./model/src/solve_pentadiagonal.F |
207 |
SOLVE_PENTADIAGONAL |
y5d_m1(i,j,k) = y5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
216 |
SOLVE_PENTADIAGONAL |
DO k=1,Nr |
|
./model/src/solve_pentadiagonal.F |
217 |
SOLVE_PENTADIAGONAL |
c5d_prime(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
218 |
SOLVE_PENTADIAGONAL |
d5d_prime(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
219 |
SOLVE_PENTADIAGONAL |
e5d_prime(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
220 |
SOLVE_PENTADIAGONAL |
y5d_prime(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
221 |
SOLVE_PENTADIAGONAL |
y5d_update(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
224 |
SOLVE_PENTADIAGONAL |
DO k=1,Nr |
|
./model/src/solve_pentadiagonal.F |
227 |
SOLVE_PENTADIAGONAL |
IF (k.EQ.1) THEN |
|
./model/src/solve_pentadiagonal.F |
229 |
SOLVE_PENTADIAGONAL |
c5d_prime(k) = c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
230 |
SOLVE_PENTADIAGONAL |
d5d_prime(k) = d5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
231 |
SOLVE_PENTADIAGONAL |
e5d_prime(k) = e5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
232 |
SOLVE_PENTADIAGONAL |
y5d_prime(k) = y5d_m1(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
233 |
SOLVE_PENTADIAGONAL |
ELSEIF (k.EQ.2) THEN |
|
./model/src/solve_pentadiagonal.F |
235 |
SOLVE_PENTADIAGONAL |
c5d_prime(k) = c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
236 |
SOLVE_PENTADIAGONAL |
& -b5d(i,j,k)*d5d_prime(k-1) |
|
./model/src/solve_pentadiagonal.F |
237 |
SOLVE_PENTADIAGONAL |
d5d_prime(k) = d5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
238 |
SOLVE_PENTADIAGONAL |
& -b5d(i,j,k)*e5d_prime(k-1) |
|
./model/src/solve_pentadiagonal.F |
239 |
SOLVE_PENTADIAGONAL |
e5d_prime(k) = e5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
240 |
SOLVE_PENTADIAGONAL |
y5d_prime(k) = y5d_m1(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
241 |
SOLVE_PENTADIAGONAL |
& -b5d(i,j,k)*y5d_prime(k-1) |
|
./model/src/solve_pentadiagonal.F |
244 |
SOLVE_PENTADIAGONAL |
c5d_prime(k) = c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
245 |
SOLVE_PENTADIAGONAL |
& -a5d(i,j,k)*e5d_prime(k-2) |
|
./model/src/solve_pentadiagonal.F |
246 |
SOLVE_PENTADIAGONAL |
& -(b5d(i,j,k)-a5d(i,j,k)*d5d_prime(k-2))*d5d_prime(k-1) |
|
./model/src/solve_pentadiagonal.F |
247 |
SOLVE_PENTADIAGONAL |
d5d_prime(k) = d5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
248 |
SOLVE_PENTADIAGONAL |
& -(b5d(i,j,k)-a5d(i,j,k)*d5d_prime(k-2))*e5d_prime(k-1) |
|
./model/src/solve_pentadiagonal.F |
249 |
SOLVE_PENTADIAGONAL |
e5d_prime(k) = e5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
250 |
SOLVE_PENTADIAGONAL |
y5d_prime(k) = y5d_m1(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
251 |
SOLVE_PENTADIAGONAL |
& -a5d(i,j,k)*y5d_prime(k-2) |
|
./model/src/solve_pentadiagonal.F |
252 |
SOLVE_PENTADIAGONAL |
& -(b5d(i,j,k)-a5d(i,j,k)*d5d_prime(k-2))*y5d_prime(k-1) |
|
./model/src/solve_pentadiagonal.F |
256 |
SOLVE_PENTADIAGONAL |
tmpVar = c5d_prime(k) |
|
./model/src/solve_pentadiagonal.F |
259 |
SOLVE_PENTADIAGONAL |
d5d_prime(k) = d5d_prime(k)*recVar |
|
./model/src/solve_pentadiagonal.F |
260 |
SOLVE_PENTADIAGONAL |
e5d_prime(k) = e5d_prime(k)*recVar |
|
./model/src/solve_pentadiagonal.F |
261 |
SOLVE_PENTADIAGONAL |
y5d_prime(k) = y5d_prime(k)*recVar |
|
./model/src/solve_pentadiagonal.F |
263 |
SOLVE_PENTADIAGONAL |
d5d_prime(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
264 |
SOLVE_PENTADIAGONAL |
e5d_prime(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
265 |
SOLVE_PENTADIAGONAL |
y5d_prime(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
273 |
SOLVE_PENTADIAGONAL |
DO k=Nr,1,-1 |
|
./model/src/solve_pentadiagonal.F |
274 |
SOLVE_PENTADIAGONAL |
IF (k.EQ.Nr) THEN |
|
./model/src/solve_pentadiagonal.F |
275 |
SOLVE_PENTADIAGONAL |
y5d_update(k) = y5d_prime(k) |
|
./model/src/solve_pentadiagonal.F |
276 |
SOLVE_PENTADIAGONAL |
ELSEIF (k.EQ.Nr-1) THEN |
|
./model/src/solve_pentadiagonal.F |
277 |
SOLVE_PENTADIAGONAL |
y5d_update(k) = y5d_prime(k) |
|
./model/src/solve_pentadiagonal.F |
278 |
SOLVE_PENTADIAGONAL |
& - y5d_update(k+1)*d5d_prime(k) |
|
./model/src/solve_pentadiagonal.F |
280 |
SOLVE_PENTADIAGONAL |
y5d_update(k) = y5d_prime(k) |
|
./model/src/solve_pentadiagonal.F |
281 |
SOLVE_PENTADIAGONAL |
& - y5d_update(k+1)*d5d_prime(k) |
|
./model/src/solve_pentadiagonal.F |
282 |
SOLVE_PENTADIAGONAL |
& - y5d_update(k+2)*e5d_prime(k) |
|
./model/src/solve_pentadiagonal.F |
287 |
SOLVE_PENTADIAGONAL |
DO k=1,Nr |
|
./model/src/solve_pentadiagonal.F |
288 |
SOLVE_PENTADIAGONAL |
y5d(i,j,k) = y5d_update(k) |
|
./model/src/solve_pentadiagonal.F |
298 |
SOLVE_PENTADIAGONAL |
DO k=1,Nr |
|
./model/src/solve_pentadiagonal.F |
301 |
SOLVE_PENTADIAGONAL |
c5d_prime(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
302 |
SOLVE_PENTADIAGONAL |
d5d_prime(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
303 |
SOLVE_PENTADIAGONAL |
e5d_prime(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
304 |
SOLVE_PENTADIAGONAL |
y5d_prime(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
305 |
SOLVE_PENTADIAGONAL |
y5d_m1(i,j,k) = y5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
311 |
SOLVE_PENTADIAGONAL |
DO k=1,Nr |
|
./model/src/solve_pentadiagonal.F |
319 |
SOLVE_PENTADIAGONAL |
IF (k.EQ.1) THEN |
|
./model/src/solve_pentadiagonal.F |
321 |
SOLVE_PENTADIAGONAL |
c5d_prime(i,j,k) = c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
322 |
SOLVE_PENTADIAGONAL |
d5d_prime(i,j,k) = d5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
323 |
SOLVE_PENTADIAGONAL |
e5d_prime(i,j,k) = e5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
324 |
SOLVE_PENTADIAGONAL |
y5d_prime(i,j,k) = y5d_m1(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
325 |
SOLVE_PENTADIAGONAL |
ELSEIF (k.EQ.2) THEN |
|
./model/src/solve_pentadiagonal.F |
327 |
SOLVE_PENTADIAGONAL |
c5d_prime(i,j,k) = c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
328 |
SOLVE_PENTADIAGONAL |
& -b5d(i,j,k)*d5d_prime(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
329 |
SOLVE_PENTADIAGONAL |
d5d_prime(i,j,k) = d5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
330 |
SOLVE_PENTADIAGONAL |
& -b5d(i,j,k)*e5d_prime(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
331 |
SOLVE_PENTADIAGONAL |
e5d_prime(i,j,k) = e5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
332 |
SOLVE_PENTADIAGONAL |
y5d_prime(i,j,k) = y5d_m1(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
333 |
SOLVE_PENTADIAGONAL |
& -b5d(i,j,k)*y5d_prime(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
336 |
SOLVE_PENTADIAGONAL |
c5d_prime(i,j,k) = c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
337 |
SOLVE_PENTADIAGONAL |
& -a5d(i,j,k)*e5d_prime(i,j,k-2) |
|
./model/src/solve_pentadiagonal.F |
338 |
SOLVE_PENTADIAGONAL |
& -(b5d(i,j,k)-a5d(i,j,k)*d5d_prime(i,j,k-2)) |
|
./model/src/solve_pentadiagonal.F |
339 |
SOLVE_PENTADIAGONAL |
& *d5d_prime(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
340 |
SOLVE_PENTADIAGONAL |
d5d_prime(i,j,k) = d5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
341 |
SOLVE_PENTADIAGONAL |
& -(b5d(i,j,k)-a5d(i,j,k)*d5d_prime(i,j,k-2)) |
|
./model/src/solve_pentadiagonal.F |
342 |
SOLVE_PENTADIAGONAL |
& *e5d_prime(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
343 |
SOLVE_PENTADIAGONAL |
e5d_prime(i,j,k) = e5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
344 |
SOLVE_PENTADIAGONAL |
y5d_prime(i,j,k) = y5d_m1(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
345 |
SOLVE_PENTADIAGONAL |
& -a5d(i,j,k)*y5d_prime(i,j,k-2) |
|
./model/src/solve_pentadiagonal.F |
346 |
SOLVE_PENTADIAGONAL |
& -(b5d(i,j,k)-a5d(i,j,k)*d5d_prime(i,j,k-2)) |
|
./model/src/solve_pentadiagonal.F |
347 |
SOLVE_PENTADIAGONAL |
& *y5d_prime(i,j,k-1) |
|
./model/src/solve_pentadiagonal.F |
351 |
SOLVE_PENTADIAGONAL |
tmpVar = c5d_prime(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
354 |
SOLVE_PENTADIAGONAL |
d5d_prime(i,j,k) = d5d_prime(i,j,k)*recVar |
|
./model/src/solve_pentadiagonal.F |
355 |
SOLVE_PENTADIAGONAL |
e5d_prime(i,j,k) = e5d_prime(i,j,k)*recVar |
|
./model/src/solve_pentadiagonal.F |
356 |
SOLVE_PENTADIAGONAL |
y5d_prime(i,j,k) = y5d_prime(i,j,k)*recVar |
|
./model/src/solve_pentadiagonal.F |
358 |
SOLVE_PENTADIAGONAL |
d5d_prime(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
359 |
SOLVE_PENTADIAGONAL |
e5d_prime(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
360 |
SOLVE_PENTADIAGONAL |
y5d_prime(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
372 |
SOLVE_PENTADIAGONAL |
DO k=Nr,1,-1 |
|
./model/src/solve_pentadiagonal.F |
377 |
SOLVE_PENTADIAGONAL |
IF (k.EQ.Nr) THEN |
|
./model/src/solve_pentadiagonal.F |
378 |
SOLVE_PENTADIAGONAL |
y5d(i,j,k) = y5d_prime(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
379 |
SOLVE_PENTADIAGONAL |
ELSEIF (k.EQ.Nr-1) THEN |
|
./model/src/solve_pentadiagonal.F |
380 |
SOLVE_PENTADIAGONAL |
y5d(i,j,k) = y5d_prime(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
381 |
SOLVE_PENTADIAGONAL |
& - y5d(i,j,k+1)*d5d_prime(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
383 |
SOLVE_PENTADIAGONAL |
y5d(i,j,k) = y5d_prime(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
384 |
SOLVE_PENTADIAGONAL |
& - y5d(i,j,k+1)*d5d_prime(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
385 |
SOLVE_PENTADIAGONAL |
& - y5d(i,j,k+2)*e5d_prime(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
69 |
SOLVE_PENTADIAGONAL |
INTEGER i,j,k |
|
./model/src/solve_pentadiagonal.F |
93 |
SOLVE_PENTADIAGONAL |
DO k=1,Nr |
|
./model/src/solve_pentadiagonal.F |
95 |
SOLVE_PENTADIAGONAL |
IF (k.EQ.1) THEN |
|
./model/src/solve_pentadiagonal.F |
98 |
SOLVE_PENTADIAGONAL |
IF ( c5d(i,j,k).NE.0. _d 0 ) THEN |
|
./model/src/solve_pentadiagonal.F |
99 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = 1. _d 0 / c5d(i,j,k) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
32 |
COST_TEMP |
INTEGER i, j, k |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
47 |
COST_TEMP |
DO k=1, Nk |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
50 |
COST_TEMP |
tmp = tmp + maskC(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
63 |
COST_TEMP |
DO k=1,Nk |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
66 |
COST_TEMP |
locfc = locfc + tmp*maskC(i,j,k,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
67 |
COST_TEMP |
& wtheta(k,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
68 |
COST_TEMP |
& ( cMeanTheta(i,j,k,bi,bj) - thetalev(i,j,k,bi,bj) )**2 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
108 |
COST_WEIGHTS |
DO k = 1, Nr |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
109 |
COST_WEIGHTS |
wtheta(k,bi,bj) = 1. _d 0/wti(k)/wti(k) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
39 |
COST_WEIGHTS |
INTEGER i,j,k |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
61 |
COST_WEIGHTS |
DO k = 1,Nr |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
62 |
COST_WEIGHTS |
wti(k) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
71 |
COST_WEIGHTS |
DO k = 1,Nr |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
72 |
COST_WEIGHTS |
wunit(k,bi,bj) = 1. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
73 |
COST_WEIGHTS |
wtheta(k,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
74 |
COST_WEIGHTS |
wsalt(k,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
96 |
COST_WEIGHTS |
DO k=1,Nr |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
97 |
COST_WEIGHTS |
wti(k) = tmpwti(k) |
|
./model/src/solve_tridiagonal.F |
100 |
SOLVE_TRIDIAGONAL |
DO k=2,Nr |
|
./model/src/solve_tridiagonal.F |
103 |
SOLVE_TRIDIAGONAL |
tmpVar = b3d(i,j,k) - a3d(i,j,k)*c3d(i,j,k-1)*b3d(i,j,k-1) |
|
./model/src/solve_tridiagonal.F |
105 |
SOLVE_TRIDIAGONAL |
b3d(i,j,k) = 1. _d 0 / tmpVar |
|
./model/src/solve_tridiagonal.F |
107 |
SOLVE_TRIDIAGONAL |
b3d(i,j,k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
123 |
SOLVE_TRIDIAGONAL |
DO k=2,Nr |
|
./model/src/solve_tridiagonal.F |
126 |
SOLVE_TRIDIAGONAL |
y3d(i,j,k) = ( y3d(i,j,k) |
|
./model/src/solve_tridiagonal.F |
127 |
SOLVE_TRIDIAGONAL |
& - a3d(i,j,k)*y3d(i,j,k-1) |
|
./model/src/solve_tridiagonal.F |
128 |
SOLVE_TRIDIAGONAL |
& )*b3d(i,j,k) |
|
./model/src/solve_tridiagonal.F |
134 |
SOLVE_TRIDIAGONAL |
DO k=Nr-1,1,-1 |
|
./model/src/solve_tridiagonal.F |
137 |
SOLVE_TRIDIAGONAL |
y3d(i,j,k) = y3d(i,j,k) |
|
./model/src/solve_tridiagonal.F |
138 |
SOLVE_TRIDIAGONAL |
& - c3d(i,j,k)*b3d(i,j,k)*y3d(i,j,k+1) |
|
./model/src/solve_tridiagonal.F |
149 |
SOLVE_TRIDIAGONAL |
DO k=1,Nr |
|
./model/src/solve_tridiagonal.F |
152 |
SOLVE_TRIDIAGONAL |
c3d_m1(i,j,k) = c3d(i,j,k) |
|
./model/src/solve_tridiagonal.F |
153 |
SOLVE_TRIDIAGONAL |
y3d_m1(i,j,k) = y3d(i,j,k) |
|
./model/src/solve_tridiagonal.F |
162 |
SOLVE_TRIDIAGONAL |
DO k=1,Nr |
|
./model/src/solve_tridiagonal.F |
163 |
SOLVE_TRIDIAGONAL |
c3d_prime(k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
164 |
SOLVE_TRIDIAGONAL |
y3d_prime(k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
165 |
SOLVE_TRIDIAGONAL |
y3d_update(k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
169 |
SOLVE_TRIDIAGONAL |
DO k=1,Nr |
|
./model/src/solve_tridiagonal.F |
170 |
SOLVE_TRIDIAGONAL |
IF ( k.EQ.1 ) THEN |
|
./model/src/solve_tridiagonal.F |
180 |
SOLVE_TRIDIAGONAL |
tmpVar = b3d(i,j,k) - a3d(i,j,k)*c3d_prime(k-1) |
|
./model/src/solve_tridiagonal.F |
183 |
SOLVE_TRIDIAGONAL |
c3d_prime(k) = c3d_m1(i,j,k)*recVar |
|
./model/src/solve_tridiagonal.F |
184 |
SOLVE_TRIDIAGONAL |
y3d_prime(k) = (y3d_m1(i,j,k) - y3d_prime(k-1)*a3d(i,j,k)) |
|
./model/src/solve_tridiagonal.F |
187 |
SOLVE_TRIDIAGONAL |
c3d_prime(k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
188 |
SOLVE_TRIDIAGONAL |
y3d_prime(k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
195 |
SOLVE_TRIDIAGONAL |
DO k=Nr,1,-1 |
|
./model/src/solve_tridiagonal.F |
196 |
SOLVE_TRIDIAGONAL |
IF ( k.EQ.Nr ) THEN |
|
./model/src/solve_tridiagonal.F |
197 |
SOLVE_TRIDIAGONAL |
y3d_update(k)=y3d_prime(k) |
|
./model/src/solve_tridiagonal.F |
199 |
SOLVE_TRIDIAGONAL |
y3d_update(k)=y3d_prime(k)-c3d_prime(k)*y3d_update(k+1) |
|
./model/src/solve_tridiagonal.F |
204 |
SOLVE_TRIDIAGONAL |
DO k=1,Nr |
|
./model/src/solve_tridiagonal.F |
205 |
SOLVE_TRIDIAGONAL |
y3d(i,j,k) = y3d_update(k) |
|
./model/src/solve_tridiagonal.F |
214 |
SOLVE_TRIDIAGONAL |
DO k=1,Nr |
|
./model/src/solve_tridiagonal.F |
217 |
SOLVE_TRIDIAGONAL |
c3d_prime(i,j,k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
218 |
SOLVE_TRIDIAGONAL |
y3d_prime(i,j,k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
219 |
SOLVE_TRIDIAGONAL |
y3d_m1(i,j,k) = y3d(i,j,k) |
|
./model/src/solve_tridiagonal.F |
226 |
SOLVE_TRIDIAGONAL |
DO k=1,Nr |
|
./model/src/solve_tridiagonal.F |
232 |
SOLVE_TRIDIAGONAL |
IF ( k.EQ.1 ) THEN |
|
./model/src/solve_tridiagonal.F |
243 |
SOLVE_TRIDIAGONAL |
tmpVar = b3d(i,j,k) - a3d(i,j,k)*c3d_prime(i,j,k-1) |
|
./model/src/solve_tridiagonal.F |
246 |
SOLVE_TRIDIAGONAL |
c3d_prime(i,j,k) = c3d(i,j,k)*recVar |
|
./model/src/solve_tridiagonal.F |
247 |
SOLVE_TRIDIAGONAL |
y3d_prime(i,j,k) = ( y3d_m1(i,j,k) |
|
./model/src/solve_tridiagonal.F |
248 |
SOLVE_TRIDIAGONAL |
& - a3d(i,j,k)*y3d_prime(i,j,k-1) |
|
./model/src/solve_tridiagonal.F |
251 |
SOLVE_TRIDIAGONAL |
c3d_prime(i,j,k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
252 |
SOLVE_TRIDIAGONAL |
y3d_prime(i,j,k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
264 |
SOLVE_TRIDIAGONAL |
DO k=Nr,1,-1 |
|
./model/src/solve_tridiagonal.F |
269 |
SOLVE_TRIDIAGONAL |
IF ( k.EQ.Nr ) THEN |
|
./model/src/solve_tridiagonal.F |
270 |
SOLVE_TRIDIAGONAL |
y3d(i,j,k) = y3d_prime(i,j,k) |
|
./model/src/solve_tridiagonal.F |
272 |
SOLVE_TRIDIAGONAL |
y3d(i,j,k) = y3d_prime(i,j,k) |
|
./model/src/solve_tridiagonal.F |
273 |
SOLVE_TRIDIAGONAL |
& - c3d_prime(i,j,k)*y3d(i,j,k+1) |
|
./model/src/solve_tridiagonal.F |
65 |
SOLVE_TRIDIAGONAL |
INTEGER i,j,k |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
32 |
COST_TEMP |
INTEGER i, j, k |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
47 |
COST_TEMP |
DO k=1, Nk |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
50 |
COST_TEMP |
tmp = tmp + maskC(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
63 |
COST_TEMP |
DO k=1,Nk |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
66 |
COST_TEMP |
locfc = locfc + tmp*maskC(i,j,k,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
67 |
COST_TEMP |
& wtheta(k,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
68 |
COST_TEMP |
& ( cMeanTheta(i,j,k,bi,bj) - thetalev(i,j,k,bi,bj) )**2 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
108 |
COST_WEIGHTS |
DO k = 1, Nr |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
109 |
COST_WEIGHTS |
wtheta(k,bi,bj) = 1. _d 0/wti(k)/wti(k) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
39 |
COST_WEIGHTS |
INTEGER i,j,k |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
61 |
COST_WEIGHTS |
DO k = 1,Nr |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
62 |
COST_WEIGHTS |
wti(k) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
71 |
COST_WEIGHTS |
DO k = 1,Nr |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
72 |
COST_WEIGHTS |
wunit(k,bi,bj) = 1. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
73 |
COST_WEIGHTS |
wtheta(k,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
74 |
COST_WEIGHTS |
wsalt(k,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
96 |
COST_WEIGHTS |
DO k=1,Nr |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
97 |
COST_WEIGHTS |
wti(k) = tmpwti(k) |
|
./model/src/solve_uv_tridiago.F |
104 |
SOLVE_UV_TRIDIAGO |
alpU(i,j,bi,bj) = aU(i,j,k,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
105 |
SOLVE_UV_TRIDIAGO |
gamU(i,j,bi,bj) = cU(i,j,k,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
106 |
SOLVE_UV_TRIDIAGO |
yy_U(i,j,bi,bj) = rhsU(i,j,k,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
114 |
SOLVE_UV_TRIDIAGO |
tmpVar = bU(i,j,k,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
131 |
SOLVE_UV_TRIDIAGO |
tmpVar = bU(i,j,k,bi,bj) - alpU(i,j,bi,bj)*gamU(im,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
285 |
SOLVE_UV_TRIDIAGO |
uFld(i,j,k,bi,bj) = yy_U(i,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
303 |
SOLVE_UV_TRIDIAGO |
alpV(i,j,bi,bj) = aV(i,j,k,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
304 |
SOLVE_UV_TRIDIAGO |
gamV(i,j,bi,bj) = cV(i,j,k,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
305 |
SOLVE_UV_TRIDIAGO |
yy_V(i,j,bi,bj) = rhsV(i,j,k,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
313 |
SOLVE_UV_TRIDIAGO |
tmpVar = bV(i,j,k,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
330 |
SOLVE_UV_TRIDIAGO |
tmpVar = bV(i,j,k,bi,bj) - alpV(i,j,bi,bj)*gamV(i,jm,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
472 |
SOLVE_UV_TRIDIAGO |
vFld(i,j,k,bi,bj) = yy_V(i,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
78 |
SOLVE_UV_TRIDIAGO |
INTEGER i,j,k |
|
./model/src/solve_uv_tridiago.F |
95 |
SOLVE_UV_TRIDIAGO |
DO k = 1,kSize |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
112 |
APPLY_FORCING_V |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
146 |
APPLY_FORCING_V |
INTEGER k, bi, bj |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
166 |
APPLY_FORCING_V |
IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
169 |
APPLY_FORCING_V |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
170 |
APPLY_FORCING_V |
& +rF(k+1)*recip_P0g ) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
181 |
APPLY_FORCING_V |
termP = aHybSigmC(k)*rFullDepth |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
187 |
APPLY_FORCING_V |
& + bHybSigmC(k) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
191 |
APPLY_FORCING_V |
& - kV*vVel(i,j,k,bi,bj) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
19 |
APPLY_FORCING_U |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
205 |
APPLY_FORCING_T |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
238 |
APPLY_FORCING_T |
INTEGER k, bi, bj |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
259 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( rF(k) + rF(k+1) ) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
266 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj)) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
267 |
APPLY_FORCING_T |
& + rF(k+1) ) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
278 |
APPLY_FORCING_T |
termP = aHybSigmC(k)*rFullDepth |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
284 |
APPLY_FORCING_T |
& + bHybSigmC(k) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
290 |
APPLY_FORCING_T |
& - kT*( theta(i,j,k,bi,bj)-thetaEq ) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
291 |
APPLY_FORCING_T |
& *maskC(i,j,k,bi,bj) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
304 |
APPLY_FORCING_S |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
338 |
APPLY_FORCING_S |
INTEGER k, bi, bj |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
53 |
APPLY_FORCING_U |
INTEGER k, bi, bj |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
73 |
APPLY_FORCING_U |
IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
76 |
APPLY_FORCING_U |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
77 |
APPLY_FORCING_U |
& +rF(k+1)*recip_P0g ) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
88 |
APPLY_FORCING_U |
termP = aHybSigmC(k)*rFullDepth |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
94 |
APPLY_FORCING_U |
& + bHybSigmC(k) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
98 |
APPLY_FORCING_U |
& - kV*uVel(i,j,k,bi,bj) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
139 |
CTRL_MAP_INI_GENARR |
do k = 1,Nr |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
143 |
CTRL_MAP_INI_GENARR |
pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
144 |
CTRL_MAP_INI_GENARR |
& + fac*xx_genarr3d(i,j,k,bi,bj,iarr) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
145 |
CTRL_MAP_INI_GENARR |
& + fac*tmpfld3d(i,j,k,bi,bj) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
147 |
CTRL_MAP_INI_GENARR |
pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
148 |
CTRL_MAP_INI_GENARR |
& + fac*tmpfld3d(i,j,k,bi,bj) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
52 |
CTRL_MAP_INI_GENARR |
integer i,j,k |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
142 |
CTRL_MAP_INI_GENARR |
do k = 1,Nr |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
145 |
CTRL_MAP_INI_GENARR |
pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr) |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
146 |
CTRL_MAP_INI_GENARR |
& + fac*tmpfld3d(i,j,k,bi,bj) |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
52 |
CTRL_MAP_INI_GENARR |
integer i,j,k |
|
./model/src/taueddy_init_varia.F |
37 |
TAUEDDY_INIT_VARIA |
INTEGER i, j, k |
|
./model/src/taueddy_init_varia.F |
43 |
TAUEDDY_INIT_VARIA |
DO k=1,Nr |
|
./model/src/taueddy_init_varia.F |
46 |
TAUEDDY_INIT_VARIA |
eddyPsiX(i,j,k,bi,bj)=0. |
|
./model/src/taueddy_init_varia.F |
47 |
TAUEDDY_INIT_VARIA |
eddyPsiY(i,j,k,bi,bj)=0. |
|
./model/src/taueddy_tendency_apply.F |
102 |
TAUEDDY_TENDENCY_APPLY_V |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./model/src/taueddy_tendency_apply.F |
137 |
TAUEDDY_TENDENCY_APPLY_V |
INTEGER k, bi, bj |
|
./model/src/taueddy_tendency_apply.F |
154 |
TAUEDDY_TENDENCY_APPLY_V |
kp1 = MIN(k+1,Nr) |
|
./model/src/taueddy_tendency_apply.F |
157 |
TAUEDDY_TENDENCY_APPLY_V |
IF (k.EQ.Nr) maskp1 = 0. |
|
./model/src/taueddy_tendency_apply.F |
158 |
TAUEDDY_TENDENCY_APPLY_V |
IF (k.EQ.1) maskm1 = 0. |
|
./model/src/taueddy_tendency_apply.F |
163 |
TAUEDDY_TENDENCY_APPLY_V |
& ( maskm1*_maskS(i,j, k ,bi,bj)*tauyEddy(i,j, k ,bi,bj) |
|
./model/src/taueddy_tendency_apply.F |
165 |
TAUEDDY_TENDENCY_APPLY_V |
& *recip_drF(k)*_recip_hFacS(i,j,k,bi,bj) |
|
./model/src/taueddy_tendency_apply.F |
21 |
TAUEDDY_TENDENCY_APPLY_U |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./model/src/taueddy_tendency_apply.F |
56 |
TAUEDDY_TENDENCY_APPLY_U |
INTEGER k, bi, bj |
|
./model/src/taueddy_tendency_apply.F |
73 |
TAUEDDY_TENDENCY_APPLY_U |
kp1 = MIN(k+1,Nr) |
|
./model/src/taueddy_tendency_apply.F |
76 |
TAUEDDY_TENDENCY_APPLY_U |
IF (k.EQ.Nr) maskp1 = 0. |
|
./model/src/taueddy_tendency_apply.F |
77 |
TAUEDDY_TENDENCY_APPLY_U |
IF (k.EQ.1) maskm1 = 0. |
|
./model/src/taueddy_tendency_apply.F |
82 |
TAUEDDY_TENDENCY_APPLY_U |
& ( maskm1*_maskW(i,j, k ,bi,bj)*tauxEddy(i,j, k ,bi,bj) |
|
./model/src/taueddy_tendency_apply.F |
84 |
TAUEDDY_TENDENCY_APPLY_U |
& *recip_drF(k)*_recip_hFacW(i,j,k,bi,bj) |
|
./model/src/temp_integrate.F |
124 |
TEMP_INTEGRATE |
INTEGER i, j, k |
|
./model/src/temp_integrate.F |
213 |
TEMP_INTEGRATE |
DO k=1,Nr |
|
./model/src/temp_integrate.F |
216 |
TEMP_INTEGRATE |
gT_loc(i,j,k) = 0. _d 0 |
|
./model/src/temp_integrate.F |
227 |
TEMP_INTEGRATE |
DO k=1,Nr |
|
./model/src/temp_integrate.F |
230 |
TEMP_INTEGRATE |
kappaRk(i,j,k) = 0. _d 0 |
|
./model/src/temp_integrate.F |
298 |
TEMP_INTEGRATE |
DO k=Nr,1,-1 |
|
./model/src/temp_integrate.F |
300 |
TEMP_INTEGRATE |
kkey = (itdkey-1)*Nr + k |
|
./model/src/temp_integrate.F |
302 |
TEMP_INTEGRATE |
kM1 = MAX(1,k-1) |
|
./model/src/temp_integrate.F |
303 |
TEMP_INTEGRATE |
kUp = 1+MOD(k+1,2) |
|
./model/src/temp_integrate.F |
304 |
TEMP_INTEGRATE |
kDown= 1+MOD(k,2) |
|
./model/src/temp_integrate.F |
326 |
TEMP_INTEGRATE |
I k, bi, bj, myThid ) |
|
./model/src/temp_integrate.F |
337 |
TEMP_INTEGRATE |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/temp_integrate.F |
341 |
TEMP_INTEGRATE |
CALL DIAGNOSTICS_FILL(gtForc,'gT_Forc ',k,1,2,bi,bj,myThid) |
|
./model/src/temp_integrate.F |
350 |
TEMP_INTEGRATE |
I bi, bj, iMin,iMax,jMin,jMax, k, kM1, kUp, kDown, |
|
./model/src/temp_integrate.F |
351 |
TEMP_INTEGRATE |
I xA, yA, maskUp, uFld(1-OLx,1-OLy,k), |
|
./model/src/temp_integrate.F |
352 |
TEMP_INTEGRATE |
I vFld(1-OLx,1-OLy,k), wFld(1-OLx,1-OLy,k), |
|
./model/src/temp_integrate.F |
354 |
TEMP_INTEGRATE |
I diffKhT, diffK4T, KappaRk(1-OLx,1-OLy,k), diffKr4T, |
|
./model/src/temp_integrate.F |
365 |
TEMP_INTEGRATE |
I bi, bj, iMin,iMax,jMin,jMax, k, kM1, kUp, kDown, |
|
./model/src/temp_integrate.F |
366 |
TEMP_INTEGRATE |
I xA, yA, maskUp, uFld(1-OLx,1-OLy,k), |
|
./model/src/temp_integrate.F |
367 |
TEMP_INTEGRATE |
I vFld(1-OLx,1-OLy,k), wFld(1-OLx,1-OLy,k), |
|
./model/src/temp_integrate.F |
369 |
TEMP_INTEGRATE |
I diffKhT, diffK4T, KappaRk(1-OLx,1-OLy,k), diffKr4T, |
|
./model/src/temp_integrate.F |
384 |
TEMP_INTEGRATE |
gT_loc(i,j,k) = gT_loc(i,j,k) + gtForc(i,j) |
|
./model/src/temp_integrate.F |
392 |
TEMP_INTEGRATE |
I bi, bj, k, Nr, |
|
./model/src/temp_integrate.F |
398 |
TEMP_INTEGRATE |
I bi, bj, k, Nr, |
|
./model/src/temp_integrate.F |
405 |
TEMP_INTEGRATE |
CALL DIAGNOSTICS_FILL(gt_AB,'AB_gT ',k,1,2,bi,bj,myThid) |
|
./model/src/temp_integrate.F |
414 |
TEMP_INTEGRATE |
gT_loc(i,j,k) = gT_loc(i,j,k) + gtForc(i,j) |
|
./model/src/temp_integrate.F |
422 |
TEMP_INTEGRATE |
I bi, bj, k, |
|
./model/src/temp_integrate.F |
434 |
TEMP_INTEGRATE |
I bi, bj, k, |
|
./model/src/temp_integrate.F |
438 |
TEMP_INTEGRATE |
I bi, bj, k, |
|
./model/src/temp_integrate.F |
443 |
TEMP_INTEGRATE |
I bi, bj, k, |
|
./model/src/thermodynamics.F |
101 |
THERMODYNAMICS |
INTEGER i, j, k |
|
./model/src/thermodynamics.F |
155 |
THERMODYNAMICS |
DO k=1,PTRACERS_numInUse |
|
./model/src/thermodynamics.F |
156 |
THERMODYNAMICS |
meanSurfCorPTr(k) = 0.0 _d 0 |
|
./model/src/thermodynamics.F |
189 |
THERMODYNAMICS |
DO k=1,Nr |
|
./model/src/thermodynamics.F |
192 |
THERMODYNAMICS |
recip_hFacNew(i,j,k) = 0. _d 0 |
|
./model/src/thermodynamics.F |
194 |
THERMODYNAMICS |
kappaRk(i,j,k) = 0. _d 0 |
|
./model/src/thermodynamics.F |
204 |
THERMODYNAMICS |
DO k=1,Nr |
|
./model/src/thermodynamics.F |
207 |
THERMODYNAMICS |
recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
215 |
THERMODYNAMICS |
DO k=1,Nr |
|
./model/src/thermodynamics.F |
218 |
THERMODYNAMICS |
recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
220 |
THERMODYNAMICS |
& *dBHybSigF(k)*recip_drF(k) |
|
./model/src/thermodynamics.F |
221 |
THERMODYNAMICS |
& *recip_hFacC(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
228 |
THERMODYNAMICS |
DO k=1,Nr |
|
./model/src/thermodynamics.F |
231 |
THERMODYNAMICS |
IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN |
|
./model/src/thermodynamics.F |
232 |
THERMODYNAMICS |
recip_hFacNew(i,j,k) = 1. _d 0 / hFac_surfC(i,j,bi,bj) |
|
./model/src/thermodynamics.F |
234 |
THERMODYNAMICS |
recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
242 |
THERMODYNAMICS |
DO k=1,Nr |
|
./model/src/thermodynamics.F |
245 |
THERMODYNAMICS |
recip_hFacNew(i,j,k) = _recip_hFacC(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
255 |
THERMODYNAMICS |
DO k=1,Nr |
|
./model/src/thermodynamics.F |
258 |
THERMODYNAMICS |
uFld(i,j,k) = uVel(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
259 |
THERMODYNAMICS |
vFld(i,j,k) = vVel(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
260 |
THERMODYNAMICS |
wFld(i,j,k) = wVel(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
370 |
THERMODYNAMICS |
DO k=1,Nr |
|
./model/src/thermodynamics.F |
373 |
THERMODYNAMICS |
frictionHeating(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/timestep.F |
108 |
TIMESTEP |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/timestep.F |
112 |
TIMESTEP |
I iMin,iMax,jMin,jMax, k, bi,bj, |
|
./model/src/timestep.F |
120 |
TIMESTEP |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) - phxFac*dPhiHydX(i,j) |
|
./model/src/timestep.F |
121 |
TIMESTEP |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) - phyFac*dPhiHydY(i,j) |
|
./model/src/timestep.F |
134 |
TIMESTEP |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) + guDissip(i,j) |
|
./model/src/timestep.F |
135 |
TIMESTEP |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) + gvDissip(i,j) |
|
./model/src/timestep.F |
13 |
TIMESTEP |
SUBROUTINE TIMESTEP( bi, bj, iMin, iMax, jMin, jMax, k, |
|
./model/src/timestep.F |
144 |
TIMESTEP |
gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) + guExt(i,j) |
|
./model/src/timestep.F |
145 |
TIMESTEP |
gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) + gvExt(i,j) |
|
./model/src/timestep.F |
155 |
TIMESTEP |
gUtmp(i,j) = gU(i,j,k,bi,bj) |
|
./model/src/timestep.F |
156 |
TIMESTEP |
gVtmp(i,j) = gV(i,j,k,bi,bj) |
|
./model/src/timestep.F |
166 |
TIMESTEP |
I bi, bj, k, Nr, |
|
./model/src/timestep.F |
171 |
TIMESTEP |
I bi, bj, k, Nr, |
|
./model/src/timestep.F |
177 |
TIMESTEP |
I bi, bj, k, Nr, |
|
./model/src/timestep.F |
183 |
TIMESTEP |
I bi, bj, k, Nr, |
|
./model/src/timestep.F |
191 |
TIMESTEP |
CALL DIAGNOSTICS_FILL(gu_AB,'AB_gU ',k,1,2,bi,bj,myThid) |
|
./model/src/timestep.F |
192 |
TIMESTEP |
CALL DIAGNOSTICS_FILL(gv_AB,'AB_gV ',k,1,2,bi,bj,myThid) |
|
./model/src/timestep.F |
202 |
TIMESTEP |
gUtmp(i,j) = gU(i,j,k,bi,bj) |
|
./model/src/timestep.F |
203 |
TIMESTEP |
gVtmp(i,j) = gV(i,j,k,bi,bj) |
|
./model/src/timestep.F |
235 |
TIMESTEP |
I bi,bj,k, dPhiHydX,dPhiHydY, gUtmp,gVtmp, |
|
./model/src/timestep.F |
243 |
TIMESTEP |
gUtmp(i,j) = ( gU(i,j,k,bi,bj) + guExt(i,j) ) + guCor(i,j) |
|
./model/src/timestep.F |
244 |
TIMESTEP |
gVtmp(i,j) = ( gV(i,j,k,bi,bj) + gvExt(i,j) ) + gvCor(i,j) |
|
./model/src/timestep.F |
250 |
TIMESTEP |
gUtmp(i,j) = gU(i,j,k,bi,bj) + guCor(i,j) |
|
./model/src/timestep.F |
251 |
TIMESTEP |
gVtmp(i,j) = gV(i,j,k,bi,bj) + gvCor(i,j) |
|
./model/src/timestep.F |
294 |
TIMESTEP |
& *dBHybSigF(k)*recip_drF(k) |
|
./model/src/timestep.F |
295 |
TIMESTEP |
& *recip_hFacW(i,j,k,bi,bj) |
|
./model/src/timestep.F |
299 |
TIMESTEP |
& *dBHybSigF(k)*recip_drF(k) |
|
./model/src/timestep.F |
300 |
TIMESTEP |
& *recip_hFacS(i,j,k,bi,bj) |
|
./model/src/timestep.F |
308 |
TIMESTEP |
IF ( k.EQ.kSurfW(i,j,bi,bj) ) THEN |
|
./model/src/timestep.F |
310 |
TIMESTEP |
& *_hFacW(i,j,k,bi,bj)/hFac_surfW(i,j,bi,bj) |
|
./model/src/timestep.F |
312 |
TIMESTEP |
IF ( k.EQ.kSurfS(i,j,bi,bj) ) THEN |
|
./model/src/timestep.F |
314 |
TIMESTEP |
& *_hFacS(i,j,k,bi,bj)/hFac_surfS(i,j,bi,bj) |
|
./model/src/timestep.F |
326 |
TIMESTEP |
& *recip_deepFacC(k)*recip_rhoFacC(k) |
|
./model/src/timestep.F |
332 |
TIMESTEP |
& ( (phi_nh(i,j,k,bi,bj)-phi_nh(i-1,j,k,bi,bj)) |
|
./model/src/timestep.F |
337 |
TIMESTEP |
& ( (phi_nh(i,j,k,bi,bj)-phi_nh(i,j-1,k,bi,bj)) |
|
./model/src/timestep.F |
347 |
TIMESTEP |
& (phi_nh(i,j,k,bi,bj)-phi_nh(i-1,j,k,bi,bj)) |
|
./model/src/timestep.F |
350 |
TIMESTEP |
& (phi_nh(i,j,k,bi,bj)-phi_nh(i,j-1,k,bi,bj)) |
|
./model/src/timestep.F |
360 |
TIMESTEP |
gU(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) |
|
./model/src/timestep.F |
365 |
TIMESTEP |
& )*_maskW(i,j,k,bi,bj) |
|
./model/src/timestep.F |
372 |
TIMESTEP |
gV(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) |
|
./model/src/timestep.F |
377 |
TIMESTEP |
& )*_maskS(i,j,k,bi,bj) |
|
./model/src/timestep.F |
383 |
TIMESTEP |
CALL DIAGNOSTICS_FILL( guDissip,'Um_Diss ',k,1,2,bi,bj,myThid ) |
|
./model/src/timestep.F |
384 |
TIMESTEP |
CALL DIAGNOSTICS_FILL( gvDissip,'Vm_Diss ',k,1,2,bi,bj,myThid ) |
|
./model/src/timestep.F |
387 |
TIMESTEP |
CALL DIAGNOSTICS_FILL( guExt,'Um_Ext ',k,1,2,bi,bj,myThid ) |
|
./model/src/timestep.F |
388 |
TIMESTEP |
CALL DIAGNOSTICS_FILL( gvExt,'Vm_Ext ',k,1,2,bi,bj,myThid ) |
|
./model/src/timestep.F |
392 |
TIMESTEP |
CALL DIAGNOSTICS_FILL( guCor,'Um_Cori ',k,1,2,bi,bj,myThid ) |
|
./model/src/timestep.F |
393 |
TIMESTEP |
CALL DIAGNOSTICS_FILL( gvCor,'Vm_Cori ',k,1,2,bi,bj,myThid ) |
|
./model/src/timestep.F |
47 |
TIMESTEP |
INTEGER k |
|
./model/src/timestep.F |
82 |
TIMESTEP |
& *recip_deepFacC(k)*recip_rhoFacC(k) |
|
./model/src/timestep_tracer.F |
48 |
TIMESTEP_TRACER |
INTEGER i, j, k |
|
./model/src/timestep_tracer.F |
54 |
TIMESTEP_TRACER |
DO k=1,Nr |
|
./model/src/timestep_tracer.F |
57 |
TIMESTEP_TRACER |
gTracer(i,j,k) = tracer(i,j,k) |
|
./model/src/timestep_tracer.F |
58 |
TIMESTEP_TRACER |
& + deltaTLev(k)*gTracer(i,j,k) |
|
./model/src/timestep_wvel.F |
102 |
TIMESTEP_WVEL |
wVel(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
114 |
TIMESTEP_WVEL |
DO k=1,Nr |
|
./model/src/timestep_wvel.F |
117 |
TIMESTEP_WVEL |
gW(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
47 |
TIMESTEP_WVEL |
INTEGER i, j, k, km1 |
|
./model/src/timestep_wvel.F |
63 |
TIMESTEP_WVEL |
DO k=1,Nr |
|
./model/src/timestep_wvel.F |
64 |
TIMESTEP_WVEL |
km1 = MAX( k-1, 1 ) |
|
./model/src/timestep_wvel.F |
69 |
TIMESTEP_WVEL |
& * wUnit2rVel(k)*wUnit2rVel(k)*recip_rhoFacF(k) |
|
./model/src/timestep_wvel.F |
70 |
TIMESTEP_WVEL |
IF ( k.GE.2 ) THEN |
|
./model/src/timestep_wvel.F |
73 |
TIMESTEP_WVEL |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
74 |
TIMESTEP_WVEL |
& - tmpFac*rkSign*recip_drC(k) |
|
./model/src/timestep_wvel.F |
75 |
TIMESTEP_WVEL |
& *( phi_nh(i,j,k,bi,bj) - phi_nh(i,j,k-1,bi,bj) ) |
|
./model/src/timestep_wvel.F |
81 |
TIMESTEP_WVEL |
gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
82 |
TIMESTEP_WVEL |
& - tmpFac*rkSign*recip_drC(k) |
|
./model/src/timestep_wvel.F |
83 |
TIMESTEP_WVEL |
& *( phi_nh(i,j,k,bi,bj) - dPhiNH(i,j,bi,bj) ) |
|
./model/src/timestep_wvel.F |
91 |
TIMESTEP_WVEL |
gWtmp(i,j) = gW(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
92 |
TIMESTEP_WVEL |
& *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj) |
|
./model/src/timestep_wvel.F |
93 |
TIMESTEP_WVEL |
gW(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) |
|
./model/src/timestep_wvel.F |
97 |
TIMESTEP_WVEL |
tmpFac = nh_Fac + igwFac*wUnit2rVel(k)*wUnit2rVel(k) |
|
./model/src/timestep_wvel.F |
98 |
TIMESTEP_WVEL |
& *dBdrRef(k)*deltaTMom*dTtracerLev(k) |
|
./model/src/tracers_iigw_correction.F |
101 |
TRACERS_IIGW_CORRECTION |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/tracers_iigw_correction.F |
47 |
TRACERS_IIGW_CORRECTION |
INTEGER i,j,k |
|
./model/src/tracers_iigw_correction.F |
62 |
TRACERS_IIGW_CORRECTION |
DO k=1,Nr |
|
./model/src/tracers_iigw_correction.F |
65 |
TRACERS_IIGW_CORRECTION |
kp1 = MIN(k+1,Nr) |
|
./model/src/tracers_iigw_correction.F |
70 |
TRACERS_IIGW_CORRECTION |
& - gW(i,j,kp1,bi,bj) )*maskC(i,j,k,bi,bj) |
|
./model/src/tracers_iigw_correction.F |
76 |
TRACERS_IIGW_CORRECTION |
IF ( k.GT.1 ) dTr_k = (tRef(k) - tRef(k-1))*rkSign |
|
./model/src/tracers_iigw_correction.F |
77 |
TRACERS_IIGW_CORRECTION |
dTrp1 = (tRef(kp1) - tRef(k))*rkSign |
|
./model/src/tracers_iigw_correction.F |
82 |
TRACERS_IIGW_CORRECTION |
theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj) |
|
./model/src/tracers_iigw_correction.F |
83 |
TRACERS_IIGW_CORRECTION |
& -dTtracerLev(k)*0.5 _d 0 |
|
./model/src/tracers_iigw_correction.F |
85 |
TRACERS_IIGW_CORRECTION |
& *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/tracers_iigw_correction.F |
92 |
TRACERS_IIGW_CORRECTION |
IF ( k.GT.1 ) dTr_k = (sRef(k) - sRef(k-1))*rkSign |
|
./model/src/tracers_iigw_correction.F |
93 |
TRACERS_IIGW_CORRECTION |
dTrp1 = (sRef(kp1) - sRef(k))*rkSign |
|
./model/src/tracers_iigw_correction.F |
98 |
TRACERS_IIGW_CORRECTION |
salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) |
|
./model/src/tracers_iigw_correction.F |
99 |
TRACERS_IIGW_CORRECTION |
& -dTtracerLev(k)*0.5 _d 0 |
|
./model/src/update_cg2d.F |
101 |
UPDATE_CG2D |
DO k=1,Nr |
|
./model/src/update_cg2d.F |
105 |
UPDATE_CG2D |
faceArea = _dyG(i,j,bi,bj)*drF(k) |
|
./model/src/update_cg2d.F |
106 |
UPDATE_CG2D |
& *_hFacW(i,j,k,bi,bj) |
|
./model/src/update_cg2d.F |
109 |
UPDATE_CG2D |
faceArea = _dxG(i,j,bi,bj)*drF(k) |
|
./model/src/update_cg2d.F |
110 |
UPDATE_CG2D |
& *_hFacS(i,j,k,bi,bj) |
|
./model/src/update_cg2d.F |
53 |
UPDATE_CG2D |
INTEGER i, j, k, ks |
|
./model/src/update_cg2d.F |
83 |
UPDATE_CG2D |
DO k=1,Nr |
|
./model/src/update_cg2d.F |
86 |
UPDATE_CG2D |
faceArea = _dyG(i,j,bi,bj)*drF(k)*deepFacC(k)*rhoFacC(k) |
|
./model/src/update_cg2d.F |
87 |
UPDATE_CG2D |
& *_hFacW(i,j,k,bi,bj) |
|
./model/src/update_cg2d.F |
89 |
UPDATE_CG2D |
& + faceArea*dU_psFacX(i,j,k,bi,bj) |
|
./model/src/update_cg2d.F |
91 |
UPDATE_CG2D |
faceArea = _dxG(i,j,bi,bj)*drF(k)*deepFacC(k)*rhoFacC(k) |
|
./model/src/update_cg2d.F |
92 |
UPDATE_CG2D |
& *_hFacS(i,j,k,bi,bj) |
|
./model/src/update_cg2d.F |
94 |
UPDATE_CG2D |
& + faceArea*dV_psFacY(i,j,k,bi,bj) |
|
./model/src/update_masks_etc.F |
340 |
UPDATE_MASKS_ETC |
DO k=1,Nr |
|
./model/src/update_masks_etc.F |
343 |
UPDATE_MASKS_ETC |
h0FacC(i,j,k,bi,bj) = _hFacC(i,j,k,bi,bj) |
|
./model/src/update_masks_etc.F |
344 |
UPDATE_MASKS_ETC |
h0FacW(i,j,k,bi,bj) = _hFacW(i,j,k,bi,bj) |
|
./model/src/update_masks_etc.F |
345 |
UPDATE_MASKS_ETC |
h0FacS(i,j,k,bi,bj) = _hFacS(i,j,k,bi,bj) |
|
./model/src/update_masks_etc.F |
85 |
UPDATE_MASKS_ETC |
hFacMnSz=max( hFacMin, min(hFacMinDr*recip_drF(k),1. _d 0) ) |
|
./model/src/update_r_star.F |
102 |
UPDATE_R_STAR |
recip_hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
103 |
UPDATE_R_STAR |
& / ( _hFacC(i,j,k,bi,bj) + (1.-maskC(i,j,k,bi,bj)) ) |
|
./model/src/update_r_star.F |
104 |
UPDATE_R_STAR |
recip_hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
105 |
UPDATE_R_STAR |
& / ( _hFacW(i,j,k,bi,bj) + (1.-maskW(i,j,k,bi,bj)) ) |
|
./model/src/update_r_star.F |
106 |
UPDATE_R_STAR |
recip_hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
107 |
UPDATE_R_STAR |
& / ( _hFacS(i,j,k,bi,bj) + (1.-maskS(i,j,k,bi,bj)) ) |
|
./model/src/update_r_star.F |
109 |
UPDATE_R_STAR |
IF (maskC(i,j,k,bi,bj).NE.0.) |
|
./model/src/update_r_star.F |
110 |
UPDATE_R_STAR |
& recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / _hFacC(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
111 |
UPDATE_R_STAR |
IF (maskW(i,j,k,bi,bj).NE.0.) |
|
./model/src/update_r_star.F |
112 |
UPDATE_R_STAR |
& recip_hFacW(i,j,k,bi,bj) = 1. _d 0 / _hFacW(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
113 |
UPDATE_R_STAR |
IF (maskS(i,j,k,bi,bj).NE.0.) |
|
./model/src/update_r_star.F |
114 |
UPDATE_R_STAR |
& recip_hFacS(i,j,k,bi,bj) = 1. _d 0 / _hFacS(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
43 |
UPDATE_R_STAR |
INTEGER i,j,k,bi,bj |
|
./model/src/update_r_star.F |
53 |
UPDATE_R_STAR |
DO k=1,Nr |
|
./model/src/update_r_star.F |
58 |
UPDATE_R_STAR |
hFacC(i,j,k,bi,bj) = h0FacC(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
60 |
UPDATE_R_STAR |
hFacW(i,j,k,bi,bj) = h0FacW(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
62 |
UPDATE_R_STAR |
hFacS(i,j,k,bi,bj) = h0FacS(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
67 |
UPDATE_R_STAR |
recip_hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
68 |
UPDATE_R_STAR |
& / ( _hFacC(i,j,k,bi,bj) + (1.-maskC(i,j,k,bi,bj)) ) |
|
./model/src/update_r_star.F |
69 |
UPDATE_R_STAR |
recip_hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
70 |
UPDATE_R_STAR |
& / ( _hFacW(i,j,k,bi,bj) + (1.-maskW(i,j,k,bi,bj)) ) |
|
./model/src/update_r_star.F |
71 |
UPDATE_R_STAR |
recip_hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
72 |
UPDATE_R_STAR |
& / ( _hFacS(i,j,k,bi,bj) + (1.-maskS(i,j,k,bi,bj)) ) |
|
./model/src/update_r_star.F |
74 |
UPDATE_R_STAR |
IF (maskC(i,j,k,bi,bj).NE.0.) |
|
./model/src/update_r_star.F |
75 |
UPDATE_R_STAR |
& recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / _hFacC(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
76 |
UPDATE_R_STAR |
IF (maskW(i,j,k,bi,bj).NE.0.) |
|
./model/src/update_r_star.F |
77 |
UPDATE_R_STAR |
& recip_hFacW(i,j,k,bi,bj) = 1. _d 0 / _hFacW(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
78 |
UPDATE_R_STAR |
IF (maskS(i,j,k,bi,bj).NE.0.) |
|
./model/src/update_r_star.F |
79 |
UPDATE_R_STAR |
& recip_hFacS(i,j,k,bi,bj) = 1. _d 0 / _hFacS(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
87 |
UPDATE_R_STAR |
DO k=1,Nr |
|
./model/src/update_r_star.F |
93 |
UPDATE_R_STAR |
hFacC(i,j,k,bi,bj) = h0FacC(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
95 |
UPDATE_R_STAR |
hFacW(i,j,k,bi,bj) = h0FacW(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
97 |
UPDATE_R_STAR |
hFacS(i,j,k,bi,bj) = h0FacS(i,j,k,bi,bj) |
|
./model/src/update_sigma.F |
114 |
UPDATE_SIGMA |
DO k=1,Nr |
|
./model/src/update_sigma.F |
117 |
UPDATE_SIGMA |
hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj) |
|
./model/src/update_sigma.F |
118 |
UPDATE_SIGMA |
& *( dAHybSigF(k)*rFullDepth |
|
./model/src/update_sigma.F |
119 |
UPDATE_SIGMA |
& +dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/update_sigma.F |
120 |
UPDATE_SIGMA |
& )*recip_drF(k) |
|
./model/src/update_sigma.F |
121 |
UPDATE_SIGMA |
recip_hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj)*drF(k) |
|
./model/src/update_sigma.F |
122 |
UPDATE_SIGMA |
& /( dAHybSigF(k)*rFullDepth |
|
./model/src/update_sigma.F |
123 |
UPDATE_SIGMA |
& +dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/update_sigma.F |
140 |
UPDATE_SIGMA |
DO k=1,Nr |
|
./model/src/update_sigma.F |
143 |
UPDATE_SIGMA |
hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj) |
|
./model/src/update_sigma.F |
144 |
UPDATE_SIGMA |
& *( dAHybSigF(k)*rFullDepth |
|
./model/src/update_sigma.F |
145 |
UPDATE_SIGMA |
& +dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/update_sigma.F |
146 |
UPDATE_SIGMA |
& )*recip_drF(k) |
|
./model/src/update_sigma.F |
147 |
UPDATE_SIGMA |
recip_hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj)*drF(k) |
|
./model/src/update_sigma.F |
148 |
UPDATE_SIGMA |
& /( dAHybSigF(k)*rFullDepth |
|
./model/src/update_sigma.F |
149 |
UPDATE_SIGMA |
& +dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/update_sigma.F |
166 |
UPDATE_SIGMA |
DO k=1,Nr |
|
./model/src/update_sigma.F |
169 |
UPDATE_SIGMA |
hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj) |
|
./model/src/update_sigma.F |
170 |
UPDATE_SIGMA |
& *( dAHybSigF(k)*rFullDepth |
|
./model/src/update_sigma.F |
171 |
UPDATE_SIGMA |
& +dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/update_sigma.F |
172 |
UPDATE_SIGMA |
& )*recip_drF(k) |
|
./model/src/update_sigma.F |
173 |
UPDATE_SIGMA |
recip_hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj)*drF(k) |
|
./model/src/update_sigma.F |
174 |
UPDATE_SIGMA |
& /( dAHybSigF(k)*rFullDepth |
|
./model/src/update_sigma.F |
175 |
UPDATE_SIGMA |
& +dBHybSigF(k)*tmpFld(i,j) |
|
./model/src/update_sigma.F |
58 |
UPDATE_SIGMA |
INTEGER i, j, k |
|
./model/src/update_surf_dr.F |
125 |
UPDATE_SURF_DR |
DO k=1,Nr |
|
./model/src/update_surf_dr.F |
128 |
UPDATE_SURF_DR |
hFacC(i,j,k,bi,bj)=h0FacC(i,j,k,bi,bj) |
|
./model/src/update_surf_dr.F |
129 |
UPDATE_SURF_DR |
IF (h0FacC(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./model/src/update_surf_dr.F |
130 |
UPDATE_SURF_DR |
recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / h0FacC(i,j,k,bi,bj) |
|
./model/src/update_surf_dr.F |
132 |
UPDATE_SURF_DR |
recip_hFacC(i,j,k,bi,bj) = 0. |
|
./model/src/update_surf_dr.F |
43 |
UPDATE_SURF_DR |
INTEGER i,j,k,bi,bj |
|
./model/src/write_grid.F |
148 |
WRITE_GRID |
DO k=1,Nr+1 |
|
./model/src/write_grid.F |
149 |
WRITE_GRID |
tmpVar(k) = phiRef(2*k-1) |
|
./model/src/write_grid.F |
152 |
WRITE_GRID |
DO k=1,Nr |
|
./model/src/write_grid.F |
153 |
WRITE_GRID |
tmpVar(k) = phiRef(2*k) |
|
./model/src/write_grid.F |
52 |
WRITE_GRID |
INTEGER i,j,k,bi,bj |
|
./optim/optim_readdata.F |
155 |
OPTIM_READDATA |
read( funit ) (nWetcGlobal(k), k=1,nr) |
|
./optim/optim_readdata.F |
156 |
OPTIM_READDATA |
read( funit ) (nWetsGlobal(k), k=1,nr) |
|
./optim/optim_readdata.F |
157 |
OPTIM_READDATA |
read( funit ) (nWetwGlobal(k), k=1,nr) |
|
./optim/optim_readdata.F |
159 |
OPTIM_READDATA |
read( funit ) (nWetvGlobal(k), k=1,nr) |
|
./optim/optim_readdata.F |
162 |
OPTIM_READDATA |
read(funit) (nWetiGlobal(k), k=1,nr) |
|
./optim/optim_readdata.F |
168 |
OPTIM_READDATA |
read( funit ) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_readdata.F |
171 |
OPTIM_READDATA |
read( funit ) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_readdata.F |
174 |
OPTIM_READDATA |
read( funit ) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_readdata.F |
177 |
OPTIM_READDATA |
read( funit ) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_readdata.F |
201 |
OPTIM_READDATA |
& (nWetcGlobal(k), k=1,nr) |
|
./optim/optim_readdata.F |
203 |
OPTIM_READDATA |
& (nWetsGlobal(k), k=1,nr) |
|
./optim/optim_readdata.F |
205 |
OPTIM_READDATA |
& (nWetwGlobal(k), k=1,nr) |
|
./optim/optim_readdata.F |
207 |
OPTIM_READDATA |
& (nWetvGlobal(k), k=1,nr) |
|
./optim/optim_readdata.F |
210 |
OPTIM_READDATA |
& (nWetiGlobal(k), k=1,nr) |
|
./optim/optim_readdata.F |
215 |
OPTIM_READDATA |
& (nWetobcsnGlo(k,iobcs), k=1,nr) |
|
./optim/optim_readdata.F |
221 |
OPTIM_READDATA |
& (nWetobcssGlo(k,iobcs), k=1,nr) |
|
./optim/optim_readdata.F |
227 |
OPTIM_READDATA |
& (nWetobcswGlo(k,iobcs), k=1,nr) |
|
./optim/optim_readdata.F |
233 |
OPTIM_READDATA |
& (nWetobcseGlo(k,iobcs), k=1,nr) |
|
./optim/optim_readdata.F |
298 |
OPTIM_READDATA |
do k = 1,ncvarnrmax(icvar) |
|
./optim/optim_readdata.F |
301 |
OPTIM_READDATA |
cbuffindex = nWetcGlobal(k) |
|
./optim/optim_readdata.F |
303 |
OPTIM_READDATA |
cbuffindex = nWetsGlobal(k) |
|
./optim/optim_readdata.F |
305 |
OPTIM_READDATA |
cbuffindex = nWetwGlobal(k) |
|
./optim/optim_readdata.F |
307 |
OPTIM_READDATA |
cbuffindex = nWetvGlobal(k) |
|
./optim/optim_readdata.F |
310 |
OPTIM_READDATA |
cbuffindex = nWetiGlobal(k) |
|
./optim/optim_readdata.F |
320 |
OPTIM_READDATA |
cbuffindex = nWetobcsnGlo(k,iobcs) |
|
./optim/optim_readdata.F |
325 |
OPTIM_READDATA |
cbuffindex = nWetobcssGlo(k,iobcs) |
|
./optim/optim_readdata.F |
330 |
OPTIM_READDATA |
cbuffindex = nWetobcswGlo(k,iobcs) |
|
./optim/optim_readdata.F |
335 |
OPTIM_READDATA |
cbuffindex = nWetobcseGlo(k,iobcs) |
|
./optim/optim_readdata.F |
72 |
OPTIM_READDATA |
integer ii,k |
|
./optim/optim_writedata.F |
121 |
OPTIM_WRITEDATA |
& (nWetcGlobal(k), k=1,nr) |
|
./optim/optim_writedata.F |
123 |
OPTIM_WRITEDATA |
& (nWetsGlobal(k), k=1,nr) |
|
./optim/optim_writedata.F |
125 |
OPTIM_WRITEDATA |
& (nWetwGlobal(k), k=1,nr) |
|
./optim/optim_writedata.F |
127 |
OPTIM_WRITEDATA |
& (nWetvGlobal(k), k=1,nr) |
|
./optim/optim_writedata.F |
152 |
OPTIM_WRITEDATA |
write( funit ) (nWetcGlobal(k), k=1,nr) |
|
./optim/optim_writedata.F |
153 |
OPTIM_WRITEDATA |
write( funit ) (nWetsGlobal(k), k=1,nr) |
|
./optim/optim_writedata.F |
154 |
OPTIM_WRITEDATA |
write( funit ) (nWetwGlobal(k), k=1,nr) |
|
./optim/optim_writedata.F |
156 |
OPTIM_WRITEDATA |
write( funit ) (nWetvGlobal(k), k=1,nr) |
|
./optim/optim_writedata.F |
159 |
OPTIM_WRITEDATA |
write(funit) (nWetiGlobal(k), k=1,nr) |
|
./optim/optim_writedata.F |
165 |
OPTIM_WRITEDATA |
write(funit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_writedata.F |
168 |
OPTIM_WRITEDATA |
write(funit) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_writedata.F |
171 |
OPTIM_WRITEDATA |
write(funit) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_writedata.F |
174 |
OPTIM_WRITEDATA |
write(funit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./optim/optim_writedata.F |
196 |
OPTIM_WRITEDATA |
do k = 1,ncvarnrmax(icvar) |
|
./optim/optim_writedata.F |
199 |
OPTIM_WRITEDATA |
cbuffindex = nWetcGlobal(k) |
|
./optim/optim_writedata.F |
201 |
OPTIM_WRITEDATA |
cbuffindex = nWetsGlobal(k) |
|
./optim/optim_writedata.F |
203 |
OPTIM_WRITEDATA |
cbuffindex = nWetwGlobal(k) |
|
./optim/optim_writedata.F |
205 |
OPTIM_WRITEDATA |
cbuffindex = nWetvGlobal(k) |
|
./optim/optim_writedata.F |
208 |
OPTIM_WRITEDATA |
cbuffindex = nWetiGlobal(k) |
|
./optim/optim_writedata.F |
218 |
OPTIM_WRITEDATA |
cbuffindex = nWetobcsnGlo(k,iobcs) |
|
./optim/optim_writedata.F |
223 |
OPTIM_WRITEDATA |
cbuffindex = nWetobcssGlo(k,iobcs) |
|
./optim/optim_writedata.F |
228 |
OPTIM_WRITEDATA |
cbuffindex = nWetobcswGlo(k,iobcs) |
|
./optim/optim_writedata.F |
233 |
OPTIM_WRITEDATA |
cbuffindex = nWetobcseGlo(k,iobcs) |
|
./optim/optim_writedata.F |
247 |
OPTIM_WRITEDATA |
write( funit ) k |
|
./optim/optim_writedata.F |
56 |
OPTIM_WRITEDATA |
integer i,j,k |
|
./pkg/admtlm/admtlm_bypassad.F |
113 |
ADMTLM_BYPASSAD |
do k = 1, nr |
|
./pkg/admtlm/admtlm_bypassad.F |
116 |
ADMTLM_BYPASSAD |
tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
117 |
ADMTLM_BYPASSAD |
& + advvel(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
131 |
ADMTLM_BYPASSAD |
do k = 1, nr |
|
./pkg/admtlm/admtlm_bypassad.F |
134 |
ADMTLM_BYPASSAD |
tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
135 |
ADMTLM_BYPASSAD |
& + aduvel(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
149 |
ADMTLM_BYPASSAD |
do k = 1, nr |
|
./pkg/admtlm/admtlm_bypassad.F |
152 |
ADMTLM_BYPASSAD |
tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
153 |
ADMTLM_BYPASSAD |
& + adsalt(i,j,k,bi,bj)*fac |
|
./pkg/admtlm/admtlm_bypassad.F |
167 |
ADMTLM_BYPASSAD |
do k = 1, nr |
|
./pkg/admtlm/admtlm_bypassad.F |
170 |
ADMTLM_BYPASSAD |
tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
171 |
ADMTLM_BYPASSAD |
& + adtheta(i,j,k,bi,bj)*fac |
|
./pkg/admtlm/admtlm_bypassad.F |
33 |
ADMTLM_BYPASSAD |
integer i, j, k |
|
./pkg/admtlm/admtlm_bypassad.F |
76 |
ADMTLM_BYPASSAD |
DO k=1,Nr |
|
./pkg/admtlm/admtlm_bypassad.F |
77 |
ADMTLM_BYPASSAD |
adtheta(i,j,k,bi,bj) = |
|
./pkg/admtlm/admtlm_bypassad.F |
78 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,k) |
|
./pkg/admtlm/admtlm_bypassad.F |
79 |
ADMTLM_BYPASSAD |
adsalt(i,j,k,bi,bj) = |
|
./pkg/admtlm/admtlm_bypassad.F |
80 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,1*Nr+k) |
|
./pkg/admtlm/admtlm_bypassad.F |
81 |
ADMTLM_BYPASSAD |
aduvel(i,j,k,bi,bj) = |
|
./pkg/admtlm/admtlm_bypassad.F |
82 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,2*Nr+k) |
|
./pkg/admtlm/admtlm_bypassad.F |
83 |
ADMTLM_BYPASSAD |
advvel(i,j,k,bi,bj) = |
|
./pkg/admtlm/admtlm_bypassad.F |
84 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,3*Nr+k) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
223 |
ADMTLM_DSVD2MODEL |
read(cunit) (filenWetcGlobal(k), k=1,nr) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
224 |
ADMTLM_DSVD2MODEL |
read(cunit) (filenWetsGlobal(k), k=1,nr) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
225 |
ADMTLM_DSVD2MODEL |
read(cunit) (filenWetwGlobal(k), k=1,nr) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
227 |
ADMTLM_DSVD2MODEL |
read(cunit) (filenWetvGlobal(k), k=1,nr) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
232 |
ADMTLM_DSVD2MODEL |
read(cunit) ((filenWetobcsnGlo(k,iobcs), |
|
./pkg/admtlm/admtlm_dsvd2model.F |
233 |
ADMTLM_DSVD2MODEL |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
236 |
ADMTLM_DSVD2MODEL |
read(cunit) ((filenWetobcssGlo(k,iobcs), |
|
./pkg/admtlm/admtlm_dsvd2model.F |
237 |
ADMTLM_DSVD2MODEL |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
240 |
ADMTLM_DSVD2MODEL |
read(cunit) ((filenWetobcswGlo(k,iobcs), |
|
./pkg/admtlm/admtlm_dsvd2model.F |
241 |
ADMTLM_DSVD2MODEL |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
244 |
ADMTLM_DSVD2MODEL |
read(cunit) ((filenWetobcseGlo(k,iobcs), |
|
./pkg/admtlm/admtlm_dsvd2model.F |
245 |
ADMTLM_DSVD2MODEL |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
267 |
ADMTLM_DSVD2MODEL |
do k = 1, nr |
|
./pkg/admtlm/admtlm_dsvd2model.F |
268 |
ADMTLM_DSVD2MODEL |
if ( filenWetcGlobal(k) .NE. nWetcGlobal(k) .OR. |
|
./pkg/admtlm/admtlm_dsvd2model.F |
269 |
ADMTLM_DSVD2MODEL |
& filenWetsGlobal(k) .NE. nWetsGlobal(k) .OR. |
|
./pkg/admtlm/admtlm_dsvd2model.F |
270 |
ADMTLM_DSVD2MODEL |
& filenWetwGlobal(k) .NE. nWetwGlobal(k) .OR. |
|
./pkg/admtlm/admtlm_dsvd2model.F |
271 |
ADMTLM_DSVD2MODEL |
& filenWetvGlobal(k) .NE. nWetvGlobal(k) ) then |
|
./pkg/admtlm/admtlm_dsvd2model.F |
272 |
ADMTLM_DSVD2MODEL |
print *, 'WARNING: wrong nWet?Global for k = ', k |
|
./pkg/admtlm/admtlm_dsvd2model.F |
281 |
ADMTLM_DSVD2MODEL |
do k = 1, nr |
|
./pkg/admtlm/admtlm_dsvd2model.F |
282 |
ADMTLM_DSVD2MODEL |
if (filenWetobcsnGlo(k,iobcs) .NE. |
|
./pkg/admtlm/admtlm_dsvd2model.F |
283 |
ADMTLM_DSVD2MODEL |
& nWetobcsnGlo(k,iobcs)) then |
|
./pkg/admtlm/admtlm_dsvd2model.F |
284 |
ADMTLM_DSVD2MODEL |
print *, 'WARNING: OBCSN wrong nWet?Global for k = ', k |
|
./pkg/admtlm/admtlm_dsvd2model.F |
293 |
ADMTLM_DSVD2MODEL |
do k = 1, nr |
|
./pkg/admtlm/admtlm_dsvd2model.F |
294 |
ADMTLM_DSVD2MODEL |
if (filenWetobcssGlo(k,iobcs) .NE. |
|
./pkg/admtlm/admtlm_dsvd2model.F |
295 |
ADMTLM_DSVD2MODEL |
& nWetobcssGlo(k,iobcs)) then |
|
./pkg/admtlm/admtlm_dsvd2model.F |
296 |
ADMTLM_DSVD2MODEL |
print *, 'WARNING: OBCSS wrong nWet?Global for k = ', k |
|
./pkg/admtlm/admtlm_dsvd2model.F |
305 |
ADMTLM_DSVD2MODEL |
do k = 1, nr |
|
./pkg/admtlm/admtlm_dsvd2model.F |
306 |
ADMTLM_DSVD2MODEL |
if (filenWetobcswGlo(k,iobcs) .NE. |
|
./pkg/admtlm/admtlm_dsvd2model.F |
307 |
ADMTLM_DSVD2MODEL |
& nWetobcswGlo(k,iobcs)) then |
|
./pkg/admtlm/admtlm_dsvd2model.F |
308 |
ADMTLM_DSVD2MODEL |
print *, 'WARNING: OBCSW wrong nWet?Global for k = ', k |
|
./pkg/admtlm/admtlm_dsvd2model.F |
317 |
ADMTLM_DSVD2MODEL |
do k = 1, nr |
|
./pkg/admtlm/admtlm_dsvd2model.F |
318 |
ADMTLM_DSVD2MODEL |
if (filenWetobcseGlo(k,iobcs) .NE. |
|
./pkg/admtlm/admtlm_dsvd2model.F |
319 |
ADMTLM_DSVD2MODEL |
& nWetobcseGlo(k,iobcs)) then |
|
./pkg/admtlm/admtlm_dsvd2model.F |
320 |
ADMTLM_DSVD2MODEL |
print *, 'WARNING: OBCSE wrong nWet?Global for k = ', k |
|
./pkg/admtlm/admtlm_dsvd2model.F |
72 |
ADMTLM_DSVD2MODEL |
integer i, j, k |
|
./pkg/admtlm/admtlm_init_fixed.F |
28 |
ADMTLM_INIT_FIXED |
integer i, j, k |
|
./pkg/admtlm/admtlm_init_fixed.F |
42 |
ADMTLM_INIT_FIXED |
DO k=1,Nr |
|
./pkg/admtlm/admtlm_init_fixed.F |
43 |
ADMTLM_INIT_FIXED |
wtheta(k,bi,bj) = 1. / (1. _d 0)**2 |
|
./pkg/admtlm/admtlm_init_fixed.F |
44 |
ADMTLM_INIT_FIXED |
wsalt (k,bi,bj) = 1. / (0.1 _d 0)**2 |
|
./pkg/admtlm/admtlm_init_fixed.F |
45 |
ADMTLM_INIT_FIXED |
wuvvel(k,bi,bj) = 1. / (0.01 _d 0)**2 |
|
./pkg/admtlm/admtlm_map.F |
28 |
ADMTLM_MAP |
integer i, j, k |
|
./pkg/admtlm/admtlm_map.F |
35 |
ADMTLM_MAP |
DO k=1,4*Nr |
|
./pkg/admtlm/admtlm_map.F |
36 |
ADMTLM_MAP |
adobjf_state_final(i,j,bi,bj,k) = |
|
./pkg/admtlm/admtlm_map.F |
37 |
ADMTLM_MAP |
& g_objf_state_final(i,j,bi,bj,k) |
|
./pkg/admtlm/admtlm_metric.F |
31 |
ADMTLM_METRIC |
integer i, j, k |
|
./pkg/admtlm/admtlm_metric.F |
55 |
ADMTLM_METRIC |
DO k=1,Nr |
|
./pkg/admtlm/admtlm_metric.F |
57 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,k+0*Nr)**2/stdDevtheta**2 |
|
./pkg/admtlm/admtlm_metric.F |
58 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,k+1*Nr)**2/stdDevsalt**2 |
|
./pkg/admtlm/admtlm_metric.F |
59 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,k+2*Nr)**2/stdDevuvel**2 |
|
./pkg/admtlm/admtlm_metric.F |
60 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,k+3*Nr)**2/stdDevvvel**2 |
|
./pkg/admtlm/admtlm_model2dsvd.F |
216 |
ADMTLM_MODEL2DSVD |
write(cunit) (nWetcGlobal(k), k=1,nr) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
217 |
ADMTLM_MODEL2DSVD |
write(cunit) (nWetsGlobal(k), k=1,nr) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
218 |
ADMTLM_MODEL2DSVD |
write(cunit) (nWetwGlobal(k), k=1,nr) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
220 |
ADMTLM_MODEL2DSVD |
write(cunit) (nWetvGlobal(k), k=1,nr) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
224 |
ADMTLM_MODEL2DSVD |
write(cunit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
227 |
ADMTLM_MODEL2DSVD |
write(cunit) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
230 |
ADMTLM_MODEL2DSVD |
write(cunit) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
233 |
ADMTLM_MODEL2DSVD |
write(cunit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
70 |
ADMTLM_MODEL2DSVD |
integer i, j, k |
|
./pkg/aim_v23/aim_aim2dyn.F |
104 |
AIM_AIM2DYN |
DO k=1,Nr |
|
./pkg/aim_v23/aim_aim2dyn.F |
105 |
AIM_AIM2DYN |
Katm = _KD2KA( k ) |
|
./pkg/aim_v23/aim_aim2dyn.F |
106 |
AIM_AIM2DYN |
conv_T2theta = (atm_Po/rC(k))**atm_kappa |
|
./pkg/aim_v23/aim_aim2dyn.F |
114 |
AIM_AIM2DYN |
aim_dTdt(i,j,k,bi,bj) = ( TT_CNV(I2,Katm,myThid) |
|
./pkg/aim_v23/aim_aim2dyn.F |
121 |
AIM_AIM2DYN |
aim_dSdt(i,j,k,bi,bj) = QT_CNV(I2,Katm,myThid) |
|
./pkg/aim_v23/aim_aim2dyn.F |
130 |
AIM_AIM2DYN |
aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
140 |
AIM_AIM2DYN |
& k, Nr, 1,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_aim2dyn.F |
142 |
AIM_AIM2DYN |
& k, Nr, 1,bi,bj, myThid ) |
|
./pkg/aim_v23/aim_aim2dyn.F |
152 |
AIM_AIM2DYN |
aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
153 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
155 |
AIM_AIM2DYN |
aim_dSdt(i,j,k,bi,bj) = aim_dSdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
156 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
163 |
AIM_AIM2DYN |
IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN |
|
./pkg/aim_v23/aim_aim2dyn.F |
164 |
AIM_AIM2DYN |
aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
166 |
AIM_AIM2DYN |
aim_dSdt(i,j,k,bi,bj) = aim_dSdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
169 |
AIM_AIM2DYN |
aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
170 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
171 |
AIM_AIM2DYN |
aim_dSdt(i,j,k,bi,bj) = aim_dSdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
172 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
183 |
AIM_AIM2DYN |
aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
184 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
185 |
AIM_AIM2DYN |
aim_dSdt(i,j,k,bi,bj) = aim_dSdt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
186 |
AIM_AIM2DYN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
65 |
AIM_AIM2DYN |
INTEGER i,j,k |
|
./pkg/aim_v23/aim_aim2land.F |
61 |
AIM_AIM2LAND |
INTEGER i,j,k,I2 |
|
./pkg/aim_v23/aim_aim2land.F |
82 |
AIM_AIM2LAND |
k = 0 |
|
./pkg/aim_v23/aim_aim2land.F |
83 |
AIM_AIM2LAND |
IF (aim_splitSIOsFx) k = 1 |
|
./pkg/aim_v23/aim_aim2land.F |
90 |
AIM_AIM2LAND |
& SSR(I2,k,myThid) |
|
./pkg/aim_v23/aim_aim2land.F |
91 |
AIM_AIM2LAND |
& - SLR(I2,k,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
364 |
AIM_DIAGNOSTICS |
DO k=1,Nr |
|
./pkg/aim_v23/aim_diagnostics.F |
365 |
AIM_DIAGNOSTICS |
Katm = _KD2KA( k ) |
|
./pkg/aim_v23/aim_diagnostics.F |
369 |
AIM_DIAGNOSTICS |
aimRHtave(i,j,k,bi,bj) = aimRHtave(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_do_physics.F |
100 |
AIM_DO_PHYSICS |
& salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_do_physics.F |
101 |
AIM_DO_PHYSICS |
& + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(k) |
|
./pkg/aim_v23/aim_do_physics.F |
102 |
AIM_DO_PHYSICS |
& *hFacC(i,j,Nr,bi,bj)*recip_hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_do_physics.F |
75 |
AIM_DO_PHYSICS |
INTEGER i,j,k,I2 |
|
./pkg/aim_v23/aim_do_physics.F |
98 |
AIM_DO_PHYSICS |
k = kSurfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_do_physics.F |
99 |
AIM_DO_PHYSICS |
IF (k.LE.Nr) |
|
./pkg/aim_v23/aim_dyn2aim.F |
110 |
AIM_DYN2AIM |
DO k = 1,Nr |
|
./pkg/aim_v23/aim_dyn2aim.F |
111 |
AIM_DYN2AIM |
Katm = _KD2KA( k ) |
|
./pkg/aim_v23/aim_dyn2aim.F |
115 |
AIM_DYN2AIM |
dpFac(I2,Katm) = h0FacC(i,j,k,bi,bj)*rStarFacC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
121 |
AIM_DYN2AIM |
DO k = 1,Nr |
|
./pkg/aim_v23/aim_dyn2aim.F |
122 |
AIM_DYN2AIM |
Katm = _KD2KA( k ) |
|
./pkg/aim_v23/aim_dyn2aim.F |
126 |
AIM_DYN2AIM |
IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN |
|
./pkg/aim_v23/aim_dyn2aim.F |
129 |
AIM_DYN2AIM |
dpFac(I2,Katm) = hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
140 |
AIM_DYN2AIM |
DO k = 1,Nr |
|
./pkg/aim_v23/aim_dyn2aim.F |
141 |
AIM_DYN2AIM |
Katm = _KD2KA( k ) |
|
./pkg/aim_v23/aim_dyn2aim.F |
145 |
AIM_DYN2AIM |
dpFac(I2,Katm) = hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
162 |
AIM_DYN2AIM |
DO k = 1,Nr |
|
./pkg/aim_v23/aim_dyn2aim.F |
163 |
AIM_DYN2AIM |
conv_theta2T = (rC(k)/atm_Po)**atm_kappa |
|
./pkg/aim_v23/aim_dyn2aim.F |
164 |
AIM_DYN2AIM |
Katm = _KD2KA( k ) |
|
./pkg/aim_v23/aim_dyn2aim.F |
168 |
AIM_DYN2AIM |
IF ( maskC(i,j,k,bi,bj).EQ.oneRS ) THEN |
|
./pkg/aim_v23/aim_dyn2aim.F |
172 |
AIM_DYN2AIM |
TA(I2,Katm) = theta(i,j,k,bi,bj)*conv_theta2T |
|
./pkg/aim_v23/aim_dyn2aim.F |
176 |
AIM_DYN2AIM |
QA(I2,Katm) = MAX( salt(i,j,k,bi,bj), zeroRL ) |
|
./pkg/aim_v23/aim_dyn2aim.F |
178 |
AIM_DYN2AIM |
ThA(I2,Katm) = theta(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
202 |
AIM_DYN2AIM |
k = kSurfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
203 |
AIM_DYN2AIM |
IF (k.LE.Nr) THEN |
|
./pkg/aim_v23/aim_dyn2aim.F |
205 |
AIM_DYN2AIM |
& uVel(i,j,k,bi,bj)*uVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
206 |
AIM_DYN2AIM |
& + uVel(i+1,j,k,bi,bj)*uVel(i+1,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
207 |
AIM_DYN2AIM |
& + vVel(i,j,k,bi,bj)*vVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
208 |
AIM_DYN2AIM |
& + vVel(i,j+1,k,bi,bj)*vVel(i,j+1,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
217 |
AIM_DYN2AIM |
DO k = 1,Nr |
|
./pkg/aim_v23/aim_dyn2aim.F |
218 |
AIM_DYN2AIM |
Katm = _KD2KA( k ) |
|
./pkg/aim_v23/aim_dyn2aim.F |
230 |
AIM_DYN2AIM |
& i,j,k,bi,bj,myThid,I2,xC(i,j,bi,bj),yC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
252 |
AIM_DYN2AIM |
k = kGrd(I2) |
|
./pkg/aim_v23/aim_dyn2aim.F |
253 |
AIM_DYN2AIM |
IF (k.GT.1) THEN |
|
./pkg/aim_v23/aim_dyn2aim.F |
257 |
AIM_DYN2AIM |
WVSurf(I2,myThid) = (LOG(PSA(I2))-SIGL(k))*WVI(k-1,1) |
|
./pkg/aim_v23/aim_dyn2aim.F |
68 |
AIM_DYN2AIM |
INTEGER i, j, I2, k, Katm |
|
./pkg/aim_v23/aim_dyn2aim.F |
96 |
AIM_DYN2AIM |
k = kSurfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
97 |
AIM_DYN2AIM |
IF ( k.LE.Nr ) THEN |
|
./pkg/aim_v23/aim_initialise.F |
49 |
AIM_INITIALISE |
INTEGER i, j, k |
|
./pkg/aim_v23/aim_initialise.F |
59 |
AIM_INITIALISE |
DO k=1,Nr |
|
./pkg/aim_v23/aim_initialise.F |
60 |
AIM_INITIALISE |
Katm = _KD2KA( k ) |
|
./pkg/aim_v23/aim_initialise.F |
61 |
AIM_INITIALISE |
HSG(Katm) = rF(k)/pGround |
|
./pkg/aim_v23/aim_initialise.F |
63 |
AIM_INITIALISE |
k=Nr+1 |
|
./pkg/aim_v23/aim_initialise.F |
64 |
AIM_INITIALISE |
Katm = _KD2KA( k ) |
|
./pkg/aim_v23/aim_initialise.F |
65 |
AIM_INITIALISE |
HSG(Katm) = rF(k)/pGround |
|
./pkg/aim_v23/aim_land2aim.F |
101 |
AIM_LAND2AIM |
DO k=1,land_nLev |
|
./pkg/aim_v23/aim_land2aim.F |
104 |
AIM_LAND2AIM |
land_groundT(i,j,k,bi,bj) = aimTld(i,j)-celsius2K |
|
./pkg/aim_v23/aim_land2aim.F |
147 |
AIM_LAND2AIM |
DO k=1,kFillW |
|
./pkg/aim_v23/aim_land2aim.F |
150 |
AIM_LAND2AIM |
land_groundW(i,j,k,bi,bj) = aimSWA(i,j) |
|
./pkg/aim_v23/aim_land2aim.F |
161 |
AIM_LAND2AIM |
DO k=1,land_nLev |
|
./pkg/aim_v23/aim_land2aim.F |
163 |
AIM_LAND2AIM |
& *land_groundW(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_land2aim.F |
166 |
AIM_LAND2AIM |
land_enthalp(i,j,k,bi,bj) = |
|
./pkg/aim_v23/aim_land2aim.F |
167 |
AIM_LAND2AIM |
& grd_HeatCp*land_groundT(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_land2aim.F |
84 |
AIM_LAND2AIM |
INTEGER i,j,k |
|
./pkg/aim_v23/aim_surf_bc.F |
415 |
AIM_SURF_BC |
DO k=1,3 |
|
./pkg/aim_v23/aim_surf_bc.F |
417 |
AIM_SURF_BC |
dTsurf(J,k,myThid) = 0. |
|
./pkg/aim_v23/aim_surf_bc.F |
86 |
AIM_SURF_BC |
INTEGER i,j,I2,k, nm0 |
|
./pkg/aim_v23/aim_tendency_apply.F |
101 |
AIM_TENDENCY_APPLY_U |
& -uVel(i,j,k,bi,bj)*uVel(i,j,k,bi,bj)/aim_dragStrato |
|
./pkg/aim_v23/aim_tendency_apply.F |
102 |
AIM_TENDENCY_APPLY_U |
& *hFacW(i,j,k,bi,bj)*drF(k)*rUnit2mass |
|
./pkg/aim_v23/aim_tendency_apply.F |
106 |
AIM_TENDENCY_APPLY_U |
ELSEIF ( k.EQ.1 ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
109 |
AIM_TENDENCY_APPLY_U |
IF ( maskW(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
112 |
AIM_TENDENCY_APPLY_U |
& * 0.5 _d 0 * uVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
114 |
AIM_TENDENCY_APPLY_U |
& + uStr_tmp*gravity*recip_drF(k) |
|
./pkg/aim_v23/aim_tendency_apply.F |
115 |
AIM_TENDENCY_APPLY_U |
& * recip_hFacW(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
120 |
AIM_TENDENCY_APPLY_U |
aim_dKE(i,j) = uStr_tmp * uVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
130 |
AIM_TENDENCY_APPLY_U |
IF ( maskW(i,j,k-1,bi,bj) .EQ. 0. |
|
./pkg/aim_v23/aim_tendency_apply.F |
131 |
AIM_TENDENCY_APPLY_U |
& .AND. maskW(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
133 |
AIM_TENDENCY_APPLY_U |
& -( (1.-maskC(i-1,j,k-1,bi,bj))*aim_drag(i-1,j,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
134 |
AIM_TENDENCY_APPLY_U |
& +(1.-maskC( i ,j,k-1,bi,bj))*aim_drag( i ,j,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
135 |
AIM_TENDENCY_APPLY_U |
& )* 0.5 _d 0 * uVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
137 |
AIM_TENDENCY_APPLY_U |
& + uStr_tmp*gravity*recip_drF(k) |
|
./pkg/aim_v23/aim_tendency_apply.F |
138 |
AIM_TENDENCY_APPLY_U |
& * recip_hFacW(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
143 |
AIM_TENDENCY_APPLY_U |
aim_dKE(i,j) = uStr_tmp * uVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
157 |
AIM_TENDENCY_APPLY_U |
frictionHeating(i,j,k,bi,bj) = frictionHeating(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
166 |
AIM_TENDENCY_APPLY_U |
IF ( aim_taveFreq.NE.0 .AND. k.EQ.Nr ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
173 |
AIM_TENDENCY_APPLY_U |
IF ( k.EQ.1 ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
187 |
AIM_TENDENCY_APPLY_U |
IF ( k.EQ.Nr ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
19 |
AIM_TENDENCY_APPLY_U |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/aim_v23/aim_tendency_apply.F |
207 |
AIM_TENDENCY_APPLY_V |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/aim_v23/aim_tendency_apply.F |
244 |
AIM_TENDENCY_APPLY_V |
INTEGER k, bi, bj |
|
./pkg/aim_v23/aim_tendency_apply.F |
268 |
AIM_TENDENCY_APPLY_V |
IF ( myTime.EQ.startTime .AND. k.EQ.1 ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
280 |
AIM_TENDENCY_APPLY_V |
IF ( k.EQ.Nr .AND. aim_dragStrato.GT.0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
286 |
AIM_TENDENCY_APPLY_V |
& -maskS(i,j,k,bi,bj)*vVel(i,j,k,bi,bj)/aim_dragStrato |
|
./pkg/aim_v23/aim_tendency_apply.F |
289 |
AIM_TENDENCY_APPLY_V |
& -vVel(i,j,k,bi,bj)*vVel(i,j,k,bi,bj)/aim_dragStrato |
|
./pkg/aim_v23/aim_tendency_apply.F |
290 |
AIM_TENDENCY_APPLY_V |
& *hFacS(i,j,k,bi,bj)*drF(k)*rUnit2mass |
|
./pkg/aim_v23/aim_tendency_apply.F |
294 |
AIM_TENDENCY_APPLY_V |
ELSEIF ( k.EQ.1 ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
297 |
AIM_TENDENCY_APPLY_V |
IF ( maskS(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
300 |
AIM_TENDENCY_APPLY_V |
& * 0.5 _d 0 * vVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
302 |
AIM_TENDENCY_APPLY_V |
& + vStr_tmp*gravity*recip_drF(k) |
|
./pkg/aim_v23/aim_tendency_apply.F |
303 |
AIM_TENDENCY_APPLY_V |
& * recip_hFacS(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
308 |
AIM_TENDENCY_APPLY_V |
aim_dKE(i,j) = vStr_tmp * vVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
318 |
AIM_TENDENCY_APPLY_V |
IF ( maskS(i,j,k-1,bi,bj) .EQ. 0. |
|
./pkg/aim_v23/aim_tendency_apply.F |
319 |
AIM_TENDENCY_APPLY_V |
& .AND. maskS(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
321 |
AIM_TENDENCY_APPLY_V |
& -( (1.-maskC(i,j-1,k-1,bi,bj))*aim_drag(i,j-1,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
322 |
AIM_TENDENCY_APPLY_V |
& +(1.-maskC(i, j ,k-1,bi,bj))*aim_drag(i, j ,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
323 |
AIM_TENDENCY_APPLY_V |
& )* 0.5 _d 0 * vVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
325 |
AIM_TENDENCY_APPLY_V |
& + vStr_tmp*gravity*recip_drF(k) |
|
./pkg/aim_v23/aim_tendency_apply.F |
326 |
AIM_TENDENCY_APPLY_V |
& * recip_hFacS(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
331 |
AIM_TENDENCY_APPLY_V |
aim_dKE(i,j) = vStr_tmp * vVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
345 |
AIM_TENDENCY_APPLY_V |
frictionHeating(i,j,k,bi,bj) = frictionHeating(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
354 |
AIM_TENDENCY_APPLY_V |
IF ( aim_taveFreq.NE.0 .AND. k.EQ.Nr ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
361 |
AIM_TENDENCY_APPLY_V |
IF ( k.EQ.1 ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
375 |
AIM_TENDENCY_APPLY_V |
IF ( k.EQ.Nr ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
395 |
AIM_TENDENCY_APPLY_T |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/aim_v23/aim_tendency_apply.F |
427 |
AIM_TENDENCY_APPLY_T |
INTEGER k, bi, bj |
|
./pkg/aim_v23/aim_tendency_apply.F |
441 |
AIM_TENDENCY_APPLY_T |
gT_arr(i,j) = maskC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
442 |
AIM_TENDENCY_APPLY_T |
& *( gT_arr(i,j) + aim_dTdt(i,j,k,bi,bj) ) |
|
./pkg/aim_v23/aim_tendency_apply.F |
457 |
AIM_TENDENCY_APPLY_S |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/aim_v23/aim_tendency_apply.F |
489 |
AIM_TENDENCY_APPLY_S |
INTEGER k, bi, bj |
|
./pkg/aim_v23/aim_tendency_apply.F |
503 |
AIM_TENDENCY_APPLY_S |
gS_arr(i,j) = maskC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
504 |
AIM_TENDENCY_APPLY_S |
& *( gS_arr(i,j) + aim_dSdt(i,j,k,bi,bj) ) |
|
./pkg/aim_v23/aim_tendency_apply.F |
56 |
AIM_TENDENCY_APPLY_U |
INTEGER k, bi, bj |
|
./pkg/aim_v23/aim_tendency_apply.F |
80 |
AIM_TENDENCY_APPLY_U |
IF ( myTime.EQ.startTime .AND. k.EQ.1 ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
92 |
AIM_TENDENCY_APPLY_U |
IF ( k.EQ.Nr .AND. aim_dragStrato.GT.0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
98 |
AIM_TENDENCY_APPLY_U |
& -maskW(i,j,k,bi,bj)*uVel(i,j,k,bi,bj)/aim_dragStrato |
|
./pkg/aim_v23/aim_write_local.F |
52 |
AIM_WRITE_LOCAL |
INTEGER i, j, k, Katm |
|
./pkg/aim_v23/aim_write_local.F |
73 |
AIM_WRITE_LOCAL |
DO k=1,Nr |
|
./pkg/aim_v23/aim_write_local.F |
74 |
AIM_WRITE_LOCAL |
Katm = _KD2KA( k ) |
|
./pkg/aim_v23/aim_write_local.F |
77 |
AIM_WRITE_LOCAL |
tmpFld(i,j,k) = field(i,j,Katm) |
|
./pkg/aim_v23/aim_write_local.F |
83 |
AIM_WRITE_LOCAL |
DO k=1,nNr |
|
./pkg/aim_v23/aim_write_local.F |
86 |
AIM_WRITE_LOCAL |
tmpFld(i,j,k) = field(i,j,k) |
|
./pkg/aim_v23/aim_write_phys.F |
112 |
AIM_WRITE_PHYS |
DO k=1,Nr |
|
./pkg/aim_v23/aim_write_phys.F |
113 |
AIM_WRITE_PHYS |
Katm = _KD2KA( k ) |
|
./pkg/aim_v23/aim_write_phys.F |
116 |
AIM_WRITE_PHYS |
tmpFld(i,j,k) = field(i,j,Katm,ith) |
|
./pkg/aim_v23/aim_write_phys.F |
122 |
AIM_WRITE_PHYS |
DO k=1,nNr |
|
./pkg/aim_v23/aim_write_phys.F |
125 |
AIM_WRITE_PHYS |
tmpFld(i,j,k) = field(i,j,k,ith) |
|
./pkg/aim_v23/aim_write_phys.F |
55 |
AIM_WRITE_PHYS |
INTEGER i, j, k, Katm, nLoc |
|
./pkg/aim_v23/phy_convmf.F |
176 |
CONVMF |
DO k=Ktmp-2,2,-1 |
|
./pkg/aim_v23/phy_inphys.F |
109 |
INPHYS |
& k,SIG(k),SIGH(k),SIGL(k),WVI(K,1),WVI(K,2) |
|
./pkg/atm_phys/atm_phys_driver.F |
141 |
ATM_PHYS_DRIVER |
INTEGER k, kc |
|
./pkg/atm_phys/atm_phys_driver.F |
398 |
ATM_PHYS_DRIVER |
DO k=1,Nr+1 |
|
./pkg/atm_phys/atm_phys_driver.F |
399 |
ATM_PHYS_DRIVER |
lw_net_3d(:,:,k) = lw_net_3d(:,:,k) + adj_lw_up |
|
./pkg/atm_phys/atm_phys_driver.F |
402 |
ATM_PHYS_DRIVER |
DO k=1,Nr |
|
./pkg/atm_phys/atm_phys_driver.F |
403 |
ATM_PHYS_DRIVER |
kc = Nr-k+1 |
|
./pkg/atm_phys/atm_phys_driver.F |
407 |
ATM_PHYS_DRIVER |
atmPhys_dT(1:sNx,1:sNy,kc,bi,bj) = tdt3d(:,:,k) |
|
./pkg/atm_phys/atm_phys_driver.F |
413 |
ATM_PHYS_DRIVER |
atmPhys_dT(1:sNx,1:sNy,kc,bi,bj) = tdt3d(:,:,k) |
|
./pkg/atm_phys/atm_phys_driver.F |
416 |
ATM_PHYS_DRIVER |
atmPhys_dQ(1:sNx,1:sNy,kc,bi,bj) = qdt3d(:,:,k) |
|
./pkg/atm_phys/atm_phys_driver.F |
419 |
ATM_PHYS_DRIVER |
dpFac(:,:) = ( pHalf3d(:,:,k+1) - pHalf3d(:,:,k) |
|
./pkg/atm_phys/atm_phys_driver.F |
421 |
ATM_PHYS_DRIVER |
atmPhys_dU(1:sNx,1:sNy,kc,bi,bj) = udt3d(:,:,k)*dpFac(:,:) |
|
./pkg/atm_phys/atm_phys_driver.F |
422 |
ATM_PHYS_DRIVER |
atmPhys_dV(1:sNx,1:sNy,kc,bi,bj) = vdt3d(:,:,k)*dpFac(:,:) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
103 |
ATM_PHYS_DYN2PHYS |
DO k=1,Nr |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
104 |
ATM_PHYS_DYN2PHYS |
kc = Nr-k+1 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
105 |
ATM_PHYS_DYN2PHYS |
pFull3d(:,:,k) = rC(kc) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
107 |
ATM_PHYS_DYN2PHYS |
DO k=1,Nr+1 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
108 |
ATM_PHYS_DYN2PHYS |
ki = Nr-k+2 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
109 |
ATM_PHYS_DYN2PHYS |
pHalf3d(:,:,k) = rF(ki) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
114 |
ATM_PHYS_DYN2PHYS |
DO k=1,Nr |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
115 |
ATM_PHYS_DYN2PHYS |
kc = Nr-k+1 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
116 |
ATM_PHYS_DYN2PHYS |
zFull3d(:,:,k) = ( phiRef(2*kc) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
120 |
ATM_PHYS_DYN2PHYS |
t3d(:,:,k) = theta(1:sNx,1:sNy,kc,bi,bj)*conv_theta2T |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
121 |
ATM_PHYS_DYN2PHYS |
q3d(:,:,k) = MAX( salt(1:sNx,1:sNy,kc,bi,bj), 0. _d 0 ) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
122 |
ATM_PHYS_DYN2PHYS |
u3d(:,:,k) = ( uVel(1:sNx, 1:sNy,kc,bi,bj) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
124 |
ATM_PHYS_DYN2PHYS |
v3d(:,:,k) = ( vVel(1:sNx,1:sNy, kc,bi,bj) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
127 |
ATM_PHYS_DYN2PHYS |
zFull3d(:,:,k) = zFull3d(:,:,k) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
134 |
ATM_PHYS_DYN2PHYS |
t3d(:,:,k) = t3d(:,:,k)*pStarFacK(1:sNx,1:sNy,bi,bj) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
144 |
ATM_PHYS_DYN2PHYS |
DO k=1,Nr+1 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
145 |
ATM_PHYS_DYN2PHYS |
ki = Nr-k+2 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
146 |
ATM_PHYS_DYN2PHYS |
zHalf3d(:,:,k) = phiRef(2*ki-1)*recip_gravity |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
148 |
ATM_PHYS_DYN2PHYS |
DO k=1,Nr |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
149 |
ATM_PHYS_DYN2PHYS |
kc = Nr-k+1 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
151 |
ATM_PHYS_DYN2PHYS |
zHalf3d(:,:,k) = zHalf3d(:,:,k) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
156 |
ATM_PHYS_DYN2PHYS |
zHalf3d(:,:,k) = zHalf3d(:,:,k) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
64 |
ATM_PHYS_DYN2PHYS |
INTEGER k, kc, ki, kp |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
75 |
ATM_PHYS_DYN2PHYS |
DO k=1,Nr |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
76 |
ATM_PHYS_DYN2PHYS |
kc = Nr-k+1 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
77 |
ATM_PHYS_DYN2PHYS |
pFull3d(:,:,k) = rF(Nr+1) + ( rC(kc) - rF(Nr+1) ) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
80 |
ATM_PHYS_DYN2PHYS |
DO k=1,Nr+1 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
81 |
ATM_PHYS_DYN2PHYS |
ki = Nr-k+2 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
82 |
ATM_PHYS_DYN2PHYS |
pHalf3d(:,:,k) = rF(Nr+1) + ( rF(ki) - rF(Nr+1) ) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
86 |
ATM_PHYS_DYN2PHYS |
DO k=1,Nr |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
87 |
ATM_PHYS_DYN2PHYS |
kc = Nr-k+1 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
88 |
ATM_PHYS_DYN2PHYS |
pFull3d(:,:,k) = rF(Nr+1) + ( rC(kc) - rF(Nr+1) ) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
91 |
ATM_PHYS_DYN2PHYS |
DO k=1,Nr+1 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
92 |
ATM_PHYS_DYN2PHYS |
ki = Nr-k+2 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
93 |
ATM_PHYS_DYN2PHYS |
pHalf3d(:,:,k) = rF(Nr+1) + ( rF(ki) - rF(Nr+1) ) |
|
./pkg/atm_phys/atm_phys_init_varia.F |
34 |
ATM_PHYS_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/atm_phys/atm_phys_init_varia.F |
41 |
ATM_PHYS_INIT_VARIA |
DO k=1,Nr |
|
./pkg/atm_phys/atm_phys_init_varia.F |
44 |
ATM_PHYS_INIT_VARIA |
atmPhys_dT(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/atm_phys/atm_phys_init_varia.F |
45 |
ATM_PHYS_INIT_VARIA |
atmPhys_dQ(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/atm_phys/atm_phys_init_varia.F |
46 |
ATM_PHYS_INIT_VARIA |
atmPhys_dU(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/atm_phys/atm_phys_init_varia.F |
47 |
ATM_PHYS_INIT_VARIA |
atmPhys_dV(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/atm_phys/atm_phys_readparms.F |
34 |
ATM_PHYS_READPARMS |
INTEGER k |
|
./pkg/atm_phys/atm_phys_readparms.F |
62 |
ATM_PHYS_READPARMS |
DO k=1,Nr |
|
./pkg/atm_phys/atm_phys_readparms.F |
63 |
ATM_PHYS_READPARMS |
atmPhys_dampUVfac(k) = 1. _d 0 |
|
./pkg/atm_phys/atm_phys_readparms.F |
94 |
ATM_PHYS_READPARMS |
DO k=1,Nr |
|
./pkg/atm_phys/atm_phys_readparms.F |
95 |
ATM_PHYS_READPARMS |
atmPhys_dampUVfac(k) = 0. _d 0 |
|
./pkg/atm_phys/atm_phys_readparms.F |
98 |
ATM_PHYS_READPARMS |
DO k=1,Nr |
|
./pkg/atm_phys/atm_phys_readparms.F |
99 |
ATM_PHYS_READPARMS |
atmPhys_dampUVfac(k) = atmPhys_dampUVfac(k)/atmPhys_tauDampUV |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
107 |
ATM_PHYS_TENDENCY_APPLY_V |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
136 |
ATM_PHYS_TENDENCY_APPLY_V |
INTEGER k, bi, bj |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
152 |
ATM_PHYS_TENDENCY_APPLY_V |
& + halfRL *( atmPhys_dV(i,j-1,k,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
153 |
ATM_PHYS_TENDENCY_APPLY_V |
& + atmPhys_dV(i, j ,k,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
154 |
ATM_PHYS_TENDENCY_APPLY_V |
& )*recip_hFacS(i,j,k,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
159 |
ATM_PHYS_TENDENCY_APPLY_V |
IF ( atmPhys_dampUVfac(k).GT.zeroRL ) THEN |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
163 |
ATM_PHYS_TENDENCY_APPLY_V |
& - maskS(i,j,k,bi,bj)*vVel(i,j,k,bi,bj)*atmPhys_dampUVfac(k) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
165 |
ATM_PHYS_TENDENCY_APPLY_V |
& - vVel(i,j,k,bi,bj)*vVel(i,j,k,bi,bj)*atmPhys_dampUVfac(k) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
166 |
ATM_PHYS_TENDENCY_APPLY_V |
& *hFacS(i,j,k,bi,bj)*drF(k)*rUnit2mass |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
173 |
ATM_PHYS_TENDENCY_APPLY_V |
frictionHeating(i,j,k,bi,bj) = frictionHeating(i,j,k,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
195 |
ATM_PHYS_TENDENCY_APPLY_T |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
19 |
ATM_PHYS_TENDENCY_APPLY_U |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
222 |
ATM_PHYS_TENDENCY_APPLY_T |
INTEGER k, bi, bj |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
235 |
ATM_PHYS_TENDENCY_APPLY_T |
& + maskC(i,j,k,bi,bj) * atmPhys_dT(i,j,k,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
250 |
ATM_PHYS_TENDENCY_APPLY_S |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
277 |
ATM_PHYS_TENDENCY_APPLY_S |
INTEGER k, bi, bj |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
290 |
ATM_PHYS_TENDENCY_APPLY_S |
& + maskC(i,j,k,bi,bj) * atmPhys_dQ(i,j,k,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
48 |
ATM_PHYS_TENDENCY_APPLY_U |
INTEGER k, bi, bj |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
64 |
ATM_PHYS_TENDENCY_APPLY_U |
& + halfRL *( atmPhys_dU(i-1,j,k,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
65 |
ATM_PHYS_TENDENCY_APPLY_U |
& + atmPhys_dU( i ,j,k,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
66 |
ATM_PHYS_TENDENCY_APPLY_U |
& )*recip_hFacW(i,j,k,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
71 |
ATM_PHYS_TENDENCY_APPLY_U |
IF ( atmPhys_dampUVfac(k).GT.zeroRL ) THEN |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
75 |
ATM_PHYS_TENDENCY_APPLY_U |
& - maskW(i,j,k,bi,bj)*uVel(i,j,k,bi,bj)*atmPhys_dampUVfac(k) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
77 |
ATM_PHYS_TENDENCY_APPLY_U |
& - uVel(i,j,k,bi,bj)*uVel(i,j,k,bi,bj)*atmPhys_dampUVfac(k) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
78 |
ATM_PHYS_TENDENCY_APPLY_U |
& *hFacW(i,j,k,bi,bj)*drF(k)*rUnit2mass |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
85 |
ATM_PHYS_TENDENCY_APPLY_U |
frictionHeating(i,j,k,bi,bj) = frictionHeating(i,j,k,bi,bj) |
|
./pkg/autodiff/active_file_control.F |
126 |
ACTIVE_READ_3D_RL |
DO k = 1, myNr |
|
./pkg/autodiff/active_file_control.F |
129 |
ACTIVE_READ_3D_RL |
active_data_t(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control.F |
158 |
ACTIVE_READ_3D_RL |
DO k = 1, myNr |
|
./pkg/autodiff/active_file_control.F |
161 |
ACTIVE_READ_3D_RL |
active_data_t(i,j,k,bi,bj) = active_data_t(i,j,k,bi,bj) |
|
./pkg/autodiff/active_file_control.F |
162 |
ACTIVE_READ_3D_RL |
& + active_var(i,j,k,bi,bj) |
|
./pkg/autodiff/active_file_control.F |
180 |
ACTIVE_READ_3D_RL |
DO k = 1, myNr |
|
./pkg/autodiff/active_file_control.F |
183 |
ACTIVE_READ_3D_RL |
active_var(i,j,k,bi,bj) = 0 _d 0 |
|
./pkg/autodiff/active_file_control.F |
276 |
ACTIVE_READ_3D_RS |
INTEGER i,j,k |
|
./pkg/autodiff/active_file_control.F |
308 |
ACTIVE_READ_3D_RS |
DO k = 1, myNr |
|
./pkg/autodiff/active_file_control.F |
311 |
ACTIVE_READ_3D_RS |
active_data_t(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control.F |
340 |
ACTIVE_READ_3D_RS |
DO k = 1, myNr |
|
./pkg/autodiff/active_file_control.F |
343 |
ACTIVE_READ_3D_RS |
active_data_t(i,j,k,bi,bj) = active_data_t(i,j,k,bi,bj) |
|
./pkg/autodiff/active_file_control.F |
344 |
ACTIVE_READ_3D_RS |
& + active_var(i,j,k,bi,bj) |
|
./pkg/autodiff/active_file_control.F |
362 |
ACTIVE_READ_3D_RS |
DO k = 1, myNr |
|
./pkg/autodiff/active_file_control.F |
365 |
ACTIVE_READ_3D_RS |
active_var(i,j,k,bi,bj) = 0 _d 0 |
|
./pkg/autodiff/active_file_control.F |
444 |
ACTIVE_WRITE_3D_RL |
INTEGER i,j,k |
|
./pkg/autodiff/active_file_control.F |
475 |
ACTIVE_WRITE_3D_RL |
DO k = 1, myNr |
|
./pkg/autodiff/active_file_control.F |
478 |
ACTIVE_WRITE_3D_RL |
active_var(i,j,k,bi,bj) = active_var(i,j,k,bi,bj) |
|
./pkg/autodiff/active_file_control.F |
479 |
ACTIVE_WRITE_3D_RL |
& + active_data_t(i,j,k,bi,bj) |
|
./pkg/autodiff/active_file_control.F |
480 |
ACTIVE_WRITE_3D_RL |
active_data_t(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control.F |
563 |
ACTIVE_WRITE_3D_RS |
INTEGER i,j,k |
|
./pkg/autodiff/active_file_control.F |
594 |
ACTIVE_WRITE_3D_RS |
DO k = 1, myNr |
|
./pkg/autodiff/active_file_control.F |
597 |
ACTIVE_WRITE_3D_RS |
active_var(i,j,k,bi,bj) = active_var(i,j,k,bi,bj) |
|
./pkg/autodiff/active_file_control.F |
598 |
ACTIVE_WRITE_3D_RS |
& + active_data_t(i,j,k,bi,bj) |
|
./pkg/autodiff/active_file_control.F |
599 |
ACTIVE_WRITE_3D_RS |
active_data_t(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control.F |
94 |
ACTIVE_READ_3D_RL |
INTEGER i,j,k |
|
./pkg/autodiff/active_file_control_slice.F |
1019 |
ACTIVE_WRITE_YZ_RL |
INTEGER j,k |
|
./pkg/autodiff/active_file_control_slice.F |
1050 |
ACTIVE_WRITE_YZ_RL |
DO k = 1, myNr |
|
./pkg/autodiff/active_file_control_slice.F |
1052 |
ACTIVE_WRITE_YZ_RL |
active_var(j,k,bi,bj) = active_var(j,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
1053 |
ACTIVE_WRITE_YZ_RL |
& + active_data_t(j,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
1054 |
ACTIVE_WRITE_YZ_RL |
active_data_t(j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
1136 |
ACTIVE_WRITE_YZ_RS |
INTEGER j,k |
|
./pkg/autodiff/active_file_control_slice.F |
1167 |
ACTIVE_WRITE_YZ_RS |
DO k = 1, myNr |
|
./pkg/autodiff/active_file_control_slice.F |
1169 |
ACTIVE_WRITE_YZ_RS |
active_var(j,k,bi,bj) = active_var(j,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
1170 |
ACTIVE_WRITE_YZ_RS |
& + active_data_t(j,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
1171 |
ACTIVE_WRITE_YZ_RS |
active_data_t(j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
128 |
ACTIVE_READ_XZ_RL |
DO k = 1, myNr |
|
./pkg/autodiff/active_file_control_slice.F |
130 |
ACTIVE_READ_XZ_RL |
active_data_t(i,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
158 |
ACTIVE_READ_XZ_RL |
DO k = 1, myNr |
|
./pkg/autodiff/active_file_control_slice.F |
160 |
ACTIVE_READ_XZ_RL |
active_data_t(i,k,bi,bj) = active_data_t(i,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
161 |
ACTIVE_READ_XZ_RL |
& + active_var(i,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
178 |
ACTIVE_READ_XZ_RL |
DO k = 1, myNr |
|
./pkg/autodiff/active_file_control_slice.F |
180 |
ACTIVE_READ_XZ_RL |
active_var(i,k,bi,bj) = 0 _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
272 |
ACTIVE_READ_XZ_RS |
INTEGER i,k |
|
./pkg/autodiff/active_file_control_slice.F |
304 |
ACTIVE_READ_XZ_RS |
DO k = 1, myNr |
|
./pkg/autodiff/active_file_control_slice.F |
306 |
ACTIVE_READ_XZ_RS |
active_data_t(i,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
334 |
ACTIVE_READ_XZ_RS |
DO k = 1, myNr |
|
./pkg/autodiff/active_file_control_slice.F |
336 |
ACTIVE_READ_XZ_RS |
active_data_t(i,k,bi,bj) = active_data_t(i,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
337 |
ACTIVE_READ_XZ_RS |
& + active_var(i,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
354 |
ACTIVE_READ_XZ_RS |
DO k = 1, myNr |
|
./pkg/autodiff/active_file_control_slice.F |
356 |
ACTIVE_READ_XZ_RS |
active_var(i,k,bi,bj) = 0 _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
447 |
ACTIVE_READ_YZ_RL |
INTEGER j,k |
|
./pkg/autodiff/active_file_control_slice.F |
479 |
ACTIVE_READ_YZ_RL |
DO k = 1, myNr |
|
./pkg/autodiff/active_file_control_slice.F |
481 |
ACTIVE_READ_YZ_RL |
active_data_t(j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
509 |
ACTIVE_READ_YZ_RL |
DO k = 1, myNr |
|
./pkg/autodiff/active_file_control_slice.F |
511 |
ACTIVE_READ_YZ_RL |
active_data_t(j,k,bi,bj) = active_data_t(j,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
512 |
ACTIVE_READ_YZ_RL |
& + active_var(j,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
529 |
ACTIVE_READ_YZ_RL |
DO k = 1, myNr |
|
./pkg/autodiff/active_file_control_slice.F |
531 |
ACTIVE_READ_YZ_RL |
active_var(j,k,bi,bj) = 0 _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
623 |
ACTIVE_READ_YZ_RS |
INTEGER j,k |
|
./pkg/autodiff/active_file_control_slice.F |
655 |
ACTIVE_READ_YZ_RS |
DO k = 1, myNr |
|
./pkg/autodiff/active_file_control_slice.F |
657 |
ACTIVE_READ_YZ_RS |
active_data_t(j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
685 |
ACTIVE_READ_YZ_RS |
DO k = 1, myNr |
|
./pkg/autodiff/active_file_control_slice.F |
687 |
ACTIVE_READ_YZ_RS |
active_data_t(j,k,bi,bj) = active_data_t(j,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
688 |
ACTIVE_READ_YZ_RS |
& + active_var(j,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
705 |
ACTIVE_READ_YZ_RS |
DO k = 1, myNr |
|
./pkg/autodiff/active_file_control_slice.F |
707 |
ACTIVE_READ_YZ_RS |
active_var(j,k,bi,bj) = 0 _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
785 |
ACTIVE_WRITE_XZ_RL |
INTEGER i,k |
|
./pkg/autodiff/active_file_control_slice.F |
816 |
ACTIVE_WRITE_XZ_RL |
DO k = 1, myNr |
|
./pkg/autodiff/active_file_control_slice.F |
818 |
ACTIVE_WRITE_XZ_RL |
active_var(i,k,bi,bj) = active_var(i,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
819 |
ACTIVE_WRITE_XZ_RL |
& + active_data_t(i,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
820 |
ACTIVE_WRITE_XZ_RL |
active_data_t(i,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
902 |
ACTIVE_WRITE_XZ_RS |
INTEGER i,k |
|
./pkg/autodiff/active_file_control_slice.F |
933 |
ACTIVE_WRITE_XZ_RS |
DO k = 1, myNr |
|
./pkg/autodiff/active_file_control_slice.F |
935 |
ACTIVE_WRITE_XZ_RS |
active_var(i,k,bi,bj) = active_var(i,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
936 |
ACTIVE_WRITE_XZ_RS |
& + active_data_t(i,k,bi,bj) |
|
./pkg/autodiff/active_file_control_slice.F |
937 |
ACTIVE_WRITE_XZ_RS |
active_data_t(i,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
96 |
ACTIVE_READ_XZ_RL |
INTEGER i,k |
|
./pkg/autodiff/addamp_adj.F |
35 |
ADDAMP_ADJ |
INTEGER bi,bj,i,j,k |
|
./pkg/autodiff/addamp_adj.F |
41 |
ADDAMP_ADJ |
DO k=1,NrIn |
|
./pkg/autodiff/addamp_adj.F |
44 |
ADDAMP_ADJ |
IF ( (fieldRef(i,j,k,bi,bj).GE.maxRef).OR. |
|
./pkg/autodiff/addamp_adj.F |
45 |
ADDAMP_ADJ |
& (fieldRef(i,j,k,bi,bj).LE.minRef) ) THEN |
|
./pkg/autodiff/addamp_adj.F |
50 |
ADDAMP_ADJ |
adfieldDamp(i,j,k,bi,bj)=facDamp* |
|
./pkg/autodiff/addamp_adj.F |
51 |
ADDAMP_ADJ |
& adfieldDamp(i,j,k,bi,bj) |
|
./pkg/autodiff/adzero_adj.F |
112 |
ADZERO_ADJ |
INTEGER i,j,k |
|
./pkg/autodiff/adzero_adj.F |
117 |
ADZERO_ADJ |
DO k=1,NrIn |
|
./pkg/autodiff/adzero_adj.F |
120 |
ADZERO_ADJ |
adFieldFwd(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/adzero_adj.F |
37 |
ADZERO_ADJ_1D |
INTEGER k |
|
./pkg/autodiff/adzero_adj.F |
40 |
ADZERO_ADJ_1D |
DO k=1,NrIn |
|
./pkg/autodiff/adzero_adj.F |
41 |
ADZERO_ADJ_1D |
adFieldFwd(k) = 0. _d 0 |
|
./pkg/autodiff/adzero_adj.F |
72 |
ADZERO_ADJ_LOC |
INTEGER i,j,k |
|
./pkg/autodiff/adzero_adj.F |
75 |
ADZERO_ADJ_LOC |
DO k=1,NrIn |
|
./pkg/autodiff/adzero_adj.F |
78 |
ADZERO_ADJ_LOC |
adFieldFwd(i,j,k) = 0. _d 0 |
|
./pkg/autodiff/autodiff_init_varia.F |
41 |
AUTODIFF_INIT_VARIA |
INTEGER i, j, k |
|
./pkg/autodiff/autodiff_init_varia.F |
54 |
AUTODIFF_INIT_VARIA |
DO k=1,Nr |
|
./pkg/autodiff/autodiff_init_varia.F |
57 |
AUTODIFF_INIT_VARIA |
EfluxY(i,j,k,bi,bj) = 0. |
|
./pkg/autodiff/autodiff_init_varia.F |
58 |
AUTODIFF_INIT_VARIA |
EfluxP(i,j,k,bi,bj) = 0. |
|
./pkg/autodiff/copy_ad_uv_outp.F |
59 |
COPY_AD_UV_OUTP |
INTEGER i,j,k,bi,bj |
|
./pkg/autodiff/copy_ad_uv_outp.F |
74 |
COPY_AD_UV_OUTP |
DO k=1,nNz |
|
./pkg/autodiff/copy_ad_uv_outp.F |
77 |
COPY_AD_UV_OUTP |
uFldOut(i,j,k,bi,bj) = uFldRS(i,j,k,bi,bj) |
|
./pkg/autodiff/copy_ad_uv_outp.F |
78 |
COPY_AD_UV_OUTP |
vFldOut(i,j,k,bi,bj) = vFldRS(i,j,k,bi,bj) |
|
./pkg/autodiff/copy_ad_uv_outp.F |
87 |
COPY_AD_UV_OUTP |
DO k=1,nNz |
|
./pkg/autodiff/copy_ad_uv_outp.F |
90 |
COPY_AD_UV_OUTP |
uFldOut(i,j,k,bi,bj) = uFldRL(i,j,k,bi,bj) |
|
./pkg/autodiff/copy_ad_uv_outp.F |
91 |
COPY_AD_UV_OUTP |
vFldOut(i,j,k,bi,bj) = vFldRL(i,j,k,bi,bj) |
|
./pkg/autodiff/copy_advar_outp.F |
52 |
COPY_ADVAR_OUTP |
INTEGER i,j,k,bi,bj |
|
./pkg/autodiff/copy_advar_outp.F |
67 |
COPY_ADVAR_OUTP |
DO k=1,nNz |
|
./pkg/autodiff/copy_advar_outp.F |
70 |
COPY_ADVAR_OUTP |
outFld(i,j,k,bi,bj) = inpFldRS(i,j,k,bi,bj) |
|
./pkg/autodiff/copy_advar_outp.F |
79 |
COPY_ADVAR_OUTP |
DO k=1,nNz |
|
./pkg/autodiff/copy_advar_outp.F |
82 |
COPY_ADVAR_OUTP |
outFld(i,j,k,bi,bj) = inpFldRL(i,j,k,bi,bj) |
|
./pkg/bbl/bbl_calc_rho.F |
12 |
BBL_CALC_RHO |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/bbl/bbl_calc_rho.F |
56 |
BBL_CALC_RHO |
INTEGER k, bi, bj |
|
./pkg/bbl/bbl_calc_rho.F |
72 |
BBL_CALC_RHO |
I 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, k, |
|
./pkg/bbl/bbl_calc_rho.F |
73 |
BBL_CALC_RHO |
I tFld(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/bbl/bbl_calc_rho.F |
74 |
BBL_CALC_RHO |
I sFld(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/bbl/bbl_calc_rho.F |
75 |
BBL_CALC_RHO |
O rhoLoc(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/bbl/bbl_calc_rho.F |
76 |
BBL_CALC_RHO |
I k, bi, bj, myThid ) |
|
./pkg/bbl/bbl_calc_rho.F |
79 |
BBL_CALC_RHO |
kl = MAX(k-1,1) |
|
./pkg/bbl/bbl_calc_rho.F |
90 |
BBL_CALC_RHO |
IF ( k .GT. kLowC(i,j,bi,bj) ) |
|
./pkg/bbl/bbl_calc_rho.F |
91 |
BBL_CALC_RHO |
& rhoLoc(i,j,k,bi,bj) = rBBL(i,j) |
|
./pkg/bbl/bbl_calc_rho.F |
96 |
BBL_CALC_RHO |
IF ( k .EQ. Nr ) THEN |
|
./pkg/bbl/bbl_tendency_apply.F |
107 |
BBL_TENDENCY_APPLY_S |
IF ( k .EQ. kLowC(i,j,bi,bj) ) |
|
./pkg/bbl/bbl_tendency_apply.F |
109 |
BBL_TENDENCY_APPLY_S |
& + maskC(i,j,k,bi,bj) * bbl_TendSalt(i,j,bi,bj) |
|
./pkg/bbl/bbl_tendency_apply.F |
17 |
BBL_TENDENCY_APPLY_T |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/bbl/bbl_tendency_apply.F |
43 |
BBL_TENDENCY_APPLY_T |
INTEGER k, bi, bj |
|
./pkg/bbl/bbl_tendency_apply.F |
54 |
BBL_TENDENCY_APPLY_T |
IF ( k .EQ. kLowC(i,j,bi,bj) ) |
|
./pkg/bbl/bbl_tendency_apply.F |
56 |
BBL_TENDENCY_APPLY_T |
& + maskC(i,j,k,bi,bj) * bbl_TendTheta(i,j,bi,bj) |
|
./pkg/bbl/bbl_tendency_apply.F |
70 |
BBL_TENDENCY_APPLY_S |
I iMin,iMax,jMin,jMax, k, bi, bj, |
|
./pkg/bbl/bbl_tendency_apply.F |
96 |
BBL_TENDENCY_APPLY_S |
INTEGER k, bi, bj |
|
./pkg/bling/bling_carbon_chem.F |
24 |
CALC_PCO2 |
I i,j,k,bi,bj,myIter,myThid ) |
|
./pkg/bling/bling_carbon_chem.F |
335 |
CALC_PCO2_APPROX |
I i,j,k,bi,bj,myIter,myThid ) |
|
./pkg/bling/bling_carbon_chem.F |
377 |
CALC_PCO2_APPROX |
INTEGER i,j,k,bi,bj,myIter |
|
./pkg/bling/bling_carbon_chem.F |
62 |
CALC_PCO2 |
INTEGER i,j,k,bi,bj,myIter |
|
./pkg/bling/bling_carbon_chem.F |
822 |
CARBON_COEFFS_PRESSURE_DEP |
INTEGER k |
|
./pkg/bling/bling_carbon_chem.F |
862 |
CARBON_COEFFS_PRESSURE_DEP |
do k = 1,Klevel |
|
./pkg/bling/bling_carbon_chem.F |
863 |
CARBON_COEFFS_PRESSURE_DEP |
cdepth = bdepth + 0.5d0*drF(k) |
|
./pkg/bling/bling_carbon_chem.F |
864 |
CARBON_COEFFS_PRESSURE_DEP |
bdepth = bdepth + drF(k) |
|
./pkg/bling/bling_carbonate_init.F |
112 |
BLING_CARBONATE_INIT |
DO k=1,Nr |
|
./pkg/bling/bling_carbonate_init.F |
117 |
BLING_CARBONATE_INIT |
pH(i,j,k,bi,bj) = 8. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
166 |
BLING_CARBONATE_INIT |
DO k=1,Nr |
|
./pkg/bling/bling_carbonate_init.F |
169 |
BLING_CARBONATE_INIT |
alktmp(i,j) = PTRACER(i,j,k,bi,bj,2) |
|
./pkg/bling/bling_carbonate_init.F |
170 |
BLING_CARBONATE_INIT |
& * maskC(i,j,k,bi,bj) |
|
./pkg/bling/bling_carbonate_init.F |
171 |
BLING_CARBONATE_INIT |
phostmp(i,j)= PTRACER(i,j,k,bi,bj,5) |
|
./pkg/bling/bling_carbonate_init.F |
172 |
BLING_CARBONATE_INIT |
& * maskC(i,j,k,bi,bj) |
|
./pkg/bling/bling_carbonate_init.F |
174 |
BLING_CARBONATE_INIT |
IF ( k.eq.1 ) THEN |
|
./pkg/bling/bling_carbonate_init.F |
175 |
BLING_CARBONATE_INIT |
sitmp(i,j) = Silica(i,j,bi,bj) * maskC(i,j,k,bi,bj) |
|
./pkg/bling/bling_carbonate_init.F |
177 |
BLING_CARBONATE_INIT |
sitmp(i,j) = 0.03 * maskC(i,j,k,bi,bj) |
|
./pkg/bling/bling_carbonate_init.F |
179 |
BLING_CARBONATE_INIT |
dictmp(i,j) = PTRACER(i,j,k,bi,bj,1) |
|
./pkg/bling/bling_carbonate_init.F |
180 |
BLING_CARBONATE_INIT |
& * maskC(i,j,k,bi,bj) |
|
./pkg/bling/bling_carbonate_init.F |
181 |
BLING_CARBONATE_INIT |
thetatmp(i,j) = theta(i,j,k,bi,bj) |
|
./pkg/bling/bling_carbonate_init.F |
182 |
BLING_CARBONATE_INIT |
salttmp(i,j) = salt(i,j,k,bi,bj) |
|
./pkg/bling/bling_carbonate_init.F |
188 |
BLING_CARBONATE_INIT |
I bi,bj,iMin,iMax,jMin,jMax,k,myThid) |
|
./pkg/bling/bling_carbonate_init.F |
196 |
BLING_CARBONATE_INIT |
IF ( maskC(i,j,k,bi,bj) .NE. 0. _d 0) THEN |
|
./pkg/bling/bling_carbonate_init.F |
209 |
BLING_CARBONATE_INIT |
U pH(i,j,k,bi,bj),pCO2(i,j,bi,bj),co3dummy, |
|
./pkg/bling/bling_carbonate_init.F |
210 |
BLING_CARBONATE_INIT |
I i,j,k,bi,bj, it , myThid ) |
|
./pkg/bling/bling_carbonate_init.F |
37 |
BLING_CARBONATE_INIT |
INTEGER i,j, k, it |
|
./pkg/bling/bling_carbonate_sys.F |
101 |
BLING_CARBONATE_SYS |
I k, myThid) |
|
./pkg/bling/bling_carbonate_sys.F |
110 |
BLING_CARBONATE_SYS |
IF ( hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_carbonate_sys.F |
115 |
BLING_CARBONATE_SYS |
calcium = 1.028 _d -2*salt(i,j,k,bi,bj)/35. _d 0 |
|
./pkg/bling/bling_carbonate_sys.F |
117 |
BLING_CARBONATE_SYS |
po4local = PTR_PO4(i,j,k) |
|
./pkg/bling/bling_carbonate_sys.F |
118 |
BLING_CARBONATE_SYS |
diclocal = PTR_DIC(i,j,k) |
|
./pkg/bling/bling_carbonate_sys.F |
119 |
BLING_CARBONATE_SYS |
alklocal = PTR_ALK(i,j,k) |
|
./pkg/bling/bling_carbonate_sys.F |
120 |
BLING_CARBONATE_SYS |
pHlocal = pH(i,j,k,bi,bj) |
|
./pkg/bling/bling_carbonate_sys.F |
141 |
BLING_CARBONATE_SYS |
I i,j,k,bi,bj,myIter,myThid ) |
|
./pkg/bling/bling_carbonate_sys.F |
144 |
BLING_CARBONATE_SYS |
pH(i,j,k,bi,bj) = pHlocal |
|
./pkg/bling/bling_carbonate_sys.F |
148 |
BLING_CARBONATE_SYS |
omegaC(i,j,k,bi,bj) = calcium * carbonate / |
|
./pkg/bling/bling_carbonate_sys.F |
150 |
BLING_CARBONATE_SYS |
omegaAr(i,j,k,bi,bj) = calcium * carbonate / |
|
./pkg/bling/bling_carbonate_sys.F |
155 |
BLING_CARBONATE_SYS |
pH(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbonate_sys.F |
156 |
BLING_CARBONATE_SYS |
omegaC(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbonate_sys.F |
157 |
BLING_CARBONATE_SYS |
omegaAr(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbonate_sys.F |
57 |
BLING_CARBONATE_SYS |
INTEGER i,j,k |
|
./pkg/bling/bling_carbonate_sys.F |
88 |
BLING_CARBONATE_SYS |
DO k=1,Nr |
|
./pkg/bling/bling_carbonate_sys.F |
92 |
BLING_CARBONATE_SYS |
ttmp(i,j) = theta(i,j,k,bi,bj) |
|
./pkg/bling/bling_carbonate_sys.F |
93 |
BLING_CARBONATE_SYS |
stmp(i,j) = salt(i,j,k,bi,bj) |
|
./pkg/bling/bling_dvm.F |
137 |
BLING_DVM |
DO k=1,Nr |
|
./pkg/bling/bling_dvm.F |
139 |
BLING_DVM |
IF ( hFacC(i,j,k,bi,bj).gt.0. _d 0 ) THEN |
|
./pkg/bling/bling_dvm.F |
143 |
BLING_DVM |
depth_l=-rF(k+1) |
|
./pkg/bling/bling_dvm.F |
149 |
BLING_DVM |
dz_upper = dz_upper + drf(k) |
|
./pkg/bling/bling_dvm.F |
150 |
BLING_DVM |
temp_upper = temp_upper + theta(i,j,k,bi,bj)*drf(k) |
|
./pkg/bling/bling_dvm.F |
151 |
BLING_DVM |
o2_upper = o2_upper + PTR_O2(i,j,k) * drf(k)*1.0 _d 3 |
|
./pkg/bling/bling_dvm.F |
155 |
BLING_DVM |
dz_lower = dz_lower + drf(k) |
|
./pkg/bling/bling_dvm.F |
156 |
BLING_DVM |
temp_lower = temp_lower + theta(i,j,k,bi,bj)*drf(k) |
|
./pkg/bling/bling_dvm.F |
157 |
BLING_DVM |
o2_lower = o2_lower + PTR_O2(i,j,k) * drf(k)*1.0 _d 3 |
|
./pkg/bling/bling_dvm.F |
200 |
BLING_DVM |
DO k=1,Nr-2 |
|
./pkg/bling/bling_dvm.F |
202 |
BLING_DVM |
IF ( (hFacC(i,j,k,bi,bj).gt.0. _d 0) .and. (tmp.eq.0)) THEN |
|
./pkg/bling/bling_dvm.F |
204 |
BLING_DVM |
z_dvm = -rf(k+1) |
|
./pkg/bling/bling_dvm.F |
205 |
BLING_DVM |
if (PTR_O2(i,j,k+2) .lt. (5. _d 0*oxic_min)) tmp = 1 |
|
./pkg/bling/bling_dvm.F |
214 |
BLING_DVM |
z_dvm = min(700. _d 0,max(150. _d 0,z_dvm_regr),z_dvm,-rf(k+1)) |
|
./pkg/bling/bling_dvm.F |
230 |
BLING_DVM |
DO k=1,Nr |
|
./pkg/bling/bling_dvm.F |
232 |
BLING_DVM |
IF ( (hFacC(i,j,k,bi,bj).gt.0. _d 0) .and. (tmp.eq.0)) THEN |
|
./pkg/bling/bling_dvm.F |
236 |
BLING_DVM |
if (-rf(k+1) .lt. z_dvm) then |
|
./pkg/bling/bling_dvm.F |
238 |
BLING_DVM |
& (z_dvm - (-rf(k+1)) ) |
|
./pkg/bling/bling_dvm.F |
249 |
BLING_DVM |
x_erfcc = (-rf(k) - z_dvm) / |
|
./pkg/bling/bling_dvm.F |
273 |
BLING_DVM |
IF (k.LT.NR-1) THEN |
|
./pkg/bling/bling_dvm.F |
274 |
BLING_DVM |
if (PTR_O2(i,j,k+2) .lt. (5. _d 0*oxic_min)) tmp = 1 |
|
./pkg/bling/bling_dvm.F |
277 |
BLING_DVM |
dvm(i,j,k) = fdvm_migr + fdvm_stat |
|
./pkg/bling/bling_dvm.F |
285 |
BLING_DVM |
do k = 1, nr |
|
./pkg/bling/bling_dvm.F |
286 |
BLING_DVM |
fdvmn_vint = fdvmn_vint + N_dvm(i,j,k) * drf(k) |
|
./pkg/bling/bling_dvm.F |
287 |
BLING_DVM |
fdvmp_vint = fdvmp_vint + P_dvm(i,j,k) * drf(k) |
|
./pkg/bling/bling_dvm.F |
288 |
BLING_DVM |
fdvmfe_vint = fdvmfe_vint + Fe_dvm(i,j,k) * drf(k) |
|
./pkg/bling/bling_dvm.F |
300 |
BLING_DVM |
do k = 2, nr |
|
./pkg/bling/bling_dvm.F |
301 |
BLING_DVM |
N_remindvm(i,j,k) = fdvmn_vint * |
|
./pkg/bling/bling_dvm.F |
302 |
BLING_DVM |
& (dvm(i,j,k-1) - dvm(i,j,k)) / (epsln + drf(k)) |
|
./pkg/bling/bling_dvm.F |
303 |
BLING_DVM |
P_remindvm(i,j,k) = fdvmp_vint * |
|
./pkg/bling/bling_dvm.F |
304 |
BLING_DVM |
& (dvm(i,j,k-1) - dvm(i,j,k)) / (epsln + drf(k)) |
|
./pkg/bling/bling_dvm.F |
305 |
BLING_DVM |
Fe_remindvm(i,j,k) = fdvmfe_vint * |
|
./pkg/bling/bling_dvm.F |
306 |
BLING_DVM |
& (dvm(i,j,k-1) - dvm(i,j,k)) / (epsln + drf(k)) |
|
./pkg/bling/bling_dvm.F |
69 |
BLING_DVM |
INTEGER i,j,k |
|
./pkg/bling/bling_dvm.F |
93 |
BLING_DVM |
DO k=1,Nr |
|
./pkg/bling/bling_dvm.F |
96 |
BLING_DVM |
N_remindvm(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_dvm.F |
97 |
BLING_DVM |
P_remindvm(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_dvm.F |
98 |
BLING_DVM |
Fe_remindvm(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_dvm.F |
99 |
BLING_DVM |
dvm(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_init_fixed.F |
29 |
BLING_INIT_FIXED |
INTEGER k |
|
./pkg/bling/bling_init_varia.F |
139 |
BLING_INIT_VARIA |
DO k=1,Nr |
|
./pkg/bling/bling_init_varia.F |
142 |
BLING_INIT_VARIA |
IF (maskC(i,j,k,bi,bj).EQ.0.) THEN |
|
./pkg/bling/bling_init_varia.F |
143 |
BLING_INIT_VARIA |
phyto_sm(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_init_varia.F |
144 |
BLING_INIT_VARIA |
phyto_lg(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_init_varia.F |
145 |
BLING_INIT_VARIA |
phyto_diaz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_init_varia.F |
32 |
BLING_INIT_VARIA |
INTEGER k |
|
./pkg/bling/bling_init_varia.F |
42 |
BLING_INIT_VARIA |
DO k = 1, Nr |
|
./pkg/bling/bling_init_varia.F |
43 |
BLING_INIT_VARIA |
omegaC(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_init_varia.F |
44 |
BLING_INIT_VARIA |
omegaAr(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_init_varia.F |
45 |
BLING_INIT_VARIA |
irr_mem(i,j,k,bi,bj) = 1. _d 0 |
|
./pkg/bling/bling_init_varia.F |
46 |
BLING_INIT_VARIA |
chl(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_init_varia.F |
47 |
BLING_INIT_VARIA |
poc(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_init_varia.F |
48 |
BLING_INIT_VARIA |
phyto_sm(i,j,k,bi,bj) = 4. _d -7 / permil |
|
./pkg/bling/bling_init_varia.F |
49 |
BLING_INIT_VARIA |
phyto_lg(i,j,k,bi,bj) = 4. _d -7 / permil |
|
./pkg/bling/bling_init_varia.F |
50 |
BLING_INIT_VARIA |
phyto_diaz(i,j,k,bi,bj) = 4. _d -7 / permil |
|
./pkg/bling/bling_light.F |
170 |
BLING_LIGHT |
DO k=1,Nr |
|
./pkg/bling/bling_light.F |
172 |
BLING_LIGHT |
IF (hFacC(i,j,k,bi,bj).gt.0) THEN |
|
./pkg/bling/bling_light.F |
174 |
BLING_LIGHT |
IF (k.eq.1) THEN |
|
./pkg/bling/bling_light.F |
180 |
BLING_LIGHT |
atten = k0*drF(k)/2. _d 0*hFacC(i,j,k,bi,bj) |
|
./pkg/bling/bling_light.F |
181 |
BLING_LIGHT |
& + k0*drF(k-1)/2. _d 0*hFacC(i,j,k-1,bi,bj) |
|
./pkg/bling/bling_light.F |
182 |
BLING_LIGHT |
irr_inst(i,j,k) = |
|
./pkg/bling/bling_light.F |
183 |
BLING_LIGHT |
& irr_inst(i,j,k-1)*exp(-atten) |
|
./pkg/bling/bling_light.F |
188 |
BLING_LIGHT |
IF ((-rf(k+1) .le. mld(i,j)).and. |
|
./pkg/bling/bling_light.F |
189 |
BLING_LIGHT |
& (-rf(k+1).lt.200. _d 0)) THEN |
|
./pkg/bling/bling_light.F |
190 |
BLING_LIGHT |
SumMLIrr = SumMLIrr+drF(k)*irr_inst(i,j,k) |
|
./pkg/bling/bling_light.F |
191 |
BLING_LIGHT |
tmp_ML = tmp_ML + drF(k) |
|
./pkg/bling/bling_light.F |
203 |
BLING_LIGHT |
DO k=1,Nr |
|
./pkg/bling/bling_light.F |
207 |
BLING_LIGHT |
IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_light.F |
209 |
BLING_LIGHT |
irr_eff(i,j,k) = irr_inst(i,j,k) |
|
./pkg/bling/bling_light.F |
212 |
BLING_LIGHT |
IF ((-rf(k+1) .le. mld(i,j)).and. |
|
./pkg/bling/bling_light.F |
213 |
BLING_LIGHT |
& (-rf(k+1).lt.200. _d 0)) THEN |
|
./pkg/bling/bling_light.F |
214 |
BLING_LIGHT |
irr_eff(i,j,k) = irr_mix(i,j) |
|
./pkg/bling/bling_light.F |
84 |
BLING_LIGHT |
integer i,j,k |
|
./pkg/bling/bling_light.F |
87 |
BLING_LIGHT |
DO k=1,Nr |
|
./pkg/bling/bling_light.F |
90 |
BLING_LIGHT |
irr_eff(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
113 |
BLING_MAIN |
DO k=1,Nr |
|
./pkg/bling/bling_main.F |
114 |
BLING_MAIN |
G_DIC(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
115 |
BLING_MAIN |
G_ALK(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
116 |
BLING_MAIN |
G_NO3(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
117 |
BLING_MAIN |
G_PO4(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
118 |
BLING_MAIN |
G_FE(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
119 |
BLING_MAIN |
G_O2(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
120 |
BLING_MAIN |
G_DON(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
121 |
BLING_MAIN |
G_DOP(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
122 |
BLING_MAIN |
G_CaCO3(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
123 |
BLING_MAIN |
NCP(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
124 |
BLING_MAIN |
irr_eff(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
125 |
BLING_MAIN |
bio_DIC(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
126 |
BLING_MAIN |
bio_ALK(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
127 |
BLING_MAIN |
bio_O2(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
128 |
BLING_MAIN |
bio_NO3(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
129 |
BLING_MAIN |
bio_PO4(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
130 |
BLING_MAIN |
bio_Fe(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
132 |
BLING_MAIN |
DO k=1,8 |
|
./pkg/bling/bling_main.F |
133 |
BLING_MAIN |
runoff_bgc(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
198 |
BLING_MAIN |
DO k=1,Nr |
|
./pkg/bling/bling_main.F |
200 |
BLING_MAIN |
IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_main.F |
202 |
BLING_MAIN |
G_ALK(i,j,k) = - G_NO3(i,j,k) |
|
./pkg/bling/bling_main.F |
203 |
BLING_MAIN |
& + 2. _d 0*G_CaCO3(i,j,k) |
|
./pkg/bling/bling_main.F |
205 |
BLING_MAIN |
G_DIC(i,j,k) = -NCP(i,j,k) + G_CaCO3(i,j,k) |
|
./pkg/bling/bling_main.F |
208 |
BLING_MAIN |
bio_DIC(i,j,k) = G_DIC(i,j,k) |
|
./pkg/bling/bling_main.F |
209 |
BLING_MAIN |
bio_ALK(i,j,k) = G_ALK(i,j,k) |
|
./pkg/bling/bling_main.F |
210 |
BLING_MAIN |
bio_O2(i,j,k) = G_O2(i,j,k) |
|
./pkg/bling/bling_main.F |
211 |
BLING_MAIN |
bio_NO3(i,j,k) = G_NO3(i,j,k) |
|
./pkg/bling/bling_main.F |
212 |
BLING_MAIN |
bio_PO4(i,j,k) = G_PO4(i,j,k) |
|
./pkg/bling/bling_main.F |
213 |
BLING_MAIN |
bio_Fe(i,j,k) = G_Fe(i,j,k) |
|
./pkg/bling/bling_main.F |
248 |
BLING_MAIN |
DO k=1,Nr |
|
./pkg/bling/bling_main.F |
251 |
BLING_MAIN |
PTR_DIC(i,j,k)=PTR_DIC(i,j,k)+G_DIC(i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/bling/bling_main.F |
252 |
BLING_MAIN |
PTR_ALK(i,j,k)=PTR_ALK(i,j,k)+G_ALK(i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/bling/bling_main.F |
253 |
BLING_MAIN |
PTR_O2 (i,j,k)=PTR_O2 (i,j,k)+G_O2 (i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/bling/bling_main.F |
254 |
BLING_MAIN |
PTR_NO3(i,j,k)=PTR_NO3(i,j,k)+G_NO3(i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/bling/bling_main.F |
255 |
BLING_MAIN |
PTR_PO4(i,j,k)=PTR_PO4(i,j,k)+G_PO4(i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/bling/bling_main.F |
256 |
BLING_MAIN |
PTR_FE (i,j,k)=PTR_FE (i,j,k)+G_FE (i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/bling/bling_main.F |
257 |
BLING_MAIN |
PTR_DON(i,j,k)=PTR_DON(i,j,k)+G_DON(i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/bling/bling_main.F |
258 |
BLING_MAIN |
PTR_DOP(i,j,k)=PTR_DOP(i,j,k)+G_DOP(i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/bling/bling_main.F |
83 |
BLING_MAIN |
INTEGER i,j,k |
|
./pkg/bling/bling_min_val.F |
30 |
BLING_MIN_VAL |
INTEGER i,j,k |
|
./pkg/bling/bling_min_val.F |
32 |
BLING_MIN_VAL |
DO k=1,Nr |
|
./pkg/bling/bling_min_val.F |
35 |
BLING_MIN_VAL |
PTR(i,j,k) = max( min_val*maskC(i,j,k,bi,bj), PTR(i,j,k) ) |
|
./pkg/bling/bling_mixedlayer.F |
100 |
BLING_MIXEDLAYER |
IF (delta_dens(i,j,k) .LT. 0.03 _d 0) THEN |
|
./pkg/bling/bling_mixedlayer.F |
101 |
BLING_MIXEDLAYER |
SumMLDepth(i,j) = SumMLDepth(i,j)+drF(k) |
|
./pkg/bling/bling_mixedlayer.F |
53 |
BLING_MIXEDLAYER |
integer i,j,k |
|
./pkg/bling/bling_mixedlayer.F |
72 |
BLING_MIXEDLAYER |
DO k=1,Nr |
|
./pkg/bling/bling_mixedlayer.F |
75 |
BLING_MIXEDLAYER |
if (k.eq.1) then |
|
./pkg/bling/bling_mixedlayer.F |
78 |
BLING_MIXEDLAYER |
delta_dens(i,j,k) = 9999. _d 0 |
|
./pkg/bling/bling_mixedlayer.F |
84 |
BLING_MIXEDLAYER |
DO k = 2,Nr |
|
./pkg/bling/bling_mixedlayer.F |
89 |
BLING_MIXEDLAYER |
I theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/bling/bling_mixedlayer.F |
91 |
BLING_MIXEDLAYER |
I k, bi, bj, myThid ) |
|
./pkg/bling/bling_mixedlayer.F |
98 |
BLING_MIXEDLAYER |
IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_mixedlayer.F |
99 |
BLING_MIXEDLAYER |
delta_dens(i,j,k) = dens_z(i,j)-dens_surf(i,j) |
|
./pkg/bling/bling_production.F |
146 |
BLING_PROD |
INTEGER i,j,k |
|
./pkg/bling/bling_production.F |
215 |
BLING_PROD |
DO k=1,Nr |
|
./pkg/bling/bling_production.F |
218 |
BLING_PROD |
G_NO3(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
219 |
BLING_PROD |
G_PO4(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
220 |
BLING_PROD |
G_Fe(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
221 |
BLING_PROD |
G_O2(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
222 |
BLING_PROD |
G_DON(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
223 |
BLING_PROD |
G_DOP(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
224 |
BLING_PROD |
G_CaCO3(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
225 |
BLING_PROD |
N_uptake(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
226 |
BLING_PROD |
N_fix(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
227 |
BLING_PROD |
N_den_pelag(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
228 |
BLING_PROD |
N_den_benthic(i,j,k)= 0. _d 0 |
|
./pkg/bling/bling_production.F |
229 |
BLING_PROD |
P_uptake(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
230 |
BLING_PROD |
Fe_uptake(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
231 |
BLING_PROD |
N_dvm(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
232 |
BLING_PROD |
P_dvm(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
233 |
BLING_PROD |
Fe_dvm(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
234 |
BLING_PROD |
CaCO3_uptake(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
235 |
BLING_PROD |
DON_prod(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
236 |
BLING_PROD |
DOP_prod(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
237 |
BLING_PROD |
O2_prod(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
238 |
BLING_PROD |
mu_diaz(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
239 |
BLING_PROD |
irr_eff(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
240 |
BLING_PROD |
irr_inst(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
241 |
BLING_PROD |
irrk(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
242 |
BLING_PROD |
NO3_lim(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
243 |
BLING_PROD |
PO4_lim(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
244 |
BLING_PROD |
Fe_lim(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
245 |
BLING_PROD |
Fe_lim_diaz(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
246 |
BLING_PROD |
light_lim(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
247 |
BLING_PROD |
PtoN(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
248 |
BLING_PROD |
FetoN(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
249 |
BLING_PROD |
NPP(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
250 |
BLING_PROD |
N_reminp(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
251 |
BLING_PROD |
P_reminp(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
252 |
BLING_PROD |
Fe_reminsum(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
253 |
BLING_PROD |
N_remindvm(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
254 |
BLING_PROD |
P_remindvm(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
276 |
BLING_PROD |
DO k=1,Nr |
|
./pkg/bling/bling_production.F |
280 |
BLING_PROD |
Phy_lg_local(i,j,k) = PTR_PHY(i,j,k)*phyto_lg(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
281 |
BLING_PROD |
Phy_sm_local(i,j,k) = PTR_PHY(i,j,k)*phyto_sm(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
282 |
BLING_PROD |
Phy_diaz_local(i,j,k) = PTR_PHY(i,j,k)*phyto_diaz(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
284 |
BLING_PROD |
Phy_lg_local(i,j,k) = phyto_lg(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
285 |
BLING_PROD |
Phy_sm_local(i,j,k) = phyto_sm(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
286 |
BLING_PROD |
Phy_diaz_local(i,j,k) = phyto_diaz(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
324 |
BLING_PROD |
DO k=1,Nr |
|
./pkg/bling/bling_production.F |
326 |
BLING_PROD |
IF (hFacC(i,j,k,bi,bj).gt.0. _d 0) THEN |
|
./pkg/bling/bling_production.F |
327 |
BLING_PROD |
IF ((-rf(k+1) .le. mld(i,j)).and. |
|
./pkg/bling/bling_production.F |
328 |
BLING_PROD |
& (-rf(k+1).lt.200. _d 0)) THEN |
|
./pkg/bling/bling_production.F |
329 |
BLING_PROD |
tmp_p_sm_ML = tmp_p_sm_ML+Phy_sm_local(i,j,k)*drF(k) |
|
./pkg/bling/bling_production.F |
330 |
BLING_PROD |
& *hFacC(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
331 |
BLING_PROD |
tmp_p_lg_ML = tmp_p_lg_ML+Phy_lg_local(i,j,k)*drF(k) |
|
./pkg/bling/bling_production.F |
332 |
BLING_PROD |
& *hFacC(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
333 |
BLING_PROD |
tmp_p_diaz_ML = tmp_p_diaz_ML+Phy_diaz_local(i,j,k)*drF(k) |
|
./pkg/bling/bling_production.F |
334 |
BLING_PROD |
& *hFacC(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
335 |
BLING_PROD |
tmp_ML = tmp_ML + drF(k) |
|
./pkg/bling/bling_production.F |
341 |
BLING_PROD |
DO k=1,Nr |
|
./pkg/bling/bling_production.F |
343 |
BLING_PROD |
IF (hFacC(i,j,k,bi,bj).gt.0. _d 0) THEN |
|
./pkg/bling/bling_production.F |
344 |
BLING_PROD |
IF ((-rf(k+1) .le. mld(i,j)).and. |
|
./pkg/bling/bling_production.F |
345 |
BLING_PROD |
& (-rf(k+1).lt.200. _d 0)) THEN |
|
./pkg/bling/bling_production.F |
347 |
BLING_PROD |
Phy_lg_local(i,j,k) = max(1. _d -8,tmp_p_lg_ML/tmp_ML) |
|
./pkg/bling/bling_production.F |
348 |
BLING_PROD |
Phy_sm_local(i,j,k) = max(1. _d -8,tmp_p_sm_ML/tmp_ML) |
|
./pkg/bling/bling_production.F |
349 |
BLING_PROD |
Phy_diaz_local(i,j,k) = max(1. _d -8,tmp_p_diaz_ML/tmp_ML) |
|
./pkg/bling/bling_production.F |
370 |
BLING_PROD |
DO k=1,Nr |
|
./pkg/bling/bling_production.F |
374 |
BLING_PROD |
irr_mem(i,j,k,bi,bj) = irr_mem(i,j,k,bi,bj) + |
|
./pkg/bling/bling_production.F |
375 |
BLING_PROD |
& (irr_eff(i,j,k) - irr_mem(i,j,k,bi,bj))* |
|
./pkg/bling/bling_production.F |
376 |
BLING_PROD |
& min( 1. _d 0, gamma_irr_mem*PTRACERS_dTLev(k) ) |
|
./pkg/bling/bling_production.F |
385 |
BLING_PROD |
DO k=1,Nr |
|
./pkg/bling/bling_production.F |
389 |
BLING_PROD |
IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_production.F |
402 |
BLING_PROD |
NO3_lim(i,j,k) = PTR_NO3(i,j,k)/(PTR_NO3(i,j,k)+k_NO3) |
|
./pkg/bling/bling_production.F |
404 |
BLING_PROD |
PO4_lim(i,j,k) = PTR_PO4(i,j,k)/(PTR_PO4(i,j,k)+k_PO4) |
|
./pkg/bling/bling_production.F |
408 |
BLING_PROD |
Fe_lim(i,j,k) = PTR_FE(i,j,k) |
|
./pkg/bling/bling_production.F |
409 |
BLING_PROD |
& / (PTR_FE(i,j,k)+k_Fe2d(i,j,bi,bj)) |
|
./pkg/bling/bling_production.F |
411 |
BLING_PROD |
Fe_lim_diaz(i,j,k) = PTR_FE(i,j,k) |
|
./pkg/bling/bling_production.F |
412 |
BLING_PROD |
& / (PTR_FE(i,j,k)+k_Fe_diaz2d(i,j,bi,bj)) |
|
./pkg/bling/bling_production.F |
421 |
BLING_PROD |
expkT(i,j,k) = exp(kappa_eppley * theta(i,j,k,bi,bj)) |
|
./pkg/bling/bling_production.F |
426 |
BLING_PROD |
Pc_m = Pc_2d(i,j,bi,bj) * expkT(i,j,k) |
|
./pkg/bling/bling_production.F |
427 |
BLING_PROD |
& * min(NO3_lim(i,j,k), PO4_lim(i,j,k), Fe_lim(i,j,k)) |
|
./pkg/bling/bling_production.F |
428 |
BLING_PROD |
& * maskC(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
431 |
BLING_PROD |
& * exp(kappa_eppley_diaz * theta(i,j,k,bi,bj)) |
|
./pkg/bling/bling_production.F |
432 |
BLING_PROD |
& * min(PO4_lim(i,j,k), Fe_lim_diaz(i,j,k)) |
|
./pkg/bling/bling_production.F |
433 |
BLING_PROD |
& * maskC(i,j,k,bi,bj) |
|
./pkg/bling/bling_production.F |
437 |
BLING_PROD |
Pc_m = max(Pc_m ,maskC(i,j,k,bi,bj)*1. _d -15) |
|
./pkg/bling/bling_production.F |
438 |
BLING_PROD |
Pc_m_diaz = max(Pc_m_diaz,maskC(i,j,k,bi,bj)*1. _d -15) |
|
./pkg/bling/bling_production.F |
450 |
BLING_PROD |
& (theta_Fe_max_hi-theta_Fe_max_lo)*Fe_lim(i,j,k) |
|
./pkg/bling/bling_production.F |
452 |
BLING_PROD |
theta_Fe(i,j,k) = theta_Fe_max |
|
./pkg/bling/bling_production.F |
455 |
BLING_PROD |
& *irr_mem(i,j,k,bi,bj)/(epsln + 2. _d 0*Pc_m)) |
|
./pkg/bling/bling_production.F |
458 |
BLING_PROD |
IF ( theta_Fe(i,j,k) .EQ.0. ) THEN |
|
./pkg/bling/bling_production.F |
459 |
BLING_PROD |
thFe_inv(i,j,k) = 0. |
|
./pkg/bling/bling_production.F |
461 |
BLING_PROD |
thFe_inv(i,j,k) = 1./theta_Fe(i,j,k) |
|
./pkg/bling/bling_production.F |
471 |
BLING_PROD |
irrk(i,j,k) = Pc_m |
|
./pkg/bling/bling_production.F |
473 |
BLING_PROD |
& + irr_mem(i,j,k,bi,bj)/2. _d 0 |
|
./pkg/bling/bling_production.F |
476 |
BLING_PROD |
mu(i,j,k) = Pc_m * ( 1. _d 0 - exp(-irr_eff(i,j,k) |
|
./pkg/bling/bling_production.F |
477 |
BLING_PROD |
& /(epsln + irrk(i,j,k)))) |
|
./pkg/bling/bling_production.F |
479 |
BLING_PROD |
mu_diaz(i,j,k) = Pc_m_diaz * ( 1. _d 0 - exp(-irr_eff(i,j,k) |
|
./pkg/bling/bling_production.F |
480 |
BLING_PROD |
& /(epsln + irrk(i,j,k)))) |
|
./pkg/bling/bling_production.F |
482 |
BLING_PROD |
light_lim(i,j,k) = ( 1. _d 0 - exp(-irr_eff(i,j,k) |
|
./pkg/bling/bling_production.F |
483 |
BLING_PROD |
& /(epsln + irrk(i,j,k)))) |
|
./pkg/bling/bling_production.F |
487 |
BLING_PROD |
IF (theta(i,j,k,bi,bj) .lt. 14) THEN |
|
./pkg/bling/bling_production.F |
488 |
BLING_PROD |
mu_diaz(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
492 |
BLING_PROD |
PtoN(i,j,k) = PtoN_min + (PtoN_max - PtoN_min) * |
|
./pkg/bling/bling_production.F |
493 |
BLING_PROD |
& PTR_PO4(i,j,k) / (k_PtoN + PTR_PO4(i,j,k)) |
|
./pkg/bling/bling_production.F |
495 |
BLING_PROD |
FetoN(i,j,k) = FetoN_min + (FetoN_max - FetoN_min) * |
|
./pkg/bling/bling_production.F |
496 |
BLING_PROD |
& PTR_FE(i,j,k) / (k_FetoN + PTR_FE(i,j,k)) |
|
./pkg/bling/bling_production.F |
499 |
BLING_PROD |
N_uptake(i,j,k) = mu(i,j,k)*(Phy_sm_local(i,j,k) |
|
./pkg/bling/bling_production.F |
500 |
BLING_PROD |
& + Phy_lg_local(i,j,k)) |
|
./pkg/bling/bling_production.F |
502 |
BLING_PROD |
N_fix(i,j,k) = mu_diaz(i,j,k) * Phy_diaz_local(i,j,k) |
|
./pkg/bling/bling_production.F |
504 |
BLING_PROD |
P_uptake(i,j,k) = (N_uptake(i,j,k) + |
|
./pkg/bling/bling_production.F |
505 |
BLING_PROD |
& N_fix(i,j,k)) * PtoN(i,j,k) |
|
./pkg/bling/bling_production.F |
507 |
BLING_PROD |
Fe_uptake(i,j,k) = (N_uptake(i,j,k) + |
|
./pkg/bling/bling_production.F |
508 |
BLING_PROD |
& N_fix(i,j,k)) * FetoN(i,j,k) |
|
./pkg/bling/bling_production.F |
517 |
BLING_PROD |
CaCO3_uptake(i,j,k) = Phy_sm_local(i,j,k)*phi_sm2d(i,j,bi,bj) |
|
./pkg/bling/bling_production.F |
518 |
BLING_PROD |
& * mu(i,j,k) * CatoN |
|
./pkg/bling/bling_production.F |
525 |
BLING_PROD |
DO k=1,Nr |
|
./pkg/bling/bling_production.F |
529 |
BLING_PROD |
IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_production.F |
531 |
BLING_PROD |
Phy_lg_local(i,j,k) = Phy_lg_local(i,j,k) + |
|
./pkg/bling/bling_production.F |
532 |
BLING_PROD |
& Phy_lg_local(i,j,k)*(mu(i,j,k) - lambda_0 |
|
./pkg/bling/bling_production.F |
533 |
BLING_PROD |
& *expkT(i,j,k) * |
|
./pkg/bling/bling_production.F |
534 |
BLING_PROD |
& (Phy_lg_local(i,j,k)/pivotal)**(1. / 3.)) |
|
./pkg/bling/bling_production.F |
535 |
BLING_PROD |
& * PTRACERS_dTLev(k) |
|
./pkg/bling/bling_production.F |
537 |
BLING_PROD |
Phy_sm_local(i,j,k) = Phy_sm_local(i,j,k) + |
|
./pkg/bling/bling_production.F |
538 |
BLING_PROD |
& Phy_sm_local(i,j,k)*(mu(i,j,k) - lambda_0 |
|
./pkg/bling/bling_production.F |
539 |
BLING_PROD |
& *expkT(i,j,k) * (Phy_sm_local(i,j,k)/pivotal) ) |
|
./pkg/bling/bling_production.F |
540 |
BLING_PROD |
& * PTRACERS_dTLev(k) |
|
./pkg/bling/bling_production.F |
542 |
BLING_PROD |
Phy_diaz_local(i,j,k) = Phy_diaz_local(i,j,k) + |
|
./pkg/bling/bling_production.F |
543 |
BLING_PROD |
& Phy_diaz_local(i,j,k)*(mu_diaz(i,j,k) - lambda_0 |
|
./pkg/bling/bling_production.F |
544 |
BLING_PROD |
& *expkT(i,j,k) * (Phy_diaz_local(i,j,k)/pivotal) ) |
|
./pkg/bling/bling_production.F |
545 |
BLING_PROD |
& * PTRACERS_dTLev(k) |
|
./pkg/bling/bling_production.F |
557 |
BLING_PROD |
DO k=1,Nr |
|
./pkg/bling/bling_production.F |
561 |
BLING_PROD |
IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_production.F |
565 |
BLING_PROD |
PTR_PHY(i,j,k) = Phy_lg_local(i,j,k) + Phy_sm_local(i,j,k) |
|
./pkg/bling/bling_production.F |
566 |
BLING_PROD |
& + Phy_diaz_local(i,j,k) |
|
./pkg/bling/bling_production.F |
568 |
BLING_PROD |
phyto_lg(i,j,k,bi,bj) = Phy_lg_local(i,j,k)/PTR_PHY(i,j,k) |
|
./pkg/bling/bling_production.F |
569 |
BLING_PROD |
phyto_sm(i,j,k,bi,bj) = Phy_sm_local(i,j,k)/PTR_PHY(i,j,k) |
|
./pkg/bling/bling_production.F |
570 |
BLING_PROD |
phyto_diaz(i,j,k,bi,bj) = Phy_diaz_local(i,j,k)/PTR_PHY(i,j,k) |
|
./pkg/bling/bling_production.F |
573 |
BLING_PROD |
phyto_lg(i,j,k,bi,bj) = Phy_lg_local(i,j,k) |
|
./pkg/bling/bling_production.F |
574 |
BLING_PROD |
phyto_sm(i,j,k,bi,bj) = Phy_sm_local(i,j,k) |
|
./pkg/bling/bling_production.F |
575 |
BLING_PROD |
phyto_diaz(i,j,k,bi,bj) = Phy_diaz_local(i,j,k) |
|
./pkg/bling/bling_production.F |
581 |
BLING_PROD |
chl(i,j,k,bi,bj) = max(chl_min, CtoN * 12.01 * 1. _d 3 * |
|
./pkg/bling/bling_production.F |
582 |
BLING_PROD |
& theta_Fe(i,j,k) * |
|
./pkg/bling/bling_production.F |
583 |
BLING_PROD |
& (Phy_lg_local(i,j,k) + Phy_sm_local(i,j,k) |
|
./pkg/bling/bling_production.F |
584 |
BLING_PROD |
& + Phy_diaz_local(i,j,k))) |
|
./pkg/bling/bling_production.F |
591 |
BLING_PROD |
DO k=1,Nr |
|
./pkg/bling/bling_production.F |
595 |
BLING_PROD |
IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_production.F |
619 |
BLING_PROD |
& (mu(i,j,k)/(epsln + lambda_0*expkT(i,j,k)))**2.)/ |
|
./pkg/bling/bling_production.F |
620 |
BLING_PROD |
& (1. + (mu(i,j,k)/(epsln + lambda_0*expkT(i,j,k)))**2.)* |
|
./pkg/bling/bling_production.F |
621 |
BLING_PROD |
& exp(kappa_remin * theta(i,j,k,bi,bj)) |
|
./pkg/bling/bling_production.F |
624 |
BLING_PROD |
N_spm(i,j,k) = frac_exp * (1.0 - phi_dvm) * |
|
./pkg/bling/bling_production.F |
625 |
BLING_PROD |
& (N_uptake(i,j,k) + N_fix(i,j,k)) |
|
./pkg/bling/bling_production.F |
627 |
BLING_PROD |
P_spm(i,j,k) = frac_exp * (1.0 - phi_dvm) * |
|
./pkg/bling/bling_production.F |
628 |
BLING_PROD |
& P_uptake(i,j,k) |
|
./pkg/bling/bling_production.F |
630 |
BLING_PROD |
Fe_spm(i,j,k) = frac_exp * (1.0 - phi_dvm) * |
|
./pkg/bling/bling_production.F |
631 |
BLING_PROD |
& Fe_uptake(i,j,k) |
|
./pkg/bling/bling_production.F |
633 |
BLING_PROD |
N_dvm(i,j,k) = frac_exp * |
|
./pkg/bling/bling_production.F |
634 |
BLING_PROD |
& (N_uptake(i,j,k) + N_fix(i,j,k)) - N_spm(i,j,k) |
|
./pkg/bling/bling_production.F |
636 |
BLING_PROD |
P_dvm(i,j,k) = frac_exp * P_uptake(i,j,k) - |
|
./pkg/bling/bling_production.F |
637 |
BLING_PROD |
& P_spm(i,j,k) |
|
./pkg/bling/bling_production.F |
639 |
BLING_PROD |
Fe_dvm(i,j,k) = frac_exp * Fe_uptake(i,j,k) - |
|
./pkg/bling/bling_production.F |
640 |
BLING_PROD |
& Fe_spm(i,j,k) |
|
./pkg/bling/bling_production.F |
642 |
BLING_PROD |
N_spm(i,j,k) = frac_exp * (N_uptake(i,j,k) + N_fix(i,j,k)) |
|
./pkg/bling/bling_production.F |
643 |
BLING_PROD |
P_spm(i,j,k) = frac_exp *P_uptake(i,j,k) |
|
./pkg/bling/bling_production.F |
644 |
BLING_PROD |
Fe_spm(i,j,k) = frac_exp * Fe_uptake(i,j,k) |
|
./pkg/bling/bling_production.F |
646 |
BLING_PROD |
N_dvm(i,j,k) = 0 |
|
./pkg/bling/bling_production.F |
647 |
BLING_PROD |
P_dvm(i,j,k) = 0 |
|
./pkg/bling/bling_production.F |
648 |
BLING_PROD |
Fe_dvm(i,j,k) = 0 |
|
./pkg/bling/bling_production.F |
654 |
BLING_PROD |
DON_prod(i,j,k) = phi_DOM2d(i,j,bi,bj)*(N_uptake(i,j,k) |
|
./pkg/bling/bling_production.F |
655 |
BLING_PROD |
& + N_fix(i,j,k) - N_spm(i,j,k) |
|
./pkg/bling/bling_production.F |
656 |
BLING_PROD |
& - N_dvm(i,j,k)) |
|
./pkg/bling/bling_production.F |
658 |
BLING_PROD |
DOP_prod(i,j,k) = phi_DOM2d(i,j,bi,bj)*(P_uptake(i,j,k) |
|
./pkg/bling/bling_production.F |
659 |
BLING_PROD |
& - P_spm(i,j,k) - P_dvm(i,j,k)) |
|
./pkg/bling/bling_production.F |
661 |
BLING_PROD |
N_recycle(i,j,k) = N_uptake(i,j,k) + N_fix(i,j,k) |
|
./pkg/bling/bling_production.F |
662 |
BLING_PROD |
& - N_spm(i,j,k) - DON_prod(i,j,k) |
|
./pkg/bling/bling_production.F |
663 |
BLING_PROD |
& - N_dvm(i,j,k) |
|
./pkg/bling/bling_production.F |
665 |
BLING_PROD |
P_recycle(i,j,k) = P_uptake(i,j,k) |
|
./pkg/bling/bling_production.F |
666 |
BLING_PROD |
& - P_spm(i,j,k) - DOP_prod(i,j,k) |
|
./pkg/bling/bling_production.F |
667 |
BLING_PROD |
& - P_dvm(i,j,k) |
|
./pkg/bling/bling_production.F |
669 |
BLING_PROD |
Fe_recycle(i,j,k) = Fe_uptake(i,j,k) |
|
./pkg/bling/bling_production.F |
670 |
BLING_PROD |
& - Fe_spm(i,j,k) - Fe_dvm(i,j,k) |
|
./pkg/bling/bling_production.F |
704 |
BLING_PROD |
DO k=1,Nr |
|
./pkg/bling/bling_production.F |
708 |
BLING_PROD |
IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_production.F |
713 |
BLING_PROD |
DON_remin(i,j,k) = MAX(maskC(i,j,k,bi,bj)*gamma_DON |
|
./pkg/bling/bling_production.F |
714 |
BLING_PROD |
& *PTR_DON(i,j,k),0. _d 0) |
|
./pkg/bling/bling_production.F |
715 |
BLING_PROD |
DOP_remin(i,j,k) = MAX(maskC(i,j,k,bi,bj)*gamma_DOP |
|
./pkg/bling/bling_production.F |
716 |
BLING_PROD |
& *PTR_DOP(i,j,k),0. _d 0) |
|
./pkg/bling/bling_production.F |
718 |
BLING_PROD |
DON_remin(i,j,k) = maskC(i,j,k,bi,bj)*gamma_DON |
|
./pkg/bling/bling_production.F |
719 |
BLING_PROD |
& *PTR_DON(i,j,k) |
|
./pkg/bling/bling_production.F |
720 |
BLING_PROD |
DOP_remin(i,j,k) = maskC(i,j,k,bi,bj)*gamma_DOP |
|
./pkg/bling/bling_production.F |
721 |
BLING_PROD |
& *PTR_DOP(i,j,k) |
|
./pkg/bling/bling_production.F |
727 |
BLING_PROD |
IF (PTR_O2(i,j,k) .lt. oxic_min) THEN |
|
./pkg/bling/bling_production.F |
728 |
BLING_PROD |
IF (PTR_NO3(i,j,k) .gt. oxic_min) THEN |
|
./pkg/bling/bling_production.F |
729 |
BLING_PROD |
N_den_pelag(i,j,k) = max(epsln, (NO3toN * |
|
./pkg/bling/bling_production.F |
731 |
BLING_PROD |
& * (N_reminp(i,j,k) |
|
./pkg/bling/bling_production.F |
732 |
BLING_PROD |
& + N_remindvm(i,j,k)) + DON_remin(i,j,k) + |
|
./pkg/bling/bling_production.F |
733 |
BLING_PROD |
& N_recycle(i,j,k))) - N_den_benthic(i,j,k)) |
|
./pkg/bling/bling_production.F |
738 |
BLING_PROD |
O2_prod(i,j,k) = O2toN * N_uptake(i,j,k) |
|
./pkg/bling/bling_production.F |
739 |
BLING_PROD |
& + (O2toN - 1.25 _d 0) * N_fix(i,j,k) |
|
./pkg/bling/bling_production.F |
750 |
BLING_PROD |
G_PO4(i,j,k) = -P_uptake(i,j,k) + P_recycle(i,j,k) |
|
./pkg/bling/bling_production.F |
752 |
BLING_PROD |
& * (P_reminp(i,j,k) |
|
./pkg/bling/bling_production.F |
753 |
BLING_PROD |
& + P_remindvm(i,j,k)) + DOP_remin(i,j,k) |
|
./pkg/bling/bling_production.F |
755 |
BLING_PROD |
G_NO3(i,j,k) = -N_uptake(i,j,k) |
|
./pkg/bling/bling_production.F |
756 |
BLING_PROD |
IF (PTR_O2(i,j,k) .lt. oxic_min) THEN |
|
./pkg/bling/bling_production.F |
758 |
BLING_PROD |
G_NO3(i,j,k) = G_NO3(i,j,k) |
|
./pkg/bling/bling_production.F |
759 |
BLING_PROD |
& - N_den_pelag(i,j,k) - N_den_benthic(i,j,k) |
|
./pkg/bling/bling_production.F |
762 |
BLING_PROD |
G_NO3(i,j,k) = G_NO3(i,j,k) |
|
./pkg/bling/bling_production.F |
763 |
BLING_PROD |
& + N_recycle(i,j,k) |
|
./pkg/bling/bling_production.F |
765 |
BLING_PROD |
& * (N_reminp(i,j,k) + N_remindvm(i,j,k)) |
|
./pkg/bling/bling_production.F |
766 |
BLING_PROD |
& + DON_remin(i,j,k) |
|
./pkg/bling/bling_production.F |
773 |
BLING_PROD |
G_FE(i,j,k) = -Fe_uptake(i,j,k) + Fe_reminsum(i,j,k) |
|
./pkg/bling/bling_production.F |
774 |
BLING_PROD |
& + Fe_remindvm(i,j,k) + Fe_recycle(i,j,k) |
|
./pkg/bling/bling_production.F |
779 |
BLING_PROD |
G_DON(i,j,k) = DON_prod(i,j,k) + phi_DOM2d(i,j,bi,bj) |
|
./pkg/bling/bling_production.F |
780 |
BLING_PROD |
& * (N_reminp(i,j,k) + N_remindvm(i,j,k)) |
|
./pkg/bling/bling_production.F |
781 |
BLING_PROD |
& - DON_remin(i,j,k) |
|
./pkg/bling/bling_production.F |
783 |
BLING_PROD |
G_DOP(i,j,k) = DOP_prod(i,j,k) + phi_DOM2d(i,j,bi,bj) |
|
./pkg/bling/bling_production.F |
784 |
BLING_PROD |
& * (P_reminp(i,j,k) + P_remindvm(i,j,k)) |
|
./pkg/bling/bling_production.F |
785 |
BLING_PROD |
& - DOP_remin(i,j,k) |
|
./pkg/bling/bling_production.F |
796 |
BLING_PROD |
G_O2(i,j,k) = O2_prod(i,j,k) |
|
./pkg/bling/bling_production.F |
798 |
BLING_PROD |
IF (PTR_O2(i,j,k) .gt. oxic_min) THEN |
|
./pkg/bling/bling_production.F |
799 |
BLING_PROD |
G_O2(i,j,k) = G_O2(i,j,k) |
|
./pkg/bling/bling_production.F |
801 |
BLING_PROD |
& * (N_reminp(i,j,k) + N_remindvm(i,j,k)) |
|
./pkg/bling/bling_production.F |
802 |
BLING_PROD |
& + DON_remin(i,j,k) + N_recycle(i,j,k)) |
|
./pkg/bling/bling_production.F |
805 |
BLING_PROD |
ELSEIF (PTR_NO3(i,j,k) .lt. oxic_min) THEN |
|
./pkg/bling/bling_production.F |
806 |
BLING_PROD |
G_O2(i,j,k) = G_O2(i,j,k) |
|
./pkg/bling/bling_production.F |
808 |
BLING_PROD |
& * (N_reminp(i,j,k) + N_remindvm(i,j,k)) |
|
./pkg/bling/bling_production.F |
809 |
BLING_PROD |
& + DON_remin(i,j,k) + N_recycle(i,j,k)) |
|
./pkg/bling/bling_production.F |
810 |
BLING_PROD |
& + N_den_benthic(i,j,k) * 1.25 _d 0 |
|
./pkg/bling/bling_production.F |
813 |
BLING_PROD |
G_CaCO3(i,j,k) = CaCO3_diss(i,j,k) - CaCO3_uptake(i,j,k) |
|
./pkg/bling/bling_production.F |
817 |
BLING_PROD |
POC_flux(i,j,k) = CtoN * N_spm(i,j,k) |
|
./pkg/bling/bling_production.F |
819 |
BLING_PROD |
NPP(i,j,k) = (N_uptake(i,j,k) + N_fix(i,j,k)) * CtoN |
|
./pkg/bling/bling_production.F |
821 |
BLING_PROD |
NCP(i,j,k) = (N_uptake(i,j,k) + N_fix(i,j,k) |
|
./pkg/bling/bling_production.F |
822 |
BLING_PROD |
& - N_recycle(i,j,k) |
|
./pkg/bling/bling_production.F |
824 |
BLING_PROD |
& * (N_reminp(i,j,k) + N_remindvm(i,j,k)) |
|
./pkg/bling/bling_production.F |
825 |
BLING_PROD |
& - DON_remin(i,j,k) ) * CtoN |
|
./pkg/bling/bling_production.F |
829 |
BLING_PROD |
Phy_lg_local(i,j,k) = Phy_lg_local(i,j,k) * CtoN |
|
./pkg/bling/bling_production.F |
830 |
BLING_PROD |
Phy_sm_local(i,j,k) = Phy_sm_local(i,j,k) * CtoN |
|
./pkg/bling/bling_production.F |
831 |
BLING_PROD |
Phy_diaz_local(i,j,k) = Phy_diaz_local(i,j,k) * CtoN |
|
./pkg/bling/bling_production.F |
835 |
BLING_PROD |
poc(i,j,k,bi,bj) = (Phy_lg_local(i,j,k) + Phy_sm_local(i,j,k) + |
|
./pkg/bling/bling_production.F |
836 |
BLING_PROD |
& Phy_diaz_local(i,j,k) ) * 3.33333 _d 0 |
|
./pkg/bling/bling_readparms.F |
210 |
BLING_READPARMS |
integer k |
|
./pkg/bling/bling_readparms.F |
293 |
BLING_READPARMS |
DO k=1,8 |
|
./pkg/bling/bling_readparms.F |
294 |
BLING_READPARMS |
river_conc_trac(k) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
112 |
BLING_REMIN |
DO k=1,Nr |
|
./pkg/bling/bling_remineralization.F |
115 |
BLING_REMIN |
Fe_ads_org(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
116 |
BLING_REMIN |
Fe_ads_inorg(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
117 |
BLING_REMIN |
N_reminp(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
118 |
BLING_REMIN |
P_reminp(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
119 |
BLING_REMIN |
Fe_reminp(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
120 |
BLING_REMIN |
Fe_reminsum(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
121 |
BLING_REMIN |
N_den_benthic(i,j,k)= 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
122 |
BLING_REMIN |
CaCO3_diss(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
149 |
BLING_REMIN |
DO k=1,Nr |
|
./pkg/bling/bling_remineralization.F |
152 |
BLING_REMIN |
Fe_ads_org(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
156 |
BLING_REMIN |
IF (k.LT.Nr) THEN |
|
./pkg/bling/bling_remineralization.F |
157 |
BLING_REMIN |
IF (hFacC(i,j,k+1,bi,bj).GT.0) bttmlyr = 0 |
|
./pkg/bling/bling_remineralization.F |
161 |
BLING_REMIN |
IF ( hFacC(i,j,k,bi,bj).gt.0. _d 0 ) THEN |
|
./pkg/bling/bling_remineralization.F |
164 |
BLING_REMIN |
depth_l=-rF(k+1) |
|
./pkg/bling/bling_remineralization.F |
173 |
BLING_REMIN |
zremin = gamma_POM2d(i,j,bi,bj) * ( PTR_O2(i,j,k)**2 / |
|
./pkg/bling/bling_remineralization.F |
174 |
BLING_REMIN |
& (k_O2**2 + PTR_O2(i,j,k)**2) * (1-remin_min) |
|
./pkg/bling/bling_remineralization.F |
180 |
BLING_REMIN |
& omegaC(i,j,k,bi,bj) + epsln )) |
|
./pkg/bling/bling_remineralization.F |
183 |
BLING_REMIN |
PONflux_l = (PONflux_u+N_spm(i,j,k)*drF(k) |
|
./pkg/bling/bling_remineralization.F |
184 |
BLING_REMIN |
& *hFacC(i,j,k,bi,bj))/(1+zremin*drF(k) |
|
./pkg/bling/bling_remineralization.F |
185 |
BLING_REMIN |
& *hFacC(i,j,k,bi,bj)) |
|
./pkg/bling/bling_remineralization.F |
187 |
BLING_REMIN |
POPflux_l = (POPflux_u+P_spm(i,j,k)*drF(k) |
|
./pkg/bling/bling_remineralization.F |
188 |
BLING_REMIN |
& *hFacC(i,j,k,bi,bj))/(1+zremin*drF(k) |
|
./pkg/bling/bling_remineralization.F |
189 |
BLING_REMIN |
& *hFacC(i,j,k,bi,bj)) |
|
./pkg/bling/bling_remineralization.F |
192 |
BLING_REMIN |
CaCO3flux_l = (caco3flux_u+CaCO3_uptake(i,j,k)*drF(k) |
|
./pkg/bling/bling_remineralization.F |
193 |
BLING_REMIN |
& *hFacC(i,j,k,bi,bj))/(1+zremin_caco3*drF(k) |
|
./pkg/bling/bling_remineralization.F |
194 |
BLING_REMIN |
& *hFacC(i,j,k,bi,bj)) |
|
./pkg/bling/bling_remineralization.F |
202 |
BLING_REMIN |
N_reminp(i,j,k) = (PONflux_u + N_spm(i,j,k)*drF(k) |
|
./pkg/bling/bling_remineralization.F |
203 |
BLING_REMIN |
& - PONflux_l)*recip_drF(k) |
|
./pkg/bling/bling_remineralization.F |
205 |
BLING_REMIN |
P_reminp(i,j,k) = (POPflux_u + P_spm(i,j,k)*drF(k) |
|
./pkg/bling/bling_remineralization.F |
206 |
BLING_REMIN |
& - POPflux_l)*recip_drF(k) |
|
./pkg/bling/bling_remineralization.F |
208 |
BLING_REMIN |
CaCO3_diss(i,j,k) = (CaCO3flux_u + CaCO3_uptake(i,j,k) |
|
./pkg/bling/bling_remineralization.F |
209 |
BLING_REMIN |
& *drF(k) - CaCO3flux_l)*recip_drF(k) |
|
./pkg/bling/bling_remineralization.F |
211 |
BLING_REMIN |
Fe_sed(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
218 |
BLING_REMIN |
N_reminp(i,j,k) = PONflux_u*recip_drF(k) |
|
./pkg/bling/bling_remineralization.F |
219 |
BLING_REMIN |
& *recip_hFacC(i,j,k,bi,bj) + N_spm(i,j,k) |
|
./pkg/bling/bling_remineralization.F |
221 |
BLING_REMIN |
P_reminp(i,j,k) = POPflux_u*recip_drF(k) |
|
./pkg/bling/bling_remineralization.F |
222 |
BLING_REMIN |
& *recip_hFacC(i,j,k,bi,bj) + P_spm(i,j,k) |
|
./pkg/bling/bling_remineralization.F |
224 |
BLING_REMIN |
CaCO3_diss(i,j,k) = CaCO3flux_u*recip_drF(k) |
|
./pkg/bling/bling_remineralization.F |
225 |
BLING_REMIN |
& *recip_hFacC(i,j,k,bi,bj) + CaCO3_uptake(i,j,k) |
|
./pkg/bling/bling_remineralization.F |
234 |
BLING_REMIN |
Fe_sed(i,j,k) = max(epsln, FetoC_sed * POC_sed * recip_drF(k) |
|
./pkg/bling/bling_remineralization.F |
235 |
BLING_REMIN |
& *recip_hFacC(i,j,k,bi,bj)) |
|
./pkg/bling/bling_remineralization.F |
252 |
BLING_REMIN |
N_den_benthic(i,j,k) = min (POC_sed * NO3toN / CtoN, |
|
./pkg/bling/bling_remineralization.F |
256 |
BLING_REMIN |
& PTR_NO3(i,j,k) / (k_no3 + PTR_NO3(i,j,k)) ) * |
|
./pkg/bling/bling_remineralization.F |
257 |
BLING_REMIN |
& recip_drF(k) |
|
./pkg/bling/bling_remineralization.F |
280 |
BLING_REMIN |
NO3_sed(i,j) = PONflux_l*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/bling/bling_remineralization.F |
281 |
BLING_REMIN |
& - N_den_benthic(i,j,k) / NO3toN |
|
./pkg/bling/bling_remineralization.F |
283 |
BLING_REMIN |
PO4_sed(i,j) = POPflux_l*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/bling/bling_remineralization.F |
290 |
BLING_REMIN |
O2_sed(i,j) = -(O2toN * PONflux_l*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/bling/bling_remineralization.F |
291 |
BLING_REMIN |
& - N_den_benthic(i,j,k)* 1.25) |
|
./pkg/bling/bling_remineralization.F |
300 |
BLING_REMIN |
& *(irr_inst(i,j,k)**2 |
|
./pkg/bling/bling_remineralization.F |
301 |
BLING_REMIN |
& /(kFe_eq_lig_irr**2+irr_inst(i,j,k)**2)) |
|
./pkg/bling/bling_remineralization.F |
302 |
BLING_REMIN |
& *max(epsln,min(1. _d 0,(PTR_FE(i,j,k) |
|
./pkg/bling/bling_remineralization.F |
304 |
BLING_REMIN |
& (PTR_FE(i,j,k)+epsln)*1.2 _d 0)) |
|
./pkg/bling/bling_remineralization.F |
308 |
BLING_REMIN |
FreeFe = (-(1+lig_stability*(ligand-PTR_FE(i,j,k))) |
|
./pkg/bling/bling_remineralization.F |
309 |
BLING_REMIN |
& +((1+lig_stability*(ligand-PTR_FE(i,j,k)))**2+4* |
|
./pkg/bling/bling_remineralization.F |
310 |
BLING_REMIN |
& lig_stability*PTR_FE(i,j,k))**(0.5))/(2* |
|
./pkg/bling/bling_remineralization.F |
317 |
BLING_REMIN |
IF (PTR_O2(i,j,k) .LT. oxic_min) THEN |
|
./pkg/bling/bling_remineralization.F |
324 |
BLING_REMIN |
Fe_ads_inorg(i,j,k) = |
|
./pkg/bling/bling_remineralization.F |
331 |
BLING_REMIN |
Fe_ads_org(i,j,k) = |
|
./pkg/bling/bling_remineralization.F |
340 |
BLING_REMIN |
PFEflux_l = (PFEflux_u+(Fe_spm(i,j,k)+Fe_ads_inorg(i,j,k) |
|
./pkg/bling/bling_remineralization.F |
341 |
BLING_REMIN |
& +Fe_ads_org(i,j,k))*drF(k) |
|
./pkg/bling/bling_remineralization.F |
342 |
BLING_REMIN |
& *hFacC(i,j,k,bi,bj))/(1+zremin*drF(k) |
|
./pkg/bling/bling_remineralization.F |
343 |
BLING_REMIN |
& *hFacC(i,j,k,bi,bj)) |
|
./pkg/bling/bling_remineralization.F |
351 |
BLING_REMIN |
IF ( PTR_O2(i,j,k) .LT. oxic_min ) THEN |
|
./pkg/bling/bling_remineralization.F |
355 |
BLING_REMIN |
Fe_reminp(i,j,k) = (PFEflux_u+(Fe_spm(i,j,k) |
|
./pkg/bling/bling_remineralization.F |
356 |
BLING_REMIN |
& +Fe_ads_inorg(i,j,k) |
|
./pkg/bling/bling_remineralization.F |
357 |
BLING_REMIN |
& +Fe_ads_org(i,j,k))*drF(k) |
|
./pkg/bling/bling_remineralization.F |
358 |
BLING_REMIN |
& *hFacC(i,j,k,bi,bj)-PFEflux_l)*recip_drF(k) |
|
./pkg/bling/bling_remineralization.F |
359 |
BLING_REMIN |
& *recip_hFacC(i,j,k,bi,bj) |
|
./pkg/bling/bling_remineralization.F |
367 |
BLING_REMIN |
Fe_reminsum(i,j,k) = Fe_reminp(i,j,k) + Fe_sed(i,j,k) |
|
./pkg/bling/bling_remineralization.F |
368 |
BLING_REMIN |
& - Fe_ads_org(i,j,k) - Fe_ads_inorg(i,j,k) |
|
./pkg/bling/bling_remineralization.F |
81 |
BLING_REMIN |
INTEGER i,j,k |
|
./pkg/bling/bling_sgs.F |
50 |
BLING_SGS |
INTEGER i,j,k |
|
./pkg/cal/cal_set.F |
143 |
CAL_SET |
k=2773 |
|
./pkg/cal/cal_set.F |
145 |
CAL_SET |
j = MOD(k,2) |
|
./pkg/cal/cal_set.F |
146 |
CAL_SET |
k = (k-j)/2 |
|
./pkg/cal/cal_set.F |
76 |
CAL_SET |
INTEGER i,j,k |
|
./pkg/cd_code/cd_code_scheme.F |
11 |
CD_CODE_SCHEME |
I bi,bj,k, dPhiHydX,dPhiHydY, guFld,gvFld, |
|
./pkg/cd_code/cd_code_scheme.F |
122 |
CD_CODE_SCHEME |
& )*_maskS(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
134 |
CD_CODE_SCHEME |
& *_maskW(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
138 |
CD_CODE_SCHEME |
& *uVel(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
140 |
CD_CODE_SCHEME |
& *( ab15*uVel(i,j,k,bi,bj) + ab05*uNM1(i,j,k,bi,bj) ) |
|
./pkg/cd_code/cd_code_scheme.F |
147 |
CD_CODE_SCHEME |
vVelD(i,j,k,bi,bj) = vVelD(i,j,k,bi,bj) + deltaTmom*vf(i,j) |
|
./pkg/cd_code/cd_code_scheme.F |
153 |
CD_CODE_SCHEME |
vVelD(i,j,k,bi,bj) = ( rCD*vVelD(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
156 |
CD_CODE_SCHEME |
& (vVel(i,j,k,bi,bj)+vVel(i-1,j+1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
157 |
CD_CODE_SCHEME |
& +(vVel(i-1,j,k,bi,bj)+vVel(i,j+1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
160 |
CD_CODE_SCHEME |
& (vNM1(i,j,k,bi,bj)+vNM1(i-1,j+1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
161 |
CD_CODE_SCHEME |
& +(vNM1(i-1,j,k,bi,bj)+vNM1(i,j+1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
163 |
CD_CODE_SCHEME |
& ) )*_maskW(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
172 |
CD_CODE_SCHEME |
& *vVelD(i,j,k,bi,bj)*cfFacMom |
|
./pkg/cd_code/cd_code_scheme.F |
184 |
CD_CODE_SCHEME |
& )*_maskW(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
196 |
CD_CODE_SCHEME |
& *_maskS(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
200 |
CD_CODE_SCHEME |
& *vVel(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
202 |
CD_CODE_SCHEME |
& *( ab15*vVel(i,j,k,bi,bj) + ab05*vNM1(i,j,k,bi,bj) ) |
|
./pkg/cd_code/cd_code_scheme.F |
209 |
CD_CODE_SCHEME |
uVelD(i,j,k,bi,bj) = uVelD(i,j,k,bi,bj) + deltaTmom*vf(i,j) |
|
./pkg/cd_code/cd_code_scheme.F |
215 |
CD_CODE_SCHEME |
uVelD(i,j,k,bi,bj) = ( rCD*uVelD(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
218 |
CD_CODE_SCHEME |
& (uVel(i,j,k,bi,bj)+uVel(i+1,j-1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
219 |
CD_CODE_SCHEME |
& +(uVel(i,j-1,k,bi,bj)+uVel(i+1,j,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
222 |
CD_CODE_SCHEME |
& (uNM1(i,j,k,bi,bj)+uNM1(i+1,j-1,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
223 |
CD_CODE_SCHEME |
& +(uNM1(i,j-1,k,bi,bj)+uNM1(i+1,j,k,bi,bj)) |
|
./pkg/cd_code/cd_code_scheme.F |
225 |
CD_CODE_SCHEME |
& ) )*_maskS(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
234 |
CD_CODE_SCHEME |
& *uVelD(i,j,k,bi,bj)*cfFacMom |
|
./pkg/cd_code/cd_code_scheme.F |
241 |
CD_CODE_SCHEME |
uNM1(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
242 |
CD_CODE_SCHEME |
vNM1(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
41 |
CD_CODE_SCHEME |
INTEGER bi,bj,k |
|
./pkg/cfc/cfc11_surfforcing.F |
56 |
CFC11_SURFFORCING |
INTEGER i,j,k |
|
./pkg/cfc/cfc11_surfforcing.F |
65 |
CFC11_SURFFORCING |
k=1 |
|
./pkg/cfc/cfc11_surfforcing.F |
70 |
CFC11_SURFFORCING |
IF ( maskC(i,j,k,bi,bj).NE.zeroRS ) THEN |
|
./pkg/cfc/cfc11_surfforcing.F |
74 |
CFC11_SURFFORCING |
& + sca_11_2 * theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc11_surfforcing.F |
75 |
CFC11_SURFFORCING |
& + sca_11_3 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc11_surfforcing.F |
76 |
CFC11_SURFFORCING |
& + sca_11_4 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc11_surfforcing.F |
77 |
CFC11_SURFFORCING |
& *theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc11_surfforcing.F |
79 |
CFC11_SURFFORCING |
ttemp=( theta(i,j,k,bi,bj) + 273.16 _d 0)* 0.01 _d 0 |
|
./pkg/cfc/cfc11_surfforcing.F |
86 |
CFC11_SURFFORCING |
& + Salt(i,j,k,bi,bj)* ttemp2 ) |
|
./pkg/cfc/cfc12_surfforcing.F |
56 |
CFC12_SURFFORCING |
INTEGER i,j,k |
|
./pkg/cfc/cfc12_surfforcing.F |
65 |
CFC12_SURFFORCING |
k=1 |
|
./pkg/cfc/cfc12_surfforcing.F |
70 |
CFC12_SURFFORCING |
IF ( maskC(i,j,k,bi,bj).NE.zeroRS ) THEN |
|
./pkg/cfc/cfc12_surfforcing.F |
74 |
CFC12_SURFFORCING |
& + sca_12_2 * theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc12_surfforcing.F |
75 |
CFC12_SURFFORCING |
& + sca_12_3 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc12_surfforcing.F |
76 |
CFC12_SURFFORCING |
& + sca_12_4 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc12_surfforcing.F |
77 |
CFC12_SURFFORCING |
& *theta(i,j,k,bi,bj) |
|
./pkg/cfc/cfc12_surfforcing.F |
79 |
CFC12_SURFFORCING |
ttemp=( theta(i,j,k,bi,bj) + 273.16 _d 0)* 0.01 _d 0 |
|
./pkg/cfc/cfc12_surfforcing.F |
86 |
CFC12_SURFFORCING |
& + Salt(i,j,k,bi,bj)* ttemp2 ) |
|
./eesupp/src/reset_halo.F |
113 |
RESET_HALO_RS |
INTEGER bi, bj, k |
|
./eesupp/src/reset_halo.F |
120 |
RESET_HALO_RS |
DO k=1,kSize |
|
./eesupp/src/reset_halo.F |
125 |
RESET_HALO_RS |
glFld(i,j,k,bi,bj) = fixVal |
|
./eesupp/src/reset_halo.F |
131 |
RESET_HALO_RS |
glFld(i,j,k,bi,bj) = fixVal |
|
./eesupp/src/reset_halo.F |
46 |
RESET_HALO_RL |
INTEGER bi, bj, k |
|
./eesupp/src/reset_halo.F |
53 |
RESET_HALO_RL |
DO k=1,kSize |
|
./eesupp/src/reset_halo.F |
58 |
RESET_HALO_RL |
glFld(i,j,k,bi,bj) = fixVal |
|
./eesupp/src/reset_halo.F |
64 |
RESET_HALO_RL |
glFld(i,j,k,bi,bj) = fixVal |
|
./pkg/chronos/chronos.F |
737 |
ASTRO |
integer i,nsecf,k,km,kp |
|
./pkg/compon_communic/comprecv_r4tiles.F |
20 |
COMPRECV_R4TILES |
integer i,j,ij,nx,ny,k,bibj,bi,bj |
|
./pkg/compon_communic/comprecv_r4tiles.F |
76 |
COMPRECV_R4TILES |
k=1 |
|
./pkg/compon_communic/comprecv_r4tiles.F |
80 |
COMPRECV_R4TILES |
arr(i,j,k,bi,bj)=r4buf(ij) |
|
./pkg/compon_communic/comprecv_r8tiles.F |
20 |
COMPRECV_R8TILES |
integer i,j,ij,nx,ny,k,bibj,bi,bj |
|
./pkg/compon_communic/comprecv_r8tiles.F |
76 |
COMPRECV_R8TILES |
k=1 |
|
./pkg/compon_communic/comprecv_r8tiles.F |
80 |
COMPRECV_R8TILES |
arr(i,j,k,bi,bj)=r8buf(ij) |
|
./pkg/compon_communic/compsend_r4tiles.F |
19 |
COMPSEND_R4TILES |
integer i,j,ij,bi,bj,k,bibj |
|
./pkg/compon_communic/compsend_r4tiles.F |
44 |
COMPSEND_R4TILES |
k=1 |
|
./pkg/compon_communic/compsend_r4tiles.F |
48 |
COMPSEND_R4TILES |
r4buf(ij)=arr(i,j,k,bi,bj) |
|
./pkg/compon_communic/compsend_r8tiles.F |
19 |
COMPSEND_R8TILES |
integer i,j,ij,bi,bj,k,bibj |
|
./pkg/compon_communic/compsend_r8tiles.F |
44 |
COMPSEND_R8TILES |
k=1 |
|
./pkg/compon_communic/compsend_r8tiles.F |
48 |
COMPSEND_R8TILES |
r8buf(ij)=arr(i,j,k,bi,bj) |
|
./pkg/compon_communic/mitcplr_sortranks.F |
11 |
MITCPLR_SORTRANKS |
integer j,k,itmp |
|
./pkg/compon_communic/mitcplr_sortranks.F |
15 |
MITCPLR_SORTRANKS |
do k=j+1,nranks |
|
./pkg/compon_communic/mitcplr_sortranks.F |
16 |
MITCPLR_SORTRANKS |
if ( ranks(k) .lt. ranks(j) ) then |
|
./pkg/compon_communic/mitcplr_sortranks.F |
17 |
MITCPLR_SORTRANKS |
itmp=ranks(k) |
|
./pkg/compon_communic/mitcplr_sortranks.F |
18 |
MITCPLR_SORTRANKS |
ranks(k)=ranks(j) |
|
./pkg/cost/cost_accumulate_mean.F |
33 |
COST_ACCUMULATE_MEAN |
integer i, j, k |
|
./pkg/cost/cost_accumulate_mean.F |
46 |
COST_ACCUMULATE_MEAN |
do k = 1, Nr |
|
./pkg/cost/cost_accumulate_mean.F |
49 |
COST_ACCUMULATE_MEAN |
cMeanTheta(i,j,k,bi,bj) = cMeanTheta(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
50 |
COST_ACCUMULATE_MEAN |
& + theta(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
52 |
COST_ACCUMULATE_MEAN |
cMeanUVel(i,j,k,bi,bj) = cMeanUVel(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
53 |
COST_ACCUMULATE_MEAN |
& + uVel(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
55 |
COST_ACCUMULATE_MEAN |
cMeanVVel(i,j,k,bi,bj) = cMeanVVel(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
56 |
COST_ACCUMULATE_MEAN |
& + vVel(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
59 |
COST_ACCUMULATE_MEAN |
cMeanThetaUVel(i,j,k,bi,bj) = |
|
./pkg/cost/cost_accumulate_mean.F |
60 |
COST_ACCUMULATE_MEAN |
& cMeanThetaUVel(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
61 |
COST_ACCUMULATE_MEAN |
& + (theta(i,j,k,bi,bj)+theta(i-1,j,k,bi,bj)) |
|
./pkg/cost/cost_accumulate_mean.F |
62 |
COST_ACCUMULATE_MEAN |
& /2.*uvel(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
63 |
COST_ACCUMULATE_MEAN |
& *maskW(i,j,k,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
65 |
COST_ACCUMULATE_MEAN |
cMeanThetaVVel(i,j,k,bi,bj) = |
|
./pkg/cost/cost_accumulate_mean.F |
66 |
COST_ACCUMULATE_MEAN |
& cMeanThetaVVel(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
67 |
COST_ACCUMULATE_MEAN |
& + (theta(i,j,k,bi,bj)+theta(i,j-1,k,bi,bj)) |
|
./pkg/cost/cost_accumulate_mean.F |
68 |
COST_ACCUMULATE_MEAN |
& /2.*vvel(i,j,k,bi,bj) |
|
./pkg/cost/cost_accumulate_mean.F |
69 |
COST_ACCUMULATE_MEAN |
& *maskS(i,j,k,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
101 |
COST_ATLANTIC_HEAT |
vVel_bar(k) = vVel_bar(k) |
|
./pkg/cost/cost_atlantic_heat.F |
102 |
COST_ATLANTIC_HEAT |
& + cMeanVVel(i,j,k,bi,bj)*dxG(i,j,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
103 |
COST_ATLANTIC_HEAT |
& *maskS(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
105 |
COST_ATLANTIC_HEAT |
thetaVvel_bar(k) = thetaVvel_bar(k) |
|
./pkg/cost/cost_atlantic_heat.F |
106 |
COST_ATLANTIC_HEAT |
& + cMeanThetaVVel(i,j,k,bi,bj)*dxG(i,j,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
107 |
COST_ATLANTIC_HEAT |
& *maskS(i,j,k,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
109 |
COST_ATLANTIC_HEAT |
countTV(k) = countTV(k) + |
|
./pkg/cost/cost_atlantic_heat.F |
110 |
COST_ATLANTIC_HEAT |
& maskS(i,j,k,bi,bj)*maskC(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
111 |
COST_ATLANTIC_HEAT |
countV(k) = countV(k) + |
|
./pkg/cost/cost_atlantic_heat.F |
112 |
COST_ATLANTIC_HEAT |
& maskS(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
118 |
COST_ATLANTIC_HEAT |
do k = 1, Nr |
|
./pkg/cost/cost_atlantic_heat.F |
120 |
COST_ATLANTIC_HEAT |
if ( k .LE. kmaxdepth .AND. countV(k) .NE. 0) then |
|
./pkg/cost/cost_atlantic_heat.F |
122 |
COST_ATLANTIC_HEAT |
& + vVel_bar(k)*drF(k)/countV(k) |
|
./pkg/cost/cost_atlantic_heat.F |
125 |
COST_ATLANTIC_HEAT |
if ( k .LE. kmaxdepth .AND. countTV(k) .NE. 0) then |
|
./pkg/cost/cost_atlantic_heat.F |
127 |
COST_ATLANTIC_HEAT |
& + thetaVVel_bar(k)*drF(k)/countTV(k) |
|
./pkg/cost/cost_atlantic_heat.F |
144 |
COST_ATLANTIC_HEAT |
do k = 1, Nr |
|
./pkg/cost/cost_atlantic_heat.F |
145 |
COST_ATLANTIC_HEAT |
uVel_bar(k) = 0.0 |
|
./pkg/cost/cost_atlantic_heat.F |
146 |
COST_ATLANTIC_HEAT |
theta_bar(k) = 0.0 |
|
./pkg/cost/cost_atlantic_heat.F |
147 |
COST_ATLANTIC_HEAT |
countT(k) = 0.0 |
|
./pkg/cost/cost_atlantic_heat.F |
148 |
COST_ATLANTIC_HEAT |
countU(k) = 0.0 |
|
./pkg/cost/cost_atlantic_heat.F |
153 |
COST_ATLANTIC_HEAT |
uVel_bar(k) = uVel_bar(k) |
|
./pkg/cost/cost_atlantic_heat.F |
154 |
COST_ATLANTIC_HEAT |
& + cMeanUVel(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
155 |
COST_ATLANTIC_HEAT |
& *maskW(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
156 |
COST_ATLANTIC_HEAT |
& *maskC(i,j,k,bi,bj)*maskC(i-1,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
157 |
COST_ATLANTIC_HEAT |
theta_bar(k) = theta_bar(k) + |
|
./pkg/cost/cost_atlantic_heat.F |
158 |
COST_ATLANTIC_HEAT |
& 0.5*( cMeanTheta(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
159 |
COST_ATLANTIC_HEAT |
& +cMeanTheta(i-,j,k,bi,bj) ) |
|
./pkg/cost/cost_atlantic_heat.F |
160 |
COST_ATLANTIC_HEAT |
& *maskW(i,j,k,bi,bj)*dyG(i,j,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
161 |
COST_ATLANTIC_HEAT |
& *maskC(i,j,k,bi,bj)*maskC(i-1,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
162 |
COST_ATLANTIC_HEAT |
countT(k) = countT(k) + maskW(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
163 |
COST_ATLANTIC_HEAT |
& *maskC(i,j,k,bi,bj)*maskC(i-1,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
164 |
COST_ATLANTIC_HEAT |
countU(k) = countU(k) + maskW(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
165 |
COST_ATLANTIC_HEAT |
& *maskC(i,j,k,bi,bj)*maskC(i-1,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
171 |
COST_ATLANTIC_HEAT |
do k = 1, Nr |
|
./pkg/cost/cost_atlantic_heat.F |
172 |
COST_ATLANTIC_HEAT |
if ( k .LE. kmaxdepth .AND. |
|
./pkg/cost/cost_atlantic_heat.F |
173 |
COST_ATLANTIC_HEAT |
& countT(k) .NE. 0 .AND. countU(k) .NE. 0) then |
|
./pkg/cost/cost_atlantic_heat.F |
175 |
COST_ATLANTIC_HEAT |
& + uVel_bar(k) * theta_bar(k) * drF(k) |
|
./pkg/cost/cost_atlantic_heat.F |
176 |
COST_ATLANTIC_HEAT |
& / ( countT(k) * countU(k) ) |
|
./pkg/cost/cost_atlantic_heat.F |
32 |
COST_ATLANTIC_HEAT |
integer i, j, k |
|
./pkg/cost/cost_atlantic_heat.F |
77 |
COST_ATLANTIC_HEAT |
do k = 1, kmaxdepth |
|
./pkg/cost/cost_atlantic_heat.F |
79 |
COST_ATLANTIC_HEAT |
& + (vVel(i,j,k,bi,bj) * maskS(i,j,k,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
80 |
COST_ATLANTIC_HEAT |
& * drF(k))**2 |
|
./pkg/cost/cost_atlantic_heat.F |
92 |
COST_ATLANTIC_HEAT |
do k = 1, Nr |
|
./pkg/cost/cost_atlantic_heat.F |
93 |
COST_ATLANTIC_HEAT |
vVel_bar(k) = 0.0 |
|
./pkg/cost/cost_atlantic_heat.F |
94 |
COST_ATLANTIC_HEAT |
thetaVvel_bar(k) = 0.0 |
|
./pkg/cost/cost_atlantic_heat.F |
95 |
COST_ATLANTIC_HEAT |
countV(k) = 0.0 |
|
./pkg/cost/cost_atlantic_heat.F |
96 |
COST_ATLANTIC_HEAT |
countTV(k) = 0.0 |
|
./pkg/cost/cost_dependent_init.F |
36 |
COST_DEPENDENT_INIT |
integer i,j,k |
|
./pkg/cost/cost_dependent_init.F |
76 |
COST_DEPENDENT_INIT |
do k=1,4*Nr |
|
./pkg/cost/cost_dependent_init.F |
77 |
COST_DEPENDENT_INIT |
objf_state_final(i,j,bi,bj,k) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
40 |
COST_INIT_VARIA |
integer i,j,k |
|
./pkg/cost/cost_init_varia.F |
75 |
COST_INIT_VARIA |
do k=1,Nr |
|
./pkg/cost/cost_init_varia.F |
78 |
COST_INIT_VARIA |
cMeanTheta(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
79 |
COST_INIT_VARIA |
cMeanUVel(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
80 |
COST_INIT_VARIA |
cMeanVVel(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
81 |
COST_INIT_VARIA |
cMeanThetaUVel(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
82 |
COST_INIT_VARIA |
cMeanThetaVVel(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
91 |
COST_INIT_VARIA |
do k=1,4*Nr |
|
./pkg/cost/cost_init_varia.F |
92 |
COST_INIT_VARIA |
objf_state_final(i,j,bi,bj,k) = 0. _d 0 |
|
./pkg/cost/cost_state_final.F |
28 |
COST_STATE_FINAL |
integer i, j, k |
|
./pkg/cost/cost_state_final.F |
35 |
COST_STATE_FINAL |
DO k=1,nr |
|
./pkg/cost/cost_state_final.F |
36 |
COST_STATE_FINAL |
objf_state_final(i,j,bi,bj,0*Nr+k) = theta(i,j,k,bi,bj) |
|
./pkg/cost/cost_state_final.F |
37 |
COST_STATE_FINAL |
objf_state_final(i,j,bi,bj,1*Nr+k) = salt(i,j,k,bi,bj) |
|
./pkg/cost/cost_state_final.F |
38 |
COST_STATE_FINAL |
objf_state_final(i,j,bi,bj,2*Nr+k) = uvel(i,j,k,bi,bj) |
|
./pkg/cost/cost_state_final.F |
39 |
COST_STATE_FINAL |
objf_state_final(i,j,bi,bj,3*Nr+k) = vvel(i,j,k,bi,bj) |
|
./pkg/cost/cost_test.F |
33 |
COST_TEST |
integer i, j, k |
|
./pkg/cost/cost_test.F |
57 |
COST_TEST |
k=1 |
|
./pkg/cost/cost_tracer.F |
43 |
COST_TRACER |
integer i, j, k |
|
./pkg/cost/cost_tracer.F |
51 |
COST_TRACER |
k=1 |
|
./pkg/cost/cost_tracer.F |
55 |
COST_TRACER |
locfc = locfc + hFacC(i,j,k,bi,bj)* |
|
./pkg/cost/cost_tracer.F |
56 |
COST_TRACER |
& lambdaTr1ClimRelax*ptracer(i,j,k,bi,bj,1)* |
|
./pkg/cost/cost_tracer.F |
57 |
COST_TRACER |
& rA(i,j,bi,bj)*drF(k)*dTtracerLev(k) |
|
./pkg/cost/cost_vector.F |
32 |
COST_VECTOR |
integer i, j, k |
|
./pkg/cost/cost_vector.F |
68 |
COST_VECTOR |
do k = 1, kmaxdepth |
|
./pkg/cost/cost_vector.F |
70 |
COST_VECTOR |
& + vVel(i,j,k,bi,bj) * maskS(i,j,k,bi,bj) |
|
./pkg/cost/cost_vector.F |
71 |
COST_VECTOR |
& * drF(k) |
|
./pkg/ctrl/adctrl_bound.F |
42 |
ADCTRL_BOUND_3D |
INTEGER bi,bj,i,j,k |
|
./pkg/ctrl/adctrl_bound.F |
66 |
ADCTRL_BOUND_3D |
DO k = 1,Nr |
|
./pkg/ctrl/adctrl_bound.F |
69 |
ADCTRL_BOUND_3D |
IF (maskFld3d(i,j,k,bi,bj).NE.0.) THEN |
|
./pkg/ctrl/adctrl_bound.F |
70 |
ADCTRL_BOUND_3D |
xCur=fieldCur(i,j,k,bi,bj) |
|
./pkg/ctrl/adctrl_bound.F |
71 |
ADCTRL_BOUND_3D |
adxCur=adjFieldCur(i,j,k,bi,bj) |
|
./pkg/ctrl/adctrl_bound.F |
74 |
ADCTRL_BOUND_3D |
adjFieldCur(i,j,k,bi,bj)=abs(adxCur)* |
|
./pkg/ctrl/adctrl_bound.F |
79 |
ADCTRL_BOUND_3D |
adjFieldCur(i,j,k,bi,bj)=abs(adxCur)* |
|
./pkg/ctrl/ctrl_bound.F |
41 |
CTRL_BOUND_3D |
INTEGER bi,bj,i,j,k |
|
./pkg/ctrl/ctrl_bound.F |
49 |
CTRL_BOUND_3D |
DO k = 1,Nr |
|
./pkg/ctrl/ctrl_bound.F |
52 |
CTRL_BOUND_3D |
IF (maskFld3d(i,j,k,bi,bj).NE.0.) THEN |
|
./pkg/ctrl/ctrl_bound.F |
53 |
CTRL_BOUND_3D |
IF (fieldCur(i,j,k,bi,bj).GT.boundsVec(4)) THEN |
|
./pkg/ctrl/ctrl_bound.F |
54 |
CTRL_BOUND_3D |
fieldCur(i,j,k,bi,bj)=boundsVec(4) |
|
./pkg/ctrl/ctrl_bound.F |
56 |
CTRL_BOUND_3D |
IF (fieldCur(i,j,k,bi,bj).LT.boundsVec(1)) THEN |
|
./pkg/ctrl/ctrl_bound.F |
57 |
CTRL_BOUND_3D |
fieldCur(i,j,k,bi,bj)=boundsVec(1) |
|
./pkg/ctrl/ctrl_cost_gen.F |
458 |
CTRL_COST_GEN3D |
integer i,j,k |
|
./pkg/ctrl/ctrl_cost_gen.F |
524 |
CTRL_COST_GEN3D |
do k = 1,nr |
|
./pkg/ctrl/ctrl_cost_gen.F |
527 |
CTRL_COST_GEN3D |
if (xx_gen_mask(i,j,k,bi,bj) .ne. 0. _d 0) then |
|
./pkg/ctrl/ctrl_cost_gen.F |
528 |
CTRL_COST_GEN3D |
tmpx = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
531 |
CTRL_COST_GEN3D |
& + xx_gen_weight(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_cost_gen.F |
536 |
CTRL_COST_GEN3D |
if ( xx_gen_weight(i,j,k,bi,bj) .ne. 0. _d 0 ) |
|
./pkg/ctrl/ctrl_depth_ini.F |
41 |
CTRL_DEPTH_INI |
integer i,j,k |
|
./pkg/ctrl/ctrl_get_gen.F |
268 |
CTRL_GET_GEN |
k = 1 |
|
./pkg/ctrl/ctrl_get_gen.F |
275 |
CTRL_GET_GEN |
& genmask(i,j,k,bi,bj)*( genfld (i,j,bi,bj) - |
|
./pkg/ctrl/ctrl_get_gen.F |
68 |
CTRL_GET_GEN |
integer i,j,k |
|
./pkg/ctrl/ctrl_getobcse.F |
137 |
CTRL_GETOBCSE |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcse.F |
139 |
CTRL_GETOBCSE |
nz = nz + maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
141 |
CTRL_GETOBCSE |
nz = nz + maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
145 |
CTRL_GETOBCSE |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcse.F |
146 |
CTRL_GETOBCSE |
if (k.le.nz) then |
|
./pkg/ctrl/ctrl_getobcse.F |
150 |
CTRL_GETOBCSE |
& modesv(k,nk,nz)*tmpfldyz(j,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
152 |
CTRL_GETOBCSE |
tmpz(k,bi,bj) = stmp |
|
./pkg/ctrl/ctrl_getobcse.F |
154 |
CTRL_GETOBCSE |
tmpz(k,bi,bj) = 0. |
|
./pkg/ctrl/ctrl_getobcse.F |
157 |
CTRL_GETOBCSE |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcse.F |
159 |
CTRL_GETOBCSE |
tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
160 |
CTRL_GETOBCSE |
& *recip_hFacW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
162 |
CTRL_GETOBCSE |
tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
163 |
CTRL_GETOBCSE |
& *recip_hFacS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
169 |
CTRL_GETOBCSE |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcse.F |
171 |
CTRL_GETOBCSE |
xx_obcse1(j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
184 |
CTRL_GETOBCSE |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcse.F |
185 |
CTRL_GETOBCSE |
xx_obcse0(j,k,bi,bj,iobcs) = xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
186 |
CTRL_GETOBCSE |
tmpfldyz (j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_getobcse.F |
206 |
CTRL_GETOBCSE |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcse.F |
208 |
CTRL_GETOBCSE |
nz = nz + maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
210 |
CTRL_GETOBCSE |
nz = nz + maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
214 |
CTRL_GETOBCSE |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcse.F |
215 |
CTRL_GETOBCSE |
if (k.le.nz) then |
|
./pkg/ctrl/ctrl_getobcse.F |
219 |
CTRL_GETOBCSE |
& modesv(k,nk,nz)*tmpfldyz(j,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
221 |
CTRL_GETOBCSE |
tmpz(k,bi,bj) = stmp |
|
./pkg/ctrl/ctrl_getobcse.F |
223 |
CTRL_GETOBCSE |
tmpz(k,bi,bj) = 0. |
|
./pkg/ctrl/ctrl_getobcse.F |
226 |
CTRL_GETOBCSE |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcse.F |
228 |
CTRL_GETOBCSE |
tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
229 |
CTRL_GETOBCSE |
& *recip_hFacW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
231 |
CTRL_GETOBCSE |
tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
232 |
CTRL_GETOBCSE |
& *recip_hFacS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
238 |
CTRL_GETOBCSE |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcse.F |
240 |
CTRL_GETOBCSE |
xx_obcse1 (j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
252 |
CTRL_GETOBCSE |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcse.F |
257 |
CTRL_GETOBCSE |
OBEt(j,k,bi,bj) = OBEt(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
258 |
CTRL_GETOBCSE |
& + obcsefac *xx_obcse0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
259 |
CTRL_GETOBCSE |
& + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
260 |
CTRL_GETOBCSE |
OBEt(j,k,bi,bj) = OBEt(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
261 |
CTRL_GETOBCSE |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
263 |
CTRL_GETOBCSE |
OBEs(j,k,bi,bj) = OBEs(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
264 |
CTRL_GETOBCSE |
& + obcsefac *xx_obcse0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
265 |
CTRL_GETOBCSE |
& + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
266 |
CTRL_GETOBCSE |
OBEs(j,k,bi,bj) = OBEs(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
267 |
CTRL_GETOBCSE |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
269 |
CTRL_GETOBCSE |
OBEu(j,k,bi,bj) = OBEu(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
270 |
CTRL_GETOBCSE |
& + obcsefac *xx_obcse0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
271 |
CTRL_GETOBCSE |
& + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
272 |
CTRL_GETOBCSE |
OBEu(j,k,bi,bj) = OBEu(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
273 |
CTRL_GETOBCSE |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
275 |
CTRL_GETOBCSE |
OBEv(j,k,bi,bj) = OBEv(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
276 |
CTRL_GETOBCSE |
& + obcsefac *xx_obcse0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
277 |
CTRL_GETOBCSE |
& + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
278 |
CTRL_GETOBCSE |
OBEv(j,k,bi,bj) = OBEv(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
279 |
CTRL_GETOBCSE |
& *maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
55 |
CTRL_GETOBCSE |
integer i,j,k |
|
./pkg/ctrl/ctrl_getobcsn.F |
142 |
CTRL_GETOBCSN |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsn.F |
144 |
CTRL_GETOBCSN |
nz = nz + maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
146 |
CTRL_GETOBCSN |
nz = nz + maskW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
150 |
CTRL_GETOBCSN |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsn.F |
151 |
CTRL_GETOBCSN |
if (k.le.nz) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
155 |
CTRL_GETOBCSN |
& modesv(k,nk,nz)*tmpfldxz(i,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
157 |
CTRL_GETOBCSN |
tmpz(k,bi,bj) = stmp |
|
./pkg/ctrl/ctrl_getobcsn.F |
159 |
CTRL_GETOBCSN |
tmpz(k,bi,bj) = 0. |
|
./pkg/ctrl/ctrl_getobcsn.F |
162 |
CTRL_GETOBCSN |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsn.F |
164 |
CTRL_GETOBCSN |
tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
165 |
CTRL_GETOBCSN |
& *recip_hFacS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
167 |
CTRL_GETOBCSN |
tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
168 |
CTRL_GETOBCSN |
& *recip_hFacW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
174 |
CTRL_GETOBCSN |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcsn.F |
176 |
CTRL_GETOBCSN |
xx_obcsn1(i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
188 |
CTRL_GETOBCSN |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcsn.F |
190 |
CTRL_GETOBCSN |
xx_obcsn0(i,k,bi,bj,iobcs) = xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
191 |
CTRL_GETOBCSN |
tmpfldxz (i,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_getobcsn.F |
211 |
CTRL_GETOBCSN |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsn.F |
213 |
CTRL_GETOBCSN |
nz = nz + maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
215 |
CTRL_GETOBCSN |
nz = nz + maskW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
219 |
CTRL_GETOBCSN |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsn.F |
220 |
CTRL_GETOBCSN |
if (k.le.nz) then |
|
./pkg/ctrl/ctrl_getobcsn.F |
224 |
CTRL_GETOBCSN |
& modesv(k,nk,nz)*tmpfldxz(i,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
226 |
CTRL_GETOBCSN |
tmpz(k,bi,bj) = stmp |
|
./pkg/ctrl/ctrl_getobcsn.F |
228 |
CTRL_GETOBCSN |
tmpz(k,bi,bj) = 0. |
|
./pkg/ctrl/ctrl_getobcsn.F |
231 |
CTRL_GETOBCSN |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsn.F |
233 |
CTRL_GETOBCSN |
tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
234 |
CTRL_GETOBCSN |
& *recip_hFacS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
236 |
CTRL_GETOBCSN |
tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
237 |
CTRL_GETOBCSN |
& *recip_hFacW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
243 |
CTRL_GETOBCSN |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcsn.F |
245 |
CTRL_GETOBCSN |
xx_obcsn1 (i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
258 |
CTRL_GETOBCSN |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcsn.F |
263 |
CTRL_GETOBCSN |
OBNt(i,k,bi,bj) = OBNt (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
264 |
CTRL_GETOBCSN |
& + obcsnfac *xx_obcsn0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
265 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
266 |
CTRL_GETOBCSN |
OBNt(i,k,bi,bj) = OBNt(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
267 |
CTRL_GETOBCSN |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
269 |
CTRL_GETOBCSN |
OBNs(i,k,bi,bj) = OBNs (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
270 |
CTRL_GETOBCSN |
& + obcsnfac *xx_obcsn0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
271 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
272 |
CTRL_GETOBCSN |
OBNs(i,k,bi,bj) = OBNs(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
273 |
CTRL_GETOBCSN |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
275 |
CTRL_GETOBCSN |
OBNu(i,k,bi,bj) = OBNu (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
276 |
CTRL_GETOBCSN |
& + obcsnfac *xx_obcsn0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
277 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
278 |
CTRL_GETOBCSN |
OBNu(i,k,bi,bj) = OBNu(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
279 |
CTRL_GETOBCSN |
& *maskW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
281 |
CTRL_GETOBCSN |
OBNv(i,k,bi,bj) = OBNv (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
282 |
CTRL_GETOBCSN |
& + obcsnfac *xx_obcsn0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
283 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
284 |
CTRL_GETOBCSN |
OBNv(i,k,bi,bj) = OBNv(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
285 |
CTRL_GETOBCSN |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
56 |
CTRL_GETOBCSN |
integer i,j,k |
|
./pkg/ctrl/ctrl_getobcss.F |
138 |
CTRL_GETOBCSS |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcss.F |
140 |
CTRL_GETOBCSS |
nz = nz + maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
142 |
CTRL_GETOBCSS |
nz = nz + maskW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
146 |
CTRL_GETOBCSS |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcss.F |
147 |
CTRL_GETOBCSS |
if (k.le.nz) then |
|
./pkg/ctrl/ctrl_getobcss.F |
151 |
CTRL_GETOBCSS |
& modesv(k,nk,nz)*tmpfldxz(i,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
153 |
CTRL_GETOBCSS |
tmpz(k,bi,bj) = stmp |
|
./pkg/ctrl/ctrl_getobcss.F |
155 |
CTRL_GETOBCSS |
tmpz(k,bi,bj) = 0. |
|
./pkg/ctrl/ctrl_getobcss.F |
158 |
CTRL_GETOBCSS |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcss.F |
160 |
CTRL_GETOBCSS |
tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
161 |
CTRL_GETOBCSS |
& *recip_hFacS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
163 |
CTRL_GETOBCSS |
tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
164 |
CTRL_GETOBCSS |
& *recip_hFacW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
170 |
CTRL_GETOBCSS |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcss.F |
172 |
CTRL_GETOBCSS |
xx_obcss1(i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
184 |
CTRL_GETOBCSS |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcss.F |
186 |
CTRL_GETOBCSS |
xx_obcss0(i,k,bi,bj,iobcs) = xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
187 |
CTRL_GETOBCSS |
tmpfldxz (i,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_getobcss.F |
207 |
CTRL_GETOBCSS |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcss.F |
209 |
CTRL_GETOBCSS |
nz = nz + maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
211 |
CTRL_GETOBCSS |
nz = nz + maskW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
215 |
CTRL_GETOBCSS |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcss.F |
216 |
CTRL_GETOBCSS |
if (k.le.nz) then |
|
./pkg/ctrl/ctrl_getobcss.F |
220 |
CTRL_GETOBCSS |
& modesv(k,nk,nz)*tmpfldxz(i,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
222 |
CTRL_GETOBCSS |
tmpz(k,bi,bj) = stmp |
|
./pkg/ctrl/ctrl_getobcss.F |
224 |
CTRL_GETOBCSS |
tmpz(k,bi,bj) = 0. |
|
./pkg/ctrl/ctrl_getobcss.F |
227 |
CTRL_GETOBCSS |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcss.F |
229 |
CTRL_GETOBCSS |
tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
230 |
CTRL_GETOBCSS |
& *recip_hFacS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
232 |
CTRL_GETOBCSS |
tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
233 |
CTRL_GETOBCSS |
& *recip_hFacW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
239 |
CTRL_GETOBCSS |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcss.F |
241 |
CTRL_GETOBCSS |
xx_obcss1 (i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
253 |
CTRL_GETOBCSS |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcss.F |
258 |
CTRL_GETOBCSS |
OBSt(i,k,bi,bj) = OBSt (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
259 |
CTRL_GETOBCSS |
& + obcssfac *xx_obcss0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
260 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
261 |
CTRL_GETOBCSS |
OBSt(i,k,bi,bj) = OBSt(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
262 |
CTRL_GETOBCSS |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
264 |
CTRL_GETOBCSS |
OBSs(i,k,bi,bj) = OBSs (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
265 |
CTRL_GETOBCSS |
& + obcssfac *xx_obcss0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
266 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
267 |
CTRL_GETOBCSS |
OBSs(i,k,bi,bj) = OBSs(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
268 |
CTRL_GETOBCSS |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
270 |
CTRL_GETOBCSS |
OBSu(i,k,bi,bj) = OBSu (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
271 |
CTRL_GETOBCSS |
& + obcssfac *xx_obcss0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
272 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
273 |
CTRL_GETOBCSS |
OBSu(i,k,bi,bj) = OBSu(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
274 |
CTRL_GETOBCSS |
& *maskW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
276 |
CTRL_GETOBCSS |
OBSv(i,k,bi,bj) = OBSv (i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
277 |
CTRL_GETOBCSS |
& + obcssfac *xx_obcss0(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
278 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
279 |
CTRL_GETOBCSS |
OBSv(i,k,bi,bj) = OBSv(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
280 |
CTRL_GETOBCSS |
& *maskS(i,j+jp1,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
57 |
CTRL_GETOBCSS |
integer i,j,k |
|
./pkg/ctrl/ctrl_getobcsw.F |
137 |
CTRL_GETOBCSW |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsw.F |
139 |
CTRL_GETOBCSW |
nz = nz + maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
141 |
CTRL_GETOBCSW |
nz = nz + maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
145 |
CTRL_GETOBCSW |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsw.F |
146 |
CTRL_GETOBCSW |
if (k.le.nz) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
150 |
CTRL_GETOBCSW |
& modesv(k,nk,nz)*tmpfldyz(j,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
152 |
CTRL_GETOBCSW |
tmpz(k,bi,bj) = stmp |
|
./pkg/ctrl/ctrl_getobcsw.F |
154 |
CTRL_GETOBCSW |
tmpz(k,bi,bj) = 0. |
|
./pkg/ctrl/ctrl_getobcsw.F |
157 |
CTRL_GETOBCSW |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsw.F |
159 |
CTRL_GETOBCSW |
tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
160 |
CTRL_GETOBCSW |
& *recip_hFacW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
162 |
CTRL_GETOBCSW |
tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
163 |
CTRL_GETOBCSW |
& *recip_hFacS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
169 |
CTRL_GETOBCSW |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcsw.F |
171 |
CTRL_GETOBCSW |
xx_obcsw1(j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
183 |
CTRL_GETOBCSW |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcsw.F |
185 |
CTRL_GETOBCSW |
xx_obcsw0(j,k,bi,bj,iobcs) = xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
186 |
CTRL_GETOBCSW |
tmpfldyz (j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_getobcsw.F |
206 |
CTRL_GETOBCSW |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsw.F |
208 |
CTRL_GETOBCSW |
nz = nz + maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
210 |
CTRL_GETOBCSW |
nz = nz + maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
214 |
CTRL_GETOBCSW |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsw.F |
215 |
CTRL_GETOBCSW |
if (k.le.nz) then |
|
./pkg/ctrl/ctrl_getobcsw.F |
219 |
CTRL_GETOBCSW |
& modesv(k,nk,nz)*tmpfldyz(j,nk,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
221 |
CTRL_GETOBCSW |
tmpz(k,bi,bj) = stmp |
|
./pkg/ctrl/ctrl_getobcsw.F |
223 |
CTRL_GETOBCSW |
tmpz(k,bi,bj) = 0. |
|
./pkg/ctrl/ctrl_getobcsw.F |
226 |
CTRL_GETOBCSW |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_getobcsw.F |
228 |
CTRL_GETOBCSW |
tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
229 |
CTRL_GETOBCSW |
& *recip_hFacW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
231 |
CTRL_GETOBCSW |
tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
232 |
CTRL_GETOBCSW |
& *recip_hFacS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
238 |
CTRL_GETOBCSW |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcsw.F |
240 |
CTRL_GETOBCSW |
xx_obcsw1 (j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
252 |
CTRL_GETOBCSW |
do k = 1,nr |
|
./pkg/ctrl/ctrl_getobcsw.F |
257 |
CTRL_GETOBCSW |
OBWt(j,k,bi,bj) = OBWt (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
258 |
CTRL_GETOBCSW |
& + obcswfac *xx_obcsw0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
259 |
CTRL_GETOBCSW |
& + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
260 |
CTRL_GETOBCSW |
OBWt(j,k,bi,bj) = OBWt(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
261 |
CTRL_GETOBCSW |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
263 |
CTRL_GETOBCSW |
OBWs(j,k,bi,bj) = OBWs (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
264 |
CTRL_GETOBCSW |
& + obcswfac *xx_obcsw0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
265 |
CTRL_GETOBCSW |
& + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
266 |
CTRL_GETOBCSW |
OBWs(j,k,bi,bj) = OBWs(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
267 |
CTRL_GETOBCSW |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
269 |
CTRL_GETOBCSW |
OBWu(j,k,bi,bj) = OBWu (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
270 |
CTRL_GETOBCSW |
& + obcswfac *xx_obcsw0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
271 |
CTRL_GETOBCSW |
& + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
272 |
CTRL_GETOBCSW |
OBWu(j,k,bi,bj) = OBWu(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
273 |
CTRL_GETOBCSW |
& *maskW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
275 |
CTRL_GETOBCSW |
OBWv(j,k,bi,bj) = OBWv (j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
276 |
CTRL_GETOBCSW |
& + obcswfac *xx_obcsw0(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
277 |
CTRL_GETOBCSW |
& + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
278 |
CTRL_GETOBCSW |
OBWv(j,k,bi,bj) = OBWv(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
279 |
CTRL_GETOBCSW |
& *maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
56 |
CTRL_GETOBCSW |
integer i,j,k |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
102 |
CTRL_HFACC_INI |
do k = 1,nr |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
105 |
CTRL_HFACC_INI |
hFacC(i,j,k,bi,bj) = 0. |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
106 |
CTRL_HFACC_INI |
tmpfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
127 |
CTRL_HFACC_INI |
do k = 1,nr |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
130 |
CTRL_HFACC_INI |
hFacC(i,j,k,bi,bj) = hFacC(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
131 |
CTRL_HFACC_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
145 |
CTRL_HFACC_INI |
k = k_lowC(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
147 |
CTRL_HFACC_INI |
hFacC(i,j,k,bi,bj) = hFacC(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
41 |
CTRL_HFACC_INI |
integer i,j,k |
|
./pkg/ctrl/ctrl_init.F |
112 |
CTRL_INIT |
do k=1,Nr |
|
./pkg/ctrl/ctrl_init.F |
113 |
CTRL_INIT |
wunit(k,bi,bj) = 1. _d 0 |
|
./pkg/ctrl/ctrl_init.F |
116 |
CTRL_INIT |
loctmp3d(i,j,k,bi,bj) = 1. _d 0 |
|
./pkg/ctrl/ctrl_init.F |
412 |
CTRL_INIT |
read(dUnit,rec=j) ((modesv(k,i,j), k=1,Nr), i=1,Nr) |
|
./pkg/ctrl/ctrl_init.F |
55 |
CTRL_INIT |
integer i,j,k |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
109 |
CTRL_INIT_OBCS_VARIABLES |
do k = 1,nr |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
111 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcse0(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
112 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcse1(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
40 |
CTRL_INIT_OBCS_VARIABLES |
integer i,j,k |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
64 |
CTRL_INIT_OBCS_VARIABLES |
do k = 1,nr |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
66 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcsn0(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
67 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcsn1(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
79 |
CTRL_INIT_OBCS_VARIABLES |
do k = 1,nr |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
81 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcss0(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
82 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcss1(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
94 |
CTRL_INIT_OBCS_VARIABLES |
do k = 1,nr |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
96 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcsw0(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
97 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcsw1(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
405 |
CTRL_INIT_VARIABLES |
do k=1,maxCtrlTim2D |
|
./pkg/ctrl/ctrl_init_variables.F |
406 |
CTRL_INIT_VARIABLES |
objf_gentim2d(bi,bj,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
407 |
CTRL_INIT_VARIABLES |
num_gentim2d(bi,bj,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
409 |
CTRL_INIT_VARIABLES |
num_gentim2dm(bi,bj,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
410 |
CTRL_INIT_VARIABLES |
objf_gentim2dm(bi,bj,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
411 |
CTRL_INIT_VARIABLES |
objf_gentim2dsmoo(bi,bj,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
420 |
CTRL_INIT_VARIABLES |
do k=1,maxCtrlArr2D |
|
./pkg/ctrl/ctrl_init_variables.F |
421 |
CTRL_INIT_VARIABLES |
objf_genarr2d(bi,bj,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
422 |
CTRL_INIT_VARIABLES |
num_genarr2d(bi,bj,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
430 |
CTRL_INIT_VARIABLES |
do k=1,maxCtrlArr3D |
|
./pkg/ctrl/ctrl_init_variables.F |
431 |
CTRL_INIT_VARIABLES |
objf_genarr3d(bi,bj,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
432 |
CTRL_INIT_VARIABLES |
num_genarr3d(bi,bj,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
44 |
CTRL_INIT_VARIABLES |
integer i,j,k |
|
./pkg/ctrl/ctrl_init_wet.F |
102 |
CTRL_INIT_WET |
nwetobcse(bi,bj,k,iobcs) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
113 |
CTRL_INIT_WET |
do k = 1,nr |
|
./pkg/ctrl/ctrl_init_wet.F |
117 |
CTRL_INIT_WET |
if (maskC(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_init_wet.F |
118 |
CTRL_INIT_WET |
nwetctile(bi,bj,k) = nwetctile(bi,bj,k) + 1 |
|
./pkg/ctrl/ctrl_init_wet.F |
121 |
CTRL_INIT_WET |
if (maskS(i,j,k,bi,bj) .eq. 1.) then |
|
./pkg/ctrl/ctrl_init_wet.F |
122 |
CTRL_INIT_WET |
nwetstile(bi,bj,k) = nwetstile(bi,bj,k) + 1 |
|
./pkg/ctrl/ctrl_init_wet.F |
125 |
CTRL_INIT_WET |
if (maskW(i,j,k,bi,bj) .eq. 1.) then |
|
./pkg/ctrl/ctrl_init_wet.F |
126 |
CTRL_INIT_WET |
nwetwtile(bi,bj,k) = nwetwtile(bi,bj,k) + 1 |
|
./pkg/ctrl/ctrl_init_wet.F |
130 |
CTRL_INIT_WET |
if (hFacV(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_init_wet.F |
131 |
CTRL_INIT_WET |
nwetvtile(bi,bj,k) = nwetvtile(bi,bj,k) + 1 |
|
./pkg/ctrl/ctrl_init_wet.F |
136 |
CTRL_INIT_WET |
if (maskSHI(i,j,k,bi,bj) .eq. 1.) then |
|
./pkg/ctrl/ctrl_init_wet.F |
137 |
CTRL_INIT_WET |
nwetitile(bi,bj,k) = nwetitile(bi,bj,k) + 1 |
|
./pkg/ctrl/ctrl_init_wet.F |
188 |
CTRL_INIT_WET |
do k = 1,ncvarnrmax(i) |
|
./pkg/ctrl/ctrl_init_wet.F |
191 |
CTRL_INIT_WET |
& ncvarrecs(i)*nwetctile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
194 |
CTRL_INIT_WET |
& ncvarrecs(i)*nwetstile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
197 |
CTRL_INIT_WET |
& ncvarrecs(i)*nwetwtile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
200 |
CTRL_INIT_WET |
& ncvarrecs(i)*nwetvtile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
205 |
CTRL_INIT_WET |
& ncvarrecs(i)*nwetitile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
216 |
CTRL_INIT_WET |
& *nwetobcsn(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
222 |
CTRL_INIT_WET |
& *nwetobcss(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
228 |
CTRL_INIT_WET |
& *nwetobcsw(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
234 |
CTRL_INIT_WET |
& *nwetobcse(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
274 |
CTRL_INIT_WET |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_init_wet.F |
275 |
CTRL_INIT_WET |
nwetc3d = nwetc3d + nwetctile(1,1,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
365 |
CTRL_INIT_WET |
do k = 1, nr |
|
./pkg/ctrl/ctrl_init_wet.F |
370 |
CTRL_INIT_WET |
ntmp2(1)=ntmp2(1)+nWetcTile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
374 |
CTRL_INIT_WET |
nWetcGlobal(k)=ntmp2(1) |
|
./pkg/ctrl/ctrl_init_wet.F |
379 |
CTRL_INIT_WET |
ntmp2(2)=ntmp2(2)+nWetsTile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
37 |
CTRL_INIT_WET |
integer i,j,k |
|
./pkg/ctrl/ctrl_init_wet.F |
383 |
CTRL_INIT_WET |
nWetsGlobal(k)=ntmp2(2) |
|
./pkg/ctrl/ctrl_init_wet.F |
388 |
CTRL_INIT_WET |
ntmp2(3)=ntmp2(3)+nWetwTile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
392 |
CTRL_INIT_WET |
nWetwGlobal(k)=ntmp2(3) |
|
./pkg/ctrl/ctrl_init_wet.F |
397 |
CTRL_INIT_WET |
ntmp2(4)=ntmp2(4)+nWetvTile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
401 |
CTRL_INIT_WET |
nWetvGlobal(k)=ntmp2(4) |
|
./pkg/ctrl/ctrl_init_wet.F |
404 |
CTRL_INIT_WET |
& 'ctrl-wet 14: global nWet C/S/W/V k=', k, ntmp2 |
|
./pkg/ctrl/ctrl_init_wet.F |
415 |
CTRL_INIT_WET |
do k = 1, nr |
|
./pkg/ctrl/ctrl_init_wet.F |
422 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcsn(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
426 |
CTRL_INIT_WET |
nwetobcsnglo(k,iobcs)=ntmpob(iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
429 |
CTRL_INIT_WET |
& 'ctrl-wet 15a: global obcsN T,S,U,V k=', k, ntmpob |
|
./pkg/ctrl/ctrl_init_wet.F |
438 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcss(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
442 |
CTRL_INIT_WET |
nwetobcssglo(k,iobcs)=ntmpob(iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
445 |
CTRL_INIT_WET |
& 'ctrl-wet 15b: global obcsS T,S,U,V k=', k, ntmpob |
|
./pkg/ctrl/ctrl_init_wet.F |
454 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcsw(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
458 |
CTRL_INIT_WET |
nwetobcswglo(k,iobcs)=ntmpob(iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
461 |
CTRL_INIT_WET |
& 'ctrl-wet 15c: global obcsW T,S,U,V k=', k, ntmpob |
|
./pkg/ctrl/ctrl_init_wet.F |
470 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcse(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
474 |
CTRL_INIT_WET |
nwetobcseglo(k,iobcs)=ntmpob(iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
477 |
CTRL_INIT_WET |
& 'ctrl-wet 15d: global obcsE T,S,U,V k=', k, ntmpob |
|
./pkg/ctrl/ctrl_init_wet.F |
492 |
CTRL_INIT_WET |
do k = 1, nr |
|
./pkg/ctrl/ctrl_init_wet.F |
493 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcsnglo(k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
504 |
CTRL_INIT_WET |
do k = 1, nr |
|
./pkg/ctrl/ctrl_init_wet.F |
505 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcssglo(k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
516 |
CTRL_INIT_WET |
do k = 1, nr |
|
./pkg/ctrl/ctrl_init_wet.F |
517 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcswglo(k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
528 |
CTRL_INIT_WET |
do k = 1, nr |
|
./pkg/ctrl/ctrl_init_wet.F |
529 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcseglo(k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
549 |
CTRL_INIT_WET |
do k = 1, nr |
|
./pkg/ctrl/ctrl_init_wet.F |
553 |
CTRL_INIT_WET |
ntmpshi=ntmpshi+nWetiTile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
557 |
CTRL_INIT_WET |
if (k.eq.1) then |
|
./pkg/ctrl/ctrl_init_wet.F |
558 |
CTRL_INIT_WET |
nWetiGlobal(k)=ntmpshi |
|
./pkg/ctrl/ctrl_init_wet.F |
560 |
CTRL_INIT_WET |
nWetiGlobal(k)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
563 |
CTRL_INIT_WET |
& 'ctrl-wet 17b: global nWet I k=', k, ntmpshi |
|
./pkg/ctrl/ctrl_init_wet.F |
569 |
CTRL_INIT_WET |
do k = 1, nr |
|
./pkg/ctrl/ctrl_init_wet.F |
570 |
CTRL_INIT_WET |
ntmpshi=ntmpshi+nWetiGlobal(k) |
|
./pkg/ctrl/ctrl_init_wet.F |
74 |
CTRL_INIT_WET |
do k = 1,nr |
|
./pkg/ctrl/ctrl_init_wet.F |
75 |
CTRL_INIT_WET |
nwetctile(bi,bj,k) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
76 |
CTRL_INIT_WET |
nwetstile(bi,bj,k) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
77 |
CTRL_INIT_WET |
nwetwtile(bi,bj,k) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
78 |
CTRL_INIT_WET |
nwetvtile(bi,bj,k) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
80 |
CTRL_INIT_WET |
nwetitile(bi,bj,k) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
90 |
CTRL_INIT_WET |
do k = 1,nr |
|
./pkg/ctrl/ctrl_init_wet.F |
93 |
CTRL_INIT_WET |
nwetobcsn(bi,bj,k,iobcs) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
96 |
CTRL_INIT_WET |
nwetobcss(bi,bj,k,iobcs) = 0 |
|
./pkg/ctrl/ctrl_init_wet.F |
99 |
CTRL_INIT_WET |
nwetobcsw(bi,bj,k,iobcs) = 0 |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
47 |
CTRL_MAP_GENTIM2D |
integer i,j,k |
|
./pkg/ctrl/ctrl_map_ini.F |
118 |
CTRL_MAP_INI |
do k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini.F |
122 |
CTRL_MAP_INI |
IF (abs(tmpfld3d(i,j,k,bi,bj)).gt. |
|
./pkg/ctrl/ctrl_map_ini.F |
123 |
CTRL_MAP_INI |
$ 2.0/sqrt(wtheta(k,bi,bj))) |
|
./pkg/ctrl/ctrl_map_ini.F |
124 |
CTRL_MAP_INI |
$ tmpfld3d(i,j,k,bi,bj)= |
|
./pkg/ctrl/ctrl_map_ini.F |
125 |
CTRL_MAP_INI |
$ sign(2.0/sqrt(wtheta(k,bi,bj)),tmpfld3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini.F |
127 |
CTRL_MAP_INI |
theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
128 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
130 |
CTRL_MAP_INI |
if(theta(i,j,k,bi,bj).lt.-2.0) |
|
./pkg/ctrl/ctrl_map_ini.F |
131 |
CTRL_MAP_INI |
& theta(i,j,k,bi,bj)= -2.0 |
|
./pkg/ctrl/ctrl_map_ini.F |
152 |
CTRL_MAP_INI |
do k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini.F |
156 |
CTRL_MAP_INI |
IF (abs(tmpfld3d(i,j,k,bi,bj)).gt. |
|
./pkg/ctrl/ctrl_map_ini.F |
157 |
CTRL_MAP_INI |
$ 2.0/sqrt(wsalt(k,bi,bj))) |
|
./pkg/ctrl/ctrl_map_ini.F |
158 |
CTRL_MAP_INI |
$ tmpfld3d(i,j,k,bi,bj)= |
|
./pkg/ctrl/ctrl_map_ini.F |
159 |
CTRL_MAP_INI |
$ sign(2.0/sqrt(wsalt(k,bi,bj)),tmpfld3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini.F |
161 |
CTRL_MAP_INI |
salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
162 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
183 |
CTRL_MAP_INI |
do k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini.F |
187 |
CTRL_MAP_INI |
ptracer(i,j,k,bi,bj,1) = ptracer(i,j,k,bi,bj,1) + |
|
./pkg/ctrl/ctrl_map_ini.F |
188 |
CTRL_MAP_INI |
& fac*xx_tr1(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
189 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
191 |
CTRL_MAP_INI |
ptracer(i,j,k,bi,bj,1) = ptracer(i,j,k,bi,bj,1) + |
|
./pkg/ctrl/ctrl_map_ini.F |
192 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
255 |
CTRL_MAP_INI |
do k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini.F |
258 |
CTRL_MAP_INI |
diffkr(i,j,k,bi,bj) = diffkr(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
259 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
279 |
CTRL_MAP_INI |
do k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini.F |
283 |
CTRL_MAP_INI |
kapGM(i,j,k,bi,bj) = kapGM(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
284 |
CTRL_MAP_INI |
& xx_kapgm(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
285 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
287 |
CTRL_MAP_INI |
kapGM(i,j,k,bi,bj) = kapGM(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
288 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
309 |
CTRL_MAP_INI |
do k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini.F |
312 |
CTRL_MAP_INI |
kapRedi(i,j,k,bi,bj) = kapRedi(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
313 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
333 |
CTRL_MAP_INI |
do k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini.F |
336 |
CTRL_MAP_INI |
EfluxY(i,j,k,bi,bj) = EfluxY(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
337 |
CTRL_MAP_INI |
& - fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
338 |
CTRL_MAP_INI |
& *maskS(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
360 |
CTRL_MAP_INI |
do k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini.F |
363 |
CTRL_MAP_INI |
EfluxP(i,j,k,bi,bj) = EfluxP(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
365 |
CTRL_MAP_INI |
& *fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
366 |
CTRL_MAP_INI |
& *hFacV(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
408 |
CTRL_MAP_INI |
do k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini.F |
411 |
CTRL_MAP_INI |
eddyPsiX(i,j,k,bi,bj) = eddyPsiX(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
412 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
427 |
CTRL_MAP_INI |
do k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini.F |
430 |
CTRL_MAP_INI |
eddyPsiY(i,j,k,bi,bj) = eddyPsiY(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
431 |
CTRL_MAP_INI |
& tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
449 |
CTRL_MAP_INI |
do k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini.F |
453 |
CTRL_MAP_INI |
uVel(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
454 |
CTRL_MAP_INI |
& fac*xx_uvel(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
456 |
CTRL_MAP_INI |
uVel(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
457 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
476 |
CTRL_MAP_INI |
do k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini.F |
480 |
CTRL_MAP_INI |
vVel(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
481 |
CTRL_MAP_INI |
& fac*xx_vvel(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
483 |
CTRL_MAP_INI |
vVel(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
484 |
CTRL_MAP_INI |
& fac*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
64 |
CTRL_MAP_INI |
integer i,j,k |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
122 |
CTRL_MAP_INI_ECCO |
do k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
125 |
CTRL_MAP_INI_ECCO |
tmpfld3d(i,j,k,bi,bj)=1. |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
296 |
CTRL_MAP_INI_ECCO |
do k = 1,maxCtrlTim2D |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
299 |
CTRL_MAP_INI_ECCO |
xx_gentim2d(i,j,bi,bj,k)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
71 |
CTRL_MAP_INI_ECCO |
integer i,j,k |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
104 |
CTRL_MAP_INI_GEN3D |
DO k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
107 |
CTRL_MAP_INI_GEN3D |
xxFld3d(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
108 |
CTRL_MAP_INI_GEN3D |
wFld3d(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
135 |
CTRL_MAP_INI_GEN3D |
do k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
138 |
CTRL_MAP_INI_GEN3D |
if ( (maskFld3d(i,j,k,bi,bj).NE.0.).AND. |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
139 |
CTRL_MAP_INI_GEN3D |
& (wFld3d(i,j,k,bi,bj).GT.0.) ) then |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
140 |
CTRL_MAP_INI_GEN3D |
tmpMax=boundsVec(5)/sqrt(wFld3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
141 |
CTRL_MAP_INI_GEN3D |
if ( abs(xxFld3d(i,j,k,bi,bj)).GT.tmpMax ) then |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
142 |
CTRL_MAP_INI_GEN3D |
xxFld3d(i,j,k,bi,bj)=sign(tmpMax,xxFld3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
144 |
CTRL_MAP_INI_GEN3D |
xxFld3d(i,j,k,bi,bj)=xxFld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
166 |
CTRL_MAP_INI_GEN3D |
do k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
169 |
CTRL_MAP_INI_GEN3D |
paramFld3d(i,j,k,bi,bj) = paramFld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
170 |
CTRL_MAP_INI_GEN3D |
& + xxFld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
188 |
CTRL_MAP_INI_GEN3D |
do k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
192 |
CTRL_MAP_INI_GEN3D |
if ( (maskFld3d(i,j,k,bi,bj).NE.0.) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
193 |
CTRL_MAP_INI_GEN3D |
& .AND. (wFld3d(i,j,k,bi,bj).GT.0.) ) then |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
194 |
CTRL_MAP_INI_GEN3D |
xxFld3d(i,j,k,bi,bj)=xxFld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
195 |
CTRL_MAP_INI_GEN3D |
& /sqrt( wFld3d(i,j,k,bi,bj) ) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
197 |
CTRL_MAP_INI_GEN3D |
xxFld3d(i,j,k,bi,bj)=0. |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
199 |
CTRL_MAP_INI_GEN3D |
paramFld3d(i,j,k,bi,bj) = paramFld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
200 |
CTRL_MAP_INI_GEN3D |
& + xxFld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
276 |
CTRL_MAP_INI_GEN2D |
integer i,j,k |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
62 |
CTRL_MAP_INI_GEN3D |
integer i,j,k |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
352 |
CTRL_MAP_GENARR3D |
integer i,j,k |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
378 |
CTRL_MAP_GENARR3D |
DO k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
381 |
CTRL_MAP_GENARR3D |
xx_gen(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
448 |
CTRL_MAP_GENARR3D |
do k = 1,nr |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
454 |
CTRL_MAP_GENARR3D |
if ( (localmask(i,j,k,bi,bj).NE.0.).AND. |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
456 |
CTRL_MAP_GENARR3D |
if ( (maskC(i,j,k,bi,bj).NE.0.).AND. |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
458 |
CTRL_MAP_GENARR3D |
& (wgenarr3d(i,j,k,bi,bj,iarr).GT.0.) ) then |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
459 |
CTRL_MAP_GENARR3D |
xx_gen(i,j,k,bi,bj)=xx_gen(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
460 |
CTRL_MAP_GENARR3D |
& /sqrt( wgenarr3d(i,j,k,bi,bj,iarr) ) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
462 |
CTRL_MAP_GENARR3D |
xx_gen(i,j,k,bi,bj)=0. |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
466 |
CTRL_MAP_GENARR3D |
fld(i,j,k,bi,bj)=fld(i,j,k,bi,bj)+xx_gen(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
104 |
CTRL_MASK_SET_XZ |
if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
105 |
CTRL_MASK_SET_XZ |
nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
106 |
CTRL_MASK_SET_XZ |
maskxz(i,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
111 |
CTRL_MASK_SET_XZ |
if (maskW(i,j,k,bi,bj) .eq. 1.) then |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
112 |
CTRL_MASK_SET_XZ |
nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
113 |
CTRL_MASK_SET_XZ |
maskxz(i,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
131 |
CTRL_MASK_SET_XZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
133 |
CTRL_MASK_SET_XZ |
gg(i,k,bi,bj) = maskxz(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
42 |
CTRL_MASK_SET_XZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
86 |
CTRL_MASK_SET_XZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
88 |
CTRL_MASK_SET_XZ |
maskxz(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
98 |
CTRL_MASK_SET_XZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
105 |
CTRL_MASK_SET_YZ |
if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
106 |
CTRL_MASK_SET_YZ |
nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
107 |
CTRL_MASK_SET_YZ |
maskyz(j,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
112 |
CTRL_MASK_SET_YZ |
if (maskS(i,j,k,bi,bj) .eq. 1.) then |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
113 |
CTRL_MASK_SET_YZ |
nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
114 |
CTRL_MASK_SET_YZ |
maskyz(j,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
132 |
CTRL_MASK_SET_YZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
134 |
CTRL_MASK_SET_YZ |
gg(j,k,bi,bj) = maskyz(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
42 |
CTRL_MASK_SET_YZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
87 |
CTRL_MASK_SET_YZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
89 |
CTRL_MASK_SET_YZ |
maskyz(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
99 |
CTRL_MASK_SET_YZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_pack.F |
238 |
CTRL_PACK |
write(cunit) (nWetcGlobal(k), k=1,nr) |
|
./pkg/ctrl/ctrl_pack.F |
239 |
CTRL_PACK |
write(cunit) (nWetsGlobal(k), k=1,nr) |
|
./pkg/ctrl/ctrl_pack.F |
240 |
CTRL_PACK |
write(cunit) (nWetwGlobal(k), k=1,nr) |
|
./pkg/ctrl/ctrl_pack.F |
242 |
CTRL_PACK |
write(cunit) (nWetvGlobal(k), k=1,nr) |
|
./pkg/ctrl/ctrl_pack.F |
245 |
CTRL_PACK |
write(cunit) (nWetiGlobal(k), k=1,nr) |
|
./pkg/ctrl/ctrl_pack.F |
251 |
CTRL_PACK |
write(cunit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_pack.F |
254 |
CTRL_PACK |
write(cunit) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_pack.F |
257 |
CTRL_PACK |
write(cunit) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_pack.F |
260 |
CTRL_PACK |
write(cunit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_pack.F |
84 |
CTRL_PACK |
integer i, j, k |
|
./pkg/ctrl/ctrl_readparms.F |
46 |
CTRL_READPARMS |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
47 |
CTRL_SET_GLOBFLD_XY |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
83 |
CTRL_SET_GLOBFLD_XY |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
86 |
CTRL_SET_GLOBFLD_XY |
globfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_globfld_xyz.F |
42 |
CTRL_SET_GLOBFLD_XYZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_globfld_xyz.F |
67 |
CTRL_SET_GLOBFLD_XYZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_globfld_xyz.F |
70 |
CTRL_SET_GLOBFLD_XYZ |
globfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
47 |
CTRL_SET_GLOBFLD_XZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
73 |
CTRL_SET_GLOBFLD_XZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
75 |
CTRL_SET_GLOBFLD_XZ |
globfldxz(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
83 |
CTRL_SET_GLOBFLD_XZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
86 |
CTRL_SET_GLOBFLD_XZ |
globfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
47 |
CTRL_SET_GLOBFLD_YZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
74 |
CTRL_SET_GLOBFLD_YZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
76 |
CTRL_SET_GLOBFLD_YZ |
globfldyz(j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
84 |
CTRL_SET_GLOBFLD_YZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
87 |
CTRL_SET_GLOBFLD_YZ |
globfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
104 |
CTRL_SET_PACK_XY |
globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
105 |
CTRL_SET_PACK_XY |
globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
181 |
CTRL_SET_PACK_XY |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
182 |
CTRL_SET_PACK_XY |
irectrue = (irec-1)*nr + k |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
199 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
205 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) * |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
210 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) / |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
217 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
221 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
228 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
232 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
280 |
CTRL_SET_PACK_XY |
do k = 1, 1 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
289 |
CTRL_SET_PACK_XY |
if (globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
293 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
299 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) * |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
304 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) / |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
311 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
315 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
322 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
326 |
CTRL_SET_PACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
348 |
CTRL_SET_PACK_XY |
write(cunit) k |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
376 |
CTRL_SET_PACK_XY |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
49 |
CTRL_SET_PACK_XY |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
520 |
CTRL_SET_PACK_XY |
do k = 1, 1 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
523 |
CTRL_SET_PACK_XY |
& 0, 0, 1, k, 1, 0, 0, .FALSE., myThid ) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
530 |
CTRL_SET_PACK_XY |
& 0, 0, 1, k, Nr, 0, 0, .FALSE., myThid ) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
556 |
CTRL_SET_PACK_XY |
write(cunit) k |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
97 |
CTRL_SET_PACK_XY |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
101 |
CTRL_SET_PACK_XYZ |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
102 |
CTRL_SET_PACK_XYZ |
delZnorm = delZnorm + delR(k)/FLOAT(Nr) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
107 |
CTRL_SET_PACK_XYZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
114 |
CTRL_SET_PACK_XYZ |
globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
115 |
CTRL_SET_PACK_XYZ |
globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
166 |
CTRL_SET_PACK_XYZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
173 |
CTRL_SET_PACK_XYZ |
weightfld3d(i,bi,ip,j,bj,jp,k) = 1. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
198 |
CTRL_SET_PACK_XYZ |
do k = 1, nr |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
199 |
CTRL_SET_PACK_XYZ |
irectrue = (irec-1)*nr + k |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
201 |
CTRL_SET_PACK_XYZ |
delZnorm = (delR(1)/delR(k))**delZexp |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
212 |
CTRL_SET_PACK_XYZ |
if (globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
216 |
CTRL_SET_PACK_XYZ |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
222 |
CTRL_SET_PACK_XYZ |
& * globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
224 |
CTRL_SET_PACK_XYZ |
& * sqrt(weightfld3d(i,bi,ip,j,bj,jp,k)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
226 |
CTRL_SET_PACK_XYZ |
& * sqrt(weightfld(k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
230 |
CTRL_SET_PACK_XYZ |
& * globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
232 |
CTRL_SET_PACK_XYZ |
& / sqrt(weightfld3d(i,bi,ip,j,bj,jp,k)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
234 |
CTRL_SET_PACK_XYZ |
& / sqrt(weightfld(k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
241 |
CTRL_SET_PACK_XYZ |
cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
244 |
CTRL_SET_PACK_XYZ |
cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
261 |
CTRL_SET_PACK_XYZ |
write(cunit) k |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
289 |
CTRL_SET_PACK_XYZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
373 |
CTRL_SET_PACK_XYZ |
DO k=1,Nr |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
375 |
CTRL_SET_PACK_XYZ |
delZnorm = (delR(1)/delR(k))**delZexp |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
381 |
CTRL_SET_PACK_XYZ |
if (msk3d(i,j,k,bi,bj).EQ.0. _d 0) then |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
382 |
CTRL_SET_PACK_XYZ |
fld3dDim(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
383 |
CTRL_SET_PACK_XYZ |
fld3dNodim(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
386 |
CTRL_SET_PACK_XYZ |
fld3dNodim(i,j,k,bi,bj)=fld3dDim(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
389 |
CTRL_SET_PACK_XYZ |
fld3dNodim(i,j,k,bi,bj) = fld3dDim(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
392 |
CTRL_SET_PACK_XYZ |
fld3dNodim(i,j,k,bi,bj) = |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
393 |
CTRL_SET_PACK_XYZ |
& fld3dDim(i,j,k,bi,bj) / delZnorm |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
395 |
CTRL_SET_PACK_XYZ |
& * sqrt(wei3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
397 |
CTRL_SET_PACK_XYZ |
& * sqrt(weightfld(k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
400 |
CTRL_SET_PACK_XYZ |
fld3dNodim(i,j,k,bi,bj) = |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
401 |
CTRL_SET_PACK_XYZ |
& fld3dDim(i,j,k,bi,bj) * delZnorm |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
403 |
CTRL_SET_PACK_XYZ |
& / sqrt(wei3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
405 |
CTRL_SET_PACK_XYZ |
& / sqrt(weightfld(k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
439 |
CTRL_SET_PACK_XYZ |
do k = 1, nr |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
442 |
CTRL_SET_PACK_XYZ |
& 0, 0, 1, k, Nr, 0, 0, .FALSE., myThid ) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
449 |
CTRL_SET_PACK_XYZ |
& 0, 0, 1, k, Nr, 0, 0, .FALSE., myThid ) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
475 |
CTRL_SET_PACK_XYZ |
write(cunit) k |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
53 |
CTRL_SET_PACK_XYZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
104 |
CTRL_SET_PACK_XZ |
globfldxz (i,bi,ip,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
108 |
CTRL_SET_PACK_XZ |
globmskxz(i,bi,ip,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
117 |
CTRL_SET_PACK_XZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
124 |
CTRL_SET_PACK_XZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
194 |
CTRL_SET_PACK_XZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
195 |
CTRL_SET_PACK_XZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
202 |
CTRL_SET_PACK_XZ |
jj=mod((j-1)*nr+k-1,sny)+1 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
204 |
CTRL_SET_PACK_XZ |
if (globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
215 |
CTRL_SET_PACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
217 |
CTRL_SET_PACK_XZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
223 |
CTRL_SET_PACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
225 |
CTRL_SET_PACK_XZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
243 |
CTRL_SET_PACK_XZ |
write(cunit) k |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
269 |
CTRL_SET_PACK_XZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
270 |
CTRL_SET_PACK_XZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
277 |
CTRL_SET_PACK_XZ |
if (globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
281 |
CTRL_SET_PACK_XZ |
& globfldxz(i,bi,ip,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
286 |
CTRL_SET_PACK_XZ |
& globfldxz(i,bi,ip,bj,jp,k) * |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
288 |
CTRL_SET_PACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
290 |
CTRL_SET_PACK_XZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
294 |
CTRL_SET_PACK_XZ |
& globfldxz(i,bi,ip,bj,jp,k) / |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
296 |
CTRL_SET_PACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
298 |
CTRL_SET_PACK_XZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
305 |
CTRL_SET_PACK_XZ |
cbuff(cbuffindex) = globfldxz(i,bi,ip,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
316 |
CTRL_SET_PACK_XZ |
write(cunit) k |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
56 |
CTRL_SET_PACK_XZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
98 |
CTRL_SET_PACK_XZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
104 |
CTRL_SET_PACK_YZ |
globfldyz (bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
108 |
CTRL_SET_PACK_YZ |
globmskyz(bi,ip,j,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
117 |
CTRL_SET_PACK_YZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
124 |
CTRL_SET_PACK_YZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
197 |
CTRL_SET_PACK_YZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
198 |
CTRL_SET_PACK_YZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
205 |
CTRL_SET_PACK_YZ |
ii=mod ( (i-1)*nr*sny+(k-1)*sny+j-1 , snx ) + 1 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
206 |
CTRL_SET_PACK_YZ |
jj=mod( ((i-1)*nr*sny+(k-1)*sny+j-1)/snx , sny ) + 1 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
207 |
CTRL_SET_PACK_YZ |
kk=int((i-1)*nr*sny+(k-1)*sny+j-1)/(snx*sny) + 1 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
208 |
CTRL_SET_PACK_YZ |
if (globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
219 |
CTRL_SET_PACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
221 |
CTRL_SET_PACK_YZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
227 |
CTRL_SET_PACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
229 |
CTRL_SET_PACK_YZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
247 |
CTRL_SET_PACK_YZ |
write(cunit) k |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
273 |
CTRL_SET_PACK_YZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
274 |
CTRL_SET_PACK_YZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
281 |
CTRL_SET_PACK_YZ |
if (globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
285 |
CTRL_SET_PACK_YZ |
& globfldyz(bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
290 |
CTRL_SET_PACK_YZ |
& globfldyz(bi,ip,j,bj,jp,k) * |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
292 |
CTRL_SET_PACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
294 |
CTRL_SET_PACK_YZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
298 |
CTRL_SET_PACK_YZ |
& globfldyz(bi,ip,j,bj,jp,k) / |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
300 |
CTRL_SET_PACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
302 |
CTRL_SET_PACK_YZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
309 |
CTRL_SET_PACK_YZ |
cbuff(cbuffindex) = globfldyz(bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
320 |
CTRL_SET_PACK_YZ |
write(cunit) k |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
56 |
CTRL_SET_PACK_YZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
98 |
CTRL_SET_PACK_YZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
105 |
CTRL_SET_UNPACK_XY |
globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
106 |
CTRL_SET_UNPACK_XY |
globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
179 |
CTRL_SET_UNPACK_XY |
do k = 1,Nr |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
180 |
CTRL_SET_UNPACK_XY |
irectrue = (irec-1)*nr + k |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
221 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
227 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
236 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
237 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
243 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
244 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
252 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
253 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
256 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
257 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
262 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
266 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
300 |
CTRL_SET_UNPACK_XY |
do k = 1,1 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
302 |
CTRL_SET_UNPACK_XY |
cbuffindex = nwetglobal(k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
312 |
CTRL_SET_UNPACK_XY |
if (filek .NE. k) then |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
314 |
CTRL_SET_UNPACK_XY |
& filek, k |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
329 |
CTRL_SET_UNPACK_XY |
if ( globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
331 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
337 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
346 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
347 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
353 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
354 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
362 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
363 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
366 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
367 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
372 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
376 |
CTRL_SET_UNPACK_XY |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
410 |
CTRL_SET_UNPACK_XY |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
504 |
CTRL_SET_UNPACK_XY |
do k = 1, 1 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
507 |
CTRL_SET_UNPACK_XY |
& 0, 0, 1, k, Nr, 0, 0, .FALSE., myThid ) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
50 |
CTRL_SET_UNPACK_XY |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
514 |
CTRL_SET_UNPACK_XY |
cbuffindex = nwetglobal(k) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
554 |
CTRL_SET_UNPACK_XY |
& 0, 0, 1, k, 1, 0, 0, .TRUE., myThid ) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
98 |
CTRL_SET_UNPACK_XY |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
101 |
CTRL_SET_UNPACK_XYZ |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
102 |
CTRL_SET_UNPACK_XYZ |
delZnorm = delZnorm + delR(k)/FLOAT(Nr) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
109 |
CTRL_SET_UNPACK_XYZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
116 |
CTRL_SET_UNPACK_XYZ |
globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
117 |
CTRL_SET_UNPACK_XYZ |
globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
132 |
CTRL_SET_UNPACK_XYZ |
do k = 1, nr |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
133 |
CTRL_SET_UNPACK_XYZ |
print *, 'ph-delznorm ', k, delZnorm, delR(k) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
134 |
CTRL_SET_UNPACK_XYZ |
print *, 'ph-weight ', weightfld(k,1,1) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
175 |
CTRL_SET_UNPACK_XYZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
182 |
CTRL_SET_UNPACK_XYZ |
weightfld3d(i,bi,ip,j,bj,jp,k) = 1. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
209 |
CTRL_SET_UNPACK_XYZ |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
210 |
CTRL_SET_UNPACK_XYZ |
irectrue = (irec-1)*nr + k |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
212 |
CTRL_SET_UNPACK_XYZ |
delZnorm = (delR(1)/delR(k))**delZexp |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
216 |
CTRL_SET_UNPACK_XYZ |
cbuffindex = nwetglobal(k) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
226 |
CTRL_SET_UNPACK_XYZ |
if (filek .NE. k) then |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
228 |
CTRL_SET_UNPACK_XYZ |
& filek, k |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
243 |
CTRL_SET_UNPACK_XYZ |
if ( globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
245 |
CTRL_SET_UNPACK_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
251 |
CTRL_SET_UNPACK_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
261 |
CTRL_SET_UNPACK_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = delZnorm |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
262 |
CTRL_SET_UNPACK_XYZ |
& * globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
264 |
CTRL_SET_UNPACK_XYZ |
& / sqrt(weightfld3d(i,bi,ip,j,bj,jp,k)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
266 |
CTRL_SET_UNPACK_XYZ |
& / sqrt(weightfld(k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
269 |
CTRL_SET_UNPACK_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 1/delZnorm |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
270 |
CTRL_SET_UNPACK_XYZ |
& * globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
272 |
CTRL_SET_UNPACK_XYZ |
& * sqrt(weightfld3d(i,bi,ip,j,bj,jp,k)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
274 |
CTRL_SET_UNPACK_XYZ |
& * sqrt(weightfld(k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
280 |
CTRL_SET_UNPACK_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
284 |
CTRL_SET_UNPACK_XYZ |
& globfld3d(i,bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
318 |
CTRL_SET_UNPACK_XYZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
414 |
CTRL_SET_UNPACK_XYZ |
do k = 1, nr |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
417 |
CTRL_SET_UNPACK_XYZ |
& 0, 0, 1, k, Nr, 0, 0, .FALSE., myThid ) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
424 |
CTRL_SET_UNPACK_XYZ |
cbuffindex = nwetglobal(k) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
436 |
CTRL_SET_UNPACK_XYZ |
if (filek .NE. k) then |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
438 |
CTRL_SET_UNPACK_XYZ |
& filek, k |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
464 |
CTRL_SET_UNPACK_XYZ |
& 0, 0, 1, k, Nr, 0, 0, .TRUE., myThid ) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
471 |
CTRL_SET_UNPACK_XYZ |
DO k=1,Nr |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
473 |
CTRL_SET_UNPACK_XYZ |
delZnorm = (delR(1)/delR(k))**delZexp |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
479 |
CTRL_SET_UNPACK_XYZ |
if (msk3d(i,j,k,bi,bj).EQ.0. _d 0) then |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
480 |
CTRL_SET_UNPACK_XYZ |
fld3dDim(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
481 |
CTRL_SET_UNPACK_XYZ |
fld3dNodim(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
485 |
CTRL_SET_UNPACK_XYZ |
fld3dNodim(i,j,k,bi,bj)=phtmpadmtlm(nveccount) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
488 |
CTRL_SET_UNPACK_XYZ |
fld3dDim(i,j,k,bi,bj)=fld3dNodim(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
491 |
CTRL_SET_UNPACK_XYZ |
fld3dDim(i,j,k,bi,bj) = fld3dNodim(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
494 |
CTRL_SET_UNPACK_XYZ |
fld3dDim(i,j,k,bi,bj) = |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
495 |
CTRL_SET_UNPACK_XYZ |
& fld3dNodim(i,j,k,bi,bj) * delZnorm |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
497 |
CTRL_SET_UNPACK_XYZ |
& / sqrt(wei3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
499 |
CTRL_SET_UNPACK_XYZ |
& / sqrt(weightfld(k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
502 |
CTRL_SET_UNPACK_XYZ |
fld3dDim(i,j,k,bi,bj) = |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
503 |
CTRL_SET_UNPACK_XYZ |
& fld3dNodim(i,j,k,bi,bj) / delZnorm |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
505 |
CTRL_SET_UNPACK_XYZ |
& * sqrt(wei3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
507 |
CTRL_SET_UNPACK_XYZ |
& * sqrt(weightfld(k,bi,bj)) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
53 |
CTRL_SET_UNPACK_XYZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
103 |
CTRL_SET_UNPACK_XZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
109 |
CTRL_SET_UNPACK_XZ |
globfldxz (i,bi,ip,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
113 |
CTRL_SET_UNPACK_XZ |
globmskxz(i,bi,ip,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
122 |
CTRL_SET_UNPACK_XZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
129 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
204 |
CTRL_SET_UNPACK_XZ |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
205 |
CTRL_SET_UNPACK_XZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
206 |
CTRL_SET_UNPACK_XZ |
cbuffindex = nwetglobal(k,iobcs) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
215 |
CTRL_SET_UNPACK_XZ |
if (filek .NE. k) then |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
217 |
CTRL_SET_UNPACK_XZ |
& filek, k |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
224 |
CTRL_SET_UNPACK_XZ |
jj=mod((j-1)*nr+k-1,sny)+1 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
225 |
CTRL_SET_UNPACK_XZ |
kk=int((j-1)*nr+k-1)/sny+1 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
231 |
CTRL_SET_UNPACK_XZ |
if ( globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
243 |
CTRL_SET_UNPACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
245 |
CTRL_SET_UNPACK_XZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
291 |
CTRL_SET_UNPACK_XZ |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
292 |
CTRL_SET_UNPACK_XZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
293 |
CTRL_SET_UNPACK_XZ |
cbuffindex = nwetglobal(k,iobcs) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
302 |
CTRL_SET_UNPACK_XZ |
if (filek .NE. k) then |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
304 |
CTRL_SET_UNPACK_XZ |
& filek, k |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
316 |
CTRL_SET_UNPACK_XZ |
if ( globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
318 |
CTRL_SET_UNPACK_XZ |
globfldxz(i,bi,ip,bj,jp,k) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
323 |
CTRL_SET_UNPACK_XZ |
globfldxz(i,bi,ip,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
324 |
CTRL_SET_UNPACK_XZ |
& globfldxz(i,bi,ip,bj,jp,k)/ |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
326 |
CTRL_SET_UNPACK_XZ |
& sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
328 |
CTRL_SET_UNPACK_XZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
332 |
CTRL_SET_UNPACK_XZ |
globfldxz(i,bi,ip,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
336 |
CTRL_SET_UNPACK_XZ |
& globfldxz(i,bi,ip,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
57 |
CTRL_SET_UNPACK_XZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
103 |
CTRL_SET_UNPACK_YZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
109 |
CTRL_SET_UNPACK_YZ |
globfldyz (bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
113 |
CTRL_SET_UNPACK_YZ |
globmskyz(bi,ip,j,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
122 |
CTRL_SET_UNPACK_YZ |
do k = 1,nr |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
129 |
CTRL_SET_UNPACK_YZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
204 |
CTRL_SET_UNPACK_YZ |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
205 |
CTRL_SET_UNPACK_YZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
206 |
CTRL_SET_UNPACK_YZ |
cbuffindex = nwetglobal(k,iobcs) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
215 |
CTRL_SET_UNPACK_YZ |
if (filek .NE. k) then |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
217 |
CTRL_SET_UNPACK_YZ |
& filek, k |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
228 |
CTRL_SET_UNPACK_YZ |
ii=mod((i-1)*nr*sny+(k-1)*sny+j-1,snx)+1 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
229 |
CTRL_SET_UNPACK_YZ |
jj=mod(((i-1)*nr*sny+(k-1)*sny+j-1)/snx,sny)+1 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
230 |
CTRL_SET_UNPACK_YZ |
kk=int((i-1)*nr*sny+(k-1)*sny+j-1)/(snx*sny)+1 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
231 |
CTRL_SET_UNPACK_YZ |
if ( globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
243 |
CTRL_SET_UNPACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
245 |
CTRL_SET_UNPACK_YZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
291 |
CTRL_SET_UNPACK_YZ |
do k = 1, Nr |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
292 |
CTRL_SET_UNPACK_YZ |
irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
293 |
CTRL_SET_UNPACK_YZ |
cbuffindex = nwetglobal(k,iobcs) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
302 |
CTRL_SET_UNPACK_YZ |
if (filek .NE. k) then |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
304 |
CTRL_SET_UNPACK_YZ |
& filek, k |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
315 |
CTRL_SET_UNPACK_YZ |
if ( globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
317 |
CTRL_SET_UNPACK_YZ |
globfldyz(bi,ip,j,bj,jp,k) = cbuff(cbuffindex) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
322 |
CTRL_SET_UNPACK_YZ |
globfldyz(bi,ip,j,bj,jp,k) = |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
323 |
CTRL_SET_UNPACK_YZ |
& globfldyz(bi,ip,j,bj,jp,k)/ |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
325 |
CTRL_SET_UNPACK_YZ |
& sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
327 |
CTRL_SET_UNPACK_YZ |
& sqrt(weightfld(k,iobcs)) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
331 |
CTRL_SET_UNPACK_YZ |
globfldyz(bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
335 |
CTRL_SET_UNPACK_YZ |
& globfldyz(bi,ip,j,bj,jp,k) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
57 |
CTRL_SET_UNPACK_YZ |
integer i,j,k |
|
./pkg/ctrl/ctrl_smooth.F |
26 |
CTRL_SMOOTH |
integer k, bi, bj |
|
./pkg/ctrl/ctrl_smooth.F |
37 |
CTRL_SMOOTH |
k = 1 |
|
./pkg/ctrl/ctrl_smooth.F |
48 |
CTRL_SMOOTH |
& p25 * mask(i ,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
49 |
CTRL_SMOOTH |
& p125 * ( mask(im1,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
50 |
CTRL_SMOOTH |
& mask(ip1,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
51 |
CTRL_SMOOTH |
& mask(i ,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
52 |
CTRL_SMOOTH |
& mask(i ,jp1,k,bi,bj) ) + |
|
./pkg/ctrl/ctrl_smooth.F |
53 |
CTRL_SMOOTH |
& p0625 * ( mask(im1,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
54 |
CTRL_SMOOTH |
& mask(im1,jp1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
55 |
CTRL_SMOOTH |
& mask(ip1,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
56 |
CTRL_SMOOTH |
& mask(ip1,jp1,k,bi,bj) ) |
|
./pkg/ctrl/ctrl_smooth.F |
59 |
CTRL_SMOOTH |
& p25 * fld(i ,j,bi,bj )*mask(i ,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
60 |
CTRL_SMOOTH |
& p125 *(fld(im1,j ,bi,bj )*mask(im1,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
61 |
CTRL_SMOOTH |
& fld(ip1,j ,bi,bj )*mask(ip1,j ,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
62 |
CTRL_SMOOTH |
& fld(i ,jm1,bi,bj)*mask(i ,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
63 |
CTRL_SMOOTH |
& fld(i ,jp1,bi,bj)*mask(i ,jp1,k,bi,bj))+ |
|
./pkg/ctrl/ctrl_smooth.F |
64 |
CTRL_SMOOTH |
& p0625*(fld(im1,jm1,bi,bj)*mask(im1,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
65 |
CTRL_SMOOTH |
& fld(im1,jp1,bi,bj)*mask(im1,jp1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
66 |
CTRL_SMOOTH |
& fld(ip1,jm1,bi,bj)*mask(ip1,jm1,k,bi,bj) + |
|
./pkg/ctrl/ctrl_smooth.F |
67 |
CTRL_SMOOTH |
& fld(ip1,jp1,bi,bj)*mask(ip1,jp1,k,bi,bj))) |
|
./pkg/ctrl/ctrl_summary.F |
115 |
CTRL_SUMMARY |
do k = 1,nr |
|
./pkg/ctrl/ctrl_summary.F |
116 |
CTRL_SUMMARY |
nwetcenter = nwetcenter + nwetctile(bi,bj,k) |
|
./pkg/ctrl/ctrl_summary.F |
117 |
CTRL_SUMMARY |
nwetsouth = nwetsouth + nwetstile(bi,bj,k) |
|
./pkg/ctrl/ctrl_summary.F |
118 |
CTRL_SUMMARY |
nwetwest = nwetwest + nwetwtile(bi,bj,k) |
|
./pkg/ctrl/ctrl_summary.F |
46 |
CTRL_SUMMARY |
integer i,k |
|
./pkg/ctrl/ctrl_swapffields.F |
113 |
CTRL_SWAPFFIELDS_3D |
INTEGER i, j, k |
|
./pkg/ctrl/ctrl_swapffields.F |
119 |
CTRL_SWAPFFIELDS_3D |
DO k = 1,nNz |
|
./pkg/ctrl/ctrl_swapffields.F |
122 |
CTRL_SWAPFFIELDS_3D |
ffld0(i,j,k,bi,bj) = ffld1(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_swapffields.F |
123 |
CTRL_SWAPFFIELDS_3D |
ffld1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_swapffields.F |
167 |
CTRL_SWAPFFIELDS_XZ |
INTEGER i, k |
|
./pkg/ctrl/ctrl_swapffields.F |
173 |
CTRL_SWAPFFIELDS_XZ |
DO k = 1,nNz |
|
./pkg/ctrl/ctrl_swapffields.F |
175 |
CTRL_SWAPFFIELDS_XZ |
ffld0(i,k,bi,bj) = ffld1(i,k,bi,bj) |
|
./pkg/ctrl/ctrl_swapffields.F |
176 |
CTRL_SWAPFFIELDS_XZ |
ffld1(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_swapffields.F |
219 |
CTRL_SWAPFFIELDS_YZ |
INTEGER j, k |
|
./pkg/ctrl/ctrl_swapffields.F |
225 |
CTRL_SWAPFFIELDS_YZ |
DO k = 1,nNz |
|
./pkg/ctrl/ctrl_swapffields.F |
227 |
CTRL_SWAPFFIELDS_YZ |
ffld0(j,k,bi,bj) = ffld1(j,k,bi,bj) |
|
./pkg/ctrl/ctrl_swapffields.F |
228 |
CTRL_SWAPFFIELDS_YZ |
ffld1(j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_unpack.F |
238 |
CTRL_UNPACK |
read(cunit) (filenWetcGlobal(k), k=1,nr) |
|
./pkg/ctrl/ctrl_unpack.F |
239 |
CTRL_UNPACK |
read(cunit) (filenWetsGlobal(k), k=1,nr) |
|
./pkg/ctrl/ctrl_unpack.F |
240 |
CTRL_UNPACK |
read(cunit) (filenWetwGlobal(k), k=1,nr) |
|
./pkg/ctrl/ctrl_unpack.F |
242 |
CTRL_UNPACK |
read(cunit) (filenWetvGlobal(k), k=1,nr) |
|
./pkg/ctrl/ctrl_unpack.F |
245 |
CTRL_UNPACK |
read(cunit) (filenWetiGlobal(k), k=1,nr) |
|
./pkg/ctrl/ctrl_unpack.F |
252 |
CTRL_UNPACK |
read(cunit) ((filenWetobcsnGlo(k,iobcs), |
|
./pkg/ctrl/ctrl_unpack.F |
253 |
CTRL_UNPACK |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_unpack.F |
256 |
CTRL_UNPACK |
read(cunit) ((filenWetobcssGlo(k,iobcs), |
|
./pkg/ctrl/ctrl_unpack.F |
257 |
CTRL_UNPACK |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_unpack.F |
260 |
CTRL_UNPACK |
read(cunit) ((filenWetobcswGlo(k,iobcs), |
|
./pkg/ctrl/ctrl_unpack.F |
261 |
CTRL_UNPACK |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_unpack.F |
264 |
CTRL_UNPACK |
read(cunit) ((filenWetobcseGlo(k,iobcs), |
|
./pkg/ctrl/ctrl_unpack.F |
265 |
CTRL_UNPACK |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/ctrl/ctrl_unpack.F |
289 |
CTRL_UNPACK |
do k = 1, nr |
|
./pkg/ctrl/ctrl_unpack.F |
290 |
CTRL_UNPACK |
if ( filenWetcGlobal(k) .NE. nWetcGlobal(k) .OR. |
|
./pkg/ctrl/ctrl_unpack.F |
291 |
CTRL_UNPACK |
& filenWetsGlobal(k) .NE. nWetsGlobal(k) .OR. |
|
./pkg/ctrl/ctrl_unpack.F |
292 |
CTRL_UNPACK |
& filenWetwGlobal(k) .NE. nWetwGlobal(k) .OR. |
|
./pkg/ctrl/ctrl_unpack.F |
293 |
CTRL_UNPACK |
& filenWetvGlobal(k) .NE. nWetvGlobal(k) ) then |
|
./pkg/ctrl/ctrl_unpack.F |
294 |
CTRL_UNPACK |
print *, 'WARNING: wrong nWet?Global for k = ', k |
|
./pkg/ctrl/ctrl_unpack.F |
299 |
CTRL_UNPACK |
do k=1,1 |
|
./pkg/ctrl/ctrl_unpack.F |
300 |
CTRL_UNPACK |
if ( filenWetiGlobal(k) .NE. nWetiGlobal(k) ) then |
|
./pkg/ctrl/ctrl_unpack.F |
301 |
CTRL_UNPACK |
print *, 'WARNING: wrong nWetiGlobal for k = ', k |
|
./pkg/ctrl/ctrl_unpack.F |
311 |
CTRL_UNPACK |
do k = 1, nr |
|
./pkg/ctrl/ctrl_unpack.F |
312 |
CTRL_UNPACK |
if (filenWetobcsnGlo(k,iobcs) .NE. |
|
./pkg/ctrl/ctrl_unpack.F |
313 |
CTRL_UNPACK |
& nWetobcsnGlo(k,iobcs)) then |
|
./pkg/ctrl/ctrl_unpack.F |
314 |
CTRL_UNPACK |
print *, 'WARNING: OBCSN wrong nWet?Global for k = ', k |
|
./pkg/ctrl/ctrl_unpack.F |
322 |
CTRL_UNPACK |
do k = 1, nr |
|
./pkg/ctrl/ctrl_unpack.F |
323 |
CTRL_UNPACK |
if (filenWetobcssGlo(k,iobcs) .NE. |
|
./pkg/ctrl/ctrl_unpack.F |
324 |
CTRL_UNPACK |
& nWetobcssGlo(k,iobcs)) then |
|
./pkg/ctrl/ctrl_unpack.F |
325 |
CTRL_UNPACK |
print *, 'WARNING: OBCSS wrong nWet?Global for k = ', k |
|
./pkg/ctrl/ctrl_unpack.F |
333 |
CTRL_UNPACK |
do k = 1, nr |
|
./pkg/ctrl/ctrl_unpack.F |
334 |
CTRL_UNPACK |
if (filenWetobcswGlo(k,iobcs) .NE. |
|
./pkg/ctrl/ctrl_unpack.F |
335 |
CTRL_UNPACK |
& nWetobcswGlo(k,iobcs)) then |
|
./pkg/ctrl/ctrl_unpack.F |
336 |
CTRL_UNPACK |
print *, 'WARNING: OBCSW wrong nWet?Global for k = ', k |
|
./pkg/ctrl/ctrl_unpack.F |
344 |
CTRL_UNPACK |
do k = 1, nr |
|
./pkg/ctrl/ctrl_unpack.F |
345 |
CTRL_UNPACK |
if (filenWetobcseGlo(k,iobcs) .NE. |
|
./pkg/ctrl/ctrl_unpack.F |
346 |
CTRL_UNPACK |
& nWetobcseGlo(k,iobcs)) then |
|
./pkg/ctrl/ctrl_unpack.F |
347 |
CTRL_UNPACK |
print *, 'WARNING: OBCSE wrong nWet?Global for k = ', k |
|
./pkg/ctrl/ctrl_unpack.F |
87 |
CTRL_UNPACK |
integer i, j, k |
|
./pkg/debug/debug_cs_corner_uv.F |
104 |
DEBUG_CS_CORNER_UV |
& ' Edges values near a corner, lev=',k |
|
./pkg/debug/debug_cs_corner_uv.F |
121 |
DEBUG_CS_CORNER_UV |
& t1,tmpU(1,k,n1), t2,tmpV(4,k,n2), |
|
./pkg/debug/debug_cs_corner_uv.F |
122 |
DEBUG_CS_CORNER_UV |
& tmpU(1,k,n1) - tmpV(4,k,n2) |
|
./pkg/debug/debug_cs_corner_uv.F |
124 |
DEBUG_CS_CORNER_UV |
& t1,tmpU(2,k,n1), t2,tmpV(3,k,n2), |
|
./pkg/debug/debug_cs_corner_uv.F |
125 |
DEBUG_CS_CORNER_UV |
& tmpU(2,k,n1) - tmpV(3,k,n2) |
|
./pkg/debug/debug_cs_corner_uv.F |
129 |
DEBUG_CS_CORNER_UV |
& t1,tmpU(1,k,n1), t2,tmpU(3,k,n2), |
|
./pkg/debug/debug_cs_corner_uv.F |
130 |
DEBUG_CS_CORNER_UV |
& tmpU(1,k,n1) - tmpU(3,k,n2) |
|
./pkg/debug/debug_cs_corner_uv.F |
132 |
DEBUG_CS_CORNER_UV |
& t1,tmpU(2,k,n1), t2,tmpU(4,k,n2), |
|
./pkg/debug/debug_cs_corner_uv.F |
133 |
DEBUG_CS_CORNER_UV |
& tmpU(2,k,n1) - tmpU(4,k,n2) |
|
./pkg/debug/debug_cs_corner_uv.F |
137 |
DEBUG_CS_CORNER_UV |
& t1,tmpV(1,k,n1), t3,tmpV(3,k,n3), |
|
./pkg/debug/debug_cs_corner_uv.F |
138 |
DEBUG_CS_CORNER_UV |
& tmpV(1,k,n1) - tmpV(3,k,n3) |
|
./pkg/debug/debug_cs_corner_uv.F |
140 |
DEBUG_CS_CORNER_UV |
& t1,tmpV(2,k,n1), t3,tmpV(4,k,n3), |
|
./pkg/debug/debug_cs_corner_uv.F |
141 |
DEBUG_CS_CORNER_UV |
& tmpV(2,k,n1) - tmpV(4,k,n3) |
|
./pkg/debug/debug_cs_corner_uv.F |
145 |
DEBUG_CS_CORNER_UV |
& t1,tmpV(1,k,n1), t3,tmpU(4,k,n3), |
|
./pkg/debug/debug_cs_corner_uv.F |
146 |
DEBUG_CS_CORNER_UV |
& tmpV(1,k,n1) - tmpU(4,k,n3) |
|
./pkg/debug/debug_cs_corner_uv.F |
148 |
DEBUG_CS_CORNER_UV |
& t1,tmpV(2,k,n1), t3,tmpU(3,k,n3), |
|
./pkg/debug/debug_cs_corner_uv.F |
149 |
DEBUG_CS_CORNER_UV |
& tmpV(2,k,n1) - tmpU(3,k,n3) |
|
./pkg/debug/debug_cs_corner_uv.F |
163 |
DEBUG_CS_CORNER_UV |
& n1,tmpU(1,k,n1), n2,tmpV(4,k,n2), |
|
./pkg/debug/debug_cs_corner_uv.F |
164 |
DEBUG_CS_CORNER_UV |
& tmpU(1,k,n1) - tmpV(4,k,n2) |
|
./pkg/debug/debug_cs_corner_uv.F |
166 |
DEBUG_CS_CORNER_UV |
& n1,tmpU(2,k,n1), n2,tmpV(3,k,n2), |
|
./pkg/debug/debug_cs_corner_uv.F |
167 |
DEBUG_CS_CORNER_UV |
& tmpU(2,k,n1) - tmpV(3,k,n2) |
|
./pkg/debug/debug_cs_corner_uv.F |
169 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(1,k,n1), n3,tmpV(3,k,n3), |
|
./pkg/debug/debug_cs_corner_uv.F |
170 |
DEBUG_CS_CORNER_UV |
& tmpV(1,k,n1) - tmpV(3,k,n3) |
|
./pkg/debug/debug_cs_corner_uv.F |
172 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(2,k,n1), n3,tmpV(4,k,n3), |
|
./pkg/debug/debug_cs_corner_uv.F |
173 |
DEBUG_CS_CORNER_UV |
& tmpV(2,k,n1) - tmpV(4,k,n3) |
|
./pkg/debug/debug_cs_corner_uv.F |
184 |
DEBUG_CS_CORNER_UV |
& n1,tmpU(1,k,n1), n2,tmpU(3,k,n2), |
|
./pkg/debug/debug_cs_corner_uv.F |
185 |
DEBUG_CS_CORNER_UV |
& tmpU(1,k,n1) - tmpU(3,k,n2) |
|
./pkg/debug/debug_cs_corner_uv.F |
187 |
DEBUG_CS_CORNER_UV |
& n1,tmpU(2,k,n1), n2,tmpU(4,k,n2), |
|
./pkg/debug/debug_cs_corner_uv.F |
188 |
DEBUG_CS_CORNER_UV |
& tmpU(2,k,n1) - tmpU(4,k,n2) |
|
./pkg/debug/debug_cs_corner_uv.F |
190 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(1,k,n1), n3,tmpU(4,k,n3), |
|
./pkg/debug/debug_cs_corner_uv.F |
191 |
DEBUG_CS_CORNER_UV |
& tmpV(1,k,n1) - tmpU(4,k,n3) |
|
./pkg/debug/debug_cs_corner_uv.F |
193 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(2,k,n1), n3,tmpU(3,k,n3), |
|
./pkg/debug/debug_cs_corner_uv.F |
194 |
DEBUG_CS_CORNER_UV |
& tmpV(2,k,n1) - tmpU(3,k,n3) |
|
./pkg/debug/debug_cs_corner_uv.F |
48 |
DEBUG_CS_CORNER_UV |
INTEGER k, ioUnit |
|
./pkg/debug/debug_cs_corner_uv.F |
84 |
DEBUG_CS_CORNER_UV |
tmpU(1,k,n1)= uFld(1,j) |
|
./pkg/debug/debug_cs_corner_uv.F |
85 |
DEBUG_CS_CORNER_UV |
tmpU(2,k,n1)= uFld(1,sNy+1-j) |
|
./pkg/debug/debug_cs_corner_uv.F |
86 |
DEBUG_CS_CORNER_UV |
tmpU(3,k,n1)= uFld(sNx+1,j) |
|
./pkg/debug/debug_cs_corner_uv.F |
87 |
DEBUG_CS_CORNER_UV |
tmpU(4,k,n1)= uFld(sNx+1,sNy+1-j) |
|
./pkg/debug/debug_cs_corner_uv.F |
88 |
DEBUG_CS_CORNER_UV |
tmpV(1,k,n1)= vFld(j,1) |
|
./pkg/debug/debug_cs_corner_uv.F |
89 |
DEBUG_CS_CORNER_UV |
tmpV(2,k,n1)= vFld(sNx+1-j,1) |
|
./pkg/debug/debug_cs_corner_uv.F |
90 |
DEBUG_CS_CORNER_UV |
tmpV(3,k,n1)= vFld(j,sNy+1) |
|
./pkg/debug/debug_cs_corner_uv.F |
91 |
DEBUG_CS_CORNER_UV |
tmpV(4,k,n1)= vFld(sNx+1-j,sNy+1) |
|
./pkg/debug/debug_cs_corner_uv.F |
9 |
DEBUG_CS_CORNER_UV |
I k, ioUnit, bi,bj, myThid ) |
|
./pkg/debug/debug_fld_stats_rl.F |
112 |
DEBUG_FLD_STATS_RL |
DO k=1,myNr |
|
./pkg/debug/debug_fld_stats_rl.F |
115 |
DEBUG_FLD_STATS_RL |
tmpVal = arr(i,j,k,bi,bj) |
|
./pkg/debug/debug_fld_stats_rl.F |
47 |
DEBUG_FLD_STATS_RL |
INTEGER bi,bj,i,j,k |
|
./pkg/debug/debug_fld_stats_rl.F |
71 |
DEBUG_FLD_STATS_RL |
DO k=1,myNr |
|
./pkg/debug/debug_fld_stats_rl.F |
74 |
DEBUG_FLD_STATS_RL |
tmpVal = arr(i,j,k,bi,bj) |
|
./pkg/debug/debug_fld_stats_rs.F |
112 |
DEBUG_FLD_STATS_RS |
DO k=1,myNr |
|
./pkg/debug/debug_fld_stats_rs.F |
115 |
DEBUG_FLD_STATS_RS |
tmpVal = arr(i,j,k,bi,bj) |
|
./pkg/debug/debug_fld_stats_rs.F |
47 |
DEBUG_FLD_STATS_RS |
INTEGER bi,bj,i,j,k |
|
./pkg/debug/debug_fld_stats_rs.F |
71 |
DEBUG_FLD_STATS_RS |
DO k=1,myNr |
|
./pkg/debug/debug_fld_stats_rs.F |
74 |
DEBUG_FLD_STATS_RS |
tmpVal = arr(i,j,k,bi,bj) |
|
./pkg/debug/fill_in_corners_rl.F |
37 |
FILL_IN_CORNERS_RL |
INTEGER i, j, k |
|
./pkg/debug/fill_in_corners_rl.F |
43 |
FILL_IN_CORNERS_RL |
DO k=1,Ksize |
|
./pkg/debug/fill_in_corners_rl.F |
48 |
FILL_IN_CORNERS_RL |
fld(i,j,k,bi,bj) = spvFld |
|
./pkg/debug/fill_in_corners_rl.F |
49 |
FILL_IN_CORNERS_RL |
fld(ii,j,k,bi,bj) = spvFld |
|
./pkg/debug/fill_in_corners_rl.F |
50 |
FILL_IN_CORNERS_RL |
fld(i,jj,k,bi,bj) = spvFld |
|
./pkg/debug/fill_in_corners_rl.F |
51 |
FILL_IN_CORNERS_RL |
fld(ii,jj,k,bi,bj) = spvFld |
|
./pkg/debug/write_fullarray_rl.F |
131 |
WRITE_FULLARRAY_RL |
DO k = 1,kSize |
|
./pkg/debug/write_fullarray_rl.F |
132 |
WRITE_FULLARRAY_RL |
kRec = k + (iRec-1)*kSize |
|
./pkg/debug/write_fullarray_rl.F |
133 |
WRITE_FULLARRAY_RL |
WRITE(dUnit,rec=kRec) (( fld(i,j,k,1,1), |
|
./pkg/debug/write_fullarray_rl.F |
50 |
WRITE_FULLARRAY_RL |
INTEGER i,j,k,bi,bj,iG,jG |
|
./pkg/debug/write_fullarray_rl.F |
97 |
WRITE_FULLARRAY_RL |
DO k = 1,kSize |
|
./pkg/debug/write_fullarray_rl.F |
98 |
WRITE_FULLARRAY_RL |
kRec = k + (iRec-1)*kSize |
|
./pkg/debug/write_fullarray_rl.F |
99 |
WRITE_FULLARRAY_RL |
WRITE(dUnit,rec=kRec) (( fld(i,j,k,bi,bj), |
|
./pkg/debug/write_fullarray_rs.F |
131 |
WRITE_FULLARRAY_RS |
DO k = 1,kSize |
|
./pkg/debug/write_fullarray_rs.F |
132 |
WRITE_FULLARRAY_RS |
kRec = k + (iRec-1)*kSize |
|
./pkg/debug/write_fullarray_rs.F |
133 |
WRITE_FULLARRAY_RS |
WRITE(dUnit,rec=kRec) (( fld(i,j,k,1,1), |
|
./pkg/debug/write_fullarray_rs.F |
50 |
WRITE_FULLARRAY_RS |
INTEGER i,j,k,bi,bj,iG,jG |
|
./pkg/debug/write_fullarray_rs.F |
97 |
WRITE_FULLARRAY_RS |
DO k = 1,kSize |
|
./pkg/debug/write_fullarray_rs.F |
98 |
WRITE_FULLARRAY_RS |
kRec = k + (iRec-1)*kSize |
|
./pkg/debug/write_fullarray_rs.F |
99 |
WRITE_FULLARRAY_RS |
WRITE(dUnit,rec=kRec) (( fld(i,j,k,bi,bj), |
|
./pkg/diagnostics/diag_calc_psivel.F |
10 |
DIAG_CALC_PSIVEL |
I k, iPsi0, jPsi0, uTrans, vTrans, |
|
./pkg/diagnostics/diag_calc_psivel.F |
45 |
DIAG_CALC_PSIVEL |
INTEGER k |
|
./pkg/diagnostics/diag_vegtile_fill.F |
151 |
DIAG_VEGTILE_FILL |
DO k = kFirst,kLast |
|
./pkg/diagnostics/diag_vegtile_fill.F |
152 |
DIAG_VEGTILE_FILL |
kd = kd0 + ksgn*k |
|
./pkg/diagnostics/diag_vegtile_fill.F |
158 |
DIAG_VEGTILE_FILL |
IF ( field(ivt,k).EQ.undef ) THEN |
|
./pkg/diagnostics/diag_vegtile_fill.F |
162 |
DIAG_VEGTILE_FILL |
& + field(ivt,k)*chfr(ivt) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
171 |
DIAG_VEGTILE_FILL |
& + field(ivt,k)*chfr(ivt) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
202 |
DIAG_VEGTILE_FILL |
DO k=1,diagSt_nbActv(l) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
203 |
DIAG_VEGTILE_FILL |
IF ( iSdiag(k,l).EQ.-iSp ) THEN |
|
./pkg/diagnostics/diag_vegtile_fill.F |
233 |
DIAG_VEGTILE_FILL |
DO k = kFirst,kLast |
|
./pkg/diagnostics/diag_vegtile_fill.F |
235 |
DIAG_VEGTILE_FILL |
gridField(ij,k)= 0. |
|
./pkg/diagnostics/diag_vegtile_fill.F |
240 |
DIAG_VEGTILE_FILL |
IF ( field(ivt,k).EQ.undef ) THEN |
|
./pkg/diagnostics/diag_vegtile_fill.F |
241 |
DIAG_VEGTILE_FILL |
gridField(ij,k) = undef |
|
./pkg/diagnostics/diag_vegtile_fill.F |
243 |
DIAG_VEGTILE_FILL |
gridField(ij,k) = gridField(ij,k) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
244 |
DIAG_VEGTILE_FILL |
& + field(ivt,k)*chfr(ivt)/gridFrac(ij) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
251 |
DIAG_VEGTILE_FILL |
gridField(ij,k) = gridField(ij,k) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
252 |
DIAG_VEGTILE_FILL |
& + field(ivt,k)*chfr(ivt)/gridFrac(ij) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
60 |
DIAG_VEGTILE_FILL |
INTEGER k, kFirst, kLast |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
114 |
DIAGNOSTICS_CALC_PHIVEL |
& *drF(k)*hFacW(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
117 |
DIAGNOSTICS_CALC_PHIVEL |
& *drF(k)*hFacS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
127 |
DIAGNOSTICS_CALC_PHIVEL |
uTrans(i,j,bi,bj) = dyG(i,j,bi,bj)*drF(k) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
129 |
DIAGNOSTICS_CALC_PHIVEL |
vTrans(i,j,bi,bj) = dxG(i,j,bi,bj)*drF(k) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
169 |
DIAGNOSTICS_CALC_PHIVEL |
I uTrans, vTrans, k, |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
223 |
DIAGNOSTICS_CALC_PHIVEL |
IF ( debugLevel.GE.debLevA .AND. k.EQ.1 ) THEN |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
243 |
DIAGNOSTICS_CALC_PHIVEL |
& ' diag_cg2d : k=', k, ' , it=', nIterMin, numIters, |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
271 |
DIAGNOSTICS_CALC_PHIVEL |
& *drF(k)*hFacW(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
276 |
DIAGNOSTICS_CALC_PHIVEL |
& *drF(k)*hFacS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
283 |
DIAGNOSTICS_CALC_PHIVEL |
I k, iPsi0, jPsi0, uTrans, vTrans, |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
305 |
DIAGNOSTICS_CALC_PHIVEL |
& psiLoc, ' #', k, lm, myIter, |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
67 |
DIAGNOSTICS_CALC_PHIVEL |
INTEGER i, j, k |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
94 |
DIAGNOSTICS_CALC_PHIVEL |
k = NINT(levs(ks,listId)) |
|
./pkg/diagnostics/diagnostics_check.F |
150 |
DIAGNOSTICS_CHECK |
DO k=1,nlevels(ld) |
|
./pkg/diagnostics/diagnostics_check.F |
151 |
DIAGNOSTICS_CHECK |
IF ( levs(k,ld)-MAX(rF(1),rF(Nr+1)).GT.margin |
|
./pkg/diagnostics/diagnostics_check.F |
152 |
DIAGNOSTICS_CHECK |
& .OR. levs(k,ld)-MIN(rF(1),rF(Nr+1)).LT.-margin |
|
./pkg/diagnostics/diagnostics_check.F |
153 |
DIAGNOSTICS_CHECK |
& .OR. levs(k,ld).LE.0. ) THEN |
|
./pkg/diagnostics/diagnostics_check.F |
160 |
DIAGNOSTICS_CHECK |
& ' lev(k=', k, ') p=', levs(k,ld), |
|
./pkg/diagnostics/diagnostics_check.F |
32 |
DIAGNOSTICS_CHECK |
INTEGER k,m |
|
./pkg/diagnostics/diagnostics_clear.F |
80 |
DIAGNOSTICS_CLRDIAG |
INTEGER i,j,k |
|
./pkg/diagnostics/diagnostics_clear.F |
89 |
DIAGNOSTICS_CLRDIAG |
DO k = 1,nLev |
|
./pkg/diagnostics/diagnostics_clear.F |
90 |
DIAGNOSTICS_CLRDIAG |
kl = ipt+k-1 |
|
./pkg/diagnostics/diagnostics_fill.F |
131 |
DIAGNOSTICS_FILL |
DO k=1,diagSt_nbActv(l) |
|
./pkg/diagnostics/diagnostics_fill.F |
132 |
DIAGNOSTICS_FILL |
IF ( iSdiag(k,l).EQ.-iSp ) THEN |
|
./pkg/diagnostics/diagnostics_fill.F |
65 |
DIAGNOSTICS_FILL |
INTEGER m, n, j, k, l, bi, bj |
|
./pkg/diagnostics/diagnostics_fill_field.F |
227 |
DIAGNOSTICS_FILL_FIELD |
DO k = kFirst,kLast |
|
./pkg/diagnostics/diagnostics_fill_field.F |
228 |
DIAGNOSTICS_FILL_FIELD |
kd = kd0 + ksgn*k |
|
./pkg/diagnostics/diagnostics_fill_field.F |
235 |
DIAGNOSTICS_FILL_FIELD |
I iRun, jRun, k, bi, bj, |
|
./pkg/diagnostics/diagnostics_fill_field.F |
244 |
DIAGNOSTICS_FILL_FIELD |
I iRun, jRun, k, km, |
|
./pkg/diagnostics/diagnostics_fill_field.F |
253 |
DIAGNOSTICS_FILL_FIELD |
DO k = kFirst,kLast |
|
./pkg/diagnostics/diagnostics_fill_field.F |
254 |
DIAGNOSTICS_FILL_FIELD |
kd = kd0 + ksgn*k |
|
./pkg/diagnostics/diagnostics_fill_field.F |
261 |
DIAGNOSTICS_FILL_FIELD |
I iRun, jRun, k, bi, bj, |
|
./pkg/diagnostics/diagnostics_fill_field.F |
270 |
DIAGNOSTICS_FILL_FIELD |
I iRun, jRun, k, km, |
|
./pkg/diagnostics/diagnostics_fill_field.F |
297 |
DIAGNOSTICS_HF_CUMUL |
I iRun, jRun, k, km, |
|
./pkg/diagnostics/diagnostics_fill_field.F |
340 |
DIAGNOSTICS_HF_CUMUL |
INTEGER iRun, jRun, k, km, bi, bj |
|
./pkg/diagnostics/diagnostics_fill_field.F |
358 |
DIAGNOSTICS_HF_CUMUL |
tmpFld(i,j) = scaleFact*inpFldRL(i,j,k,ti,tj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
364 |
DIAGNOSTICS_HF_CUMUL |
tmpFld(i,j) = scaleFact*inpFldRS(i,j,k,ti,tj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
421 |
DIAGNOSTICS_CUMULATE |
I iRun, jRun, k, bi, bj, |
|
./pkg/diagnostics/diagnostics_fill_field.F |
466 |
DIAGNOSTICS_CUMULATE |
INTEGER iRun, jRun, k, bi, bj |
|
./pkg/diagnostics/diagnostics_fill_field.F |
481 |
DIAGNOSTICS_CUMULATE |
l = MIN(k,sizF) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
487 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
488 |
DIAGNOSTICS_CUMULATE |
& *inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
496 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
497 |
DIAGNOSTICS_CUMULATE |
& *inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
505 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
506 |
DIAGNOSTICS_CUMULATE |
& *inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
514 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
515 |
DIAGNOSTICS_CUMULATE |
& *inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
524 |
DIAGNOSTICS_CUMULATE |
l = MIN(k,sizF) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
530 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
538 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
546 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
554 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
568 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
569 |
DIAGNOSTICS_CUMULATE |
& *inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
576 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
577 |
DIAGNOSTICS_CUMULATE |
& *inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
594 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRL(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
601 |
DIAGNOSTICS_CUMULATE |
& + tmpFact*inpFldRS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
99 |
DIAGNOSTICS_FILL_FIELD |
INTEGER iRun, jRun, k, bi, bj |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
131 |
DIAGNOSTICS_FILL_RS |
DO k=1,diagSt_nbActv(l) |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
132 |
DIAGNOSTICS_FILL_RS |
IF ( iSdiag(k,l).EQ.-iSp ) THEN |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
65 |
DIAGNOSTICS_FILL_RS |
INTEGER m, n, j, k, l, bi, bj |
|
./pkg/diagnostics/diagnostics_fill_state.F |
113 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
117 |
DIAGNOSTICS_FILL_STATE |
& *(uVel(i,j,k,bi,bj)+uVel(i+1,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
119 |
DIAGNOSTICS_FILL_STATE |
& *(vVel(i,j,k,bi,bj)+vVel(i,j+1,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
124 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = tmpU(i,j)*tmpV(i,j) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
127 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpU,'UE_VEL_C',k,1,2,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
128 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpV,'VN_VEL_C',k,1,2,bi,bj,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
138 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
141 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = 0.25 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
142 |
DIAGNOSTICS_FILL_STATE |
& *(uVel(i,j-1,k,bi,bj)+uVel(i,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
143 |
DIAGNOSTICS_FILL_STATE |
& *(vVel(i-1,j,k,bi,bj)+vVel(i,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
155 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
156 |
DIAGNOSTICS_FILL_STATE |
km1 = MAX(k-1,1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
159 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = 0.25 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
160 |
DIAGNOSTICS_FILL_STATE |
& *(uVel(i,j,km1,bi,bj)+uVel(i,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
161 |
DIAGNOSTICS_FILL_STATE |
& *(wVel(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
162 |
DIAGNOSTICS_FILL_STATE |
& +wVel( i ,j,k,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
175 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
176 |
DIAGNOSTICS_FILL_STATE |
km1 = MAX(k-1,1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
179 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = 0.25 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
180 |
DIAGNOSTICS_FILL_STATE |
& *(vVel(i,j,km1,bi,bj)+vVel(i,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
181 |
DIAGNOSTICS_FILL_STATE |
& *(wVel(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
182 |
DIAGNOSTICS_FILL_STATE |
& +wVel(i, j ,k,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
197 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
200 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
201 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,k,bi,bj)+theta(i-1,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
213 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
216 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
217 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,k,bi,bj)+theta(i,j-1,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
229 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
230 |
DIAGNOSTICS_FILL_STATE |
km1 = MAX(k-1,1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
233 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
234 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,k,bi,bj)+theta(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
246 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
249 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
250 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,k,bi,bj)+salt(i-1,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
262 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
265 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
266 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,k,bi,bj)+salt(i,j-1,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
278 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
279 |
DIAGNOSTICS_FILL_STATE |
km1 = MAX(k-1,1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
282 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
283 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,k,bi,bj)+salt(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
295 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
298 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
299 |
DIAGNOSTICS_FILL_STATE |
& *0.5 _d 0*(totPhiHyd(i,j,k,bi,bj)+totPhiHyd(i-1,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
311 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
314 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)*hFacS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
315 |
DIAGNOSTICS_FILL_STATE |
& *0.5 _d 0*(totPhiHyd(i,j,k,bi,bj)+totPhiHyd(i,j-1,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
332 |
DIAGNOSTICS_FILL_STATE |
DO k = Nr,1,-1 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
335 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = tmp1k(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
336 |
DIAGNOSTICS_FILL_STATE |
& + (rF(k+1)-rC(k))*hFacC(i,j,k,bi,bj)*rkSign |
|
./pkg/diagnostics/diagnostics_fill_state.F |
340 |
DIAGNOSTICS_FILL_STATE |
& + drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
362 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
363 |
DIAGNOSTICS_FILL_STATE |
tmpFac = -86400. _d 0/dTtracerLev(k) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
366 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = tmpFac*theta(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
383 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
384 |
DIAGNOSTICS_FILL_STATE |
tmpFac = -86400. _d 0/dTtracerLev(k) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
387 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = tmpFac*salt(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
419 |
DIAGNOSTICS_FILL_STATE |
DO k = 1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
420 |
DIAGNOSTICS_FILL_STATE |
dummy1 = theta(i,j,k,bi,bj) * ((rC(k)/100.)/1000.)**kappa |
|
./pkg/diagnostics/diagnostics_fill_state.F |
421 |
DIAGNOSTICS_FILL_STATE |
dummy2 = rC(k) / 100. |
|
./pkg/diagnostics/diagnostics_fill_state.F |
423 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = hFacC(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
424 |
DIAGNOSTICS_FILL_STATE |
& *salt(i,j,k,bi,bj)*100. / dummy3 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
493 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
496 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = salt(i,j,k,bi,bj)-35. _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
512 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
515 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
516 |
DIAGNOSTICS_FILL_STATE |
& = uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
528 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
531 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
532 |
DIAGNOSTICS_FILL_STATE |
& = vVel(i,j,k,bi,bj)*hFacS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
546 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
549 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
550 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,k,bi,bj)+theta(i-1,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
551 |
DIAGNOSTICS_FILL_STATE |
& * hFacW(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
563 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
566 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
567 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,k,bi,bj)+theta(i,j-1,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
568 |
DIAGNOSTICS_FILL_STATE |
& * hFacS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
580 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
581 |
DIAGNOSTICS_FILL_STATE |
km1 = MAX(k-1,1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
584 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
585 |
DIAGNOSTICS_FILL_STATE |
& *(theta(i,j,k,bi,bj)+theta(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
597 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
600 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
601 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,k,bi,bj)+salt(i-1,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
602 |
DIAGNOSTICS_FILL_STATE |
& * hFacW(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
614 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
617 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
618 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,k,bi,bj)+salt(i,j-1,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
619 |
DIAGNOSTICS_FILL_STATE |
& * hFacS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
61 |
DIAGNOSTICS_FILL_STATE |
INTEGER i,j,k,bi,bj |
|
./pkg/diagnostics/diagnostics_fill_state.F |
631 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
632 |
DIAGNOSTICS_FILL_STATE |
km1 = MAX(k-1,1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
635 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
636 |
DIAGNOSTICS_FILL_STATE |
& *(salt(i,j,k,bi,bj)+salt(i,j,km1,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
666 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
667 |
DIAGNOSTICS_FILL_STATE |
tmpFac = 86400. _d 0/dTtracerLev(k) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
670 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = tmpFac*theta(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
687 |
DIAGNOSTICS_FILL_STATE |
DO k=1,Nr |
|
./pkg/diagnostics/diagnostics_fill_state.F |
688 |
DIAGNOSTICS_FILL_STATE |
tmpFac = 86400. _d 0/dTtracerLev(k) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
691 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = tmpFac*salt(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
175 |
DIAGNOSTICS_FRACT_FILL |
DO k=1,diagSt_nbActv(l) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
176 |
DIAGNOSTICS_FRACT_FILL |
IF ( iSdiag(k,l).EQ.-iSp ) THEN |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
79 |
DIAGNOSTICS_FRACT_FILL |
INTEGER m, n, j, k, l, bi, bj |
|
./pkg/diagnostics/diagnostics_init_varia.F |
30 |
DIAGNOSTICS_INIT_VARIA |
INTEGER i,j,k,bi,bj |
|
./pkg/diagnostics/diagnostics_init_varia.F |
43 |
DIAGNOSTICS_INIT_VARIA |
DO k = 1,numDiags |
|
./pkg/diagnostics/diagnostics_init_varia.F |
46 |
DIAGNOSTICS_INIT_VARIA |
qdiag(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diagnostics_init_varia.F |
50 |
DIAGNOSTICS_INIT_VARIA |
ndiag(k,bi,bj) = 0 |
|
./pkg/diagnostics/diagnostics_init_varia.F |
52 |
DIAGNOSTICS_INIT_VARIA |
DO k = 1,numLists |
|
./pkg/diagnostics/diagnostics_init_varia.F |
54 |
DIAGNOSTICS_INIT_VARIA |
pdiag(k,bi,bj) = 0 |
|
./pkg/diagnostics/diagnostics_init_varia.F |
62 |
DIAGNOSTICS_INIT_VARIA |
DO k = 1,diagSt_size |
|
./pkg/diagnostics/diagnostics_init_varia.F |
65 |
DIAGNOSTICS_INIT_VARIA |
qSdiag(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
135 |
DIAGNOSTICS_INTERP_VERT |
DO k = 1,kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
138 |
DIAGNOSTICS_INTERP_VERT |
qtmp2(i,j,k,bi,bj) = rC(k) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
159 |
DIAGNOSTICS_INTERP_VERT |
DO k = 1,kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
162 |
DIAGNOSTICS_INTERP_VERT |
qinp(i,j,k) = qtmp1(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
163 |
DIAGNOSTICS_INTERP_VERT |
pkz(i,j,k) = qtmp2(i,j,k,bi,bj)**kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
168 |
DIAGNOSTICS_INTERP_VERT |
DO k = 1,kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
170 |
DIAGNOSTICS_INTERP_VERT |
kLev = kdiag(ndId)-k+1 |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
176 |
DIAGNOSTICS_INTERP_VERT |
qinp(i,j,k)= qtmp1(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
178 |
DIAGNOSTICS_INTERP_VERT |
qinp(i,j,k)= undefRL |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
180 |
DIAGNOSTICS_INTERP_VERT |
pkz(i,j,k) = qtmp2(i,j,kLev,bi,bj)**kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
187 |
DIAGNOSTICS_INTERP_VERT |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
188 |
DIAGNOSTICS_INTERP_VERT |
pk = levs(k,listId)**kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
197 |
DIAGNOSTICS_INTERP_VERT |
qtmp1(i,j,k,bi,bj) = 0. |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
199 |
DIAGNOSTICS_INTERP_VERT |
qtmp1(i,j,k,bi,bj) = qprs(i,j) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
66 |
DIAGNOSTICS_INTERP_VERT |
INTEGER i, j, k |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
254 |
DIAGNOSTICS_MNC_OUT |
INTEGER i, j, k |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
365 |
DIAGNOSTICS_MNC_OUT |
DO k = 1,nLevOutp |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
366 |
DIAGNOSTICS_MNC_OUT |
klev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
371 |
DIAGNOSTICS_MNC_OUT |
& qtmp(i,j,k,bi,bj) = misValLoc |
|
./pkg/diagnostics/diagnostics_out.F |
244 |
DIAGNOSTICS_OUT |
DO k = 1,nLevOutp |
|
./pkg/diagnostics/diagnostics_out.F |
247 |
DIAGNOSTICS_OUT |
qtmp1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diagnostics_out.F |
300 |
DIAGNOSTICS_OUT |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
301 |
DIAGNOSTICS_OUT |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_out.F |
304 |
DIAGNOSTICS_OUT |
O qtmp1(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/diagnostics/diagnostics_out.F |
312 |
DIAGNOSTICS_OUT |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
313 |
DIAGNOSTICS_OUT |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_out.F |
316 |
DIAGNOSTICS_OUT |
O qtmp2(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/diagnostics/diagnostics_out.F |
65 |
DIAGNOSTICS_OUT |
INTEGER i, j, k, lm |
|
./pkg/diagnostics/diagnostics_readparms.F |
127 |
DIAGNOSTICS_READPARMS |
DO k=1,LEN(blkFilName) |
|
./pkg/diagnostics/diagnostics_readparms.F |
128 |
DIAGNOSTICS_READPARMS |
blkFilName(k:k) = ' ' |
|
./pkg/diagnostics/diagnostics_readparms.F |
145 |
DIAGNOSTICS_READPARMS |
DO k = 1,kdimLoc |
|
./pkg/diagnostics/diagnostics_readparms.F |
146 |
DIAGNOSTICS_READPARMS |
levels(k,l) = UNSET_RL |
|
./pkg/diagnostics/diagnostics_readparms.F |
175 |
DIAGNOSTICS_READPARMS |
DO k = 1,rdimLoc |
|
./pkg/diagnostics/diagnostics_readparms.F |
176 |
DIAGNOSTICS_READPARMS |
set_regMask(k) = 0 |
|
./pkg/diagnostics/diagnostics_readparms.F |
177 |
DIAGNOSTICS_READPARMS |
val_regMask(k) = 0. |
|
./pkg/diagnostics/diagnostics_readparms.F |
183 |
DIAGNOSTICS_READPARMS |
DO k = 1,rdimLoc |
|
./pkg/diagnostics/diagnostics_readparms.F |
184 |
DIAGNOSTICS_READPARMS |
stat_region(k,l) = UNSET_I |
|
./pkg/diagnostics/diagnostics_readparms.F |
247 |
DIAGNOSTICS_READPARMS |
DO k = 1,numLevels |
|
./pkg/diagnostics/diagnostics_readparms.F |
248 |
DIAGNOSTICS_READPARMS |
levs(k,n) = 0 |
|
./pkg/diagnostics/diagnostics_readparms.F |
325 |
DIAGNOSTICS_READPARMS |
DO k=1,kdimLoc |
|
./pkg/diagnostics/diagnostics_readparms.F |
326 |
DIAGNOSTICS_READPARMS |
IF ( levels(k,l).NE.UNSET_RL .AND. |
|
./pkg/diagnostics/diagnostics_readparms.F |
329 |
DIAGNOSTICS_READPARMS |
levs(nlevels(n),n) = levels(k,l) |
|
./pkg/diagnostics/diagnostics_readparms.F |
330 |
DIAGNOSTICS_READPARMS |
ELSEIF ( levels(k,l).NE.UNSET_RL ) THEN |
|
./pkg/diagnostics/diagnostics_readparms.F |
335 |
DIAGNOSTICS_READPARMS |
& 'when trying to add level(k=', k, ' )=', levels(k,l) |
|
./pkg/diagnostics/diagnostics_readparms.F |
417 |
DIAGNOSTICS_READPARMS |
DO k = 1,rdimLoc |
|
./pkg/diagnostics/diagnostics_readparms.F |
418 |
DIAGNOSTICS_READPARMS |
IF ( set_regMask(k).NE.0 .OR. val_regMask(k).NE.0. ) THEN |
|
./pkg/diagnostics/diagnostics_readparms.F |
421 |
DIAGNOSTICS_READPARMS |
diagSt_kRegMsk(j) = set_regMask(k) |
|
./pkg/diagnostics/diagnostics_readparms.F |
422 |
DIAGNOSTICS_READPARMS |
diagSt_vRegMsk(j) = val_regMask(k) |
|
./pkg/diagnostics/diagnostics_readparms.F |
449 |
DIAGNOSTICS_READPARMS |
DO k=1,rdimLoc |
|
./pkg/diagnostics/diagnostics_readparms.F |
450 |
DIAGNOSTICS_READPARMS |
j = stat_region(k,l) |
|
./pkg/diagnostics/diagnostics_readparms.F |
588 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A,1P10E10.3)')' interp: ', (levs(k,n),k=l,m) |
|
./pkg/diagnostics/diagnostics_readparms.F |
596 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A,20F5.0)') suffix, (levs(k,n),k=l,m) |
|
./pkg/diagnostics/diagnostics_readparms.F |
88 |
DIAGNOSTICS_READPARMS |
INTEGER j,k,l,n,m,nf |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
133 |
DIAGNOSTICS_SCALE_FILL |
DO k=1,diagSt_nbActv(l) |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
134 |
DIAGNOSTICS_SCALE_FILL |
IF ( iSdiag(k,l).EQ.-iSp ) THEN |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
69 |
DIAGNOSTICS_SCALE_FILL |
INTEGER m, n, j, k, l, bi, bj |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
133 |
DIAGNOSTICS_SCALE_FILL_RS |
DO k=1,diagSt_nbActv(l) |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
134 |
DIAGNOSTICS_SCALE_FILL_RS |
IF ( iSdiag(k,l).EQ.-iSp ) THEN |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
69 |
DIAGNOSTICS_SCALE_FILL_RS |
INTEGER m, n, j, k, l, bi, bj |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
198 |
DIAGNOSTICS_SET_POINTERS |
k = SIGN(1,jdiag(md,ld)) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
204 |
DIAGNOSTICS_SET_POINTERS |
IF ( mdiag(md,ld).EQ.0 .AND. (k*jdiag(i,j)).EQ.mate ) THEN |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
254 |
DIAGNOSTICS_SET_POINTERS |
DO k=1,kLev |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
255 |
DIAGNOSTICS_SET_POINTERS |
levs(k,ld) = k |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
265 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(A,20F5.0)') suffix, (levs(k,ld),k=k1,k2) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
272 |
DIAGNOSTICS_SET_POINTERS |
DO k=1,nlevels(ld) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
273 |
DIAGNOSTICS_SET_POINTERS |
kLev = MAX(NINT(levs(k,ld)),kLev) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
38 |
DIAGNOSTICS_SET_POINTERS |
INTEGER i, j, k, k1, k2, kLev |
|
./pkg/diagnostics/diagnostics_setdiag.F |
123 |
DIAGNOSTICS_SETDIAG |
k = nActive(listId) + 1 |
|
./pkg/diagnostics/diagnostics_setdiag.F |
124 |
DIAGNOSTICS_SETDIAG |
IF ( k.LE.numperList ) THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
125 |
DIAGNOSTICS_SETDIAG |
jdiag(k,listId) = nn |
|
./pkg/diagnostics/diagnostics_setdiag.F |
126 |
DIAGNOSTICS_SETDIAG |
idiag(k,listId) = ndiagmx + 1 |
|
./pkg/diagnostics/diagnostics_setdiag.F |
127 |
DIAGNOSTICS_SETDIAG |
flds (k,listId) = cdiag(nn) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
129 |
DIAGNOSTICS_SETDIAG |
nActive(listId) = k |
|
./pkg/diagnostics/diagnostics_setdiag.F |
175 |
DIAGNOSTICS_SETDIAG |
DO k=1,MIN(nActive(l),numperList) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
176 |
DIAGNOSTICS_SETDIAG |
IF (flagM .AND. jdiag(k,l).GT.0) THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
177 |
DIAGNOSTICS_SETDIAG |
IF (cdiag(mate).EQ.cdiag(jdiag(k,l)) ) THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
180 |
DIAGNOSTICS_SETDIAG |
mdiag(mId,listId) = ABS(idiag(k,l)) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
190 |
DIAGNOSTICS_SETDIAG |
k = nActive(listId) + 1 |
|
./pkg/diagnostics/diagnostics_setdiag.F |
191 |
DIAGNOSTICS_SETDIAG |
IF ( k.LE.numperList ) THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
193 |
DIAGNOSTICS_SETDIAG |
jdiag(k,listId) = mate |
|
./pkg/diagnostics/diagnostics_setdiag.F |
194 |
DIAGNOSTICS_SETDIAG |
idiag(k,listId) = ndiagmx + 1 |
|
./pkg/diagnostics/diagnostics_setdiag.F |
195 |
DIAGNOSTICS_SETDIAG |
flds (k,listId) = cdiag(mate) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
197 |
DIAGNOSTICS_SETDIAG |
nActive(listId) = k |
|
./pkg/diagnostics/diagnostics_setdiag.F |
49 |
DIAGNOSTICS_SETDIAG |
INTEGER nn, k, l, no_hFac |
|
./pkg/diagnostics/diagnostics_setdiag.F |
91 |
DIAGNOSTICS_SETDIAG |
DO k=1,MIN(nActive(l),numperList) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
92 |
DIAGNOSTICS_SETDIAG |
IF ( flagD .AND. no_hFac*jdiag(k,l).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
93 |
DIAGNOSTICS_SETDIAG |
IF ( cdiag(nn).EQ.cdiag(ABS(jdiag(k,l))) ) THEN |
|
./pkg/diagnostics/diagnostics_setdiag.F |
96 |
DIAGNOSTICS_SETDIAG |
idiag(mId,listId) = -ABS(idiag(k,l)) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
97 |
DIAGNOSTICS_SETDIAG |
mdiag(mId,listId) = mdiag(k,l) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
104 |
DIAGNOSTICS_SUM_LEVELS |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
105 |
DIAGNOSTICS_SUM_LEVELS |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
128 |
DIAGNOSTICS_SUM_LEVELS |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
129 |
DIAGNOSTICS_SUM_LEVELS |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
144 |
DIAGNOSTICS_SUM_LEVELS |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
145 |
DIAGNOSTICS_SUM_LEVELS |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
160 |
DIAGNOSTICS_SUM_LEVELS |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
161 |
DIAGNOSTICS_SUM_LEVELS |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
176 |
DIAGNOSTICS_SUM_LEVELS |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
177 |
DIAGNOSTICS_SUM_LEVELS |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
57 |
DIAGNOSTICS_SUM_LEVELS |
INTEGER i, j, k |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
86 |
DIAGNOSTICS_SUM_LEVELS |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
87 |
DIAGNOSTICS_SUM_LEVELS |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_summary.F |
103 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A,1P10E10.3)')' interp:', (levs(k,ld),k=k1,k2) |
|
./pkg/diagnostics/diagnostics_summary.F |
108 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A,25I4)')' levels:',(NINT(levs(k,ld)),k=k1,k2) |
|
./pkg/diagnostics/diagnostics_summary.F |
34 |
DIAGNOSTICS_SUMMARY |
INTEGER j, k, k1, k2, l |
|
./pkg/diagnostics/diagnostics_utils.F |
139 |
DIAGNOSTICS_GET_DIAG |
INTEGER k, kd, km, kLev |
|
./pkg/diagnostics/diagnostics_utils.F |
149 |
DIAGNOSTICS_GET_DIAG |
DO k = 1,kLev |
|
./pkg/diagnostics/diagnostics_utils.F |
150 |
DIAGNOSTICS_GET_DIAG |
kd = k |
|
./pkg/diagnostics/diagnostics_utils.F |
164 |
DIAGNOSTICS_GET_DIAG |
qtmp(i,j,k) = qdiag(i,j,ipnt,bi,bj)*factor |
|
./pkg/diagnostics/diagnostics_utils.F |
166 |
DIAGNOSTICS_GET_DIAG |
qtmp(i,j,k) = undefRL |
|
./pkg/diagnostics/diagnostics_utils.F |
173 |
DIAGNOSTICS_GET_DIAG |
qtmp(i,j,k) = qdiag(i,j,ipnt,bi,bj)*factor |
|
./pkg/diagnostics/diagnostics_utils.F |
187 |
DIAGNOSTICS_GET_DIAG |
qtmp(i,j,k) = qdiag(i,j,ipnt,bi,bj) |
|
./pkg/diagnostics/diagnostics_utils.F |
190 |
DIAGNOSTICS_GET_DIAG |
qtmp(i,j,k) = undefRL |
|
./pkg/diagnostics/diagstats_ascii_out.F |
42 |
DIAGSTATS_ASCII_OUT |
INTEGER i, j, k, kLev, nUnit |
|
./pkg/diagnostics/diagstats_ascii_out.F |
70 |
DIAGSTATS_ASCII_OUT |
DO k=0,kLev |
|
./pkg/diagnostics/diagstats_ascii_out.F |
78 |
DIAGSTATS_ASCII_OUT |
& k, (statGlob(i,k,j),i=1,nStats), statGlob(0,k,j) |
|
./pkg/diagnostics/diagstats_clear.F |
70 |
DIAGSTATS_CLRDIAG |
INTEGER i,j,k |
|
./pkg/diagnostics/diagstats_clear.F |
78 |
DIAGSTATS_CLRDIAG |
DO k = iSp,iSp+kdiag(ndId)-1 |
|
./pkg/diagnostics/diagstats_clear.F |
81 |
DIAGSTATS_CLRDIAG |
qSdiag(i,j,k,bi,bj) = 0. |
|
./pkg/diagnostics/diagstats_fill.F |
106 |
DIAGSTATS_FILL |
INTEGER iRun, jRun, k, bi, bj |
|
./pkg/diagnostics/diagstats_fill.F |
222 |
DIAGSTATS_FILL |
DO k = kFirst,kLast |
|
./pkg/diagnostics/diagstats_fill.F |
223 |
DIAGSTATS_FILL |
kd = kd0 + ksgn*k |
|
./pkg/diagnostics/diagstats_fill.F |
224 |
DIAGSTATS_FILL |
km = km0 + ksgn*k |
|
./pkg/diagnostics/diagstats_fill.F |
230 |
DIAGSTATS_FILL |
I iRun,jRun,k,bi,bj, |
|
./pkg/diagnostics/diagstats_fill.F |
239 |
DIAGSTATS_FILL |
DO k = kFirst,kLast |
|
./pkg/diagnostics/diagstats_fill.F |
240 |
DIAGSTATS_FILL |
kd = kd0 + ksgn*k |
|
./pkg/diagnostics/diagstats_fill.F |
241 |
DIAGSTATS_FILL |
km = km0 + ksgn*k |
|
./pkg/diagnostics/diagstats_fill.F |
247 |
DIAGSTATS_FILL |
I iRun,jRun,k,bi,bj, |
|
./pkg/diagnostics/diagstats_fill.F |
258 |
DIAGSTATS_FILL |
DO k = kFirst,kLast |
|
./pkg/diagnostics/diagstats_fill.F |
259 |
DIAGSTATS_FILL |
kd = kd0 + ksgn*k |
|
./pkg/diagnostics/diagstats_fill.F |
260 |
DIAGSTATS_FILL |
km = km0 + ksgn*k |
|
./pkg/diagnostics/diagstats_fill.F |
266 |
DIAGSTATS_FILL |
I iRun,jRun,k,bi,bj, myThid ) |
|
./pkg/diagnostics/diagstats_fill.F |
281 |
DIAGSTATS_FILL |
DO k = kFirst,kLast |
|
./pkg/diagnostics/diagstats_fill.F |
282 |
DIAGSTATS_FILL |
kd = kd0 + ksgn*k |
|
./pkg/diagnostics/diagstats_fill.F |
283 |
DIAGSTATS_FILL |
km = km0 + ksgn*k |
|
./pkg/diagnostics/diagstats_fill.F |
289 |
DIAGSTATS_FILL |
I iRun,jRun,k,bi,bj, myThid ) |
|
./pkg/diagnostics/diagstats_global.F |
111 |
DIAGSTATS_GLOBAL |
DO k=1,klev |
|
./pkg/diagnostics/diagstats_global.F |
112 |
DIAGSTATS_GLOBAL |
tmpVol = qtmp1(0,k) |
|
./pkg/diagnostics/diagstats_global.F |
114 |
DIAGSTATS_GLOBAL |
_GLOBAL_SUM_RL(qtmp1(i,k),myThid) |
|
./pkg/diagnostics/diagstats_global.F |
116 |
DIAGSTATS_GLOBAL |
IF ( qtmp1(0,k).GT.0. .AND. tmpVol.LE.0. ) THEN |
|
./pkg/diagnostics/diagstats_global.F |
118 |
DIAGSTATS_GLOBAL |
tmpMax = qtmp1(1,k)/qtmp1(0,k) |
|
./pkg/diagnostics/diagstats_global.F |
121 |
DIAGSTATS_GLOBAL |
tmpMin = -qtmp1(im,k) |
|
./pkg/diagnostics/diagstats_global.F |
122 |
DIAGSTATS_GLOBAL |
tmpMax = qtmp1(ix,k) |
|
./pkg/diagnostics/diagstats_global.F |
126 |
DIAGSTATS_GLOBAL |
qtmp1(im,k) = -tmpMin |
|
./pkg/diagnostics/diagstats_global.F |
127 |
DIAGSTATS_GLOBAL |
qtmp1(ix,k) = tmpMax |
|
./pkg/diagnostics/diagstats_global.F |
130 |
DIAGSTATS_GLOBAL |
DO k=1,kMlev |
|
./pkg/diagnostics/diagstats_global.F |
132 |
DIAGSTATS_GLOBAL |
_GLOBAL_SUM_RL(qtmp2(i,k),myThid) |
|
./pkg/diagnostics/diagstats_global.F |
138 |
DIAGSTATS_GLOBAL |
DO k=1,klev |
|
./pkg/diagnostics/diagstats_global.F |
139 |
DIAGSTATS_GLOBAL |
IF ( qtmp1(0,k).GT.0. ) THEN |
|
./pkg/diagnostics/diagstats_global.F |
142 |
DIAGSTATS_GLOBAL |
qtmp1(i,0) = qtmp1(i,k) |
|
./pkg/diagnostics/diagstats_global.F |
146 |
DIAGSTATS_GLOBAL |
qtmp1(i,0) = qtmp1(i,0) + qtmp1(i,k) |
|
./pkg/diagnostics/diagstats_global.F |
148 |
DIAGSTATS_GLOBAL |
qtmp1(im,0) = MIN(qtmp1(im,0),qtmp1(im,k)) |
|
./pkg/diagnostics/diagstats_global.F |
149 |
DIAGSTATS_GLOBAL |
qtmp1(ix,0) = MAX(qtmp1(ix,0),qtmp1(ix,k)) |
|
./pkg/diagnostics/diagstats_global.F |
154 |
DIAGSTATS_GLOBAL |
DO k=1,kMlev |
|
./pkg/diagnostics/diagstats_global.F |
155 |
DIAGSTATS_GLOBAL |
IF ( qtmp2(0,k).GT.0. ) THEN |
|
./pkg/diagnostics/diagstats_global.F |
158 |
DIAGSTATS_GLOBAL |
qtmp2(i,0) = qtmp2(i,k) |
|
./pkg/diagnostics/diagstats_global.F |
162 |
DIAGSTATS_GLOBAL |
qtmp2(i,0) = qtmp2(i,0) + qtmp2(i,k) |
|
./pkg/diagnostics/diagstats_global.F |
172 |
DIAGSTATS_GLOBAL |
DO k=0,klev |
|
./pkg/diagnostics/diagstats_global.F |
173 |
DIAGSTATS_GLOBAL |
IF ( qtmp1(0,k).LE.0. ) THEN |
|
./pkg/diagnostics/diagstats_global.F |
175 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = undef |
|
./pkg/diagnostics/diagstats_global.F |
179 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = qtmp1(i,k) / qtmp1(0,k) |
|
./pkg/diagnostics/diagstats_global.F |
182 |
DIAGSTATS_GLOBAL |
qtmp1(iv,k) = qtmp1(iv,k) - qtmp1(1,k)*qtmp1(1,k) |
|
./pkg/diagnostics/diagstats_global.F |
184 |
DIAGSTATS_GLOBAL |
IF (qtmp1(iv,k).GT.0.) qtmp1(iv,k) = SQRT(qtmp1(iv,k)) |
|
./pkg/diagnostics/diagstats_global.F |
191 |
DIAGSTATS_GLOBAL |
DO k=0,klev |
|
./pkg/diagnostics/diagstats_global.F |
192 |
DIAGSTATS_GLOBAL |
kCnt = min(k,kMlev) |
|
./pkg/diagnostics/diagstats_global.F |
195 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = undef |
|
./pkg/diagnostics/diagstats_global.F |
199 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = undef |
|
./pkg/diagnostics/diagstats_global.F |
203 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = qtmp1(i,k) / qtmp2(1,kCnt) |
|
./pkg/diagnostics/diagstats_global.F |
207 |
DIAGSTATS_GLOBAL |
qtmp1(iv,k) = qtmp1(iv,k) - qtmp1(1,k)*qtmp1(1,k) |
|
./pkg/diagnostics/diagstats_global.F |
209 |
DIAGSTATS_GLOBAL |
IF (qtmp1(iv,k).GT.0.) qtmp1(iv,k) = SQRT(qtmp1(iv,k)) |
|
./pkg/diagnostics/diagstats_global.F |
50 |
DIAGSTATS_GLOBAL |
INTEGER i, k, kd, kCnt, klev, kMlev |
|
./pkg/diagnostics/diagstats_global.F |
56 |
DIAGSTATS_GLOBAL |
DO k=0,nLev |
|
./pkg/diagnostics/diagstats_global.F |
58 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = 0. |
|
./pkg/diagnostics/diagstats_global.F |
59 |
DIAGSTATS_GLOBAL |
qtmp2(i,k) = 0. |
|
./pkg/diagnostics/diagstats_global.F |
73 |
DIAGSTATS_GLOBAL |
DO k=1,klev |
|
./pkg/diagnostics/diagstats_global.F |
74 |
DIAGSTATS_GLOBAL |
kd = iSp + k - 1 |
|
./pkg/diagnostics/diagstats_global.F |
76 |
DIAGSTATS_GLOBAL |
IF ( qtmp1(0,k).LE.0. ) THEN |
|
./pkg/diagnostics/diagstats_global.F |
78 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = qSdiag(i,jReg,kd,bi,bj) |
|
./pkg/diagnostics/diagstats_global.F |
82 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = qtmp1(i,k) + qSdiag(i,jReg,kd,bi,bj) |
|
./pkg/diagnostics/diagstats_global.F |
84 |
DIAGSTATS_GLOBAL |
qtmp1(im,k) = MIN( qtmp1(im,k),qSdiag(im,jReg,kd,bi,bj) ) |
|
./pkg/diagnostics/diagstats_global.F |
85 |
DIAGSTATS_GLOBAL |
qtmp1(ix,k) = MAX( qtmp1(ix,k),qSdiag(ix,jReg,kd,bi,bj) ) |
|
./pkg/diagnostics/diagstats_global.F |
90 |
DIAGSTATS_GLOBAL |
DO k=1,kMlev |
|
./pkg/diagnostics/diagstats_global.F |
91 |
DIAGSTATS_GLOBAL |
kd = iSm + k - 1 |
|
./pkg/diagnostics/diagstats_global.F |
93 |
DIAGSTATS_GLOBAL |
IF ( qtmp2(0,k).LE.0. ) THEN |
|
./pkg/diagnostics/diagstats_global.F |
95 |
DIAGSTATS_GLOBAL |
qtmp2(i,k) = qSdiag(i,jReg,kd,bi,bj) |
|
./pkg/diagnostics/diagstats_global.F |
99 |
DIAGSTATS_GLOBAL |
qtmp2(i,k) = qtmp2(i,k) + qSdiag(i,jReg,kd,bi,bj) |
|
./pkg/diagnostics/diagstats_local.F |
122 |
DIAGSTATS_LOCAL |
drLoc = drF(k) |
|
./pkg/diagnostics/diagstats_local.F |
123 |
DIAGSTATS_LOCAL |
IF ( parsFld(9:9).EQ.'L') drLoc = drC(k) |
|
./pkg/diagnostics/diagstats_local.F |
124 |
DIAGSTATS_LOCAL |
IF ( parsFld(9:9).EQ.'U') drLoc = drC(MIN(k+1,Nr)) |
|
./pkg/diagnostics/diagstats_local.F |
136 |
DIAGSTATS_LOCAL |
I hFacW(1-OLx,1-OLy,k,bi,bj), rAw(1-OLx,1-OLy,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
148 |
DIAGSTATS_LOCAL |
I hFacS(1-OLx,1-OLy,k,bi,bj), rAs(1-OLx,1-OLy,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
159 |
DIAGSTATS_LOCAL |
I hFacC(1-OLx,1-OLy,k,bi,bj), rA(1-OLx,1-OLy,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
15 |
DIAGSTATS_LOCAL |
I k,bi,bj, bibjFlg, region2fill, |
|
./pkg/diagnostics/diagstats_local.F |
175 |
DIAGSTATS_LOCAL |
I k,bi,bj, parsFld, myThid ) |
|
./pkg/diagnostics/diagstats_local.F |
188 |
DIAGSTATS_LOCAL |
I k,bi,bj, parsFld, myThid ) |
|
./pkg/diagnostics/diagstats_local.F |
71 |
DIAGSTATS_LOCAL |
INTEGER k, bi, bj, bibjFlg |
|
./pkg/diagnostics/diagstats_mnc_out.F |
301 |
DIAGSTATS_MNC_OUT |
DO k = 1,kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
302 |
DIAGSTATS_MNC_OUT |
stmp(k,j+1) = statGlob(ist,k,j) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
55 |
DIAGSTATS_MNC_OUT |
INTEGER i, j, k |
|
./pkg/diagnostics/diagstats_others_calc.F |
144 |
DIAGSTATS_G_CALC |
I k,bi,bj, parsFld, myThid ) |
|
./pkg/diagnostics/diagstats_others_calc.F |
200 |
DIAGSTATS_G_CALC |
INTEGER k, bi, bj |
|
./pkg/diagnostics/diagstats_others_calc.F |
214 |
DIAGSTATS_G_CALC |
kl = MIN(k,land_nLev) |
|
./pkg/diagnostics/diagstats_others_calc.F |
21 |
DIAGSTATS_LM_CALC |
I k,bi,bj, parsFld, myThid ) |
|
./pkg/diagnostics/diagstats_others_calc.F |
75 |
DIAGSTATS_LM_CALC |
INTEGER k, bi, bj |
|
./pkg/diagnostics/diagstats_others_calc.F |
93 |
DIAGSTATS_LM_CALC |
kl = 1 + Nrphys - k |
|
./pkg/diagnostics/diagstats_set_pointers.F |
39 |
DIAGSTATS_SET_POINTERS |
INTEGER j, k, l |
|
./pkg/diagnostics/diagstats_set_pointers.F |
89 |
DIAGSTATS_SET_POINTERS |
DO k=1,diagSt_nbActv(l) |
|
./pkg/diagnostics/diagstats_set_pointers.F |
90 |
DIAGSTATS_SET_POINTERS |
IF ( diagSt_Flds(k,l).EQ.cdiag(-mate) ) inList=.TRUE. |
|
./pkg/diagnostics/diagstats_set_regions.F |
101 |
DIAGSTATS_SET_REGIONS |
& ' DIAGSTATS_SET_REGIONS: set k=',k,' <= done' |
|
./pkg/diagnostics/diagstats_set_regions.F |
108 |
DIAGSTATS_SET_REGIONS |
diagSt_regMask(i,j,k,bi,bj) = tmpVar(i,j,bi,bj) |
|
./pkg/diagnostics/diagstats_set_regions.F |
43 |
DIAGSTATS_SET_REGIONS |
INTEGER k, nbReg |
|
./pkg/diagnostics/diagstats_set_regions.F |
57 |
DIAGSTATS_SET_REGIONS |
DO k=1,sizRegMsk |
|
./pkg/diagnostics/diagstats_set_regions.F |
60 |
DIAGSTATS_SET_REGIONS |
diagSt_regMask(i,j,k,bi,bj) = 0. |
|
./pkg/diagnostics/diagstats_set_regions.F |
94 |
DIAGSTATS_SET_REGIONS |
DO k=1,nSetRegMskFile |
|
./pkg/diagnostics/diagstats_set_regions.F |
97 |
DIAGSTATS_SET_REGIONS |
& ' DIAGSTATS_SET_REGIONS: reading set k=',k |
|
./pkg/diagnostics/diagstats_set_regions.F |
98 |
DIAGSTATS_SET_REGIONS |
CALL READ_REC_XY_RS( diagSt_regMaskFile, tmpVar, k, |
|
./pkg/diagnostics/diagstats_setdiag.F |
114 |
DIAGSTATS_SETDIAG |
DO k=1,MIN(diagSt_nbActv(l),numperlist) |
|
./pkg/diagnostics/diagstats_setdiag.F |
115 |
DIAGSTATS_SETDIAG |
IF (flag .AND. jSdiag(k,l).GT.0) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
116 |
DIAGSTATS_SETDIAG |
IF (cdiag(mate).EQ.cdiag(jSdiag(k,l)) ) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
119 |
DIAGSTATS_SETDIAG |
mSdiag(mId,listId) = ABS(iSdiag(k,l)) |
|
./pkg/diagnostics/diagstats_setdiag.F |
49 |
DIAGSTATS_SETDIAG |
INTEGER k, l |
|
./pkg/diagnostics/diagstats_setdiag.F |
69 |
DIAGSTATS_SETDIAG |
DO k=1,MIN(diagSt_nbActv(l),numperlist) |
|
./pkg/diagnostics/diagstats_setdiag.F |
70 |
DIAGSTATS_SETDIAG |
IF (flag .AND. jSdiag(k,l).GT.0) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
71 |
DIAGSTATS_SETDIAG |
IF (cdiag(ndId).EQ.cdiag(jSdiag(k,l)) ) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
74 |
DIAGSTATS_SETDIAG |
iSdiag(mId,listId) = -ABS(iSdiag(k,l)) |
|
./pkg/diagnostics/diagstats_setdiag.F |
75 |
DIAGSTATS_SETDIAG |
mSdiag(mId,listId) = mSdiag(k,l) |
|
./pkg/dic/bio_export.F |
107 |
BIO_EXPORT |
atten = kall*drF(k)*hFacC(i,j,k,bi,bj)*.5 _d 0 |
|
./pkg/dic/bio_export.F |
108 |
BIO_EXPORT |
if (k.gt.1) atten = atten |
|
./pkg/dic/bio_export.F |
109 |
BIO_EXPORT |
& +( kall*drF(k-1)*hFacC(i,j,k-1,bi,bj)*.5 _d 0 ) |
|
./pkg/dic/bio_export.F |
119 |
BIO_EXPORT |
tmppo4=max(0. _d 0, PTR_PO4(i,j,k)) |
|
./pkg/dic/bio_export.F |
122 |
BIO_EXPORT |
tmppo4=PTR_PO4(i,j,k) |
|
./pkg/dic/bio_export.F |
127 |
BIO_EXPORT |
tmpfe=max(0. _d 0,PTR_FE(i,j,k)) |
|
./pkg/dic/bio_export.F |
129 |
BIO_EXPORT |
tmpfe=PTR_FE(i,j,k) |
|
./pkg/dic/bio_export.F |
148 |
BIO_EXPORT |
bioac(i,j,k)=alpha(i,j,bi,bj)* |
|
./pkg/dic/bio_export.F |
149 |
BIO_EXPORT |
& lit(i,j)/(lit(i,j)+lit0)*maskC(i,j,k,bi,bj)* |
|
./pkg/dic/bio_export.F |
57 |
BIO_EXPORT |
INTEGER i,j,k |
|
./pkg/dic/bio_export.F |
99 |
BIO_EXPORT |
DO k=1,nlev |
|
./pkg/dic/calcite_saturation.F |
109 |
CALCITE_SATURATION |
I theta(i,j,k,bi,bj),salt(i,j,k,bi,bj), |
|
./pkg/dic/calcite_saturation.F |
119 |
CALCITE_SATURATION |
I i,j,k,bi,bj,myIter,myThid ) |
|
./pkg/dic/calcite_saturation.F |
128 |
CALCITE_SATURATION |
omegaC(i,j,k,bi,bj) = calcium * carbonate / |
|
./pkg/dic/calcite_saturation.F |
156 |
CALCITE_SATURATION |
omegaC(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/dic/calcite_saturation.F |
51 |
CALCITE_SATURATION |
INTEGER I,J,k |
|
./pkg/dic/calcite_saturation.F |
73 |
CALCITE_SATURATION |
DO k=1,Nr |
|
./pkg/dic/calcite_saturation.F |
78 |
CALCITE_SATURATION |
I k,myThid) |
|
./pkg/dic/calcite_saturation.F |
84 |
CALCITE_SATURATION |
if ( hFacC(i,j,k,bi,bj) .gt. 0. _d 0 ) then |
|
./pkg/dic/calcite_saturation.F |
86 |
CALCITE_SATURATION |
calcium = 1.028 _d -2*salt(i,j,k,bi,bj)/35. _d 0 |
|
./pkg/dic/calcite_saturation.F |
90 |
CALCITE_SATURATION |
po4local = PTR_PO4(i,j,k) |
|
./pkg/dic/calcite_saturation.F |
91 |
CALCITE_SATURATION |
diclocal = PTR_DIC(i,j,k) |
|
./pkg/dic/calcite_saturation.F |
92 |
CALCITE_SATURATION |
alklocal = PTR_ALK(i,j,k) |
|
./pkg/dic/car_flux.F |
52 |
CAR_FLUX |
INTEGER I,J,k, ko, kop1 |
|
./pkg/dic/car_flux.F |
62 |
CAR_FLUX |
DO k=1,nlev |
|
./pkg/dic/car_flux.F |
66 |
CAR_FLUX |
IF (hFacC(i,j,k,bi,bj).GT.0. _d 0) THEN |
|
./pkg/dic/car_flux.F |
69 |
CAR_FLUX |
IF (k.EQ.Nr) THEN |
|
./pkg/dic/car_flux.F |
70 |
CAR_FLUX |
cflux(i,j,k)=cflux(i,j,k) + CAR_S(i,j,k) |
|
./pkg/dic/car_flux.F |
71 |
CAR_FLUX |
ELSEIF ( _hFacC(i,j,k+1,bi,bj).EQ.0. _d 0 ) THEN |
|
./pkg/dic/car_flux.F |
72 |
CAR_FLUX |
cflux(i,j,k)=cflux(i,j,k) + CAR_S(i,j,k) |
|
./pkg/dic/car_flux.F |
75 |
CAR_FLUX |
caexport(i,j) = CAR_S(i,j,k)*drF(k) * _hFacC(i,j,k,bi,bj) |
|
./pkg/dic/car_flux.F |
82 |
CAR_FLUX |
zbase=-rF(k+1) |
|
./pkg/dic/car_flux.F |
92 |
CAR_FLUX |
DO ko=k+1,Nr-1 |
|
./pkg/dic/car_flux_omega_top.F |
158 |
CAR_FLUX_OMEGA_TOP |
if (ko.eq.k+1) then |
|
./pkg/dic/car_flux_omega_top.F |
159 |
CAR_FLUX_OMEGA_TOP |
if (iflx.eq.1.and.omegaC(i,j,k,bi,bj) .gt. 1.d0) then |
|
./pkg/dic/car_flux_omega_top.F |
162 |
CAR_FLUX_OMEGA_TOP |
& +bioac(i,j,k)*(1.0-DOPfraction)* |
|
./pkg/dic/car_flux_omega_top.F |
164 |
CAR_FLUX_OMEGA_TOP |
& *drF(k)*hFacC(i,j,k,bi,bj)/ |
|
./pkg/dic/car_flux_omega_top.F |
168 |
CAR_FLUX_OMEGA_TOP |
cflux(i,j,k)=cflux(i,j,k) |
|
./pkg/dic/car_flux_omega_top.F |
169 |
CAR_FLUX_OMEGA_TOP |
& +bioac(i,j,k)*(1.0-DOPfraction)* |
|
./pkg/dic/car_flux_omega_top.F |
54 |
CAR_FLUX_OMEGA_TOP |
INTEGER I,J,k, ko |
|
./pkg/dic/car_flux_omega_top.F |
83 |
CAR_FLUX_OMEGA_TOP |
do k=1,nR |
|
./pkg/dic/car_flux_omega_top.F |
84 |
CAR_FLUX_OMEGA_TOP |
cflux(i,j,k)=0.d0 |
|
./pkg/dic/car_flux_omega_top.F |
86 |
CAR_FLUX_OMEGA_TOP |
DO k=1,nLev |
|
./pkg/dic/car_flux_omega_top.F |
87 |
CAR_FLUX_OMEGA_TOP |
if (hFacC(i,j,k,bi,bj).gt.0.d0) then |
|
./pkg/dic/car_flux_omega_top.F |
88 |
CAR_FLUX_OMEGA_TOP |
caexport(i,j)= R_CP*rain_ratio(i,j,bi,bj)*bioac(i,j,k)* |
|
./pkg/dic/car_flux_omega_top.F |
89 |
CAR_FLUX_OMEGA_TOP |
& (1.0-DOPfraction)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/dic/car_flux_omega_top.F |
92 |
CAR_FLUX_OMEGA_TOP |
Do ko=k+1,Nr |
|
./pkg/dic/car_flux_omega_top.F |
94 |
CAR_FLUX_OMEGA_TOP |
if (ko .eq. k+1) then |
|
./pkg/dic/carbon_chem.F |
29 |
CALC_PCO2 |
I i,j,k,bi,bj,myIter,myThid ) |
|
./pkg/dic/carbon_chem.F |
348 |
CALC_PCO2_APPROX |
I i,j,k,bi,bj,myIter,myThid ) |
|
./pkg/dic/carbon_chem.F |
391 |
CALC_PCO2_APPROX |
INTEGER i,j,k,bi,bj,myIter |
|
./pkg/dic/carbon_chem.F |
67 |
CALC_PCO2 |
INTEGER i,j,k,bi,bj,myIter |
|
./pkg/dic/carbon_chem.F |
817 |
CARBON_COEFFS_PRESSURE_DEP |
INTEGER k |
|
./pkg/dic/carbon_chem.F |
855 |
CARBON_COEFFS_PRESSURE_DEP |
do k = 1,Klevel |
|
./pkg/dic/carbon_chem.F |
856 |
CARBON_COEFFS_PRESSURE_DEP |
cdepth = bdepth + 0.5d0*drF(k) |
|
./pkg/dic/carbon_chem.F |
857 |
CARBON_COEFFS_PRESSURE_DEP |
bdepth = bdepth + drF(k) |
|
./pkg/dic/dic_atmos.F |
111 |
DIC_ATMOS |
DO k=1,Nr |
|
./pkg/dic/dic_atmos.F |
115 |
DIC_ATMOS |
& + ( pTracer(i,j,k,bi,bj,1) |
|
./pkg/dic/dic_atmos.F |
117 |
DIC_ATMOS |
& +R_cp*pTracer(i,j,k,bi,bj,4) |
|
./pkg/dic/dic_atmos.F |
120 |
DIC_ATMOS |
& *drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/dic/dic_atmos.F |
49 |
DIC_ATMOS |
INTEGER bi, bj, i,j,k |
|
./pkg/dic/dic_biotic_forcing.F |
103 |
DIC_BIOTIC_FORCING |
INTEGER i,j,k |
|
./pkg/dic/dic_biotic_forcing.F |
126 |
DIC_BIOTIC_FORCING |
DO k=1,Nr |
|
./pkg/dic/dic_biotic_forcing.F |
129 |
DIC_BIOTIC_FORCING |
RDOP(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
130 |
DIC_BIOTIC_FORCING |
GDIC(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
131 |
DIC_BIOTIC_FORCING |
GALK(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
132 |
DIC_BIOTIC_FORCING |
GPO4(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
133 |
DIC_BIOTIC_FORCING |
GDOP(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
134 |
DIC_BIOTIC_FORCING |
CAR(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
135 |
DIC_BIOTIC_FORCING |
BIOac(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
136 |
DIC_BIOTIC_FORCING |
pflux(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
137 |
DIC_BIOTIC_FORCING |
exportflux(i,j,k)=0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
138 |
DIC_BIOTIC_FORCING |
cflux(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
139 |
DIC_BIOTIC_FORCING |
CAR_S(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
141 |
DIC_BIOTIC_FORCING |
GO2(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
144 |
DIC_BIOTIC_FORCING |
GFE(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
226 |
DIC_BIOTIC_FORCING |
DO k=1,Nr |
|
./pkg/dic/dic_biotic_forcing.F |
229 |
DIC_BIOTIC_FORCING |
CAR_S(i,j,k)=BIOac(i,j,k)*R_CP*rain_ratio(i,j,bi,bj)* |
|
./pkg/dic/dic_biotic_forcing.F |
272 |
DIC_BIOTIC_FORCING |
DO k=1,Nr |
|
./pkg/dic/dic_biotic_forcing.F |
276 |
DIC_BIOTIC_FORCING |
RDOP(i,j,k)= MAX(maskC(i,j,k,bi,bj)*KDOPRemin*PTR_DOP(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
279 |
DIC_BIOTIC_FORCING |
RDOP(i,j,k)= maskC(i,j,k,bi,bj)*KDOPRemin*PTR_DOP(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
281 |
DIC_BIOTIC_FORCING |
GPO4(i,j,k)=-BIOac(i,j,k)+pflux(i,j,k) + RDOP(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
283 |
DIC_BIOTIC_FORCING |
car(i,j,k) = cflux(i,j,k) - CAR_S(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
285 |
DIC_BIOTIC_FORCING |
GDOP(i,j,k)=+BIOac(i,j,k)*DOPfraction - RDOP(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
287 |
DIC_BIOTIC_FORCING |
GALK(i,j,k)=+2. _d 0 *car(i,j,k)-R_NP*GPO4(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
289 |
DIC_BIOTIC_FORCING |
GDIC(i,j,k)=car(i,j,k)+R_CP*GPO4(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
292 |
DIC_BIOTIC_FORCING |
if (PTR_O2(i,j,k).GT.O2crit) then |
|
./pkg/dic/dic_biotic_forcing.F |
293 |
DIC_BIOTIC_FORCING |
GO2(i,j,k)= R_OP*GPO4(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
295 |
DIC_BIOTIC_FORCING |
GO2(i,j,k)= 0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
299 |
DIC_BIOTIC_FORCING |
GFE(i,j,k) = R_FeP*GPO4(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
300 |
DIC_BIOTIC_FORCING |
& -Kscav*freefe(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
329 |
DIC_BIOTIC_FORCING |
DO k=1,Nr |
|
./pkg/dic/dic_biotic_forcing.F |
332 |
DIC_BIOTIC_FORCING |
GDIC(i,j,k) = GDIC(i,j,k)*maskInC(i,j,bi,bj) |
|
./pkg/dic/dic_biotic_forcing.F |
333 |
DIC_BIOTIC_FORCING |
GALK(i,j,k) = GALK(i,j,k)*maskInC(i,j,bi,bj) |
|
./pkg/dic/dic_biotic_forcing.F |
334 |
DIC_BIOTIC_FORCING |
GPO4(i,j,k) = GPO4(i,j,k)*maskInC(i,j,bi,bj) |
|
./pkg/dic/dic_biotic_forcing.F |
335 |
DIC_BIOTIC_FORCING |
GDOP(i,j,k) = GDOP(i,j,k)*maskInC(i,j,bi,bj) |
|
./pkg/dic/dic_biotic_forcing.F |
337 |
DIC_BIOTIC_FORCING |
GO2(i,j,k) = GO2(i,j,k)*maskInC(i,j,bi,bj) |
|
./pkg/dic/dic_biotic_forcing.F |
340 |
DIC_BIOTIC_FORCING |
GFE(i,j,k) = GFE(i,j,k)*maskInC(i,j,bi,bj) |
|
./pkg/dic/dic_biotic_forcing.F |
348 |
DIC_BIOTIC_FORCING |
DO k=1,Nr |
|
./pkg/dic/dic_biotic_forcing.F |
351 |
DIC_BIOTIC_FORCING |
PTR_DIC(i,j,k)= |
|
./pkg/dic/dic_biotic_forcing.F |
352 |
DIC_BIOTIC_FORCING |
& PTR_DIC(i,j,k)+GDIC(i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/dic/dic_biotic_forcing.F |
353 |
DIC_BIOTIC_FORCING |
PTR_ALK(i,j,k)= |
|
./pkg/dic/dic_biotic_forcing.F |
354 |
DIC_BIOTIC_FORCING |
& PTR_ALK(i,j,k)+GALK(i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/dic/dic_biotic_forcing.F |
355 |
DIC_BIOTIC_FORCING |
PTR_PO4(i,j,k)= |
|
./pkg/dic/dic_biotic_forcing.F |
356 |
DIC_BIOTIC_FORCING |
& PTR_PO4(i,j,k)+GPO4(i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/dic/dic_biotic_forcing.F |
357 |
DIC_BIOTIC_FORCING |
PTR_DOP(i,j,k)= |
|
./pkg/dic/dic_biotic_forcing.F |
358 |
DIC_BIOTIC_FORCING |
& PTR_DOP(i,j,k)+GDOP(i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/dic/dic_biotic_forcing.F |
360 |
DIC_BIOTIC_FORCING |
PTR_O2(i,j,k)= |
|
./pkg/dic/dic_biotic_forcing.F |
361 |
DIC_BIOTIC_FORCING |
& PTR_O2(i,j,k)+GO2(i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/dic/dic_biotic_forcing.F |
364 |
DIC_BIOTIC_FORCING |
PTR_FE(i,j,k)= |
|
./pkg/dic/dic_biotic_forcing.F |
365 |
DIC_BIOTIC_FORCING |
& PTR_FE(i,j,k)+GFE(i,j,k)*PTRACERS_dTLev(k) |
|
./pkg/dic/dic_biotic_forcing.F |
387 |
DIC_BIOTIC_FORCING |
DO k=1,Nr |
|
./pkg/dic/dic_biotic_forcing.F |
390 |
DIC_BIOTIC_FORCING |
BIOave(i,j,k,bi,bj) =BIOave(i,j,k,bi,bj)+ |
|
./pkg/dic/dic_biotic_forcing.F |
391 |
DIC_BIOTIC_FORCING |
& BIOac(i,j,k)*deltaTClock |
|
./pkg/dic/dic_biotic_forcing.F |
392 |
DIC_BIOTIC_FORCING |
CARave(i,j,k,bi,bj) =CARave(i,j,k,bi,bj)+ |
|
./pkg/dic/dic_biotic_forcing.F |
393 |
DIC_BIOTIC_FORCING |
& CAR(i,j,k)*deltaTClock |
|
./pkg/dic/dic_biotic_forcing.F |
394 |
DIC_BIOTIC_FORCING |
OmegaCave(i,j,k,bi,bj)=OmegaCave(i,j,k,bi,bj)+ |
|
./pkg/dic/dic_biotic_forcing.F |
395 |
DIC_BIOTIC_FORCING |
& OmegaC(i,j,k,bi,bj)*deltaTClock |
|
./pkg/dic/dic_biotic_forcing.F |
396 |
DIC_BIOTIC_FORCING |
pfluxave(i,j,k,bi,bj) =pfluxave(i,j,k,bi,bj) + |
|
./pkg/dic/dic_biotic_forcing.F |
397 |
DIC_BIOTIC_FORCING |
& pflux(i,j,k)*deltaTClock |
|
./pkg/dic/dic_biotic_forcing.F |
398 |
DIC_BIOTIC_FORCING |
epfluxave(i,j,k,bi,bj)=epfluxave(i,j,k,bi,bj) + |
|
./pkg/dic/dic_biotic_forcing.F |
399 |
DIC_BIOTIC_FORCING |
& exportflux(i,j,k)*deltaTClock |
|
./pkg/dic/dic_biotic_forcing.F |
400 |
DIC_BIOTIC_FORCING |
cfluxave(i,j,k,bi,bj) =cfluxave(i,j,k,bi,bj) + |
|
./pkg/dic/dic_biotic_forcing.F |
401 |
DIC_BIOTIC_FORCING |
& cflux(i,j,k)*deltaTClock |
|
./pkg/dic/dic_ini_atmos.F |
108 |
DIC_INI_ATMOS |
DO k=1,Nr |
|
./pkg/dic/dic_ini_atmos.F |
112 |
DIC_INI_ATMOS |
& + ( pTracer(i,j,k,bi,bj,1) |
|
./pkg/dic/dic_ini_atmos.F |
114 |
DIC_INI_ATMOS |
& +R_cp*pTracer(i,j,k,bi,bj,4) |
|
./pkg/dic/dic_ini_atmos.F |
117 |
DIC_INI_ATMOS |
& *drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/dic/dic_ini_atmos.F |
49 |
DIC_INI_ATMOS |
INTEGER bi, bj, i,j,k |
|
./pkg/dic/dic_init_fixed.F |
31 |
DIC_INIT_FIXED |
INTEGER k |
|
./pkg/dic/dic_init_fixed.F |
70 |
DIC_INIT_FIXED |
DO k=1,dic_int2 |
|
./pkg/dic/dic_init_fixed.F |
71 |
DIC_INIT_FIXED |
READ(iUnit,*) co2atmos(k) |
|
./pkg/dic/dic_init_fixed.F |
72 |
DIC_INIT_FIXED |
WRITE(standardMessageUnit,*) 'co2atmos',co2atmos(k) |
|
./pkg/dic/dic_init_fixed.F |
82 |
DIC_INIT_FIXED |
k = 1 |
|
./pkg/dic/dic_init_fixed.F |
83 |
DIC_INIT_FIXED |
DO WHILE ( k .LT. Nr .AND. rC(k) .GE. -zcrit ) |
|
./pkg/dic/dic_init_fixed.F |
84 |
DIC_INIT_FIXED |
k = k+1 |
|
./pkg/dic/dic_init_fixed.F |
86 |
DIC_INIT_FIXED |
nlev = k |
|
./pkg/dic/dic_init_varia.F |
34 |
DIC_INIT_VARIA |
INTEGER k |
|
./pkg/dic/dic_init_varia.F |
64 |
DIC_INIT_VARIA |
DO k = 1, Nr |
|
./pkg/dic/dic_init_varia.F |
67 |
DIC_INIT_VARIA |
omegaC(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/dic/fe_chem.F |
100 |
FE_CHEM |
freefe(i,j,k) = |
|
./pkg/dic/fe_chem.F |
105 |
FE_CHEM |
freefe(i,j,k) = MIN(freefe(i,j,k),freefemax) |
|
./pkg/dic/fe_chem.F |
107 |
FE_CHEM |
fe(i,j,k) = FeL+freefe(i,j,k) |
|
./pkg/dic/fe_chem.F |
46 |
FE_CHEM |
INTEGER i,j,k |
|
./pkg/dic/fe_chem.F |
59 |
FE_CHEM |
DO k=1,Nr |
|
./pkg/dic/fe_chem.F |
62 |
FE_CHEM |
freefe(i,j,k) = 0. _d 0 |
|
./pkg/dic/fe_chem.F |
70 |
FE_CHEM |
DO k=1,Nr |
|
./pkg/dic/fe_chem.F |
73 |
FE_CHEM |
IF ( maskC(i,j,k,bi,bj).GT.0. ) THEN |
|
./pkg/dic/fe_chem.F |
76 |
FE_CHEM |
tmpfe =MAX( 0. _d 0 , fe(i,j,k) ) |
|
./pkg/dic/fe_chem.F |
78 |
FE_CHEM |
tmpfe = fe(i,j,k) |
|
./pkg/dic/fe_chem.F |
91 |
FE_CHEM |
freefe(i,j,k) = tmpfe -FeL |
|
./pkg/dic/fe_chem.F |
93 |
FE_CHEM |
freefe(i,j,k) = 0. _d 0 |
|
./pkg/dic/fe_chem.F |
97 |
FE_CHEM |
thx=freefe(i,j,k) |
|
./pkg/dic/o2_surfforcing.F |
72 |
O2_SURFFORCING |
IF (maskC(i,j,k,bi,bj).NE.0.) THEN |
|
./pkg/dic/o2_surfforcing.F |
73 |
O2_SURFFORCING |
ttemp = theta(i,j,k,bi,bj) |
|
./pkg/dic/o2_surfforcing.F |
74 |
O2_SURFFORCING |
stemp = salt(i,j,k,bi,bj) |
|
./pkg/dic/phos_flux.F |
53 |
PHOS_FLUX |
INTEGER I,J,k, ko, kop1 |
|
./pkg/dic/phos_flux.F |
63 |
PHOS_FLUX |
DO k=1,nlev |
|
./pkg/dic/phos_flux.F |
67 |
PHOS_FLUX |
IF ( _hFacC(i,j,k,bi,bj).gt.0. _d 0 ) THEN |
|
./pkg/dic/phos_flux.F |
70 |
PHOS_FLUX |
IF (k.EQ.Nr) THEN |
|
./pkg/dic/phos_flux.F |
71 |
PHOS_FLUX |
pflux(i,j,k)=pflux(i,j,k)+BIOac(i,j,k)*(1. _d 0-DOPfraction) |
|
./pkg/dic/phos_flux.F |
72 |
PHOS_FLUX |
ELSEIF (hFacC(i,j,k+1,bi,bj).EQ.0. _d 0) THEN |
|
./pkg/dic/phos_flux.F |
73 |
PHOS_FLUX |
pflux(i,j,k)=pflux(i,j,k)+BIOac(i,j,k)*(1. _d 0-DOPfraction) |
|
./pkg/dic/phos_flux.F |
76 |
PHOS_FLUX |
bexport(i,j)=BIOac(i,j,k)*(1. _d 0-DOPfraction) |
|
./pkg/dic/phos_flux.F |
77 |
PHOS_FLUX |
& *drF(k) * _hFacC(i,j,k,bi,bj) |
|
./pkg/dic/phos_flux.F |
84 |
PHOS_FLUX |
zbase=-rF(k+1) |
|
./pkg/dic/phos_flux.F |
94 |
PHOS_FLUX |
DO ko=k+1,Nr-1 |
|
./pkg/down_slope/dwnslp_apply.F |
149 |
DWNSLP_APPLY |
DO k=DWNSLP_deepK(n,bi,bj),kshelf,upward |
|
./pkg/down_slope/dwnslp_apply.F |
150 |
DWNSLP_APPLY |
gTrLoc(k) = DWNSLP_Transp(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
151 |
DWNSLP_APPLY |
& *( tmpFld - tracer(ijd,k) ) |
|
./pkg/down_slope/dwnslp_apply.F |
152 |
DWNSLP_APPLY |
& *recip_drF(k)*recip_hFac(ijd,k) |
|
./pkg/down_slope/dwnslp_apply.F |
154 |
DWNSLP_APPLY |
gTracer(ijd,k) = gTracer(ijd,k) + gTrLoc(k) |
|
./pkg/down_slope/dwnslp_apply.F |
155 |
DWNSLP_APPLY |
tmpFld = tracer(ijd,k) |
|
./pkg/down_slope/dwnslp_apply.F |
158 |
DWNSLP_APPLY |
k = kshelf |
|
./pkg/down_slope/dwnslp_apply.F |
160 |
DWNSLP_APPLY |
& *( tmpFld - tracer(ijs,k) ) |
|
./pkg/down_slope/dwnslp_apply.F |
161 |
DWNSLP_APPLY |
& *recip_drF(k)*recip_hFac(ijs,k) |
|
./pkg/down_slope/dwnslp_apply.F |
163 |
DWNSLP_APPLY |
gTracer(ijs,k) = gTracer(ijs,k) + gTrLoc(0) |
|
./pkg/down_slope/dwnslp_apply.F |
167 |
DWNSLP_APPLY |
k=DWNSLP_deepK(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
169 |
DWNSLP_APPLY |
& bi,bj,n,ijd,ijs,k, |
|
./pkg/down_slope/dwnslp_apply.F |
170 |
DWNSLP_APPLY |
& tracer(ijd,k), |
|
./pkg/down_slope/dwnslp_apply.F |
171 |
DWNSLP_APPLY |
& deltaTLev(k)*DWNSLP_Transp(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
172 |
DWNSLP_APPLY |
& *recip_drF(k)*recip_hFac(ijd,k) |
|
./pkg/down_slope/dwnslp_apply.F |
174 |
DWNSLP_APPLY |
& (tracer(ijs,kshelf)-tracer(ijd,k)), |
|
./pkg/down_slope/dwnslp_apply.F |
176 |
DWNSLP_APPLY |
& deltaTLev(k)*DWNSLP_Transp(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
73 |
DWNSLP_APPLY |
INTEGER k |
|
./pkg/down_slope/dwnslp_calc_flow.F |
112 |
DWNSLP_CALC_FLOW |
DO k=kshelf+1,kBottom(ijd,bi,bj),downward |
|
./pkg/down_slope/dwnslp_calc_flow.F |
113 |
DWNSLP_CALC_FLOW |
IF ( rho3d(ijs,k,bi,bj).GT.rho3d(ijd,k,bi,bj) ) kdeep = k |
|
./pkg/down_slope/dwnslp_calc_flow.F |
55 |
DWNSLP_CALC_FLOW |
INTEGER k |
|
./pkg/down_slope/dwnslp_calc_rho.F |
12 |
DWNSLP_CALC_RHO |
I k, bi, bj, myTime, myIter, myThid ) |
|
./pkg/down_slope/dwnslp_calc_rho.F |
47 |
DWNSLP_CALC_RHO |
INTEGER k, bi, bj |
|
./pkg/down_slope/dwnslp_calc_rho.F |
71 |
DWNSLP_CALC_RHO |
kl = MIN( MAX(k,kSurfC(i,j,bi,bj)), MAX(kLowC(i,j,bi,bj),1) ) |
|
./pkg/down_slope/dwnslp_calc_rho.F |
78 |
DWNSLP_CALC_RHO |
I 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, k, |
|
./pkg/down_slope/dwnslp_calc_rho.F |
81 |
DWNSLP_CALC_RHO |
I k, bi, bj, myThid ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
233 |
DWNSLP_INIT_FIXED |
DO k = kshelf,kdeep,downward |
|
./pkg/down_slope/dwnslp_init_fixed.F |
235 |
DWNSLP_INIT_FIXED |
& drF(k)*hFacC(ideep,jdeep,k,bi,bj) ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
43 |
DWNSLP_INIT_FIXED |
INTEGER i, j, k |
|
./pkg/ebm/ebm_area_t.F |
44 |
EBM_AREA_T |
INTEGER i, j, k, bi, bj |
|
./pkg/ebm/ebm_area_t.F |
59 |
EBM_AREA_T |
k = 1 |
|
./pkg/ebm/ebm_area_t.F |
79 |
EBM_AREA_T |
& + maskC(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
81 |
EBM_AREA_T |
& + maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
85 |
EBM_AREA_T |
& + maskC(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
87 |
EBM_AREA_T |
& + maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
91 |
EBM_AREA_T |
& + maskC(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
93 |
EBM_AREA_T |
& + maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
97 |
EBM_AREA_T |
& + maskC(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
99 |
EBM_AREA_T |
& + maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_wind_perturb.F |
114 |
EBM_WIND_PERTURB |
winPert(i,j,bi,bj) = maskW(i,j,k,bi,bj)* |
|
./pkg/ebm/ebm_zonalmean.F |
45 |
EBM_ZONALMEAN |
INTEGER i, j, k, bi, bj |
|
./pkg/ebm/ebm_zonalmean.F |
53 |
EBM_ZONALMEAN |
k = 1 |
|
./pkg/ebm/ebm_zonalmean.F |
65 |
EBM_ZONALMEAN |
& + maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_zonalmean.F |
67 |
EBM_ZONALMEAN |
& + maskC(i,j,k,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
344 |
COST_AVERAGESFIELDS |
do k = 1,nr |
|
./pkg/ecco/cost_averagesfields.F |
347 |
COST_AVERAGESFIELDS |
ubar(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
348 |
COST_AVERAGESFIELDS |
vbar(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
357 |
COST_AVERAGESFIELDS |
do k = 1,nr |
|
./pkg/ecco/cost_averagesfields.F |
360 |
COST_AVERAGESFIELDS |
ubar(i,j,k,bi,bj) = (ubar (i,j,k,bi,bj) + |
|
./pkg/ecco/cost_averagesfields.F |
361 |
COST_AVERAGESFIELDS |
& uVel(i,j,k,bi,bj) )/ |
|
./pkg/ecco/cost_averagesfields.F |
363 |
COST_AVERAGESFIELDS |
vbar(i,j,k,bi,bj) = (vbar (i,j,k,bi,bj) + |
|
./pkg/ecco/cost_averagesfields.F |
364 |
COST_AVERAGESFIELDS |
& vVel(i,j,k,bi,bj) )/ |
|
./pkg/ecco/cost_averagesfields.F |
395 |
COST_AVERAGESFIELDS |
do k = 1,nr |
|
./pkg/ecco/cost_averagesfields.F |
398 |
COST_AVERAGESFIELDS |
ubar(i,j,k,bi,bj) = ubar (i,j,k,bi,bj) + |
|
./pkg/ecco/cost_averagesfields.F |
399 |
COST_AVERAGESFIELDS |
& uVel (i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
400 |
COST_AVERAGESFIELDS |
vbar(i,j,k,bi,bj) = vbar (i,j,k,bi,bj) + |
|
./pkg/ecco/cost_averagesfields.F |
401 |
COST_AVERAGESFIELDS |
& vVel (i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
609 |
COST_AVERAGESFIELDS |
do k = 1,nr |
|
./pkg/ecco/cost_averagesfields.F |
612 |
COST_AVERAGESFIELDS |
csmm(i,j,k,bi,bj) = 0.0 |
|
./pkg/ecco/cost_averagesfields.F |
620 |
COST_AVERAGESFIELDS |
do k = 1,nr |
|
./pkg/ecco/cost_averagesfields.F |
623 |
COST_AVERAGESFIELDS |
if (hFacC(i,j,k,bi,bj).gt.0.0) then |
|
./pkg/ecco/cost_averagesfields.F |
624 |
COST_AVERAGESFIELDS |
prmm = totPhiHyd(i,j,k,bi,bj)/gravity |
|
./pkg/ecco/cost_averagesfields.F |
625 |
COST_AVERAGESFIELDS |
& -rC(k) |
|
./pkg/ecco/cost_averagesfields.F |
626 |
COST_AVERAGESFIELDS |
tmpmm = SW_TEMP(SALT(i,j,k,bi,bj), |
|
./pkg/ecco/cost_averagesfields.F |
627 |
COST_AVERAGESFIELDS |
& THETA(i,j,k,bi,bj),prmm,0. _d 0) |
|
./pkg/ecco/cost_averagesfields.F |
629 |
COST_AVERAGESFIELDS |
& totPhiHyd(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
630 |
COST_AVERAGESFIELDS |
& -rC(k)*gravity ) |
|
./pkg/ecco/cost_averagesfields.F |
633 |
COST_AVERAGESFIELDS |
salmm = SALT(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
649 |
COST_AVERAGESFIELDS |
csmm(i,j,k,bi,bj) = c0mm+vtmm+vsmm+vpmm+vstpmm |
|
./pkg/ecco/cost_averagesfields.F |
659 |
COST_AVERAGESFIELDS |
do k = 1,nr |
|
./pkg/ecco/cost_averagesfields.F |
662 |
COST_AVERAGESFIELDS |
if (csmm(i,j,k,bi,bj).ne.0.0) then |
|
./pkg/ecco/cost_averagesfields.F |
664 |
COST_AVERAGESFIELDS |
& + 2*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
665 |
COST_AVERAGESFIELDS |
& /csmm(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
666 |
COST_AVERAGESFIELDS |
if (k.eq.1) then |
|
./pkg/ecco/cost_averagesfields.F |
669 |
COST_AVERAGESFIELDS |
& /csmm(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
689 |
COST_AVERAGESFIELDS |
do k = 1, NGENCOST |
|
./pkg/ecco/cost_averagesfields.F |
690 |
COST_AVERAGESFIELDS |
if ( (using_gencost(k)).AND.(.NOT.gencost_barskip(k)) ) then |
|
./pkg/ecco/cost_averagesfields.F |
691 |
COST_AVERAGESFIELDS |
if ( .NOT.gencost_is3d(k) ) then |
|
./pkg/ecco/cost_averagesfields.F |
693 |
COST_AVERAGESFIELDS |
& gencost_barfile(k), |
|
./pkg/ecco/cost_averagesfields.F |
694 |
COST_AVERAGESFIELDS |
& gencost_barfld(1-Olx,1-Oly,1,1,k), |
|
./pkg/ecco/cost_averagesfields.F |
695 |
COST_AVERAGESFIELDS |
& gencost_modfld(1-Olx,1-Oly,1,1,k), |
|
./pkg/ecco/cost_averagesfields.F |
696 |
COST_AVERAGESFIELDS |
& gencost_dummy(k), |
|
./pkg/ecco/cost_averagesfields.F |
698 |
COST_AVERAGESFIELDS |
& startofgen(k), endofgen(k), ingen(k), |
|
./pkg/ecco/cost_averagesfields.F |
699 |
COST_AVERAGESFIELDS |
& sum1gen(k), genrec(k), 1, mythid ) |
|
./pkg/ecco/cost_averagesfields.F |
702 |
COST_AVERAGESFIELDS |
kk=gencost_pointer3d(k) |
|
./pkg/ecco/cost_averagesfields.F |
704 |
COST_AVERAGESFIELDS |
& gencost_barfile(k), |
|
./pkg/ecco/cost_averagesfields.F |
707 |
COST_AVERAGESFIELDS |
& gencost_dummy(k), |
|
./pkg/ecco/cost_averagesfields.F |
709 |
COST_AVERAGESFIELDS |
& startofgen(k), endofgen(k), ingen(k), |
|
./pkg/ecco/cost_averagesfields.F |
710 |
COST_AVERAGESFIELDS |
& sum1gen(k), genrec(k), nr, mythid ) |
|
./pkg/ecco/cost_averagesfields.F |
738 |
COST_AVERAGESFIELDS |
do k = 1,nr |
|
./pkg/ecco/cost_averagesfields.F |
745 |
COST_AVERAGESFIELDS |
& +vVel(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
746 |
COST_AVERAGESFIELDS |
& *_dxG(i,j,bi,bj)*drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
90 |
COST_AVERAGESFIELDS |
integer k |
|
./pkg/ecco/cost_averagesgeneric.F |
117 |
COST_AVERAGESGENERIC |
do k = 1,nnz |
|
./pkg/ecco/cost_averagesgeneric.F |
120 |
COST_AVERAGESGENERIC |
localbar(i,j,k,bi,bj) = localfld(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesgeneric.F |
151 |
COST_AVERAGESGENERIC |
do k = 1,nnz |
|
./pkg/ecco/cost_averagesgeneric.F |
154 |
COST_AVERAGESGENERIC |
localbar(i,j,k,bi,bj) = localfld(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesgeneric.F |
164 |
COST_AVERAGESGENERIC |
do k = 1,nnz |
|
./pkg/ecco/cost_averagesgeneric.F |
167 |
COST_AVERAGESGENERIC |
localbar(i,j,k,bi,bj) = |
|
./pkg/ecco/cost_averagesgeneric.F |
168 |
COST_AVERAGESGENERIC |
& (localbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesgeneric.F |
169 |
COST_AVERAGESGENERIC |
& +localfld(i,j,k,bi,bj))/ |
|
./pkg/ecco/cost_averagesgeneric.F |
203 |
COST_AVERAGESGENERIC |
do k = 1,nnz |
|
./pkg/ecco/cost_averagesgeneric.F |
205 |
COST_AVERAGESGENERIC |
localbar(i,j,k,bi,bj) = |
|
./pkg/ecco/cost_averagesgeneric.F |
206 |
COST_AVERAGESGENERIC |
& localbar(i,j,k,bi,bj) + localfld(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesgeneric.F |
56 |
COST_AVERAGESGENERIC |
integer i,j,k |
|
./pkg/ecco/cost_averagesinit.F |
137 |
COST_AVERAGESINIT |
do k = 1,nr |
|
./pkg/ecco/cost_averagesinit.F |
140 |
COST_AVERAGESINIT |
sigmaRbar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
154 |
COST_AVERAGESINIT |
do k = 1,nr |
|
./pkg/ecco/cost_averagesinit.F |
157 |
COST_AVERAGESINIT |
tbar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
166 |
COST_AVERAGESINIT |
k = 1 |
|
./pkg/ecco/cost_averagesinit.F |
193 |
COST_AVERAGESINIT |
do k = 1,nr |
|
./pkg/ecco/cost_averagesinit.F |
196 |
COST_AVERAGESINIT |
sbar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
205 |
COST_AVERAGESINIT |
k = 1 |
|
./pkg/ecco/cost_averagesinit.F |
219 |
COST_AVERAGESINIT |
do k = 1,nr |
|
./pkg/ecco/cost_averagesinit.F |
222 |
COST_AVERAGESINIT |
ubar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
223 |
COST_AVERAGESINIT |
vbar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
233 |
COST_AVERAGESINIT |
do k = 1,nr |
|
./pkg/ecco/cost_averagesinit.F |
236 |
COST_AVERAGESINIT |
wbar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
57 |
COST_AVERAGESINIT |
integer i,j,k,kk |
|
./pkg/ecco/cost_averagesinit.F |
80 |
COST_AVERAGESINIT |
do k=1,NGENCOST |
|
./pkg/ecco/cost_averagesinit.F |
83 |
COST_AVERAGESINIT |
gencost_barfld(i,j,bi,bj,k) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
84 |
COST_AVERAGESINIT |
gencost_modfld(i,j,bi,bj,k) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
87 |
COST_AVERAGESINIT |
gencost_dummy(k) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
93 |
COST_AVERAGESINIT |
do k = 1,nr |
|
./pkg/ecco/cost_averagesinit.F |
94 |
COST_AVERAGESINIT |
gencost_bar3d(i,j,k,bi,bj,kk) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
95 |
COST_AVERAGESINIT |
gencost_mod3d(i,j,k,bi,bj,kk) = 0. _d 0 |
|
./pkg/ecco/cost_bp_read.F |
137 |
COST_BP_READ |
k = 1 |
|
./pkg/ecco/cost_bp_read.F |
54 |
COST_BP_READ |
integer i,j,k |
|
./pkg/ecco/cost_gencal.F |
57 |
COST_GENCAL |
integer k, il |
|
./pkg/ecco/cost_gencal.F |
97 |
COST_GENCAL |
do k=1,4 |
|
./pkg/ecco/cost_gencal.F |
98 |
COST_GENCAL |
middate(k)=0 |
|
./pkg/ecco/cost_gencost_all.F |
45 |
COST_GENCOST_ALL |
integer k |
|
./pkg/ecco/cost_gencost_all.F |
52 |
COST_GENCOST_ALL |
do k = 1, NGENCOST |
|
./pkg/ecco/cost_gencost_all.F |
54 |
COST_GENCOST_ALL |
if ( (using_gencost(k)).AND.( gencost_flag(k).EQ.1 ) |
|
./pkg/ecco/cost_gencost_all.F |
55 |
COST_GENCOST_ALL |
& .AND.( .NOT.gencost_is1d(k) ) ) then |
|
./pkg/ecco/cost_gencost_all.F |
60 |
COST_GENCOST_ALL |
write(msgbuf,'(a,x,i2.2)') 'gencost #', k |
|
./pkg/ecco/cost_gencost_all.F |
66 |
COST_GENCOST_ALL |
if ( .NOT.gencost_is3d(k) ) then |
|
./pkg/ecco/cost_gencost_all.F |
74 |
COST_GENCOST_ALL |
nrecloc= gencost_nrec(k) |
|
./pkg/ecco/cost_gencost_all.F |
75 |
COST_GENCOST_ALL |
nrecperiodloc= gencost_nrec(k) |
|
./pkg/ecco/cost_gencost_all.F |
78 |
COST_GENCOST_ALL |
& nnzbar, gencost_barfile(k), gencost_dummy(k), |
|
./pkg/ecco/cost_gencost_all.F |
79 |
COST_GENCOST_ALL |
& nnzobs, gencost_datafile(k), gencost_errfile(k), |
|
./pkg/ecco/cost_gencost_all.F |
80 |
COST_GENCOST_ALL |
& mult_gencost(k), nrecloc, nrecperiodloc, |
|
./pkg/ecco/cost_gencost_all.F |
81 |
COST_GENCOST_ALL |
& gencost_startdate(1,k), gencost_period(k), 'c', |
|
./pkg/ecco/cost_gencost_all.F |
82 |
COST_GENCOST_ALL |
& gencost_spmin(k), gencost_spmax(k), gencost_spzero(k), |
|
./pkg/ecco/cost_gencost_all.F |
83 |
COST_GENCOST_ALL |
& gencost_preproc(1,k), gencost_preproc_c(1,k), |
|
./pkg/ecco/cost_gencost_all.F |
84 |
COST_GENCOST_ALL |
& gencost_preproc_i(1,k), gencost_preproc_r(1,k), |
|
./pkg/ecco/cost_gencost_all.F |
85 |
COST_GENCOST_ALL |
& gencost_posproc(1,k), gencost_posproc_c(1,k), |
|
./pkg/ecco/cost_gencost_all.F |
86 |
COST_GENCOST_ALL |
& gencost_posproc_i(1,k), gencost_posproc_r(1,k), |
|
./pkg/ecco/cost_gencost_all.F |
87 |
COST_GENCOST_ALL |
& gencost_outputlevel(k), gencost_name(k), |
|
./pkg/ecco/cost_gencost_all.F |
88 |
COST_GENCOST_ALL |
& objf_gencost(1,1,k), num_gencost(1,1,k), |
|
./pkg/ecco/cost_gencost_assignperiod.F |
51 |
COST_GENCOST_ASSIGNPERIOD |
integer k |
|
./pkg/ecco/cost_gencost_assignperiod.F |
55 |
COST_GENCOST_ASSIGNPERIOD |
do k = 1, NGENCOST |
|
./pkg/ecco/cost_gencost_assignperiod.F |
56 |
COST_GENCOST_ASSIGNPERIOD |
if ( (using_gencost(k)).AND.( (gencost_flag(k).GE.1).OR. |
|
./pkg/ecco/cost_gencost_assignperiod.F |
57 |
COST_GENCOST_ASSIGNPERIOD |
& (gencost_avgperiod(k).NE.' ') ) ) then |
|
./pkg/ecco/cost_gencost_assignperiod.F |
58 |
COST_GENCOST_ASSIGNPERIOD |
if ( gencost_avgperiod(k) .EQ. 'day' .OR. |
|
./pkg/ecco/cost_gencost_assignperiod.F |
59 |
COST_GENCOST_ASSIGNPERIOD |
& gencost_avgperiod(k) .EQ. 'DAY' ) then |
|
./pkg/ecco/cost_gencost_assignperiod.F |
60 |
COST_GENCOST_ASSIGNPERIOD |
startofgen(k) = startofday |
|
./pkg/ecco/cost_gencost_assignperiod.F |
61 |
COST_GENCOST_ASSIGNPERIOD |
endofgen(k) = endofday |
|
./pkg/ecco/cost_gencost_assignperiod.F |
62 |
COST_GENCOST_ASSIGNPERIOD |
ingen(k) = inday |
|
./pkg/ecco/cost_gencost_assignperiod.F |
63 |
COST_GENCOST_ASSIGNPERIOD |
sum1gen(k) = sum1day |
|
./pkg/ecco/cost_gencost_assignperiod.F |
64 |
COST_GENCOST_ASSIGNPERIOD |
genrec(k) = dayrec |
|
./pkg/ecco/cost_gencost_assignperiod.F |
65 |
COST_GENCOST_ASSIGNPERIOD |
else if ( gencost_avgperiod(k) .EQ. 'month' .OR. |
|
./pkg/ecco/cost_gencost_assignperiod.F |
66 |
COST_GENCOST_ASSIGNPERIOD |
& gencost_avgperiod(k) .EQ. 'MONTH' ) then |
|
./pkg/ecco/cost_gencost_assignperiod.F |
67 |
COST_GENCOST_ASSIGNPERIOD |
startofgen(k) = startofmonth |
|
./pkg/ecco/cost_gencost_assignperiod.F |
68 |
COST_GENCOST_ASSIGNPERIOD |
endofgen(k) = endofmonth |
|
./pkg/ecco/cost_gencost_assignperiod.F |
69 |
COST_GENCOST_ASSIGNPERIOD |
ingen(k) = inmonth |
|
./pkg/ecco/cost_gencost_assignperiod.F |
70 |
COST_GENCOST_ASSIGNPERIOD |
sum1gen(k) = sum1mon |
|
./pkg/ecco/cost_gencost_assignperiod.F |
71 |
COST_GENCOST_ASSIGNPERIOD |
genrec(k) = monrec |
|
./pkg/ecco/cost_gencost_assignperiod.F |
72 |
COST_GENCOST_ASSIGNPERIOD |
else if ( gencost_avgperiod(k) .EQ. 'year' .OR. |
|
./pkg/ecco/cost_gencost_assignperiod.F |
73 |
COST_GENCOST_ASSIGNPERIOD |
& gencost_avgperiod(k) .EQ. 'YEAR' ) then |
|
./pkg/ecco/cost_gencost_assignperiod.F |
74 |
COST_GENCOST_ASSIGNPERIOD |
startofgen(k) = startofyear |
|
./pkg/ecco/cost_gencost_assignperiod.F |
75 |
COST_GENCOST_ASSIGNPERIOD |
endofgen(k) = endofyear |
|
./pkg/ecco/cost_gencost_assignperiod.F |
76 |
COST_GENCOST_ASSIGNPERIOD |
ingen(k) = inyear |
|
./pkg/ecco/cost_gencost_assignperiod.F |
77 |
COST_GENCOST_ASSIGNPERIOD |
sum1gen(k) = sum1year |
|
./pkg/ecco/cost_gencost_assignperiod.F |
78 |
COST_GENCOST_ASSIGNPERIOD |
genrec(k) = yearrec |
|
./pkg/ecco/cost_gencost_assignperiod.F |
79 |
COST_GENCOST_ASSIGNPERIOD |
else if ( gencost_avgperiod(k) .EQ. 'step' .OR. |
|
./pkg/ecco/cost_gencost_assignperiod.F |
80 |
COST_GENCOST_ASSIGNPERIOD |
& gencost_avgperiod(k) .EQ. 'STEP' ) then |
|
./pkg/ecco/cost_gencost_assignperiod.F |
81 |
COST_GENCOST_ASSIGNPERIOD |
startofgen(k) = .TRUE. |
|
./pkg/ecco/cost_gencost_assignperiod.F |
82 |
COST_GENCOST_ASSIGNPERIOD |
endofgen(k) = .TRUE. |
|
./pkg/ecco/cost_gencost_assignperiod.F |
83 |
COST_GENCOST_ASSIGNPERIOD |
ingen(k) = .TRUE. |
|
./pkg/ecco/cost_gencost_assignperiod.F |
84 |
COST_GENCOST_ASSIGNPERIOD |
sum1gen(k) = 1 |
|
./pkg/ecco/cost_gencost_assignperiod.F |
85 |
COST_GENCOST_ASSIGNPERIOD |
genrec(k) = 1+ myiter - niter0 |
|
./pkg/ecco/cost_gencost_assignperiod.F |
86 |
COST_GENCOST_ASSIGNPERIOD |
else if ( gencost_avgperiod(k) .EQ. 'const' .OR. |
|
./pkg/ecco/cost_gencost_assignperiod.F |
87 |
COST_GENCOST_ASSIGNPERIOD |
& gencost_avgperiod(k) .EQ. 'CONST' ) then |
|
./pkg/ecco/cost_gencost_assignperiod.F |
88 |
COST_GENCOST_ASSIGNPERIOD |
startofgen(k) = .TRUE. |
|
./pkg/ecco/cost_gencost_assignperiod.F |
89 |
COST_GENCOST_ASSIGNPERIOD |
endofgen(k) = (myiter.EQ.niter0) |
|
./pkg/ecco/cost_gencost_assignperiod.F |
90 |
COST_GENCOST_ASSIGNPERIOD |
ingen(k) = (myiter.EQ.niter0) |
|
./pkg/ecco/cost_gencost_assignperiod.F |
91 |
COST_GENCOST_ASSIGNPERIOD |
sum1gen(k) = 1 |
|
./pkg/ecco/cost_gencost_assignperiod.F |
92 |
COST_GENCOST_ASSIGNPERIOD |
genrec(k) = 1 |
|
./pkg/ecco/cost_gencost_assignperiod.F |
93 |
COST_GENCOST_ASSIGNPERIOD |
print*,'gf-const ',startofgen(k),myiter,niter0 |
|
./pkg/ecco/cost_gencost_boxmean.F |
50 |
COST_GENCOST_BOXMEAN |
integer i,j,k |
|
./pkg/ecco/cost_gencost_bpv4.F |
76 |
COST_GENCOST_BPV4 |
integer k, kgen |
|
./pkg/ecco/cost_gencost_bpv4.F |
92 |
COST_GENCOST_BPV4 |
do k=1,NGENCOST |
|
./pkg/ecco/cost_gencost_bpv4.F |
93 |
COST_GENCOST_BPV4 |
if ( (gencost_name(k).EQ.'bpv4-grace').AND. |
|
./pkg/ecco/cost_gencost_bpv4.F |
94 |
COST_GENCOST_BPV4 |
& (.NOT.gencost_is1d(k)).AND. |
|
./pkg/ecco/cost_gencost_bpv4.F |
95 |
COST_GENCOST_BPV4 |
& (using_gencost(k)) ) kgen=k |
|
./pkg/ecco/cost_gencost_customize.F |
116 |
COST_GENCOST_CUSTOMIZE |
do k=1,NGENCOST |
|
./pkg/ecco/cost_gencost_customize.F |
117 |
COST_GENCOST_CUSTOMIZE |
itr=gencost_itracer(k) |
|
./pkg/ecco/cost_gencost_customize.F |
123 |
COST_GENCOST_CUSTOMIZE |
if (gencost_barfile(k)(1:5).EQ.'m_eta') then |
|
./pkg/ecco/cost_gencost_customize.F |
124 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
126 |
COST_GENCOST_CUSTOMIZE |
elseif (gencost_barfile(k)(1:9).EQ.'m_boxmean') then |
|
./pkg/ecco/cost_gencost_customize.F |
127 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
128 |
COST_GENCOST_CUSTOMIZE |
& gencost_storefld(i,j,bi,bj,k) |
|
./pkg/ecco/cost_gencost_customize.F |
129 |
COST_GENCOST_CUSTOMIZE |
elseif (gencost_barfile(k)(1:9).EQ.'m_horflux') then |
|
./pkg/ecco/cost_gencost_customize.F |
130 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
131 |
COST_GENCOST_CUSTOMIZE |
& gencost_storefld(i,j,bi,bj,k) |
|
./pkg/ecco/cost_gencost_customize.F |
132 |
COST_GENCOST_CUSTOMIZE |
elseif (gencost_barfile(k)(1:5).EQ.'m_sst') then |
|
./pkg/ecco/cost_gencost_customize.F |
133 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
135 |
COST_GENCOST_CUSTOMIZE |
elseif (gencost_barfile(k)(1:5).EQ.'m_sss') then |
|
./pkg/ecco/cost_gencost_customize.F |
136 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
138 |
COST_GENCOST_CUSTOMIZE |
elseif (gencost_barfile(k)(1:4).EQ.'m_bp') then |
|
./pkg/ecco/cost_gencost_customize.F |
139 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
149 |
COST_GENCOST_CUSTOMIZE |
elseif (gencost_barfile(k)(1:16).EQ.'m_geothermalflux') then |
|
./pkg/ecco/cost_gencost_customize.F |
150 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
154 |
COST_GENCOST_CUSTOMIZE |
elseif (gencost_barfile(k)(1:9).EQ.'m_ustress') then |
|
./pkg/ecco/cost_gencost_customize.F |
155 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
157 |
COST_GENCOST_CUSTOMIZE |
elseif (gencost_barfile(k)(1:9).EQ.'m_vstress') then |
|
./pkg/ecco/cost_gencost_customize.F |
158 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
160 |
COST_GENCOST_CUSTOMIZE |
elseif (gencost_barfile(k)(1:7).EQ.'m_uwind') then |
|
./pkg/ecco/cost_gencost_customize.F |
161 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
163 |
COST_GENCOST_CUSTOMIZE |
elseif (gencost_barfile(k)(1:7).EQ.'m_vwind') then |
|
./pkg/ecco/cost_gencost_customize.F |
164 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
167 |
COST_GENCOST_CUSTOMIZE |
elseif (gencost_barfile(k)(1:7).EQ.'m_atemp') then |
|
./pkg/ecco/cost_gencost_customize.F |
168 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
170 |
COST_GENCOST_CUSTOMIZE |
elseif (gencost_barfile(k)(1:5).EQ.'m_aqh') then |
|
./pkg/ecco/cost_gencost_customize.F |
171 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
173 |
COST_GENCOST_CUSTOMIZE |
elseif (gencost_barfile(k)(1:8).EQ.'m_precip') then |
|
./pkg/ecco/cost_gencost_customize.F |
174 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
178 |
COST_GENCOST_CUSTOMIZE |
elseif (gencost_barfile(k)(1:8).EQ.'m_swdown') then |
|
./pkg/ecco/cost_gencost_customize.F |
179 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
181 |
COST_GENCOST_CUSTOMIZE |
elseif (gencost_barfile(k)(1:8).EQ.'m_lwdown') then |
|
./pkg/ecco/cost_gencost_customize.F |
182 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
185 |
COST_GENCOST_CUSTOMIZE |
elseif (gencost_barfile(k)(1:8).EQ.'m_wspeed') then |
|
./pkg/ecco/cost_gencost_customize.F |
186 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
191 |
COST_GENCOST_CUSTOMIZE |
elseif (gencost_barfile(k)(1:12).EQ.'m_bottomdrag') then |
|
./pkg/ecco/cost_gencost_customize.F |
192 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
197 |
COST_GENCOST_CUSTOMIZE |
elseif ( (gencost_name(k).EQ.'siv4-conc').OR. |
|
./pkg/ecco/cost_gencost_customize.F |
198 |
COST_GENCOST_CUSTOMIZE |
& (gencost_barfile(k)(1:8).EQ.'m_siarea') ) then |
|
./pkg/ecco/cost_gencost_customize.F |
199 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
201 |
COST_GENCOST_CUSTOMIZE |
elseif (gencost_name(k).EQ.'siv4-deconc') then |
|
./pkg/ecco/cost_gencost_customize.F |
202 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
204 |
COST_GENCOST_CUSTOMIZE |
elseif ( (gencost_name(k).EQ.'siv4-exconc').OR. |
|
./pkg/ecco/cost_gencost_customize.F |
205 |
COST_GENCOST_CUSTOMIZE |
& (gencost_barfile(k)(1:8).EQ.'m_siheff') ) then |
|
./pkg/ecco/cost_gencost_customize.F |
206 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
208 |
COST_GENCOST_CUSTOMIZE |
elseif (gencost_barfile(k)(1:9).EQ.'m_sihsnow') then |
|
./pkg/ecco/cost_gencost_customize.F |
209 |
COST_GENCOST_CUSTOMIZE |
gencost_modfld(i,j,bi,bj,k) = |
|
./pkg/ecco/cost_gencost_customize.F |
213 |
COST_GENCOST_CUSTOMIZE |
elseif (gencost_barfile(k)(1:7).EQ.'m_theta') then |
|
./pkg/ecco/cost_gencost_customize.F |
214 |
COST_GENCOST_CUSTOMIZE |
kk=gencost_pointer3d(k) |
|
./pkg/ecco/cost_gencost_customize.F |
219 |
COST_GENCOST_CUSTOMIZE |
elseif (gencost_barfile(k)(1:6).EQ.'m_salt') then |
|
./pkg/ecco/cost_gencost_customize.F |
220 |
COST_GENCOST_CUSTOMIZE |
kk=gencost_pointer3d(k) |
|
./pkg/ecco/cost_gencost_customize.F |
226 |
COST_GENCOST_CUSTOMIZE |
elseif (gencost_barfile(k)(1:9).EQ.'m_ptracer') then |
|
./pkg/ecco/cost_gencost_customize.F |
227 |
COST_GENCOST_CUSTOMIZE |
kk=gencost_pointer3d(k) |
|
./pkg/ecco/cost_gencost_customize.F |
233 |
COST_GENCOST_CUSTOMIZE |
elseif (gencost_barfile(k)(1:4).EQ.'m_UE') then |
|
./pkg/ecco/cost_gencost_customize.F |
234 |
COST_GENCOST_CUSTOMIZE |
kk=gencost_pointer3d(k) |
|
./pkg/ecco/cost_gencost_customize.F |
239 |
COST_GENCOST_CUSTOMIZE |
elseif (gencost_barfile(k)(1:4).EQ.'m_VN') then |
|
./pkg/ecco/cost_gencost_customize.F |
240 |
COST_GENCOST_CUSTOMIZE |
kk=gencost_pointer3d(k) |
|
./pkg/ecco/cost_gencost_customize.F |
245 |
COST_GENCOST_CUSTOMIZE |
elseif (gencost_barfile(k)(1:7).EQ.'m_trVol') then |
|
./pkg/ecco/cost_gencost_customize.F |
246 |
COST_GENCOST_CUSTOMIZE |
kk=gencost_pointer3d(k) |
|
./pkg/ecco/cost_gencost_customize.F |
250 |
COST_GENCOST_CUSTOMIZE |
elseif (gencost_barfile(k)(1:8).EQ.'m_trHeat') then |
|
./pkg/ecco/cost_gencost_customize.F |
251 |
COST_GENCOST_CUSTOMIZE |
kk=gencost_pointer3d(k) |
|
./pkg/ecco/cost_gencost_customize.F |
255 |
COST_GENCOST_CUSTOMIZE |
elseif (gencost_barfile(k)(1:8).EQ.'m_trSalt') then |
|
./pkg/ecco/cost_gencost_customize.F |
256 |
COST_GENCOST_CUSTOMIZE |
kk=gencost_pointer3d(k) |
|
./pkg/ecco/cost_gencost_customize.F |
261 |
COST_GENCOST_CUSTOMIZE |
elseif (gencost_barfile(k)(1:8).EQ.'m_diffkr') then |
|
./pkg/ecco/cost_gencost_customize.F |
262 |
COST_GENCOST_CUSTOMIZE |
kk=gencost_pointer3d(k) |
|
./pkg/ecco/cost_gencost_customize.F |
270 |
COST_GENCOST_CUSTOMIZE |
elseif (gencost_barfile(k)(1:7).EQ.'m_kapgm') then |
|
./pkg/ecco/cost_gencost_customize.F |
271 |
COST_GENCOST_CUSTOMIZE |
kk=gencost_pointer3d(k) |
|
./pkg/ecco/cost_gencost_customize.F |
278 |
COST_GENCOST_CUSTOMIZE |
elseif (gencost_barfile(k)(1:9).EQ.'m_kapredi') then |
|
./pkg/ecco/cost_gencost_customize.F |
279 |
COST_GENCOST_CUSTOMIZE |
kk=gencost_pointer3d(k) |
|
./pkg/ecco/cost_gencost_customize.F |
60 |
COST_GENCOST_CUSTOMIZE |
integer i,j,k |
|
./pkg/ecco/cost_gencost_glbmean.F |
100 |
COST_GENCOST_GLBMEAN |
& (gencost_name(k).EQ.'gmsl')) |
|
./pkg/ecco/cost_gencost_glbmean.F |
101 |
COST_GENCOST_GLBMEAN |
& .AND.( gencost_is1d(k) ) |
|
./pkg/ecco/cost_gencost_glbmean.F |
102 |
COST_GENCOST_GLBMEAN |
& .AND.(using_gencost(k)) ) kgen=k |
|
./pkg/ecco/cost_gencost_glbmean.F |
112 |
COST_GENCOST_GLBMEAN |
if(gencost_name(k).EQ.'gmbp') fac = 1. _d 2 * recip_gravity |
|
./pkg/ecco/cost_gencost_glbmean.F |
72 |
COST_GENCOST_GLBMEAN |
integer k, kgen |
|
./pkg/ecco/cost_gencost_glbmean.F |
97 |
COST_GENCOST_GLBMEAN |
do k=1,NGENCOST |
|
./pkg/ecco/cost_gencost_glbmean.F |
99 |
COST_GENCOST_GLBMEAN |
if (((gencost_name(k).EQ.'gmbp') .OR. |
|
./pkg/ecco/cost_gencost_seaicev4.F |
124 |
COST_GENCOST_SEAICEV4 |
do k=1,NGENCOST |
|
./pkg/ecco/cost_gencost_seaicev4.F |
125 |
COST_GENCOST_SEAICEV4 |
if (gencost_name(k).EQ.'siv4-conc') igen_conc=k |
|
./pkg/ecco/cost_gencost_seaicev4.F |
126 |
COST_GENCOST_SEAICEV4 |
if (gencost_name(k).EQ.'siv4-deconc') igen_deconc=k |
|
./pkg/ecco/cost_gencost_seaicev4.F |
127 |
COST_GENCOST_SEAICEV4 |
if (gencost_name(k).EQ.'siv4-exconc') igen_exconc=k |
|
./pkg/ecco/cost_gencost_seaicev4.F |
407 |
GET_EXCONC_DECONC |
integer i,j,k |
|
./pkg/ecco/cost_gencost_seaicev4.F |
464 |
GET_EXCONC_DECONC |
do k = 1,nnzobs |
|
./pkg/ecco/cost_gencost_seaicev4.F |
468 |
GET_EXCONC_DECONC |
if ( (concbar(i,j,k,bi,bj) .LE. 0.).AND. |
|
./pkg/ecco/cost_gencost_seaicev4.F |
469 |
GET_EXCONC_DECONC |
& (localobs(i,j,k,bi,bj) .GT. 0.) ) then |
|
./pkg/ecco/cost_gencost_seaicev4.F |
471 |
GET_EXCONC_DECONC |
localfldmsk(i,j,k,bi,bj) = localmask(i,j,k,bi,bj) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
474 |
GET_EXCONC_DECONC |
localfldweight(i,j,k,bi,bj) = localnormsq |
|
./pkg/ecco/cost_gencost_seaicev4.F |
476 |
GET_EXCONC_DECONC |
localfld(i,j,k,bi,bj) = |
|
./pkg/ecco/cost_gencost_seaicev4.F |
477 |
GET_EXCONC_DECONC |
& (deconcbar(i,j,k,bi,bj)-SEAICE_freeze)*const1 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
500 |
GET_EXCONC_DECONC |
do k = 1,nnzobs |
|
./pkg/ecco/cost_gencost_seaicev4.F |
504 |
GET_EXCONC_DECONC |
if ((localobs(i,j,k,bi,bj) .LE. SEAICE_cutoff_area).AND. |
|
./pkg/ecco/cost_gencost_seaicev4.F |
505 |
GET_EXCONC_DECONC |
& (exconcbar(i,j,k,bi,bj) .GT. SEAICE_cutoff_heff)) then |
|
./pkg/ecco/cost_gencost_seaicev4.F |
507 |
GET_EXCONC_DECONC |
localfldmsk(i,j,k,bi,bj) = localmask(i,j,k,bi,bj) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
509 |
GET_EXCONC_DECONC |
localfldweight(i,j,k,bi,bj) = localnormsq |
|
./pkg/ecco/cost_gencost_seaicev4.F |
511 |
GET_EXCONC_DECONC |
localfld(i,j,k,bi,bj) = |
|
./pkg/ecco/cost_gencost_seaicev4.F |
512 |
GET_EXCONC_DECONC |
& ( (deconcbar(i,j,k,bi,bj)-SEAICE_freeze)*const1 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
514 |
GET_EXCONC_DECONC |
& - max(exconcbar(i,j,k,bi,bj),epsilonHEFF)* |
|
./pkg/ecco/cost_gencost_seaicev4.F |
516 |
GET_EXCONC_DECONC |
& - exconcbar(i,j,k,bi,bj)* |
|
./pkg/ecco/cost_gencost_seaicev4.F |
73 |
COST_GENCOST_SEAICEV4 |
integer i,j,k |
|
./pkg/ecco/cost_gencost_sshv4.F |
192 |
COST_GENCOST_SSHV4 |
do k=1,NGENCOST |
|
./pkg/ecco/cost_gencost_sshv4.F |
193 |
COST_GENCOST_SSHV4 |
if (gencost_name(k).EQ.'sshv4-mdt') igen_mdt=k |
|
./pkg/ecco/cost_gencost_sshv4.F |
194 |
COST_GENCOST_SSHV4 |
if (gencost_name(k).EQ.'sshv4-tp') igen_tp=k |
|
./pkg/ecco/cost_gencost_sshv4.F |
195 |
COST_GENCOST_SSHV4 |
if (gencost_name(k).EQ.'sshv4-ers') igen_ers=k |
|
./pkg/ecco/cost_gencost_sshv4.F |
196 |
COST_GENCOST_SSHV4 |
if (gencost_name(k).EQ.'sshv4-gfo') igen_gfo=k |
|
./pkg/ecco/cost_gencost_sshv4.F |
197 |
COST_GENCOST_SSHV4 |
if (gencost_name(k).EQ.'sshv4-lsc') igen_lsc=k |
|
./pkg/ecco/cost_gencost_sshv4.F |
198 |
COST_GENCOST_SSHV4 |
if (gencost_name(k).EQ.'sshv4-gmsl') igen_gmsl=k |
|
./pkg/ecco/cost_gencost_sshv4.F |
66 |
COST_GENCOST_SSHV4 |
integer i,j,k |
|
./pkg/ecco/cost_gencost_sstv4.F |
126 |
COST_GENCOST_SSTV4 |
do k=1,NGENCOST |
|
./pkg/ecco/cost_gencost_sstv4.F |
127 |
COST_GENCOST_SSTV4 |
if (gencost_name(k).EQ.'sstv4-amsre') kgen=k |
|
./pkg/ecco/cost_gencost_sstv4.F |
128 |
COST_GENCOST_SSTV4 |
if (gencost_name(k).EQ.'sstv4-amsre-lsc') then |
|
./pkg/ecco/cost_gencost_sstv4.F |
129 |
COST_GENCOST_SSTV4 |
kgen_lsc=k |
|
./pkg/ecco/cost_gencost_sstv4.F |
51 |
COST_GENCOST_SSTV4 |
integer i,j,k |
|
./pkg/ecco/cost_gencost_transp.F |
102 |
COST_GENCOST_TRANSP |
do k=1,NGENCOST3D |
|
./pkg/ecco/cost_gencost_transp.F |
103 |
COST_GENCOST_TRANSP |
kgen(k)=0 |
|
./pkg/ecco/cost_gencost_transp.F |
112 |
COST_GENCOST_TRANSP |
do k=1,NGENCOST |
|
./pkg/ecco/cost_gencost_transp.F |
113 |
COST_GENCOST_TRANSP |
if ( (gencost_name(k)(1:6).EQ.'transp').AND. |
|
./pkg/ecco/cost_gencost_transp.F |
114 |
COST_GENCOST_TRANSP |
& (using_gencost(k)) ) then |
|
./pkg/ecco/cost_gencost_transp.F |
116 |
COST_GENCOST_TRANSP |
kgen(icount_transp)=k |
|
./pkg/ecco/cost_gencost_transp.F |
66 |
COST_GENCOST_TRANSP |
integer i,j,k |
|
./pkg/ecco/cost_obcs_ageos.F |
162 |
COST_OBCS_AGEOS |
do k = 1,nr |
|
./pkg/ecco/cost_obcs_ageos.F |
164 |
COST_OBCS_AGEOS |
maskxzageos(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
165 |
COST_OBCS_AGEOS |
xzdvel1(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
166 |
COST_OBCS_AGEOS |
xzdvel2(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
167 |
COST_OBCS_AGEOS |
xzgrdrho(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
170 |
COST_OBCS_AGEOS |
maskyzageos(j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
171 |
COST_OBCS_AGEOS |
yzdvel1(j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
172 |
COST_OBCS_AGEOS |
yzdvel2(j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
173 |
COST_OBCS_AGEOS |
yzgrdrho(j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
229 |
COST_OBCS_AGEOS |
do k = 1,nr-1 |
|
./pkg/ecco/cost_obcs_ageos.F |
234 |
COST_OBCS_AGEOS |
maskxzageos(i,k,bi,bj) = 0. |
|
./pkg/ecco/cost_obcs_ageos.F |
236 |
COST_OBCS_AGEOS |
maskxzageos(i,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
237 |
COST_OBCS_AGEOS |
& hfacC(i,j+jp1,k,bi,bj)*hfacC(i+1,j+jp1,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
238 |
COST_OBCS_AGEOS |
& hfacC(i-1,j+jp1,k,bi,bj)*hfacC(i,j+jp1,k+1,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
239 |
COST_OBCS_AGEOS |
& hfacC(i-1,j+jp1,k+1,bi,bj)*hfacC(i+1,j+jp1,k+1,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
240 |
COST_OBCS_AGEOS |
& hfacS(i,j+jp1,k,bi,bj)*hfacS(i,j+jp1,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
245 |
COST_OBCS_AGEOS |
do k = 1,nr |
|
./pkg/ecco/cost_obcs_ageos.F |
251 |
COST_OBCS_AGEOS |
I iMin, iMax, jMin, jMax, k, |
|
./pkg/ecco/cost_obcs_ageos.F |
252 |
COST_OBCS_AGEOS |
I tbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
253 |
COST_OBCS_AGEOS |
I sbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
255 |
COST_OBCS_AGEOS |
I k, bi, bj, myThid ) |
|
./pkg/ecco/cost_obcs_ageos.F |
262 |
COST_OBCS_AGEOS |
xzgrdrho(i,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
271 |
COST_OBCS_AGEOS |
do k = 4,Nr-1 |
|
./pkg/ecco/cost_obcs_ageos.F |
275 |
COST_OBCS_AGEOS |
xzdvel1(i,k,bi,bj) = vbar(i,j+jp1,k ,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
276 |
COST_OBCS_AGEOS |
& - vbar(i,j+jp1,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
277 |
COST_OBCS_AGEOS |
xzdvel2(i,k,bi,bj)=((xzgrdrho(i,k,bi,bj)*delz(k)/2.)+ |
|
./pkg/ecco/cost_obcs_ageos.F |
278 |
COST_OBCS_AGEOS |
& (xzgrdrho(i,k+1,bi,bj)*delz(k+1)/2.)) |
|
./pkg/ecco/cost_obcs_ageos.F |
281 |
COST_OBCS_AGEOS |
fctile = fctile + 100*wcurrent(k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
282 |
COST_OBCS_AGEOS |
& maskxzageos(i,k,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
283 |
COST_OBCS_AGEOS |
& (xzdvel2(i,k,bi,bj) - xzdvel1(i,k,bi,bj))* |
|
./pkg/ecco/cost_obcs_ageos.F |
284 |
COST_OBCS_AGEOS |
& (xzdvel2(i,k,bi,bj) - xzdvel1(i,k,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
285 |
COST_OBCS_AGEOS |
if (maskxzageos(i,k,bi,bj) .ne. 0) then |
|
./pkg/ecco/cost_obcs_ageos.F |
298 |
COST_OBCS_AGEOS |
do k = 1,nr-1 |
|
./pkg/ecco/cost_obcs_ageos.F |
302 |
COST_OBCS_AGEOS |
maskxzageos(i,k,bi,bj) = 0. |
|
./pkg/ecco/cost_obcs_ageos.F |
305 |
COST_OBCS_AGEOS |
maskxzageos(i,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
306 |
COST_OBCS_AGEOS |
& hfacC(i,j+jp1,k,bi,bj)*hfacC(i+1,j+jp1,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
307 |
COST_OBCS_AGEOS |
& hfacC(i-1,j+jp1,k,bi,bj)*hfacC(i,j+jp1,k+1,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
308 |
COST_OBCS_AGEOS |
& hfacC(i-1,j+jp1,k+1,bi,bj)*hfacC(i+1,j+jp1,k+1,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
309 |
COST_OBCS_AGEOS |
& hfacS(i,j+jp1,k,bi,bj)*hfacS(i,j+jp1,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
314 |
COST_OBCS_AGEOS |
do k = 1,nr |
|
./pkg/ecco/cost_obcs_ageos.F |
320 |
COST_OBCS_AGEOS |
I iMin, iMax, jMin, jMax, k, |
|
./pkg/ecco/cost_obcs_ageos.F |
321 |
COST_OBCS_AGEOS |
I tbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
322 |
COST_OBCS_AGEOS |
I sbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
324 |
COST_OBCS_AGEOS |
I k, bi, bj, myThid ) |
|
./pkg/ecco/cost_obcs_ageos.F |
332 |
COST_OBCS_AGEOS |
xzgrdrho(i,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
339 |
COST_OBCS_AGEOS |
do k = 4,Nr-1 |
|
./pkg/ecco/cost_obcs_ageos.F |
344 |
COST_OBCS_AGEOS |
xzdvel1(i,k,bi,bj) = vbar(i,j+jp1,k ,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
345 |
COST_OBCS_AGEOS |
& - vbar(i,j+jp1,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
348 |
COST_OBCS_AGEOS |
xzdvel2(i,k,bi,bj) =((xzgrdrho(i,k,bi,bj)*delz(k)/2.)+ |
|
./pkg/ecco/cost_obcs_ageos.F |
349 |
COST_OBCS_AGEOS |
& (xzgrdrho(i,k+1,bi,bj)*delz(k+1)/2.)) |
|
./pkg/ecco/cost_obcs_ageos.F |
353 |
COST_OBCS_AGEOS |
fctile = fctile + 100*wcurrent(k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
354 |
COST_OBCS_AGEOS |
& maskxzageos(i,k,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
355 |
COST_OBCS_AGEOS |
& (xzdvel2(i,k,bi,bj) - xzdvel1(i,k,bi,bj))* |
|
./pkg/ecco/cost_obcs_ageos.F |
356 |
COST_OBCS_AGEOS |
& (xzdvel2(i,k,bi,bj) - xzdvel1(i,k,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
367 |
COST_OBCS_AGEOS |
do k = 1,nr-1 |
|
./pkg/ecco/cost_obcs_ageos.F |
372 |
COST_OBCS_AGEOS |
maskyzageos(j,k,bi,bj) = 0. |
|
./pkg/ecco/cost_obcs_ageos.F |
374 |
COST_OBCS_AGEOS |
maskyzageos(j,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
375 |
COST_OBCS_AGEOS |
& hfacC(i+ip1,j,k,bi,bj)*hfacC(i+ip1,j+1,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
376 |
COST_OBCS_AGEOS |
& hfacC(i+ip1,j-1,k,bi,bj)*hfacC(i+ip1,j,k+1,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
377 |
COST_OBCS_AGEOS |
& hfacC(i+ip1,j-1,k+1,bi,bj)*hfacC(i+ip1,j+1,k+1,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
378 |
COST_OBCS_AGEOS |
& hfacW(i+ip1,j,k,bi,bj)*hfacW(i+ip1,j,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
383 |
COST_OBCS_AGEOS |
do k = 1,nr |
|
./pkg/ecco/cost_obcs_ageos.F |
388 |
COST_OBCS_AGEOS |
I iMin, iMax, jMin, jMax, k, |
|
./pkg/ecco/cost_obcs_ageos.F |
389 |
COST_OBCS_AGEOS |
I tbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
390 |
COST_OBCS_AGEOS |
I sbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
392 |
COST_OBCS_AGEOS |
I k, bi, bj, myThid ) |
|
./pkg/ecco/cost_obcs_ageos.F |
400 |
COST_OBCS_AGEOS |
yzgrdrho(j,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
407 |
COST_OBCS_AGEOS |
do k = 4,Nr-1 |
|
./pkg/ecco/cost_obcs_ageos.F |
412 |
COST_OBCS_AGEOS |
yzdvel1(j,k,bi,bj) = ubar(i+ip1,j,k ,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
413 |
COST_OBCS_AGEOS |
& - ubar(i+ip1,j,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
416 |
COST_OBCS_AGEOS |
yzdvel2(j,k,bi,bj) =((yzgrdrho(j,k ,bi,bj)*delz(k)/2.)+ |
|
./pkg/ecco/cost_obcs_ageos.F |
417 |
COST_OBCS_AGEOS |
& (yzgrdrho(j,k+1,bi,bj)*delz(k+1)/2.)) |
|
./pkg/ecco/cost_obcs_ageos.F |
421 |
COST_OBCS_AGEOS |
fctile = fctile + 100*wcurrent(k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
422 |
COST_OBCS_AGEOS |
& maskyzageos(j,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
423 |
COST_OBCS_AGEOS |
& (yzdvel2(j,k,bi,bj) - yzdvel1(j,k,bi,bj))* |
|
./pkg/ecco/cost_obcs_ageos.F |
424 |
COST_OBCS_AGEOS |
& (yzdvel2(j,k,bi,bj) - yzdvel1(j,k,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
434 |
COST_OBCS_AGEOS |
do k = 1,nr-1 |
|
./pkg/ecco/cost_obcs_ageos.F |
438 |
COST_OBCS_AGEOS |
maskyzageos(j,k,bi,bj) =0. |
|
./pkg/ecco/cost_obcs_ageos.F |
441 |
COST_OBCS_AGEOS |
maskyzageos(j,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
442 |
COST_OBCS_AGEOS |
& hfacC(i+ip1,j,k,bi,bj)*hfacC(i+ip1,j+1,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
443 |
COST_OBCS_AGEOS |
& hfacC(i+ip1,j-1,k,bi,bj)*hfacC(i+ip1,j,k+1,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
444 |
COST_OBCS_AGEOS |
& hfacC(i+ip1,j-1,k+1,bi,bj)*hfacC(i+ip1,j+1,k+1,bi,bj)* |
|
./pkg/ecco/cost_obcs_ageos.F |
445 |
COST_OBCS_AGEOS |
& hfacW(i+ip1,j,k,bi,bj)*hfacW(i+ip1,j,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
450 |
COST_OBCS_AGEOS |
do k = 1,nr |
|
./pkg/ecco/cost_obcs_ageos.F |
455 |
COST_OBCS_AGEOS |
I iMin, iMax, jMin, jMax, k, |
|
./pkg/ecco/cost_obcs_ageos.F |
456 |
COST_OBCS_AGEOS |
I tbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
457 |
COST_OBCS_AGEOS |
I sbar(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/ecco/cost_obcs_ageos.F |
459 |
COST_OBCS_AGEOS |
I k, bi, bj, myThid ) |
|
./pkg/ecco/cost_obcs_ageos.F |
467 |
COST_OBCS_AGEOS |
yzgrdrho(j,k,bi,bj) = |
|
./pkg/ecco/cost_obcs_ageos.F |
474 |
COST_OBCS_AGEOS |
do k = 4,Nr-1 |
|
./pkg/ecco/cost_obcs_ageos.F |
479 |
COST_OBCS_AGEOS |
yzdvel1(j,k,bi,bj) = ubar(i+ip1,j,k ,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
480 |
COST_OBCS_AGEOS |
& - ubar(i+ip1,j,k+1,bi,bj) |
|
./pkg/ecco/cost_obcs_ageos.F |
483 |
COST_OBCS_AGEOS |
yzdvel2(j,k,bi,bj) =((yzgrdrho(j,k ,bi,bj)*delz(k)/2.)+ |
|
./pkg/ecco/cost_obcs_ageos.F |
484 |
COST_OBCS_AGEOS |
& (yzgrdrho(j,k+1,bi,bj)*delz(k+1)/2.)) |
|
./pkg/ecco/cost_obcs_ageos.F |
488 |
COST_OBCS_AGEOS |
fctile = fctile + 100*wcurrent(k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
489 |
COST_OBCS_AGEOS |
& maskyzageos(j,k,bi,bj) * |
|
./pkg/ecco/cost_obcs_ageos.F |
490 |
COST_OBCS_AGEOS |
& (yzdvel2(j,k,bi,bj) - yzdvel1(j,k,bi,bj))* |
|
./pkg/ecco/cost_obcs_ageos.F |
491 |
COST_OBCS_AGEOS |
& (yzdvel2(j,k,bi,bj) - yzdvel1(j,k,bi,bj)) |
|
./pkg/ecco/cost_obcs_ageos.F |
66 |
COST_OBCS_AGEOS |
integer i,j,k |
|
./pkg/ecco/cost_obcse.F |
178 |
COST_OBCSE |
do k = 1, Nr |
|
./pkg/ecco/cost_obcse.F |
182 |
COST_OBCSE |
tmpx = tmpfield(j,k,bi,bj) |
|
./pkg/ecco/cost_obcse.F |
184 |
COST_OBCSE |
fctile = fctile + wobcse(k,iobcs) |
|
./pkg/ecco/cost_obcse.F |
185 |
COST_OBCSE |
& *tmpx*tmpx*maskyz(j,k,bi,bj) |
|
./pkg/ecco/cost_obcse.F |
188 |
COST_OBCSE |
if (wobcse(k,iobcs)*maskyz(j,k,bi,bj).ne.0.) |
|
./pkg/ecco/cost_obcse.F |
78 |
COST_OBCSE |
integer j,k |
|
./pkg/ecco/cost_obcsn.F |
176 |
COST_OBCSN |
do k = 1, Nr |
|
./pkg/ecco/cost_obcsn.F |
180 |
COST_OBCSN |
tmpx = tmpfield(i,k,bi,bj) |
|
./pkg/ecco/cost_obcsn.F |
182 |
COST_OBCSN |
fctile = fctile + wobcsn(k,iobcs) |
|
./pkg/ecco/cost_obcsn.F |
183 |
COST_OBCSN |
& *tmpx*tmpx*maskxz(i,k,bi,bj) |
|
./pkg/ecco/cost_obcsn.F |
186 |
COST_OBCSN |
if (wobcsn(k,iobcs)*maskxz(i,k,bi,bj).ne.0.) |
|
./pkg/ecco/cost_obcsn.F |
78 |
COST_OBCSN |
integer i,k |
|
./pkg/ecco/cost_obcss.F |
178 |
COST_OBCSS |
do k = 1, Nr |
|
./pkg/ecco/cost_obcss.F |
182 |
COST_OBCSS |
tmpx = tmpfield(i,k,bi,bj) |
|
./pkg/ecco/cost_obcss.F |
184 |
COST_OBCSS |
fctile = fctile + wobcss(k,iobcs) |
|
./pkg/ecco/cost_obcss.F |
185 |
COST_OBCSS |
& *tmpx*tmpx*maskxz(i,k,bi,bj) |
|
./pkg/ecco/cost_obcss.F |
188 |
COST_OBCSS |
if (wobcss(k,iobcs)*maskxz(i,k,bi,bj).ne.0.) |
|
./pkg/ecco/cost_obcss.F |
78 |
COST_OBCSS |
integer i,k |
|
./pkg/ecco/cost_obcsvol.F |
215 |
COST_OBCSVOL |
do k = 1, Nr |
|
./pkg/ecco/cost_obcsvol.F |
221 |
COST_OBCSVOL |
if (maskS(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsvol.F |
223 |
COST_OBCSVOL |
fctile = fctile - tmpx* drF(k) *dxg(i,j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
224 |
COST_OBCSVOL |
& * _hFacS(i,j,k,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
257 |
COST_OBCSVOL |
do k = 1, Nr |
|
./pkg/ecco/cost_obcsvol.F |
263 |
COST_OBCSVOL |
if (maskS(i,j+1,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsvol.F |
265 |
COST_OBCSVOL |
fctile = fctile + tmpx* drF(k) *dxg(i,j+1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
266 |
COST_OBCSVOL |
& * _hFacS(i,j+1,k,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
300 |
COST_OBCSVOL |
do k = 1, Nr |
|
./pkg/ecco/cost_obcsvol.F |
306 |
COST_OBCSVOL |
if (maskW(i+1,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsvol.F |
308 |
COST_OBCSVOL |
fctile = fctile + tmpy* drF(k) *dyg(i+1,j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
309 |
COST_OBCSVOL |
& * _hFacW(i+1,j,k,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
343 |
COST_OBCSVOL |
do k = 1, Nr |
|
./pkg/ecco/cost_obcsvol.F |
349 |
COST_OBCSVOL |
if (maskW(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_obcsvol.F |
351 |
COST_OBCSVOL |
fctile = fctile - tmpy* drF(k) *dyg(i,j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
352 |
COST_OBCSVOL |
& * _hFacW(i,j,k,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
65 |
COST_OBCSVOL |
integer i,j,k |
|
./pkg/ecco/cost_obcsw.F |
176 |
COST_OBCSW |
do k = 1, Nr |
|
./pkg/ecco/cost_obcsw.F |
180 |
COST_OBCSW |
tmpx = tmpfield(j,k,bi,bj) |
|
./pkg/ecco/cost_obcsw.F |
182 |
COST_OBCSW |
fctile = fctile + wobcsw(k,iobcs) |
|
./pkg/ecco/cost_obcsw.F |
183 |
COST_OBCSW |
& *tmpx*tmpx*maskyz(j,k,bi,bj) |
|
./pkg/ecco/cost_obcsw.F |
186 |
COST_OBCSW |
if (wobcsw(k,iobcs)*maskyz(j,k,bi,bj).ne.0.) |
|
./pkg/ecco/cost_obcsw.F |
78 |
COST_OBCSW |
integer j,k |
|
./pkg/ecco/cost_sla_read.F |
139 |
COST_SLA_READ |
k = 1 |
|
./pkg/ecco/cost_sla_read.F |
142 |
COST_SLA_READ |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_sla_read.F |
44 |
COST_SLA_READ |
integer i,j,k |
|
./pkg/ecco/cost_sla_read_yd.F |
117 |
COST_SLA_READ_YD |
k = 1 |
|
./pkg/ecco/cost_sla_read_yd.F |
121 |
COST_SLA_READ_YD |
if (_hFacC(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_sla_read_yd.F |
53 |
COST_SLA_READ_YD |
integer i,j,k |
|
./pkg/ecco/ecco_check.F |
230 |
ECCO_CHECK |
do k=1,NGENCOST |
|
./pkg/ecco/ecco_check.F |
231 |
ECCO_CHECK |
IF (gencost_scalefile(k).NE.' ') THEN |
|
./pkg/ecco/ecco_check.F |
239 |
ECCO_CHECK |
IF (gencost_smooth2Ddiffnbt(k).NE.0) THEN |
|
./pkg/ecco/ecco_check.F |
247 |
ECCO_CHECK |
IF (gencost_timevaryweight(k)) THEN |
|
./pkg/ecco/ecco_check.F |
255 |
ECCO_CHECK |
IF (gencost_nrecperiod(k).NE.0) THEN |
|
./pkg/ecco/ecco_check.F |
321 |
ECCO_CHECK |
do k=1,NGENCOST |
|
./pkg/ecco/ecco_check.F |
323 |
ECCO_CHECK |
if (gencost_pointer3d(k).GT.NGENCOST3D) then |
|
./pkg/ecco/ecco_check.F |
333 |
ECCO_CHECK |
if (gencost_msk_pointer3d(k).GT.NGENCOST3D) then |
|
./pkg/ecco/ecco_check.F |
343 |
ECCO_CHECK |
if ( gencost_datafile(k) .ne. ' ' ) then |
|
./pkg/ecco/ecco_check.F |
345 |
ECCO_CHECK |
CALL ECCO_CHECK_FILES( using_gencost(k), 'gencost', |
|
./pkg/ecco/ecco_check.F |
346 |
ECCO_CHECK |
& gencost_datafile(k), gencost_startdate1(k), myThid ) |
|
./pkg/ecco/ecco_check.F |
349 |
ECCO_CHECK |
if ( (gencost_preproc(1,k).EQ.'variaweight').AND. |
|
./pkg/ecco/ecco_check.F |
350 |
ECCO_CHECK |
& ( gencost_errfile(k) .NE. ' ' ) ) then |
|
./pkg/ecco/ecco_check.F |
351 |
ECCO_CHECK |
CALL ECCO_CHECK_FILES( using_gencost(k), 'gencost', |
|
./pkg/ecco/ecco_check.F |
352 |
ECCO_CHECK |
& gencost_errfile(k), gencost_startdate1(k), myThid ) |
|
./pkg/ecco/ecco_check.F |
353 |
ECCO_CHECK |
elseif ( gencost_errfile(k) .NE. ' ' ) then |
|
./pkg/ecco/ecco_check.F |
354 |
ECCO_CHECK |
il = ilnblnk(gencost_errfile(k)) |
|
./pkg/ecco/ecco_check.F |
355 |
ECCO_CHECK |
inquire( file=gencost_errfile(k)(1:il), exist=exst ) |
|
./pkg/ecco/ecco_check.F |
357 |
ECCO_CHECK |
using_gencost(k)=.FALSE. |
|
./pkg/ecco/ecco_check.F |
358 |
ECCO_CHECK |
il = ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_check.F |
361 |
ECCO_CHECK |
& ' so ',gencost_name(k)(1:il),' gets switched off' |
|
./pkg/ecco/ecco_check.F |
369 |
ECCO_CHECK |
if (gencost_name(k).EQ.'sshv4-tp') using_tpj=using_gencost(k) |
|
./pkg/ecco/ecco_check.F |
370 |
ECCO_CHECK |
if (gencost_name(k).EQ.'sshv4-ers') using_ers=using_gencost(k) |
|
./pkg/ecco/ecco_check.F |
371 |
ECCO_CHECK |
if (gencost_name(k).EQ.'sshv4-gfo') using_gfo=using_gencost(k) |
|
./pkg/ecco/ecco_check.F |
372 |
ECCO_CHECK |
if (gencost_name(k).EQ.'sshv4-mdt') using_mdt=using_gencost(k) |
|
./pkg/ecco/ecco_check.F |
375 |
ECCO_CHECK |
if (gencost_name(k).EQ.'siv4-conc') |
|
./pkg/ecco/ecco_check.F |
376 |
ECCO_CHECK |
& using_cost_seaice=using_gencost(k) |
|
./pkg/ecco/ecco_check.F |
377 |
ECCO_CHECK |
if (gencost_name(k).EQ.'siv4-deconc') |
|
./pkg/ecco/ecco_check.F |
378 |
ECCO_CHECK |
& using_cost_seaice=using_gencost(k) |
|
./pkg/ecco/ecco_check.F |
379 |
ECCO_CHECK |
if (gencost_name(k).EQ.'siv4-exconc') |
|
./pkg/ecco/ecco_check.F |
380 |
ECCO_CHECK |
& using_cost_seaice=using_gencost(k) |
|
./pkg/ecco/ecco_check.F |
382 |
ECCO_CHECK |
if (gencost_name(k).EQ.'siv4-sst') then |
|
./pkg/ecco/ecco_check.F |
391 |
ECCO_CHECK |
if (gencost_name(k).EQ.'siv4-vol') then |
|
./pkg/ecco/ecco_check.F |
408 |
ECCO_CHECK |
if(gencost_flag(k).eq. -1) then |
|
./pkg/ecco/ecco_check.F |
409 |
ECCO_CHECK |
if(gencost_errfile(k) .ne. ' ') then |
|
./pkg/ecco/ecco_check.F |
410 |
ECCO_CHECK |
il = ilnblnk(gencost_errfile(k)) |
|
./pkg/ecco/ecco_check.F |
411 |
ECCO_CHECK |
inquire( file=gencost_errfile(k)(1:il), exist=exst ) |
|
./pkg/ecco/ecco_check.F |
413 |
ECCO_CHECK |
using_gencost(k)=.FALSE. |
|
./pkg/ecco/ecco_check.F |
414 |
ECCO_CHECK |
il = ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_check.F |
417 |
ECCO_CHECK |
& ' so ',gencost_name(k)(1:il),' gets switched off' |
|
./pkg/ecco/ecco_check.F |
421 |
ECCO_CHECK |
elseif(.not.(gencost_name(k).eq.'sshv4-gmsl')) then |
|
./pkg/ecco/ecco_check.F |
422 |
ECCO_CHECK |
using_gencost(k)=.FALSE. |
|
./pkg/ecco/ecco_check.F |
423 |
ECCO_CHECK |
il = ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_check.F |
426 |
ECCO_CHECK |
& ' so ',gencost_name(k)(1:il),' gets switched off' |
|
./pkg/ecco/ecco_check.F |
434 |
ECCO_CHECK |
elseif(gencost_flag(k) .eq. -3 ) then |
|
./pkg/ecco/ecco_check.F |
437 |
ECCO_CHECK |
& k,using_gencost(k) |
|
./pkg/ecco/ecco_check.F |
441 |
ECCO_CHECK |
if(gencost_errfile(k) .ne. ' ') then |
|
./pkg/ecco/ecco_check.F |
449 |
ECCO_CHECK |
if(gencost_mask(k) .eq. ' ') then |
|
./pkg/ecco/ecco_check.F |
450 |
ECCO_CHECK |
using_gencost(k)=.FALSE. |
|
./pkg/ecco/ecco_check.F |
451 |
ECCO_CHECK |
il = ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_check.F |
454 |
ECCO_CHECK |
& ' undefined so ',gencost_name(k)(1:il), |
|
./pkg/ecco/ecco_check.F |
460 |
ECCO_CHECK |
if ((gencost_mask(k) .ne. ' ').AND. |
|
./pkg/ecco/ecco_check.F |
461 |
ECCO_CHECK |
& (gencost_barfile(k)(1:9).EQ.'m_boxmean')) then |
|
./pkg/ecco/ecco_check.F |
462 |
ECCO_CHECK |
il = ilnblnk(gencost_mask(k)) |
|
./pkg/ecco/ecco_check.F |
463 |
ECCO_CHECK |
write(tempfile(1:128),'(2A)') gencost_mask(k)(1:il),'C' |
|
./pkg/ecco/ecco_check.F |
466 |
ECCO_CHECK |
using_gencost(k)=.FALSE. |
|
./pkg/ecco/ecco_check.F |
467 |
ECCO_CHECK |
il = ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_check.F |
470 |
ECCO_CHECK |
& ' so ',gencost_name(k)(1:il),' gets switched off' |
|
./pkg/ecco/ecco_check.F |
476 |
ECCO_CHECK |
if ((gencost_mask(k) .ne. ' ').AND. |
|
./pkg/ecco/ecco_check.F |
477 |
ECCO_CHECK |
& (gencost_barfile(k)(1:9).EQ.'m_horflux')) then |
|
./pkg/ecco/ecco_check.F |
478 |
ECCO_CHECK |
il = ilnblnk(gencost_mask(k)) |
|
./pkg/ecco/ecco_check.F |
479 |
ECCO_CHECK |
write(tempfile(1:128),'(2A)') gencost_mask(k)(1:il),'W' |
|
./pkg/ecco/ecco_check.F |
482 |
ECCO_CHECK |
using_gencost(k)=.FALSE. |
|
./pkg/ecco/ecco_check.F |
483 |
ECCO_CHECK |
il = ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_check.F |
486 |
ECCO_CHECK |
& ' so ',gencost_name(k)(1:il),' gets switched off' |
|
./pkg/ecco/ecco_check.F |
491 |
ECCO_CHECK |
il = ilnblnk(gencost_mask(k)) |
|
./pkg/ecco/ecco_check.F |
492 |
ECCO_CHECK |
write(tempfile(1:128),'(2A)') gencost_mask(k)(1:il),'S' |
|
./pkg/ecco/ecco_check.F |
495 |
ECCO_CHECK |
using_gencost(k)=.FALSE. |
|
./pkg/ecco/ecco_check.F |
496 |
ECCO_CHECK |
il = ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_check.F |
499 |
ECCO_CHECK |
& ' so ',gencost_name(k)(1:il),' gets switched off' |
|
./pkg/ecco/ecco_check.F |
508 |
ECCO_CHECK |
& (gencost_barfile(k)(1:15).EQ.'m_boxmean_theta').OR. |
|
./pkg/ecco/ecco_check.F |
509 |
ECCO_CHECK |
& (gencost_barfile(k)(1:13).EQ.'m_boxmean_eta').OR. |
|
./pkg/ecco/ecco_check.F |
510 |
ECCO_CHECK |
& (gencost_barfile(k)(1:14).EQ.'m_boxmean_salt').OR. |
|
./pkg/ecco/ecco_check.F |
511 |
ECCO_CHECK |
& (gencost_barfile(k)(1:17).EQ.'m_boxmean_ptracer').OR. |
|
./pkg/ecco/ecco_check.F |
512 |
ECCO_CHECK |
& (gencost_barfile(k)(1:14).EQ.'m_horflux_vol') |
|
./pkg/ecco/ecco_check.F |
514 |
ECCO_CHECK |
using_gencost(k)=.FALSE. |
|
./pkg/ecco/ecco_check.F |
515 |
ECCO_CHECK |
il=ilnblnk(gencost_barfile(k)) |
|
./pkg/ecco/ecco_check.F |
518 |
ECCO_CHECK |
& gencost_barfile(k)(1:il),': has no matched model var.' |
|
./pkg/ecco/ecco_check.F |
524 |
ECCO_CHECK |
il = ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_check.F |
525 |
ECCO_CHECK |
WRITE(msgBuf,'(2A)') gencost_name(k)(1:il),' is switched off' |
|
./pkg/ecco/ecco_check.F |
533 |
ECCO_CHECK |
elseif ( gencost_flag(k).eq. -4 ) then |
|
./pkg/ecco/ecco_check.F |
536 |
ECCO_CHECK |
& k,using_gencost(k) |
|
./pkg/ecco/ecco_check.F |
540 |
ECCO_CHECK |
if ( gencost_errfile(k) .NE. ' ' ) then |
|
./pkg/ecco/ecco_check.F |
542 |
ECCO_CHECK |
il = ilnblnk(gencost_errfile(k)) |
|
./pkg/ecco/ecco_check.F |
543 |
ECCO_CHECK |
write(tempfile(1:128),'(2A)') gencost_errfile(k)(1:il),'W' |
|
./pkg/ecco/ecco_check.F |
54 |
ECCO_CHECK |
INTEGER bi, bj, i, j, k |
|
./pkg/ecco/ecco_check.F |
550 |
ECCO_CHECK |
using_gencost(k)=.FALSE. |
|
./pkg/ecco/ecco_check.F |
556 |
ECCO_CHECK |
il = ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_check.F |
558 |
ECCO_CHECK |
& ' so ',gencost_name(k)(1:il),' gets switched off' |
|
./pkg/ecco/ecco_check.F |
573 |
ECCO_CHECK |
& gencost_mskWsurf(1-olx,1-oly,1,1,k),1,mythid) |
|
./pkg/ecco/ecco_check.F |
576 |
ECCO_CHECK |
il = ilnblnk(gencost_errfile(k)) |
|
./pkg/ecco/ecco_check.F |
577 |
ECCO_CHECK |
write(tempfile(1:128),'(2A)') gencost_errfile(k)(1:il),'S' |
|
./pkg/ecco/ecco_check.F |
584 |
ECCO_CHECK |
using_gencost(k)=.FALSE. |
|
./pkg/ecco/ecco_check.F |
590 |
ECCO_CHECK |
il = ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_check.F |
592 |
ECCO_CHECK |
& ' so ',gencost_name(k)(1:il),' gets switched off' |
|
./pkg/ecco/ecco_check.F |
601 |
ECCO_CHECK |
& gencost_mskSsurf(1-olx,1-oly,1,1,k),1,mythid) |
|
./pkg/ecco/ecco_check.F |
604 |
ECCO_CHECK |
using_gencost(k)=.FALSE. |
|
./pkg/ecco/ecco_check.F |
605 |
ECCO_CHECK |
il=ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_check.F |
608 |
ECCO_CHECK |
& ' so ',gencost_name(k)(1:il),' gets switched off' |
|
./pkg/ecco/ecco_check.F |
615 |
ECCO_CHECK |
if(.not.( (gencost_barfile(k)(1:7).EQ.'m_trVol') .OR. |
|
./pkg/ecco/ecco_check.F |
616 |
ECCO_CHECK |
& (gencost_barfile(k)(1:8).EQ.'m_trHeat').OR. |
|
./pkg/ecco/ecco_check.F |
617 |
ECCO_CHECK |
& (gencost_barfile(k)(1:8).EQ.'m_trSalt') )) then |
|
./pkg/ecco/ecco_check.F |
618 |
ECCO_CHECK |
using_gencost(k)=.FALSE. |
|
./pkg/ecco/ecco_check.F |
619 |
ECCO_CHECK |
il=ilnblnk(gencost_barfile(k)) |
|
./pkg/ecco/ecco_check.F |
622 |
ECCO_CHECK |
& gencost_barfile(k)(1:il),': has no matched model var.' |
|
./pkg/ecco/ecco_check.F |
628 |
ECCO_CHECK |
il = ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_check.F |
629 |
ECCO_CHECK |
WRITE(msgBuf,'(2A)') gencost_name(k)(1:il),' is switched off' |
|
./pkg/ecco/ecco_check.F |
634 |
ECCO_CHECK |
if(using_gencost(k)) icount_transp=icount_transp+1 |
|
./pkg/ecco/ecco_check.F |
64 |
ECCO_CHECK |
do k = 1,nr |
|
./pkg/ecco/ecco_check.F |
652 |
ECCO_CHECK |
do k=1,NGENCOST |
|
./pkg/ecco/ecco_check.F |
653 |
ECCO_CHECK |
if ( (gencost_barfile(k)(1:5).EQ.'m_eta').AND. |
|
./pkg/ecco/ecco_check.F |
654 |
ECCO_CHECK |
& (using_gencost(k)) ) igen_etaday=k |
|
./pkg/ecco/ecco_check.F |
67 |
ECCO_CHECK |
eccoVol_0(i,j,k,bi,bj)= |
|
./pkg/ecco/ecco_check.F |
68 |
ECCO_CHECK |
& hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
146 |
ECCO_COST_INIT_BARFILES |
do k = 1,nr |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
149 |
ECCO_COST_INIT_BARFILES |
tmpfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
466 |
ECCO_COST_INIT_BARFILES |
do k=1,NGENCOST |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
467 |
ECCO_COST_INIT_BARFILES |
if ( .NOT.gencost_barskip(k) ) then |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
468 |
ECCO_COST_INIT_BARFILES |
ilt=ilnblnk( gencost_barfile(k) ) |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
470 |
ECCO_COST_INIT_BARFILES |
& gencost_barfile(k)(1:ilt), '.', eccoiter |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
475 |
ECCO_COST_INIT_BARFILES |
& yadprefix, gencost_barfile(k)(1:ilt), '.', eccoiter |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
476 |
ECCO_COST_INIT_BARFILES |
do irec = 1,gencost_nrec(k) |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
478 |
ECCO_COST_INIT_BARFILES |
if (.NOT.gencost_is3d(k)) |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
480 |
ECCO_COST_INIT_BARFILES |
& eccoiter, mythid, gencost_dummy(k) ) |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
481 |
ECCO_COST_INIT_BARFILES |
if (gencost_is3d(k)) |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
483 |
ECCO_COST_INIT_BARFILES |
& eccoiter, mythid, gencost_dummy(k) ) |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
60 |
ECCO_COST_INIT_BARFILES |
integer i,j,k |
|
./pkg/ecco/ecco_cost_init_fixed.F |
170 |
ECCO_COST_INIT_FIXED |
do k = 1, NGENCOST |
|
./pkg/ecco/ecco_cost_init_fixed.F |
174 |
ECCO_COST_INIT_FIXED |
gencost_barskip(k)=.FALSE. |
|
./pkg/ecco/ecco_cost_init_fixed.F |
175 |
ECCO_COST_INIT_FIXED |
if ( gencost_barfile(k).EQ.' ' ) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
176 |
ECCO_COST_INIT_FIXED |
& gencost_barskip(k)=.TRUE. |
|
./pkg/ecco/ecco_cost_init_fixed.F |
177 |
ECCO_COST_INIT_FIXED |
do k2 = 1,k-1 |
|
./pkg/ecco/ecco_cost_init_fixed.F |
178 |
ECCO_COST_INIT_FIXED |
if ( gencost_barfile(k2).EQ.gencost_barfile(k) ) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
179 |
ECCO_COST_INIT_FIXED |
& gencost_barskip(k)=.TRUE. |
|
./pkg/ecco/ecco_cost_init_fixed.F |
183 |
ECCO_COST_INIT_FIXED |
if ( (using_gencost(k)).AND.( (gencost_flag(k).GE.1).OR. |
|
./pkg/ecco/ecco_cost_init_fixed.F |
184 |
ECCO_COST_INIT_FIXED |
& (gencost_avgperiod(k).NE.' ') ) ) then |
|
./pkg/ecco/ecco_cost_init_fixed.F |
185 |
ECCO_COST_INIT_FIXED |
if ( gencost_avgperiod(k) .EQ. 'day' .OR. |
|
./pkg/ecco/ecco_cost_init_fixed.F |
186 |
ECCO_COST_INIT_FIXED |
& gencost_avgperiod(k) .EQ. 'DAY' ) then |
|
./pkg/ecco/ecco_cost_init_fixed.F |
187 |
ECCO_COST_INIT_FIXED |
gencost_nrec(k) = ndaysrec |
|
./pkg/ecco/ecco_cost_init_fixed.F |
188 |
ECCO_COST_INIT_FIXED |
gencost_period(k) = 86400. |
|
./pkg/ecco/ecco_cost_init_fixed.F |
189 |
ECCO_COST_INIT_FIXED |
else if ( gencost_avgperiod(k) .EQ. 'month' .OR. |
|
./pkg/ecco/ecco_cost_init_fixed.F |
190 |
ECCO_COST_INIT_FIXED |
& gencost_avgperiod(k) .EQ. 'MONTH' ) then |
|
./pkg/ecco/ecco_cost_init_fixed.F |
191 |
ECCO_COST_INIT_FIXED |
gencost_nrec(k) =nmonsrec |
|
./pkg/ecco/ecco_cost_init_fixed.F |
192 |
ECCO_COST_INIT_FIXED |
gencost_period(k) = 0. |
|
./pkg/ecco/ecco_cost_init_fixed.F |
193 |
ECCO_COST_INIT_FIXED |
else if ( gencost_avgperiod(k) .EQ. 'step' .OR. |
|
./pkg/ecco/ecco_cost_init_fixed.F |
194 |
ECCO_COST_INIT_FIXED |
& gencost_avgperiod(k) .EQ. 'STEP' ) then |
|
./pkg/ecco/ecco_cost_init_fixed.F |
195 |
ECCO_COST_INIT_FIXED |
gencost_nrec(k) =nTimeSteps+1 |
|
./pkg/ecco/ecco_cost_init_fixed.F |
196 |
ECCO_COST_INIT_FIXED |
gencost_period(k) = dTtracerLev(1) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
197 |
ECCO_COST_INIT_FIXED |
else if ( gencost_avgperiod(k) .EQ. 'const' .OR. |
|
./pkg/ecco/ecco_cost_init_fixed.F |
198 |
ECCO_COST_INIT_FIXED |
& gencost_avgperiod(k) .EQ. 'CONST' ) then |
|
./pkg/ecco/ecco_cost_init_fixed.F |
199 |
ECCO_COST_INIT_FIXED |
gencost_nrec(k) =1 |
|
./pkg/ecco/ecco_cost_init_fixed.F |
200 |
ECCO_COST_INIT_FIXED |
gencost_period(k) = dTtracerLev(1) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
201 |
ECCO_COST_INIT_FIXED |
else if ( gencost_avgperiod(k) .EQ. 'year' .OR. |
|
./pkg/ecco/ecco_cost_init_fixed.F |
202 |
ECCO_COST_INIT_FIXED |
& gencost_avgperiod(k) .EQ. 'YEAR' ) then |
|
./pkg/ecco/ecco_cost_init_fixed.F |
212 |
ECCO_COST_INIT_FIXED |
if (gencost_startdate1(k).GT.0) then |
|
./pkg/ecco/ecco_cost_init_fixed.F |
214 |
ECCO_COST_INIT_FIXED |
& gencost_startdate1(k), gencost_startdate2(k), |
|
./pkg/ecco/ecco_cost_init_fixed.F |
215 |
ECCO_COST_INIT_FIXED |
& gencost_startdate(1,k), mythid ) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
218 |
ECCO_COST_INIT_FIXED |
& gencost_startdate(1,k),mythid) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
219 |
ECCO_COST_INIT_FIXED |
gencost_startdate1(k)=startdate_1 |
|
./pkg/ecco/ecco_cost_init_fixed.F |
220 |
ECCO_COST_INIT_FIXED |
gencost_startdate2(k)=startdate_2 |
|
./pkg/ecco/ecco_cost_init_fixed.F |
223 |
ECCO_COST_INIT_FIXED |
if (gencost_enddate1(k).GT.0) then |
|
./pkg/ecco/ecco_cost_init_fixed.F |
225 |
ECCO_COST_INIT_FIXED |
& gencost_enddate1(k), gencost_enddate2(k), |
|
./pkg/ecco/ecco_cost_init_fixed.F |
226 |
ECCO_COST_INIT_FIXED |
& gencost_enddate(1,k), mythid ) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
229 |
ECCO_COST_INIT_FIXED |
& gencost_enddate(1,k),mythid) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
233 |
ECCO_COST_INIT_FIXED |
if ( (gencost_name(k).EQ.'gmbp') .OR. |
|
./pkg/ecco/ecco_cost_init_fixed.F |
234 |
ECCO_COST_INIT_FIXED |
& (gencost_name(k).EQ.'gmsl')) then |
|
./pkg/ecco/ecco_cost_init_fixed.F |
235 |
ECCO_COST_INIT_FIXED |
if(gencost_nrec(k).GT.N1DDATA)then |
|
./pkg/ecco/ecco_cost_init_fixed.F |
237 |
ECCO_COST_INIT_FIXED |
& 'Increase N1DDATA', N1DDATA, gencost_nrec(k) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
242 |
ECCO_COST_INIT_FIXED |
gencost_1DDATA(irec,k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_fixed.F |
245 |
ECCO_COST_INIT_FIXED |
if(gencost_wei1d(k).NE.0. _d 0)then |
|
./pkg/ecco/ecco_cost_init_fixed.F |
246 |
ECCO_COST_INIT_FIXED |
gencost_wei1d(k) = 1. _d 0 / gencost_wei1d(k) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
247 |
ECCO_COST_INIT_FIXED |
& /gencost_wei1d(k) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
250 |
ECCO_COST_INIT_FIXED |
if ( gencost_datafile(k) .NE. ' ' ) then |
|
./pkg/ecco/ecco_cost_init_fixed.F |
251 |
ECCO_COST_INIT_FIXED |
ilo = ifnblnk(gencost_datafile(k)) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
252 |
ECCO_COST_INIT_FIXED |
ihi = ilnblnk(gencost_datafile(k)) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
255 |
ECCO_COST_INIT_FIXED |
I gencost_datafile(k)(ilo:ihi), |
|
./pkg/ecco/ecco_cost_init_fixed.F |
259 |
ECCO_COST_INIT_FIXED |
do irec = 1, gencost_nrec(k) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
260 |
ECCO_COST_INIT_FIXED |
read(gwunit,*) gencost_1DDATA(irec,k) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
61 |
ECCO_COST_INIT_FIXED |
integer k |