| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_cost_concentration.F |
336 |
SEAICE_COST_CONCENTRATION |
cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_sss.F |
296 |
SEAICE_COST_SSS |
cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_cost_sst.F |
291 |
SEAICE_COST_SST |
cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
212 |
ECCO_COST_WEIGHTS |
cosphi(i,j,bi,bj) = frame(i,j) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
210 |
ECCO_COST_WEIGHTS |
cosphi(i,j,bi,bj) = frame(i,j) |
|
./pkg/ecco/cost_argo_salt.F |
169 |
COST_ARGO_SALT |
& wsalt2(i,j,k,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_argo_salt.F |
172 |
COST_ARGO_SALT |
if ( wsalt2(i,j,k,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_argo_theta.F |
175 |
COST_ARGO_THETA |
& wtheta2(i,j,k,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_argo_theta.F |
178 |
COST_ARGO_THETA |
if ( wtheta2(i,j,k,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_bottomdrag.F |
109 |
COST_BOTTOMDRAG |
& + wbottomdrag(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ctds.F |
166 |
COST_CTDS |
www(i,j) = cosphi(i,j,bi,bj)*cmask(i,j) |
|
./pkg/ecco/cost_ctdsclim.F |
195 |
COST_CTDSCLIM |
& (wsalt2(i,j,k,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_ctdt.F |
169 |
COST_CTDT |
www(i,j) = cosphi(i,j,bi,bj)*cmask(i,j) |
|
./pkg/ecco/cost_ctdtclim.F |
195 |
COST_CTDTCLIM |
& (wtheta2(i,j,k,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_curmtr.F |
210 |
COST_CURMTR |
wwwu(i,j) = cosphi(i,j,bi,bj)*umask(i,j) |
|
./pkg/ecco/cost_curmtr.F |
211 |
COST_CURMTR |
wwwv(i,j) = cosphi(i,j,bi,bj)*vmask(i,j) |
|
./pkg/ecco/cost_diffkr.F |
111 |
COST_DIFFKR |
& + wdiffkrFld(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 |
224 |
COST_DRIFT |
& (wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)/ |
|
./pkg/ecco/cost_drift.F |
229 |
COST_DRIFT |
if ( wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_drift.F |
248 |
COST_DRIFT |
& (wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)/ |
|
./pkg/ecco/cost_drift.F |
254 |
COST_DRIFT |
& (wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)/ |
|
./pkg/ecco/cost_drift.F |
259 |
COST_DRIFT |
if ( wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
305 |
COST_DRIFTER |
& + (wud(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_drifter.F |
309 |
COST_DRIFTER |
& + (wvd(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_drifter.F |
313 |
COST_DRIFTER |
if ( cosphi(i,j,bi,bj)*mask6c(i,j,bi,bj) .ne. 0. ) then |
|
./pkg/ecco/cost_driftw.F |
190 |
COST_DRIFTW |
& (2.5e11*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_driftw.F |
193 |
COST_DRIFTW |
if ( cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_forcing_gen.F |
187 |
COST_FORCING_GEN |
fctilem = fctilem + cosphi(i,j,bi,bj)*tmpx*tmpx |
|
./pkg/ecco/cost_forcing_gen.F |
188 |
COST_FORCING_GEN |
if ( cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_forcing_gen.F |
223 |
COST_FORCING_GEN |
& + wgen(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_forcing_gen.F |
229 |
COST_FORCING_GEN |
if ( wgen(i,j,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_forcing_gen.F |
278 |
COST_FORCING_GEN |
& + wgen(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_forcing_gen.F |
281 |
COST_FORCING_GEN |
if ( wgen(i,j,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
949 |
COST_GENCOST_SSHV4 |
& *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
962 |
COST_GENCOST_SSHV4 |
& *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
975 |
COST_GENCOST_SSHV4 |
& *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_generic.F |
266 |
COST_GENERIC |
cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj) |
|
./pkg/ecco/cost_kapgm.F |
114 |
COST_KAPGM |
& + wkapgmFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_kapredi.F |
114 |
COST_KAPREDI |
& + wkaprediFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_obcse.F |
132 |
COST_OBCSE |
& wobcse(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcse.F |
169 |
COST_OBCSE |
& wobcse(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcse.F |
205 |
COST_OBCSE |
& wobcse(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcse.F |
242 |
COST_OBCSE |
& wobcse(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsn.F |
132 |
COST_OBCSN |
& wobcsn(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsn.F |
169 |
COST_OBCSN |
& wobcsn(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsn.F |
205 |
COST_OBCSN |
& wobcsn(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsn.F |
242 |
COST_OBCSN |
& wobcsn(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcss.F |
132 |
COST_OBCSS |
& wobcss(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcss.F |
169 |
COST_OBCSS |
& wobcss(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcss.F |
205 |
COST_OBCSS |
& wobcss(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcss.F |
242 |
COST_OBCSS |
& wobcss(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsw.F |
132 |
COST_OBCSW |
& wobcsw(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsw.F |
169 |
COST_OBCSW |
& wobcsw(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsw.F |
205 |
COST_OBCSW |
& wobcsw(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsw.F |
242 |
COST_OBCSW |
& wobcsw(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_salt.F |
179 |
COST_SALT |
cmask(i,j) = cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_salt0.F |
124 |
COST_SALT0 |
& + wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_salt0.F |
129 |
COST_SALT0 |
if ( wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj).ne.0. ) |
|
./pkg/ecco/cost_salt0.F |
171 |
COST_SALT0 |
& + wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_salt_ini_fin.F |
111 |
COST_SALT_INI_FIN |
& + wsalt(k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_scat.F |
166 |
COST_SCAT |
& wscatx(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_scat.F |
170 |
COST_SCAT |
if ( wscatx(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_scat.F |
186 |
COST_SCAT |
& wscaty(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_scat.F |
190 |
COST_SCAT |
if ( wscaty(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_ssh.F |
171 |
COST_SSH |
& tpmeanmask(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_ssh.F |
174 |
COST_SSH |
& tpmeanmask(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
262 |
COST_SSH |
wwwtp(i,j) = wtp(i,j,bi,bj) *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
289 |
COST_SSH |
wwwers(i,j) = wers(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
316 |
COST_SSH |
wwwgfo(i,j) = wgfo(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
256 |
COST_SSH_NEW |
& tpmeanmask(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_ssh_new.F |
259 |
COST_SSH_NEW |
& tpmeanmask(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
348 |
COST_SSH_NEW |
& *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
377 |
COST_SSH_NEW |
& *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
406 |
COST_SSH_NEW |
& *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
928 |
COST_SSHV4 |
& *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
942 |
COST_SSHV4 |
& *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
956 |
COST_SSHV4 |
& *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_tau_eddy.F |
116 |
COST_TAU_EDDY |
& + wedtauxFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_tau_eddy.F |
151 |
COST_TAU_EDDY |
& + wedtauyFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_theta.F |
178 |
COST_THETA |
cmask(i,j) = cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_theta0.F |
124 |
COST_THETA0 |
& + wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_theta0.F |
129 |
COST_THETA0 |
if ( wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj).ne.0. ) |
|
./pkg/ecco/cost_theta0.F |
171 |
COST_THETA0 |
& + wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_theta_ini_fin.F |
111 |
COST_THETA_INI_FIN |
& + wtheta(k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_xbt.F |
163 |
COST_XBT |
cmask(i,j) = cosphi(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost.h |
1010 |
NO PROCEDURE |
& cosphi, |
|
./pkg/ecco/ecco_cost.h |
1035 |
NO PROCEDURE |
_RL cosphi (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
|
./pkg/ecco/ecco_cost_weights.F |
247 |
ECCO_COST_WEIGHTS |
cosphi(i,j,bi,bj) = frame(i,j) |