| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_init_varia.F |
107 |
FLT_INIT_VARIA |
& imax, tmp, bi, bj, ip+1, myThid ) |
|
./pkg/flt/flt_init_varia.F |
112 |
FLT_INIT_VARIA |
I tmp(3), tmp(4),bi,bj,myThid ) |
|
./pkg/flt/flt_init_varia.F |
113 |
FLT_INIT_VARIA |
kz = FLT_MAP_R2K( tmp(5), bi, bj, myThid ) |
|
./pkg/flt/flt_init_varia.F |
115 |
FLT_INIT_VARIA |
ix = tmp(3) |
|
./pkg/flt/flt_init_varia.F |
116 |
FLT_INIT_VARIA |
jy = tmp(4) |
|
./pkg/flt/flt_init_varia.F |
117 |
FLT_INIT_VARIA |
kz = tmp(5) |
|
./pkg/flt/flt_init_varia.F |
128 |
FLT_INIT_VARIA |
npart( npart_tile(bi,bj),bi,bj) = tmp(1) |
|
./pkg/flt/flt_init_varia.F |
129 |
FLT_INIT_VARIA |
tstart(npart_tile(bi,bj),bi,bj) = tmp(2) |
|
./pkg/flt/flt_init_varia.F |
133 |
FLT_INIT_VARIA |
kfloat(npart_tile(bi,bj),bi,bj) = tmp(6) |
|
./pkg/flt/flt_init_varia.F |
134 |
FLT_INIT_VARIA |
iup( npart_tile(bi,bj),bi,bj) = tmp(7) |
|
./pkg/flt/flt_init_varia.F |
135 |
FLT_INIT_VARIA |
itop( npart_tile(bi,bj),bi,bj) = tmp(8) |
|
./pkg/flt/flt_init_varia.F |
136 |
FLT_INIT_VARIA |
tend( npart_tile(bi,bj),bi,bj) = tmp(9) |
|
./pkg/flt/flt_init_varia.F |
151 |
FLT_INIT_VARIA |
npart(ip,bi,bj) = tmp(1) |
|
./pkg/flt/flt_init_varia.F |
152 |
FLT_INIT_VARIA |
tstart(ip,bi,bj) = tmp(2) |
|
./pkg/flt/flt_init_varia.F |
153 |
FLT_INIT_VARIA |
ipart(ip,bi,bj) = tmp(3) |
|
./pkg/flt/flt_init_varia.F |
154 |
FLT_INIT_VARIA |
jpart(ip,bi,bj) = tmp(4) |
|
./pkg/flt/flt_init_varia.F |
155 |
FLT_INIT_VARIA |
kpart(ip,bi,bj) = tmp(5) |
|
./pkg/flt/flt_init_varia.F |
156 |
FLT_INIT_VARIA |
kfloat(ip,bi,bj) = tmp(6) |
|
./pkg/flt/flt_init_varia.F |
157 |
FLT_INIT_VARIA |
iup( ip,bi,bj) = tmp(7) |
|
./pkg/flt/flt_init_varia.F |
158 |
FLT_INIT_VARIA |
itop( ip,bi,bj) = tmp(8) |
|
./pkg/flt/flt_init_varia.F |
159 |
FLT_INIT_VARIA |
tend( ip,bi,bj) = tmp(9) |
|
./pkg/flt/flt_init_varia.F |
46 |
FLT_INIT_VARIA |
_RL tmp(imax) |
|
./pkg/flt/flt_init_varia.F |
89 |
FLT_INIT_VARIA |
& imax, tmp, bi, bj, 1, myThid ) |
|
./pkg/flt/flt_init_varia.F |
91 |
FLT_INIT_VARIA |
& ' bi,bj=', bi, bj, ' , npart,max_npart=', tmp(1), tmp(6) |
|
./pkg/flt/flt_init_varia.F |
94 |
FLT_INIT_VARIA |
npart_read = NINT(tmp(1)) |
|
./pkg/flt/flt_init_varia.F |
95 |
FLT_INIT_VARIA |
max_npart = tmp(6) |
|
./pkg/flt/flt_traj.F |
101 |
FLT_TRAJ |
& 'RL', imax, tmp, dummyRS, |
|
./pkg/flt/flt_traj.F |
114 |
FLT_TRAJ |
tmp(1) = npart(ip,bi,bj) |
|
./pkg/flt/flt_traj.F |
115 |
FLT_TRAJ |
tmp(2) = myTime |
|
./pkg/flt/flt_traj.F |
116 |
FLT_TRAJ |
tmp(3) = xx |
|
./pkg/flt/flt_traj.F |
117 |
FLT_TRAJ |
tmp(4) = yy |
|
./pkg/flt/flt_traj.F |
118 |
FLT_TRAJ |
tmp(5) = zz |
|
./pkg/flt/flt_traj.F |
119 |
FLT_TRAJ |
tmp(6) = ix + i0x |
|
./pkg/flt/flt_traj.F |
120 |
FLT_TRAJ |
tmp(7) = jy + j0y |
|
./pkg/flt/flt_traj.F |
121 |
FLT_TRAJ |
tmp(8) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_traj.F |
133 |
FLT_TRAJ |
& ' FLT_TRAJ: ', (tmp(ii),ii=1,5) |
|
./pkg/flt/flt_traj.F |
148 |
FLT_TRAJ |
tmp( 9) = pp |
|
./pkg/flt/flt_traj.F |
149 |
FLT_TRAJ |
tmp(10) = uu |
|
./pkg/flt/flt_traj.F |
150 |
FLT_TRAJ |
tmp(11) = vv |
|
./pkg/flt/flt_traj.F |
151 |
FLT_TRAJ |
tmp(12) = tt |
|
./pkg/flt/flt_traj.F |
152 |
FLT_TRAJ |
tmp(13) = ss |
|
./pkg/flt/flt_traj.F |
154 |
FLT_TRAJ |
tmp( 9) = flt_nan |
|
./pkg/flt/flt_traj.F |
155 |
FLT_TRAJ |
tmp(10) = flt_nan |
|
./pkg/flt/flt_traj.F |
156 |
FLT_TRAJ |
tmp(11) = flt_nan |
|
./pkg/flt/flt_traj.F |
157 |
FLT_TRAJ |
tmp(12) = flt_nan |
|
./pkg/flt/flt_traj.F |
158 |
FLT_TRAJ |
tmp(13) = flt_nan |
|
./pkg/flt/flt_traj.F |
165 |
FLT_TRAJ |
& 'RL', imax, tmp, dummyRS, |
|
./pkg/flt/flt_traj.F |
45 |
FLT_TRAJ |
_RL tmp(imax) |
|
./pkg/flt/flt_traj.F |
71 |
FLT_TRAJ |
& imax,tmp,bi,bj,1,myThid) |
|
./pkg/flt/flt_traj.F |
72 |
FLT_TRAJ |
npart_read = tmp(1) |
|
./pkg/flt/flt_traj.F |
73 |
FLT_TRAJ |
npart_times = tmp(5) |
|
./pkg/flt/flt_traj.F |
77 |
FLT_TRAJ |
tmp(2) = myTime |
|
./pkg/flt/flt_traj.F |
84 |
FLT_TRAJ |
tmp(1) = DBLE(npart_tile(bi,bj))+npart_read |
|
./pkg/flt/flt_traj.F |
88 |
FLT_TRAJ |
tmp(3) = myTime |
|
./pkg/flt/flt_traj.F |
90 |
FLT_TRAJ |
tmp(4) = flt_int_traj |
|
./pkg/flt/flt_traj.F |
92 |
FLT_TRAJ |
tmp(5) = npart_times + 1. |
|
./pkg/flt/flt_traj.F |
94 |
FLT_TRAJ |
tmp(6) = max_npart |
|
./pkg/flt/flt_traj.F |
96 |
FLT_TRAJ |
tmp(ii) = 0. |
|
./pkg/flt/flt_up.F |
100 |
FLT_UP |
& 'RL', imax, tmp, dummyRS, |
|
./pkg/flt/flt_up.F |
133 |
FLT_UP |
tmp(1) = npart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
134 |
FLT_UP |
tmp(2) = myTime |
|
./pkg/flt/flt_up.F |
135 |
FLT_UP |
tmp(3) = xx |
|
./pkg/flt/flt_up.F |
136 |
FLT_UP |
tmp(4) = yy |
|
./pkg/flt/flt_up.F |
137 |
FLT_UP |
tmp(5) = zz |
|
./pkg/flt/flt_up.F |
138 |
FLT_UP |
tmp(6) = ix + i0x |
|
./pkg/flt/flt_up.F |
139 |
FLT_UP |
tmp(7) = jy + j0y |
|
./pkg/flt/flt_up.F |
140 |
FLT_UP |
tmp(8) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
147 |
FLT_UP |
tmp(9) = pp |
|
./pkg/flt/flt_up.F |
153 |
FLT_UP |
tmp(9+k) = uu |
|
./pkg/flt/flt_up.F |
154 |
FLT_UP |
tmp(9+1*Nr+k) = vv |
|
./pkg/flt/flt_up.F |
155 |
FLT_UP |
tmp(9+2*Nr+k) = tt |
|
./pkg/flt/flt_up.F |
156 |
FLT_UP |
tmp(9+3*Nr+k) = ss |
|
./pkg/flt/flt_up.F |
161 |
FLT_UP |
tmp(ii) = flt_nan |
|
./pkg/flt/flt_up.F |
169 |
FLT_UP |
& 'RL', imax, tmp, dummyRS, |
|
./pkg/flt/flt_up.F |
46 |
FLT_UP |
_RL tmp(imax) |
|
./pkg/flt/flt_up.F |
71 |
FLT_UP |
& imax,tmp,bi,bj,1,myThid) |
|
./pkg/flt/flt_up.F |
72 |
FLT_UP |
npart_read = tmp(1) |
|
./pkg/flt/flt_up.F |
73 |
FLT_UP |
npart_times = tmp(5) |
|
./pkg/flt/flt_up.F |
77 |
FLT_UP |
tmp(2) = myTime |
|
./pkg/flt/flt_up.F |
84 |
FLT_UP |
tmp(1) = DBLE(npart_tile(bi,bj))+npart_read |
|
./pkg/flt/flt_up.F |
88 |
FLT_UP |
tmp(3) = myTime |
|
./pkg/flt/flt_up.F |
90 |
FLT_UP |
tmp(4) = flt_int_prof |
|
./pkg/flt/flt_up.F |
92 |
FLT_UP |
tmp(5) = npart_times + 1. |
|
./pkg/flt/flt_up.F |
94 |
FLT_UP |
tmp(6) = max_npart |
|
./pkg/flt/flt_up.F |
96 |
FLT_UP |
tmp(ii) = 0. |
|
./pkg/flt/flt_write_pickup.F |
46 |
FLT_WRITE_PICKUP |
_RL tmp(imax) |
|
./pkg/flt/flt_write_pickup.F |
62 |
FLT_WRITE_PICKUP |
tmp(1) = npart_tile(bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
63 |
FLT_WRITE_PICKUP |
tmp(2) = myIter |
|
./pkg/flt/flt_write_pickup.F |
64 |
FLT_WRITE_PICKUP |
tmp(3) = myTime |
|
./pkg/flt/flt_write_pickup.F |
65 |
FLT_WRITE_PICKUP |
tmp(4) = 0. |
|
./pkg/flt/flt_write_pickup.F |
66 |
FLT_WRITE_PICKUP |
tmp(5) = 0. |
|
./pkg/flt/flt_write_pickup.F |
67 |
FLT_WRITE_PICKUP |
tmp(6) = max_npart |
|
./pkg/flt/flt_write_pickup.F |
68 |
FLT_WRITE_PICKUP |
tmp(7) = 0. |
|
./pkg/flt/flt_write_pickup.F |
69 |
FLT_WRITE_PICKUP |
tmp(8) = 0. |
|
./pkg/flt/flt_write_pickup.F |
70 |
FLT_WRITE_PICKUP |
tmp(9) = 0. |
|
./pkg/flt/flt_write_pickup.F |
74 |
FLT_WRITE_PICKUP |
& 'RL', imax, tmp, dummyRS, |
|
./pkg/flt/flt_write_pickup.F |
79 |
FLT_WRITE_PICKUP |
tmp(1) = npart(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
80 |
FLT_WRITE_PICKUP |
tmp(2) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
81 |
FLT_WRITE_PICKUP |
tmp(3) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
82 |
FLT_WRITE_PICKUP |
tmp(4) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
83 |
FLT_WRITE_PICKUP |
tmp(5) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
84 |
FLT_WRITE_PICKUP |
tmp(6) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
85 |
FLT_WRITE_PICKUP |
tmp(7) = iup(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
86 |
FLT_WRITE_PICKUP |
tmp(8) = itop(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
87 |
FLT_WRITE_PICKUP |
tmp(9) = tend(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
93 |
FLT_WRITE_PICKUP |
& 'RL', imax, tmp, dummyRS, |
|
./pkg/mnc/mnc_utils.F |
349 |
MNC_PSNCM |
CHARACTER*(25) tmp |
|
./pkg/mnc/mnc_utils.F |
355 |
MNC_PSNCM |
WRITE(tmp,'(I25.25)') ival |
|
./pkg/mnc/mnc_utils.F |
357 |
MNC_PSNCM |
IF (tmp(i:i) .NE. '0') THEN |
|
./pkg/mnc/mnc_utils.F |
364 |
MNC_PSNCM |
ostring(1:nmin) = tmp((26-nmin):25) |
|
./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/tutorial_global_oce_optim/code_ad/cost_temp.F |
37 |
COST_TEMP |
_RL locfc,tmp |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
46 |
COST_TEMP |
tmp = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
52 |
COST_TEMP |
tmp = tmp + maskC(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
58 |
COST_TEMP |
_GLOBAL_SUM_RL( tmp , myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
59 |
COST_TEMP |
IF ( tmp.GT.0. ) tmp = 1. _d 0 / tmp |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
78 |
COST_TEMP |
locfc = locfc + tmp*maskC(i,j,k,bi,bj)* |
|
./eesupp/src/global_max.F |
144 |
GLOBAL_MAX_R8 |
Real*8 tmp |
|
./eesupp/src/global_max.F |
158 |
GLOBAL_MAX_R8 |
tmp = phiGMR8(1,1) |
|
./eesupp/src/global_max.F |
160 |
GLOBAL_MAX_R8 |
tmp = MAX(tmp,phiGMR8(1,I)) |
|
./eesupp/src/global_max.F |
162 |
GLOBAL_MAX_R8 |
maxPhi = tmp |
|
./eesupp/src/global_max.F |
167 |
GLOBAL_MAX_R8 |
CALL MPI_ALLREDUCE(tmp,maxPhi,1,MPI_DOUBLE_PRECISION,MPI_MAX, |
|
./eesupp/src/global_max.F |
58 |
GLOBAL_MAX_R4 |
Real*4 tmp |
|
./eesupp/src/global_max.F |
72 |
GLOBAL_MAX_R4 |
tmp = phiGMR4(1,1) |
|
./eesupp/src/global_max.F |
74 |
GLOBAL_MAX_R4 |
tmp = MAX(tmp,phiGMR4(1,I)) |
|
./eesupp/src/global_max.F |
76 |
GLOBAL_MAX_R4 |
maxPhi = tmp |
|
./eesupp/src/global_max.F |
81 |
GLOBAL_MAX_R4 |
CALL MPI_ALLREDUCE(tmp,maxPhi,1,MPI_REAL,MPI_MAX, |
|
./eesupp/src/global_sum.F |
144 |
GLOBAL_SUM_R8 |
Real*8 tmp |
|
./eesupp/src/global_sum.F |
163 |
GLOBAL_SUM_R8 |
tmp = 0. _d 0 |
|
./eesupp/src/global_sum.F |
165 |
GLOBAL_SUM_R8 |
tmp = tmp + phiGSR8(1,I) |
|
./eesupp/src/global_sum.F |
167 |
GLOBAL_SUM_R8 |
sumPhi = tmp |
|
./eesupp/src/global_sum.F |
172 |
GLOBAL_SUM_R8 |
CALL MPI_ALLREDUCE(tmp,sumPhi,1,MPI_DOUBLE_PRECISION,MPI_SUM, |
|
./eesupp/src/global_sum.F |
239 |
GLOBAL_SUM_INT |
INTEGER tmp |
|
./eesupp/src/global_sum.F |
253 |
GLOBAL_SUM_INT |
tmp = 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 |
57 |
GLOBAL_SUM_R4 |
Real*4 tmp |
|
./eesupp/src/global_sum.F |
71 |
GLOBAL_SUM_R4 |
tmp = 0. |
|
./eesupp/src/global_sum.F |
73 |
GLOBAL_SUM_R4 |
tmp = tmp + phiGSR4(1,I) |
|
./eesupp/src/global_sum.F |
75 |
GLOBAL_SUM_R4 |
sumPhi = tmp |
|
./eesupp/src/global_sum.F |
80 |
GLOBAL_SUM_R4 |
CALL MPI_ALLREDUCE(tmp,sumPhi,1,MPI_REAL,MPI_SUM, |
|
./eesupp/src/gsum.F |
145 |
GSUM_R8 |
tmp = answer |
|
./eesupp/src/gsum.F |
146 |
GSUM_R8 |
CALL MPI_ALLREDUCE(tmp,sumPhi,1,MPI_DOUBLE_PRECISION,MPI_SUM, |
|
./eesupp/src/gsum.F |
86 |
GSUM_R8 |
Real*8 tmp, sumPhi |
|
./pkg/autodiff/global_max_ad.F |
166 |
GLOBAL_ADMAX_R8 |
Real*8 tmp |
|
./pkg/autodiff/global_max_ad.F |
180 |
GLOBAL_ADMAX_R8 |
tmp = phiGMR8(1,1) |
|
./pkg/autodiff/global_max_ad.F |
182 |
GLOBAL_ADMAX_R8 |
tmp = MAX(tmp,phiGMR8(1,I)) |
|
./pkg/autodiff/global_max_ad.F |
184 |
GLOBAL_ADMAX_R8 |
maxPhi = tmp |
|
./pkg/autodiff/global_max_ad.F |
189 |
GLOBAL_ADMAX_R8 |
CALL MPI_ALLREDUCE(tmp,maxPhi,1,MPI_DOUBLE_PRECISION,MPI_MAX, |
|
./pkg/autodiff/global_max_ad.F |
72 |
GLOBAL_ADMAX_R4 |
Real*4 tmp |
|
./pkg/autodiff/global_max_ad.F |
86 |
GLOBAL_ADMAX_R4 |
tmp = phiGMR4(1,1) |
|
./pkg/autodiff/global_max_ad.F |
88 |
GLOBAL_ADMAX_R4 |
tmp = MAX(tmp,phiGMR4(1,I)) |
|
./pkg/autodiff/global_max_ad.F |
90 |
GLOBAL_ADMAX_R4 |
maxPhi = tmp |
|
./pkg/autodiff/global_max_ad.F |
95 |
GLOBAL_ADMAX_R4 |
CALL MPI_ALLREDUCE(tmp,maxPhi,1,MPI_REAL,MPI_MAX, |
|
./pkg/autodiff/global_sum_tile_ad.F |
55 |
GLOBAL_ADSUM_TILE_RL |
Real*8 tmp |
|
./pkg/autodiff/global_sum_tile_ad.F |
57 |
GLOBAL_ADSUM_TILE_RL |
tmp = adsumPhi |
|
./pkg/autodiff/global_sum_tile_ad.F |
59 |
GLOBAL_ADSUM_TILE_RL |
CALL GLOBAL_SUM_R8( tmp, myThid ) |
|
./pkg/autodiff/global_sum_tile_ad.F |
64 |
GLOBAL_ADSUM_TILE_RL |
adphiTile(bi,bj) = tmp |
|
./pkg/cheapaml/cheapaml.F |
161 |
CHEAPAML |
tmp=Tsrf(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
62 |
CHEAPAML |
_RL tmp |
|
./pkg/dic/dic_atmos.F |
111 |
DIC_ATMOS |
tmp=co2atmos(ntim)*bWght+co2atmos(ntim+1)*aWght |
|
./pkg/dic/dic_atmos.F |
112 |
DIC_ATMOS |
WRITE(ioUnit,*) 'weights',ntim, aWght, bWght, tmp |
|
./pkg/dic/dic_atmos.F |
118 |
DIC_ATMOS |
AtmospCO2(i,j,bi,bj)=tmp |
|
./pkg/dic/dic_atmos.F |
73 |
DIC_ATMOS |
_RL tmp |