| File |
Line number |
Procedure |
Code |
|
./pkg/chronos/chronos.F |
100 |
GET_ALARM |
subroutine GET_ALARM (tag,date,time,freq,tleft) |
|
./pkg/chronos/chronos.F |
120 |
GET_ALARM |
character*(*) tag |
|
./pkg/chronos/chronos.F |
150 |
GET_ALARM |
if(tag.eq.tags(n)) then |
|
./pkg/chronos/chronos.F |
155 |
GET_ALARM |
if( alarm(tag) ) then |
|
./pkg/chronos/chronos.F |
167 |
GET_ALARM |
if( myid.eq.1 ) print *, 'Alarm has not been set for Tag: ',tag |
|
./pkg/chronos/chronos.F |
177 |
GET_ALARM |
function alarm (tag) |
|
./pkg/chronos/chronos.F |
179 |
GET_ALARM |
character*(*) tag |
|
./pkg/chronos/chronos.F |
191 |
GET_ALARM |
if( tags(n).eq.tag ) then |
|
./pkg/chronos/chronos.F |
22 |
SET_ALARM |
character*(*) tag |
|
./pkg/chronos/chronos.F |
53 |
SET_ALARM |
tags(1) = tag |
|
./pkg/chronos/chronos.F |
62 |
SET_ALARM |
if(tag.eq.tags(n)) then |
|
./pkg/chronos/chronos.F |
64 |
SET_ALARM |
print *, 'Warning! Alarm has already been set for Tag: ',tag |
|
./pkg/chronos/chronos.F |
6 |
SET_ALARM |
subroutine SET_ALARM (tag,date,time,freq) |
|
./pkg/chronos/chronos.F |
86 |
SET_ALARM |
tags(ntags) = tag |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
100 |
GET_ALARM |
subroutine GET_ALARM (tag,datein,timein,freq,tleft) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
120 |
GET_ALARM |
character*(*) tag |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
151 |
GET_ALARM |
if(tag.eq.tags(n)) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
156 |
GET_ALARM |
if( alarm(tag) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
168 |
GET_ALARM |
if( myid.eq.1 ) print *, 'Alarm has not been set for Tag: ',tag |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
178 |
GET_ALARM |
function alarm (tag) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
180 |
GET_ALARM |
character*(*) tag |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
192 |
GET_ALARM |
if( tags(n).eq.tag ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
206 |
GET_ALARM |
function alarm2 (tag) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
208 |
GET_ALARM |
character*(*) tag |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
21 |
SET_ALARM |
character*(*) tag |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
220 |
GET_ALARM |
if( tags(n).eq.tag ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
234 |
GET_ALARM |
function alarm2next (tag,deltat) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
236 |
GET_ALARM |
character*(*) tag |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
254 |
GET_ALARM |
if( tags(n).eq.tag ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
53 |
SET_ALARM |
tags(1) = tag |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
5 |
SET_ALARM |
subroutine SET_ALARM (tag,datein,timein,freq) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
62 |
SET_ALARM |
if(tag.eq.tags(n)) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
64 |
SET_ALARM |
print *, 'Warning! Alarm has already been set for Tag: ',tag |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
86 |
SET_ALARM |
tags(ntags) = tag |
|
./pkg/fizhi/fizhi_clockstuff.F |
100 |
GET_ALARM |
subroutine GET_ALARM (tag,datein,timein,freq,tleft) |
|
./pkg/fizhi/fizhi_clockstuff.F |
120 |
GET_ALARM |
character*(*) tag |
|
./pkg/fizhi/fizhi_clockstuff.F |
151 |
GET_ALARM |
if(tag.eq.tags(n)) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
156 |
GET_ALARM |
if( alarm(tag) ) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
168 |
GET_ALARM |
if( myid.eq.1 ) print *, 'Alarm has not been set for Tag: ',tag |
|
./pkg/fizhi/fizhi_clockstuff.F |
178 |
GET_ALARM |
function alarm (tag) |
|
./pkg/fizhi/fizhi_clockstuff.F |
180 |
GET_ALARM |
character*(*) tag |
|
./pkg/fizhi/fizhi_clockstuff.F |
192 |
GET_ALARM |
if( tags(n).eq.tag ) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
206 |
GET_ALARM |
function alarm2 (tag) |
|
./pkg/fizhi/fizhi_clockstuff.F |
208 |
GET_ALARM |
character*(*) tag |
|
./pkg/fizhi/fizhi_clockstuff.F |
21 |
SET_ALARM |
character*(*) tag |
|
./pkg/fizhi/fizhi_clockstuff.F |
220 |
GET_ALARM |
if( tags(n).eq.tag ) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
234 |
GET_ALARM |
function alarm2next (tag,deltat) |
|
./pkg/fizhi/fizhi_clockstuff.F |
236 |
GET_ALARM |
character*(*) tag |
|
./pkg/fizhi/fizhi_clockstuff.F |
254 |
GET_ALARM |
if( tags(n).eq.tag ) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
53 |
SET_ALARM |
tags(1) = tag |
|
./pkg/fizhi/fizhi_clockstuff.F |
5 |
SET_ALARM |
subroutine SET_ALARM (tag,datein,timein,freq) |
|
./pkg/fizhi/fizhi_clockstuff.F |
62 |
SET_ALARM |
if(tag.eq.tags(n)) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
64 |
SET_ALARM |
print *, 'Warning! Alarm has already been set for Tag: ',tag |
|
./pkg/fizhi/fizhi_clockstuff.F |
86 |
SET_ALARM |
tags(ntags) = tag |
|
./pkg/compon_communic/coupsend_r4tiles.F |
13 |
COUPSEND_R4TILES |
integer count,dtype,dest,tag,comm,ierr |
|
./pkg/compon_communic/coupsend_r4tiles.F |
65 |
COUPSEND_R4TILES |
tag=generate_tag(123,bibj,dataname) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
73 |
COUPSEND_R4TILES |
call MPI_SEND( r4buf, count, dtype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/comprecv_r8tiles.F |
12 |
COMPRECV_R8TILES |
integer count,dtype,rank,tag,comm,ierr |
|
./pkg/compon_communic/comprecv_r8tiles.F |
33 |
COMPRECV_R8TILES |
tag=generate_tag(123,bibj,dataname) |
|
./pkg/compon_communic/comprecv_r8tiles.F |
42 |
COMPRECV_R8TILES |
call MPI_RECV(r8buf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/couprecv_r8.F |
13 |
COUPRECV_R8 |
integer count,dtype,rank,tag,comm,ierr |
|
./pkg/compon_communic/couprecv_r8.F |
45 |
COUPRECV_R8 |
tag=generate_tag(102,n,dataname) |
|
./pkg/compon_communic/couprecv_r8.F |
52 |
COUPRECV_R8 |
call MPI_RECV(r8buf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
13 |
COUPSEND_R8TILES |
integer count,dtype,dest,tag,comm,ierr |
|
./pkg/compon_communic/coupsend_r8tiles.F |
65 |
COUPSEND_R8TILES |
tag=generate_tag(123,bibj,dataname) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
73 |
COUPSEND_R8TILES |
call MPI_SEND( r8buf, count, dtype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/comprecv_r8.F |
12 |
COMPRECV_R8 |
integer count,dtype,rank,tag,comm,ierr |
|
./pkg/compon_communic/comprecv_r8.F |
27 |
COMPRECV_R8 |
tag=generate_tag(121,my_rank_in_global,dataname) |
|
./pkg/compon_communic/comprecv_r8.F |
36 |
COMPRECV_R8 |
call MPI_RECV(r8buf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/mitcomponent_register.F |
21 |
MITCOMPONENT_REGISTER |
integer count,datatype,dest,tag,comm |
|
./pkg/compon_communic/mitcomponent_register.F |
42 |
MITCOMPONENT_REGISTER |
tag=generate_tag(115,my_rank_in_global,'Register') |
|
./pkg/compon_communic/mitcomponent_register.F |
45 |
MITCOMPONENT_REGISTER |
call MPI_SEND( ibuf, count, datatype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/compsend_r4.F |
12 |
COMPSEND_R4 |
integer count,datatype,dest,tag,comm,ierr |
|
./pkg/compon_communic/compsend_r4.F |
43 |
COMPSEND_R4 |
tag=generate_tag(102,my_rank_in_global,dataname) |
|
./pkg/compon_communic/compsend_r4.F |
51 |
COMPSEND_R4 |
call MPI_SEND( r4buf, count, datatype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/compsend_r8tiles.F |
12 |
COMPSEND_R8TILES |
integer count,datatype,dest,tag,comm,ierr |
|
./pkg/compon_communic/compsend_r8tiles.F |
53 |
COMPSEND_R8TILES |
tag=generate_tag(103,bibj,dataname) |
|
./pkg/compon_communic/compsend_r8tiles.F |
62 |
COMPSEND_R8TILES |
call MPI_SEND( r8buf, count, datatype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
13 |
COUPRECV_R8TILES |
integer count,dtype,rank,tag,comm,ierr |
|
./pkg/compon_communic/couprecv_r8tiles.F |
48 |
COUPRECV_R8TILES |
tag=generate_tag(103,bibj,dataname) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
57 |
COUPRECV_R8TILES |
call MPI_RECV(r8buf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/comprecv_r4.F |
12 |
COMPRECV_R4 |
integer count,dtype,rank,tag,comm,ierr |
|
./pkg/compon_communic/comprecv_r4.F |
27 |
COMPRECV_R4 |
tag=generate_tag(121,my_rank_in_global,dataname) |
|
./pkg/compon_communic/comprecv_r4.F |
36 |
COMPRECV_R4 |
call MPI_RECV(r4buf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/coupsend_r4.F |
13 |
COUPSEND_R4 |
integer count,dtype,dest,tag,comm,ierr |
|
./pkg/compon_communic/coupsend_r4.F |
62 |
COUPSEND_R4 |
tag=generate_tag(121,n,dataname) |
|
./pkg/compon_communic/coupsend_r4.F |
70 |
COUPSEND_R4 |
call MPI_SEND( r4buf, count, dtype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/compsend_r4tiles.F |
12 |
COMPSEND_R4TILES |
integer count,datatype,dest,tag,comm,ierr |
|
./pkg/compon_communic/compsend_r4tiles.F |
53 |
COMPSEND_R4TILES |
tag=generate_tag(103,bibj,dataname) |
|
./pkg/compon_communic/compsend_r4tiles.F |
62 |
COMPSEND_R4TILES |
call MPI_SEND( r4buf, count, datatype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
22 |
MITCOUPLER_TILE_REGISTER |
integer compind,count,dtype,tag,rank |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
45 |
MITCOUPLER_TILE_REGISTER |
tag=generate_tag(112,n,'Register Tiles') |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
48 |
MITCOUPLER_TILE_REGISTER |
call MPI_RECV(ibuf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
69 |
MITCOUPLER_TILE_REGISTER |
tag=generate_tag(113,j,'Register each tile') |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
72 |
MITCOUPLER_TILE_REGISTER |
call MPI_RECV(ibuf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/compsend_r8.F |
12 |
COMPSEND_R8 |
integer count,datatype,dest,tag,comm,ierr |
|
./pkg/compon_communic/compsend_r8.F |
43 |
COMPSEND_R8 |
tag=generate_tag(102,my_rank_in_global,dataname) |
|
./pkg/compon_communic/compsend_r8.F |
51 |
COMPSEND_R8 |
call MPI_SEND( r8buf, count, datatype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
12 |
COMPRECV_R4TILES |
integer count,dtype,rank,tag,comm,ierr |
|
./pkg/compon_communic/comprecv_r4tiles.F |
33 |
COMPRECV_R4TILES |
tag=generate_tag(123,bibj,dataname) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
42 |
COMPRECV_R4TILES |
call MPI_RECV(r4buf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
13 |
COUPRECV_R4TILES |
integer count,dtype,rank,tag,comm,ierr |
|
./pkg/compon_communic/couprecv_r4tiles.F |
48 |
COUPRECV_R4TILES |
tag=generate_tag(103,bibj,dataname) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
57 |
COUPRECV_R4TILES |
call MPI_RECV(r4buf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/couprecv_r4.F |
13 |
COUPRECV_R4 |
integer count,dtype,rank,tag,comm,ierr |
|
./pkg/compon_communic/couprecv_r4.F |
45 |
COUPRECV_R4 |
tag=generate_tag(102,n,dataname) |
|
./pkg/compon_communic/couprecv_r4.F |
52 |
COUPRECV_R4 |
call MPI_RECV(r4buf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/coupsend_r8.F |
13 |
COUPSEND_R8 |
integer count,dtype,dest,tag,comm,ierr |
|
./pkg/compon_communic/coupsend_r8.F |
62 |
COUPSEND_R8 |
tag=generate_tag(121,n,dataname) |
|
./pkg/compon_communic/coupsend_r8.F |
70 |
COUPSEND_R8 |
call MPI_SEND( r8buf, count, dtype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/mitcoupler_register.F |
22 |
MITCOUPLER_REGISTER |
integer compind,count,dtype,tag,rank |
|
./pkg/compon_communic/mitcoupler_register.F |
45 |
MITCOUPLER_REGISTER |
tag=generate_tag(115,n,'Register') |
|
./pkg/compon_communic/mitcoupler_register.F |
48 |
MITCOUPLER_REGISTER |
call MPI_RECV(ibuf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
23 |
MITCOMPONENT_TILE_REGISTER |
integer count,datatype,dest,tag,comm |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
63 |
MITCOMPONENT_TILE_REGISTER |
tag=generate_tag(112,my_rank_in_global,'Register Tiles') |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
66 |
MITCOMPONENT_TILE_REGISTER |
call MPI_SEND( ibuf, count, datatype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
89 |
MITCOMPONENT_TILE_REGISTER |
tag=generate_tag(113,bibj,'Register each tile') |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
92 |
MITCOMPONENT_TILE_REGISTER |
call MPI_SEND( ibuf, count, datatype, dest, tag, comm, ierr ) |