| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_atemp.F |
112 |
COST_ATEMP |
kk = 1 |
|
./pkg/ecco/cost_atemp.F |
116 |
COST_ATEMP |
if (_hFacC(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_atemp.F |
47 |
COST_ATEMP |
integer i,j,kk |
|
./pkg/ecco/cost_heatflux.F |
148 |
COST_HEATFLUX |
kk = 1 |
|
./pkg/ecco/cost_heatflux.F |
155 |
COST_HEATFLUX |
if (maskC(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_heatflux.F |
203 |
COST_HEATFLUX |
kk = 1 |
|
./pkg/ecco/cost_heatflux.F |
207 |
COST_HEATFLUX |
if (_hFacC(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_heatflux.F |
55 |
COST_HEATFLUX |
integer i,j,kk |
|
./pkg/ecco/cost_uwind.F |
112 |
COST_UWIND |
kk = 1 |
|
./pkg/ecco/cost_uwind.F |
116 |
COST_UWIND |
if (maskw(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_uwind.F |
47 |
COST_UWIND |
integer i,j,kk |
|
./pkg/ecco/cost_zonstress.F |
148 |
COST_ZONSTRESS |
kk = 1 |
|
./pkg/ecco/cost_zonstress.F |
155 |
COST_ZONSTRESS |
if (maskw(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_zonstress.F |
203 |
COST_ZONSTRESS |
kk = 1 |
|
./pkg/ecco/cost_zonstress.F |
207 |
COST_ZONSTRESS |
if (maskw(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_zonstress.F |
55 |
COST_ZONSTRESS |
integer i,j,kk |
|
./pkg/ecco/cost_mean_heatflux.F |
111 |
COST_MEAN_HEATFLUX |
kk = 1 |
|
./pkg/ecco/cost_mean_heatflux.F |
117 |
COST_MEAN_HEATFLUX |
if (maskC(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_mean_heatflux.F |
48 |
COST_MEAN_HEATFLUX |
integer i,j,kk |
|
./pkg/ecco/cost_mean_saltflux.F |
111 |
COST_MEAN_SALTFLUX |
kk = 1 |
|
./pkg/ecco/cost_mean_saltflux.F |
117 |
COST_MEAN_SALTFLUX |
if (maskC(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_mean_saltflux.F |
48 |
COST_MEAN_SALTFLUX |
integer i,j,kk |
|
./pkg/ecco/cost_saltflux.F |
148 |
COST_SALTFLUX |
kk = 1 |
|
./pkg/ecco/cost_saltflux.F |
155 |
COST_SALTFLUX |
if (maskC(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_saltflux.F |
203 |
COST_SALTFLUX |
kk = 1 |
|
./pkg/ecco/cost_saltflux.F |
207 |
COST_SALTFLUX |
if (_hFacC(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_saltflux.F |
55 |
COST_SALTFLUX |
integer i,j,kk |
|
./pkg/ecco/cost_aqh.F |
112 |
COST_AQH |
kk = 1 |
|
./pkg/ecco/cost_aqh.F |
116 |
COST_AQH |
if (_hFacC(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_aqh.F |
47 |
COST_AQH |
integer i,j,kk |
|
./pkg/ecco/cost_merstress.F |
150 |
COST_MERSTRESS |
kk = 1 |
|
./pkg/ecco/cost_merstress.F |
157 |
COST_MERSTRESS |
if (masks(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_merstress.F |
205 |
COST_MERSTRESS |
kk = 1 |
|
./pkg/ecco/cost_merstress.F |
209 |
COST_MERSTRESS |
if (masks(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_merstress.F |
55 |
COST_MERSTRESS |
integer i,j,kk |
|
./pkg/ecco/cost_vwind.F |
112 |
COST_VWIND |
kk = 1 |
|
./pkg/ecco/cost_vwind.F |
116 |
COST_VWIND |
if (masks(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_vwind.F |
47 |
COST_VWIND |
integer i,j,kk |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1005 |
CLDSCALE |
integer i,j,k,im,it,ia,kk |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1065 |
CLDSCALE |
kk=1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1067 |
CLDSCALE |
kk=2 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1069 |
CLDSCALE |
kk=3 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1083 |
CLDSCALE |
fa=fcld(i,j,k)/cc(i,j,kk) |
|
./pkg/mnc/mnc_grid.F |
185 |
MNC_GRID_INIT_ALL |
kk = ILNBLNK(mnc_d_names(jj)) |
|
./pkg/mnc/mnc_grid.F |
186 |
MNC_GRID_INIT_ALL |
IF ((n .EQ. kk) |
|
./pkg/mnc/mnc_grid.F |
187 |
MNC_GRID_INIT_ALL |
& .AND. (dnames(i)(1:n) .EQ. mnc_d_names(jj)(1:kk))) THEN |
|
./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/fizhi/fizhi_swrad.F |
1004 |
CLDSCALE |
integer i,j,k,im,it,ia,kk |
|
./pkg/fizhi/fizhi_swrad.F |
1064 |
CLDSCALE |
kk=1 |
|
./pkg/fizhi/fizhi_swrad.F |
1066 |
CLDSCALE |
kk=2 |
|
./pkg/fizhi/fizhi_swrad.F |
1068 |
CLDSCALE |
kk=3 |
|
./pkg/fizhi/fizhi_swrad.F |
1082 |
CLDSCALE |
fa=fcld(i,j,k)/cc(i,j,kk) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
203 |
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 |
209 |
CTRL_SET_PACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk) * |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
217 |
CTRL_SET_PACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk) / |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
225 |
CTRL_SET_PACK_YZ |
cbuff(cbuffindex) = globfld3d(ii,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
53 |
CTRL_SET_PACK_YZ |
integer ii,jj,kk |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
194 |
CTRL_SET_UNPACK_XZ |
kk=int((j-1)*nr+k-1)/sny+1 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
202 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
205 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
206 |
CTRL_SET_UNPACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk)/ |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
214 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,jj,bj,jp,kk) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
52 |
CTRL_SET_UNPACK_XZ |
integer ii,jj,kk |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
200 |
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 |
203 |
CTRL_SET_UNPACK_YZ |
globfld3d(ii,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
206 |
CTRL_SET_UNPACK_YZ |
globfld3d(ii,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
207 |
CTRL_SET_UNPACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk)/ |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
215 |
CTRL_SET_UNPACK_YZ |
globfld3d(ii,bi,ip,jj,bj,jp,kk) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
52 |
CTRL_SET_UNPACK_YZ |
integer ii,jj,kk |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
199 |
CTRL_SET_PACK_XZ |
kk=int((j-1)*nr+K-1)/sny+1 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
205 |
CTRL_SET_PACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk) * |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
213 |
CTRL_SET_PACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk) / |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
221 |
CTRL_SET_PACK_XZ |
cbuff(cbuffindex) = globfld3d(i,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
53 |
CTRL_SET_PACK_XZ |
integer ii,jj,kk |