| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_cost_concentration.F |
337 |
SEAICE_COST_CONCENTRATION |
cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_sss.F |
297 |
SEAICE_COST_SSS |
cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_sst.F |
297 |
SEAICE_COST_SST |
cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj) |
|
./pkg/ecco/cost_argo_salt.F |
170 |
COST_ARGO_SALT |
& wsalt2(i,j,k,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_argo_salt.F |
173 |
COST_ARGO_SALT |
if ( wsalt2(i,j,k,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_argo_theta.F |
176 |
COST_ARGO_THETA |
& wtheta2(i,j,k,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_argo_theta.F |
179 |
COST_ARGO_THETA |
if ( wtheta2(i,j,k,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_bottomdrag.F |
110 |
COST_BOTTOMDRAG |
& + wbottomdrag(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ctds.F |
167 |
COST_CTDS |
www(i,j) = cosphi(i,j,bi,bj)*cmask(i,j) |
|
./pkg/ecco/cost_ctdsclim.F |
196 |
COST_CTDSCLIM |
& (wsalt2(i,j,k,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_ctdt.F |
170 |
COST_CTDT |
www(i,j) = cosphi(i,j,bi,bj)*cmask(i,j) |
|
./pkg/ecco/cost_ctdtclim.F |
196 |
COST_CTDTCLIM |
& (wtheta2(i,j,k,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_curmtr.F |
211 |
COST_CURMTR |
wwwu(i,j) = cosphi(i,j,bi,bj)*umask(i,j) |
|
./pkg/ecco/cost_curmtr.F |
212 |
COST_CURMTR |
wwwv(i,j) = cosphi(i,j,bi,bj)*vmask(i,j) |
|
./pkg/ecco/cost_diffkr.F |
112 |
COST_DIFFKR |
& + wdiffkrFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_drift.F |
212 |
COST_DRIFT |
& (wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)/ |
|
./pkg/ecco/cost_drift.F |
218 |
COST_DRIFT |
& (wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)/ |
|
./pkg/ecco/cost_drift.F |
223 |
COST_DRIFT |
if ( wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_drift.F |
249 |
COST_DRIFT |
& (wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)/ |
|
./pkg/ecco/cost_drift.F |
255 |
COST_DRIFT |
& (wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)/ |
|
./pkg/ecco/cost_drift.F |
260 |
COST_DRIFT |
if ( wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
306 |
COST_DRIFTER |
& + (wud(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_drifter.F |
310 |
COST_DRIFTER |
& + (wvd(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_drifter.F |
314 |
COST_DRIFTER |
if ( cosphi(i,j,bi,bj)*mask6c(i,j,bi,bj) .ne. 0. ) then |
|
./pkg/ecco/cost_driftw.F |
191 |
COST_DRIFTW |
& (2.5e11*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_driftw.F |
194 |
COST_DRIFTW |
if ( cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_etan0.F |
122 |
COST_ETAN0 |
& + wetan(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_etan0.F |
127 |
COST_ETAN0 |
if ( wetan(i,j,bi,bj)*cosphi(i,j,bi,bj).ne.0. ) |
|
./pkg/ecco/cost_forcing_gen.F |
186 |
COST_FORCING_GEN |
fctilem = fctilem + cosphi(i,j,bi,bj)*tmpx*tmpx |
|
./pkg/ecco/cost_forcing_gen.F |
187 |
COST_FORCING_GEN |
if ( cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_forcing_gen.F |
222 |
COST_FORCING_GEN |
& + wgen(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_forcing_gen.F |
228 |
COST_FORCING_GEN |
if ( wgen(i,j,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_forcing_gen.F |
277 |
COST_FORCING_GEN |
& + wgen(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_forcing_gen.F |
280 |
COST_FORCING_GEN |
if ( wgen(i,j,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
371 |
COST_GENCOST_SEAICEV4 |
cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1137 |
COST_GENCOST_SSHV4 |
& *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1150 |
COST_GENCOST_SSHV4 |
& *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1163 |
COST_GENCOST_SSHV4 |
& *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_generic.F |
273 |
COST_GENERIC |
cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj) |
|
./pkg/ecco/cost_kapgm.F |
115 |
COST_KAPGM |
& + wkapgmFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_kapredi.F |
115 |
COST_KAPREDI |
& + wkaprediFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_salt.F |
180 |
COST_SALT |
cmask(i,j) = cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_salt0.F |
125 |
COST_SALT0 |
& + wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_salt0.F |
130 |
COST_SALT0 |
if ( wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj).ne.0. ) |
|
./pkg/ecco/cost_salt0.F |
172 |
COST_SALT0 |
& + wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_salt_ini_fin.F |
112 |
COST_SALT_INI_FIN |
& + wsalt(k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_scat.F |
167 |
COST_SCAT |
& wscatx(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_scat.F |
171 |
COST_SCAT |
if ( wscatx(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_scat.F |
187 |
COST_SCAT |
& wscaty(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_scat.F |
191 |
COST_SCAT |
if ( wscaty(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_sigmar.F |
173 |
COST_SIGMAR |
cmask(i,j) = cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
172 |
COST_SSH |
& mdtmask(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_ssh.F |
175 |
COST_SSH |
& mdtmask(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
265 |
COST_SSH |
wwwtp(i,j) = wtp(i,j,bi,bj) *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
292 |
COST_SSH |
wwwers(i,j) = wers(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
319 |
COST_SSH |
wwwgfo(i,j) = wgfo(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
257 |
COST_SSH_NEW |
& mdtmask(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_ssh_new.F |
260 |
COST_SSH_NEW |
& mdtmask(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
351 |
COST_SSH_NEW |
& *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
380 |
COST_SSH_NEW |
& *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
409 |
COST_SSH_NEW |
& *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
969 |
COST_SSHV4 |
& *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
983 |
COST_SSHV4 |
& *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
997 |
COST_SSHV4 |
& *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_tau_eddy.F |
117 |
COST_TAU_EDDY |
& + wedtauxFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_tau_eddy.F |
152 |
COST_TAU_EDDY |
& + wedtauyFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_theta.F |
180 |
COST_THETA |
cmask(i,j) = cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_theta0.F |
125 |
COST_THETA0 |
& + wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_theta0.F |
130 |
COST_THETA0 |
if ( wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj).ne.0. ) |
|
./pkg/ecco/cost_theta0.F |
172 |
COST_THETA0 |
& + wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_theta_ini_fin.F |
112 |
COST_THETA_INI_FIN |
& + wtheta(k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_uvel0.F |
123 |
COST_UVEL0 |
& + wuvel3d(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_uvel0.F |
128 |
COST_UVEL0 |
if ( wuvel3d(i,j,k,bi,bj)*cosphi(i,j,bi,bj).ne.0. ) |
|
./pkg/ecco/cost_vvel0.F |
123 |
COST_VVEL0 |
& + wvvel3d(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_vvel0.F |
128 |
COST_VVEL0 |
if ( wvvel3d(i,j,k,bi,bj)*cosphi(i,j,bi,bj).ne.0. ) |
|
./pkg/ecco/cost_xbt.F |
164 |
COST_XBT |
cmask(i,j) = cosphi(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost.h |
1131 |
NO PROCEDURE |
& cosphi, |
|
./pkg/ecco/ecco_cost.h |
1160 |
NO PROCEDURE |
_RL cosphi (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
|
./pkg/ecco/ecco_cost_weights.F |
259 |
ECCO_COST_WEIGHTS |
cosphi(i,j,bi,bj) = frame(i,j) |