| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
269 |
GETSST |
if( abs(yc(i,j,bi,bj)*deg2rad) .lt. pio3 ) then |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
270 |
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) |
|
./pkg/ecco/cost_atlantic.F |
147 |
COST_ATLANTIC |
del_y=yc(i,j,bi,bj)-yc(i,j-1,bi,bj) |
|
./pkg/ecco/cost_atlantic.F |
148 |
COST_ATLANTIC |
if(yc(i,j,bi,bj) .ge.ylat .and. |
|
./pkg/ecco/cost_atlantic.F |
149 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
152 |
COST_ATLANTIC |
$ (yc(i,j,bi,bj) .ge.ylat2 .and. |
|
./pkg/ecco/cost_atlantic.F |
153 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat2+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
156 |
COST_ATLANTIC |
$ (yc(i,j,bi,bj) .ge.ylat3 .and. |
|
./pkg/ecco/cost_atlantic.F |
157 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat3+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
190 |
COST_ATLANTIC |
del_y=yc(i,j,bi,bj)-yc(i,j-1,bi,bj) |
|
./pkg/ecco/cost_atlantic.F |
191 |
COST_ATLANTIC |
if(yc(i,j,bi,bj) .ge.ylat .and. |
|
./pkg/ecco/cost_atlantic.F |
192 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
195 |
COST_ATLANTIC |
$ (yc(i,j,bi,bj) .ge.ylat2 .and. |
|
./pkg/ecco/cost_atlantic.F |
196 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat2+del_y.and. |
|
./pkg/ecco/cost_atlantic.F |
199 |
COST_ATLANTIC |
$ (yc(i,j,bi,bj) .ge.ylat3 .and. |
|
./pkg/ecco/cost_atlantic.F |
200 |
COST_ATLANTIC |
$ yc(i,j,bi,bj).lt.ylat3+del_y.and. |
|
./pkg/ecco/cost_trans_merid.F |
196 |
COST_TRANS_MERID |
del_y = yc(i,j,bi,bj)-yc(i,j-1,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
197 |
COST_TRANS_MERID |
if ( yc(i,j,bi,bj) .ge. ylat(isect) .and. |
|
./pkg/ecco/cost_trans_merid.F |
198 |
COST_TRANS_MERID |
$ yc(i,j,bi,bj) .lt. ylat(isect)+del_y .and. |
|
./pkg/ecco/cost_trans_zonal.F |
188 |
COST_TRANS_ZONAL |
$ yc(i,j,bi,bj) .ge. beglat(isect) .and. |
|
./pkg/ecco/cost_trans_zonal.F |
189 |
COST_TRANS_ZONAL |
$ yc(i,j,bi,bj) .le. endlat(isect) ) then |