| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_getclim.F |
100 |
EXF_GETCLIM |
& maskc, climsst, xx_sst0, xx_sst1, xx_sst_dummy, |
|
./pkg/exf/exf_getclim.F |
125 |
EXF_GETCLIM |
& maskc, climsss, xx_sss0, xx_sss1, xx_sss_dummy, |
|
./pkg/exf/exf_getffields.F |
383 |
EXF_GETFFIELDS |
& maskc, atemp, xx_atemp0, xx_atemp1, xx_atemp_dummy, |
|
./pkg/exf/exf_getffields.F |
391 |
EXF_GETFFIELDS |
& maskc, aqh, xx_aqh0, xx_aqh1, xx_aqh_dummy, |
|
./pkg/exf/exf_getffields.F |
399 |
EXF_GETFFIELDS |
& maskc, precip, xx_precip0, xx_precip1, xx_precip_dummy, |
|
./pkg/exf/exf_getffields.F |
407 |
EXF_GETFFIELDS |
& maskc, swflux, xx_swflux0, xx_swflux1, xx_swflux_dummy, |
|
./pkg/exf/exf_getffields.F |
415 |
EXF_GETFFIELDS |
& maskc, swdown, xx_swdown0, xx_swdown1, xx_swdown_dummy, |
|
./pkg/exf/exf_getffields.F |
423 |
EXF_GETFFIELDS |
& maskc, lwflux, xx_lwflux0, xx_lwflux1, xx_lwflux_dummy, |
|
./pkg/exf/exf_getffields.F |
431 |
EXF_GETFFIELDS |
& maskc, lwdown, xx_lwdown0, xx_lwdown1, xx_lwdown_dummy, |
|
./pkg/exf/exf_getffields.F |
439 |
EXF_GETFFIELDS |
& maskc, evap, xx_evap0, xx_evap1, xx_evap_dummy, |
|
./pkg/exf/exf_getffields.F |
448 |
EXF_GETFFIELDS |
& maskc, snowprecip, xx_snowprecip0, xx_snowprecip1, |
|
./pkg/exf/exf_getffields.F |
458 |
EXF_GETFFIELDS |
& maskc, apressure, xx_apressure0, xx_apressure1, |
|
./pkg/exf/exf_getffields.F |
470 |
EXF_GETFFIELDS |
& maskc, uwind, xx_uwind0, xx_uwind1, xx_uwind_dummy, |
|
./pkg/exf/exf_getffields.F |
478 |
EXF_GETFFIELDS |
& maskc, vwind, xx_vwind0, xx_vwind1, xx_vwind_dummy, |
|
./pkg/exf/exf_getffields.F |
501 |
EXF_GETFFIELDS |
& maskc, tmpUE, xx_uwind0, xx_uwind1, xx_uwind_dummy, |
|
./pkg/exf/exf_getffields.F |
507 |
EXF_GETFFIELDS |
& maskc, tmpVN, xx_vwind0, xx_vwind1, xx_vwind_dummy, |
|
./pkg/exf/exf_getsurfacefluxes.F |
123 |
EXF_GETSURFACEFLUXES |
& maskc, tmpUE, xx_tauu0, xx_tauu1, xx_tauu_dummy, |
|
./pkg/exf/exf_getsurfacefluxes.F |
129 |
EXF_GETSURFACEFLUXES |
& maskc, tmpVN, xx_tauv0, xx_tauv1, xx_tauv_dummy, |
|
./pkg/exf/exf_getsurfacefluxes.F |
72 |
EXF_GETSURFACEFLUXES |
& maskc, hflux, xx_hflux0, xx_hflux1, xx_hflux_dummy, |
|
./pkg/exf/exf_getsurfacefluxes.F |
80 |
EXF_GETSURFACEFLUXES |
& maskc, sflux, xx_sflux0, xx_sflux1, xx_sflux_dummy, |
|
./pkg/smooth/smooth_diff3d.F |
146 |
SMOOTH_DIFF3D |
if (maskc(i,j,k,bi,bj).NE.0.) then |
|
./pkg/smooth/smooth_filtervar2d.F |
128 |
SMOOTH_FILTERVAR2D |
CALL SMOOTH_DIFF2D(smoothTmpFld,maskc,nbt_in,mythid) |
|
./pkg/smooth/smooth_filtervar2d.F |
135 |
SMOOTH_FILTERVAR2D |
if (maskc(i,j,1,bi,bj).NE.0) then |
|
./pkg/smooth/smooth_filtervar2d.F |
191 |
SMOOTH_FILTERVAR2D |
call SMOOTH_DIFF2D(smoothTmpFld,maskc,nbt_in,mythid) |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
143 |
CTRL_MAP_INI_ECCO |
& xx_theta_dummy, boundsVec, theta, maskc, paramSmooth, |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
157 |
CTRL_MAP_INI_ECCO |
& xx_salt_dummy, boundsVec, salt, maskc, paramSmooth, |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
190 |
CTRL_MAP_INI_ECCO |
& xx_etan_dummy, boundsVec, etan, maskc, paramSmooth, |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
205 |
CTRL_MAP_INI_ECCO |
& lambdaThetaClimRelax, maskc, paramSmooth, mythid ) |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
219 |
CTRL_MAP_INI_ECCO |
& lambdaSaltClimRelax, maskc, paramSmooth, mythid ) |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
235 |
CTRL_MAP_INI_ECCO |
& xx_bottomdrag_dummy, boundsVec, bottomDragFld, maskc, |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
267 |
CTRL_MAP_INI_ECCO |
& xx_diffkr_dummy, boundsVec, diffKr, maskc, paramSmooth, |
|
./pkg/ecco/cost_bp.F |
136 |
COST_BP |
& (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then |
|
./pkg/ecco/cost_bp.F |
184 |
COST_BP |
& (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then |
|
./pkg/ecco/cost_bp.F |
208 |
COST_BP |
& (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then |
|
./pkg/ecco/cost_bp.F |
226 |
COST_BP |
& (maskc(i,j,1,bi,bj).NE. 0. _d 0)) then |
|
./pkg/ecco/cost_bp.F |
247 |
COST_BP |
& call SMOOTH_BASIC2D(bpdifanom,maskc,750000. _d 0,5000,mythid) |
|
./pkg/ecco/cost_bp.F |
253 |
COST_BP |
& call SMOOTH_BASIC2D(bpdatanom,maskc,750000. _d 0,5000,mythid) |
|
./pkg/ecco/cost_bp.F |
271 |
COST_BP |
& (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
319 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
341 |
COST_GENCOST_SSHV4 |
& call SMOOTH_HETERO2D(mean_slaobs_mdt,maskc, |
|
./pkg/ecco/cost_gencost_sshv4.F |
356 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
531 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
543 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
556 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
606 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
614 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
626 |
COST_GENCOST_SSHV4 |
if ( maskc(i,j,1,bi,bj) .NE. 0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
641 |
COST_GENCOST_SSHV4 |
& call SMOOTH_HETERO2D(mean_psMssh_all,maskc, |
|
./pkg/ecco/cost_gencost_sshv4.F |
656 |
COST_GENCOST_SSHV4 |
& call SMOOTH_HETERO2D(mean_slaobs_model,maskc, |
|
./pkg/ecco/cost_gencost_sshv4.F |
842 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
871 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
915 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
945 |
COST_GENCOST_SSHV4 |
& call SMOOTH_HETERO2D(anom_psMslaobs,maskc, |
|
./pkg/ecco/cost_gencost_sshv4.F |
953 |
COST_GENCOST_SSHV4 |
& call SMOOTH_HETERO2D(anom_slaobs,maskc, |
|
./pkg/ecco/cost_gencost_sstv4.F |
239 |
COST_GENCOST_SSTV4 |
& (maskc(i,j,1,bi,bj).EQ.1.) ) then |
|
./pkg/ecco/cost_gencost_sstv4.F |
284 |
COST_GENCOST_SSTV4 |
call SMOOTH_HETERO2D(anom_sst,maskc, |
|
./pkg/ecco/cost_gencost_sstv4.F |
289 |
COST_GENCOST_SSTV4 |
call SMOOTH_HETERO2D(obs_sst,maskc, |
|
./pkg/ecco/cost_gencost_sstv4.F |
311 |
COST_GENCOST_SSTV4 |
& maskc(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
391 |
COST_GENCOST_SSTV4 |
& (maskc(i,j,1,bi,bj).EQ.1.) ) then |
|
./pkg/ecco/cost_gencost_sstv4.F |
418 |
COST_GENCOST_SSTV4 |
& maskc(i,j,1,bi,bj)*msk_sst(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
279 |
COST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_sshv4.F |
301 |
COST_SSHV4 |
& call SMOOTH_HETERO2D(mean_slaobs,maskc, |
|
./pkg/ecco/cost_sshv4.F |
315 |
COST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) ) then |
|
./pkg/ecco/cost_sshv4.F |
485 |
COST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_sshv4.F |
538 |
COST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_sshv4.F |
544 |
COST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_sshv4.F |
553 |
COST_SSHV4 |
if ( maskc(i,j,1,bi,bj) .NE. 0. ) |
|
./pkg/ecco/cost_sshv4.F |
567 |
COST_SSHV4 |
& call SMOOTH_HETERO2D(mean_psMssh_all,maskc, |
|
./pkg/ecco/cost_sshv4.F |
581 |
COST_SSHV4 |
& call SMOOTH_HETERO2D(mean_slaobs2,maskc, |
|
./pkg/ecco/cost_sshv4.F |
787 |
COST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) ) then |
|
./pkg/ecco/cost_sshv4.F |
818 |
COST_SSHV4 |
& call SMOOTH_HETERO2D(anom_psMslaobs,maskc, |
|
./pkg/ecco/cost_sshv4.F |
825 |
COST_SSHV4 |
& call SMOOTH_HETERO2D(anom_slaobs,maskc, |
|
./pkg/ecco/cost_sshv4.F |
850 |
COST_SSHV4 |
& + junk*junk*wsshv4(i,j,5,bi,bj)*maskc(i,j,1,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
854 |
COST_SSHV4 |
& (maskc(i,j,1,bi,bj) .ne. 0.) ) |
|
./pkg/ecco/ecco_cost_weights.F |
1020 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = wtauv(i,j,bi,bj)*maskc(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
1022 |
ECCO_COST_WEIGHTS |
wtauv2(i,j,bi,bj) = wtau0*maskc(i,j,k,bi,bj)*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
1052 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = wvwind(i,j,bi,bj)*maskc(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
951 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = wtauu(i,j,bi,bj)*maskc(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
953 |
ECCO_COST_WEIGHTS |
wtauu2(i,j,bi,bj) = wtau0*maskc(i,j,k,bi,bj)*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
983 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = wuwind(i,j,bi,bj)*maskc(i,j,k,bi,bj) |