| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
103 |
GET_ALARM |
subroutine GET_ALARM (tag,datein,timein,freq,tleft) |
|
./pkg/fizhi/fizhi_clockstuff.F |
123 |
GET_ALARM |
character*(*) tag |
|
./pkg/fizhi/fizhi_clockstuff.F |
135 |
GET_ALARM |
if (tag.eq.tags(n)) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
140 |
GET_ALARM |
if ( alarm(tag) ) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
152 |
GET_ALARM |
if( myid.eq.1 ) print *, 'Alarm has not been set for Tag: ',tag |
|
./pkg/fizhi/fizhi_clockstuff.F |
162 |
GET_ALARM |
LOGICAL FUNCTION ALARM (tag) |
|
./pkg/fizhi/fizhi_clockstuff.F |
164 |
GET_ALARM |
character*(*) tag |
|
./pkg/fizhi/fizhi_clockstuff.F |
175 |
GET_ALARM |
if( tags(n).eq.tag ) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
189 |
GET_ALARM |
LOGICAL FUNCTION ALARM2 (tag) |
|
./pkg/fizhi/fizhi_clockstuff.F |
191 |
GET_ALARM |
character*(*) tag |
|
./pkg/fizhi/fizhi_clockstuff.F |
202 |
GET_ALARM |
if( tags(n).eq.tag ) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
216 |
GET_ALARM |
LOGICAL FUNCTION ALARM2NEXT (tag,deltat) |
|
./pkg/fizhi/fizhi_clockstuff.F |
218 |
GET_ALARM |
character*(*) tag |
|
./pkg/fizhi/fizhi_clockstuff.F |
235 |
GET_ALARM |
if( tags(n).eq.tag ) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
27 |
SET_ALARM |
subroutine SET_ALARM (tag,datein,timein,freq) |
|
./pkg/fizhi/fizhi_clockstuff.F |
43 |
SET_ALARM |
character*(*) tag |
|
./pkg/fizhi/fizhi_clockstuff.F |
56 |
SET_ALARM |
tags(1) = tag |
|
./pkg/fizhi/fizhi_clockstuff.F |
65 |
SET_ALARM |
if(tag.eq.tags(n)) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
67 |
SET_ALARM |
print *, 'Warning! Alarm has already been set for Tag: ',tag |
|
./pkg/fizhi/fizhi_clockstuff.F |
89 |
SET_ALARM |
tags(ntags) = 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_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_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_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_r4.F |
16 |
COUPSEND_R4 |
integer count,dtype,dest,tag,comm,ierr |
|
./pkg/compon_communic/coupsend_r4.F |
65 |
COUPSEND_R4 |
tag=generate_tag(121,n,dataname) |
|
./pkg/compon_communic/coupsend_r4.F |
73 |
COUPSEND_R4 |
call MPI_SEND( r4buf, count, dtype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
16 |
COUPSEND_R4TILES |
integer count,dtype,dest,tag,comm,ierr |
|
./pkg/compon_communic/coupsend_r4tiles.F |
68 |
COUPSEND_R4TILES |
tag=generate_tag(123,bibj,dataname) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
76 |
COUPSEND_R4TILES |
call MPI_SEND( r4buf, count, dtype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/coupsend_r8.F |
16 |
COUPSEND_R8 |
integer count,dtype,dest,tag,comm,ierr |
|
./pkg/compon_communic/coupsend_r8.F |
65 |
COUPSEND_R8 |
tag=generate_tag(121,n,dataname) |
|
./pkg/compon_communic/coupsend_r8.F |
73 |
COUPSEND_R8 |
call MPI_SEND( r8buf, count, dtype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
16 |
COUPSEND_R8TILES |
integer count,dtype,dest,tag,comm,ierr |
|
./pkg/compon_communic/coupsend_r8tiles.F |
68 |
COUPSEND_R8TILES |
tag=generate_tag(123,bibj,dataname) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
76 |
COUPSEND_R8TILES |
call MPI_SEND( r8buf, count, dtype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/mitcomponent_register.F |
24 |
MITCOMPONENT_REGISTER |
integer count,datatype,dest,tag,comm |
|
./pkg/compon_communic/mitcomponent_register.F |
45 |
MITCOMPONENT_REGISTER |
tag=generate_tag(115,my_rank_in_global,'Register') |
|
./pkg/compon_communic/mitcomponent_register.F |
48 |
MITCOMPONENT_REGISTER |
call MPI_SEND( ibuf, count, datatype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
26 |
MITCOMPONENT_TILE_REGISTER |
integer count,datatype,dest,tag,comm |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
66 |
MITCOMPONENT_TILE_REGISTER |
tag=generate_tag(112,my_rank_in_global,'Register Tiles') |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
69 |
MITCOMPONENT_TILE_REGISTER |
call MPI_SEND( ibuf, count, datatype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
92 |
MITCOMPONENT_TILE_REGISTER |
tag=generate_tag(113,bibj,'Register each tile') |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
95 |
MITCOMPONENT_TILE_REGISTER |
call MPI_SEND( ibuf, count, datatype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/mitcoupler_register.F |
25 |
MITCOUPLER_REGISTER |
integer compind,count,dtype,tag,rank |
|
./pkg/compon_communic/mitcoupler_register.F |
48 |
MITCOUPLER_REGISTER |
tag=generate_tag(115,n,'Register') |
|
./pkg/compon_communic/mitcoupler_register.F |
51 |
MITCOUPLER_REGISTER |
call MPI_RECV(ibuf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
25 |
MITCOUPLER_TILE_REGISTER |
integer compind,count,dtype,tag,rank |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
48 |
MITCOUPLER_TILE_REGISTER |
tag=generate_tag(112,n,'Register Tiles') |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
51 |
MITCOUPLER_TILE_REGISTER |
call MPI_RECV(ibuf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
72 |
MITCOUPLER_TILE_REGISTER |
tag=generate_tag(113,j,'Register each tile') |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
75 |
MITCOUPLER_TILE_REGISTER |
call MPI_RECV(ibuf, count, dtype, rank, tag, comm, stat, ierr) |