| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_init.F |
227 |
FLT_INIT |
ylo = yc(1, 1, bi,bj) - delY(jG)*0.5 |
|
./pkg/flt/flt_init.F |
228 |
FLT_INIT |
yhi = yc(1,sNy,bi,bj) + delY(jG+sNy-1)*0.5 |
|
./pkg/flt/flt_exchg.F |
256 |
FLT_EXCHG |
ylo = yc(1, 1, bi,bj) - delY(jG) |
|
./pkg/flt/flt_exchg.F |
257 |
FLT_EXCHG |
yhi = yc(1,sNy,bi,bj) + delY(jG+sNy-1) |
|
./pkg/flt/flt_functions.F |
107 |
NO PROCEDURE |
ylo = yc(1,j, bi,bj) |
|
./pkg/flt/flt_functions.F |
108 |
NO PROCEDURE |
if (j.eq.0) ylo = yc(1,j,bi,bj)-delY(jG) |
|
./pkg/flt/flt_functions.F |
109 |
NO PROCEDURE |
yhi = yc(1,j+1,bi,bj) |
|
./pkg/flt/flt_functions.F |
110 |
NO PROCEDURE |
if (j.eq.sNy) yhi = yc(1,j,bi,bj)+delY(jG+j-1) |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
258 |
GETSST |
if( abs(yc(i,j,bi,bj)*deg2rad) .lt. pio3 ) then |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
259 |
GETSST |
sinarg = 3.*yc(i,j,bi,bj)*deg2rad/2. |
|
./verification/flt_example/extra/write_float.F |
111 |
NO PROCEDURE |
ypart = yc(j) |
|
./verification/flt_example/extra/write_float.F |
138 |
NO PROCEDURE |
ypart = yc(j) |
|
./verification/flt_example/extra/write_float.F |
164 |
NO PROCEDURE |
ypart = yc(j) |
|
./verification/flt_example/extra/write_float.F |
186 |
NO PROCEDURE |
ypart = yc(j) |
|
./verification/flt_example/extra/write_float.F |
48 |
NO PROCEDURE |
yc(1)=2500. |
|
./verification/flt_example/extra/write_float.F |
50 |
NO PROCEDURE |
yc(j)=yc(j-1)+degY |
|
./verification/flt_example/extra/write_float.F |
54 |
NO PROCEDURE |
print*,'yc(1), yc(Ny): ',yc(1), yc(Ny) |
|
./verification/flt_example/extra/write_float.F |
7 |
NO PROCEDURE |
double precision depth(Nx,Ny),xc(Nx),yc(Ny),degX,degY |
|
./verification/flt_example/extra/write_float.F |
89 |
NO PROCEDURE |
ypart = yc(j) |
|
./model/src/ini_spherical_polar_grid.F |
171 |
INI_SPHERICAL_POLAR_GRID |
& COS(yc(I,J,bi,bj)*deg2rad) |
|
./pkg/ecco/cost_mean_heatflux.F |
115 |
COST_MEAN_HEATFLUX |
& *cos(yc(i,j,bi,bj)*deg2rad) |
|
./pkg/ecco/cost_mean_heatflux.F |
116 |
COST_MEAN_HEATFLUX |
sumcos = sumcos + cos(yc(i,j,bi,bj)*deg2rad) |
|
./pkg/ecco/cost_mean_saltflux.F |
118 |
COST_MEAN_SALTFLUX |
& *cos(yc(i,j,bi,bj)*deg2rad) |
|
./pkg/ecco/cost_mean_saltflux.F |
120 |
COST_MEAN_SALTFLUX |
& + cos(yc(i,j,bi,bj)*deg2rad) |
|
./pkg/ecco/cost_trans_zonal.F |
187 |
COST_TRANS_ZONAL |
$ yc(i,j,bi,bj) .ge. beglat(isect) .and. |
|
./pkg/ecco/cost_trans_zonal.F |
188 |
COST_TRANS_ZONAL |
$ yc(i,j,bi,bj) .le. endlat(isect) ) then |
|
./pkg/ecco/cost_atlantic.F |
146 |
COST_ATLANTIC |
del_y=yc(i,j,bi,bj)-yc(i,j-1,bi,bj) |
|
./pkg/ecco/cost_atlantic.F |
147 |
COST_ATLANTIC |
if(yc(i,j,bi,bj) .ge.ylat .and. |
|
./pkg/ecco/cost_atlantic.F |
148 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
151 |
COST_ATLANTIC |
$ (yc(i,j,bi,bj) .ge.ylat2 .and. |
|
./pkg/ecco/cost_atlantic.F |
152 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat2+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
155 |
COST_ATLANTIC |
$ (yc(i,j,bi,bj) .ge.ylat3 .and. |
|
./pkg/ecco/cost_atlantic.F |
156 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat3+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
189 |
COST_ATLANTIC |
del_y=yc(i,j,bi,bj)-yc(i,j-1,bi,bj) |
|
./pkg/ecco/cost_atlantic.F |
190 |
COST_ATLANTIC |
if(yc(i,j,bi,bj) .ge.ylat .and. |
|
./pkg/ecco/cost_atlantic.F |
191 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
194 |
COST_ATLANTIC |
$ (yc(i,j,bi,bj) .ge.ylat2 .and. |
|
./pkg/ecco/cost_atlantic.F |
195 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat2+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
198 |
COST_ATLANTIC |
$ (yc(i,j,bi,bj) .ge.ylat3 .and. |
|
./pkg/ecco/cost_atlantic.F |
199 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat3+del_y.and. |
|
./pkg/ecco/cost_trans_merid.F |
195 |
COST_TRANS_MERID |
del_y = yc(i,j,bi,bj)-yc(i,j-1,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
196 |
COST_TRANS_MERID |
if ( yc(i,j,bi,bj) .ge. ylat(isect) .and. |
|
./pkg/ecco/cost_trans_merid.F |
197 |
COST_TRANS_MERID |
$ yc(i,j,bi,bj) .lt. ylat(isect)+del_y .and. |