| File |
Line number |
Procedure |
Code |
|
./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 |
226 |
READSYMTILE_RS |
INTEGER Xol,Yol,bi,bj,myThid |
|
./verification/solid-body.cs-32x32x1/code/ini_curvilinear_grid.F |
234 |
READSYMTILE_RS |
& RECL=((sNx+Xol)*(sNy+Yol))*WORDLENGTH*2 ) |
|
./verification/solid-body.cs-32x32x1/code/ini_curvilinear_grid.F |
236 |
READSYMTILE_RS |
& RECL=((sNx+Xol)*(sNy+Yol))*WORDLENGTH ) |
|
./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 |
252 |
READSYMTILE_RS |
DO I=1,sNx+Xol |
|
./verification/solid-body.cs-32x32x1/code/ini_curvilinear_grid.F |
257 |
READSYMTILE_RS |
DO I=1,sNx+Xol |
|
./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 |
269 |
READSYMTILE_RS |
DO I=1+Xol,Olx |
|
./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 |
257 |
READSYMTILE_RS |
INTEGER Xol,Yol,bi,bj,myThid |
|
./verification/global_ocean.cubed32x32x30/code/ini_curvilinear_grid.F |
265 |
READSYMTILE_RS |
& RECL=((sNx+Xol)*(sNy+Yol))*WORDLENGTH*2 ) |
|
./verification/global_ocean.cubed32x32x30/code/ini_curvilinear_grid.F |
267 |
READSYMTILE_RS |
& RECL=((sNx+Xol)*(sNy+Yol))*WORDLENGTH ) |
|
./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 |
283 |
READSYMTILE_RS |
DO I=1,sNx+Xol |
|
./verification/global_ocean.cubed32x32x30/code/ini_curvilinear_grid.F |
288 |
READSYMTILE_RS |
DO I=1,sNx+Xol |
|
./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 |
300 |
READSYMTILE_RS |
DO I=1+Xol,Olx |
|
./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) |