| File |
Line number |
Procedure |
Code |
|
./model/src/ini_curvilinear_grid.F |
519 |
READSYMTILE_RS |
SUBROUTINE READSYMTILE_RS(fName,irec,array,bi,bj,buf,myThid) |
|
./model/src/ini_curvilinear_grid.F |
537 |
READSYMTILE_RS |
_RS array(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |
|
./model/src/ini_curvilinear_grid.F |
581 |
READSYMTILE_RS |
array(II,J,bi,bj)=buf(II+TBX) |
|
./model/src/ini_curvilinear_grid.F |
605 |
READSYMTILE_RS |
array(I,J,bi,bj)=buf(I,J) |
|
./verification/solid-body.cs-32x32x1/code/ini_curvilinear_grid.F |
212 |
READSYMTILE_RS |
SUBROUTINE READSYMTILE_RS(fileName,array,Xol,Yol,bi,bj,myThid) |
|
./verification/solid-body.cs-32x32x1/code/ini_curvilinear_grid.F |
225 |
READSYMTILE_RS |
_RS array(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |
|
./verification/solid-body.cs-32x32x1/code/ini_curvilinear_grid.F |
238 |
READSYMTILE_RS |
READ(36,REC=1) ((array(I,J,bi,bj),I=1,sNx+Xol),J=1,sNy+Yol) |
|
./verification/solid-body.cs-32x32x1/code/ini_curvilinear_grid.F |
243 |
READSYMTILE_RS |
& array(1-Olx,1-Oly,bi,bj)) |
|
./verification/solid-body.cs-32x32x1/code/ini_curvilinear_grid.F |
246 |
READSYMTILE_RS |
& array(1-Olx,1-Oly,bi,bj)) |
|
./verification/solid-body.cs-32x32x1/code/ini_curvilinear_grid.F |
253 |
READSYMTILE_RS |
array(I,1-J,bi,bj)=array(I,J+Yol,bi,bj) |
|
./verification/solid-body.cs-32x32x1/code/ini_curvilinear_grid.F |
258 |
READSYMTILE_RS |
array(I,sNy+J,bi,bj)=array(I,sNy+1-J+Yol,bi,bj) |
|
./verification/solid-body.cs-32x32x1/code/ini_curvilinear_grid.F |
264 |
READSYMTILE_RS |
array(1-I,J,bi,bj)=array(I+Xol,J,bi,bj) |
|
./verification/solid-body.cs-32x32x1/code/ini_curvilinear_grid.F |
270 |
READSYMTILE_RS |
array(sNx+I,J,bi,bj)=array(sNy+1-I+Xol,J,bi,bj) |
|
./verification/global_ocean.cubed32x32x30/code/ini_curvilinear_grid.F |
243 |
READSYMTILE_RS |
SUBROUTINE READSYMTILE_RS(fileName,array,Xol,Yol,bi,bj,myThid) |
|
./verification/global_ocean.cubed32x32x30/code/ini_curvilinear_grid.F |
256 |
READSYMTILE_RS |
_RS array(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |
|
./verification/global_ocean.cubed32x32x30/code/ini_curvilinear_grid.F |
269 |
READSYMTILE_RS |
READ(36,REC=1) ((array(I,J,bi,bj),I=1,sNx+Xol),J=1,sNy+Yol) |
|
./verification/global_ocean.cubed32x32x30/code/ini_curvilinear_grid.F |
274 |
READSYMTILE_RS |
& array(1-Olx,1-Oly,bi,bj)) |
|
./verification/global_ocean.cubed32x32x30/code/ini_curvilinear_grid.F |
277 |
READSYMTILE_RS |
& array(1-Olx,1-Oly,bi,bj)) |
|
./verification/global_ocean.cubed32x32x30/code/ini_curvilinear_grid.F |
284 |
READSYMTILE_RS |
array(I,1-J,bi,bj)=array(I,J+Yol,bi,bj) |
|
./verification/global_ocean.cubed32x32x30/code/ini_curvilinear_grid.F |
289 |
READSYMTILE_RS |
array(I,sNy+J,bi,bj)=array(I,sNy+1-J+Yol,bi,bj) |
|
./verification/global_ocean.cubed32x32x30/code/ini_curvilinear_grid.F |
295 |
READSYMTILE_RS |
array(1-I,J,bi,bj)=array(I+Xol,J,bi,bj) |
|
./verification/global_ocean.cubed32x32x30/code/ini_curvilinear_grid.F |
301 |
READSYMTILE_RS |
array(sNx+I,J,bi,bj)=array(sNy+1-I+Xol,J,bi,bj) |
|
./pkg/fizhi/fizhi_fillnegs.F |
199 |
TRACER_FILL |
array(1) = pq(ip1,j,L)*d2p(ip1,j)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
200 |
TRACER_FILL |
array(2) = pq(im1,j,L)*d2p(im1,j)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
203 |
TRACER_FILL |
array(3) = -undef |
|
./pkg/fizhi/fizhi_fillnegs.F |
205 |
TRACER_FILL |
array(3) = pq(i,j+1,L)*d2p(i,j+1)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
208 |
TRACER_FILL |
array(4) = -undef |
|
./pkg/fizhi/fizhi_fillnegs.F |
210 |
TRACER_FILL |
array(4) = pq(i,j-1,L)*d2p(i,j-1)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
213 |
TRACER_FILL |
array(5) = -undef |
|
./pkg/fizhi/fizhi_fillnegs.F |
215 |
TRACER_FILL |
array(5) = pq(i,j,L-1)*d2p(i,j)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
218 |
TRACER_FILL |
array(6) = -undef |
|
./pkg/fizhi/fizhi_fillnegs.F |
220 |
TRACER_FILL |
array(6) = pq(i,j,L+1)*d2p(i,j)*dp(i,j,L) |
|
./pkg/fizhi/fizhi_fillnegs.F |
223 |
TRACER_FILL |
call MAXVAL1 (array,6,-qval,qmax,imax) |
|
./pkg/fizhi/fizhi_fillnegs.F |
228 |
TRACER_FILL |
if( array(m).gt.0.0 ) sum = sum + array(m) |
|
./pkg/fizhi/fizhi_fillnegs.F |
232 |
TRACER_FILL |
if( array(1).gt.0 ) pq(ip1,j,L) = pq(ip1,j,L) * fact |
|
./pkg/fizhi/fizhi_fillnegs.F |
233 |
TRACER_FILL |
if( array(2).gt.0 ) pq(im1,j,L) = pq(im1,j,L) * fact |
|
./pkg/fizhi/fizhi_fillnegs.F |
234 |
TRACER_FILL |
if( array(3).gt.0 ) pq(i,j+1,L) = pq(i,j+1,L) * fact |
|
./pkg/fizhi/fizhi_fillnegs.F |
235 |
TRACER_FILL |
if( array(4).gt.0 ) pq(i,j-1,L) = pq(i,j-1,L) * fact |
|
./pkg/fizhi/fizhi_fillnegs.F |
236 |
TRACER_FILL |
if( array(5).gt.0 ) pq(i,j,L-1) = pq(i,j,L-1) * fact |
|
./pkg/fizhi/fizhi_fillnegs.F |
237 |
TRACER_FILL |
if( array(6).gt.0 ) pq(i,j,L+1) = pq(i,j,L+1) * fact |
|
./pkg/fizhi/fizhi_fillnegs.F |
91 |
TRACER_FILL |
_RL array(6) |