| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_init_varia.F |
129 |
FLT_INIT_VARIA |
& 'RL', imax, tmp, dummyRS, |
|
./pkg/flt/flt_init_varia.F |
136 |
FLT_INIT_VARIA |
& ' bi,bj=', bi, bj, ' , npart,max_npart=', tmp(1), tmp(6) |
|
./pkg/flt/flt_init_varia.F |
139 |
FLT_INIT_VARIA |
npart_read = NINT(tmp(1)) |
|
./pkg/flt/flt_init_varia.F |
140 |
FLT_INIT_VARIA |
max_npart = tmp(6) |
|
./pkg/flt/flt_init_varia.F |
144 |
FLT_INIT_VARIA |
& 'RL', imax, tmp, dummyRS, |
|
./pkg/flt/flt_init_varia.F |
150 |
FLT_INIT_VARIA |
I tmp(3), tmp(4),bi,bj,myThid ) |
|
./pkg/flt/flt_init_varia.F |
151 |
FLT_INIT_VARIA |
kz = FLT_MAP_R2K( tmp(5), bi, bj, myThid ) |
|
./pkg/flt/flt_init_varia.F |
158 |
FLT_INIT_VARIA |
npart( npart_tile(bi,bj),bi,bj) = tmp(1) |
|
./pkg/flt/flt_init_varia.F |
159 |
FLT_INIT_VARIA |
tstart(npart_tile(bi,bj),bi,bj) = tmp(2) |
|
./pkg/flt/flt_init_varia.F |
163 |
FLT_INIT_VARIA |
kfloat(npart_tile(bi,bj),bi,bj) = tmp(6) |
|
./pkg/flt/flt_init_varia.F |
164 |
FLT_INIT_VARIA |
iup( npart_tile(bi,bj),bi,bj) = tmp(7) |
|
./pkg/flt/flt_init_varia.F |
165 |
FLT_INIT_VARIA |
itop( npart_tile(bi,bj),bi,bj) = tmp(8) |
|
./pkg/flt/flt_init_varia.F |
166 |
FLT_INIT_VARIA |
tend( npart_tile(bi,bj),bi,bj) = tmp(9) |
|
./pkg/flt/flt_init_varia.F |
217 |
FLT_INIT_VARIA |
& 'RL', imax, tmp, dummyRS, |
|
./pkg/flt/flt_init_varia.F |
220 |
FLT_INIT_VARIA |
& ' bi,bj=', bi, bj, ' , npart,max_npart=', tmp(1), tmp(6) |
|
./pkg/flt/flt_init_varia.F |
224 |
FLT_INIT_VARIA |
npart_tile(bi,bj) = NINT(tmp(1)) |
|
./pkg/flt/flt_init_varia.F |
225 |
FLT_INIT_VARIA |
max_npart = tmp(6) |
|
./pkg/flt/flt_init_varia.F |
230 |
FLT_INIT_VARIA |
& 'RL', imax, tmp, dummyRS, |
|
./pkg/flt/flt_init_varia.F |
235 |
FLT_INIT_VARIA |
I tmp(3), tmp(4),bi,bj,myThid ) |
|
./pkg/flt/flt_init_varia.F |
236 |
FLT_INIT_VARIA |
kz = FLT_MAP_R2K( tmp(5), bi, bj, myThid ) |
|
./pkg/flt/flt_init_varia.F |
238 |
FLT_INIT_VARIA |
ix = tmp(3) |
|
./pkg/flt/flt_init_varia.F |
239 |
FLT_INIT_VARIA |
jy = tmp(4) |
|
./pkg/flt/flt_init_varia.F |
240 |
FLT_INIT_VARIA |
kz = tmp(5) |
|
./pkg/flt/flt_init_varia.F |
244 |
FLT_INIT_VARIA |
npart(ip,bi,bj) = tmp(1) |
|
./pkg/flt/flt_init_varia.F |
245 |
FLT_INIT_VARIA |
tstart(ip,bi,bj) = tmp(2) |
|
./pkg/flt/flt_init_varia.F |
249 |
FLT_INIT_VARIA |
kfloat(ip,bi,bj) = tmp(6) |
|
./pkg/flt/flt_init_varia.F |
250 |
FLT_INIT_VARIA |
iup( ip,bi,bj) = tmp(7) |
|
./pkg/flt/flt_init_varia.F |
251 |
FLT_INIT_VARIA |
itop( ip,bi,bj) = tmp(8) |
|
./pkg/flt/flt_init_varia.F |
252 |
FLT_INIT_VARIA |
tend( ip,bi,bj) = tmp(9) |
|
./pkg/flt/flt_init_varia.F |
51 |
FLT_INIT_VARIA |
_RL tmp(imax) |
|
./pkg/flt/flt_traj.F |
110 |
FLT_TRAJ |
tmp(1) = npart(ip,bi,bj) |
|
./pkg/flt/flt_traj.F |
111 |
FLT_TRAJ |
tmp(2) = myTime |
|
./pkg/flt/flt_traj.F |
112 |
FLT_TRAJ |
tmp(3) = xx |
|
./pkg/flt/flt_traj.F |
113 |
FLT_TRAJ |
tmp(4) = yy |
|
./pkg/flt/flt_traj.F |
114 |
FLT_TRAJ |
tmp(5) = zz |
|
./pkg/flt/flt_traj.F |
115 |
FLT_TRAJ |
tmp(6) = ix + i0x |
|
./pkg/flt/flt_traj.F |
116 |
FLT_TRAJ |
tmp(7) = jy + j0y |
|
./pkg/flt/flt_traj.F |
117 |
FLT_TRAJ |
tmp(8) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_traj.F |
142 |
FLT_TRAJ |
tmp( 9) = pp |
|
./pkg/flt/flt_traj.F |
143 |
FLT_TRAJ |
tmp(10) = uu |
|
./pkg/flt/flt_traj.F |
144 |
FLT_TRAJ |
tmp(11) = vv |
|
./pkg/flt/flt_traj.F |
145 |
FLT_TRAJ |
tmp(12) = tt |
|
./pkg/flt/flt_traj.F |
146 |
FLT_TRAJ |
tmp(13) = ss |
|
./pkg/flt/flt_traj.F |
148 |
FLT_TRAJ |
tmp( 9) = flt_nan |
|
./pkg/flt/flt_traj.F |
149 |
FLT_TRAJ |
tmp(10) = flt_nan |
|
./pkg/flt/flt_traj.F |
150 |
FLT_TRAJ |
tmp(11) = flt_nan |
|
./pkg/flt/flt_traj.F |
151 |
FLT_TRAJ |
tmp(12) = flt_nan |
|
./pkg/flt/flt_traj.F |
152 |
FLT_TRAJ |
tmp(13) = flt_nan |
|
./pkg/flt/flt_traj.F |
156 |
FLT_TRAJ |
flt_io_buff(ii,ip,bi,bj) = tmp(ii) |
|
./pkg/flt/flt_traj.F |
180 |
FLT_TRAJ |
O tmp, dummyRS, |
|
./pkg/flt/flt_traj.F |
183 |
FLT_TRAJ |
npart_read = tmp(1) |
|
./pkg/flt/flt_traj.F |
184 |
FLT_TRAJ |
npart_times = tmp(5) |
|
./pkg/flt/flt_traj.F |
185 |
FLT_TRAJ |
ii = NINT(tmp(7)) |
|
./pkg/flt/flt_traj.F |
203 |
FLT_TRAJ |
tmp(2) = myTime |
|
./pkg/flt/flt_traj.F |
210 |
FLT_TRAJ |
tmp(1) = DBLE(npart_tile(bi,bj))+npart_read |
|
./pkg/flt/flt_traj.F |
214 |
FLT_TRAJ |
tmp(3) = myTime |
|
./pkg/flt/flt_traj.F |
216 |
FLT_TRAJ |
tmp(4) = flt_int_traj |
|
./pkg/flt/flt_traj.F |
218 |
FLT_TRAJ |
tmp(5) = npart_times + 1. |
|
./pkg/flt/flt_traj.F |
220 |
FLT_TRAJ |
tmp(6) = max_npart |
|
./pkg/flt/flt_traj.F |
222 |
FLT_TRAJ |
tmp(7) = nFlds |
|
./pkg/flt/flt_traj.F |
224 |
FLT_TRAJ |
tmp(ii) = 0. |
|
./pkg/flt/flt_traj.F |
228 |
FLT_TRAJ |
& tmp, dummyRS, |
|
./pkg/flt/flt_traj.F |
54 |
FLT_TRAJ |
_RL tmp(imax) |
|
./pkg/flt/flt_up.F |
119 |
FLT_UP |
tmp(1) = npart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
120 |
FLT_UP |
tmp(2) = myTime |
|
./pkg/flt/flt_up.F |
121 |
FLT_UP |
tmp(3) = xx |
|
./pkg/flt/flt_up.F |
122 |
FLT_UP |
tmp(4) = yy |
|
./pkg/flt/flt_up.F |
123 |
FLT_UP |
tmp(5) = zz |
|
./pkg/flt/flt_up.F |
124 |
FLT_UP |
tmp(6) = ix + i0x |
|
./pkg/flt/flt_up.F |
125 |
FLT_UP |
tmp(7) = jy + j0y |
|
./pkg/flt/flt_up.F |
126 |
FLT_UP |
tmp(8) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_up.F |
134 |
FLT_UP |
tmp(9) = pp |
|
./pkg/flt/flt_up.F |
140 |
FLT_UP |
tmp(9+k ) = uu |
|
./pkg/flt/flt_up.F |
141 |
FLT_UP |
tmp(9+k+1*Nr) = vv |
|
./pkg/flt/flt_up.F |
142 |
FLT_UP |
tmp(9+k+2*Nr) = tt |
|
./pkg/flt/flt_up.F |
143 |
FLT_UP |
tmp(9+k+3*Nr) = ss |
|
./pkg/flt/flt_up.F |
147 |
FLT_UP |
tmp(ii) = flt_nan |
|
./pkg/flt/flt_up.F |
152 |
FLT_UP |
flt_io_buff(ii,ip,bi,bj) = tmp(ii) |
|
./pkg/flt/flt_up.F |
178 |
FLT_UP |
& tmp, dummyRS, |
|
./pkg/flt/flt_up.F |
181 |
FLT_UP |
npart_read = tmp(1) |
|
./pkg/flt/flt_up.F |
182 |
FLT_UP |
npart_times = tmp(5) |
|
./pkg/flt/flt_up.F |
183 |
FLT_UP |
ii = NINT(tmp(7)) |
|
./pkg/flt/flt_up.F |
201 |
FLT_UP |
tmp(2) = myTime |
|
./pkg/flt/flt_up.F |
208 |
FLT_UP |
tmp(1) = DBLE(npart_tile(bi,bj))+npart_read |
|
./pkg/flt/flt_up.F |
212 |
FLT_UP |
tmp(3) = myTime |
|
./pkg/flt/flt_up.F |
214 |
FLT_UP |
tmp(4) = flt_int_prof |
|
./pkg/flt/flt_up.F |
216 |
FLT_UP |
tmp(5) = npart_times + 1. |
|
./pkg/flt/flt_up.F |
218 |
FLT_UP |
tmp(6) = max_npart |
|
./pkg/flt/flt_up.F |
220 |
FLT_UP |
tmp(7) = nFlds |
|
./pkg/flt/flt_up.F |
222 |
FLT_UP |
tmp(ii) = 0. |
|
./pkg/flt/flt_up.F |
226 |
FLT_UP |
& tmp, dummyRS, |
|
./pkg/flt/flt_up.F |
49 |
FLT_UP |
_RL tmp(imax) |
|
./pkg/flt/flt_write_pickup.F |
47 |
FLT_WRITE_PICKUP |
_RL tmp(imax) |
|
./pkg/flt/flt_write_pickup.F |
64 |
FLT_WRITE_PICKUP |
tmp(1) = npart_tile(bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
65 |
FLT_WRITE_PICKUP |
tmp(2) = myIter |
|
./pkg/flt/flt_write_pickup.F |
66 |
FLT_WRITE_PICKUP |
tmp(3) = myTime |
|
./pkg/flt/flt_write_pickup.F |
67 |
FLT_WRITE_PICKUP |
tmp(4) = 0. |
|
./pkg/flt/flt_write_pickup.F |
68 |
FLT_WRITE_PICKUP |
tmp(5) = 0. |
|
./pkg/flt/flt_write_pickup.F |
69 |
FLT_WRITE_PICKUP |
tmp(6) = max_npart |
|
./pkg/flt/flt_write_pickup.F |
70 |
FLT_WRITE_PICKUP |
tmp(7) = imax |
|
./pkg/flt/flt_write_pickup.F |
71 |
FLT_WRITE_PICKUP |
tmp(8) = 0. |
|
./pkg/flt/flt_write_pickup.F |
72 |
FLT_WRITE_PICKUP |
tmp(9) = 0. |
|
./pkg/flt/flt_write_pickup.F |
76 |
FLT_WRITE_PICKUP |
& 'RL', imax, tmp, dummyRS, |
|
./pkg/flt/flt_write_pickup.F |
81 |
FLT_WRITE_PICKUP |
tmp(1) = npart(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
82 |
FLT_WRITE_PICKUP |
tmp(2) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
83 |
FLT_WRITE_PICKUP |
tmp(3) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
84 |
FLT_WRITE_PICKUP |
tmp(4) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
85 |
FLT_WRITE_PICKUP |
tmp(5) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
86 |
FLT_WRITE_PICKUP |
tmp(6) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
87 |
FLT_WRITE_PICKUP |
tmp(7) = iup(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
88 |
FLT_WRITE_PICKUP |
tmp(8) = itop(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
89 |
FLT_WRITE_PICKUP |
tmp(9) = tend(ip,bi,bj) |
|
./pkg/flt/flt_write_pickup.F |
95 |
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) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
106 |
SEAICE_BOTTOMDRAG_COEFFS |
tmp = 0.25 _d 0*( |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
112 |
SEAICE_BOTTOMDRAG_COEFFS |
tmp = 0.25 _d 0*( |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
118 |
SEAICE_BOTTOMDRAG_COEFFS |
tmpFld(I,J) = SEAICEbasalDragK2 / SQRT(tmp + u0sq) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
81 |
SEAICE_BOTTOMDRAG_COEFFS |
_RL tmp, hActual, hCrit, recip_k1, u0sq, fac, rFac |
|
./pkg/seaice/seaice_calc_viscosities.F |
105 |
SEAICE_CALC_VISCOSITIES |
tmp = 0.25 * |
|
./pkg/seaice/seaice_calc_viscosities.F |
108 |
SEAICE_CALC_VISCOSITIES |
e12Csq(i,j) = tmp*tmp |
|
./pkg/seaice/seaice_calc_viscosities.F |
73 |
SEAICE_CALC_VISCOSITIES |
_RL recip_e2, deltaCreg, deltaCsq, deltaMinSq, tmp, ep, em |
|
./pkg/seaice/seaice_diagnostics_state.F |
55 |
SEAICE_DIAGNOSTICS_STATE |
_RL tmp |
|
./pkg/seaice/seaice_diagnostics_state.F |
85 |
SEAICE_DIAGNOSTICS_STATE |
tmp = 1. _d 0 |
|
./pkg/seaice/seaice_diagnostics_state.F |
88 |
SEAICE_DIAGNOSTICS_STATE |
& tmp=AREAITD(I,J,K,bi,bj)/AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
91 |
SEAICE_DIAGNOSTICS_STATE |
& + TICES(I,J,K,bi,bj)*tmp*recip_multDim |
|
./pkg/seaice/seaice_do_ridging.F |
229 |
SEAICE_DO_RIDGING |
tmp = partFunc(i,j,0)*grossClosing(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
230 |
SEAICE_DO_RIDGING |
IF ( tmp .GT. opnWtrFrac(i,j,bi,bj) ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
231 |
SEAICE_DO_RIDGING |
tmpFac = opnWtrFrac(i,j,bi,bj)/tmp |
|
./pkg/seaice/seaice_do_ridging.F |
244 |
SEAICE_DO_RIDGING |
tmp = partFunc(i,j,k)*grossClosing(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
245 |
SEAICE_DO_RIDGING |
IF ( tmp .GT. AREAITD(i,j,k,bi,bj) ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
246 |
SEAICE_DO_RIDGING |
tmpFac = AREAITD(i,j,k,bi,bj)/tmp |
|
./pkg/seaice/seaice_do_ridging.F |
411 |
SEAICE_DO_RIDGING |
tmp = netArea(i,j)+opnWtrFrac(i,j,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
412 |
SEAICE_DO_RIDGING |
areaTooLarge = tmp - 1. _d 0 .GT. 1. _d -11 |
|
./pkg/seaice/seaice_do_ridging.F |
416 |
SEAICE_DO_RIDGING |
divAdv = (1. _d 0-tmp)*recip_deltaT |
|
./pkg/seaice/seaice_do_ridging.F |
95 |
SEAICE_DO_RIDGING |
_RL tmp, tmpFac, hL, hR, expL, expR |
|
./pkg/seaice/seaice_evp.F |
136 |
SEAICE_EVP |
_RL deltaCreg, deltaSq, deltaMinSq, tmp |
|
./pkg/seaice/seaice_evp.F |
387 |
SEAICE_EVP |
tmp = 0.25 * |
|
./pkg/seaice/seaice_evp.F |
390 |
SEAICE_EVP |
e12Csq(i,j) = tmp*tmp |
|
./pkg/seaice/seaice_evp.F |
859 |
SEAICE_EVP |
tmp = evpStarFac*recip_deltaT |
|
./pkg/seaice/seaice_evp.F |
860 |
SEAICE_EVP |
betaFacP1V = betaFacV + tmp |
|
./pkg/seaice/seaice_evp.F |
861 |
SEAICE_EVP |
betaFacP1U = betaFacU + tmp |
|
./pkg/seaice/seaice_prepare_ridging.F |
105 |
SEAICE_PREPARE_RIDGING |
tmp = HEFFITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_prepare_ridging.F |
107 |
SEAICE_PREPARE_RIDGING |
hActual(i,j,k) = SQRT(tmp * tmp + hice_reg_sq) |
|
./pkg/seaice/seaice_prepare_ridging.F |
176 |
SEAICE_PREPARE_RIDGING |
tmp = 1. _d 0 / ( 1. _d 0 - EXP( -recip_astar ) ) |
|
./pkg/seaice/seaice_prepare_ridging.F |
181 |
SEAICE_PREPARE_RIDGING |
gSum(i,j,k) = EXP(-gSum(i,j,k)*recip_astar) * tmp |
|
./pkg/seaice/seaice_prepare_ridging.F |
187 |
SEAICE_PREPARE_RIDGING |
gSum(i,j,k) = EXP(-gSum(i,j,k)*recip_astar) * tmp |
|
./pkg/seaice/seaice_prepare_ridging.F |
242 |
SEAICE_PREPARE_RIDGING |
tmp = hActual(i,j,k) |
|
./pkg/seaice/seaice_prepare_ridging.F |
243 |
SEAICE_PREPARE_RIDGING |
hrMin(i,j,k) = MIN(2.D0 * tmp, tmp+SEAICEmaxRaft) |
|
./pkg/seaice/seaice_prepare_ridging.F |
244 |
SEAICE_PREPARE_RIDGING |
hrExp(i,j,k) = SEAICEmuRidging*SQRT(tmp) |
|
./pkg/seaice/seaice_prepare_ridging.F |
246 |
SEAICE_PREPARE_RIDGING |
ridgeRatio(i,j,k)=(hrMin(i,j,k)+hrExp(i,j,k))/tmp |
|
./pkg/seaice/seaice_prepare_ridging.F |
85 |
SEAICE_PREPARE_RIDGING |
_RL recip_gStar, recip_aStar, tmp |
|
./pkg/seaice/seaice_readparms.F |
668 |
SEAICE_READPARMS |
tmp = SEAICE_multDim |
|
./pkg/seaice/seaice_readparms.F |
66 |
SEAICE_READPARMS |
_RL tmp |
|
./pkg/seaice/seaice_readparms.F |
670 |
SEAICE_READPARMS |
IF (SEAICE_PDF(l).EQ.UNSET_RL) SEAICE_PDF(l) = ONE/tmp |
|
./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 |
35 |
COST_TEMP |
_RL locfc,tmp |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
44 |
COST_TEMP |
tmp = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
50 |
COST_TEMP |
tmp = tmp + maskC(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
56 |
COST_TEMP |
_GLOBAL_SUM_RL( tmp , myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
57 |
COST_TEMP |
IF ( tmp.GT.0. ) tmp = 1. _d 0 / tmp |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
66 |
COST_TEMP |
locfc = locfc + tmp*maskC(i,j,k,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
35 |
COST_TEMP |
_RL locfc,tmp |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
44 |
COST_TEMP |
tmp = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
50 |
COST_TEMP |
tmp = tmp + maskC(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
56 |
COST_TEMP |
_GLOBAL_SUM_RL( tmp , myThid ) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
57 |
COST_TEMP |
IF ( tmp.GT.0. ) tmp = 1. _d 0 / tmp |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
66 |
COST_TEMP |
locfc = locfc + tmp*maskC(i,j,k,bi,bj)* |
|
./eesupp/src/global_max.F |
141 |
GLOBAL_MAX_R8 |
Real*8 tmp |
|
./eesupp/src/global_max.F |
155 |
GLOBAL_MAX_R8 |
tmp = phiGMR8(1,1) |
|
./eesupp/src/global_max.F |
157 |
GLOBAL_MAX_R8 |
tmp = MAX(tmp,phiGMR8(1,I)) |
|
./eesupp/src/global_max.F |
159 |
GLOBAL_MAX_R8 |
maxPhi = tmp |
|
./eesupp/src/global_max.F |
162 |
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 |
79 |
GLOBAL_MAX_R4 |
CALL MPI_ALLREDUCE(tmp,maxPhi,1,MPI_REAL,MPI_MAX, |
|
./eesupp/src/global_sum.F |
140 |
GLOBAL_SUM_R8 |
Real*8 tmp |
|
./eesupp/src/global_sum.F |
159 |
GLOBAL_SUM_R8 |
tmp = 0. _d 0 |
|
./eesupp/src/global_sum.F |
161 |
GLOBAL_SUM_R8 |
tmp = tmp + phiGSR8(1,I) |
|
./eesupp/src/global_sum.F |
163 |
GLOBAL_SUM_R8 |
sumPhi = tmp |
|
./eesupp/src/global_sum.F |
166 |
GLOBAL_SUM_R8 |
CALL MPI_ALLREDUCE(tmp,sumPhi,1,MPI_DOUBLE_PRECISION,MPI_SUM, |
|
./eesupp/src/global_sum.F |
231 |
GLOBAL_SUM_INT |
INTEGER tmp |
|
./eesupp/src/global_sum.F |
245 |
GLOBAL_SUM_INT |
tmp = 0 |
|
./eesupp/src/global_sum.F |
247 |
GLOBAL_SUM_INT |
tmp = tmp + phiGSI(1,I) |
|
./eesupp/src/global_sum.F |
249 |
GLOBAL_SUM_INT |
sumPhi = tmp |
|
./eesupp/src/global_sum.F |
252 |
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 |
78 |
GLOBAL_SUM_R4 |
CALL MPI_ALLREDUCE(tmp,sumPhi,1,MPI_REAL,MPI_SUM, |
|
./eesupp/src/gsum.F |
143 |
GSUM_R8 |
tmp = answer |
|
./eesupp/src/gsum.F |
144 |
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 |
163 |
GLOBAL_ADMAX_R8 |
Real*8 tmp |
|
./pkg/autodiff/global_max_ad.F |
177 |
GLOBAL_ADMAX_R8 |
tmp = phiGMR8(1,1) |
|
./pkg/autodiff/global_max_ad.F |
179 |
GLOBAL_ADMAX_R8 |
tmp = MAX(tmp,phiGMR8(1,I)) |
|
./pkg/autodiff/global_max_ad.F |
181 |
GLOBAL_ADMAX_R8 |
maxPhi = tmp |
|
./pkg/autodiff/global_max_ad.F |
184 |
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 |
93 |
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 |
60 |
GLOBAL_ADSUM_TILE_RL |
tmp = adsumPhi |
|
./pkg/autodiff/global_sum_tile_ad.F |
62 |
GLOBAL_ADSUM_TILE_RL |
CALL GLOBAL_SUM_R8( tmp, myThid ) |
|
./pkg/autodiff/global_sum_tile_ad.F |
67 |
GLOBAL_ADSUM_TILE_RL |
adphiTile(bi,bj) = adphiTile(bi,bj) + tmp |
|
./pkg/bling/bling_dvm.F |
199 |
BLING_DVM |
tmp = 0 |
|
./pkg/bling/bling_dvm.F |
202 |
BLING_DVM |
IF ( (hFacC(i,j,k,bi,bj).gt.0. _d 0) .and. (tmp.eq.0)) THEN |
|
./pkg/bling/bling_dvm.F |
205 |
BLING_DVM |
if (PTR_O2(i,j,k+2) .lt. (5. _d 0*oxic_min)) tmp = 1 |
|
./pkg/bling/bling_dvm.F |
229 |
BLING_DVM |
tmp = 0 |
|
./pkg/bling/bling_dvm.F |
232 |
BLING_DVM |
IF ( (hFacC(i,j,k,bi,bj).gt.0. _d 0) .and. (tmp.eq.0)) THEN |
|
./pkg/bling/bling_dvm.F |
274 |
BLING_DVM |
if (PTR_O2(i,j,k+2) .lt. (5. _d 0*oxic_min)) tmp = 1 |
|
./pkg/bling/bling_dvm.F |
70 |
BLING_DVM |
INTEGER tmp |