| File |
Line number |
Procedure |
Code |
|
./pkg/admtlm/admtlm_dsvd2model.F |
222 |
ADMTLM_DSVD2MODEL |
read(cunit) (filenWetcGlobal(k), k=1,nr) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
223 |
ADMTLM_DSVD2MODEL |
read(cunit) (filenWetsGlobal(k), k=1,nr) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
224 |
ADMTLM_DSVD2MODEL |
read(cunit) (filenWetwGlobal(k), k=1,nr) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
226 |
ADMTLM_DSVD2MODEL |
read(cunit) (filenWetvGlobal(k), k=1,nr) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
231 |
ADMTLM_DSVD2MODEL |
read(cunit) ((filenWetobcsnGlo(k,iobcs), |
|
./pkg/admtlm/admtlm_dsvd2model.F |
232 |
ADMTLM_DSVD2MODEL |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
235 |
ADMTLM_DSVD2MODEL |
read(cunit) ((filenWetobcssGlo(k,iobcs), |
|
./pkg/admtlm/admtlm_dsvd2model.F |
236 |
ADMTLM_DSVD2MODEL |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
239 |
ADMTLM_DSVD2MODEL |
read(cunit) ((filenWetobcswGlo(k,iobcs), |
|
./pkg/admtlm/admtlm_dsvd2model.F |
240 |
ADMTLM_DSVD2MODEL |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
243 |
ADMTLM_DSVD2MODEL |
read(cunit) ((filenWetobcseGlo(k,iobcs), |
|
./pkg/admtlm/admtlm_dsvd2model.F |
244 |
ADMTLM_DSVD2MODEL |
& k=1,nr), iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
266 |
ADMTLM_DSVD2MODEL |
do k = 1, nr |
|
./pkg/admtlm/admtlm_dsvd2model.F |
267 |
ADMTLM_DSVD2MODEL |
if ( filenWetcGlobal(k) .NE. nWetcGlobal(k) .OR. |
|
./pkg/admtlm/admtlm_dsvd2model.F |
268 |
ADMTLM_DSVD2MODEL |
& filenWetsGlobal(k) .NE. nWetsGlobal(k) .OR. |
|
./pkg/admtlm/admtlm_dsvd2model.F |
269 |
ADMTLM_DSVD2MODEL |
& filenWetwGlobal(k) .NE. nWetwGlobal(k) .OR. |
|
./pkg/admtlm/admtlm_dsvd2model.F |
270 |
ADMTLM_DSVD2MODEL |
& filenWetvGlobal(k) .NE. nWetvGlobal(k) ) then |
|
./pkg/admtlm/admtlm_dsvd2model.F |
271 |
ADMTLM_DSVD2MODEL |
print *, 'WARNING: wrong nWet?Global for k = ', k |
|
./pkg/admtlm/admtlm_dsvd2model.F |
280 |
ADMTLM_DSVD2MODEL |
do k = 1, nr |
|
./pkg/admtlm/admtlm_dsvd2model.F |
281 |
ADMTLM_DSVD2MODEL |
if (filenWetobcsnGlo(k,iobcs) .NE. |
|
./pkg/admtlm/admtlm_dsvd2model.F |
282 |
ADMTLM_DSVD2MODEL |
& nWetobcsnGlo(k,iobcs)) then |
|
./pkg/admtlm/admtlm_dsvd2model.F |
283 |
ADMTLM_DSVD2MODEL |
print *, 'WARNING: OBCSN wrong nWet?Global for k = ', k |
|
./pkg/admtlm/admtlm_dsvd2model.F |
292 |
ADMTLM_DSVD2MODEL |
do k = 1, nr |
|
./pkg/admtlm/admtlm_dsvd2model.F |
293 |
ADMTLM_DSVD2MODEL |
if (filenWetobcssGlo(k,iobcs) .NE. |
|
./pkg/admtlm/admtlm_dsvd2model.F |
294 |
ADMTLM_DSVD2MODEL |
& nWetobcssGlo(k,iobcs)) then |
|
./pkg/admtlm/admtlm_dsvd2model.F |
295 |
ADMTLM_DSVD2MODEL |
print *, 'WARNING: OBCSS wrong nWet?Global for k = ', k |
|
./pkg/admtlm/admtlm_dsvd2model.F |
304 |
ADMTLM_DSVD2MODEL |
do k = 1, nr |
|
./pkg/admtlm/admtlm_dsvd2model.F |
305 |
ADMTLM_DSVD2MODEL |
if (filenWetobcswGlo(k,iobcs) .NE. |
|
./pkg/admtlm/admtlm_dsvd2model.F |
306 |
ADMTLM_DSVD2MODEL |
& nWetobcswGlo(k,iobcs)) then |
|
./pkg/admtlm/admtlm_dsvd2model.F |
307 |
ADMTLM_DSVD2MODEL |
print *, 'WARNING: OBCSW wrong nWet?Global for k = ', k |
|
./pkg/admtlm/admtlm_dsvd2model.F |
316 |
ADMTLM_DSVD2MODEL |
do k = 1, nr |
|
./pkg/admtlm/admtlm_dsvd2model.F |
317 |
ADMTLM_DSVD2MODEL |
if (filenWetobcseGlo(k,iobcs) .NE. |
|
./pkg/admtlm/admtlm_dsvd2model.F |
318 |
ADMTLM_DSVD2MODEL |
& nWetobcseGlo(k,iobcs)) then |
|
./pkg/admtlm/admtlm_dsvd2model.F |
319 |
ADMTLM_DSVD2MODEL |
print *, 'WARNING: OBCSE wrong nWet?Global for k = ', k |
|
./pkg/admtlm/admtlm_dsvd2model.F |
71 |
ADMTLM_DSVD2MODEL |
integer i, j, k |
|
./pkg/admtlm/admtlm_model2dsvd.F |
214 |
ADMTLM_MODEL2DSVD |
write(cunit) (nWetcGlobal(k), k=1,nr) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
215 |
ADMTLM_MODEL2DSVD |
write(cunit) (nWetsGlobal(k), k=1,nr) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
216 |
ADMTLM_MODEL2DSVD |
write(cunit) (nWetwGlobal(k), k=1,nr) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
218 |
ADMTLM_MODEL2DSVD |
write(cunit) (nWetvGlobal(k), k=1,nr) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
222 |
ADMTLM_MODEL2DSVD |
write(cunit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
225 |
ADMTLM_MODEL2DSVD |
write(cunit) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
228 |
ADMTLM_MODEL2DSVD |
write(cunit) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
231 |
ADMTLM_MODEL2DSVD |
write(cunit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
68 |
ADMTLM_MODEL2DSVD |
integer i, j, k |
|
./pkg/admtlm/admtlm_metric.F |
29 |
ADMTLM_METRIC |
integer i, j, k |
|
./pkg/admtlm/admtlm_metric.F |
53 |
ADMTLM_METRIC |
DO k=1,Nr |
|
./pkg/admtlm/admtlm_metric.F |
55 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,k+0*Nr)**2/stdDevtheta**2 |
|
./pkg/admtlm/admtlm_metric.F |
56 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,k+1*Nr)**2/stdDevsalt**2 |
|
./pkg/admtlm/admtlm_metric.F |
57 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,k+2*Nr)**2/stdDevuvel**2 |
|
./pkg/admtlm/admtlm_metric.F |
58 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,k+3*Nr)**2/stdDevvvel**2 |
|
./pkg/admtlm/admtlm_bypassad.F |
111 |
ADMTLM_BYPASSAD |
do k = 1, nr |
|
./pkg/admtlm/admtlm_bypassad.F |
114 |
ADMTLM_BYPASSAD |
tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
115 |
ADMTLM_BYPASSAD |
& + advvel(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
129 |
ADMTLM_BYPASSAD |
do k = 1, nr |
|
./pkg/admtlm/admtlm_bypassad.F |
132 |
ADMTLM_BYPASSAD |
tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
133 |
ADMTLM_BYPASSAD |
& + aduvel(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
147 |
ADMTLM_BYPASSAD |
do k = 1, nr |
|
./pkg/admtlm/admtlm_bypassad.F |
150 |
ADMTLM_BYPASSAD |
tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
151 |
ADMTLM_BYPASSAD |
& + adsalt(i,j,k,bi,bj)*fac |
|
./pkg/admtlm/admtlm_bypassad.F |
165 |
ADMTLM_BYPASSAD |
do k = 1, nr |
|
./pkg/admtlm/admtlm_bypassad.F |
168 |
ADMTLM_BYPASSAD |
tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
169 |
ADMTLM_BYPASSAD |
& + adtheta(i,j,k,bi,bj)*fac |
|
./pkg/admtlm/admtlm_bypassad.F |
31 |
ADMTLM_BYPASSAD |
integer i, j, k |
|
./pkg/admtlm/admtlm_bypassad.F |
74 |
ADMTLM_BYPASSAD |
DO k=1,Nr |
|
./pkg/admtlm/admtlm_bypassad.F |
75 |
ADMTLM_BYPASSAD |
adtheta(i,j,k,bi,bj) = |
|
./pkg/admtlm/admtlm_bypassad.F |
76 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,k) |
|
./pkg/admtlm/admtlm_bypassad.F |
77 |
ADMTLM_BYPASSAD |
adsalt(i,j,k,bi,bj) = |
|
./pkg/admtlm/admtlm_bypassad.F |
78 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,1*Nr+k) |
|
./pkg/admtlm/admtlm_bypassad.F |
79 |
ADMTLM_BYPASSAD |
aduvel(i,j,k,bi,bj) = |
|
./pkg/admtlm/admtlm_bypassad.F |
80 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,2*Nr+k) |
|
./pkg/admtlm/admtlm_bypassad.F |
81 |
ADMTLM_BYPASSAD |
advvel(i,j,k,bi,bj) = |
|
./pkg/admtlm/admtlm_bypassad.F |
82 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,3*Nr+k) |
|
./pkg/admtlm/admtlm_map.F |
26 |
ADMTLM_MAP |
integer i, j, k |
|
./pkg/admtlm/admtlm_map.F |
33 |
ADMTLM_MAP |
DO k=1,4*Nr |
|
./pkg/admtlm/admtlm_map.F |
34 |
ADMTLM_MAP |
adobjf_state_final(i,j,bi,bj,k) = |
|
./pkg/admtlm/admtlm_map.F |
35 |
ADMTLM_MAP |
& g_objf_state_final(i,j,bi,bj,k) |
|
./pkg/ebm/ebm_zonalmean.F |
42 |
EBM_ZONALMEAN |
INTEGER i, j, k, bi, bj |
|
./pkg/ebm/ebm_zonalmean.F |
47 |
EBM_ZONALMEAN |
k = 1 |
|
./pkg/ebm/ebm_zonalmean.F |
65 |
EBM_ZONALMEAN |
& theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_zonalmean.F |
67 |
EBM_ZONALMEAN |
& maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_wind_perturb.F |
114 |
EBM_WIND_PERTURB |
winPert(i,j,bi,bj) = maskW(i,j,k,bi,bj)* |
|
./pkg/ebm/ebm_ini_vars.F |
34 |
EBM_INI_VARS |
INTEGER bi,bj,i,j,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/ebm/ebm_area_t.F |
103 |
EBM_AREA_T |
& theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
105 |
EBM_AREA_T |
& maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
41 |
EBM_AREA_T |
INTEGER i, j, k, bi, bj |
|
./pkg/ebm/ebm_area_t.F |
56 |
EBM_AREA_T |
k = 1 |
|
./pkg/ebm/ebm_area_t.F |
85 |
EBM_AREA_T |
& theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
87 |
EBM_AREA_T |
& maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
91 |
EBM_AREA_T |
& theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
93 |
EBM_AREA_T |
& maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
97 |
EBM_AREA_T |
& theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
99 |
EBM_AREA_T |
& maskC(i,j,k,bi,bj) |
|
./pkg/exf/exf_radiation.F |
40 |
EXF_RADIATION |
integer i,j,k |
|
./pkg/exf/exf_radiation.F |
54 |
EXF_RADIATION |
k = 1 |
|
./pkg/exf/exf_radiation.F |
68 |
EXF_RADIATION |
& ((theta(i,j,k,bi,bj)+cen2kel)**4) |
|
./pkg/exf/exf_radiation.F |
73 |
EXF_RADIATION |
& ((theta(i,j,k,bi,bj)+cen2kel)**4) |
|
./pkg/exf/exf_getforcing.F |
152 |
EXF_GETFORCING |
integer i,j,k |
|
./pkg/exf/exf_getforcing.F |
185 |
EXF_GETFORCING |
k = 1 |
|
./pkg/exf/exf_set_obcs.F |
139 |
EXF_SET_OBCS_YZ |
integer j, k |
|
./pkg/exf/exf_set_obcs.F |
161 |
EXF_SET_OBCS_YZ |
do k = 1,Nr |
|
./pkg/exf/exf_set_obcs.F |
163 |
EXF_SET_OBCS_YZ |
obcs_fld_yz(j,k,bi,bj) = |
|
./pkg/exf/exf_set_obcs.F |
164 |
EXF_SET_OBCS_YZ |
& fac *obcs_yz_0(j,k,bi,bj) + |
|
./pkg/exf/exf_set_obcs.F |
165 |
EXF_SET_OBCS_YZ |
& (exf_one - fac) *obcs_yz_1(j,k,bi,bj) |
|
./pkg/exf/exf_set_obcs.F |
53 |
EXF_SET_OBCS_XZ |
integer i, k |
|
./pkg/exf/exf_set_obcs.F |
75 |
EXF_SET_OBCS_XZ |
do k = 1,Nr |
|
./pkg/exf/exf_set_obcs.F |
77 |
EXF_SET_OBCS_XZ |
obcs_fld_xz(i,k,bi,bj) = |
|
./pkg/exf/exf_set_obcs.F |
78 |
EXF_SET_OBCS_XZ |
& fac * obcs_xz_0(i,k,bi,bj) + |
|
./pkg/exf/exf_set_obcs.F |
79 |
EXF_SET_OBCS_XZ |
& (exf_one - fac) * obcs_xz_1(i,k,bi,bj) |
|
./pkg/exf/exf_monitor.F |
48 |
EXF_MONITOR |
INTEGER k |
|
./pkg/exf/exf_monitor.F |
69 |
EXF_MONITOR |
DO k = 1,MAX_LEN_MBUF |
|
./pkg/exf/exf_monitor.F |
70 |
EXF_MONITOR |
mon_fname(k:k) = ' ' |
|
./pkg/exf/exf_swapffields.F |
110 |
EXF_SWAPFFIELDS_3D |
integer k |
|
./pkg/exf/exf_swapffields.F |
123 |
EXF_SWAPFFIELDS_3D |
do k = 1,nr |
|
./pkg/exf/exf_swapffields.F |
126 |
EXF_SWAPFFIELDS_3D |
ffld0(i,j,k,bi,bj) = ffld1(i,j,k,bi,bj) |
|
./pkg/exf/exf_swapffields.F |
127 |
EXF_SWAPFFIELDS_3D |
ffld1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
170 |
EXF_SWAPFFIELDS_XZ |
integer i, k |
|
./pkg/exf/exf_swapffields.F |
183 |
EXF_SWAPFFIELDS_XZ |
do k = 1,Nr |
|
./pkg/exf/exf_swapffields.F |
185 |
EXF_SWAPFFIELDS_XZ |
ffld0(i,k,bi,bj) = ffld1(i,k,bi,bj) |
|
./pkg/exf/exf_swapffields.F |
186 |
EXF_SWAPFFIELDS_XZ |
ffld1(i,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
228 |
EXF_SWAPFFIELDS_YZ |
integer j, k |
|
./pkg/exf/exf_swapffields.F |
241 |
EXF_SWAPFFIELDS_YZ |
do k = 1,Nr |
|
./pkg/exf/exf_swapffields.F |
243 |
EXF_SWAPFFIELDS_YZ |
ffld0(j,k,bi,bj) = ffld1(j,k,bi,bj) |
|
./pkg/exf/exf_swapffields.F |
244 |
EXF_SWAPFFIELDS_YZ |
ffld1(j,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
139 |
EXF_BULKFORMULAE |
integer i,j,k |
|
./pkg/exf/exf_bulkformulae.F |
208 |
EXF_BULKFORMULAE |
k = 1 |
|
./pkg/exf/exf_bulkformulae.F |
242 |
EXF_BULKFORMULAE |
ssttmp = theta(i,j,k,bi,bj) |
|
./pkg/exf/exf_interp.F |
14 |
NO PROCEDURE |
INTEGER i,k,sp |
|
./pkg/exf/exf_interp.F |
229 |
EXF_INTERP |
do k=1,2 |
|
./pkg/exf/exf_interp.F |
22 |
NO PROCEDURE |
do k=1,sp |
|
./pkg/exf/exf_interp.F |
230 |
EXF_INTERP |
ew_val(k) = arrayin(w_ind(i,j),s_ind(i,j)+k-1) |
|
./pkg/exf/exf_interp.F |
232 |
EXF_INTERP |
& +arrayin(e_ind(i,j),s_ind(i,j)+k-1) |
|
./pkg/exf/exf_interp.F |
235 |
EXF_INTERP |
& +ew_val(k)*lagran(k,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
23 |
NO PROCEDURE |
if ( k .ne. i) then |
|
./pkg/exf/exf_interp.F |
24 |
NO PROCEDURE |
denom = denom*(a(i) - a(k)) |
|
./pkg/exf/exf_interp.F |
250 |
EXF_INTERP |
do k=1,4 |
|
./pkg/exf/exf_interp.F |
251 |
EXF_INTERP |
ew_val(k) = |
|
./pkg/exf/exf_interp.F |
252 |
EXF_INTERP |
& arrayin(w_ind(i,j)-1,s_ind(i,j)+k-2) |
|
./pkg/exf/exf_interp.F |
254 |
EXF_INTERP |
& +arrayin(w_ind(i,j) ,s_ind(i,j)+k-2) |
|
./pkg/exf/exf_interp.F |
256 |
EXF_INTERP |
& +arrayin(e_ind(i,j) ,s_ind(i,j)+k-2) |
|
./pkg/exf/exf_interp.F |
258 |
EXF_INTERP |
& +arrayin(e_ind(i,j)+1,s_ind(i,j)+k-2) |
|
./pkg/exf/exf_interp.F |
25 |
NO PROCEDURE |
numer = numer*(x - a(k)) |
|
./pkg/exf/exf_interp.F |
261 |
EXF_INTERP |
& +ew_val(k)*lagran(k,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
84 |
EXF_INTERP |
integer i, j, k, l, js, bi, bj, sp, interp_unit |
|
./pkg/exf/exf_mapfields.F |
74 |
EXF_MAPFIELDS |
integer i,j,k |
|
./pkg/exf/exf_interp_read.F |
51 |
EXF_INTERP_READ |
integer i, j, k, l, js, bi, bj, sp, interp_unit |
|
./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/exf/exf_wind.F |
44 |
EXF_WIND |
integer i,j,k |
|
./pkg/exf/exf_wind.F |
67 |
EXF_WIND |
k = 1 |
|
./pkg/ptracers/ptracers_statvars.F |
108 |
PTRACERS_STATVARS |
ptracer_full(k,bi,bj)=ptracer_full(k,bi,bj)+deltaTclock |
|
./pkg/ptracers/ptracers_statvars.F |
42 |
PTRACERS_STATVARS |
INTEGER iTracer, i, j, k |
|
./pkg/ptracers/ptracers_statvars.F |
55 |
PTRACERS_STATVARS |
ptracer_half(k,bi,bj)=0. |
|
./pkg/ptracers/ptracers_statvars.F |
56 |
PTRACERS_STATVARS |
ptracer_full(k,bi,bj)=0. |
|
./pkg/ptracers/ptracers_statvars.F |
78 |
PTRACERS_STATVARS |
ptracer_half(k,bi,bj)=ptracer_half(k,bi,bj)+DDTT |
|
./pkg/ptracers/ptracers_integrate.F |
116 |
PTRACERS_INTEGRATE |
kkey = (iptrkey-1)*Nr + k |
|
./pkg/ptracers/ptracers_integrate.F |
11 |
PTRACERS_INTEGRATE |
I bi,bj,k, |
|
./pkg/ptracers/ptracers_integrate.F |
136 |
PTRACERS_INTEGRATE |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
|
./pkg/ptracers/ptracers_integrate.F |
156 |
PTRACERS_INTEGRATE |
I bi,bj,iMin,iMax,jMin,jMax,k,iTracer, |
|
./pkg/ptracers/ptracers_integrate.F |
186 |
PTRACERS_INTEGRATE |
I bi,bj,iMin,iMax,jMin,jMax,k,iTracer, |
|
./pkg/ptracers/ptracers_integrate.F |
210 |
PTRACERS_INTEGRATE |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./pkg/ptracers/ptracers_integrate.F |
220 |
PTRACERS_INTEGRATE |
I bi, bj, k, iTracer, |
|
./pkg/ptracers/ptracers_integrate.F |
221 |
PTRACERS_INTEGRATE |
U gPtr(1-Olx,1-Oly,k,bi,bj,iTracer), |
|
./pkg/ptracers/ptracers_integrate.F |
52 |
PTRACERS_INTEGRATE |
INTEGER bi,bj,k |
|
./pkg/ptracers/ptracers_integrate.F |
94 |
PTRACERS_INTEGRATE |
km1 = MAX(1,k-1) |
|
./pkg/ptracers/ptracers_integrate.F |
95 |
PTRACERS_INTEGRATE |
kUp = 1+MOD(k+1,2) |
|
./pkg/ptracers/ptracers_integrate.F |
96 |
PTRACERS_INTEGRATE |
kDown= 1+MOD(k,2) |
|
./pkg/ptracers/ptracers_cycle.F |
10 |
PTRACERS_CYCLE |
SUBROUTINE PTRACERS_CYCLE(bi,bj,k,myIter,myTime,myThid) |
|
./pkg/ptracers/ptracers_cycle.F |
28 |
PTRACERS_CYCLE |
INTEGER bi,bj,k |
|
./pkg/ptracers/ptracers_cycle.F |
48 |
PTRACERS_CYCLE |
I bi,bj,k, |
|
./pkg/ptracers/ptracers_convect.F |
10 |
PTRACERS_CONVECT |
SUBROUTINE PTRACERS_CONVECT( bi,bj,k,weightA,weightB,myThid ) |
|
./pkg/ptracers/ptracers_convect.F |
28 |
PTRACERS_CONVECT |
INTEGER bi,bj,k |
|
./pkg/ptracers/ptracers_convect.F |
47 |
PTRACERS_CONVECT |
I bi,bj,k,weightA,weightB, |
|
./pkg/ptracers/ptracers_write_timeave.F |
48 |
PTRACERS_WRITE_TIMEAVE |
INTEGER bi,bj,k, iTracer |
|
./pkg/ptracers/ptracers_forcing.F |
11 |
PTRACERS_FORCING |
I bi,bj,iMin,iMax,jMin,jMax,k,iTracer, |
|
./pkg/ptracers/ptracers_forcing.F |
40 |
PTRACERS_FORCING |
INTEGER bi,bj,iMin,iMax,jMin,jMax,k,iTracer |
|
./pkg/ptracers/ptracers_forcing.F |
71 |
PTRACERS_FORCING |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./pkg/ptracers/ptracers_forcing.F |
75 |
PTRACERS_FORCING |
IF ( .NOT. useGCHEM .AND. k .EQ. kSurface ) THEN |
|
./pkg/ptracers/ptracers_forcing.F |
78 |
PTRACERS_FORCING |
gPtracer(i,j,k,bi,bj) = gPtracer(i,j,k,bi,bj) |
|
./pkg/ptracers/ptracers_forcing.F |
80 |
PTRACERS_FORCING |
& *recip_drF(k)*recip_hFacC(i,j,k,bi,bj) |
|
./pkg/ptracers/ptracers_forcing.F |
88 |
PTRACERS_FORCING |
CALL RBCS_ADD_TENDENCY(bi,bj,k,iTracer+2, |
|
./pkg/ptracers/ptracers_readparms.F |
186 |
PTRACERS_READPARMS |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_readparms.F |
187 |
PTRACERS_READPARMS |
PTRACERS_diffKrNr(k,iTracer)=PTRACERS_diffKr(iTracer) |
|
./pkg/ptracers/ptracers_readparms.F |
37 |
PTRACERS_READPARMS |
INTEGER k, iTracer |
|
./pkg/ptracers/ptracers_readparms.F |
88 |
PTRACERS_READPARMS |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_readparms.F |
89 |
PTRACERS_READPARMS |
PTRACERS_diffKrNr(k,iTracer)=diffKrNrS(k) |
|
./pkg/ptracers/ptracers_readparms.F |
90 |
PTRACERS_READPARMS |
PTRACERS_ref (k,iTracer)=0. _d 0 |
|
./pkg/ptracers/ptracers_calc_diff.F |
107 |
PTRACERS_CALC_DIFF |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./pkg/ptracers/ptracers_calc_diff.F |
10 |
PTRACERS_CALC_DIFF |
I bi,bj,iMin,iMax,jMin,jMax,k, |
|
./pkg/ptracers/ptracers_calc_diff.F |
116 |
PTRACERS_CALC_DIFF |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./pkg/ptracers/ptracers_calc_diff.F |
46 |
PTRACERS_CALC_DIFF |
INTEGER bi,bj,iMin,iMax,jMin,jMax,k |
|
./pkg/ptracers/ptracers_calc_diff.F |
59 |
PTRACERS_CALC_DIFF |
& *( atan( -( rF(k)-diffKrBL79Ho )/diffKrBL79scl )/PI+0.5 _d 0) |
|
./pkg/ptracers/ptracers_calc_diff.F |
67 |
PTRACERS_CALC_DIFF |
& IVDConvCount(i,j,k,bi,bj)*ivdc_kappa |
|
./pkg/ptracers/ptracers_calc_diff.F |
69 |
PTRACERS_CALC_DIFF |
& + diffKr(i,j,k,bi,bj) |
|
./pkg/ptracers/ptracers_calc_diff.F |
71 |
PTRACERS_CALC_DIFF |
& + PTRACERS_diffKrNr(k,iTr) |
|
./pkg/ptracers/ptracers_calc_diff.F |
80 |
PTRACERS_CALC_DIFF |
I bi,bj,iMin,iMax,jMin,jMax,k,1, |
|
./pkg/ptracers/ptracers_calc_diff.F |
89 |
PTRACERS_CALC_DIFF |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./pkg/ptracers/ptracers_calc_diff.F |
98 |
PTRACERS_CALC_DIFF |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
|
./pkg/ptracers/ptracers_init_varia.F |
33 |
PTRACERS_INIT_VARIA |
INTEGER i,j,k,bi,bj,iTracer |
|
./pkg/ptracers/ptracers_init_varia.F |
45 |
PTRACERS_INIT_VARIA |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_init_varia.F |
48 |
PTRACERS_INIT_VARIA |
pTracer(i,j,k,bi,bj,iTracer) = PTRACERS_ref(k,iTracer) |
|
./pkg/ptracers/ptracers_init_varia.F |
49 |
PTRACERS_INIT_VARIA |
gPtr(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/ptracers/ptracers_init_varia.F |
50 |
PTRACERS_INIT_VARIA |
gPtrNM1(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/ptracers/ptracers_init_varia.F |
86 |
PTRACERS_INIT_VARIA |
DO k=1,Nr |
|
./pkg/ptracers/ptracers_init_varia.F |
89 |
PTRACERS_INIT_VARIA |
IF (maskC(i,j,k,bi,bj).EQ.0.) |
|
./pkg/ptracers/ptracers_init_varia.F |
90 |
PTRACERS_INIT_VARIA |
& pTracer(i,j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/shelfice/shelfice_v_drag.F |
12 |
SHELFICE_V_DRAG |
I bi,bj,k, |
|
./pkg/shelfice/shelfice_v_drag.F |
39 |
SHELFICE_V_DRAG |
INTEGER bi,bj,k |
|
./pkg/shelfice/shelfice_v_drag.F |
60 |
SHELFICE_V_DRAG |
kUp = k |
|
./pkg/shelfice/shelfice_v_drag.F |
64 |
SHELFICE_V_DRAG |
kUp = min(k+1,kTop) |
|
./pkg/shelfice/shelfice_v_drag.F |
70 |
SHELFICE_V_DRAG |
IF (k.EQ.kUp) rdrckp1=recip_drF(k) |
|
./pkg/shelfice/shelfice_v_drag.F |
76 |
SHELFICE_V_DRAG |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_v_drag.F |
83 |
SHELFICE_V_DRAG |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_do_diags.F |
32 |
SHELFICE_DO_DIAGS |
INTEGER i, j, k, bi, bj |
|
./pkg/shelfice/shelfice_u_drag.F |
12 |
SHELFICE_U_DRAG |
I bi,bj,k, |
|
./pkg/shelfice/shelfice_u_drag.F |
40 |
SHELFICE_U_DRAG |
INTEGER bi,bj,k |
|
./pkg/shelfice/shelfice_u_drag.F |
61 |
SHELFICE_U_DRAG |
kUp = k |
|
./pkg/shelfice/shelfice_u_drag.F |
65 |
SHELFICE_U_DRAG |
kUp = min(k+1,kTop) |
|
./pkg/shelfice/shelfice_u_drag.F |
69 |
SHELFICE_U_DRAG |
IF (k.EQ.kUp) rdrckp1=recip_drF(k) |
|
./pkg/shelfice/shelfice_u_drag.F |
77 |
SHELFICE_U_DRAG |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/shelfice/shelfice_u_drag.F |
84 |
SHELFICE_U_DRAG |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
|
./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/pp81/pp81_do_diags.F |
122 |
PP81_DO_DIAGS |
DO k=1,Nr |
|
./pkg/pp81/pp81_do_diags.F |
123 |
PP81_DO_DIAGS |
pp_TimeAve(k,bi,bj)=0. |
|
./pkg/pp81/pp81_do_diags.F |
144 |
PP81_DO_DIAGS |
DO k=1,Nr |
|
./pkg/pp81/pp81_do_diags.F |
145 |
PP81_DO_DIAGS |
pp_TimeAve(k,bi,bj)=pp_TimeAve(k,bi,bj)+DDTT |
|
./pkg/pp81/pp81_do_diags.F |
192 |
PP81_DO_DIAGS |
DO k=1,Nr |
|
./pkg/pp81/pp81_do_diags.F |
193 |
PP81_DO_DIAGS |
pp_TimeAve(k,bi,bj)=0. |
|
./pkg/pp81/pp81_do_diags.F |
207 |
PP81_DO_DIAGS |
DO k=1,Nr |
|
./pkg/pp81/pp81_do_diags.F |
208 |
PP81_DO_DIAGS |
pp_TimeAve(k,bi,bj)=pp_TimeAve(k,bi,bj)+DDTT |
|
./pkg/pp81/pp81_calc_diff.F |
45 |
PP81_CALC_DIFF |
INTEGER i,j,k |
|
./pkg/pp81/pp81_calc_diff.F |
50 |
PP81_CALC_DIFF |
DO k=1,MIN(Nr,kSize) |
|
./pkg/pp81/pp81_calc_diff.F |
53 |
PP81_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k) |
|
./pkg/pp81/pp81_calc_diff.F |
54 |
PP81_CALC_DIFF |
& +( PPdiffKr(i,j,k,bi,bj) |
|
./pkg/pp81/pp81_calc_diff.F |
56 |
PP81_CALC_DIFF |
& - diffKr(i,j,k,bi,bj) ) |
|
./pkg/pp81/pp81_calc_diff.F |
58 |
PP81_CALC_DIFF |
& - diffKrNrT(k) ) |
|
./pkg/pp81/pp81_calc_diff.F |
65 |
PP81_CALC_DIFF |
k = MIN(kArg,kSize) |
|
./pkg/pp81/pp81_calc_diff.F |
68 |
PP81_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k) |
|
./pkg/pp81/pp81_calc_visc.F |
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) - viscAr + _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) - viscAr + _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.F |
87 |
PP81_CALC |
& diffKrNrT(k)) |
|
./pkg/pp81/pp81_ri_number.F |
49 |
PP81_RI_NUMBER |
INTEGER bi, bj, iMin, iMax, jMin, jMax, k |
|
./pkg/pp81/pp81_init.F |
31 |
PP81_INIT |
INTEGER i, j, k, bi, bj |
|
./pkg/pp81/pp81_init.F |
39 |
PP81_INIT |
do k = 1, Nr |
|
./pkg/pp81/pp81_init.F |
42 |
PP81_INIT |
PPviscAr (i,j,k,bi,bj) = viscAr |
|
./pkg/pp81/pp81_init.F |
43 |
PP81_INIT |
PPdiffKr (i,j,k,bi,bj) = diffKrNrT(k) |
|
./pkg/gmredi/gmredi_calc_wflow.F |
11 |
GMREDI_CALC_WFLOW |
I k, bi, bj, myThid ) |
|
./pkg/gmredi/gmredi_calc_wflow.F |
34 |
GMREDI_CALC_WFLOW |
INTEGER k, bi, bj, myThid |
|
./pkg/gmredi/gmredi_calc_wflow.F |
50 |
GMREDI_CALC_WFLOW |
delPsi = ( dyG(i+1,j,bi,bj)*GM_PsiX(i+1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_wflow.F |
51 |
GMREDI_CALC_WFLOW |
& -dyG( i ,j,bi,bj)*GM_PsiX( i ,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_wflow.F |
52 |
GMREDI_CALC_WFLOW |
& +dxG(i,j+1,bi,bj)*GM_PsiY(i,j+1,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_wflow.F |
53 |
GMREDI_CALC_WFLOW |
& -dxG(i, j ,bi,bj)*GM_PsiY(i, j ,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_wflow.F |
54 |
GMREDI_CALC_WFLOW |
& )*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_diff.F |
44 |
GMREDI_CALC_DIFF |
INTEGER i, |