| 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/gmredi/gmredi_calc_eigs.F |
163 |
GMREDI_CALC_EIGS |
DO kk=1,Nr |
|
./pkg/gmredi/gmredi_calc_eigs.F |
165 |
GMREDI_CALC_EIGS |
array(k,kk) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
52 |
GMREDI_CALC_EIGS |
INTEGER i,j,k,kk,m |
|
./pkg/gmredi/gmredi_k3d.F |
51 |
GMREDI_K3D |
INTEGER i,j,k,kk,m |
|
./pkg/gmredi/gmredi_k3d.F |
720 |
GMREDI_K3D |
kk=kLow_U(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
723 |
GMREDI_K3D |
kk=surfk(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
726 |
GMREDI_K3D |
IF(kk.GT.0) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
727 |
GMREDI_K3D |
IF(kk.EQ.Nr) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
729 |
GMREDI_K3D |
& *SlopeX(i,j,kk)/hsurf |
|
./pkg/gmredi/gmredi_k3d.F |
732 |
GMREDI_K3D |
& *( SlopeX(i,j,kk)-SlopeX(i,j,kk+1) )/hsurf |
|
./pkg/gmredi/gmredi_k3d.F |
739 |
GMREDI_K3D |
kk=kLow_V(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
742 |
GMREDI_K3D |
kk=surfk(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
745 |
GMREDI_K3D |
IF(kk.GT.0) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
746 |
GMREDI_K3D |
IF(kk.EQ.Nr) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
748 |
GMREDI_K3D |
& *SlopeY(i,j,kk)/hsurf |
|
./pkg/gmredi/gmredi_k3d.F |
751 |
GMREDI_K3D |
& *( SlopeY(i,j,kk)-SlopeY(i,j,kk+1) )/hsurf |
|
./pkg/layers/layers_fluxcalc.F |
142 |
LAYERS_FLUXCALC |
DO kk=1,NZZ |
|
./pkg/layers/layers_fluxcalc.F |
143 |
LAYERS_FLUXCALC |
k = MapIndex(kk) |
|
./pkg/layers/layers_fluxcalc.F |
144 |
LAYERS_FLUXCALC |
kci = CellIndex(kk) |
|
./pkg/layers/layers_fluxcalc.F |
157 |
LAYERS_FLUXCALC |
TatU(i,j) = MapFact(kk) * |
|
./pkg/layers/layers_fluxcalc.F |
159 |
LAYERS_FLUXCALC |
& (1-MapFact(kk)) * |
|
./pkg/layers/layers_fluxcalc.F |
196 |
LAYERS_FLUXCALC |
& dZZf(kk) * uVel(i,j,kci,bi,bj) * hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
217 |
LAYERS_FLUXCALC |
& * dZZf(kk)*hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
223 |
LAYERS_FLUXCALC |
& + dZZf(kk) * hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
236 |
LAYERS_FLUXCALC |
TatV(i,j) = MapFact(kk) * |
|
./pkg/layers/layers_fluxcalc.F |
238 |
LAYERS_FLUXCALC |
& (1-MapFact(kk)) * |
|
./pkg/layers/layers_fluxcalc.F |
275 |
LAYERS_FLUXCALC |
& + dZZf(kk) * vVel(i,j,kci,bi,bj) * hFacS(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
296 |
LAYERS_FLUXCALC |
& * dZZf(kk)*hFacS(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
302 |
LAYERS_FLUXCALC |
& + dZZf(kk) * hFacS(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
407 |
LAYERS_DIAPYCNAL |
INTEGER i,j,k,kk,kg,kci,kloc |
|
./pkg/layers/layers_fluxcalc.F |
451 |
LAYERS_DIAPYCNAL |
DO kk=1,NZZ |
|
./pkg/layers/layers_fluxcalc.F |
452 |
LAYERS_DIAPYCNAL |
k = MapIndex(kk) |
|
./pkg/layers/layers_fluxcalc.F |
453 |
LAYERS_DIAPYCNAL |
kci = CellIndex(kk) |
|
./pkg/layers/layers_fluxcalc.F |
456 |
LAYERS_DIAPYCNAL |
TatC(i,j) = MapFact(kk) * tracer(i,j,k,bi,bj) + |
|
./pkg/layers/layers_fluxcalc.F |
457 |
LAYERS_DIAPYCNAL |
& (1.0-MapFact(kk)) * tracer(i,j,k+1,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
489 |
LAYERS_DIAPYCNAL |
dzfac = dZZf(kk) * hFacC(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
90 |
LAYERS_FLUXCALC |
INTEGER i,j,k,kk,kg,kci,kp1,kloc |
|
./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 |
101 |
LAYERS_INIT_FIXED |
MapIndex(kk) = Nr - 1 |
|
./pkg/layers/layers_init_fixed.F |
102 |
LAYERS_INIT_FIXED |
MapFact(kk) = 0.0 _d 0 |
|
./pkg/layers/layers_init_fixed.F |
104 |
LAYERS_INIT_FIXED |
ELSE IF ( (ZZc(kk) .GE. Zc(k)) |
|
./pkg/layers/layers_init_fixed.F |
105 |
LAYERS_INIT_FIXED |
& .AND. (ZZc(kk) .LT. Zc(Nr)) ) THEN |
|
./pkg/layers/layers_init_fixed.F |
107 |
LAYERS_INIT_FIXED |
DO WHILE (ZZc(kk) .GE. Zc(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 |
123 |
LAYERS_INIT_FIXED |
IF ( ZZc(kk).LT.Zf(MapIndex(kk)+1) ) THEN |
|
./pkg/layers/layers_init_fixed.F |
124 |
LAYERS_INIT_FIXED |
CellIndex(kk) = MapIndex(kk) |
|
./pkg/layers/layers_init_fixed.F |
126 |
LAYERS_INIT_FIXED |
CellIndex(kk) = MapIndex(kk)+1 |
|
./pkg/layers/layers_init_fixed.F |
133 |
LAYERS_INIT_FIXED |
DO kk=1,NZZ |
|
./pkg/layers/layers_init_fixed.F |
135 |
LAYERS_INIT_FIXED |
& '// ZZc=', ZZc(kk), |
|
./pkg/layers/layers_init_fixed.F |
136 |
LAYERS_INIT_FIXED |
& ', MapIndex(',kk,')=',MapIndex(kk), |
|
./pkg/layers/layers_init_fixed.F |
137 |
LAYERS_INIT_FIXED |
& ', MapFact(',kk,')=',MapFact(kk), |
|
./pkg/layers/layers_init_fixed.F |
138 |
LAYERS_INIT_FIXED |
& ', CellIndex(',kk,')=',CellIndex(kk) |
|
./pkg/layers/layers_init_fixed.F |
34 |
LAYERS_INIT_FIXED |
INTEGER k,kk,kkinit,iLa |
|
./pkg/layers/layers_init_fixed.F |
68 |
LAYERS_INIT_FIXED |
DO kk=kkinit,kkinit+FineGridFact-1 |
|
./pkg/layers/layers_init_fixed.F |
69 |
LAYERS_INIT_FIXED |
dZZf(kk) = dRf(k) / FineGridFact |
|
./pkg/layers/layers_init_fixed.F |
87 |
LAYERS_INIT_FIXED |
DO kk=2,NZZ+1 |
|
./pkg/layers/layers_init_fixed.F |
88 |
LAYERS_INIT_FIXED |
ZZf(kk) = ZZf(kk-1) + dZZf(kk-1) |
|
./pkg/layers/layers_init_fixed.F |
89 |
LAYERS_INIT_FIXED |
ZZc(kk-1) = 0.5 _d 0 * (ZZf(kk) + ZZf(kk-1)) |
|
./pkg/layers/layers_init_fixed.F |
94 |
LAYERS_INIT_FIXED |
DO kk=1,NZZ |
|
./pkg/layers/layers_init_fixed.F |
96 |
LAYERS_INIT_FIXED |
IF ( ZZc(kk) .LT. Zc(1) ) THEN |
|
./pkg/layers/layers_init_fixed.F |
97 |
LAYERS_INIT_FIXED |
MapIndex(kk) = 1 |
|
./pkg/layers/layers_init_fixed.F |
98 |
LAYERS_INIT_FIXED |
MapFact(kk) = 1.0 _d 0 |
|
./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 |
312 |
PROFILES_INIT_FIXED |
do kk=1,profno_div1000+1 |
|
./pkg/profiles/profiles_init_fixed.F |
314 |
PROFILES_INIT_FIXED |
if (min(ProfNo(num_file,bi,bj), 1000*kk).GE. |
|
./pkg/profiles/profiles_init_fixed.F |
315 |
PROFILES_INIT_FIXED |
& 1+1000*(kk-1)) then |
|
./pkg/profiles/profiles_init_fixed.F |
319 |
PROFILES_INIT_FIXED |
vec_start(2)=1+1000*(kk-1) |
|
./pkg/profiles/profiles_init_fixed.F |
321 |
PROFILES_INIT_FIXED |
vec_count(2)=min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1)) |
|
./pkg/profiles/profiles_init_fixed.F |
364 |
PROFILES_INIT_FIXED |
vec_start2(2)=1+1000*(kk-1) |
|
./pkg/profiles/profiles_init_fixed.F |
366 |
PROFILES_INIT_FIXED |
vec_count2(2)=min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1)) |
|
./pkg/profiles/profiles_init_fixed.F |
378 |
PROFILES_INIT_FIXED |
do k=1,min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1)) |
|
./pkg/profiles/profiles_init_fixed.F |
416 |
PROFILES_INIT_FIXED |
prof_ind_glob(num_file,length_for_tile,bi,bj)=k+1000*(kk-1) |
|
./pkg/profiles/profiles_init_fixed.F |
434 |
PROFILES_INIT_FIXED |
prof_ind_glob(num_file,length_for_tile,bi,bj)=k+1000*(kk-1) |
|
./pkg/profiles/profiles_init_fixed.F |
43 |
PROFILES_INIT_FIXED |
integer vec_start(2), vec_count(2), profno_div1000, kk |
|
./pkg/profiles/profiles_init_fixed.F |
513 |
PROFILES_INIT_FIXED |
prof_ind_glob(num_file,length_for_tile,bi,bj)=k+1000*(kk-1) |
|
./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,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,k,kk,kcur,bi,bj |
|
./pkg/profiles/profiles_interp_mean.F |
216 |
PROFILES_INTERP_MEAN |
do kk=1,NLEVELMAX |
|
./pkg/profiles/profiles_interp_mean.F |
217 |
PROFILES_INTERP_MEAN |
traj_cur_out(kk)=0 |
|
./pkg/profiles/profiles_interp_mean.F |
218 |
PROFILES_INTERP_MEAN |
prof_mask1D_cur(kk,bi,bj)=0 |
|
./pkg/profiles/profiles_interp_mean.F |
220 |
PROFILES_INTERP_MEAN |
do kk=1,ProfDepthNo(file_cur,bi,bj) |
|
./pkg/profiles/profiles_interp_mean.F |
222 |
PROFILES_INTERP_MEAN |
if (prof_depth(file_cur,kk,bi,bj).LT.-rC(1)) then |
|
./pkg/profiles/profiles_interp_mean.F |
223 |
PROFILES_INTERP_MEAN |
traj_cur_out(kk)=traj_cur(1) |
|
./pkg/profiles/profiles_interp_mean.F |
224 |
PROFILES_INTERP_MEAN |
prof_mask1D_cur(kk,bi,bj)=mask_cur(1) |
|
./pkg/profiles/profiles_interp_mean.F |
226 |
PROFILES_INTERP_MEAN |
elseif (prof_depth(file_cur,kk,bi,bj).GE.-rC(nr)) then |
|
./pkg/profiles/profiles_interp_mean.F |
227 |
PROFILES_INTERP_MEAN |
if ( prof_depth(file_cur,kk,bi,bj) .LT. |
|
./pkg/profiles/profiles_interp_mean.F |
229 |
PROFILES_INTERP_MEAN |
traj_cur_out(kk)=traj_cur(nr) |
|
./pkg/profiles/profiles_interp_mean.F |
230 |
PROFILES_INTERP_MEAN |
prof_mask1D_cur(kk,bi,bj)=mask_cur(nr) |
|
./pkg/profiles/profiles_interp_mean.F |
236 |
PROFILES_INTERP_MEAN |
if ((prof_depth(file_cur,kk,bi,bj).GE.-rC(k)).AND. |
|
./pkg/profiles/profiles_interp_mean.F |
237 |
PROFILES_INTERP_MEAN |
& (prof_depth(file_cur,kk,bi,bj).LT.-rC(k+1))) then |
|
./pkg/profiles/profiles_interp_mean.F |
248 |
PROFILES_INTERP_MEAN |
tmp_coeff=(prof_depth(file_cur,kk,bi,bj)+rC(kcur))/ |
|
./pkg/profiles/profiles_interp_mean.F |
250 |
PROFILES_INTERP_MEAN |
traj_cur_out(kk)=(1-tmp_coeff)*traj_cur(kcur) |
|
./pkg/profiles/profiles_interp_mean.F |
252 |
PROFILES_INTERP_MEAN |
prof_mask1D_cur(kk,bi,bj)=1 |
|
./pkg/profiles/profiles_interp_mean.F |
258 |
PROFILES_INTERP_MEAN |
elseif (prof_depth(file_cur,kk,bi,bj).LT.-rF(kcur+1)) then |
|
./pkg/profiles/profiles_interp_mean.F |
260 |
PROFILES_INTERP_MEAN |
traj_cur_out(kk)=traj_cur(kcur) |
|
./pkg/profiles/profiles_interp_mean.F |
261 |
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,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,k,kk,kcur,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 |
116 |
SALT_PLUME_FRAC |
DO kk=1,Npowerloc+1 |
|
./pkg/salt_plume/salt_plume_frac.F |
175 |
SALT_PLUME_FRAC |
DO kk=1,Npowerloc+1 |
|
./pkg/salt_plume/salt_plume_frac.F |
76 |
SALT_PLUME_FRAC |
INTEGER kk |
|
./pkg/smooth/smooth_diff3d.F |
34 |
SMOOTH_DIFF3D |
integer ii, jj, kk |
|
./pkg/smooth/smooth_filtervar2d.F |
23 |
SMOOTH_FILTERVAR2D |
integer i,j,k, bi, bj, ii, jj, kk |
|
./pkg/smooth/smooth_filtervar3d.F |
110 |
SMOOTH_FILTERVAR3D |
DO kk=1,dkLoc |
|
./pkg/smooth/smooth_filtervar3d.F |
124 |
SMOOTH_FILTERVAR3D |
DO k=kk,Nr,dkLoc |
|
./pkg/smooth/smooth_filtervar3d.F |
26 |
SMOOTH_FILTERVAR3D |
integer i,j,k, bi, bj, ii, jj, kk |
|
./pkg/smooth/smooth_init3d.F |
35 |
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 |
202 |
CTRL_SET_PACK_XZ |
kk=int((j-1)*nr+K-1)/sny+1 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
207 |
CTRL_SET_PACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
212 |
CTRL_SET_PACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk) * |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
220 |
CTRL_SET_PACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk) / |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
231 |
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 |
206 |
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 |
211 |
CTRL_SET_PACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk) |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
216 |
CTRL_SET_PACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk) * |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
224 |
CTRL_SET_PACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk) / |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
235 |
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 |
224 |
CTRL_SET_UNPACK_XZ |
kk=int((j-1)*nr+k-1)/sny+1 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
232 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
239 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
240 |
CTRL_SET_UNPACK_XZ |
& globfld3d(i,bi,ip,jj,bj,jp,kk)/ |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
248 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,jj,bj,jp,kk) = 0. _d 0 |
|
./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 |
57 |
CTRL_SET_UNPACK_XZ |
integer ii,jj,kk |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
229 |
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 |
232 |
CTRL_SET_UNPACK_YZ |
globfld3d(ii,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
239 |
CTRL_SET_UNPACK_YZ |
globfld3d(ii,bi,ip,jj,bj,jp,kk) = |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
240 |
CTRL_SET_UNPACK_YZ |
& globfld3d(ii,bi,ip,jj,bj,jp,kk)/ |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
248 |
CTRL_SET_UNPACK_YZ |
globfld3d(ii,bi,ip,jj,bj,jp,kk) = 0. _d 0 |
|
./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 |
57 |
CTRL_SET_UNPACK_YZ |
integer ii,jj,kk |
|
./pkg/ecco/cost_forcing_gen.F |
176 |
COST_FORCING_GEN |
kk = 1 |
|
./pkg/ecco/cost_forcing_gen.F |
183 |
COST_FORCING_GEN |
if (genmask(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_forcing_gen.F |
210 |
COST_FORCING_GEN |
kk = 1 |
|
./pkg/ecco/cost_forcing_gen.F |
214 |
COST_FORCING_GEN |
if (genmask(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_forcing_gen.F |
260 |
COST_FORCING_GEN |
kk = 1 |
|
./pkg/ecco/cost_forcing_gen.F |
264 |
COST_FORCING_GEN |
if (genmask(i,j,kk,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_forcing_gen.F |
267 |
COST_FORCING_GEN |
& *maskW(i+1,j,kk,bi,bj)*maskW(i+2,j,kk,bi,bj) |
|
./pkg/ecco/cost_forcing_gen.F |
269 |
COST_FORCING_GEN |
& *maskW(i+1,j,kk,bi,bj) |
|
./pkg/ecco/cost_forcing_gen.F |
271 |
COST_FORCING_GEN |
& *maskS(i,j+1,kk,bi,bj)*maskS(i,j+2,kk,bi,bj) |
|
./pkg/ecco/cost_forcing_gen.F |
273 |
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_heatflux.F |
113 |
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 |
51 |
COST_MEAN_HEATFLUX |
integer i,j,kk |
|
./pkg/ecco/cost_mean_saltflux.F |
113 |
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 |
51 |
COST_MEAN_SALTFLUX |
integer i,j,kk |