| File |
Line number |
Procedure |
Code |
|
./pkg/bulk_force/bulkf_forcing.F |
100 |
BULKF_FORCING |
& cloud(i,j,bi,bj), tmp, |
|
./pkg/bulk_force/bulkf_forcing.F |
66 |
BULKF_FORCING |
_RL tmp |
|
./pkg/bulk_force/bulkf_forcing.F |
82 |
BULKF_FORCING |
tmp=Tsrf(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
89 |
BULKF_FORCING |
tmp=theta(i,j,1,bi,bj) |
|
./pkg/bulk_force/bulkf_forcing.F |
93 |
BULKF_FORCING |
tmp=theta(i,j,1,bi,bj) |
|
./pkg/autodiff/global_max_ad.F |
149 |
GLOBAL_ADMAX_R8 |
Real*8 tmp |
|
./pkg/autodiff/global_max_ad.F |
164 |
GLOBAL_ADMAX_R8 |
tmp = phiGMRL(1,1) |
|
./pkg/autodiff/global_max_ad.F |
166 |
GLOBAL_ADMAX_R8 |
tmp = MAX(tmp,phiGMRL(1,I)) |
|
./pkg/autodiff/global_max_ad.F |
168 |
GLOBAL_ADMAX_R8 |
maxPhi = tmp |
|
./pkg/autodiff/global_max_ad.F |
173 |
GLOBAL_ADMAX_R8 |
CALL MPI_ALLREDUCE(tmp,maxPhi,1,MPI_DOUBLE_PRECISION,MPI_MAX, |
|
./pkg/autodiff/global_max_ad.F |
62 |
GLOBAL_ADMAX_R4 |
Real*4 tmp |
|
./pkg/autodiff/global_max_ad.F |
77 |
GLOBAL_ADMAX_R4 |
tmp = phiGMRS(1,1) |
|
./pkg/autodiff/global_max_ad.F |
79 |
GLOBAL_ADMAX_R4 |
tmp = MAX(tmp,phiGMRS(1,I)) |
|
./pkg/autodiff/global_max_ad.F |
81 |
GLOBAL_ADMAX_R4 |
maxPhi = tmp |
|
./pkg/autodiff/global_max_ad.F |
86 |
GLOBAL_ADMAX_R4 |
CALL MPI_ALLREDUCE(tmp,maxPhi,1,MPI_REAL,MPI_MAX, |
|
./pkg/autodiff/global_sum_ad.F |
109 |
GLOBAL_ADSUM_R8 |
Real*8 tmp |
|
./pkg/autodiff/global_sum_ad.F |
120 |
GLOBAL_ADSUM_R8 |
tmp = adsumPhi |
|
./pkg/autodiff/global_sum_ad.F |
126 |
GLOBAL_ADSUM_R8 |
CALL MPI_BCAST(tmp, 1, MPI_DOUBLE_PRECISION, myThid |
|
./pkg/autodiff/global_sum_ad.F |
135 |
GLOBAL_ADSUM_R8 |
adphi(1,I) = tmp |
|
./pkg/autodiff/global_sum_ad.F |
38 |
GLOBAL_ADSUM_R4 |
Real*4 tmp |
|
./pkg/autodiff/global_sum_ad.F |
49 |
GLOBAL_ADSUM_R4 |
tmp = adsumPhi |
|
./pkg/autodiff/global_sum_ad.F |
55 |
GLOBAL_ADSUM_R4 |
CALL MPI_BCAST(tmp, 1, MPI_REAL, myThid |
|
./pkg/autodiff/global_sum_ad.F |
64 |
GLOBAL_ADSUM_R4 |
adphi(1,I) = tmp |
|
./pkg/flt/flt_init.F |
190 |
FLT_INIT |
& imax,tmp,bi,bj,1,mythid) |
|
./pkg/flt/flt_init.F |
191 |
FLT_INIT |
npart_read = tmp(1) |
|
./pkg/flt/flt_init.F |
192 |
FLT_INIT |
max_npart = tmp(6) |
|
./pkg/flt/flt_init.F |
203 |
FLT_INIT |
& imax,tmp,bi,bj,ip+1,mythid) |
|
./pkg/flt/flt_init.F |
225 |
FLT_INIT |
if (tmp(3) .ge. xlo .and. tmp(3) .le. xhi .and. |
|
./pkg/flt/flt_init.F |
226 |
FLT_INIT |
& tmp(4) .ge. ylo .and. tmp(4) .le. yhi) then |
|
./pkg/flt/flt_init.F |
232 |
FLT_INIT |
npart(npart_tile(bi,bj),bi,bj) = tmp(1) |
|
./pkg/flt/flt_init.F |
233 |
FLT_INIT |
tstart(npart_tile(bi,bj),bi,bj) = tmp(2) |
|
./pkg/flt/flt_init.F |
234 |
FLT_INIT |
xpart(npart_tile(bi,bj),bi,bj) = tmp(3) |
|
./pkg/flt/flt_init.F |
235 |
FLT_INIT |
ypart(npart_tile(bi,bj),bi,bj) = tmp(4) |
|
./pkg/flt/flt_init.F |
236 |
FLT_INIT |
kpart(npart_tile(bi,bj),bi,bj) = tmp(5) |
|
./pkg/flt/flt_init.F |
237 |
FLT_INIT |
kfloat(npart_tile(bi,bj),bi,bj) = tmp(6) |
|
./pkg/flt/flt_init.F |
238 |
FLT_INIT |
iup(npart_tile(bi,bj),bi,bj) = tmp(7) |
|
./pkg/flt/flt_init.F |
239 |
FLT_INIT |
itop(npart_tile(bi,bj),bi,bj) = tmp(8) |
|
./pkg/flt/flt_init.F |
240 |
FLT_INIT |
tend(npart_tile(bi,bj),bi,bj) = tmp(9) |
|
./pkg/flt/flt_init.F |
45 |
FLT_INIT |
_RL tmp(imax) |
|
./pkg/flt/flt_restart.F |
41 |
FLT_RESTART |
_RL tmp(imax) |
|
./pkg/flt/flt_restart.F |
53 |
FLT_RESTART |
tmp(1) = DBLE(npart_tile(bi,bj)) |
|
./pkg/flt/flt_restart.F |
54 |
FLT_RESTART |
tmp(2) = DBLE(myCurrentIter) |
|
./pkg/flt/flt_restart.F |
55 |
FLT_RESTART |
tmp(3) = myCurrentTime |
|
./pkg/flt/flt_restart.F |
56 |
FLT_RESTART |
tmp(4) = 0. |
|
./pkg/flt/flt_restart.F |
57 |
FLT_RESTART |
tmp(5) = 0. |
|
./pkg/flt/flt_restart.F |
58 |
FLT_RESTART |
tmp(6) = max_npart |
|
./pkg/flt/flt_restart.F |
59 |
FLT_RESTART |
tmp(7) = 0. |
|
./pkg/flt/flt_restart.F |
60 |
FLT_RESTART |
call MDSWRITEVECTOR(flt_file,64,.false.,'RL',imax,tmp, |
|
./pkg/flt/flt_restart.F |
65 |
FLT_RESTART |
tmp(1) = npart(ip,bi,bj) |
|
./pkg/flt/flt_restart.F |
66 |
FLT_RESTART |
tmp(2) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_restart.F |
67 |
FLT_RESTART |
tmp(3) = xpart(ip,bi,bj) |
|
./pkg/flt/flt_restart.F |
68 |
FLT_RESTART |
tmp(4) = ypart(ip,bi,bj) |
|
./pkg/flt/flt_restart.F |
69 |
FLT_RESTART |
tmp(5) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_restart.F |
70 |
FLT_RESTART |
tmp(6) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_restart.F |
71 |
FLT_RESTART |
tmp(7) = iup(ip,bi,bj) |
|
./pkg/flt/flt_restart.F |
72 |
FLT_RESTART |
tmp(8) = itop(ip,bi,bj) |
|
./pkg/flt/flt_restart.F |
73 |
FLT_RESTART |
tmp(9) = tend(ip,bi,bj) |
|
./pkg/flt/flt_restart.F |
79 |
FLT_RESTART |
call MDSWRITEVECTOR(flt_file,64,.false.,'RL',imax,tmp, |
|
./pkg/flt/flt_up.F |
103 |
FLT_UP |
tmp(3) = myCurrentTime |
|
./pkg/flt/flt_up.F |
105 |
FLT_UP |
tmp(4) = flt_int_prof |
|
./pkg/flt/flt_up.F |
107 |
FLT_UP |
tmp(5) = npart_times + 1. |
|
./pkg/flt/flt_up.F |
109 |
FLT_UP |
tmp(6) = max_npart |
|
./pkg/flt/flt_up.F |
111 |
FLT_UP |
tmp(ip) = 0. |
|
./pkg/flt/flt_up.F |
113 |
FLT_UP |
call MDSWRITEVECTOR(fn,64,.false.,'RL',imax,tmp,bi,bj,1, |
|
./pkg/flt/flt_up.F |
155 |
FLT_UP |
tmp(1) = npart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
156 |
FLT_UP |
tmp(2) = myCurrentTime |
|
./pkg/flt/flt_up.F |
157 |
FLT_UP |
tmp(3) = xpart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
158 |
FLT_UP |
tmp(4) = ypart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
159 |
FLT_UP |
tmp(5) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
172 |
FLT_UP |
tmp(6) = pp |
|
./pkg/flt/flt_up.F |
179 |
FLT_UP |
tmp(6+k) = uu |
|
./pkg/flt/flt_up.F |
180 |
FLT_UP |
tmp(6+1*Nr+k) = vv |
|
./pkg/flt/flt_up.F |
181 |
FLT_UP |
tmp(6+2*Nr+k) = tt |
|
./pkg/flt/flt_up.F |
182 |
FLT_UP |
tmp(6+3*Nr+k) = ss |
|
./pkg/flt/flt_up.F |
186 |
FLT_UP |
tmp(6) = flt_nan |
|
./pkg/flt/flt_up.F |
189 |
FLT_UP |
tmp(6+k) = flt_nan |
|
./pkg/flt/flt_up.F |
190 |
FLT_UP |
tmp(6+1*Nr+k) = flt_nan |
|
./pkg/flt/flt_up.F |
191 |
FLT_UP |
tmp(6+2*Nr+k) = flt_nan |
|
./pkg/flt/flt_up.F |
192 |
FLT_UP |
tmp(6+3*Nr+k) = flt_nan |
|
./pkg/flt/flt_up.F |
200 |
FLT_UP |
call MDSWRITEVECTOR(fn,64,.false.,'RL',imax,tmp,bi,bj, |
|
./pkg/flt/flt_up.F |
52 |
FLT_UP |
_RL tmp(imax) |
|
./pkg/flt/flt_up.F |
85 |
FLT_UP |
& imax,tmp,bi,bj,1,mythid) |
|
./pkg/flt/flt_up.F |
86 |
FLT_UP |
npart_read = tmp(1) |
|
./pkg/flt/flt_up.F |
87 |
FLT_UP |
npart_times = tmp(5) |
|
./pkg/flt/flt_up.F |
91 |
FLT_UP |
tmp(2) = myCurrentTime |
|
./pkg/flt/flt_up.F |
99 |
FLT_UP |
tmp(1) = DBLE(npart_tile(bi,bj))+npart_read |
|
./pkg/flt/flt_traj.F |
102 |
FLT_TRAJ |
tmp(3) = myCurrentTime |
|
./pkg/flt/flt_traj.F |
104 |
FLT_TRAJ |
tmp(4) = flt_int_traj |
|
./pkg/flt/flt_traj.F |
106 |
FLT_TRAJ |
tmp(5) = npart_times + 1. |
|
./pkg/flt/flt_traj.F |
108 |
FLT_TRAJ |
tmp(6) = max_npart |
|
./pkg/flt/flt_traj.F |
110 |
FLT_TRAJ |
tmp(ip) = 0. |
|
./pkg/flt/flt_traj.F |
113 |
FLT_TRAJ |
call MDSWRITEVECTOR(fn,64,.false.,'RL',imax,tmp,bi,bj,1, |
|
./pkg/flt/flt_traj.F |
121 |
FLT_TRAJ |
tmp(1) = npart(ip,bi,bj) |
|
./pkg/flt/flt_traj.F |
122 |
FLT_TRAJ |
tmp(2) = myCurrentTime |
|
./pkg/flt/flt_traj.F |
123 |
FLT_TRAJ |
tmp(3) = xpart(ip,bi,bj) |
|
./pkg/flt/flt_traj.F |
124 |
FLT_TRAJ |
tmp(4) = ypart(ip,bi,bj) |
|
./pkg/flt/flt_traj.F |
125 |
FLT_TRAJ |
tmp(5) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_traj.F |
143 |
FLT_TRAJ |
tmp(6) = uu |
|
./pkg/flt/flt_traj.F |
144 |
FLT_TRAJ |
tmp(7) = vv |
|
./pkg/flt/flt_traj.F |
145 |
FLT_TRAJ |
tmp(8) = tt |
|
./pkg/flt/flt_traj.F |
146 |
FLT_TRAJ |
tmp(9) = ss |
|
./pkg/flt/flt_traj.F |
147 |
FLT_TRAJ |
tmp(10) = pp |
|
./pkg/flt/flt_traj.F |
149 |
FLT_TRAJ |
tmp(6) = flt_nan |
|
./pkg/flt/flt_traj.F |
150 |
FLT_TRAJ |
tmp(7) = flt_nan |
|
./pkg/flt/flt_traj.F |
151 |
FLT_TRAJ |
tmp(8) = flt_nan |
|
./pkg/flt/flt_traj.F |
152 |
FLT_TRAJ |
tmp(9) = flt_nan |
|
./pkg/flt/flt_traj.F |
160 |
FLT_TRAJ |
call MDSWRITEVECTOR(fn,64,.false.,'RL',imax,tmp,bi,bj, |
|
./pkg/flt/flt_traj.F |
51 |
FLT_TRAJ |
_RL tmp(imax) |
|
./pkg/flt/flt_traj.F |
84 |
FLT_TRAJ |
& imax,tmp,bi,bj,1,mythid) |
|
./pkg/flt/flt_traj.F |
85 |
FLT_TRAJ |
npart_read = tmp(1) |
|
./pkg/flt/flt_traj.F |
86 |
FLT_TRAJ |
npart_times = tmp(5) |
|
./pkg/flt/flt_traj.F |
90 |
FLT_TRAJ |
tmp(2) = myCurrentTime |
|
./pkg/flt/flt_traj.F |
98 |
FLT_TRAJ |
tmp(1) = DBLE(npart_tile(bi,bj))+npart_read |
|
./eesupp/src/global_sum.F |
142 |
GLOBAL_SUM_R8 |
Real*8 tmp |
|
./eesupp/src/global_sum.F |
162 |
GLOBAL_SUM_R8 |
tmp = 0. _d 0 |
|
./eesupp/src/global_sum.F |
164 |
GLOBAL_SUM_R8 |
tmp = tmp + phiGSRL(1,I) |
|
./eesupp/src/global_sum.F |
166 |
GLOBAL_SUM_R8 |
sumPhi = tmp |
|
./eesupp/src/global_sum.F |
171 |
GLOBAL_SUM_R8 |
CALL MPI_ALLREDUCE(tmp,sumPhi,1,MPI_DOUBLE_PRECISION,MPI_SUM, |
|
./eesupp/src/global_sum.F |
238 |
GLOBAL_SUM_INT |
INTEGER tmp |
|
./eesupp/src/global_sum.F |
253 |
GLOBAL_SUM_INT |
tmp = 0. _d 0 |
|
./eesupp/src/global_sum.F |
255 |
GLOBAL_SUM_INT |
tmp = tmp + phiGSI(1,I) |
|
./eesupp/src/global_sum.F |
257 |
GLOBAL_SUM_INT |
sumPhi = tmp |
|
./eesupp/src/global_sum.F |
262 |
GLOBAL_SUM_INT |
CALL MPI_ALLREDUCE(tmp,sumPhi,1,MPI_INTEGER,MPI_SUM, |
|
./eesupp/src/global_sum.F |
54 |
GLOBAL_SUM_R4 |
Real*4 tmp |
|
./eesupp/src/global_sum.F |
69 |
GLOBAL_SUM_R4 |
tmp = 0. |
|
./eesupp/src/global_sum.F |
71 |
GLOBAL_SUM_R4 |
tmp = tmp + phiGSRS(1,I) |
|
./eesupp/src/global_sum.F |
73 |
GLOBAL_SUM_R4 |
sumPhi = tmp |
|
./eesupp/src/global_sum.F |
78 |
GLOBAL_SUM_R4 |
CALL MPI_ALLREDUCE(tmp,sumPhi,1,MPI_REAL,MPI_SUM, |
|
./verification/flt_example/extra/cvprofiles.F |
153 |
NO PROCEDURE |
allocate (tmp(imax)) |
|
./verification/flt_example/extra/cvprofiles.F |
160 |
NO PROCEDURE |
read(1,rec=1) tmp |
|
./verification/flt_example/extra/cvprofiles.F |
161 |
NO PROCEDURE |
rcountstart = SNGL(tmp(2)) |
|
./verification/flt_example/extra/cvprofiles.F |
162 |
NO PROCEDURE |
rcountdelta = SNGL(tmp(4)) |
|
./verification/flt_example/extra/cvprofiles.F |
163 |
NO PROCEDURE |
icount = INT(tmp(5)) |
|
./verification/flt_example/extra/cvprofiles.F |
164 |
NO PROCEDURE |
npart = INT(tmp(6)) |
|
./verification/flt_example/extra/cvprofiles.F |
262 |
NO PROCEDURE |
read(1,rec=1) tmp |
|
./verification/flt_example/extra/cvprofiles.F |
263 |
NO PROCEDURE |
imaxrecord = INT(tmp(1)) |
|
./verification/flt_example/extra/cvprofiles.F |
270 |
NO PROCEDURE |
read(1,rec=irec) tmp |
|
./verification/flt_example/extra/cvprofiles.F |
271 |
NO PROCEDURE |
ip = INT(tmp(1)) |
|
./verification/flt_example/extra/cvprofiles.F |
276 |
NO PROCEDURE |
np = INT((tmp(2)-rcountstart)/rcountdelta+1) |
|
./verification/flt_example/extra/cvprofiles.F |
280 |
NO PROCEDURE |
xpart(ip,np) = SNGL(tmp(3)) |
|
./verification/flt_example/extra/cvprofiles.F |
281 |
NO PROCEDURE |
ypart(ip,np) = SNGL(tmp(4)) |
|
./verification/flt_example/extra/cvprofiles.F |
283 |
NO PROCEDURE |
xpart(ip,np) = SNGL(tmp(3))/1000. |
|
./verification/flt_example/extra/cvprofiles.F |
284 |
NO PROCEDURE |
ypart(ip,np) = SNGL(tmp(4))/1000. |
|
./verification/flt_example/extra/cvprofiles.F |
286 |
NO PROCEDURE |
kpart(ip,np) = SNGL(tmp(5)) |
|
./verification/flt_example/extra/cvprofiles.F |
287 |
NO PROCEDURE |
zeta(ip,np) = SNGL(tmp(6)) |
|
./verification/flt_example/extra/cvprofiles.F |
289 |
NO PROCEDURE |
if (.not. preflag) uvel(ip,k,np) = SNGL(tmp(6+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
290 |
NO PROCEDURE |
if (.not. preflag) vvel(ip,k,np) = SNGL(tmp(6+1*Nr+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
291 |
NO PROCEDURE |
temp(ip,k,np) = SNGL(tmp(6+2*Nr+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
292 |
NO PROCEDURE |
if (.not. preflag) salt(ip,k,np) = SNGL(tmp(6+3*Nr+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
550 |
NO PROCEDURE |
read(1,rec=1) tmp |
|
./verification/flt_example/extra/cvprofiles.F |
551 |
NO PROCEDURE |
imaxrecord = INT(tmp(1)) |
|
./verification/flt_example/extra/cvprofiles.F |
555 |
NO PROCEDURE |
read(1,rec=irec) tmp |
|
./verification/flt_example/extra/cvprofiles.F |
556 |
NO PROCEDURE |
ip = INT(tmp(1)) |
|
./verification/flt_example/extra/cvprofiles.F |
557 |
NO PROCEDURE |
np = INT((tmp(2)-rcountstart)/rcountdelta+1) |
|
./verification/flt_example/extra/cvprofiles.F |
559 |
NO PROCEDURE |
temp(ip,k,np) = SNGL(tmp(6+3*Nr+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
560 |
NO PROCEDURE |
if (SNGL(tmp(6+2*Nr+k)) .eq. 0.) then |
|
./verification/flt_example/extra/cvprofiles.F |
580 |
NO PROCEDURE |
read(1,rec=1) tmp |
|
./verification/flt_example/extra/cvprofiles.F |
581 |
NO PROCEDURE |
imaxrecord = INT(tmp(1)) |
|
./verification/flt_example/extra/cvprofiles.F |
585 |
NO PROCEDURE |
read(1,rec=irec) tmp |
|
./verification/flt_example/extra/cvprofiles.F |
586 |
NO PROCEDURE |
ip = INT(tmp(1)) |
|
./verification/flt_example/extra/cvprofiles.F |
587 |
NO PROCEDURE |
np = INT((tmp(2)-rcountstart)/rcountdelta+1) |
|
./verification/flt_example/extra/cvprofiles.F |
589 |
NO PROCEDURE |
temp(ip,k,np) = SNGL(tmp(6+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
590 |
NO PROCEDURE |
if (SNGL(tmp(6+2*Nr+k)) .eq. 0.) then |
|
./verification/flt_example/extra/cvprofiles.F |
610 |
NO PROCEDURE |
read(1,rec=1) tmp |
|
./verification/flt_example/extra/cvprofiles.F |
611 |
NO PROCEDURE |
imaxrecord = INT(tmp(1)) |
|
./verification/flt_example/extra/cvprofiles.F |
615 |
NO PROCEDURE |
read(1,rec=irec) tmp |
|
./verification/flt_example/extra/cvprofiles.F |
616 |
NO PROCEDURE |
ip = INT(tmp(1)) |
|
./verification/flt_example/extra/cvprofiles.F |
617 |
NO PROCEDURE |
np = INT((tmp(2)-rcountstart)/rcountdelta+1) |
|
./verification/flt_example/extra/cvprofiles.F |
619 |
NO PROCEDURE |
temp(ip,k,np) = SNGL(tmp(6+1*Nr+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
620 |
NO PROCEDURE |
if (SNGL(tmp(6+2*Nr+k)) .eq. 0.) then |
|
./verification/flt_example/extra/cvprofiles.F |
68 |
NO PROCEDURE |
double precision, dimension(:), allocatable :: tmp |
|
./verification/flt_example/extra/cvfloat.F |
147 |
NO PROCEDURE |
allocate (tmp(imax)) |
|
./verification/flt_example/extra/cvfloat.F |
154 |
NO PROCEDURE |
read(1,rec=1) tmp |
|
./verification/flt_example/extra/cvfloat.F |
155 |
NO PROCEDURE |
rcountstart = SNGL(tmp(2)) |
|
./verification/flt_example/extra/cvfloat.F |
156 |
NO PROCEDURE |
rcountdelta = SNGL(tmp(4)) |
|
./verification/flt_example/extra/cvfloat.F |
157 |
NO PROCEDURE |
icount = INT(tmp(5)) |
|
./verification/flt_example/extra/cvfloat.F |
158 |
NO PROCEDURE |
npart = INT(tmp(6)) |
|
./verification/flt_example/extra/cvfloat.F |
225 |
NO PROCEDURE |
read(1,rec=1) tmp |
|
./verification/flt_example/extra/cvfloat.F |
226 |
NO PROCEDURE |
imaxrecord = INT(tmp(1)) |
|
./verification/flt_example/extra/cvfloat.F |
232 |
NO PROCEDURE |
read(1,rec=irec) tmp |
|
./verification/flt_example/extra/cvfloat.F |
233 |
NO PROCEDURE |
ip = INT(tmp(1)) |
|
./verification/flt_example/extra/cvfloat.F |
238 |
NO PROCEDURE |
np = INT((tmp(2)-rcountstart)/rcountdelta+1) |
|
./verification/flt_example/extra/cvfloat.F |
245 |
NO PROCEDURE |
xpart(ip,np) = SNGL(tmp(3)) |
|
./verification/flt_example/extra/cvfloat.F |
246 |
NO PROCEDURE |
ypart(ip,np) = SNGL(tmp(4)) |
|
./verification/flt_example/extra/cvfloat.F |
248 |
NO PROCEDURE |
xpart(ip,np) = SNGL(tmp(3))/1000. |
|
./verification/flt_example/extra/cvfloat.F |
249 |
NO PROCEDURE |
ypart(ip,np) = SNGL(tmp(4))/1000. |
|
./verification/flt_example/extra/cvfloat.F |
251 |
NO PROCEDURE |
kpart(ip,np) = SNGL(tmp(5)) |
|
./verification/flt_example/extra/cvfloat.F |
252 |
NO PROCEDURE |
uvel(ip,np) = SNGL(tmp(6)) |
|
./verification/flt_example/extra/cvfloat.F |
253 |
NO PROCEDURE |
vvel(ip,np) = SNGL(tmp(7)) |
|
./verification/flt_example/extra/cvfloat.F |
254 |
NO PROCEDURE |
temp(ip,np) = SNGL(tmp(8)) |
|
./verification/flt_example/extra/cvfloat.F |
255 |
NO PROCEDURE |
salt(ip,np) = SNGL(tmp(9)) |
|
./verification/flt_example/extra/cvfloat.F |
256 |
NO PROCEDURE |
zeta(ip,np) = SNGL(tmp(10)) |
|
./verification/flt_example/extra/cvfloat.F |
65 |
NO PROCEDURE |
double precision, dimension(:), allocatable :: tmp |
|
./eesupp/src/global_max.F |
141 |
GLOBAL_MAX_R8 |
Real*8 tmp |
|
./eesupp/src/global_max.F |
156 |
GLOBAL_MAX_R8 |
tmp = phiGMRL(1,1) |
|
./eesupp/src/global_max.F |
158 |
GLOBAL_MAX_R8 |
tmp = MAX(tmp,phiGMRL(1,I)) |
|
./eesupp/src/global_max.F |
160 |
GLOBAL_MAX_R8 |
maxPhi = tmp |
|
./eesupp/src/global_max.F |
165 |
GLOBAL_MAX_R8 |
CALL MPI_ALLREDUCE(tmp,maxPhi,1,MPI_DOUBLE_PRECISION,MPI_MAX, |
|
./eesupp/src/global_max.F |
55 |
GLOBAL_MAX_R4 |
Real*4 tmp |
|
./eesupp/src/global_max.F |
70 |
GLOBAL_MAX_R4 |
tmp = phiGMRS(1,1) |
|
./eesupp/src/global_max.F |
72 |
GLOBAL_MAX_R4 |
tmp = MAX(tmp,phiGMRS(1,I)) |
|
./eesupp/src/global_max.F |
74 |
GLOBAL_MAX_R4 |
maxPhi = tmp |
|
./eesupp/src/global_max.F |
79 |
GLOBAL_MAX_R4 |
CALL MPI_ALLREDUCE(tmp,maxPhi,1,MPI_REAL,MPI_MAX, |
|
./eesupp/src/gsum.F |
147 |
GSUM_R8 |
tmp = answer |
|
./eesupp/src/gsum.F |
148 |
GSUM_R8 |
CALL MPI_ALLREDUCE(tmp,sumPhi,1,MPI_DOUBLE_PRECISION,MPI_SUM, |
|
./eesupp/src/gsum.F |
87 |
GSUM_R8 |
Real*8 tmp, sumPhi |
|
./pkg/offline/offline_fields_load.F |
96 |
OFFLINE_FIELDS_LOAD |
_RL tmp |