| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_atemp.F |
119 |
COST_ATEMP |
& + watemp(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_atemp.F |
121 |
COST_ATEMP |
if ( watemp(i,j,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_heatflux.F |
159 |
COST_HEATFLUX |
& +cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_heatflux.F |
161 |
COST_HEATFLUX |
if ( cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_heatflux.F |
212 |
COST_HEATFLUX |
& + whflux(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_heatflux.F |
214 |
COST_HEATFLUX |
if ( whflux(i,j,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_xbt.F |
162 |
COST_XBT |
cmask(i,j) = cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_salt0.F |
122 |
COST_SALT0 |
& + wsalt(k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_salt0.F |
124 |
COST_SALT0 |
if ( wsalt(k,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_drifter.F |
302 |
COST_DRIFTER |
& + (wud(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_drifter.F |
306 |
COST_DRIFTER |
& + (wvd(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_drifter.F |
310 |
COST_DRIFTER |
if ( cosphi(i,j,bi,bj)*mask6c(i,j,bi,bj) .ne. 0. ) then |
|
./pkg/ecco/cost_salt.F |
177 |
COST_SALT |
cmask(i,j) = cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_obcsn.F |
130 |
COST_OBCSN |
& wobcsn(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsn.F |
167 |
COST_OBCSN |
& wobcsn(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsn.F |
203 |
COST_OBCSN |
& wobcsn(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsn.F |
240 |
COST_OBCSN |
& wobcsn(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_uwind.F |
119 |
COST_UWIND |
& + wuwind(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_uwind.F |
121 |
COST_UWIND |
if ( wuwind(i,j,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_kapgm.F |
124 |
COST_KAPGM |
& + 1e-8*cosphi(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
216 |
ECCO_COST_WEIGHTS |
cosphi(i,j,bi,bj) = frame(i,j) |
|
./pkg/ecco/cost_zonstress.F |
159 |
COST_ZONSTRESS |
& + cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_zonstress.F |
161 |
COST_ZONSTRESS |
if ( cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_zonstress.F |
212 |
COST_ZONSTRESS |
& + wtauu(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_zonstress.F |
214 |
COST_ZONSTRESS |
if ( wtauu(i,j,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_theta0.F |
122 |
COST_THETA0 |
& + wtheta(k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_theta0.F |
124 |
COST_THETA0 |
if ( wtheta(k,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_ctdtclim.F |
206 |
COST_CTDTCLIM |
& (wtheta2(i,j,k,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_tmi.F |
127 |
COST_TMI |
cmask(i,j) = cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_argo_theta.F |
174 |
COST_ARGO_THETA |
& wtheta2(i,j,k,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_argo_theta.F |
177 |
COST_ARGO_THETA |
if ( wtheta2(i,j,k,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_ctdsclim.F |
207 |
COST_CTDSCLIM |
& (wsalt2(i,j,k,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_sss.F |
126 |
COST_SSS |
cmask(i,j) = cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_argo_salt.F |
168 |
COST_ARGO_SALT |
& wsalt2(i,j,k,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_argo_salt.F |
171 |
COST_ARGO_SALT |
if ( wsalt2(i,j,k,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_ctdt.F |
177 |
COST_CTDT |
www(i,j) = cosphi(i,j,bi,bj)*cmask(i,j) |
|
./pkg/ecco/cost_theta_ini_fin.F |
110 |
COST_THETA_INI_FIN |
& + wtheta(k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_saltflux.F |
159 |
COST_SALTFLUX |
& + cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_saltflux.F |
161 |
COST_SALTFLUX |
if ( cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_saltflux.F |
212 |
COST_SALTFLUX |
& + wsflux(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_saltflux.F |
214 |
COST_SALTFLUX |
if ( wsflux(i,j,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_obcss.F |
130 |
COST_OBCSS |
& wobcss(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcss.F |
167 |
COST_OBCSS |
& wobcss(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcss.F |
203 |
COST_OBCSS |
& wobcss(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcss.F |
240 |
COST_OBCSS |
& wobcss(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsw.F |
130 |
COST_OBCSW |
& wobcsw(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsw.F |
167 |
COST_OBCSW |
& wobcsw(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsw.F |
203 |
COST_OBCSW |
& wobcsw(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsw.F |
240 |
COST_OBCSW |
& wobcsw(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/ecco_cost.h |
699 |
NO PROCEDURE |
& cosphi, |
|
./pkg/ecco/ecco_cost.h |
715 |
NO PROCEDURE |
_RL cosphi (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
|
./pkg/ecco/cost_theta.F |
176 |
COST_THETA |
cmask(i,j) = cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_aqh.F |
119 |
COST_AQH |
& + waqh(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_aqh.F |
121 |
COST_AQH |
if ( waqh(i,j,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_merstress.F |
161 |
COST_MERSTRESS |
& + cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_merstress.F |
163 |
COST_MERSTRESS |
if ( cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_merstress.F |
214 |
COST_MERSTRESS |
& + wtauv(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_merstress.F |
216 |
COST_MERSTRESS |
if ( wtauv(i,j,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_driftw.F |
192 |
COST_DRIFTW |
& (2.5e11*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_driftw.F |
195 |
COST_DRIFTW |
if ( cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_sst.F |
126 |
COST_SST |
cmask(i,j) = cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ctds.F |
174 |
COST_CTDS |
www(i,j) = cosphi(i,j,bi,bj)*cmask(i,j) |
|
./pkg/ecco/cost_scat.F |
136 |
COST_SCAT |
& wscatx(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_scat.F |
140 |
COST_SCAT |
if ( wscatx(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_scat.F |
155 |
COST_SCAT |
& wscaty(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_scat.F |
159 |
COST_SCAT |
if ( wscaty(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_salt_ini_fin.F |
110 |
COST_SALT_INI_FIN |
& + wsalt(k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_drift.F |
226 |
COST_DRIFT |
& (wsalt(k,bi,bj)*cosphi(i,j,bi,bj)/ |
|
./pkg/ecco/cost_drift.F |
232 |
COST_DRIFT |
& (wtheta(k,bi,bj)*cosphi(i,j,bi,bj)/ |
|
./pkg/ecco/cost_drift.F |
236 |
COST_DRIFT |
if ( wtheta(k,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_drift.F |
238 |
COST_DRIFT |
if ( wsalt(k,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_obcse.F |
130 |
COST_OBCSE |
& wobcse(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcse.F |
167 |
COST_OBCSE |
& wobcse(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcse.F |
203 |
COST_OBCSE |
& wobcse(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcse.F |
240 |
COST_OBCSE |
& wobcse(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_vwind.F |
119 |
COST_VWIND |
& + wvwind(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_vwind.F |
121 |
COST_VWIND |
if ( wvwind(i,j,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_curmtr.F |
209 |
COST_CURMTR |
wwwu(i,j) = cosphi(i,j,bi,bj)*umask(i,j) |
|
./pkg/ecco/cost_curmtr.F |
210 |
COST_CURMTR |
wwwv(i,j) = cosphi(i,j,bi,bj)*vmask(i,j) |
|
./pkg/ecco/cost_ssh.F |
166 |
COST_SSH |
& tpmeanmask(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_ssh.F |
169 |
COST_SSH |
& tpmeanmask(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
246 |
COST_SSH |
wwwtp(i,j) = wtp(i,j,bi,bj) *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
261 |
COST_SSH |
wwwers(i,j) = wers(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
216 |
ECCO_COST_WEIGHTS |
cosphi(i,j,bi,bj) = frame(i,j) |