| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_cost_init_varia.F |
59 |
ECCO_COST_INIT_VARIA |
integer num_file,num_var |
|
./pkg/ecco/ecco_readparms.F |
51 |
ECCO_READPARMS |
INTEGER k, k2, iUnit, num_file, num_var |
|
./pkg/profiles/cost_profiles.F |
132 |
COST_PROFILES |
do num_file=1,NFILESPROFMAX |
|
./pkg/profiles/cost_profiles.F |
133 |
COST_PROFILES |
fid=fiddata(num_file,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
135 |
COST_PROFILES |
if ( (ProfNo(num_file,bi,bj).GT.0).AND. |
|
./pkg/profiles/cost_profiles.F |
138 |
COST_PROFILES |
err = NF_CLOSE(fidforward(num_file,bi,bj)) |
|
./pkg/profiles/cost_profiles.F |
142 |
COST_PROFILES |
IL = ILNBLNK( profilesfiles(num_file) ) |
|
./pkg/profiles/cost_profiles.F |
144 |
COST_PROFILES |
& profilesfiles(num_file)(1:IL) |
|
./pkg/profiles/cost_profiles.F |
151 |
COST_PROFILES |
& fidforward(num_file,bi,bj)) |
|
./pkg/profiles/cost_profiles.F |
156 |
COST_PROFILES |
prof_lev_comb(k,num_file,bi,bj) = -999 |
|
./pkg/profiles/cost_profiles.F |
157 |
COST_PROFILES |
if(K.LE.ProfDepthNo(num_file,bi,bj)) then |
|
./pkg/profiles/cost_profiles.F |
159 |
COST_PROFILES |
if(prof_depth(num_file, k,bi,bj).EQ. |
|
./pkg/profiles/cost_profiles.F |
162 |
COST_PROFILES |
& prof_lev_comb(k,num_file,bi,bj).EQ.-999) then |
|
./pkg/profiles/cost_profiles.F |
163 |
COST_PROFILES |
prof_lev_comb(k,num_file,bi,bj) = k2 |
|
./pkg/profiles/cost_profiles.F |
170 |
COST_PROFILES |
if (vec_quantities(num_file,num_var,bi,bj).EQV..TRUE.) then |
|
./pkg/profiles/cost_profiles.F |
172 |
COST_PROFILES |
if (prof_num.LE.ProfNo(num_file,bi,bj)) then |
|
./pkg/profiles/cost_profiles.F |
182 |
COST_PROFILES |
ix9 = prof_interp_i(num_file,prof_num,1,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
183 |
COST_PROFILES |
iy9 = prof_interp_j(num_file,prof_num,1,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
185 |
COST_PROFILES |
if(prof_ind_avgbin(num_file,prof_num,bi,bj).GT.NAVGBIN) |
|
./pkg/profiles/cost_profiles.F |
186 |
COST_PROFILES |
& NAVGBIN = prof_ind_avgbin(num_file,prof_num,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
189 |
COST_PROFILES |
itmp = prof_ind_avgbin(num_file,prof_num,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
193 |
COST_PROFILES |
call ACTIVE_READ_PROFILE(num_file, |
|
./pkg/profiles/cost_profiles.F |
194 |
COST_PROFILES |
& ProfDepthNo(num_file,bi,bj),prof_traj1D,num_var, |
|
./pkg/profiles/cost_profiles.F |
196 |
COST_PROFILES |
& profiles_dummy(num_file,num_var,bi,bj)) |
|
./pkg/profiles/cost_profiles.F |
198 |
COST_PROFILES |
call PROFILES_READVECTOR(num_file,num_var, |
|
./pkg/profiles/cost_profiles.F |
199 |
COST_PROFILES |
& prof_ind_glob(num_file,prof_num,bi,bj), |
|
./pkg/profiles/cost_profiles.F |
200 |
COST_PROFILES |
& ProfDepthNo(num_file,bi,bj),prof_data1D,bi,bj,myThid) |
|
./pkg/profiles/cost_profiles.F |
202 |
COST_PROFILES |
call PROFILES_READVECTOR(num_file,-num_var, |
|
./pkg/profiles/cost_profiles.F |
203 |
COST_PROFILES |
& prof_ind_glob(num_file,prof_num,bi,bj), |
|
./pkg/profiles/cost_profiles.F |
204 |
COST_PROFILES |
& ProfDepthNo(num_file,bi,bj), |
|
./pkg/profiles/cost_profiles.F |
207 |
COST_PROFILES |
do K=1,ProfDepthNo(num_file,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
212 |
COST_PROFILES |
& prof_lev_comb(k,num_file,bi,bj),num_var) |
|
./pkg/profiles/cost_profiles.F |
214 |
COST_PROFILES |
& prof_lev_comb(k,num_file,bi,bj), num_var) |
|
./pkg/profiles/cost_profiles.F |
218 |
COST_PROFILES |
& prof_lev_comb(k,num_file,bi,bj), num_var) |
|
./pkg/profiles/cost_profiles.F |
220 |
COST_PROFILES |
& prof_lev_comb(k,num_file,bi,bj), num_var) |
|
./pkg/profiles/cost_profiles.F |
224 |
COST_PROFILES |
& prof_lev_comb(k,num_file,bi,bj), num_var) |
|
./pkg/profiles/cost_profiles.F |
226 |
COST_PROFILES |
& prof_lev_comb(k,num_file,bi,bj), num_var) |
|
./pkg/profiles/cost_profiles.F |
230 |
COST_PROFILES |
& prof_lev_comb(k,num_file,bi,bj), num_var) |
|
./pkg/profiles/cost_profiles.F |
232 |
COST_PROFILES |
& prof_lev_comb(k,num_file,bi,bj), num_var) |
|
./pkg/profiles/cost_profiles.F |
262 |
COST_PROFILES |
do num_file=1,NFILESPROFMAX |
|
./pkg/profiles/cost_profiles.F |
263 |
COST_PROFILES |
if (vec_quantities(num_file,num_var,bi,bj).EQV..TRUE.) then |
|
./pkg/profiles/cost_profiles.F |
411 |
COST_PROFILES |
do num_file=1,NFILESPROFMAX |
|
./pkg/profiles/cost_profiles.F |
412 |
COST_PROFILES |
fid=fiddata(num_file,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
414 |
COST_PROFILES |
if ( (ProfNo(num_file,bi,bj).GT.0).AND. |
|
./pkg/profiles/cost_profiles.F |
417 |
COST_PROFILES |
err = NF_CLOSE(fidforward(num_file,bi,bj)) |
|
./pkg/profiles/cost_profiles.F |
421 |
COST_PROFILES |
IL = ILNBLNK( profilesfiles(num_file) ) |
|
./pkg/profiles/cost_profiles.F |
423 |
COST_PROFILES |
& profilesfiles(num_file)(1:IL) |
|
./pkg/profiles/cost_profiles.F |
430 |
COST_PROFILES |
& fidforward(num_file,bi,bj)) |
|
./pkg/profiles/cost_profiles.F |
434 |
COST_PROFILES |
if (prof_num.LE.ProfNo(num_file,bi,bj)) then |
|
./pkg/profiles/cost_profiles.F |
457 |
COST_PROFILES |
if (vec_quantities(num_file,num_var,bi,bj).EQV..TRUE.) then |
|
./pkg/profiles/cost_profiles.F |
45 |
COST_PROFILES |
integer K,num_file,num_var,prof_num |
|
./pkg/profiles/cost_profiles.F |
460 |
COST_PROFILES |
itmp = prof_ind_avgbin(num_file,prof_num,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
462 |
COST_PROFILES |
do K=1,ProfDepthNo(num_file,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
464 |
COST_PROFILES |
ktmp = prof_lev_comb(k,num_file,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
476 |
COST_PROFILES |
call ACTIVE_READ_PROFILE(num_file, |
|
./pkg/profiles/cost_profiles.F |
477 |
COST_PROFILES |
& ProfDepthNo(num_file,bi,bj),prof_traj1D,num_var, |
|
./pkg/profiles/cost_profiles.F |
479 |
COST_PROFILES |
& profiles_dummy(num_file,num_var,bi,bj)) |
|
./pkg/profiles/cost_profiles.F |
481 |
COST_PROFILES |
call PROFILES_READVECTOR(num_file,num_var, |
|
./pkg/profiles/cost_profiles.F |
482 |
COST_PROFILES |
& prof_ind_glob(num_file,prof_num,bi,bj), |
|
./pkg/profiles/cost_profiles.F |
483 |
COST_PROFILES |
& ProfDepthNo(num_file,bi,bj),prof_data1D,bi,bj,myThid) |
|
./pkg/profiles/cost_profiles.F |
485 |
COST_PROFILES |
call PROFILES_READVECTOR(num_file,-num_var, |
|
./pkg/profiles/cost_profiles.F |
486 |
COST_PROFILES |
& prof_ind_glob(num_file,prof_num,bi,bj), |
|
./pkg/profiles/cost_profiles.F |
487 |
COST_PROFILES |
& ProfDepthNo(num_file,bi,bj), |
|
./pkg/profiles/cost_profiles.F |
490 |
COST_PROFILES |
do K=1,ProfDepthNo(num_file,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
496 |
COST_PROFILES |
objf_profiles(num_file,num_var,bi,bj)= |
|
./pkg/profiles/cost_profiles.F |
497 |
COST_PROFILES |
& objf_profiles(num_file,num_var,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
509 |
COST_PROFILES |
num_profiles(num_file,num_var,bi,bj)= |
|
./pkg/profiles/cost_profiles.F |
510 |
COST_PROFILES |
& num_profiles(num_file,num_var,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
522 |
COST_PROFILES |
if (ProfNo(num_file,bi,bj).GT.0) then |
|
./pkg/profiles/cost_profiles.F |
525 |
COST_PROFILES |
& ProfNo(num_file,bi,bj),num_var |
|
./pkg/profiles/cost_profiles.F |
529 |
COST_PROFILES |
& prof_names(num_file,num_var), |
|
./pkg/profiles/cost_profiles.F |
530 |
COST_PROFILES |
& objf_profiles(num_file,num_var,bi,bj), |
|
./pkg/profiles/cost_profiles.F |
531 |
COST_PROFILES |
& num_profiles(num_file,num_var,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
620 |
COST_PROFILES |
do num_file=1,NFILESPROFMAX |
|
./pkg/profiles/cost_profiles.F |
626 |
COST_PROFILES |
& objf_profiles(num_file,num_var,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
628 |
COST_PROFILES |
& num_profiles(num_file,num_var,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
636 |
COST_PROFILES |
& ' cost_profiles(',num_file,',',num_var,')= ', |
|
./pkg/profiles/profiles_init_fixed.F |
162 |
PROFILES_INIT_FIXED |
do num_file=1,NFILESPROFMAX |
|
./pkg/profiles/profiles_init_fixed.F |
167 |
PROFILES_INIT_FIXED |
IL = ILNBLNK( profilesfiles(num_file) ) |
|
./pkg/profiles/profiles_init_fixed.F |
170 |
PROFILES_INIT_FIXED |
& profilesfiles(num_file)(1:IL) |
|
./pkg/profiles/profiles_init_fixed.F |
175 |
PROFILES_INIT_FIXED |
& 'profiles file #',num_file,' is ', profilesfile(1:IL) |
|
./pkg/profiles/profiles_init_fixed.F |
188 |
PROFILES_INIT_FIXED |
err = NF_OPEN(fnamedatanc, 0, fiddata(num_file,bi,bj)) |
|
./pkg/profiles/profiles_init_fixed.F |
191 |
PROFILES_INIT_FIXED |
fid=fiddata(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
193 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMLEN(fid, dimid, ProfNo(num_file,bi,bj) ) |
|
./pkg/profiles/profiles_init_fixed.F |
198 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMLEN(fid, dimid, ProfDepthNo(num_file,bi,bj) ) |
|
./pkg/profiles/profiles_init_fixed.F |
213 |
PROFILES_INIT_FIXED |
& ProfDepthNo(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
218 |
PROFILES_INIT_FIXED |
& ProfNo(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
238 |
PROFILES_INIT_FIXED |
do k=1,ProfDepthNo(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
240 |
PROFILES_INIT_FIXED |
& prof_depth(num_file,k,bi,bj)) |
|
./pkg/profiles/profiles_init_fixed.F |
281 |
PROFILES_INIT_FIXED |
prof_time(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
282 |
PROFILES_INIT_FIXED |
prof_lon(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
283 |
PROFILES_INIT_FIXED |
prof_lat(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
284 |
PROFILES_INIT_FIXED |
prof_ind_glob(num_file,k,bi,bj)=0 |
|
./pkg/profiles/profiles_init_fixed.F |
286 |
PROFILES_INIT_FIXED |
prof_ind_avgbin(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
289 |
PROFILES_INIT_FIXED |
prof_interp_i(num_file,k,q,bi,bj) = 1 |
|
./pkg/profiles/profiles_init_fixed.F |
290 |
PROFILES_INIT_FIXED |
prof_interp_j(num_file,k,q,bi,bj) = 1 |
|
./pkg/profiles/profiles_init_fixed.F |
291 |
PROFILES_INIT_FIXED |
prof_interp_weights(num_file,k,q,bi,bj) = 0. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
293 |
PROFILES_INIT_FIXED |
prof_interp_xC11(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
294 |
PROFILES_INIT_FIXED |
prof_interp_yC11(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
295 |
PROFILES_INIT_FIXED |
prof_interp_xCNINJ(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
296 |
PROFILES_INIT_FIXED |
prof_interp_yCNINJ(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
301 |
PROFILES_INIT_FIXED |
profno_div1000=max(0,int(ProfNo(num_file,bi,bj)/1000)) |
|
./pkg/profiles/profiles_init_fixed.F |
305 |
PROFILES_INIT_FIXED |
if (min(ProfNo(num_file,bi,bj), 1000*kk).GE. |
|
./pkg/profiles/profiles_init_fixed.F |
312 |
PROFILES_INIT_FIXED |
vec_count(2)=min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1)) |
|
./pkg/profiles/profiles_init_fixed.F |
316 |
PROFILES_INIT_FIXED |
& (vec_count(2)+vec_start(2)-1.GT.ProfNo(num_file,bi,bj)) ) |
|
./pkg/profiles/profiles_init_fixed.F |
361 |
PROFILES_INIT_FIXED |
vec_count2(2)=min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1)) |
|
./pkg/profiles/profiles_init_fixed.F |
372 |
PROFILES_INIT_FIXED |
do k=1,min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1)) |
|
./pkg/profiles/profiles_init_fixed.F |
41 |
PROFILES_INIT_FIXED |
integer i,j,k,l,m,bi,bj,iG,jG,num_file,ProfNo_tile |
|
./pkg/profiles/profiles_init_fixed.F |
477 |
PROFILES_INIT_FIXED |
prof_time(num_file,ProfNo_tile,bi,bj)=diffsecs |
|
./pkg/profiles/profiles_init_fixed.F |
478 |
PROFILES_INIT_FIXED |
prof_lon(num_file,ProfNo_tile,bi,bj)=lon_cur |
|
./pkg/profiles/profiles_init_fixed.F |
479 |
PROFILES_INIT_FIXED |
prof_lat(num_file,ProfNo_tile,bi,bj)=lat_cur |
|
./pkg/profiles/profiles_init_fixed.F |
480 |
PROFILES_INIT_FIXED |
prof_ind_glob(num_file,ProfNo_tile,bi,bj)=k+1000*(kk-1) |
|
./pkg/profiles/profiles_init_fixed.F |
482 |
PROFILES_INIT_FIXED |
prof_ind_avgbin(num_file,ProfNo_tile,bi,bj)=tmp_avgbin(k) |
|
./pkg/profiles/profiles_init_fixed.F |
487 |
PROFILES_INIT_FIXED |
prof_interp_weights(num_file,ProfNo_tile,1,bi,bj)= |
|
./pkg/profiles/profiles_init_fixed.F |
489 |
PROFILES_INIT_FIXED |
prof_interp_i(num_file,ProfNo_tile,1,bi,bj)=prof_i |
|
./pkg/profiles/profiles_init_fixed.F |
490 |
PROFILES_INIT_FIXED |
prof_interp_j(num_file,ProfNo_tile,1,bi,bj)=prof_j |
|
./pkg/profiles/profiles_init_fixed.F |
491 |
PROFILES_INIT_FIXED |
prof_interp_weights(num_file,ProfNo_tile,2,bi,bj)= |
|
./pkg/profiles/profiles_init_fixed.F |
493 |
PROFILES_INIT_FIXED |
prof_interp_i(num_file,ProfNo_tile,2,bi,bj)=prof_i+1 |
|
./pkg/profiles/profiles_init_fixed.F |
494 |
PROFILES_INIT_FIXED |
prof_interp_j(num_file,ProfNo_tile,2,bi,bj)=prof_j |
|
./pkg/profiles/profiles_init_fixed.F |
495 |
PROFILES_INIT_FIXED |
prof_interp_weights(num_file,ProfNo_tile,3,bi,bj)= |
|
./pkg/profiles/profiles_init_fixed.F |
497 |
PROFILES_INIT_FIXED |
prof_interp_i(num_file,ProfNo_tile,3,bi,bj)=prof_i |
|
./pkg/profiles/profiles_init_fixed.F |
498 |
PROFILES_INIT_FIXED |
prof_interp_j(num_file,ProfNo_tile,3,bi,bj)=prof_j+1 |
|
./pkg/profiles/profiles_init_fixed.F |
499 |
PROFILES_INIT_FIXED |
prof_interp_weights(num_file,ProfNo_tile,4,bi,bj)= |
|
./pkg/profiles/profiles_init_fixed.F |
501 |
PROFILES_INIT_FIXED |
prof_interp_i(num_file,ProfNo_tile,4,bi,bj)=prof_i+1 |
|
./pkg/profiles/profiles_init_fixed.F |
502 |
PROFILES_INIT_FIXED |
prof_interp_j(num_file,ProfNo_tile,4,bi,bj)=prof_j+1 |
|
./pkg/profiles/profiles_init_fixed.F |
522 |
PROFILES_INIT_FIXED |
prof_time(num_file,ProfNo_tile,bi,bj)=diffsecs |
|
./pkg/profiles/profiles_init_fixed.F |
524 |
PROFILES_INIT_FIXED |
prof_ind_avgbin(num_file,ProfNo_tile,bi,bj)=tmp_avgbin(k) |
|
./pkg/profiles/profiles_init_fixed.F |
526 |
PROFILES_INIT_FIXED |
prof_interp_xC11(num_file,ProfNo_tile,bi,bj)=tmp_xC11(k) |
|
./pkg/profiles/profiles_init_fixed.F |
527 |
PROFILES_INIT_FIXED |
prof_interp_yC11(num_file,ProfNo_tile,bi,bj)=tmp_yC11(k) |
|
./pkg/profiles/profiles_init_fixed.F |
528 |
PROFILES_INIT_FIXED |
prof_interp_xCNINJ(num_file,ProfNo_tile,bi,bj)=tmp_xCNINJ(k) |
|
./pkg/profiles/profiles_init_fixed.F |
529 |
PROFILES_INIT_FIXED |
prof_interp_yCNINJ(num_file,ProfNo_tile,bi,bj)=tmp_yCNINJ(k) |
|
./pkg/profiles/profiles_init_fixed.F |
532 |
PROFILES_INIT_FIXED |
prof_interp_weights(num_file,ProfNo_tile,q,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
534 |
PROFILES_INIT_FIXED |
prof_interp_i(num_file,ProfNo_tile,q,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
536 |
PROFILES_INIT_FIXED |
prof_interp_j(num_file,ProfNo_tile,q,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
586 |
PROFILES_INIT_FIXED |
prof_ind_glob(num_file,ProfNo_tile,bi,bj)=k+1000*(kk-1) |
|
./pkg/profiles/profiles_init_fixed.F |
608 |
PROFILES_INIT_FIXED |
ProfNo(num_file,bi,bj)=ProfNo_tile |
|
./pkg/profiles/profiles_init_fixed.F |
618 |
PROFILES_INIT_FIXED |
& ProfNo(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
625 |
PROFILES_INIT_FIXED |
prof_num_var_cur(num_file,k,bi,bj)=0 |
|
./pkg/profiles/profiles_init_fixed.F |
627 |
PROFILES_INIT_FIXED |
prof_num_var_tot(num_file,bi,bj)=0 |
|
./pkg/profiles/profiles_init_fixed.F |
630 |
PROFILES_INIT_FIXED |
JL = ILNBLNK( prof_names(num_file,k) ) |
|
./pkg/profiles/profiles_init_fixed.F |
631 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,prof_names(num_file,k)(1:JL), varid1 ) |
|
./pkg/profiles/profiles_init_fixed.F |
633 |
PROFILES_INIT_FIXED |
vec_quantities(num_file,k,bi,bj)=.TRUE. |
|
./pkg/profiles/profiles_init_fixed.F |
634 |
PROFILES_INIT_FIXED |
prof_num_var_tot(num_file,bi,bj)= |
|
./pkg/profiles/profiles_init_fixed.F |
635 |
PROFILES_INIT_FIXED |
& prof_num_var_tot(num_file,bi,bj)+1 |
|
./pkg/profiles/profiles_init_fixed.F |
636 |
PROFILES_INIT_FIXED |
prof_num_var_cur(num_file,k,bi,bj)= |
|
./pkg/profiles/profiles_init_fixed.F |
637 |
PROFILES_INIT_FIXED |
& prof_num_var_tot(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
639 |
PROFILES_INIT_FIXED |
vec_quantities(num_file,k,bi,bj)=.FALSE. |
|
./pkg/profiles/profiles_init_fixed.F |
644 |
PROFILES_INIT_FIXED |
if (vec_quantities(num_file,k,bi,bj)) then |
|
./pkg/profiles/profiles_init_fixed.F |
645 |
PROFILES_INIT_FIXED |
KL = ILNBLNK( prof_names(num_file,k) ) |
|
./pkg/profiles/profiles_init_fixed.F |
646 |
PROFILES_INIT_FIXED |
JL = ILNBLNK( prof_namesmod(num_file,k) ) |
|
./pkg/profiles/profiles_init_fixed.F |
647 |
PROFILES_INIT_FIXED |
if (prof_namesmod(num_file,k).EQ.'pTracer') then |
|
./pkg/profiles/profiles_init_fixed.F |
649 |
PROFILES_INIT_FIXED |
& prof_names(num_file,k)(1:KL),' and ', |
|
./pkg/profiles/profiles_init_fixed.F |
650 |
PROFILES_INIT_FIXED |
& prof_namesmod(num_file,k)(1:JL),' #', |
|
./pkg/profiles/profiles_init_fixed.F |
651 |
PROFILES_INIT_FIXED |
& prof_itracer(num_file,k) |
|
./pkg/profiles/profiles_init_fixed.F |
655 |
PROFILES_INIT_FIXED |
& prof_names(num_file,k)(1:KL),' and ', |
|
./pkg/profiles/profiles_init_fixed.F |
656 |
PROFILES_INIT_FIXED |
& prof_namesmod(num_file,k)(1:JL) |
|
./pkg/profiles/profiles_init_fixed.F |
667 |
PROFILES_INIT_FIXED |
if (ProfNo(num_file,bi,bj).GT.0) then |
|
./pkg/profiles/profiles_init_fixed.F |
683 |
PROFILES_INIT_FIXED |
call PROFILES_INIT_NCFILE(num_file, |
|
./pkg/profiles/profiles_init_fixed.F |
684 |
PROFILES_INIT_FIXED |
& fiddata(num_file,bi,bj),fnameequinc, |
|
./pkg/profiles/profiles_init_fixed.F |
685 |
PROFILES_INIT_FIXED |
& fidforward(num_file,bi,bj),ProfNo(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
686 |
PROFILES_INIT_FIXED |
& ProfDepthNo(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
689 |
PROFILES_INIT_FIXED |
err = NF_OPEN(fnameequinc,NF_WRITE,fidforward(num_file,bi,bj)) |
|
./pkg/profiles/profiles_init_fixed.F |
694 |
PROFILES_INIT_FIXED |
call PROFILES_INIT_NCFILE(num_file,fiddata(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
695 |
PROFILES_INIT_FIXED |
& adfnameequinc, fidadjoint(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
696 |
PROFILES_INIT_FIXED |
& ProfNo(num_file,bi,bj),ProfDepthNo(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
699 |
PROFILES_INIT_FIXED |
err = NF_OPEN(adfnameequinc,NF_WRITE,fidadjoint(num_file,bi,bj)) |
|
./pkg/profiles/profiles_init_fixed.F |
712 |
PROFILES_INIT_FIXED |
call MDSFINDUNIT( fidforward(num_file,bi,bj) , mythid ) |
|
./pkg/profiles/profiles_init_fixed.F |
714 |
PROFILES_INIT_FIXED |
call PROFILES_FINDUNIT( fidforward(num_file,bi,bj) , mythid ) |
|
./pkg/profiles/profiles_init_fixed.F |
717 |
PROFILES_INIT_FIXED |
call PROFILES_INIT_NCFILE(num_file,fiddata(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
718 |
PROFILES_INIT_FIXED |
& fnameequinc,fidforward(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
719 |
PROFILES_INIT_FIXED |
& ProfNo(num_file,bi,bj),ProfDepthNo(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
722 |
PROFILES_INIT_FIXED |
open( fidforward(num_file,bi,bj),file=fnameequinc, |
|
./pkg/profiles/profiles_init_fixed.F |
724 |
PROFILES_INIT_FIXED |
& recl= (ProfDepthNo(num_file,bi,bj)+1)*WORDLENGTH*2 ) |
|
./pkg/profiles/profiles_init_fixed.F |
729 |
PROFILES_INIT_FIXED |
call MDSFINDUNIT( fidadjoint(num_file,bi,bj) , mythid ) |
|
./pkg/profiles/profiles_init_fixed.F |
731 |
PROFILES_INIT_FIXED |
call PROFILES_FINDUNIT( fidadjoint(num_file,bi,bj) , mythid ) |
|
./pkg/profiles/profiles_init_fixed.F |
734 |
PROFILES_INIT_FIXED |
call PROFILES_INIT_NCFILE(num_file,fiddata(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
735 |
PROFILES_INIT_FIXED |
& adfnameequinc, fidadjoint(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
736 |
PROFILES_INIT_FIXED |
& ProfNo(num_file,bi,bj),ProfDepthNo(num_file,bi,bj), |
|
./pkg/profiles/profiles_init_fixed.F |
739 |
PROFILES_INIT_FIXED |
open( fidadjoint(num_file,bi,bj),file=adfnameequinc, |
|
./pkg/profiles/profiles_init_fixed.F |
741 |
PROFILES_INIT_FIXED |
& recl= (ProfDepthNo(num_file,bi,bj)+1)*WORDLENGTH*2 ) |
|
./pkg/profiles/profiles_init_fixed.F |
751 |
PROFILES_INIT_FIXED |
ProfNo(num_file,bi,bj)=0 |
|
./pkg/profiles/profiles_init_fixed.F |
753 |
PROFILES_INIT_FIXED |
prof_num_var_cur(num_file,k,bi,bj)=0 |
|
./pkg/profiles/profiles_init_fixed.F |
754 |
PROFILES_INIT_FIXED |
vec_quantities(num_file,k,bi,bj)=.FALSE. |
|
./pkg/profiles/profiles_init_fixed.F |
756 |
PROFILES_INIT_FIXED |
prof_num_var_tot(num_file,bi,bj)=0 |
|
./pkg/profiles/profiles_init_fixed.F |
758 |
PROFILES_INIT_FIXED |
prof_time(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
759 |
PROFILES_INIT_FIXED |
prof_lon(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
760 |
PROFILES_INIT_FIXED |
prof_lat(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
761 |
PROFILES_INIT_FIXED |
prof_ind_glob(num_file,k,bi,bj)=0 |
|
./pkg/profiles/profiles_init_fixed.F |
763 |
PROFILES_INIT_FIXED |
prof_ind_avgbin(num_file,k,bi,bj)=-999 |
|
./pkg/profiles/profiles_init_fixed.F |
766 |
PROFILES_INIT_FIXED |
prof_interp_i(num_file,k,q,bi,bj) = 1 |
|
./pkg/profiles/profiles_init_fixed.F |
767 |
PROFILES_INIT_FIXED |
prof_interp_j(num_file,k,q,bi,bj) = 1 |
|
./pkg/profiles/profiles_init_fixed.F |
768 |
PROFILES_INIT_FIXED |
prof_interp_weights(num_file,k,q,bi,bj) = 0. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
770 |
PROFILES_INIT_FIXED |
prof_interp_xC11(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
771 |
PROFILES_INIT_FIXED |
prof_interp_yC11(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
772 |
PROFILES_INIT_FIXED |
prof_interp_xCNINJ(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
773 |
PROFILES_INIT_FIXED |
prof_interp_yCNINJ(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
791 |
PROFILES_INIT_FIXED |
do num_file=1,NFILESPROFMAX |
|
./pkg/profiles/profiles_init_fixed.F |
792 |
PROFILES_INIT_FIXED |
do K=1,ProfDepthNo(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
795 |
PROFILES_INIT_FIXED |
prof_depth_comb(m,bi,bj) = prof_depth(num_file, k,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
802 |
PROFILES_INIT_FIXED |
if(prof_depth(num_file, k,bi,bj).lt. |
|
./pkg/profiles/profiles_init_fixed.F |
808 |
PROFILES_INIT_FIXED |
& prof_depth(num_file, k,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
815 |
PROFILES_INIT_FIXED |
else if(prof_depth(num_file, k,bi,bj).gt. |
|
./pkg/profiles/profiles_init_fixed.F |
817 |
PROFILES_INIT_FIXED |
& prof_depth(num_file, k,bi,bj).lt. |
|
./pkg/profiles/profiles_init_fixed.F |
823 |
PROFILES_INIT_FIXED |
& prof_depth(num_file, k,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
830 |
PROFILES_INIT_FIXED |
else if ( prof_depth(num_file, k,bi,bj).gt. |
|
./pkg/profiles/profiles_init_fixed.F |
834 |
PROFILES_INIT_FIXED |
& prof_depth(num_file, k,bi,bj) |
|
./pkg/profiles/profiles_init_ncfile.F |
13 |
PROFILES_INIT_NCFILE |
subroutine PROFILES_INIT_NCFILE(num_file,fid1,file2,fid2,length, |
|
./pkg/profiles/profiles_init_ncfile.F |
32 |
PROFILES_INIT_NCFILE |
integer irec, num_var,num_file |
|
./pkg/profiles/profiles_init_ncfile.F |
51 |
PROFILES_INIT_NCFILE |
err = NF_INQ_VARID(fid1,prof_names(num_file,num_var), varid0 ) |
|
./pkg/profiles/profiles_init_ncfile.F |
54 |
PROFILES_INIT_NCFILE |
err = NF_DEF_VAR (fid2,prof_names(num_file,num_var), NF_DOUBLE, |
|
./pkg/profiles/profiles_init_ncfile.F |
58 |
PROFILES_INIT_NCFILE |
err = NF_DEF_VAR (fid2,prof_namesmask(num_file,num_var), |
|
./pkg/profiles/profiles_init_ncfile.F |
84 |
PROFILES_INIT_NCFILE |
do num_var=prof_num_var_tot(num_file,bi,bj),1,-1 |
|
./pkg/profiles/profiles_init_ncfile.F |
85 |
PROFILES_INIT_NCFILE |
write(fid2,rec=((irec-1)*prof_num_var_tot(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_ncfile.F |
87 |
PROFILES_INIT_NCFILE |
write(fid2,rec=((irec-1)*prof_num_var_tot(num_file,bi,bj) |
|
./pkg/profiles/profiles_init_varia.F |
46 |
PROFILES_INIT_VARIA |
integer num_file,num_var |
|
./pkg/profiles/profiles_init_varia.F |
59 |
PROFILES_INIT_VARIA |
do num_file=1,NFILESPROFMAX |
|
./pkg/profiles/profiles_init_varia.F |
61 |
PROFILES_INIT_VARIA |
objf_profiles(num_file,num_var,bi,bj)= 0. _d 0 |
|
./pkg/profiles/profiles_init_varia.F |
62 |
PROFILES_INIT_VARIA |
num_profiles(num_file,num_var,bi,bj) = 0. _d 0 |
|
./pkg/profiles/profiles_init_varia.F |
63 |
PROFILES_INIT_VARIA |
profiles_dummy(num_file,num_var,bi,bj)=0. _d 0 |
|
./pkg/profiles/profiles_inloop.F |
46 |
PROFILES_INLOOP |
integer k,bi,bj,prof_num, num_file, num_var |
|
./pkg/profiles/profiles_inloop.F |
65 |
PROFILES_INLOOP |
do num_file=1,NFILESPROFMAX |
|
./pkg/profiles/profiles_inloop.F |
67 |
PROFILES_INLOOP |
if (prof_num.LE.ProfNo(num_file,bi,bj)) then |
|
./pkg/profiles/profiles_inloop.F |
68 |
PROFILES_INLOOP |
if ((prof_time(num_file,prof_num,bi,bj).GE.mytime).AND. |
|
./pkg/profiles/profiles_inloop.F |
69 |
PROFILES_INLOOP |
& (prof_time(num_file,prof_num,bi,bj).LT.(mytime+deltaTclock))) |
|
./pkg/profiles/profiles_inloop.F |
73 |
PROFILES_INLOOP |
prof_i1D(k)= prof_interp_i(num_file,prof_num,k,bi,bj) |
|
./pkg/profiles/profiles_inloop.F |
74 |
PROFILES_INLOOP |
prof_j1D(k)= prof_interp_j(num_file,prof_num,k,bi,bj) |
|
./pkg/profiles/profiles_inloop.F |
75 |
PROFILES_INLOOP |
prof_w1D(k)= prof_interp_weights(num_file,prof_num,k,bi,bj) |
|
./pkg/profiles/profiles_inloop.F |
83 |
PROFILES_INLOOP |
if (vec_quantities(num_file,num_var,bi,bj).EQV..TRUE.) then |
|
./pkg/profiles/profiles_inloop.F |
86 |
PROFILES_INLOOP |
& prof_namesmod(num_file,num_var), |
|
./pkg/profiles/profiles_inloop.F |
87 |
PROFILES_INLOOP |
& prof_itracer(num_file,num_var), |
|
./pkg/profiles/profiles_inloop.F |
88 |
PROFILES_INLOOP |
& num_file,mytime,bi,bj,myThid) |
|
./pkg/profiles/profiles_inloop.F |
91 |
PROFILES_INLOOP |
& prof_facmod(num_file,num_var) |
|
./pkg/profiles/profiles_inloop.F |
93 |
PROFILES_INLOOP |
call ACTIVE_WRITE_PROFILE(num_file, |
|
./pkg/profiles/profiles_inloop.F |
94 |
PROFILES_INLOOP |
& ProfDepthNo(num_file,bi,bj),prof_traj1D,num_var, |
|
./pkg/profiles/profiles_inloop.F |
96 |
PROFILES_INLOOP |
& profiles_dummy(num_file,num_var,bi,bj)) |
|
./pkg/profiles/profiles_readparms.F |
140 |
PROFILES_READPARMS |
do num_file=1,NFILESPROFMAX |
|
./pkg/profiles/profiles_readparms.F |
144 |
PROFILES_READPARMS |
if (prof_names(num_file,num_var).NE.'empty') |
|
./pkg/profiles/profiles_readparms.F |
149 |
PROFILES_READPARMS |
prof_names(num_file,1)='prof_T' |
|
./pkg/profiles/profiles_readparms.F |
150 |
PROFILES_READPARMS |
prof_names(num_file,2)='prof_S' |
|
./pkg/profiles/profiles_readparms.F |
151 |
PROFILES_READPARMS |
prof_namesmod(num_file,1)='theta' |
|
./pkg/profiles/profiles_readparms.F |
152 |
PROFILES_READPARMS |
prof_namesmod(num_file,2)='salt' |
|
./pkg/profiles/profiles_readparms.F |
154 |
PROFILES_READPARMS |
prof_namesclim(num_file,1)='prof_Tclim' |
|
./pkg/profiles/profiles_readparms.F |
155 |
PROFILES_READPARMS |
prof_namesclim(num_file,2)='prof_Sclim' |
|
./pkg/profiles/profiles_readparms.F |
160 |
PROFILES_READPARMS |
if (((prof_names(num_file,num_var).NE.'empty').AND. |
|
./pkg/profiles/profiles_readparms.F |
161 |
PROFILES_READPARMS |
& (prof_namesmod(num_file,num_var).EQ.'empty')).OR. |
|
./pkg/profiles/profiles_readparms.F |
162 |
PROFILES_READPARMS |
& ((prof_names(num_file,num_var).EQ.'empty').AND. |
|
./pkg/profiles/profiles_readparms.F |
163 |
PROFILES_READPARMS |
& (prof_namesmod(num_file,num_var).NE.'empty'))) then |
|
./pkg/profiles/profiles_readparms.F |
164 |
PROFILES_READPARMS |
print*,'prof_names=',prof_names(num_file,num_var),' ', |
|
./pkg/profiles/profiles_readparms.F |
165 |
PROFILES_READPARMS |
& prof_namesmod(num_file,num_var),' ',num_file,num_var |
|
./pkg/profiles/profiles_readparms.F |
175 |
PROFILES_READPARMS |
IL = ILNBLNK( prof_names(num_file,num_var) ) |
|
./pkg/profiles/profiles_readparms.F |
176 |
PROFILES_READPARMS |
WRITE(prof_namesmask(num_file,num_var),'(2A)') |
|
./pkg/profiles/profiles_readparms.F |
177 |
PROFILES_READPARMS |
& prof_names(num_file,num_var)(1:IL),'mask' |
|
./pkg/profiles/profiles_readparms.F |
178 |
PROFILES_READPARMS |
WRITE(prof_namesweight(num_file,num_var),'(2A)') |
|
./pkg/profiles/profiles_readparms.F |
179 |
PROFILES_READPARMS |
& prof_names(num_file,num_var)(1:IL),'weight' |
|
./pkg/profiles/profiles_readparms.F |
181 |
PROFILES_READPARMS |
WRITE(prof_namesclim(num_file,num_var),'(2A)') |
|
./pkg/profiles/profiles_readparms.F |
182 |
PROFILES_READPARMS |
& prof_names(num_file,num_var)(1:IL),'clim' |
|
./pkg/profiles/profiles_readparms.F |
186 |
PROFILES_READPARMS |
if ( profilesfiles(num_file) .NE. ' ' ) then |
|
./pkg/profiles/profiles_readparms.F |
187 |
PROFILES_READPARMS |
IL = ILNBLNK( profilesfiles(num_file) ) |
|
./pkg/profiles/profiles_readparms.F |
188 |
PROFILES_READPARMS |
fname = profilesfiles(num_file)(1:IL)//'.nc' |
|
./pkg/profiles/profiles_readparms.F |
194 |
PROFILES_READPARMS |
& profilesfiles(num_file)(1:IL),' gets switched off' |
|
./pkg/profiles/profiles_readparms.F |
198 |
PROFILES_READPARMS |
profilesfiles(num_file) = ' ' |
|
./pkg/profiles/profiles_readparms.F |
39 |
PROFILES_READPARMS |
INTEGER iUnit, num_file, num_var, IL |
|
./pkg/profiles/profiles_readparms.F |
86 |
PROFILES_READPARMS |
do num_file=1,NFILESPROFMAX |
|
./pkg/profiles/profiles_readparms.F |
87 |
PROFILES_READPARMS |
profilesfiles(num_file) = ' ' |
|
./pkg/profiles/profiles_readparms.F |
90 |
PROFILES_READPARMS |
do num_file=1,NFILESPROFMAX |
|
./pkg/profiles/profiles_readparms.F |
92 |
PROFILES_READPARMS |
mult_profiles(num_file,num_var) = 1. _d 0 |
|
./pkg/profiles/profiles_readparms.F |
93 |
PROFILES_READPARMS |
prof_facmod(num_file,num_var) = 1. _d 0 |
|
./pkg/profiles/profiles_readparms.F |
94 |
PROFILES_READPARMS |
prof_names(num_file,num_var)='empty' |
|
./pkg/profiles/profiles_readparms.F |
95 |
PROFILES_READPARMS |
prof_itracer(num_file,num_var)=1 |
|
./pkg/profiles/profiles_readparms.F |
96 |
PROFILES_READPARMS |
prof_namesmod(num_file,num_var)='empty' |
|
./pkg/profiles/profiles_readparms.F |
98 |
PROFILES_READPARMS |
prof_namesclim(num_file,num_var)='empty' |
|
./pkg/smooth/smooth_readparms.F |
32 |
SMOOTH_READPARMS |
INTEGER iUnit, num_file, num_var |
|
./pkg/cost/cost_final.F |
167 |
COST_FINAL |
do num_file=1,NFILESPROFMAX |
|
./pkg/cost/cost_final.F |
170 |
COST_FINAL |
& + mult_profiles(num_file,num_var) |
|
./pkg/cost/cost_final.F |
171 |
COST_FINAL |
& *objf_profiles(num_file,num_var,bi,bj) |
|
./pkg/cost/cost_final.F |
52 |
COST_FINAL |
integer num_file,num_var |
|
./pkg/ecco/ecco_cost_final.F |
1004 |
ECCO_COST_FINAL |
do num_file=1,NFILESPROFMAX |
|
./pkg/ecco/ecco_cost_final.F |
1006 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL(no_profiles(num_file,num_var), myThid ) |
|
./pkg/ecco/ecco_cost_final.F |
1211 |
ECCO_COST_FINAL |
do num_file=1,NFILESPROFMAX |
|
./pkg/ecco/ecco_cost_final.F |
1213 |
ECCO_COST_FINAL |
if ( no_profiles(num_file,num_var).GT.zeroRL ) then |
|
./pkg/ecco/ecco_cost_final.F |
1215 |
ECCO_COST_FINAL |
& ' --> f_profiles =',f_profiles(num_file,num_var), |
|
./pkg/ecco/ecco_cost_final.F |
1216 |
ECCO_COST_FINAL |
& num_file, num_var |
|
./pkg/ecco/ecco_cost_final.F |
1528 |
ECCO_COST_FINAL |
do num_file=1,NFILESPROFMAX |
|
./pkg/ecco/ecco_cost_final.F |
1530 |
ECCO_COST_FINAL |
if ( no_profiles(num_file,num_var).GT.zeroRL ) then |
|
./pkg/ecco/ecco_cost_final.F |
1531 |
ECCO_COST_FINAL |
IL = ILNBLNK( profilesfiles(num_file) ) |
|
./pkg/ecco/ecco_cost_final.F |
1534 |
ECCO_COST_FINAL |
& profilesfiles(num_file)(1:IL),' ', |
|
./pkg/ecco/ecco_cost_final.F |
1535 |
ECCO_COST_FINAL |
& prof_names(num_file,num_var), ' = ', |
|
./pkg/ecco/ecco_cost_final.F |
1536 |
ECCO_COST_FINAL |
& f_profiles(num_file,num_var), |
|
./pkg/ecco/ecco_cost_final.F |
1537 |
ECCO_COST_FINAL |
& no_profiles(num_file,num_var) |
|
./pkg/ecco/ecco_cost_final.F |
282 |
ECCO_COST_FINAL |
do num_file=1,NFILESPROFMAX |
|
./pkg/ecco/ecco_cost_final.F |
284 |
ECCO_COST_FINAL |
f_profiles(num_file,num_var)= 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
389 |
ECCO_COST_FINAL |
do num_file=1,NFILESPROFMAX |
|
./pkg/ecco/ecco_cost_final.F |
391 |
ECCO_COST_FINAL |
no_profiles(num_file,num_var)= 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
508 |
ECCO_COST_FINAL |
do num_file=1,NFILESPROFMAX |
|
./pkg/ecco/ecco_cost_final.F |
511 |
ECCO_COST_FINAL |
& + mult_profiles(num_file,num_var) |
|
./pkg/ecco/ecco_cost_final.F |
512 |
ECCO_COST_FINAL |
& *objf_profiles(num_file,num_var,bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
644 |
ECCO_COST_FINAL |
do num_file=1,NFILESPROFMAX |
|
./pkg/ecco/ecco_cost_final.F |
646 |
ECCO_COST_FINAL |
f_profiles(num_file,num_var)=f_profiles(num_file,num_var) |
|
./pkg/ecco/ecco_cost_final.F |
647 |
ECCO_COST_FINAL |
& +objf_profiles(num_file,num_var,bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
66 |
ECCO_COST_FINAL |
integer num_file,num_var |
|
./pkg/ecco/ecco_cost_final.F |
757 |
ECCO_COST_FINAL |
do num_file=1,NFILESPROFMAX |
|
./pkg/ecco/ecco_cost_final.F |
759 |
ECCO_COST_FINAL |
no_profiles(num_file,num_var)=no_profiles(num_file,num_var) |
|
./pkg/ecco/ecco_cost_final.F |
760 |
ECCO_COST_FINAL |
& +num_profiles(num_file,num_var,bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
898 |
ECCO_COST_FINAL |
do num_file=1,NFILESPROFMAX |
|
./pkg/ecco/ecco_cost_final.F |
900 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL(f_profiles(num_file,num_var), myThid ) |