| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
102 |
SET_ALARM |
tags(ntags) = tag |
|
./pkg/fizhi/fizhi_clockstuff.F |
106 |
SET_ALARM |
iL = ILNBLNK(tag) |
|
./pkg/fizhi/fizhi_clockstuff.F |
109 |
SET_ALARM |
& ', with frequency: ', freq, ', and Tag: ',tag(1:iL) |
|
./pkg/fizhi/fizhi_clockstuff.F |
117 |
GET_ALARM |
subroutine GET_ALARM (tag,datein,timein,freq,tleft) |
|
./pkg/fizhi/fizhi_clockstuff.F |
137 |
GET_ALARM |
character*(*) tag |
|
./pkg/fizhi/fizhi_clockstuff.F |
149 |
GET_ALARM |
if (tag.eq.tags(n)) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
154 |
GET_ALARM |
if ( alarm(tag) ) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
166 |
GET_ALARM |
if( myid.eq.1 ) print *, 'Alarm has not been set for Tag: ',tag |
|
./pkg/fizhi/fizhi_clockstuff.F |
176 |
GET_ALARM |
LOGICAL FUNCTION ALARM (tag) |
|
./pkg/fizhi/fizhi_clockstuff.F |
178 |
GET_ALARM |
character*(*) tag |
|
./pkg/fizhi/fizhi_clockstuff.F |
189 |
GET_ALARM |
if( tags(n).eq.tag ) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
203 |
GET_ALARM |
LOGICAL FUNCTION ALARM2 (tag) |
|
./pkg/fizhi/fizhi_clockstuff.F |
205 |
GET_ALARM |
character*(*) tag |
|
./pkg/fizhi/fizhi_clockstuff.F |
216 |
GET_ALARM |
if( tags(n).eq.tag ) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
230 |
GET_ALARM |
LOGICAL FUNCTION ALARM2NEXT (tag,deltat) |
|
./pkg/fizhi/fizhi_clockstuff.F |
232 |
GET_ALARM |
character*(*) tag |
|
./pkg/fizhi/fizhi_clockstuff.F |
249 |
GET_ALARM |
if( tags(n).eq.tag ) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
31 |
SET_ALARM |
subroutine SET_ALARM (tag,datein,timein,freq) |
|
./pkg/fizhi/fizhi_clockstuff.F |
50 |
SET_ALARM |
character*(*) tag |
|
./pkg/fizhi/fizhi_clockstuff.F |
66 |
SET_ALARM |
tags(1) = tag |
|
./pkg/fizhi/fizhi_clockstuff.F |
70 |
SET_ALARM |
iL = ILNBLNK(tag) |
|
./pkg/fizhi/fizhi_clockstuff.F |
73 |
SET_ALARM |
& ', with frequency: ', freq, ', and Tag: ',tag(1:iL) |
|
./pkg/fizhi/fizhi_clockstuff.F |
78 |
SET_ALARM |
if(tag.eq.tags(n)) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
80 |
SET_ALARM |
print *, 'Warning! Alarm has already been set for Tag: ',tag |
|
./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 |
|
./pkg/compon_communic/comprecv_i4vec.F |
19 |
COMPRECV_I4VEC |
integer count,dtype,rank,tag,comm,ierr |
|
./pkg/compon_communic/comprecv_i4vec.F |
32 |
COMPRECV_I4VEC |
tag = generate_tag( 125, my_rank_in_global, dataname ) |
|
./pkg/compon_communic/comprecv_i4vec.F |
41 |
COMPRECV_I4VEC |
call MPI_RECV( ibuf, count, dtype, rank, tag, comm, stat, ierr ) |
|
./pkg/compon_communic/comprecv_r4.F |
15 |
COMPRECV_R4 |
integer count,dtype,rank,tag,comm,ierr |
|
./pkg/compon_communic/comprecv_r4.F |
30 |
COMPRECV_R4 |
tag=generate_tag(121,my_rank_in_global,dataname) |
|
./pkg/compon_communic/comprecv_r4.F |
39 |
COMPRECV_R4 |
call MPI_RECV(r4buf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
15 |
COMPRECV_R4TILES |
integer count,dtype,rank,tag,comm,ierr |
|
./pkg/compon_communic/comprecv_r4tiles.F |
36 |
COMPRECV_R4TILES |
tag=generate_tag(123,bibj,dataname) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
45 |
COMPRECV_R4TILES |
call MPI_RECV(r4buf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/comprecv_r8.F |
15 |
COMPRECV_R8 |
integer count,dtype,rank,tag,comm,ierr |
|
./pkg/compon_communic/comprecv_r8.F |
30 |
COMPRECV_R8 |
tag=generate_tag(121,my_rank_in_global,dataname) |
|
./pkg/compon_communic/comprecv_r8.F |
39 |
COMPRECV_R8 |
call MPI_RECV(r8buf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/comprecv_r8tiles.F |
15 |
COMPRECV_R8TILES |
integer count,dtype,rank,tag,comm,ierr |
|
./pkg/compon_communic/comprecv_r8tiles.F |
36 |
COMPRECV_R8TILES |
tag=generate_tag(123,bibj,dataname) |
|
./pkg/compon_communic/comprecv_r8tiles.F |
45 |
COMPRECV_R8TILES |
call MPI_RECV(r8buf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/compsend_i4vec.F |
19 |
COMPSEND_I4VEC |
integer count,datatype,dest,tag,comm,ierr |
|
./pkg/compon_communic/compsend_i4vec.F |
37 |
COMPSEND_I4VEC |
tag = generate_tag( 115, my_rank_in_global, dataname ) |
|
./pkg/compon_communic/compsend_i4vec.F |
46 |
COMPSEND_I4VEC |
call MPI_SEND( ibuf, count, datatype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/compsend_r4.F |
15 |
COMPSEND_R4 |
integer count,datatype,dest,tag,comm,ierr |
|
./pkg/compon_communic/compsend_r4.F |
46 |
COMPSEND_R4 |
tag=generate_tag(102,my_rank_in_global,dataname) |
|
./pkg/compon_communic/compsend_r4.F |
54 |
COMPSEND_R4 |
call MPI_SEND( r4buf, count, datatype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/compsend_r4tiles.F |
15 |
COMPSEND_R4TILES |
integer count,datatype,dest,tag,comm,ierr |
|
./pkg/compon_communic/compsend_r4tiles.F |
56 |
COMPSEND_R4TILES |
tag=generate_tag(103,bibj,dataname) |
|
./pkg/compon_communic/compsend_r4tiles.F |
65 |
COMPSEND_R4TILES |
call MPI_SEND( r4buf, count, datatype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/compsend_r8.F |
15 |
COMPSEND_R8 |
integer count,datatype,dest,tag,comm,ierr |
|
./pkg/compon_communic/compsend_r8.F |
46 |
COMPSEND_R8 |
tag=generate_tag(102,my_rank_in_global,dataname) |
|
./pkg/compon_communic/compsend_r8.F |
54 |
COMPSEND_R8 |
call MPI_SEND( r8buf, count, datatype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/compsend_r8tiles.F |
15 |
COMPSEND_R8TILES |
integer count,datatype,dest,tag,comm,ierr |
|
./pkg/compon_communic/compsend_r8tiles.F |
56 |
COMPSEND_R8TILES |
tag=generate_tag(103,bibj,dataname) |
|
./pkg/compon_communic/compsend_r8tiles.F |
65 |
COMPSEND_R8TILES |
call MPI_SEND( r8buf, count, datatype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/couprecv_i4vec.F |
22 |
COUPRECV_I4VEC |
integer count,dtype,rank,tag,comm,ierr |
|
./pkg/compon_communic/couprecv_i4vec.F |
52 |
COUPRECV_I4VEC |
tag = generate_tag( 115, n, dataname) |
|
./pkg/compon_communic/couprecv_i4vec.F |
61 |
COUPRECV_I4VEC |
call MPI_RECV(ibuf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/couprecv_r4.F |
16 |
COUPRECV_R4 |
integer count,dtype,rank,tag,comm,ierr |
|
./pkg/compon_communic/couprecv_r4.F |
48 |
COUPRECV_R4 |
tag=generate_tag(102,n,dataname) |
|
./pkg/compon_communic/couprecv_r4.F |
55 |
COUPRECV_R4 |
call MPI_RECV(r4buf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
16 |
COUPRECV_R4TILES |
integer count,dtype,rank,tag,comm,ierr |
|
./pkg/compon_communic/couprecv_r4tiles.F |
51 |
COUPRECV_R4TILES |
tag=generate_tag(103,bibj,dataname) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
60 |
COUPRECV_R4TILES |
call MPI_RECV(r4buf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/couprecv_r8.F |
16 |
COUPRECV_R8 |
integer count,dtype,rank,tag,comm,ierr |
|
./pkg/compon_communic/couprecv_r8.F |
48 |
COUPRECV_R8 |
tag=generate_tag(102,n,dataname) |
|
./pkg/compon_communic/couprecv_r8.F |
55 |
COUPRECV_R8 |
call MPI_RECV(r8buf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
16 |
COUPRECV_R8TILES |
integer count,dtype,rank,tag,comm,ierr |
|
./pkg/compon_communic/couprecv_r8tiles.F |
51 |
COUPRECV_R8TILES |
tag=generate_tag(103,bibj,dataname) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
60 |
COUPRECV_R8TILES |
call MPI_RECV(r8buf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/coupsend_i4vec.F |
22 |
COUPSEND_I4VEC |
integer count,dtype,dest,tag,comm,ierr |
|
./pkg/compon_communic/coupsend_i4vec.F |
57 |
COUPSEND_I4VEC |
tag = generate_tag( 125, n, dataname ) |
|
./pkg/compon_communic/coupsend_i4vec.F |
66 |
COUPSEND_I4VEC |
call MPI_SEND( ibuf, count, dtype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/coupsend_r4.F |
22 |
COUPSEND_R4 |
integer count,dtype,dest,tag,comm,ierr |
|
./pkg/compon_communic/coupsend_r4.F |
67 |
COUPSEND_R4 |
tag=generate_tag(121,n,dataname) |
|
./pkg/compon_communic/coupsend_r4.F |
75 |
COUPSEND_R4 |
call MPI_SEND( r4buf, count, dtype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
22 |
COUPSEND_R4TILES |
integer count,dtype,dest,tag,comm,ierr |
|
./pkg/compon_communic/coupsend_r4tiles.F |
70 |
COUPSEND_R4TILES |
tag=generate_tag(123,bibj,dataname) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
78 |
COUPSEND_R4TILES |
call MPI_SEND( r4buf, count, dtype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/coupsend_r8.F |
22 |
COUPSEND_R8 |
integer count,dtype,dest,tag,comm,ierr |
|
./pkg/compon_communic/coupsend_r8.F |
67 |
COUPSEND_R8 |
tag=generate_tag(121,n,dataname) |
|
./pkg/compon_communic/coupsend_r8.F |
75 |
COUPSEND_R8 |
call MPI_SEND( r8buf, count, dtype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
22 |
COUPSEND_R8TILES |
integer count,dtype,dest,tag,comm,ierr |
|
./pkg/compon_communic/coupsend_r8tiles.F |
70 |
COUPSEND_R8TILES |
tag=generate_tag(123,bibj,dataname) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
78 |
COUPSEND_R8TILES |
call MPI_SEND( r8buf, count, dtype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/mitcomponent_register.F |
25 |
MITCOMPONENT_REGISTER |
integer count,datatype,dest,tag,comm |
|
./pkg/compon_communic/mitcomponent_register.F |
47 |
MITCOMPONENT_REGISTER |
tag=generate_tag(115,my_rank_in_global,'Register') |
|
./pkg/compon_communic/mitcomponent_register.F |
50 |
MITCOMPONENT_REGISTER |
call MPI_SEND( ibuf, count, datatype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
28 |
MITCOMPONENT_TILE_REGISTER |
integer count, datatype, dest, tag, comm, ierr |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
64 |
MITCOMPONENT_TILE_REGISTER |
tag=generate_tag(112,my_rank_in_global,'Register Tiles') |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
67 |
MITCOMPONENT_TILE_REGISTER |
call MPI_SEND( ibuf, count, datatype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
90 |
MITCOMPONENT_TILE_REGISTER |
tag=generate_tag(113,n,'Register each tile') |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
93 |
MITCOMPONENT_TILE_REGISTER |
call MPI_SEND( ibuf, count, datatype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/mitcoupler_register.F |
27 |
MITCOUPLER_REGISTER |
integer compind,count,dtype,tag,rank |
|
./pkg/compon_communic/mitcoupler_register.F |
51 |
MITCOUPLER_REGISTER |
tag=generate_tag(115,n,'Register') |
|
./pkg/compon_communic/mitcoupler_register.F |
54 |
MITCOUPLER_REGISTER |
call MPI_RECV(ibuf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
27 |
MITCOUPLER_TILE_REGISTER |
integer compind,count,dtype,tag,rank |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
57 |
MITCOUPLER_TILE_REGISTER |
tag=generate_tag(112,n,'Register Tiles') |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
60 |
MITCOUPLER_TILE_REGISTER |
call MPI_RECV(ibuf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
83 |
MITCOUPLER_TILE_REGISTER |
tag=generate_tag(113,j,'Register each tile') |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
86 |
MITCOUPLER_TILE_REGISTER |
call MPI_RECV(ibuf, count, dtype, rank, tag, comm, stat, ierr) |