| File |
Line number |
Procedure |
Code |
|
./pkg/ocn_compon_interf/cpl_register.F |
108 |
CPL_REGISTER |
iReg(1,j) = bi |
|
./pkg/ocn_compon_interf/cpl_register.F |
109 |
CPL_REGISTER |
iReg(2,j) = bj |
|
./pkg/ocn_compon_interf/cpl_register.F |
110 |
CPL_REGISTER |
iReg(3,j) = sNx |
|
./pkg/ocn_compon_interf/cpl_register.F |
111 |
CPL_REGISTER |
iReg(4,j) = sNy |
|
./pkg/ocn_compon_interf/cpl_register.F |
112 |
CPL_REGISTER |
iReg(5,j) = iG0 |
|
./pkg/ocn_compon_interf/cpl_register.F |
113 |
CPL_REGISTER |
iReg(6,j) = jG0 |
|
./pkg/ocn_compon_interf/cpl_register.F |
117 |
CPL_REGISTER |
CALL MITCOMPONENT_TILE_REGISTER( nTiles, iReg ) |
|
./pkg/ocn_compon_interf/cpl_register.F |
50 |
CPL_REGISTER |
INTEGER iReg(6,nSx*nSy) |
|
./pkg/atm_compon_interf/cpl_register.F |
108 |
CPL_REGISTER |
iReg(1,j) = bi |
|
./pkg/atm_compon_interf/cpl_register.F |
109 |
CPL_REGISTER |
iReg(2,j) = bj |
|
./pkg/atm_compon_interf/cpl_register.F |
110 |
CPL_REGISTER |
iReg(3,j) = sNx |
|
./pkg/atm_compon_interf/cpl_register.F |
111 |
CPL_REGISTER |
iReg(4,j) = sNy |
|
./pkg/atm_compon_interf/cpl_register.F |
112 |
CPL_REGISTER |
iReg(5,j) = iG0 |
|
./pkg/atm_compon_interf/cpl_register.F |
113 |
CPL_REGISTER |
iReg(6,j) = jG0 |
|
./pkg/atm_compon_interf/cpl_register.F |
117 |
CPL_REGISTER |
CALL MITCOMPONENT_TILE_REGISTER( nTiles, iReg ) |
|
./pkg/atm_compon_interf/cpl_register.F |
50 |
CPL_REGISTER |
INTEGER iReg(6,nSx*nSy) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
17 |
MITCOMPONENT_TILE_REGISTER |
integer iReg(6,num_tiles) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
44 |
MITCOMPONENT_TILE_REGISTER |
my_tile_bi(n) = iReg(1,n) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
45 |
MITCOMPONENT_TILE_REGISTER |
my_tile_bj(n) = iReg(2,n) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
46 |
MITCOMPONENT_TILE_REGISTER |
my_tile_nx(n) = iReg(3,n) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
47 |
MITCOMPONENT_TILE_REGISTER |
my_tile_ny(n) = iReg(4,n) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
48 |
MITCOMPONENT_TILE_REGISTER |
my_tile_i0(n) = iReg(5,n) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
49 |
MITCOMPONENT_TILE_REGISTER |
my_tile_j0(n) = iReg(6,n) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
52 |
MITCOMPONENT_TILE_REGISTER |
& ' ; bi,bj=', iReg(1,n), iReg(2,n), |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
53 |
MITCOMPONENT_TILE_REGISTER |
& ' ; Ni,Nj=', iReg(3,n), iReg(4,n), |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
54 |
MITCOMPONENT_TILE_REGISTER |
& ' ; Io,Jo=', iReg(5,n), iReg(6,n) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
5 |
MITCOMPONENT_TILE_REGISTER |
subroutine MITCOMPONENT_TILE_REGISTER( num_tiles, iReg ) |