| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_cost_weights.F |
1007 |
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 |
1044 |
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 |
1046 |
ECCO_COST_WEIGHTS |
wtauv2(i,j,bi,bj) = wtau0*maskc(i,j,k,bi,bj)*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
1076 |
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 |
975 |
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 |
977 |
ECCO_COST_WEIGHTS |
wtauu2(i,j,bi,bj) = wtau0*maskc(i,j,k,bi,bj)*frame(i,j) |
|
./pkg/exf/exf_getclim.F |
107 |
EXF_GETCLIM |
& maskc, climsst, xx_sst0, xx_sst1, xx_sst_dummy, |
|
./pkg/exf/exf_getclim.F |
135 |
EXF_GETCLIM |
& maskc, climsss, xx_sss0, xx_sss1, xx_sss_dummy, |
|
./pkg/exf/exf_getffields.F |
502 |
EXF_GETFFIELDS |
& maskc, atemp, xx_atemp0, xx_atemp1, xx_atemp_dummy, |
|
./pkg/exf/exf_getffields.F |
510 |
EXF_GETFFIELDS |
& maskc, aqh, xx_aqh0, xx_aqh1, xx_aqh_dummy, |
|
./pkg/exf/exf_getffields.F |
518 |
EXF_GETFFIELDS |
& maskc, precip, xx_precip0, xx_precip1, xx_precip_dummy, |
|
./pkg/exf/exf_getffields.F |
526 |
EXF_GETFFIELDS |
& maskc, swdown, xx_swdown0, xx_swdown1, xx_swdown_dummy, |
|
./pkg/exf/exf_getffields.F |
534 |
EXF_GETFFIELDS |
& maskc, lwdown, xx_lwdown0, xx_lwdown1, xx_lwdown_dummy, |
|
./pkg/exf/exf_getffields.F |
544 |
EXF_GETFFIELDS |
& maskc, swflux, xx_swflux0, xx_swflux1, xx_swflux_dummy, |
|
./pkg/exf/exf_getffields.F |
552 |
EXF_GETFFIELDS |
& maskc, lwflux, xx_lwflux0, xx_lwflux1, xx_lwflux_dummy, |
|
./pkg/exf/exf_getffields.F |
560 |
EXF_GETFFIELDS |
& maskc, evap, xx_evap0, xx_evap1, xx_evap_dummy, |
|
./pkg/exf/exf_getffields.F |
569 |
EXF_GETFFIELDS |
& maskc, snowprecip, xx_snowprecip0, xx_snowprecip1, |
|
./pkg/exf/exf_getffields.F |
579 |
EXF_GETFFIELDS |
& maskc, apressure, xx_apressure0, xx_apressure1, |
|
./pkg/exf/exf_getffields.F |
591 |
EXF_GETFFIELDS |
& maskc, uwind, xx_uwind0, xx_uwind1, xx_uwind_dummy, |
|
./pkg/exf/exf_getffields.F |
599 |
EXF_GETFFIELDS |
& maskc, vwind, xx_vwind0, xx_vwind1, xx_vwind_dummy, |
|
./pkg/exf/exf_getffields.F |
609 |
EXF_GETFFIELDS |
& maskc, tmpUE, xx_uwind0, xx_uwind1, xx_uwind_dummy, |
|
./pkg/exf/exf_getffields.F |
615 |
EXF_GETFFIELDS |
& maskc, tmpVN, xx_vwind0, xx_vwind1, xx_vwind_dummy, |
|
./pkg/exf/exf_getsurfacefluxes.F |
140 |
EXF_GETSURFACEFLUXES |
& maskc, hflux, xx_hflux0, xx_hflux1, xx_hflux_dummy, |
|
./pkg/exf/exf_getsurfacefluxes.F |
148 |
EXF_GETSURFACEFLUXES |
& maskc, sflux, xx_sflux0, xx_sflux1, xx_sflux_dummy, |
|
./pkg/exf/exf_getsurfacefluxes.F |
180 |
EXF_GETSURFACEFLUXES |
& maskc, tmpUE, xx_tauu0, xx_tauu1, xx_tauu_dummy, |
|
./pkg/exf/exf_getsurfacefluxes.F |
186 |
EXF_GETSURFACEFLUXES |
& maskc, tmpVN, xx_tauv0, xx_tauv1, xx_tauv_dummy, |
|
./pkg/smooth/smooth_diff3d.F |
149 |
SMOOTH_DIFF3D |
if (maskc(i,j,k,bi,bj).NE.0.) then |
|
./pkg/smooth/smooth_filtervar2d.F |
132 |
SMOOTH_FILTERVAR2D |
CALL SMOOTH_DIFF2D(smoothTmpFld,maskc,nbt_in,mythid) |
|
./pkg/smooth/smooth_filtervar2d.F |
139 |
SMOOTH_FILTERVAR2D |
if (maskc(i,j,1,bi,bj).NE.0) then |
|
./pkg/smooth/smooth_filtervar2d.F |
193 |
SMOOTH_FILTERVAR2D |
call SMOOTH_DIFF2D(smoothTmpFld,maskc,nbt_in,mythid) |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
142 |
CTRL_MAP_INI_ECCO |
& xx_theta_dummy, boundsVec, theta, maskc, paramSmooth, |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
156 |
CTRL_MAP_INI_ECCO |
& xx_salt_dummy, boundsVec, salt, maskc, paramSmooth, |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
189 |
CTRL_MAP_INI_ECCO |
& xx_etan_dummy, boundsVec, etan, maskc, paramSmooth, |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
204 |
CTRL_MAP_INI_ECCO |
& lambdaThetaClimRelax, maskc, paramSmooth, mythid ) |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
218 |
CTRL_MAP_INI_ECCO |
& lambdaSaltClimRelax, maskc, paramSmooth, mythid ) |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
230 |
CTRL_MAP_INI_ECCO |
& xx_bottomdrag_dummy, boundsVec, bottomDragFld, maskc, |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
262 |
CTRL_MAP_INI_ECCO |
& xx_diffkr_dummy, boundsVec, diffKr, maskc, paramSmooth, |
|
./pkg/ecco/cost_gencost_bpv4.F |
175 |
COST_GENCOST_BPV4 |
& (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then |
|
./pkg/ecco/cost_gencost_bpv4.F |
229 |
COST_GENCOST_BPV4 |
& (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then |
|
./pkg/ecco/cost_gencost_bpv4.F |
253 |
COST_GENCOST_BPV4 |
& (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then |
|
./pkg/ecco/cost_gencost_bpv4.F |
271 |
COST_GENCOST_BPV4 |
& (maskc(i,j,1,bi,bj).NE. 0. _d 0)) then |
|
./pkg/ecco/cost_gencost_bpv4.F |
292 |
COST_GENCOST_BPV4 |
& call SMOOTH_BASIC2D(bpdifanom,maskc,300000. _d 0,3000,mythid) |
|
./pkg/ecco/cost_gencost_bpv4.F |
298 |
COST_GENCOST_BPV4 |
& call SMOOTH_BASIC2D(bpdatanom,maskc,300000. _d 0,3000,mythid) |
|
./pkg/ecco/cost_gencost_bpv4.F |
317 |
COST_GENCOST_BPV4 |
& (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then |
|
./pkg/ecco/cost_gencost_glbmean.F |
185 |
COST_GENCOST_GLBMEAN |
if ( maskc(i,j,1,bi,bj).NE. 0. _d 0 ) then |
|
./pkg/ecco/cost_gencost_glbmean.F |
228 |
COST_GENCOST_GLBMEAN |
if ( maskc(i,j,1,bi,bj).NE. 0. _d 0) then |
|
./pkg/ecco/cost_gencost_glbmean.F |
247 |
COST_GENCOST_GLBMEAN |
if ( maskc(i,j,1,bi,bj).NE. 0. _d 0) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
1033 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1062 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1110 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1140 |
COST_GENCOST_SSHV4 |
& call SMOOTH_HETERO2D(anom_psMslaobs,maskc, |
|
./pkg/ecco/cost_gencost_sshv4.F |
1148 |
COST_GENCOST_SSHV4 |
& call SMOOTH_HETERO2D(anom_slaobs,maskc, |
|
./pkg/ecco/cost_gencost_sshv4.F |
447 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
471 |
COST_GENCOST_SSHV4 |
& call SMOOTH_HETERO2D(mean_slaobs_mdt,maskc, |
|
./pkg/ecco/cost_gencost_sshv4.F |
488 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
669 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
681 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
694 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
778 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
786 |
COST_GENCOST_SSHV4 |
& ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
798 |
COST_GENCOST_SSHV4 |
if ( maskc(i,j,1,bi,bj) .NE. 0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
815 |
COST_GENCOST_SSHV4 |
& call SMOOTH_HETERO2D(mean_psMssh_all,maskc, |
|
./pkg/ecco/cost_gencost_sshv4.F |
834 |
COST_GENCOST_SSHV4 |
& call SMOOTH_HETERO2D(mean_slaobs_model,maskc, |
|
./pkg/ecco/cost_gencost_sstv4.F |
256 |
COST_GENCOST_SSTV4 |
& (maskc(i,j,1,bi,bj).EQ.1.) ) then |
|
./pkg/ecco/cost_gencost_sstv4.F |
302 |
COST_GENCOST_SSTV4 |
& call SMOOTH_HETERO2D(anom_sst,maskc, |
|
./pkg/ecco/cost_gencost_sstv4.F |
308 |
COST_GENCOST_SSTV4 |
& call SMOOTH_HETERO2D(obs_sst,maskc, |
|
./pkg/ecco/cost_gencost_sstv4.F |
330 |
COST_GENCOST_SSTV4 |
& maskc(i,j,1,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
414 |
COST_GENCOST_SSTV4 |
& (maskc(i,j,1,bi,bj).EQ.1.) ) then |
|
./pkg/ecco/cost_gencost_sstv4.F |
441 |
COST_GENCOST_SSTV4 |
& maskc(i,j,1,bi,bj)*msk_sst(i,j,bi,bj) |
|
./pkg/ecco/cost_generic.F |
379 |
COST_GENLOOP |
& call SMOOTH_HETERO2D(localdif,maskc, |