| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
1012 |
CLDSCALE |
integer i,j,k,im,it,ia,kk |
|
./pkg/fizhi/fizhi_swrad.F |
1072 |
CLDSCALE |
kk=1 |
|
./pkg/fizhi/fizhi_swrad.F |
1074 |
CLDSCALE |
kk=2 |
|
./pkg/fizhi/fizhi_swrad.F |
1076 |
CLDSCALE |
kk=3 |
|
./pkg/fizhi/fizhi_swrad.F |
1090 |
CLDSCALE |
fa=fcld(i,j,k)/cc(i,j,kk) |
|
./pkg/layers/layers_calc.F |
108 |
LAYERS_CALC |
DO kk=1,NZZ |
|
./pkg/layers/layers_calc.F |
109 |
LAYERS_CALC |
k = MapIndex(kk) |
|
./pkg/layers/layers_calc.F |
110 |
LAYERS_CALC |
kci = CellIndex(kk) |
|
./pkg/layers/layers_calc.F |
117 |
LAYERS_CALC |
TatU = MapFact(kk) * |
|
./pkg/layers/layers_calc.F |
119 |
LAYERS_CALC |
& (1-MapFact(kk)) * |
|
./pkg/layers/layers_calc.F |
122 |
LAYERS_CALC |
TatU = MapFact(kk) * |
|
./pkg/layers/layers_calc.F |
124 |
LAYERS_CALC |
& (1-MapFact(kk)) * |
|
./pkg/layers/layers_calc.F |
163 |
LAYERS_CALC |
& dZZf(kk) * uVel(i,j,kci,bi,bj) * hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_calc.F |
175 |
LAYERS_CALC |
& * dZZf(kk)*hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_calc.F |
181 |
LAYERS_CALC |
& + dZZf(kk) * hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_calc.F |
189 |
LAYERS_CALC |
TatV = MapFact(kk) * |
|
./pkg/layers/layers_calc.F |
191 |
LAYERS_CALC |
& (1-MapFact(kk)) * |
|
./pkg/layers/layers_calc.F |
194 |
LAYERS_CALC |
TatV = MapFact(kk) * |
|
./pkg/layers/layers_calc.F |
196 |
LAYERS_CALC |
& (1-MapFact(kk)) * |
|
./pkg/layers/layers_calc.F |
234 |
LAYERS_CALC |
& + dZZf(kk) * vVel(i,j,kci,bi,bj) * hFacS(i,j,kci,bi,bj) |
|
./pkg/layers/layers_calc.F |
246 |
LAYERS_CALC |
& * dZZf(kk)*hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_calc.F |
252 |
LAYERS_CALC |
& + dZZf(kk) * hFacS(i,j,kci,bi,bj) |
|
./pkg/layers/layers_calc.F |
58 |
LAYERS_CALC |
INTEGER i,j,k,kk,kg,kci |
|
./pkg/layers/layers_init_fixed.F |
100 |
LAYERS_INIT_FIXED |
& .AND. (ZZc(kk) .LT. Zc(Nr)) ) THEN |
|
./pkg/layers/layers_init_fixed.F |
102 |
LAYERS_INIT_FIXED |
DO WHILE (ZZc(kk) .GE. Zc(k+1)) |
|
./pkg/layers/layers_init_fixed.F |
106 |
LAYERS_INIT_FIXED |
MapIndex(kk) = k |
|
./pkg/layers/layers_init_fixed.F |
107 |
LAYERS_INIT_FIXED |
MapFact(kk) = 1.0 - (( ZZc(kk) - Zc(k) ) / drC(k+1)) |
|
./pkg/layers/layers_init_fixed.F |
111 |
LAYERS_INIT_FIXED |
& 'S/R LAYERS_INIT_FIXED: kk=', kk, ', k=', k, |
|
./pkg/layers/layers_init_fixed.F |
112 |
LAYERS_INIT_FIXED |
& ', ZZc(kk)=', ZZc(kk),' , Zc(k)=',Zc(k) |
|
./pkg/layers/layers_init_fixed.F |
118 |
LAYERS_INIT_FIXED |
IF ( ZZc(kk).LT.Zf(MapIndex(kk)+1) ) THEN |
|
./pkg/layers/layers_init_fixed.F |
119 |
LAYERS_INIT_FIXED |
CellIndex(kk) = MapIndex(kk) |
|
./pkg/layers/layers_init_fixed.F |
121 |
LAYERS_INIT_FIXED |
CellIndex(kk) = MapIndex(kk)+1 |
|
./pkg/layers/layers_init_fixed.F |
128 |
LAYERS_INIT_FIXED |
DO kk=1,NZZ |
|
./pkg/layers/layers_init_fixed.F |
130 |
LAYERS_INIT_FIXED |
& '// ZZc=', ZZc(kk), |
|
./pkg/layers/layers_init_fixed.F |
131 |
LAYERS_INIT_FIXED |
& ', MapIndex(',kk,')=',MapIndex(kk), |
|
./pkg/layers/layers_init_fixed.F |
132 |
LAYERS_INIT_FIXED |
& ', MapFact(',kk,')=',MapFact(kk), |
|
./pkg/layers/layers_init_fixed.F |
133 |
LAYERS_INIT_FIXED |
& ', CellIndex(',kk,')=',CellIndex(kk) |
|
./pkg/layers/layers_init_fixed.F |
34 |
LAYERS_INIT_FIXED |
INTEGER k,kk,kkinit |
|
./pkg/layers/layers_init_fixed.F |
63 |
LAYERS_INIT_FIXED |
DO kk=kkinit,kkinit+FineGridFact-1 |
|
./pkg/layers/layers_init_fixed.F |
64 |
LAYERS_INIT_FIXED |
dZZf(kk) = dRf(k) / FineGridFact |
|
./pkg/layers/layers_init_fixed.F |
82 |
LAYERS_INIT_FIXED |
DO kk=2,NZZ+1 |
|
./pkg/layers/layers_init_fixed.F |
83 |
LAYERS_INIT_FIXED |
ZZf(kk) = ZZf(kk-1) + dZZf(kk-1) |
|
./pkg/layers/layers_init_fixed.F |
84 |
LAYERS_INIT_FIXED |
ZZc(kk-1) = 0.5 _d 0 * (ZZf(kk) + ZZf(kk-1)) |
|
./pkg/layers/layers_init_fixed.F |
89 |
LAYERS_INIT_FIXED |
DO kk=1,NZZ |
|
./pkg/layers/layers_init_fixed.F |
91 |
LAYERS_INIT_FIXED |
IF ( ZZc(kk) .LT. Zc(1) ) THEN |
|
./pkg/layers/layers_init_fixed.F |
92 |
LAYERS_INIT_FIXED |
MapIndex(kk) = 1 |
|
./pkg/layers/layers_init_fixed.F |
93 |
LAYERS_INIT_FIXED |
MapFact(kk) = 1.0 _d 0 |
|
./pkg/layers/layers_init_fixed.F |
95 |
LAYERS_INIT_FIXED |
ELSE IF ( (ZZc(kk) .GE. Zc(Nr)) .OR. (k .EQ. Nr) ) THEN |
|
./pkg/layers/layers_init_fixed.F |
96 |
LAYERS_INIT_FIXED |
MapIndex(kk) = Nr - 1 |
|
./pkg/layers/layers_init_fixed.F |
97 |
LAYERS_INIT_FIXED |
MapFact(kk) = 0.0 _d 0 |
|
./pkg/layers/layers_init_fixed.F |
99 |
LAYERS_INIT_FIXED |
ELSE IF ( (ZZc(kk) .GE. Zc(k)) |
|
./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_init_fixed.F |
208 |
PROFILES_INIT_FIXED |
do kk=1,profno_div1000+1 |
|
./pkg/profiles/profiles_init_fixed.F |
210 |
PROFILES_INIT_FIXED |
if (min(ProfNo(num_file,bi,bj), 1000*kk).GE. |
|
./pkg/profiles/profiles_init_fixed.F |
211 |
PROFILES_INIT_FIXED |
& 1+1000*(kk-1)) then |
|
./pkg/profiles/profiles_init_fixed.F |
215 |
PROFILES_INIT_FIXED |
vec_start(2)=1+1000*(kk-1) |
|
./pkg/profiles/profiles_init_fixed.F |
217 |
PROFILES_INIT_FIXED |
vec_count(2)=min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1)) |
|
./pkg/profiles/profiles_init_fixed.F |
254 |
PROFILES_INIT_FIXED |
vec_start2(2)=1+1000*(kk-1) |
|
./pkg/profiles/profiles_init_fixed.F |
256 |
PROFILES_INIT_FIXED |
vec_count2(2)=min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1)) |
|
./pkg/profiles/profiles_init_fixed.F |
267 |
PROFILES_INIT_FIXED |
do k=1,min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1)) |
|
./pkg/profiles/profiles_init_fixed.F |
292 |
PROFILES_INIT_FIXED |
prof_ind_glob(num_file,length_for_tile,bi,bj)=k+1000*(kk-1) |
|
./pkg/profiles/profiles_init_fixed.F |
311 |
PROFILES_INIT_FIXED |
prof_ind_glob(num_file,length_for_tile,bi,bj)=k+1000*(kk-1) |
|
./pkg/profiles/profiles_init_fixed.F |
385 |
PROFILES_INIT_FIXED |
prof_ind_glob(num_file,length_for_tile,bi,bj)=k+1000*(kk-1) |
|
./pkg/profiles/profiles_init_fixed.F |
39 |
PROFILES_INIT_FIXED |
integer vec_start(2), vec_count(2), profno_div1000, kk |
|
./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 |
284 |
PROFILES_INTERP |
tmp_coeff=(prof_depth(file_cur,kk,bi,bj)+rC(kcur))/ |
|
./pkg/profiles/profiles_interp.F |
286 |
PROFILES_INTERP |
traj_cur_out(kk)=(1-tmp_coeff)*traj_cur(kcur) |
|
./pkg/profiles/profiles_interp.F |
288 |
PROFILES_INTERP |
prof_mask1D_cur(kk,bi,bj)=1 |
|
./pkg/profiles/profiles_interp.F |
294 |
PROFILES_INTERP |
elseif (prof_depth(file_cur,kk,bi,bj).LT.-rF(kcur+1)) then |
|
./pkg/profiles/profiles_interp.F |
296 |
PROFILES_INTERP |
traj_cur_out(kk)=traj_cur(kcur) |
|
./pkg/profiles/profiles_interp.F |
297 |
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_interp_gg.F |
120 |
PROFILES_INTERP_GG |
do kk=1,NLEVELMAX |
|
./pkg/profiles/profiles_interp_gg.F |
121 |
PROFILES_INTERP_GG |
traj_cur_out(kk)=0 |
|
./pkg/profiles/profiles_interp_gg.F |
122 |
PROFILES_INTERP_GG |
prof_mask1D_cur(kk,bi,bj)=0 |
|
./pkg/profiles/profiles_interp_gg.F |
124 |
PROFILES_INTERP_GG |
do kk=1,ProfDepthNo(file_cur,bi,bj) |
|
./pkg/profiles/profiles_interp_gg.F |
126 |
PROFILES_INTERP_GG |
if (prof_depth(file_cur,kk,bi,bj).LT.-rC(1)) then |
|
./pkg/profiles/profiles_interp_gg.F |
127 |
PROFILES_INTERP_GG |
traj_cur_out(kk)=traj_cur(1) |
|
./pkg/profiles/profiles_interp_gg.F |
128 |
PROFILES_INTERP_GG |
prof_mask1D_cur(kk,bi,bj)=mask_cur(1) |
|
./pkg/profiles/profiles_interp_gg.F |
130 |
PROFILES_INTERP_GG |
elseif (prof_depth(file_cur,kk,bi,bj).GE.-rC(nr)) then |
|
./pkg/profiles/profiles_interp_gg.F |
131 |
PROFILES_INTERP_GG |
if ( prof_depth(file_cur,kk,bi,bj) .LT. |
|
./pkg/profiles/profiles_interp_gg.F |
133 |
PROFILES_INTERP_GG |
traj_cur_out(kk)=traj_cur(nr) |
|
./pkg/profiles/profiles_interp_gg.F |
134 |
PROFILES_INTERP_GG |
prof_mask1D_cur(kk,bi,bj)=mask_cur(nr) |
|
./pkg/profiles/profiles_interp_gg.F |
140 |
PROFILES_INTERP_GG |
if ((prof_depth(file_cur,kk,bi,bj).GE.-rC(k)).AND. |
|
./pkg/profiles/profiles_interp_gg.F |
141 |
PROFILES_INTERP_GG |
& (prof_depth(file_cur,kk,bi,bj).LT.-rC(k+1))) then |
|
./pkg/profiles/profiles_interp_gg.F |
152 |
PROFILES_INTERP_GG |
tmp_coeff=(prof_depth(file_cur,kk,bi,bj)+rC(kcur))/ |
|
./pkg/profiles/profiles_interp_gg.F |
154 |
PROFILES_INTERP_GG |
traj_cur_out(kk)=(1-tmp_coeff)*traj_cur(kcur) |
|
./pkg/profiles/profiles_interp_gg.F |
156 |
PROFILES_INTERP_GG |
prof_mask1D_cur(kk,bi,bj)=1 |
|
./pkg/profiles/profiles_interp_gg.F |
162 |
PROFILES_INTERP_GG |
elseif (prof_depth(file_cur,kk,bi,bj).LT.-rF(kcur+1)) then |
|
./pkg/profiles/profiles_interp_gg.F |
164 |
PROFILES_INTERP_GG |
traj_cur_out(kk)=traj_cur(kcur) |
|
./pkg/profiles/profiles_interp_gg.F |
165 |
PROFILES_INTERP_GG |
prof_mask1D_cur(kk,bi,bj)=mask_cur(kcur) |
|
./pkg/profiles/profiles_interp_gg.F |
63 |
PROFILES_INTERP_GG |
integer q,i,j,k,kk,kcur,iG,jG,bi,bj |
|
./pkg/profiles/profiles_interp_mean.F |
198 |
PROFILES_INTERP_MEAN |
do kk=1,NLEVELMAX |
|
./pkg/profiles/profiles_interp_mean.F |
199 |
PROFILES_INTERP_MEAN |
traj_cur_out(kk)=0 |
|
./pkg/profiles/profiles_interp_mean.F |
200 |
PROFILES_INTERP_MEAN |
prof_mask1D_cur(kk,bi,bj)=0 |
|
./pkg/profiles/profiles_interp_mean.F |
202 |
PROFILES_INTERP_MEAN |
do kk=1,ProfDepthNo(file_cur,bi,bj) |
|
./pkg/profiles/profiles_interp_mean.F |
204 |
PROFILES_INTERP_MEAN |
if (prof_depth(file_cur,kk,bi,bj).LT.-rC(1)) then |
|
./pkg/profiles/profiles_interp_mean.F |
205 |
PROFILES_INTERP_MEAN |
traj_cur_out(kk)=traj_cur(1) |
|
./pkg/profiles/profiles_interp_mean.F |
206 |
PROFILES_INTERP_MEAN |
prof_mask1D_cur(kk,bi,bj)=mask_cur(1) |
|
./pkg/profiles/profiles_interp_mean.F |
208 |
PROFILES_INTERP_MEAN |
elseif (prof_depth(file_cur,kk,bi,bj).GE.-rC(nr)) then |
|
./pkg/profiles/profiles_interp_mean.F |
209 |
PROFILES_INTERP_MEAN |
if ( prof_depth(file_cur,kk,bi,bj) .LT. |
|
./pkg/profiles/profiles_interp_mean.F |
211 |
PROFILES_INTERP_MEAN |
traj_cur_out(kk)=traj_cur(nr) |
|
./pkg/profiles/profiles_interp_mean.F |
212 |
PROFILES_INTERP_MEAN |
prof_mask1D_cur(kk,bi,bj)=mask_cur(nr) |
|
./pkg/profiles/profiles_interp_mean.F |
218 |
PROFILES_INTERP_MEAN |
if ((prof_depth(file_cur,kk,bi,bj).GE.-rC(k)).AND. |
|
./pkg/profiles/profiles_interp_mean.F |
219 |
PROFILES_INTERP_MEAN |
& (prof_depth(file_cur,kk,bi,bj).LT.-rC(k+1))) then |
|
./pkg/profiles/profiles_interp_mean.F |
230 |
PROFILES_INTERP_MEAN |
tmp_coeff=(prof_depth(file_cur,kk,bi,bj)+rC(kcur))/ |
|
./pkg/profiles/profiles_interp_mean.F |
232 |
PROFILES_INTERP_MEAN |
traj_cur_out(kk)=(1-tmp_coeff)*traj_cur(kcur) |
|
./pkg/profiles/profiles_interp_mean.F |
234 |
PROFILES_INTERP_MEAN |
prof_mask1D_cur(kk,bi,bj)=1 |
|
./pkg/profiles/profiles_interp_mean.F |
240 |
PROFILES_INTERP_MEAN |
elseif (prof_depth(file_cur,kk,bi,bj).LT.-rF(kcur+1)) then |
|
./pkg/profiles/profiles_interp_mean.F |
242 |
PROFILES_INTERP_MEAN |
traj_cur_out(kk)=traj_cur(kcur) |
|
./pkg/profiles/profiles_interp_mean.F |
243 |
PROFILES_INTERP_MEAN |
prof_mask1D_cur(kk,bi,bj)=mask_cur(kcur) |
|
./pkg/profiles/profiles_interp_mean.F |
58 |
PROFILES_INTERP_MEAN |
integer i,j,k,kk,kcur,iG,jG,bi,bj |
|
./pkg/profiles/profiles_interp_mean_gg.F |
100 |
PROFILES_INTERP_MEAN_GG |
traj_cur_out(kk)=0 |
|
./pkg/profiles/profiles_interp_mean_gg.F |
101 |
PROFILES_INTERP_MEAN_GG |
prof_mask1D_cur(kk,bi,bj)=0 |
|
./pkg/profiles/profiles_interp_mean_gg.F |
103 |
PROFILES_INTERP_MEAN_GG |
do kk=1,ProfDepthNo(file_cur,bi,bj) |
|
./pkg/profiles/profiles_interp_mean_gg.F |
105 |
PROFILES_INTERP_MEAN_GG |
if (prof_depth(file_cur,kk,bi,bj).LT.-rC(1)) then |
|
./pkg/profiles/profiles_interp_mean_gg.F |
106 |
PROFILES_INTERP_MEAN_GG |
traj_cur_out(kk)=traj_cur(1) |
|
./pkg/profiles/profiles_interp_mean_gg.F |
107 |
PROFILES_INTERP_MEAN_GG |
prof_mask1D_cur(kk,bi,bj)=mask_cur(1) |
|
./pkg/profiles/profiles_interp_mean_gg.F |
109 |
PROFILES_INTERP_MEAN_GG |
elseif (prof_depth(file_cur,kk,bi,bj).GE.-rC(nr)) then |
|
./pkg/profiles/profiles_interp_mean_gg.F |
110 |
PROFILES_INTERP_MEAN_GG |
if ( prof_depth(file_cur,kk,bi,bj) .LT. |
|
./pkg/profiles/profiles_interp_mean_gg.F |
112 |
PROFILES_INTERP_MEAN_GG |
traj_cur_out(kk)=traj_cur(nr) |
|
./pkg/profiles/profiles_interp_mean_gg.F |
113 |
PROFILES_INTERP_MEAN_GG |
prof_mask1D_cur(kk,bi,bj)=mask_cur(nr) |
|
./pkg/profiles/profiles_interp_mean_gg.F |
119 |
PROFILES_INTERP_MEAN_GG |
if ((prof_depth(file_cur,kk,bi,bj).GE.-rC(k)).AND. |
|
./pkg/profiles/profiles_interp_mean_gg.F |
120 |
PROFILES_INTERP_MEAN_GG |
& (prof_depth(file_cur,kk,bi,bj).LT.-rC(k+1))) then |
|
./pkg/profiles/profiles_interp_mean_gg.F |
131 |
PROFILES_INTERP_MEAN_GG |
tmp_coeff=(prof_depth(file_cur,kk,bi,bj)+rC(kcur))/ |
|
./pkg/profiles/profiles_interp_mean_gg.F |
133 |
PROFILES_INTERP_MEAN_GG |
traj_cur_out(kk)=(1-tmp_coeff)*traj_cur(kcur) |
|
./pkg/profiles/profiles_interp_mean_gg.F |
135 |
PROFILES_INTERP_MEAN_GG |
prof_mask1D_cur(kk,bi,bj)=1 |
|
./pkg/profiles/profiles_interp_mean_gg.F |
141 |
PROFILES_INTERP_MEAN_GG |
elseif (prof_depth(file_cur,kk,bi,bj).LT.-rF(kcur+1)) then |
|
./pkg/profiles/profiles_interp_mean_gg.F |
143 |
PROFILES_INTERP_MEAN_GG |
traj_cur_out(kk)=traj_cur(kcur) |
|
./pkg/profiles/profiles_interp_mean_gg.F |
144 |
PROFILES_INTERP_MEAN_GG |
prof_mask1D_cur(kk,bi,bj)=mask_cur(kcur) |
|
./pkg/profiles/profiles_interp_mean_gg.F |
63 |
PROFILES_INTERP_MEAN_GG |
integer q,i,j,k,kk,kcur,iG,jG,bi,bj |
|
./pkg/profiles/profiles_interp_mean_gg.F |
99 |
PROFILES_INTERP_MEAN_GG |
do kk=1,NLEVELMAX |
|
./pkg/profiles/profiles_readvector.F |
27 |
PROFILES_READVECTOR |
integer vec_loc_length, vNb, k, kk, kkk,bi,bj |
|
./pkg/profiles/profiles_readvector.F |
90 |
PROFILES_READVECTOR |
do kk=1,vec_count(2) |
|
./pkg/profiles/profiles_readvector.F |
91 |
PROFILES_READVECTOR |
profiles_data_buff(k,kk,kkk,bi,bj)=vec_tmp1((kk-1)*vec_count(1)+k) |
|
./pkg/profiles/profiles_readvector.F |
92 |
PROFILES_READVECTOR |
profiles_weight_buff(k,kk,kkk,bi,bj)=vec_tmp2((kk-1)*vec_count(1) |
|
./pkg/salt_plume/salt_plume_frac.F |
114 |
SALT_PLUME_FRAC |
DO kk=1,Npower+1 |
|
./pkg/salt_plume/salt_plume_frac.F |
63 |
SALT_PLUME_FRAC |
INTEGER i, kk |
|
./pkg/salt_plume/salt_plume_frac.F |
76 |
SALT_PLUME_FRAC |
DO kk=1,Npower+1 |
|
./pkg/smooth/smooth_diff3d.F |
38 |
SMOOTH_DIFF3D |
integer ii, jj, kk |
|
./pkg/smooth/smooth_filtervar2d.F |
26 |
SMOOTH_FILTERVAR2D |
integer i,j,k, bi, bj, ii, jj, kk |
|
./pkg/smooth/smooth_filtervar3d.F |
112 |
SMOOTH_FILTERVAR3D |
DO kk=1,dkLoc |
|
./pkg/smooth/smooth_filtervar3d.F |
126 |
SMOOTH_FILTERVAR3D |
DO k=kk,Nr,dkLoc |
|
./pkg/smooth/smooth_filtervar3d.F |
27 |
SMOOTH_FILTERVAR3D |
integer i,j,k, bi, bj, ii, jj, kk |
|
./pkg/smooth/smooth_init3d.F |
39 |
SMOOTH_INIT3D |
integer ii,jj,kk |
|
./model/src/rotate_uv2en.F |
103 |
ROTATE_UV2EN_RL |
tmpU(i,j) = tmpU(i,j) * maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
104 |
ROTATE_UV2EN_RL |
tmpV(i,j) = tmpV(i,j) * maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
115 |
ROTATE_UV2EN_RL |
tmpU(i,j) = tmpU(i,j) * maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
116 |
ROTATE_UV2EN_RL |
tmpV(i,j) = tmpV(i,j) * maskC(i,j,kk,bi,bj) |
|
./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 |
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 |
262 |
ROTATE_UV2EN_RS |
kk=nr |
|
./model/src/rotate_uv2en.F |
264 |
ROTATE_UV2EN_RS |
kk=k |
|
./model/src/rotate_uv2en.F |
284 |
ROTATE_UV2EN_RS |
tmpU(i,j) = tmpU(i,j) * maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
285 |
ROTATE_UV2EN_RS |
tmpV(i,j) = tmpV(i,j) * maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
296 |
ROTATE_UV2EN_RS |
tmpU(i,j) = tmpU(i,j) * maskC(i,j,kk,bi,bj) |
|
./model/src/rotate_uv2en.F |
297 |
ROTATE_UV2EN_RS |
tmpV(i,j) = tmpV(i,j) * maskC(i,j,kk,bi,bj) |
|
./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 |
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 |
81 |
ROTATE_UV2EN_RL |
kk=nr |
|
./model/src/rotate_uv2en.F |
83 |
ROTATE_UV2EN_RL |
kk=k |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
245 |
CTRL_SET_PACK_XZ |
kk=int((j-1)*nr+K-1)/sny+1 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
250 |
CTRL_SET_PACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
255 |
CTRL_SET_PACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk) * |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
263 |
CTRL_SET_PACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk) / |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
274 |
CTRL_SET_PACK_XZ |
cbuff(cbuffindex) = globfld3d(i,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
56 |
CTRL_SET_PACK_XZ |
integer ii,jj,kk |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
248 |
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 |
253 |
CTRL_SET_PACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
258 |
CTRL_SET_PACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk) * |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
266 |
CTRL_SET_PACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk) / |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
277 |
CTRL_SET_PACK_YZ |
cbuff(cbuffindex) = globfld3d(ii,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
56 |
CTRL_SET_PACK_YZ |
integer ii,jj,kk |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
244 |
CTRL_SET_UNPACK_XZ |
kk=int((j-1)*nr+k-1)/sny+1 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
252 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
259 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
260 |
CTRL_SET_UNPACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk)/ |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
268 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,jj,bj,jp,kk) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
272 |
CTRL_SET_UNPACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
57 |
CTRL_SET_UNPACK_XZ |
integer ii,jj,kk |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
249 |
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 |
252 |
CTRL_SET_UNPACK_YZ |
globfld3d(ii,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
259 |
CTRL_SET_UNPACK_YZ |
globfld3d(ii,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
260 |
CTRL_SET_UNPACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk)/ |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
268 |
CTRL_SET_UNPACK_YZ |
globfld3d(ii,bi,ip,jj,bj,jp,kk) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
272 |
CTRL_SET_UNPACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
57 |
CTRL_SET_UNPACK_YZ |
integer ii,jj,kk |
|
./pkg/ecco/cost_forcing_gen.F |
177 |
COST_FORCING_GEN |
kk = 1 |
|
./pkg/ecco/cost_forcing_gen.F |
184 |
COST_FORCING_GEN |
if (genmask(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_forcing_gen.F |
211 |
COST_FORCING_GEN |
kk = 1 |
|
./pkg/ecco/cost_forcing_gen.F |
215 |
COST_FORCING_GEN |
if (genmask(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_forcing_gen.F |
261 |
COST_FORCING_GEN |
kk = 1 |
|
./pkg/ecco/cost_forcing_gen.F |
265 |
COST_FORCING_GEN |
if (genmask(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_forcing_gen.F |
268 |
COST_FORCING_GEN |
& *maskW(i+1,j,kk,bi,bj)*maskW(i+2,j,kk,bi,bj) |
|
./pkg/ecco/cost_forcing_gen.F |
270 |
COST_FORCING_GEN |
& *maskW(i+1,j,kk,bi,bj) |
|
./pkg/ecco/cost_forcing_gen.F |
272 |
COST_FORCING_GEN |
& *maskS(i,j+1,kk,bi,bj)*maskS(i,j+2,kk,bi,bj) |
|
./pkg/ecco/cost_forcing_gen.F |
274 |
COST_FORCING_GEN |
& *maskS(i,j+1,kk,bi,bj) |
|
./pkg/ecco/cost_forcing_gen.F |
77 |
COST_FORCING_GEN |
integer i,j,kk |
|
./pkg/ecco/cost_mean_heatflux.F |
112 |
COST_MEAN_HEATFLUX |
kk = 1 |
|
./pkg/ecco/cost_mean_heatflux.F |
116 |
COST_MEAN_HEATFLUX |
if (maskC(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_mean_heatflux.F |
50 |
COST_MEAN_HEATFLUX |
integer i,j,kk |
|
./pkg/ecco/cost_mean_saltflux.F |
112 |
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 |
50 |
COST_MEAN_SALTFLUX |
integer i,j,kk |