| File |
Line number |
Procedure |
Code |
|
./pkg/mnc/mnc_grid.F |
133 |
MNC_GRID_INIT_ALL |
kk = ILNBLNK( mnc_f_names(indf) ) |
|
./pkg/mnc/mnc_grid.F |
136 |
MNC_GRID_INIT_ALL |
& mnc_f_names(indf)(1:kk), ''' with a different ', |
|
./pkg/mnc/mnc_grid.F |
147 |
MNC_GRID_INIT_ALL |
kk = ILNBLNK( mnc_f_names(indf) ) |
|
./pkg/mnc/mnc_grid.F |
150 |
MNC_GRID_INIT_ALL |
& mnc_f_names(indf)(1:kk), ''' with a different ', |
|
./pkg/mnc/mnc_grid.F |
187 |
MNC_GRID_INIT_ALL |
kk = ILNBLNK(mnc_d_names(jj)) |
|
./pkg/mnc/mnc_grid.F |
188 |
MNC_GRID_INIT_ALL |
IF ((n .EQ. kk) |
|
./pkg/mnc/mnc_grid.F |
189 |
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/profiles/profiles_interp.F |
252 |
PROFILES_INTERP |
do kk=1,NLEVELMAX |
|
./pkg/profiles/profiles_interp.F |
253 |
PROFILES_INTERP |
traj_cur_out(kk)=0 |
|
./pkg/profiles/profiles_interp.F |
254 |
PROFILES_INTERP |
prof_mask1D_cur(kk,bi,bj)=0 |
|
./pkg/profiles/profiles_interp.F |
256 |
PROFILES_INTERP |
do kk=1,ProfDepthNo(file_cur,bi,bj) |
|
./pkg/profiles/profiles_interp.F |
258 |
PROFILES_INTERP |
if (prof_depth(file_cur,kk,bi,bj).LT.-rC(1)) then |
|
./pkg/profiles/profiles_interp.F |
259 |
PROFILES_INTERP |
traj_cur_out(kk)=traj_cur(1) |
|
./pkg/profiles/profiles_interp.F |
260 |
PROFILES_INTERP |
prof_mask1D_cur(kk,bi,bj)=mask_cur(1) |
|
./pkg/profiles/profiles_interp.F |
262 |
PROFILES_INTERP |
elseif (prof_depth(file_cur,kk,bi,bj).GE.-rC(nr)) then |
|
./pkg/profiles/profiles_interp.F |
263 |
PROFILES_INTERP |
if ( prof_depth(file_cur,kk,bi,bj) .LT. |
|
./pkg/profiles/profiles_interp.F |
265 |
PROFILES_INTERP |
traj_cur_out(kk)=traj_cur(nr) |
|
./pkg/profiles/profiles_interp.F |
266 |
PROFILES_INTERP |
prof_mask1D_cur(kk,bi,bj)=mask_cur(nr) |
|
./pkg/profiles/profiles_interp.F |
272 |
PROFILES_INTERP |
if ((prof_depth(file_cur,kk,bi,bj).GE.-rC(k)).AND. |
|
./pkg/profiles/profiles_interp.F |
273 |
PROFILES_INTERP |
& (prof_depth(file_cur,kk,bi,bj).LT.-rC(k+1))) then |
|
./pkg/profiles/profiles_interp.F |
283 |
PROFILES_INTERP |
tmp_coeff=(prof_depth(file_cur,kk,bi,bj)+rC(kcur))/ |
|
./pkg/profiles/profiles_interp.F |
285 |
PROFILES_INTERP |
traj_cur_out(kk)=(1-tmp_coeff)*traj_cur(kcur) |
|
./pkg/profiles/profiles_interp.F |
287 |
PROFILES_INTERP |
prof_mask1D_cur(kk,bi,bj)=1 |
|
./pkg/profiles/profiles_interp.F |
292 |
PROFILES_INTERP |
elseif (prof_depth(file_cur,kk,bi,bj).LT.-rF(kcur+1)) then |
|
./pkg/profiles/profiles_interp.F |
294 |
PROFILES_INTERP |
traj_cur_out(kk)=traj_cur(kcur) |
|
./pkg/profiles/profiles_interp.F |
295 |
PROFILES_INTERP |
prof_mask1D_cur(kk,bi,bj)=mask_cur(kcur) |
|
./pkg/profiles/profiles_interp.F |
58 |
PROFILES_INTERP |
integer i,j,k,kk,kcur,iG,jG,bi,bj |
|
./pkg/profiles/profiles_init_fixed.F |
124 |
PROFILES_INIT_FIXED |
do kk=1,profno_div1000+1 |
|
./pkg/profiles/profiles_init_fixed.F |
126 |
PROFILES_INIT_FIXED |
if (min(ProfNo(num_file,bi,bj), 1000*kk).GE. |
|
./pkg/profiles/profiles_init_fixed.F |
127 |
PROFILES_INIT_FIXED |
& 1+1000*(kk-1)) then |
|
./pkg/profiles/profiles_init_fixed.F |
130 |
PROFILES_INIT_FIXED |
vec_start(2)=1+1000*(kk-1) |
|
./pkg/profiles/profiles_init_fixed.F |
132 |
PROFILES_INIT_FIXED |
vec_count(2)=min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1)) |
|
./pkg/profiles/profiles_init_fixed.F |
153 |
PROFILES_INIT_FIXED |
& kk,min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1)) |
|
./pkg/profiles/profiles_init_fixed.F |
157 |
PROFILES_INIT_FIXED |
do k=1,min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1)) |
|
./pkg/profiles/profiles_init_fixed.F |
179 |
PROFILES_INIT_FIXED |
prof_ind_glob(num_file,length_for_tile,bi,bj)=k+1000*(kk-1) |
|
./pkg/profiles/profiles_init_fixed.F |
195 |
PROFILES_INIT_FIXED |
prof_ind_glob(num_file,length_for_tile,bi,bj)=k+1000*(kk-1) |
|
./pkg/profiles/profiles_init_fixed.F |
37 |
PROFILES_INIT_FIXED |
integer vec_start(2), vec_count(2), profno_div1000, kk |
|
./pkg/profiles/profiles_readvector.F |
27 |
PROFILES_READVECTOR |
integer vec_loc_length, vNb, k, kk, kkk,bi,bj |
|
./pkg/profiles/profiles_readvector.F |
84 |
PROFILES_READVECTOR |
do kk=1,vec_count(2) |
|
./pkg/profiles/profiles_readvector.F |
85 |
PROFILES_READVECTOR |
profiles_data_buff(k,kk,kkk,bi,bj)=vec_tmp1((kk-1)*vec_count(1)+k) |
|
./pkg/profiles/profiles_readvector.F |
86 |
PROFILES_READVECTOR |
profiles_weight_buff(k,kk,kkk,bi,bj)=vec_tmp2((kk-1)*vec_count(1) |
|
./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) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
1004 |
CLDSCALE |
integer i,j,k,im,it,ia,kk |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
1064 |
CLDSCALE |
kk=1 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
1066 |
CLDSCALE |
kk=2 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
1068 |
CLDSCALE |
kk=3 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
1082 |
CLDSCALE |
fa=fcld(i,j,k)/cc(i,j,kk) |
|
./pkg/ecco/cost_mean_heatflux.F |
107 |
COST_MEAN_HEATFLUX |
kk = 1 |
|
./pkg/ecco/cost_mean_heatflux.F |
113 |
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_forcing_gen.F |
175 |
COST_FORCING_GEN |
kk = 1 |
|
./pkg/ecco/cost_forcing_gen.F |
182 |
COST_FORCING_GEN |
if (genmask(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_forcing_gen.F |
209 |
COST_FORCING_GEN |
kk = 1 |
|
./pkg/ecco/cost_forcing_gen.F |
213 |
COST_FORCING_GEN |
if (genmask(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_forcing_gen.F |
253 |
COST_FORCING_GEN |
kk = 1 |
|
./pkg/ecco/cost_forcing_gen.F |
257 |
COST_FORCING_GEN |
if (genmask(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_forcing_gen.F |
260 |
COST_FORCING_GEN |
& *maskW(i+1,j,kk,bi,bj)*maskW(i+2,j,kk,bi,bj) |
|
./pkg/ecco/cost_forcing_gen.F |
262 |
COST_FORCING_GEN |
& *maskW(i+1,j,kk,bi,bj) |
|
./pkg/ecco/cost_forcing_gen.F |
264 |
COST_FORCING_GEN |
& *maskS(i,j+1,kk,bi,bj)*maskS(i,j+2,kk,bi,bj) |
|
./pkg/ecco/cost_forcing_gen.F |
266 |
COST_FORCING_GEN |
& *maskS(i,j+1,kk,bi,bj) |
|
./pkg/ecco/cost_forcing_gen.F |
76 |
COST_FORCING_GEN |
integer i,j,kk |
|
./pkg/ecco/cost_mean_saltflux.F |
110 |
COST_MEAN_SALTFLUX |
kk = 1 |
|
./pkg/ecco/cost_mean_saltflux.F |
116 |
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/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_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 |
|
./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 |