| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
798 |
TIC_TIME |
integer ny,nm,nd,ny00,modymd |
|
./verification/natl_box/results/comp_orig.F |
12 |
NO PROCEDURE |
integer nx, ny, nrec |
|
./verification/natl_box/results/comp_orig.F |
13 |
NO PROCEDURE |
parameter (nx=20, ny=16, nrec=4) |
|
./verification/natl_box/results/comp_orig.F |
17 |
NO PROCEDURE |
real*4 fld1(nx,ny), fld2(nx,ny), maxdiff |
|
./verification/natl_box/results/comp_orig.F |
21 |
NO PROCEDURE |
lBuffer1=nx*ny*4 |
|
./verification/natl_box/results/comp_orig.F |
22 |
NO PROCEDURE |
lBuffer2=nx*ny*4 |
|
./verification/natl_box/results/comp_orig.F |
30 |
NO PROCEDURE |
read(1,rec=irec) ((fld1(i,j),i=1,nx),j=1,ny) |
|
./verification/natl_box/results/comp_orig.F |
31 |
NO PROCEDURE |
read(2,rec=irec) ((fld2(i,j),i=1,nx),j=1,ny) |
|
./verification/natl_box/results/comp_orig.F |
33 |
NO PROCEDURE |
do j=1,ny |
|
./pkg/admtlm/admtlm_metric.F |
70 |
ADMTLM_METRIC |
myMetric = myMetric/(nx*ny*(4*Nr+1)) |
|
./pkg/cheapaml/gad_diff_2d_y.F |
61 |
GAD_DIFF_2D_Y |
if(jG.eq.ny.or.jG.eq.1)dfy(i,j)=0.d0 |
|
./pkg/chronos/chronos.F |
635 |
TIC_TIME |
integer ny,nm,nd,ny00,modymd |
|
./pkg/compon_communic/comprecv_r4.F |
20 |
COMPRECV_R4 |
integer i,j,ij,nx,ny |
|
./pkg/compon_communic/comprecv_r4.F |
56 |
COMPRECV_R4 |
ny=int(0.5+r4buf(4)) |
|
./pkg/compon_communic/comprecv_r4.F |
62 |
COMPRECV_R4 |
if (ny.ne.my_tile_ny(1)) stop 'comprecv_r4: bad ny' |
|
./pkg/compon_communic/comprecv_r4tiles.F |
20 |
COMPRECV_R4TILES |
integer i,j,ij,nx,ny,k,bibj,bi,bj |
|
./pkg/compon_communic/comprecv_r4tiles.F |
62 |
COMPRECV_R4TILES |
ny=int(0.5+r4buf(4)) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
68 |
COMPRECV_R4TILES |
if (ny.ne.my_tile_ny(bibj)) stop 'comprecv_r4tiles: bad ny' |
|
./pkg/compon_communic/comprecv_r8.F |
20 |
COMPRECV_R8 |
integer i,j,ij,nx,ny |
|
./pkg/compon_communic/comprecv_r8.F |
56 |
COMPRECV_R8 |
ny=int(0.5+r8buf(4)) |
|
./pkg/compon_communic/comprecv_r8.F |
62 |
COMPRECV_R8 |
if (ny.ne.my_tile_ny(1)) stop 'comprecv_r8: bad ny' |
|
./pkg/compon_communic/comprecv_r8tiles.F |
20 |
COMPRECV_R8TILES |
integer i,j,ij,nx,ny,k,bibj,bi,bj |
|
./pkg/compon_communic/comprecv_r8tiles.F |
62 |
COMPRECV_R8TILES |
ny=int(0.5+r8buf(4)) |
|
./pkg/compon_communic/comprecv_r8tiles.F |
68 |
COMPRECV_R8TILES |
if (ny.ne.my_tile_ny(bibj)) stop 'comprecv_r8tiles: bad ny' |
|
./pkg/compon_communic/mitcomponent_register.F |
15 |
MITCOMPONENT_REGISTER |
integer nx,ny,i0,j0 |
|
./pkg/compon_communic/mitcomponent_register.F |
33 |
MITCOMPONENT_REGISTER |
ibuf(3)=ny |
|
./pkg/compon_communic/mitcomponent_register.F |
39 |
MITCOMPONENT_REGISTER |
my_tile_ny(1)=ny |
|
./pkg/compon_communic/mitcomponent_register.F |
5 |
MITCOMPONENT_REGISTER |
subroutine MITCOMPONENT_REGISTER( nx, ny, i0, j0 ) |
|
./pkg/compon_communic/mitcoupler_register.F |
101 |
MITCOUPLER_REGISTER |
component_tile_ny(1,n,compind)=ny |
|
./pkg/compon_communic/mitcoupler_register.F |
30 |
MITCOUPLER_REGISTER |
integer numtiles,nx,ny,i0,j0 |
|
./pkg/compon_communic/mitcoupler_register.F |
66 |
MITCOUPLER_REGISTER |
ny=ibuf(3) |
|
./pkg/compon_communic/mitcoupler_register.F |
78 |
MITCOUPLER_REGISTER |
if (ny.lt.1) then |
|
./pkg/compon_communic/mitcoupler_register.F |
79 |
MITCOUPLER_REGISTER |
write(LogUnit,*) 'MITCOUPLER_register: ny = ',ny |
|
./pkg/compon_communic/mitcoupler_register.F |
94 |
MITCOUPLER_REGISTER |
if (j0+ny-1.gt.nny) then |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
101 |
MITCOUPLER_TILE_REGISTER |
component_tile_ny(j,n,compind) = ny |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
107 |
MITCOUPLER_TILE_REGISTER |
& ' ; Ni,Nj=', nx, ny, ' ; Io,Jo=', i0, j0 |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
112 |
MITCOUPLER_TILE_REGISTER |
if (ny.lt.1) then |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
124 |
MITCOUPLER_TILE_REGISTER |
if (j0+ny-1.gt.nny) then |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
31 |
MITCOUPLER_TILE_REGISTER |
integer nx, ny, i0, j0 |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
97 |
MITCOUPLER_TILE_REGISTER |
ny = ibuf(2) |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
259 |
CTRL_SET_PACK_XZ |
do irec = nrec_nl*ny+1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
278 |
CTRL_SET_UNPACK_XZ |
do irec = nrec_nl*ny+1, ncvarrecs(ivartype) |