| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/w2_set_cs6_facets.F |
105 |
W2_SET_CS6_FACETS |
tmpVar = FLOAT(nGr)/6. |
|
./pkg/exch2/w2_set_cs6_facets.F |
106 |
W2_SET_CS6_FACETS |
tmpVar = SQRT(tmpVar) |
|
./pkg/exch2/w2_set_cs6_facets.F |
107 |
W2_SET_CS6_FACETS |
nRd = NINT(tmpVar) |
|
./pkg/exch2/w2_set_cs6_facets.F |
44 |
W2_SET_CS6_FACETS |
Real*4 tmpVar |
|
./pkg/exf/exf_interp.F |
397 |
EXF_INTERP |
tmpVar = nyIn + 1. _d -3 |
|
./pkg/exf/exf_interp.F |
398 |
EXF_INTERP |
nLoop = 1 + INT( LOG(tmpVar)/LOG(2. _d 0) ) |
|
./pkg/exf/exf_interp.F |
96 |
EXF_INTERP |
_RL tmpVar |
|
./pkg/exf/exf_interp_uv.F |
108 |
EXF_INTERP_UV |
_RL tmpVar |
|
./pkg/exf/exf_interp_uv.F |
423 |
EXF_INTERP_UV |
tmpVar = nyIn + 1. _d -3 |
|
./pkg/exf/exf_interp_uv.F |
424 |
EXF_INTERP_UV |
nLoop = 1 + INT( LOG(tmpVar)/LOG(2. _d 0) ) |
|
./pkg/gmredi/gmredi_diagnostics_impl.F |
46 |
GMREDI_DIAGNOSTICS_IMPL |
_RL tmpVar(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/gmredi/gmredi_diagnostics_impl.F |
60 |
GMREDI_DIAGNOSTICS_IMPL |
tmpVar(i,j) = -recip_drC(k)*rkSign |
|
./pkg/gmredi/gmredi_diagnostics_impl.F |
63 |
GMREDI_DIAGNOSTICS_IMPL |
tmpVar(i,j) = tmpVar(i,j)*Kwz(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_diagnostics_impl.F |
67 |
GMREDI_DIAGNOSTICS_IMPL |
CALL DIAGNOSTICS_FILL( tmpVar, 'GM_KwzTz', |
|
./model/src/apply_forcing.F |
254 |
APPLY_FORCING_V |
_RL tmpVar(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/apply_forcing.F |
275 |
APPLY_FORCING_V |
tmpVar(i,j) = gV(i,j,k,bi,bj) - locVar(i,j) |
|
./model/src/apply_forcing.F |
283 |
APPLY_FORCING_V |
gV_arr(i,j) = gV_arr(i,j) + tmpVar(i,j) |
|
./model/src/apply_forcing.F |
445 |
APPLY_FORCING_T |
_RL tmpVar(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/apply_forcing.F |
581 |
APPLY_FORCING_T |
tmpVar(i,j) = 0. |
|
./model/src/apply_forcing.F |
589 |
APPLY_FORCING_T |
tmpVar(i,j) = wVel(i,j,kc,bi,bj)*delPI*atm_Rq |
|
./model/src/apply_forcing.F |
601 |
APPLY_FORCING_T |
tmpVar(i,j) = tmpVar(i,j) |
|
./model/src/apply_forcing.F |
612 |
APPLY_FORCING_T |
& + tmpVar(i,j)*tmpFac |
|
./model/src/apply_forcing.F |
620 |
APPLY_FORCING_T |
CALL DIAGNOSTICS_SCALE_FILL( tmpVar, tmpFac, 1, |
|
./model/src/apply_forcing.F |
64 |
APPLY_FORCING_U |
_RL tmpVar(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/apply_forcing.F |
85 |
APPLY_FORCING_U |
tmpVar(i,j) = gU(i,j,k,bi,bj) - locVar(i,j) |
|
./model/src/apply_forcing.F |
93 |
APPLY_FORCING_U |
gU_arr(i,j) = gU_arr(i,j) + tmpVar(i,j) |
|
./pkg/layers/layers_check.F |
29 |
LAYERS_CHECK |
_RL tmpVar |
|
./pkg/layers/layers_check.F |
90 |
LAYERS_CHECK |
tmpVar = layers_bounds(Nlayers+1,iLa) - layers_bounds(1,iLa) |
|
./pkg/layers/layers_check.F |
91 |
LAYERS_CHECK |
IF ( tmpVar.LE.50. .AND. layers_bounds(1,iLa).GE.950. ) THEN |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
115 |
MOM_UV_BOUNDARY |
tmpVar = aBndU(i,j)+aBndV(i,j)+aBndW(i,j) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
116 |
MOM_UV_BOUNDARY |
IF ( tmpVar.GT.0. ) THEN |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
117 |
MOM_UV_BOUNDARY |
tmpVar = 1. _d 0 / tmpVar |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
118 |
MOM_UV_BOUNDARY |
aBndU(i,j) = aBndU(i,j)*tmpVar |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
119 |
MOM_UV_BOUNDARY |
aBndV(i,j) = aBndV(i,j)*tmpVar |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
120 |
MOM_UV_BOUNDARY |
aBndW(i,j) = aBndW(i,j)*tmpVar |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
62 |
MOM_UV_BOUNDARY |
_RL tmpVar |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
102 |
OBCS_U1_ADV_TRACER |
tmpVar = vTrans(i,j)*maskLoc(i,j) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
104 |
OBCS_U1_ADV_TRACER |
IF ( tmpVar.GT. 0. _d 0 ) THEN |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
132 |
OBCS_U1_ADV_TRACER |
tmpVar = vTrans(i,j)*maskLoc(i,j) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
134 |
OBCS_U1_ADV_TRACER |
IF ( tmpVar.GT. 0. _d 0 ) THEN |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
65 |
OBCS_U1_ADV_TRACER |
_RL vAbs, tmpVar |
|
./pkg/ptracers/ptracers_forcing_surf.F |
55 |
PTRACERS_FORCING_SURF |
_RL epsil, cutoff, tmpVar |
|
./pkg/ptracers/ptracers_forcing_surf.F |
88 |
PTRACERS_FORCING_SURF |
tmpVar = MAX( salt(i,j,ks,bi,bj), epsil ) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
89 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = relaxForcingS(i,j)/tmpVar |
|
./model/src/external_forcing.F |
341 |
EXTERNAL_FORCING_T |
_RL tmpVar(1:sNx,1:sNy) |
|
./model/src/external_forcing.F |
453 |
EXTERNAL_FORCING_T |
tmpVar(i,j) = 0. |
|
./model/src/external_forcing.F |
461 |
EXTERNAL_FORCING_T |
tmpVar(i,j) = wVel(i,j,kc,bi,bj)*delPI*atm_Rq |
|
./model/src/external_forcing.F |
473 |
EXTERNAL_FORCING_T |
tmpVar(i,j) = tmpVar(i,j) |
|
./model/src/external_forcing.F |
484 |
EXTERNAL_FORCING_T |
& + tmpVar(i,j)*tmpFac |
|
./model/src/external_forcing.F |
492 |
EXTERNAL_FORCING_T |
CALL DIAGNOSTICS_SCALE_FILL( tmpVar, tmpFac, 1, |
|
./model/src/external_forcing_surf.F |
65 |
EXTERNAL_FORCING_SURF |
_RS tmpVar(1) |
|
./model/src/external_forcing_surf.F |
86 |
EXTERNAL_FORCING_SURF |
tmpVar(1) = oneRS |
|
./model/src/external_forcing_surf.F |
88 |
EXTERNAL_FORCING_SURF |
CALL REMOVE_MEAN_RS( 1, EmPmR, maskInC, maskInC, rA, tmpVar, |
|
./model/src/external_forcing_surf.F |
92 |
EXTERNAL_FORCING_SURF |
CALL REMOVE_MEAN_RS( 1, Qnet, maskInC, maskInC, rA, tmpVar, |
|
./pkg/seaice/seaice_init_fixed.F |
164 |
SEAICE_INIT_FIXED |
tmpVar = nITD |
|
./pkg/seaice/seaice_init_fixed.F |
165 |
SEAICE_INIT_FIXED |
tmpVar = oneRL / tmpVar |
|
./pkg/seaice/seaice_init_fixed.F |
166 |
SEAICE_INIT_FIXED |
Hlimit_c1 = Hlimit_c1*tmpVar |
|
./pkg/seaice/seaice_init_fixed.F |
172 |
SEAICE_INIT_FIXED |
& *( oneRL + TANH( Hlimit_c3 *( FLOAT(k-1)*tmpVar - oneRL ) ) ) |
|
./pkg/seaice/seaice_init_fixed.F |
38 |
SEAICE_INIT_FIXED |
_RL tmpVar |
|
./pkg/thsice/thsice_advdiff.F |
104 |
THSICE_ADVDIFF |
_RL tmpVar, sumVar1, sumVar2 |
|
./pkg/thsice/thsice_advdiff.F |
294 |
THSICE_ADVDIFF |
tmpVar = ABS(iceVol(i,j)-iceFrc(i,j)*rA(i,j,bi,bj)) |
|
./pkg/thsice/thsice_advdiff.F |
295 |
THSICE_ADVDIFF |
IF ( tmpVar.GT.0. ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
297 |
THSICE_ADVDIFF |
sumVar2 = sumVar2 + tmpVar |
|
./pkg/thsice/thsice_advdiff.F |
299 |
THSICE_ADVDIFF |
IF ( tmpVar.GT.vol_Epsil ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
304 |
THSICE_ADVDIFF |
& ' , diff=', tmpVar |
|
./pkg/thsice/thsice_advdiff.F |
404 |
THSICE_ADVDIFF |
tmpVar = ABS(iceVol(i,j) |
|
./pkg/thsice/thsice_advdiff.F |
406 |
THSICE_ADVDIFF |
IF ( tmpVar.GT.0. ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
408 |
THSICE_ADVDIFF |
sumVar2 = sumVar2 + tmpVar |
|
./pkg/thsice/thsice_advdiff.F |
410 |
THSICE_ADVDIFF |
IF ( tmpVar.GT.vol_Epsil ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
415 |
THSICE_ADVDIFF |
& ' , diff=', tmpVar |
|
./pkg/thsice/thsice_balance_frw.F |
125 |
THSICE_BALANCE_FRW |
tmpVar = tmpFac*MAX( prcAtm(i,j,bi,bj), zeroRL ) |
|
./pkg/thsice/thsice_balance_frw.F |
127 |
THSICE_BALANCE_FRW |
icFrwAtm(i,j,bi,bj) = icFrwAtm(i,j,bi,bj) - tmpVar |
|
./pkg/thsice/thsice_balance_frw.F |
128 |
THSICE_BALANCE_FRW |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj) - tmpVar |
|
./pkg/thsice/thsice_balance_frw.F |
56 |
THSICE_BALANCE_FRW |
_RL tmpFac, tmpVar |
|
./model/src/ini_p_ground.F |
156 |
INI_P_GROUND |
& tmpVar(1,j), nLevHvR, myThid ) |
|
./model/src/ini_p_ground.F |
160 |
INI_P_GROUND |
WRITE(88) tmpVar |
|
./model/src/ini_p_ground.F |
76 |
INI_P_GROUND |
_RL tmpVar(nLevHvR,61) |
|
./verification/rotating_tank/code/apply_forcing.F |
233 |
APPLY_FORCING_V |
_RL tmpVar |
|
./verification/rotating_tank/code/apply_forcing.F |
251 |
APPLY_FORCING_V |
tmpVar = gV(i,j,k,bi,bj) - locVar(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
253 |
APPLY_FORCING_V |
gV_arr(i,j) = gV_arr(i,j) + tmpVar |
|
./verification/rotating_tank/code/apply_forcing.F |
402 |
APPLY_FORCING_T |
_RL tmpVar |
|
./verification/rotating_tank/code/apply_forcing.F |
406 |
APPLY_FORCING_T |
_RL tmpVar(1:sNx,1:sNy) |
|
./verification/rotating_tank/code/apply_forcing.F |
474 |
APPLY_FORCING_T |
tmpVar = gT(i,j,k,bi,bj) - locVar(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
476 |
APPLY_FORCING_T |
gT_arr(i,j) = gT_arr(i,j) + tmpVar |
|
./verification/rotating_tank/code/apply_forcing.F |
584 |
APPLY_FORCING_T |
tmpVar(i,j) = 0. |
|
./verification/rotating_tank/code/apply_forcing.F |
592 |
APPLY_FORCING_T |
tmpVar(i,j) = wVel(i,j,kc,bi,bj)*delPI*atm_Rq |
|
./verification/rotating_tank/code/apply_forcing.F |
604 |
APPLY_FORCING_T |
tmpVar(i,j) = tmpVar(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
615 |
APPLY_FORCING_T |
& + tmpVar(i,j)*tmpFac |
|
./verification/rotating_tank/code/apply_forcing.F |
623 |
APPLY_FORCING_T |
CALL DIAGNOSTICS_SCALE_FILL( tmpVar, tmpFac, 1, |
|
./verification/rotating_tank/code/apply_forcing.F |
64 |
APPLY_FORCING_U |
_RL tmpVar |
|
./verification/rotating_tank/code/apply_forcing.F |
82 |
APPLY_FORCING_U |
tmpVar = gU(i,j,k,bi,bj) - locVar(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
84 |
APPLY_FORCING_U |
gU_arr(i,j) = gU_arr(i,j) + tmpVar |
|
./verification/rotating_tank/code/apply_forcing.F |
877 |
APPLY_FORCING_S |
_RL tmpVar |
|
./verification/rotating_tank/code/apply_forcing.F |
895 |
APPLY_FORCING_S |
tmpVar = gS(i,j,k,bi,bj) - locVar(i,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
897 |
APPLY_FORCING_S |
gS_arr(i,j) = gS_arr(i,j) + tmpVar |
|
./model/src/set_parms.F |
269 |
SET_PARMS |
tmpVar = startTime + deltaTClock*DFLOAT(nTimeSteps) |
|
./model/src/set_parms.F |
270 |
SET_PARMS |
IF ( endTime.NE.tmpVar ) THEN |
|
./model/src/set_parms.F |
271 |
SET_PARMS |
IF ( ABS(endTime-tmpVar).GT.deltaTClock*1. _d -6 ) THEN |
|
./model/src/set_parms.F |
281 |
SET_PARMS |
& 'Adjusted endTime=', tmpVar |
|
./model/src/set_parms.F |
285 |
SET_PARMS |
endTime = tmpVar |
|
./model/src/set_parms.F |
42 |
SET_PARMS |
_RL tmpVar |
|
./model/src/solve_for_pressure.F |
352 |
SOLVE_FOR_PRESSURE |
tmpVar(i,j) = implicSurfPress * cg2d_x(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
357 |
SOLVE_FOR_PRESSURE |
CALL DIAGNOSTICS_FILL( tmpVar,diagName,1,1,2,bi,bj,myThid ) |
|
./model/src/solve_for_pressure.F |
74 |
SOLVE_FOR_PRESSURE |
_RL tmpVar (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
55 |
PTRACERS_FORCING_SURF |
_RL epsil, cutoff, tmpVar |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
91 |
PTRACERS_FORCING_SURF |
tmpVar = MAX( salt(i,j,ks,bi,bj), epsil ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
92 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = relaxForcingS(i,j)/tmpVar |
|
./model/src/solve_pentadiagonal.F |
256 |
SOLVE_PENTADIAGONAL |
tmpVar = c5d_prime(k) |
|
./model/src/solve_pentadiagonal.F |
257 |
SOLVE_PENTADIAGONAL |
IF ( tmpVar.NE.0. _d 0 ) THEN |
|
./model/src/solve_pentadiagonal.F |
258 |
SOLVE_PENTADIAGONAL |
recVar = 1. _d 0 / tmpVar |
|
./model/src/solve_pentadiagonal.F |
351 |
SOLVE_PENTADIAGONAL |
tmpVar = c5d_prime(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
352 |
SOLVE_PENTADIAGONAL |
IF ( tmpVar.NE.0. _d 0 ) THEN |
|
./model/src/solve_pentadiagonal.F |
353 |
SOLVE_PENTADIAGONAL |
recVar = 1. _d 0 / tmpVar |
|
./model/src/solve_pentadiagonal.F |
71 |
SOLVE_PENTADIAGONAL |
_RL tmpVar, recVar |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
68 |
EXTERNAL_FORCING_SURF |
_RS tmpVar(1) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
89 |
EXTERNAL_FORCING_SURF |
tmpVar(1) = oneRS |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
91 |
EXTERNAL_FORCING_SURF |
CALL REMOVE_MEAN_RS( 1, EmPmR, maskInC, maskInC, rA, tmpVar, |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
95 |
EXTERNAL_FORCING_SURF |
CALL REMOVE_MEAN_RS( 1, Qnet, maskInC, maskInC, rA, tmpVar, |
|
./model/src/solve_tridiagonal.F |
103 |
SOLVE_TRIDIAGONAL |
tmpVar = b3d(i,j,k) - a3d(i,j,k)*c3d(i,j,k-1)*b3d(i,j,k-1) |
|
./model/src/solve_tridiagonal.F |
104 |
SOLVE_TRIDIAGONAL |
IF ( tmpVar .NE. 0. _d 0 ) THEN |
|
./model/src/solve_tridiagonal.F |
105 |
SOLVE_TRIDIAGONAL |
b3d(i,j,k) = 1. _d 0 / tmpVar |
|
./model/src/solve_tridiagonal.F |
180 |
SOLVE_TRIDIAGONAL |
tmpVar = b3d(i,j,k) - a3d(i,j,k)*c3d_prime(k-1) |
|
./model/src/solve_tridiagonal.F |
181 |
SOLVE_TRIDIAGONAL |
IF ( tmpVar .NE. 0. _d 0 ) THEN |
|
./model/src/solve_tridiagonal.F |
182 |
SOLVE_TRIDIAGONAL |
recVar = 1. _d 0 / tmpVar |
|
./model/src/solve_tridiagonal.F |
243 |
SOLVE_TRIDIAGONAL |
tmpVar = b3d(i,j,k) - a3d(i,j,k)*c3d_prime(i,j,k-1) |
|
./model/src/solve_tridiagonal.F |
244 |
SOLVE_TRIDIAGONAL |
IF ( tmpVar .NE. 0. _d 0 ) THEN |
|
./model/src/solve_tridiagonal.F |
245 |
SOLVE_TRIDIAGONAL |
recVar = 1. _d 0 / tmpVar |
|
./model/src/solve_tridiagonal.F |
66 |
SOLVE_TRIDIAGONAL |
_RL tmpVar |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
68 |
EXTERNAL_FORCING_SURF |
_RS tmpVar(1) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
89 |
EXTERNAL_FORCING_SURF |
tmpVar(1) = oneRS |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
91 |
EXTERNAL_FORCING_SURF |
CALL REMOVE_MEAN_RS( 1, EmPmR, maskInC, maskInC, rA, tmpVar, |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
95 |
EXTERNAL_FORCING_SURF |
CALL REMOVE_MEAN_RS( 1, Qnet, maskInC, maskInC, rA, tmpVar, |
|
./model/src/solve_uv_tridiago.F |
114 |
SOLVE_UV_TRIDIAGO |
tmpVar = bU(i,j,k,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
115 |
SOLVE_UV_TRIDIAGO |
IF ( tmpVar.NE.0. _d 0 ) THEN |
|
./model/src/solve_uv_tridiago.F |
116 |
SOLVE_UV_TRIDIAGO |
tmpVar = 1. _d 0 / tmpVar |
|
./model/src/solve_uv_tridiago.F |
118 |
SOLVE_UV_TRIDIAGO |
tmpVar = 0. _d 0 |
|
./model/src/solve_uv_tridiago.F |
121 |
SOLVE_UV_TRIDIAGO |
gamU(i,j,bi,bj) = gamU(i,j,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
122 |
SOLVE_UV_TRIDIAGO |
alpU(i,j,bi,bj) = alpU(i,j,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
123 |
SOLVE_UV_TRIDIAGO |
yy_U(i,j,bi,bj) = yy_U(i,j,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
131 |
SOLVE_UV_TRIDIAGO |
tmpVar = bU(i,j,k,bi,bj) - alpU(i,j,bi,bj)*gamU(im,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
132 |
SOLVE_UV_TRIDIAGO |
IF ( tmpVar.NE.0. _d 0 ) THEN |
|
./model/src/solve_uv_tridiago.F |
133 |
SOLVE_UV_TRIDIAGO |
tmpVar = 1. _d 0 / tmpVar |
|
./model/src/solve_uv_tridiago.F |
135 |
SOLVE_UV_TRIDIAGO |
tmpVar = 0. _d 0 |
|
./model/src/solve_uv_tridiago.F |
140 |
SOLVE_UV_TRIDIAGO |
& )*tmpVar |
|
./model/src/solve_uv_tridiago.F |
141 |
SOLVE_UV_TRIDIAGO |
gamU(i,j,bi,bj) = gamU(i,j,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
142 |
SOLVE_UV_TRIDIAGO |
alpU(i,j,bi,bj) = - alpU(i,j,bi,bj)*alpU(im,j,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
201 |
SOLVE_UV_TRIDIAGO |
tmpVar = oneRL - aTu(1,j,bi,bj)*cTu(2,j,bm,bj) |
|
./model/src/solve_uv_tridiago.F |
202 |
SOLVE_UV_TRIDIAGO |
IF ( tmpVar.NE.0. _d 0 ) THEN |
|
./model/src/solve_uv_tridiago.F |
203 |
SOLVE_UV_TRIDIAGO |
tmpVar = 1. _d 0 / tmpVar |
|
./model/src/solve_uv_tridiago.F |
205 |
SOLVE_UV_TRIDIAGO |
tmpVar = 0. _d 0 |
|
./model/src/solve_uv_tridiago.F |
210 |
SOLVE_UV_TRIDIAGO |
& )*tmpVar |
|
./model/src/solve_uv_tridiago.F |
211 |
SOLVE_UV_TRIDIAGO |
cTu(1,j,bi,bj) = cTu(1,j,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
212 |
SOLVE_UV_TRIDIAGO |
aTu(1,j,bi,bj) = - aTu(1,j,bi,bj)*aTu(2,j,bm,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
215 |
SOLVE_UV_TRIDIAGO |
tmpVar = aTu(2,j,bi,bj)*cTu(2,j,bm,bj) |
|
./model/src/solve_uv_tridiago.F |
218 |
SOLVE_UV_TRIDIAGO |
& + tmpVar*yTu(1,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
220 |
SOLVE_UV_TRIDIAGO |
& + tmpVar*cTu(1,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
222 |
SOLVE_UV_TRIDIAGO |
& + tmpVar*aTu(1,j,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
244 |
SOLVE_UV_TRIDIAGO |
tmpVar = cTu(1,j,bm,bj) * aTu(2,j,bp,bj) |
|
./model/src/solve_uv_tridiago.F |
246 |
SOLVE_UV_TRIDIAGO |
IF ( tmpVar.NE.0. _d 0 ) THEN |
|
./model/src/solve_uv_tridiago.F |
247 |
SOLVE_UV_TRIDIAGO |
tmpVar = 1. _d 0 / tmpVar |
|
./model/src/solve_uv_tridiago.F |
249 |
SOLVE_UV_TRIDIAGO |
tmpVar = 0. _d 0 |
|
./model/src/solve_uv_tridiago.F |
254 |
SOLVE_UV_TRIDIAGO |
& )*tmpVar |
|
./model/src/solve_uv_tridiago.F |
257 |
SOLVE_UV_TRIDIAGO |
& )*tmpVar |
|
./model/src/solve_uv_tridiago.F |
313 |
SOLVE_UV_TRIDIAGO |
tmpVar = bV(i,j,k,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
314 |
SOLVE_UV_TRIDIAGO |
IF ( tmpVar.NE.0. _d 0 ) THEN |
|
./model/src/solve_uv_tridiago.F |
315 |
SOLVE_UV_TRIDIAGO |
tmpVar = 1. _d 0 / tmpVar |
|
./model/src/solve_uv_tridiago.F |
317 |
SOLVE_UV_TRIDIAGO |
tmpVar = 0. _d 0 |
|
./model/src/solve_uv_tridiago.F |
320 |
SOLVE_UV_TRIDIAGO |
gamV(i,j,bi,bj) = gamV(i,j,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
321 |
SOLVE_UV_TRIDIAGO |
alpV(i,j,bi,bj) = alpV(i,j,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
322 |
SOLVE_UV_TRIDIAGO |
yy_V(i,j,bi,bj) = yy_V(i,j,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
330 |
SOLVE_UV_TRIDIAGO |
tmpVar = bV(i,j,k,bi,bj) - alpV(i,j,bi,bj)*gamV(i,jm,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
331 |
SOLVE_UV_TRIDIAGO |
IF ( tmpVar.NE.0. _d 0 ) THEN |
|
./model/src/solve_uv_tridiago.F |
332 |
SOLVE_UV_TRIDIAGO |
tmpVar = 1. _d 0 / tmpVar |
|
./model/src/solve_uv_tridiago.F |
334 |
SOLVE_UV_TRIDIAGO |
tmpVar = 0. _d 0 |
|
./model/src/solve_uv_tridiago.F |
339 |
SOLVE_UV_TRIDIAGO |
& )*tmpVar |
|
./model/src/solve_uv_tridiago.F |
340 |
SOLVE_UV_TRIDIAGO |
gamV(i,j,bi,bj) = gamV(i,j,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
341 |
SOLVE_UV_TRIDIAGO |
alpV(i,j,bi,bj) = - alpV(i,j,bi,bj)*alpV(i,jm,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
388 |
SOLVE_UV_TRIDIAGO |
tmpVar = oneRL - aTv(1,i,bi,bj)*cTv(2,i,bi,bm) |
|
./model/src/solve_uv_tridiago.F |
389 |
SOLVE_UV_TRIDIAGO |
IF ( tmpVar.NE.0. _d 0 ) THEN |
|
./model/src/solve_uv_tridiago.F |
390 |
SOLVE_UV_TRIDIAGO |
tmpVar = 1. _d 0 / tmpVar |
|
./model/src/solve_uv_tridiago.F |
392 |
SOLVE_UV_TRIDIAGO |
tmpVar = 0. _d 0 |
|
./model/src/solve_uv_tridiago.F |
397 |
SOLVE_UV_TRIDIAGO |
& )*tmpVar |
|
./model/src/solve_uv_tridiago.F |
398 |
SOLVE_UV_TRIDIAGO |
cTv(1,i,bi,bj) = cTv(1,i,bi,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
399 |
SOLVE_UV_TRIDIAGO |
aTv(1,i,bi,bj) = - aTv(1,i,bi,bj)*aTv(2,i,bi,bm)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
402 |
SOLVE_UV_TRIDIAGO |
tmpVar = aTv(2,i,bi,bj)*cTv(2,i,bi,bm) |
|
./model/src/solve_uv_tridiago.F |
405 |
SOLVE_UV_TRIDIAGO |
& + tmpVar*yTv(1,i,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
407 |
SOLVE_UV_TRIDIAGO |
& + tmpVar*cTv(1,i,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
409 |
SOLVE_UV_TRIDIAGO |
& + tmpVar*aTv(1,i,bi,bj) |
|
./model/src/solve_uv_tridiago.F |
431 |
SOLVE_UV_TRIDIAGO |
tmpVar = cTv(1,i,bi,bm) * aTv(2,i,bi,bp) |
|
./model/src/solve_uv_tridiago.F |
433 |
SOLVE_UV_TRIDIAGO |
IF ( tmpVar.NE.0. _d 0 ) THEN |
|
./model/src/solve_uv_tridiago.F |
434 |
SOLVE_UV_TRIDIAGO |
tmpVar = 1. _d 0 / tmpVar |
|
./model/src/solve_uv_tridiago.F |
436 |
SOLVE_UV_TRIDIAGO |
tmpVar = 0. _d 0 |
|
./model/src/solve_uv_tridiago.F |
441 |
SOLVE_UV_TRIDIAGO |
& )*tmpVar |
|
./model/src/solve_uv_tridiago.F |
444 |
SOLVE_UV_TRIDIAGO |
& )*tmpVar |
|
./model/src/solve_uv_tridiago.F |
81 |
SOLVE_UV_TRIDIAGO |
_RL tmpVar |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
54 |
PTRACERS_FORCING_SURF |
_RL epsil, cutoff, tmpVar |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
86 |
PTRACERS_FORCING_SURF |
tmpVar = MAX( salt(i,j,ks,bi,bj), epsil ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
87 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = relaxForcingS(i,j)/tmpVar |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
54 |
PTRACERS_FORCING_SURF |
_RL epsil, cutoff, tmpVar |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
86 |
PTRACERS_FORCING_SURF |
tmpVar = MAX( salt(i,j,ks,bi,bj), epsil ) |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
87 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = relaxForcingS(i,j)/tmpVar |
|
./model/src/write_grid.F |
149 |
WRITE_GRID |
tmpVar(k) = phiRef(2*k-1) |
|
./model/src/write_grid.F |
151 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'PHrefF',' ',tmpVar,1+Nr,-1, myThid ) |
|
./model/src/write_grid.F |
153 |
WRITE_GRID |
tmpVar(k) = phiRef(2*k) |
|
./model/src/write_grid.F |
155 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'PHrefC',' ',tmpVar, Nr, -1, myThid ) |
|
./model/src/write_grid.F |
51 |
WRITE_GRID |
_RS tmpVar(Nr+1) |
|
./pkg/aim_v23/aim_diagnostics.F |
438 |
AIM_DIAGNOSTICS |
tmpVar(J) = EnPrec(J,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
441 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( tmpVar, |
|
./pkg/aim_v23/aim_diagnostics.F |
61 |
AIM_DIAGNOSTICS |
_RL tmpVar(NGP) |
|
./pkg/aim_v23/aim_initialise.F |
47 |
AIM_INITIALISE |
_RL pGround, tmpPgrnd, tmpVar |
|
./pkg/aim_v23/aim_initialise.F |
89 |
AIM_INITIALISE |
tmpVar = Ro_surf(i,j,bi,bj) |
|
./pkg/aim_v23/aim_initialise.F |
91 |
AIM_INITIALISE |
truncSurfP(i,j,bi,bj) = ( tmpVar/tmpPgrnd )**atm_kappa |
|
./pkg/aim_v23/aim_initialise.F |
97 |
AIM_INITIALISE |
tmpVar = Ro_surf(i,j,bi,bj) |
|
./pkg/aim_v23/aim_initialise.F |
98 |
AIM_INITIALISE |
truncSurfP(i,j,bi,bj) = ( tmpVar/atm_Po )**atm_kappa |
|
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F |
104 |
CPL_CHECK_CPLCONFIG |
IF ( tmpVar(i,j) ) THEN |
|
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F |
44 |
CPL_CHECK_CPLCONFIG |
LOGICAL tmpVar(Nx_atm,Ny_atm) |
|
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F |
74 |
CPL_CHECK_CPLCONFIG |
tmpVar(i,j) = landMask_atm(i,j) .EQ. 1. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F |
87 |
CPL_CHECK_CPLCONFIG |
tmpVar(i,j) = .FALSE. |
|
./pkg/cfc/cfc_atmos.F |
42 |
CFC_ATMOS |
_RL tmpVar(5) |
|
./pkg/cfc/cfc_atmos.F |
78 |
CFC_ATMOS |
READ(iUnit,*,END=1001) (tmpVar(i),i=1,5) |
|
./pkg/cfc/cfc_atmos.F |
81 |
CFC_ATMOS |
ACFCyear(it) = tmpVar(1) |
|
./pkg/cfc/cfc_atmos.F |
82 |
CFC_ATMOS |
ACFC11(it,1) = tmpVar(2) |
|
./pkg/cfc/cfc_atmos.F |
83 |
CFC_ATMOS |
ACFC12(it,1) = tmpVar(3) |
|
./pkg/cfc/cfc_atmos.F |
84 |
CFC_ATMOS |
ACFC11(it,2) = tmpVar(4) |
|
./pkg/cfc/cfc_atmos.F |
85 |
CFC_ATMOS |
ACFC12(it,2) = tmpVar(5) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
188 |
CHEAPAML_INIT_FIXED |
tmpVar = xmw |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
189 |
CHEAPAML_INIT_FIXED |
tmpVar = oneRL / tmpVar |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
196 |
CHEAPAML_INIT_FIXED |
IF (iG.LE.xmw) xmf = oneRL - (iG-1 )*tmpVar |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
197 |
CHEAPAML_INIT_FIXED |
IF (iG.GE.Nx-xmw+1) xmf = oneRL - (Nx-iG)*tmpVar |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
201 |
CHEAPAML_INIT_FIXED |
& xmf = MAX( xmf, oneRL - (jG-1 )*tmpVar ) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
203 |
CHEAPAML_INIT_FIXED |
& xmf = MAX( xmf, oneRL - (Ny-jG)*tmpVar ) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
231 |
CHEAPAML_INIT_FIXED |
tmpVar = oneRL/cheap_tauRelax |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
234 |
CHEAPAML_INIT_FIXED |
xgs(i,j,bi,bj) = relaxMask(i,j,bi,bj)*tmpVar |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
240 |
CHEAPAML_INIT_FIXED |
tmpVar = oneRL/cheap_tauRelaxOce |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
243 |
CHEAPAML_INIT_FIXED |
xgs(i,j,bi,bj) = MAX( xgs(i,j,bi,bj), tmpVar ) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
250 |
CHEAPAML_INIT_FIXED |
tmpVar = xgs(i,j,bi,bj)*deltaT |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
251 |
CHEAPAML_INIT_FIXED |
xrelf(i,j,bi,bj)= tmpVar/( oneRL + tmpVar ) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
46 |
CHEAPAML_INIT_FIXED |
_RL xmf, tmpVar |
|
./pkg/diagnostics/diagstats_set_regions.F |
103 |
DIAGSTATS_SET_REGIONS |
_EXCH_XY_RS( tmpVar, myThid ) |
|
./pkg/diagnostics/diagstats_set_regions.F |
108 |
DIAGSTATS_SET_REGIONS |
diagSt_regMask(i,j,k,bi,bj) = tmpVar(i,j,bi,bj) |
|
./pkg/diagnostics/diagstats_set_regions.F |
44 |
DIAGSTATS_SET_REGIONS |
_RS tmpVar(1-OLx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |
|
./pkg/diagnostics/diagstats_set_regions.F |
45 |
DIAGSTATS_SET_REGIONS |
COMMON / SET_REGIONS_LOCAL / tmpVar |
|
./pkg/diagnostics/diagstats_set_regions.F |
98 |
DIAGSTATS_SET_REGIONS |
CALL READ_REC_XY_RS( diagSt_regMaskFile, tmpVar, k, |
|
./pkg/ecco/cost_gencost_boxmean.F |
132 |
COST_GENCOST_BOXMEAN |
& 1, tmpVar, dummyRS, 0, 0, iRec, myThid ) |
|
./pkg/ecco/cost_gencost_boxmean.F |
133 |
COST_GENCOST_BOXMEAN |
gencost_mskTemporal = tmpVar(1) |
|
./pkg/ecco/cost_gencost_boxmean.F |
62 |
COST_GENCOST_BOXMEAN |
_RL tmpVar(1) |