| File |
Line number |
Procedure |
Code |
|
./pkg/smooth/smooth_diff3d.F |
150 |
SMOOTH_DIFF3D |
if (maskc(i,j,k,bi,bj).NE.0.) then |
|
./pkg/smooth/smooth_filtervar2d.F |
131 |
SMOOTH_FILTERVAR2D |
CALL SMOOTH_DIFF2D(smoothTmpFld,maskc,nbt_in,mythid) |
|
./pkg/smooth/smooth_filtervar2d.F |
138 |
SMOOTH_FILTERVAR2D |
if (maskc(i,j,1,bi,bj).NE.0) then |
|
./pkg/smooth/smooth_filtervar2d.F |
194 |
SMOOTH_FILTERVAR2D |
call SMOOTH_DIFF2D(smoothTmpFld,maskc,nbt_in,mythid) |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
147 |
CTRL_MAP_INI_ECCO |
& xx_theta_dummy, boundsVec, theta, maskc, paramSmooth, |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
162 |
CTRL_MAP_INI_ECCO |
& xx_salt_dummy, boundsVec, salt, maskc, paramSmooth, |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
197 |
CTRL_MAP_INI_ECCO |
& xx_etan_dummy, boundsVec, etan, maskc, paramSmooth, |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
215 |
CTRL_MAP_INI_ECCO |
& lambdaThetaClimRelax, maskc, paramSmooth, mythid ) |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
230 |
CTRL_MAP_INI_ECCO |
& lambdaSaltClimRelax, maskc, paramSmooth, mythid ) |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
250 |
CTRL_MAP_INI_ECCO |
& xx_bottomdrag_dummy, boundsVec, bottomdragfld, maskc, |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
284 |
CTRL_MAP_INI_ECCO |
& xx_diffkr_dummy, boundsVec, diffkr, maskc, paramSmooth, |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
298 |
CTRL_MAP_INI_ECCO |
& xx_kapgm_dummy, boundsVec, kapgm, maskc, paramSmooth, |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
312 |
CTRL_MAP_INI_ECCO |
& xx_kapredi_dummy, boundsVec, kapredi, 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 |
245 |
COST_BP |
call SMOOTH_BASIC2D(bpdifanom,maskc,750000. _d 0,5000,mythid) |
|
./pkg/ecco/cost_bp.F |
248 |
COST_BP |
call SMOOTH_BASIC2D(bpdatanom,maskc,750000. _d 0,5000,mythid) |
|
./pkg/ecco/cost_bp.F |
265 |
COST_BP |
& (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
275 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
295 |
COST_GENCOST_SSHV4 |
call SMOOTH_HETERO2D(mean_slaobs,maskc, |
|
./pkg/ecco/cost_gencost_sshv4.F |
308 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
478 |
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. ) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
537 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
546 |
COST_GENCOST_SSHV4 |
if ( maskc(i,j,1,bi,bj) .NE. 0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
558 |
COST_GENCOST_SSHV4 |
call SMOOTH_HETERO2D(mean_psMssh_all,maskc, |
|
./pkg/ecco/cost_gencost_sshv4.F |
569 |
COST_GENCOST_SSHV4 |
call SMOOTH_HETERO2D(mean_slaobs2,maskc, |
|
./pkg/ecco/cost_gencost_sshv4.F |
773 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
802 |
COST_GENCOST_SSHV4 |
call SMOOTH_HETERO2D(anom_psMslaobs,maskc, |
|
./pkg/ecco/cost_gencost_sshv4.F |
806 |
COST_GENCOST_SSHV4 |
call SMOOTH_HETERO2D(anom_slaobs,maskc, |
|
./pkg/ecco/cost_gencost_sshv4.F |
831 |
COST_GENCOST_SSHV4 |
& *maskc(i,j,1,bi,bj)/ndaysaveRL |
|
./pkg/ecco/cost_gencost_sshv4.F |
834 |
COST_GENCOST_SSHV4 |
& (maskc(i,j,1,bi,bj) .ne. 0.) ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
211 |
COST_GENCOST_SSTV4 |
& (maskc(i,j,1,bi,bj).EQ.1.) ) then |
|
./pkg/ecco/cost_gencost_sstv4.F |
256 |
COST_GENCOST_SSTV4 |
call SMOOTH_HETERO2D(anom_sst,maskc, |
|
./pkg/ecco/cost_gencost_sstv4.F |
260 |
COST_GENCOST_SSTV4 |
call SMOOTH_HETERO2D(obs_sst,maskc, |
|
./pkg/ecco/cost_gencost_sstv4.F |
281 |
COST_GENCOST_SSTV4 |
& maskc(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
349 |
COST_GENCOST_SSTV4 |
& (maskc(i,j,1,bi,bj).EQ.1.) ) then |
|
./pkg/ecco/cost_gencost_sstv4.F |
376 |
COST_GENCOST_SSTV4 |
& maskc(i,j,1,bi,bj)*msk_sst(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
255 |
COST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_sshv4.F |
275 |
COST_SSHV4 |
call SMOOTH_HETERO2D(mean_slaobs,maskc, |
|
./pkg/ecco/cost_sshv4.F |
288 |
COST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) ) then |
|
./pkg/ecco/cost_sshv4.F |
458 |
COST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_sshv4.F |
511 |
COST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_sshv4.F |
517 |
COST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_sshv4.F |
526 |
COST_SSHV4 |
if ( maskc(i,j,1,bi,bj) .NE. 0. ) |
|
./pkg/ecco/cost_sshv4.F |
538 |
COST_SSHV4 |
call SMOOTH_HETERO2D(mean_psMssh_all,maskc, |
|
./pkg/ecco/cost_sshv4.F |
549 |
COST_SSHV4 |
call SMOOTH_HETERO2D(mean_slaobs2,maskc, |
|
./pkg/ecco/cost_sshv4.F |
752 |
COST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) ) then |
|
./pkg/ecco/cost_sshv4.F |
781 |
COST_SSHV4 |
call SMOOTH_HETERO2D(anom_psMslaobs,maskc, |
|
./pkg/ecco/cost_sshv4.F |
785 |
COST_SSHV4 |
call SMOOTH_HETERO2D(anom_slaobs,maskc, |
|
./pkg/ecco/cost_sshv4.F |
809 |
COST_SSHV4 |
& + junk*junk*wsshv4(i,j,5,bi,bj)*maskc(i,j,1,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
813 |
COST_SSHV4 |
& (maskc(i,j,1,bi,bj) .ne. 0.) ) |
|
./pkg/ecco/ecco_cost_weights.F |
1000 |
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 |
898 |
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 |
900 |
ECCO_COST_WEIGHTS |
wtauu2(i,j,bi,bj) = wtau0*maskc(i,j,k,bi,bj)*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
930 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = wuwind(i,j,bi,bj)*maskc(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
968 |
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 |
970 |
ECCO_COST_WEIGHTS |
wtauv2(i,j,bi,bj) = wtau0*maskc(i,j,k,bi,bj)*frame(i,j) |
|
./pkg/exf/exf_getclim.F |
119 |
EXF_GETCLIM |
& maskc, climsst, xx_sst0, xx_sst1, xx_sst_dummy, |
|
./pkg/exf/exf_getffields.F |
366 |
EXF_GETFFIELDS |
& maskc, atemp, xx_atemp0, xx_atemp1, xx_atemp_dummy, |
|
./pkg/exf/exf_getffields.F |
374 |
EXF_GETFFIELDS |
& maskc, aqh, xx_aqh0, xx_aqh1, xx_aqh_dummy, |
|
./pkg/exf/exf_getffields.F |
382 |
EXF_GETFFIELDS |
& maskc, precip, xx_precip0, xx_precip1, xx_precip_dummy, |
|
./pkg/exf/exf_getffields.F |
390 |
EXF_GETFFIELDS |
& maskc, swflux, xx_swflux0, xx_swflux1, xx_swflux_dummy, |
|
./pkg/exf/exf_getffields.F |
398 |
EXF_GETFFIELDS |
& maskc, swdown, xx_swdown0, xx_swdown1, xx_swdown_dummy, |
|
./pkg/exf/exf_getffields.F |
406 |
EXF_GETFFIELDS |
& maskc, lwflux, xx_lwflux0, xx_lwflux1, xx_lwflux_dummy, |
|
./pkg/exf/exf_getffields.F |
414 |
EXF_GETFFIELDS |
& maskc, lwdown, xx_lwdown0, xx_lwdown1, xx_lwdown_dummy, |
|
./pkg/exf/exf_getffields.F |
422 |
EXF_GETFFIELDS |
& maskc, evap, xx_evap0, xx_evap1, xx_evap_dummy, |
|
./pkg/exf/exf_getffields.F |
431 |
EXF_GETFFIELDS |
& maskc, snowprecip, xx_snowprecip0, xx_snowprecip1, |
|
./pkg/exf/exf_getffields.F |
441 |
EXF_GETFFIELDS |
& maskc, apressure, xx_apressure0, xx_apressure1, |
|
./pkg/exf/exf_getffields.F |
452 |
EXF_GETFFIELDS |
& maskc, uwind, xx_uwind0, xx_uwind1, xx_uwind_dummy, |
|
./pkg/exf/exf_getffields.F |
460 |
EXF_GETFFIELDS |
& maskc, vwind, xx_vwind0, xx_vwind1, xx_vwind_dummy, |
|
./pkg/exf/exf_getffields.F |
484 |
EXF_GETFFIELDS |
& maskc, tmpUE, xx_uwind0, xx_uwind1, xx_uwind_dummy, |
|
./pkg/exf/exf_getffields.F |
490 |
EXF_GETFFIELDS |
& maskc, tmpVN, xx_vwind0, xx_vwind1, xx_vwind_dummy, |
|
./pkg/exf/exf_getsurfacefluxes.F |
121 |
EXF_GETSURFACEFLUXES |
& maskc, tmpUE, xx_tauu0, xx_tauu1, xx_tauu_dummy, |
|
./pkg/exf/exf_getsurfacefluxes.F |
127 |
EXF_GETSURFACEFLUXES |
& maskc, tmpVN, xx_tauv0, xx_tauv1, xx_tauv_dummy, |
|
./pkg/exf/exf_getsurfacefluxes.F |
71 |
EXF_GETSURFACEFLUXES |
& maskc, hflux, xx_hflux0, xx_hflux1, xx_hflux_dummy, |
|
./pkg/exf/exf_getsurfacefluxes.F |
79 |
EXF_GETSURFACEFLUXES |
& maskc, sflux, xx_sflux0, xx_sflux1, xx_sflux_dummy, |