| 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_cost_weights.F |
156 |
ECCO_COST_WEIGHTS |
do num_var=1,NSSHV4COST |
|
./pkg/ecco/ecco_cost_weights.F |
157 |
ECCO_COST_WEIGHTS |
wsshv4 (i,j,num_var,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
68 |
ECCO_COST_WEIGHTS |
integer num_var |
|
./pkg/ecco/ecco_cost_weights.F |
780 |
ECCO_COST_WEIGHTS |
do num_var=1,NSSHV4COST |
|
./pkg/ecco/ecco_cost_weights.F |
782 |
ECCO_COST_WEIGHTS |
if ( sshv4cost_errfile(num_var) .NE. ' ' ) then |
|
./pkg/ecco/ecco_cost_weights.F |
784 |
ECCO_COST_WEIGHTS |
call MDSREADFIELD( sshv4cost_errfile(num_var), |
|
./pkg/ecco/ecco_cost_weights.F |
792 |
ECCO_COST_WEIGHTS |
& *sshv4cost_errfactor(num_var) |
|
./pkg/ecco/ecco_cost_weights.F |
816 |
ECCO_COST_WEIGHTS |
wsshv4(i,j,num_var,bi,bj)=wsshv4tmp(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
824 |
ECCO_COST_WEIGHTS |
& num_var, 0, mythid, dummy) |
|
./pkg/ecco/ecco_readparms.F |
51 |
ECCO_READPARMS |
INTEGER k, k2, iUnit, num_file, num_var |
|
./pkg/profiles/cost_profiles.F |
109 |
COST_PROFILES |
DO num_var=1,NVARMAX |
|
./pkg/profiles/cost_profiles.F |
110 |
COST_PROFILES |
prof_traj1D_all_mean(iavgbin,ikzz,num_var) |
|
./pkg/profiles/cost_profiles.F |
112 |
COST_PROFILES |
prof_data1D_all_mean(iavgbin,ikzz,num_var) |
|
./pkg/profiles/cost_profiles.F |
114 |
COST_PROFILES |
prof_weights1D_all_mean(iavgbin,ikzz,num_var) |
|
./pkg/profiles/cost_profiles.F |
116 |
COST_PROFILES |
prof_count1D_all_mean(iavgbin,ikzz,num_var) |
|
./pkg/profiles/cost_profiles.F |
122 |
COST_PROFILES |
DO num_var=1,NVARMAX |
|
./pkg/profiles/cost_profiles.F |
123 |
COST_PROFILES |
recip_profiles_mean_indsamples(num_var) = 0. _d 0 |
|
./pkg/profiles/cost_profiles.F |
124 |
COST_PROFILES |
IF(profiles_mean_indsamples(num_var).GT. 0. _d 0) THEN |
|
./pkg/profiles/cost_profiles.F |
125 |
COST_PROFILES |
recip_profiles_mean_indsamples(num_var) = 1. _d 0 / |
|
./pkg/profiles/cost_profiles.F |
126 |
COST_PROFILES |
& profiles_mean_indsamples(num_var) |
|
./pkg/profiles/cost_profiles.F |
169 |
COST_PROFILES |
do num_var=1,NVARMAX |
|
./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 |
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 |
202 |
COST_PROFILES |
call PROFILES_READVECTOR(num_file,-num_var, |
|
./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 |
258 |
COST_PROFILES |
DO num_var=1,NVARMAX |
|
./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 |
273 |
COST_PROFILES |
tmpr6 = prof_count1D_all_mean(iavgbin,ikzz,num_var) |
|
./pkg/profiles/cost_profiles.F |
275 |
COST_PROFILES |
prof_count1D_all_mean(iavgbin,ikzz,num_var) = tmpr6 |
|
./pkg/profiles/cost_profiles.F |
277 |
COST_PROFILES |
tmpr9 = prof_weights1D_all_mean(iavgbin,ikzz,num_var) |
|
./pkg/profiles/cost_profiles.F |
279 |
COST_PROFILES |
prof_weights1D_all_mean(iavgbin,ikzz,num_var) = tmpr9 |
|
./pkg/profiles/cost_profiles.F |
281 |
COST_PROFILES |
tmpr7 = prof_traj1D_all_mean(iavgbin,ikzz,num_var) |
|
./pkg/profiles/cost_profiles.F |
283 |
COST_PROFILES |
prof_traj1D_all_mean(iavgbin,ikzz,num_var) = tmpr7 |
|
./pkg/profiles/cost_profiles.F |
285 |
COST_PROFILES |
tmpr8 = prof_data1D_all_mean(iavgbin,ikzz,num_var) |
|
./pkg/profiles/cost_profiles.F |
287 |
COST_PROFILES |
prof_data1D_all_mean(iavgbin,ikzz,num_var) = tmpr8 |
|
./pkg/profiles/cost_profiles.F |
296 |
COST_PROFILES |
DO num_var=1,NVARMAX |
|
./pkg/profiles/cost_profiles.F |
298 |
COST_PROFILES |
IF(prof_count1D_all_mean(iavgbin,ikzz,num_var).GT.0)THEN |
|
./pkg/profiles/cost_profiles.F |
300 |
COST_PROFILES |
& prof_count1D_all_mean(iavgbin,ikzz,num_var) |
|
./pkg/profiles/cost_profiles.F |
301 |
COST_PROFILES |
prof_traj1D_all_mean(iavgbin,ikzz,num_var) |
|
./pkg/profiles/cost_profiles.F |
302 |
COST_PROFILES |
& = prof_traj1D_all_mean(iavgbin,ikzz,num_var)* |
|
./pkg/profiles/cost_profiles.F |
304 |
COST_PROFILES |
prof_data1D_all_mean(iavgbin,ikzz,num_var) |
|
./pkg/profiles/cost_profiles.F |
305 |
COST_PROFILES |
& = prof_data1D_all_mean(iavgbin,ikzz,num_var)* |
|
./pkg/profiles/cost_profiles.F |
307 |
COST_PROFILES |
prof_weights1D_all_mean(iavgbin,ikzz,num_var) |
|
./pkg/profiles/cost_profiles.F |
308 |
COST_PROFILES |
& = prof_weights1D_all_mean(iavgbin,ikzz,num_var)* |
|
./pkg/profiles/cost_profiles.F |
317 |
COST_PROFILES |
DO num_var=1,NVARMAX |
|
./pkg/profiles/cost_profiles.F |
318 |
COST_PROFILES |
IF(prof_count1D_all_mean(iavgbin,ikzz,num_var).GT.0)THEN |
|
./pkg/profiles/cost_profiles.F |
320 |
COST_PROFILES |
tmp11 = prof_weights1D_all_mean(iavgbin,ikzz,num_var) |
|
./pkg/profiles/cost_profiles.F |
321 |
COST_PROFILES |
& / prof_count1D_all_mean(iavgbin,ikzz,num_var) |
|
./pkg/profiles/cost_profiles.F |
322 |
COST_PROFILES |
tmp12 = prof_weights1D_all_mean(iavgbin,ikzz,num_var) |
|
./pkg/profiles/cost_profiles.F |
323 |
COST_PROFILES |
& * recip_profiles_mean_indsamples(num_var) |
|
./pkg/profiles/cost_profiles.F |
324 |
COST_PROFILES |
prof_weights1D_all_mean(iavgbin,ikzz,num_var) |
|
./pkg/profiles/cost_profiles.F |
328 |
COST_PROFILES |
if(prof_weights1D_all_mean(iavgbin,ikzz,num_var).NE.0. _d 0) |
|
./pkg/profiles/cost_profiles.F |
329 |
COST_PROFILES |
& prof_weights1D_all_mean(iavgbin,ikzz,num_var) = |
|
./pkg/profiles/cost_profiles.F |
330 |
COST_PROFILES |
& 1. _d 0 /prof_weights1D_all_mean(iavgbin,ikzz,num_var) |
|
./pkg/profiles/cost_profiles.F |
339 |
COST_PROFILES |
DO num_var=1,NVARMAX |
|
./pkg/profiles/cost_profiles.F |
340 |
COST_PROFILES |
iL = ILNBLNK( prof_names(1,num_var) ) |
|
./pkg/profiles/cost_profiles.F |
341 |
COST_PROFILES |
write(cfile,'(2a)') prof_names(1,num_var)(1:iL), |
|
./pkg/profiles/cost_profiles.F |
351 |
COST_PROFILES |
& prof_data1D_all_mean(1:NAVGBINMAX,ikzz,num_var) |
|
./pkg/profiles/cost_profiles.F |
356 |
COST_PROFILES |
write(cfile,'(2a)')prof_names(1,num_var)(1:iL), |
|
./pkg/profiles/cost_profiles.F |
368 |
COST_PROFILES |
& prof_traj1D_all_mean(1:NAVGBINMAX,ikzz,num_var) |
|
./pkg/profiles/cost_profiles.F |
374 |
COST_PROFILES |
& prof_names(1,num_var)(1:iL),'_weight_mean.data' |
|
./pkg/profiles/cost_profiles.F |
383 |
COST_PROFILES |
& prof_weights1D_all_mean(1:NAVGBINMAX,ikzz,num_var) |
|
./pkg/profiles/cost_profiles.F |
388 |
COST_PROFILES |
write(cfile,'(2a)')prof_names(1,num_var)(1:iL), |
|
./pkg/profiles/cost_profiles.F |
398 |
COST_PROFILES |
& prof_count1D_all_mean(1:NAVGBINMAX,ikzz,num_var) |
|
./pkg/profiles/cost_profiles.F |
443 |
COST_PROFILES |
do num_var=1,NVARMAX |
|
./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 |
466 |
COST_PROFILES |
& prof_traj1D_all_mean(itmp,ktmp,num_var) |
|
./pkg/profiles/cost_profiles.F |
468 |
COST_PROFILES |
& prof_data1D_all_mean(itmp,ktmp,num_var) |
|
./pkg/profiles/cost_profiles.F |
470 |
COST_PROFILES |
& prof_weights1D_all_mean(itmp,ktmp,num_var) |
|
./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 |
485 |
COST_PROFILES |
call PROFILES_READVECTOR(num_file,-num_var, |
|
./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 |
523 |
COST_PROFILES |
do num_var=1,NVARMAX |
|
./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 |
539 |
COST_PROFILES |
do num_var=1,NVARMAX |
|
./pkg/profiles/cost_profiles.F |
543 |
COST_PROFILES |
& prof_traj1D_all_mean(iavgbin,k,num_var) |
|
./pkg/profiles/cost_profiles.F |
545 |
COST_PROFILES |
& prof_data1D_all_mean(iavgbin,k,num_var) |
|
./pkg/profiles/cost_profiles.F |
547 |
COST_PROFILES |
& prof_weights1D_all_mean(iavgbin,k,num_var) |
|
./pkg/profiles/cost_profiles.F |
556 |
COST_PROFILES |
objf_profiles_mean(num_var,bi,bj)= |
|
./pkg/profiles/cost_profiles.F |
557 |
COST_PROFILES |
& objf_profiles_mean(num_var,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
565 |
COST_PROFILES |
num_profiles_mean(num_var,bi,bj)= |
|
./pkg/profiles/cost_profiles.F |
566 |
COST_PROFILES |
& num_profiles_mean(num_var,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
569 |
COST_PROFILES |
objf_profiles_mean(num_var,bi,bj)= |
|
./pkg/profiles/cost_profiles.F |
570 |
COST_PROFILES |
& objf_profiles_mean(num_var,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
578 |
COST_PROFILES |
num_profiles_mean(num_var,bi,bj)= |
|
./pkg/profiles/cost_profiles.F |
579 |
COST_PROFILES |
& num_profiles_mean(num_var,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
591 |
COST_PROFILES |
do num_var=1,NVARMAX |
|
./pkg/profiles/cost_profiles.F |
594 |
COST_PROFILES |
& num_var |
|
./pkg/profiles/cost_profiles.F |
598 |
COST_PROFILES |
write(msgbuf,'(a,a5,D22.15,D22.15)') prof_names(1,num_var), |
|
./pkg/profiles/cost_profiles.F |
600 |
COST_PROFILES |
& objf_profiles_mean(num_var,bi,bj), |
|
./pkg/profiles/cost_profiles.F |
601 |
COST_PROFILES |
& num_profiles_mean(num_var,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
621 |
COST_PROFILES |
do num_var=1,NVARMAX |
|
./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/cost_profiles.F |
646 |
COST_PROFILES |
do num_var=1,NVARMAX |
|
./pkg/profiles/cost_profiles.F |
651 |
COST_PROFILES |
& objf_profiles_mean(num_var,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
653 |
COST_PROFILES |
& num_profiles_mean(num_var,bi,bj) |
|
./pkg/profiles/cost_profiles.F |
663 |
COST_PROFILES |
& ' cost_profiles_mean(',num_var,')= ', |
|
./pkg/profiles/profiles_init_ncfile.F |
32 |
PROFILES_INIT_NCFILE |
integer irec, num_var,num_file |
|
./pkg/profiles/profiles_init_ncfile.F |
50 |
PROFILES_INIT_NCFILE |
do num_var=1,NVARMAX |
|
./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 |
55 |
PROFILES_INIT_NCFILE |
& 2,vecid,varid(2+(num_var-1)*2)) |
|
./pkg/profiles/profiles_init_ncfile.F |
56 |
PROFILES_INIT_NCFILE |
err = NF_PUT_ATT_DOUBLE(fid2, varid(2+(num_var-1)*2),'_FillValue', |
|
./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 |
59 |
PROFILES_INIT_NCFILE |
& NF_DOUBLE, 2,vecid, varid(3+(num_var-1)*2)) |
|
./pkg/profiles/profiles_init_ncfile.F |
60 |
PROFILES_INIT_NCFILE |
err = NF_PUT_ATT_DOUBLE(fid2,varid(3+(num_var-1)*2),'_FillValue', |
|
./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 |
86 |
PROFILES_INIT_NCFILE |
& +num_var-1)*2 +1) tmp_vec |
|
./pkg/profiles/profiles_init_ncfile.F |
88 |
PROFILES_INIT_NCFILE |
& +num_var-1)*2 +2) tmp_vec |
|
./pkg/profiles/profiles_init_varia.F |
46 |
PROFILES_INIT_VARIA |
integer num_file,num_var |
|
./pkg/profiles/profiles_init_varia.F |
60 |
PROFILES_INIT_VARIA |
do num_var=1,NVARMAX |
|
./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_init_varia.F |
66 |
PROFILES_INIT_VARIA |
do num_var=1,NVARMAX |
|
./pkg/profiles/profiles_init_varia.F |
67 |
PROFILES_INIT_VARIA |
objf_profiles_mean(num_var,bi,bj)= 0. _d 0 |
|
./pkg/profiles/profiles_init_varia.F |
68 |
PROFILES_INIT_VARIA |
num_profiles_mean(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 |
78 |
PROFILES_INLOOP |
do num_var=1,NVARMAX |
|
./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 |
91 |
PROFILES_INLOOP |
& prof_facmod(num_file,num_var) |
|
./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 |
102 |
PROFILES_READPARMS |
do num_var=1,NVARMAX |
|
./pkg/profiles/profiles_readparms.F |
103 |
PROFILES_READPARMS |
mult_profiles_mean(num_var) = 1. _d 0 |
|
./pkg/profiles/profiles_readparms.F |
105 |
PROFILES_READPARMS |
profiles_mean_indsamples(num_var) = 1 |
|
./pkg/profiles/profiles_readparms.F |
143 |
PROFILES_READPARMS |
do num_var=1,NVARMAX |
|
./pkg/profiles/profiles_readparms.F |
144 |
PROFILES_READPARMS |
if (prof_names(num_file,num_var).NE.'empty') |
|
./pkg/profiles/profiles_readparms.F |
159 |
PROFILES_READPARMS |
do num_var=1,NVARMAX |
|
./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 |
174 |
PROFILES_READPARMS |
do num_var=1,NVARMAX |
|
./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 |
39 |
PROFILES_READPARMS |
INTEGER iUnit, num_file, num_var, IL |
|
./pkg/profiles/profiles_readparms.F |
91 |
PROFILES_READPARMS |
do num_var=1,NVARMAX |
|
./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 |
168 |
COST_FINAL |
do num_var=1,NVARMAX |
|
./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 |
1005 |
ECCO_COST_FINAL |
do num_var=1,NVARMAX |
|
./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 |
1009 |
ECCO_COST_FINAL |
do num_var=1,NVARMAX |
|
./pkg/ecco/ecco_cost_final.F |
1010 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL(no_profiles_mean(num_var), myThid ) |
|
./pkg/ecco/ecco_cost_final.F |
1014 |
ECCO_COST_FINAL |
do num_var=1,NGENCOST |
|
./pkg/ecco/ecco_cost_final.F |
1015 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL(no_gencost(num_var), myThid ) |
|
./pkg/ecco/ecco_cost_final.F |
1019 |
ECCO_COST_FINAL |
do num_var=1,maxCtrlTim2D |
|
./pkg/ecco/ecco_cost_final.F |
1020 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL(no_gentim2d(num_var), myThid ) |
|
./pkg/ecco/ecco_cost_final.F |
1024 |
ECCO_COST_FINAL |
do num_var=1,maxCtrlArr2D |
|
./pkg/ecco/ecco_cost_final.F |
1025 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL(no_genarr2d(num_var), myThid ) |
|
./pkg/ecco/ecco_cost_final.F |
1029 |
ECCO_COST_FINAL |
do num_var=1,maxCtrlArr3D |
|
./pkg/ecco/ecco_cost_final.F |
1030 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL(no_genarr3d(num_var), myThid ) |
|
./pkg/ecco/ecco_cost_final.F |
1212 |
ECCO_COST_FINAL |
do num_var=1,NVARMAX |
|
./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 |
1222 |
ECCO_COST_FINAL |
do num_var=1,NVARMAX |
|
./pkg/ecco/ecco_cost_final.F |
1223 |
ECCO_COST_FINAL |
if ( no_profiles_mean(num_var).GT.zeroRL ) then |
|
./pkg/ecco/ecco_cost_final.F |
1225 |
ECCO_COST_FINAL |
& ' --> f_profiles_mean =',f_profiles_mean(num_var), |
|
./pkg/ecco/ecco_cost_final.F |
1226 |
ECCO_COST_FINAL |
& num_var |
|
./pkg/ecco/ecco_cost_final.F |
1234 |
ECCO_COST_FINAL |
do num_var=1,NGENCOST |
|
./pkg/ecco/ecco_cost_final.F |
1235 |
ECCO_COST_FINAL |
if (no_gencost(num_var).GT.0) then |
|
./pkg/ecco/ecco_cost_final.F |
1237 |
ECCO_COST_FINAL |
& ' --> f_gencost =',f_gencost(num_var), |
|
./pkg/ecco/ecco_cost_final.F |
1238 |
ECCO_COST_FINAL |
& num_var |
|
./pkg/ecco/ecco_cost_final.F |
1245 |
ECCO_COST_FINAL |
do num_var=1,maxCtrlTim2D |
|
./pkg/ecco/ecco_cost_final.F |
1246 |
ECCO_COST_FINAL |
if (no_gentim2d(num_var).GT.0. _d 0) then |
|
./pkg/ecco/ecco_cost_final.F |
1248 |
ECCO_COST_FINAL |
& ' --> f_gentim2d =',f_gentim2d(num_var), |
|
./pkg/ecco/ecco_cost_final.F |
1249 |
ECCO_COST_FINAL |
& num_var |
|
./pkg/ecco/ecco_cost_final.F |
1256 |
ECCO_COST_FINAL |
do num_var=1,maxCtrlArr2D |
|
./pkg/ecco/ecco_cost_final.F |
1257 |
ECCO_COST_FINAL |
if (no_genarr2d(num_var).GT.0. _d 0) then |
|
./pkg/ecco/ecco_cost_final.F |
1259 |
ECCO_COST_FINAL |
& ' --> f_genarr2d =',f_genarr2d(num_var), |
|
./pkg/ecco/ecco_cost_final.F |
1260 |
ECCO_COST_FINAL |
& num_var |
|
./pkg/ecco/ecco_cost_final.F |
1267 |
ECCO_COST_FINAL |
do num_var=1,maxCtrlArr3D |
|
./pkg/ecco/ecco_cost_final.F |
1268 |
ECCO_COST_FINAL |
if (no_genarr3d(num_var).GT.0. _d 0) then |
|
./pkg/ecco/ecco_cost_final.F |
1270 |
ECCO_COST_FINAL |
& ' --> f_genarr3d =',f_genarr3d(num_var), |
|
./pkg/ecco/ecco_cost_final.F |
1271 |
ECCO_COST_FINAL |
& num_var |
|
./pkg/ecco/ecco_cost_final.F |
1529 |
ECCO_COST_FINAL |
do num_var=1,NVARMAX |
|
./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 |
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 |
1541 |
ECCO_COST_FINAL |
do num_var=1,NVARMAX |
|
./pkg/ecco/ecco_cost_final.F |
1542 |
ECCO_COST_FINAL |
if ( no_profiles_mean(num_var).GT.zeroRL ) then |
|
./pkg/ecco/ecco_cost_final.F |
1545 |
ECCO_COST_FINAL |
& prof_names(1,num_var), ' = ', |
|
./pkg/ecco/ecco_cost_final.F |
1546 |
ECCO_COST_FINAL |
& f_profiles_mean(num_var), |
|
./pkg/ecco/ecco_cost_final.F |
1547 |
ECCO_COST_FINAL |
& no_profiles_mean(num_var) |
|
./pkg/ecco/ecco_cost_final.F |
1553 |
ECCO_COST_FINAL |
do num_var=1,NGENCOST |
|
./pkg/ecco/ecco_cost_final.F |
1554 |
ECCO_COST_FINAL |
if (no_gencost(num_var).GT.0) then |
|
./pkg/ecco/ecco_cost_final.F |
1555 |
ECCO_COST_FINAL |
IL = ILNBLNK( gencost_name(num_var) ) |
|
./pkg/ecco/ecco_cost_final.F |
1558 |
ECCO_COST_FINAL |
& gencost_name(num_var)(1:IL),' (gencost ', num_var, ') = ', |
|
./pkg/ecco/ecco_cost_final.F |
1559 |
ECCO_COST_FINAL |
& f_gencost(num_var), |
|
./pkg/ecco/ecco_cost_final.F |
1560 |
ECCO_COST_FINAL |
& no_gencost(num_var) |
|
./pkg/ecco/ecco_cost_final.F |
1566 |
ECCO_COST_FINAL |
do num_var=1,maxCtrlTim2D |
|
./pkg/ecco/ecco_cost_final.F |
1567 |
ECCO_COST_FINAL |
if (no_gentim2d(num_var).GT.0. _d 0) then |
|
./pkg/ecco/ecco_cost_final.F |
1568 |
ECCO_COST_FINAL |
IL = ILNBLNK( xx_gentim2d_file(num_var) ) |
|
./pkg/ecco/ecco_cost_final.F |
1571 |
ECCO_COST_FINAL |
& xx_gentim2d_file(num_var)(1:IL), |
|
./pkg/ecco/ecco_cost_final.F |
1572 |
ECCO_COST_FINAL |
& ' (gentim2d ', num_var, ') = ', |
|
./pkg/ecco/ecco_cost_final.F |
1573 |
ECCO_COST_FINAL |
& f_gentim2d(num_var), |
|
./pkg/ecco/ecco_cost_final.F |
1574 |
ECCO_COST_FINAL |
& no_gentim2d(num_var) |
|
./pkg/ecco/ecco_cost_final.F |
1580 |
ECCO_COST_FINAL |
do num_var=1,maxCtrlArr2D |
|
./pkg/ecco/ecco_cost_final.F |
1581 |
ECCO_COST_FINAL |
if (no_genarr2d(num_var).GT.0. _d 0) then |
|
./pkg/ecco/ecco_cost_final.F |
1582 |
ECCO_COST_FINAL |
IL = ILNBLNK( xx_genarr2d_file(num_var) ) |
|
./pkg/ecco/ecco_cost_final.F |
1585 |
ECCO_COST_FINAL |
& xx_genarr2d_file(num_var)(1:IL), |
|
./pkg/ecco/ecco_cost_final.F |
1586 |
ECCO_COST_FINAL |
& ' (genarr2d ', num_var, ') = ', |
|
./pkg/ecco/ecco_cost_final.F |
1587 |
ECCO_COST_FINAL |
& f_genarr2d(num_var), |
|
./pkg/ecco/ecco_cost_final.F |
1588 |
ECCO_COST_FINAL |
& no_genarr2d(num_var) |
|
./pkg/ecco/ecco_cost_final.F |
1594 |
ECCO_COST_FINAL |
do num_var=1,maxCtrlArr3D |
|
./pkg/ecco/ecco_cost_final.F |
1595 |
ECCO_COST_FINAL |
if (no_genarr3d(num_var).GT.0. _d 0) then |
|
./pkg/ecco/ecco_cost_final.F |
1596 |
ECCO_COST_FINAL |
IL = ILNBLNK( xx_genarr3d_file(num_var) ) |
|
./pkg/ecco/ecco_cost_final.F |
1599 |
ECCO_COST_FINAL |
& xx_genarr3d_file(num_var)(1:IL), |
|
./pkg/ecco/ecco_cost_final.F |
1600 |
ECCO_COST_FINAL |
& ' (genarr3d ', num_var, ') = ', |
|
./pkg/ecco/ecco_cost_final.F |
1601 |
ECCO_COST_FINAL |
& f_genarr3d(num_var), |
|
./pkg/ecco/ecco_cost_final.F |
1602 |
ECCO_COST_FINAL |
& no_genarr3d(num_var) |
|
./pkg/ecco/ecco_cost_final.F |
283 |
ECCO_COST_FINAL |
do num_var=1,NVARMAX |
|
./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 |
287 |
ECCO_COST_FINAL |
do num_var=1,NVARMAX |
|
./pkg/ecco/ecco_cost_final.F |
288 |
ECCO_COST_FINAL |
f_profiles_mean(num_var)= 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
292 |
ECCO_COST_FINAL |
do num_var=1,NGENCOST |
|
./pkg/ecco/ecco_cost_final.F |
293 |
ECCO_COST_FINAL |
f_gencost(num_var)= 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
297 |
ECCO_COST_FINAL |
do num_var=1,maxCtrlTim2D |
|
./pkg/ecco/ecco_cost_final.F |
298 |
ECCO_COST_FINAL |
f_gentim2d(num_var)= 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
302 |
ECCO_COST_FINAL |
do num_var=1,maxCtrlArr2D |
|
./pkg/ecco/ecco_cost_final.F |
303 |
ECCO_COST_FINAL |
f_genarr2d(num_var)= 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
307 |
ECCO_COST_FINAL |
do num_var=1,maxCtrlArr3D |
|
./pkg/ecco/ecco_cost_final.F |
308 |
ECCO_COST_FINAL |
f_genarr3d(num_var)= 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
390 |
ECCO_COST_FINAL |
do num_var=1,NVARMAX |
|
./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 |
394 |
ECCO_COST_FINAL |
do num_var=1,NVARMAX |
|
./pkg/ecco/ecco_cost_final.F |
395 |
ECCO_COST_FINAL |
no_profiles_mean(num_var)= 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
399 |
ECCO_COST_FINAL |
do num_var=1,NGENCOST |
|
./pkg/ecco/ecco_cost_final.F |
400 |
ECCO_COST_FINAL |
no_gencost(num_var)= 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
404 |
ECCO_COST_FINAL |
do num_var=1,maxCtrlTim2D |
|
./pkg/ecco/ecco_cost_final.F |
405 |
ECCO_COST_FINAL |
no_gentim2d(num_var)= 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
409 |
ECCO_COST_FINAL |
do num_var=1,maxCtrlArr2D |
|
./pkg/ecco/ecco_cost_final.F |
410 |
ECCO_COST_FINAL |
no_genarr2d(num_var)= 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
414 |
ECCO_COST_FINAL |
do num_var=1,maxCtrlArr3D |
|
./pkg/ecco/ecco_cost_final.F |
415 |
ECCO_COST_FINAL |
no_genarr3d(num_var)= 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
509 |
ECCO_COST_FINAL |
do num_var=1,NVARMAX |
|
./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 |
515 |
ECCO_COST_FINAL |
do num_var=1,NVARMAX |
|
./pkg/ecco/ecco_cost_final.F |
517 |
ECCO_COST_FINAL |
& + mult_profiles_mean(num_var) |
|
./pkg/ecco/ecco_cost_final.F |
518 |
ECCO_COST_FINAL |
& *objf_profiles_mean(num_var,bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
522 |
ECCO_COST_FINAL |
do num_var=1,NGENCOST |
|
./pkg/ecco/ecco_cost_final.F |
524 |
ECCO_COST_FINAL |
& + mult_gencost(num_var) |
|
./pkg/ecco/ecco_cost_final.F |
525 |
ECCO_COST_FINAL |
& *objf_gencost(bi,bj,num_var) |
|
./pkg/ecco/ecco_cost_final.F |
529 |
ECCO_COST_FINAL |
do num_var=1,maxCtrlTim2D |
|
./pkg/ecco/ecco_cost_final.F |
531 |
ECCO_COST_FINAL |
& + mult_gentim2d(num_var) |
|
./pkg/ecco/ecco_cost_final.F |
532 |
ECCO_COST_FINAL |
& *objf_gentim2d(bi,bj,num_var) |
|
./pkg/ecco/ecco_cost_final.F |
536 |
ECCO_COST_FINAL |
do num_var=1,maxCtrlArr2D |
|
./pkg/ecco/ecco_cost_final.F |
538 |
ECCO_COST_FINAL |
& + mult_genarr2d(num_var) |
|
./pkg/ecco/ecco_cost_final.F |
539 |
ECCO_COST_FINAL |
& *objf_genarr2d(bi,bj,num_var) |
|
./pkg/ecco/ecco_cost_final.F |
543 |
ECCO_COST_FINAL |
do num_var=1,maxCtrlArr3D |
|
./pkg/ecco/ecco_cost_final.F |
545 |
ECCO_COST_FINAL |
& + mult_genarr3d(num_var) |
|
./pkg/ecco/ecco_cost_final.F |
546 |
ECCO_COST_FINAL |
& *objf_genarr3d(bi,bj,num_var) |
|
./pkg/ecco/ecco_cost_final.F |
645 |
ECCO_COST_FINAL |
do num_var=1,NVARMAX |
|
./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 |
650 |
ECCO_COST_FINAL |
do num_var=1,NVARMAX |
|
./pkg/ecco/ecco_cost_final.F |
651 |
ECCO_COST_FINAL |
f_profiles_mean(num_var)=f_profiles_mean(num_var) |
|
./pkg/ecco/ecco_cost_final.F |
652 |
ECCO_COST_FINAL |
& +objf_profiles_mean(num_var,bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
656 |
ECCO_COST_FINAL |
do num_var=1,NGENCOST |
|
./pkg/ecco/ecco_cost_final.F |
657 |
ECCO_COST_FINAL |
f_gencost(num_var)=f_gencost(num_var) |
|
./pkg/ecco/ecco_cost_final.F |
658 |
ECCO_COST_FINAL |
& +objf_gencost(bi,bj,num_var) |
|
./pkg/ecco/ecco_cost_final.F |
662 |
ECCO_COST_FINAL |
do num_var=1,maxCtrlTim2D |
|
./pkg/ecco/ecco_cost_final.F |
663 |
ECCO_COST_FINAL |
f_gentim2d(num_var) = f_gentim2d(num_var) |
|
./pkg/ecco/ecco_cost_final.F |
664 |
ECCO_COST_FINAL |
& +objf_gentim2d(bi,bj,num_var) |
|
./pkg/ecco/ecco_cost_final.F |
668 |
ECCO_COST_FINAL |
do num_var=1,maxCtrlArr2D |
|
./pkg/ecco/ecco_cost_final.F |
669 |
ECCO_COST_FINAL |
f_genarr2d(num_var) = f_genarr2d(num_var) |
|
./pkg/ecco/ecco_cost_final.F |
66 |
ECCO_COST_FINAL |
integer num_file,num_var |
|
./pkg/ecco/ecco_cost_final.F |
670 |
ECCO_COST_FINAL |
& +objf_genarr2d(bi,bj,num_var) |
|
./pkg/ecco/ecco_cost_final.F |
674 |
ECCO_COST_FINAL |
do num_var=1,maxCtrlArr3D |
|
./pkg/ecco/ecco_cost_final.F |
675 |
ECCO_COST_FINAL |
f_genarr3d(num_var) = f_genarr3d(num_var) |
|
./pkg/ecco/ecco_cost_final.F |
676 |
ECCO_COST_FINAL |
& +objf_genarr3d(bi,bj,num_var) |
|
./pkg/ecco/ecco_cost_final.F |
758 |
ECCO_COST_FINAL |
do num_var=1,NVARMAX |
|
./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 |
763 |
ECCO_COST_FINAL |
do num_var=1,NVARMAX |
|
./pkg/ecco/ecco_cost_final.F |
764 |
ECCO_COST_FINAL |
no_profiles_mean(num_var)=no_profiles_mean(num_var) |
|
./pkg/ecco/ecco_cost_final.F |
765 |
ECCO_COST_FINAL |
& +num_profiles_mean(num_var,bi,bj) |
|
./pkg/ecco/ecco_cost_final.F |
769 |
ECCO_COST_FINAL |
do num_var=1,NGENCOST |
|
./pkg/ecco/ecco_cost_final.F |
770 |
ECCO_COST_FINAL |
no_gencost(num_var)=no_gencost(num_var) |
|
./pkg/ecco/ecco_cost_final.F |
771 |
ECCO_COST_FINAL |
& +num_gencost(bi,bj,num_var) |
|
./pkg/ecco/ecco_cost_final.F |
775 |
ECCO_COST_FINAL |
do num_var=1,maxCtrlTim2D |
|
./pkg/ecco/ecco_cost_final.F |
776 |
ECCO_COST_FINAL |
no_gentim2d(num_var) = no_gentim2d(num_var) |
|
./pkg/ecco/ecco_cost_final.F |
777 |
ECCO_COST_FINAL |
& +num_gentim2d(bi,bj,num_var) |
|
./pkg/ecco/ecco_cost_final.F |
781 |
ECCO_COST_FINAL |
do num_var=1,maxCtrlArr2D |
|
./pkg/ecco/ecco_cost_final.F |
782 |
ECCO_COST_FINAL |
no_genarr2d(num_var) = no_genarr2d(num_var) |
|
./pkg/ecco/ecco_cost_final.F |
783 |
ECCO_COST_FINAL |
& +num_genarr2d(bi,bj,num_var) |
|
./pkg/ecco/ecco_cost_final.F |
787 |
ECCO_COST_FINAL |
do num_var=1,maxCtrlArr3D |
|
./pkg/ecco/ecco_cost_final.F |
788 |
ECCO_COST_FINAL |
no_genarr3d(num_var) = no_genarr3d(num_var) |
|
./pkg/ecco/ecco_cost_final.F |
789 |
ECCO_COST_FINAL |
& +num_genarr3d(bi,bj,num_var) |
|
./pkg/ecco/ecco_cost_final.F |
899 |
ECCO_COST_FINAL |
do num_var=1,NVARMAX |
|
./pkg/ecco/ecco_cost_final.F |
900 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL(f_profiles(num_file,num_var), myThid ) |
|
./pkg/ecco/ecco_cost_final.F |
903 |
ECCO_COST_FINAL |
do num_var=1,NVARMAX |
|
./pkg/ecco/ecco_cost_final.F |
904 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL(f_profiles_mean(num_var), myThid ) |
|
./pkg/ecco/ecco_cost_final.F |
908 |
ECCO_COST_FINAL |
do num_var=1,NGENCOST |
|
./pkg/ecco/ecco_cost_final.F |
909 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL(f_gencost(num_var), myThid ) |
|
./pkg/ecco/ecco_cost_final.F |
913 |
ECCO_COST_FINAL |
do num_var=1,maxCtrlTim2D |
|
./pkg/ecco/ecco_cost_final.F |
914 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL(f_gentim2d(num_var), myThid ) |
|
./pkg/ecco/ecco_cost_final.F |
918 |
ECCO_COST_FINAL |
do num_var=1,maxCtrlArr2D |
|
./pkg/ecco/ecco_cost_final.F |
919 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL(f_genarr2d(num_var), myThid ) |
|
./pkg/ecco/ecco_cost_final.F |
923 |
ECCO_COST_FINAL |
do num_var=1,maxCtrlArr3D |
|
./pkg/ecco/ecco_cost_final.F |
924 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL(f_genarr3d(num_var), myThid ) |