| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
784 |
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/cheapaml_fields_load.F |
117 |
CHEAPAML_FIELDS_LOAD |
local=225.d0+dsolms*xinxx-float((jg-1))/float((ny-1))* |
|
./pkg/cheapaml/cheapaml_fields_load.F |
162 |
CHEAPAML_FIELDS_LOAD |
local=-5.d0*cos(2.d0*pi*float(jg-1)/(float(ny-1))) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
302 |
CHEAPAML_FIELDS_LOAD |
local=225.d0-float((jg-1))/float((ny-1))*37.5d0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
360 |
CHEAPAML_FIELDS_LOAD |
local=-5.d0*cos(2.d0*pi*float(jg-1)/(float(ny-1))) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
56 |
CHEAPAML_INIT_VARIA |
localt=25.d0-float((jg-1))/float((ny-1))*10.d0 |
|
./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 |
31 |
MITCOMPONENT_REGISTER |
ibuf(3)=ny |
|
./pkg/compon_communic/mitcomponent_register.F |
37 |
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/mitcomponent_register.F |
9 |
MITCOMPONENT_REGISTER |
integer nx,ny,i0,j0 |
|
./pkg/compon_communic/mitcoupler_register.F |
28 |
MITCOUPLER_REGISTER |
integer j,numtiles,nx,ny,i0,j0 |
|
./pkg/compon_communic/mitcoupler_register.F |
63 |
MITCOUPLER_REGISTER |
ny=ibuf(3) |
|
./pkg/compon_communic/mitcoupler_register.F |
75 |
MITCOUPLER_REGISTER |
if (ny.lt.1) then |
|
./pkg/compon_communic/mitcoupler_register.F |
76 |
MITCOUPLER_REGISTER |
write(LogUnit,*) 'MITCOUPLER_register: ny = ',ny |
|
./pkg/compon_communic/mitcoupler_register.F |
91 |
MITCOUPLER_REGISTER |
if (j0+ny-1.gt.nny) then |
|
./pkg/compon_communic/mitcoupler_register.F |
98 |
MITCOUPLER_REGISTER |
component_tile_ny(1,n,compind)=ny |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
301 |
CTRL_SET_PACK_XZ |
do irec = nrec_nl*ny+1, ncvarrecs(ivartype) |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
299 |
CTRL_SET_UNPACK_XZ |
do irec = nrec_nl*ny+1, ncvarrecs(ivartype) |
|
./pkg/ecco/cost_ssh_mean.F |
149 |
COST_SSH_MEAN |
joffset = (latshc - ny)/2 |