| File |
Line number |
Procedure |
Code |
|
./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/ptracers/ptracers_forcing_surf.F |
54 |
PTRACERS_FORCING_SURF |
_RL epsil, cutoff, tmpVar |
|
./pkg/ptracers/ptracers_forcing_surf.F |
86 |
PTRACERS_FORCING_SURF |
tmpVar = MAX( salt(i,j,ks,bi,bj), epsil ) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
87 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = relaxForcingS(i,j)/tmpVar |
|
./pkg/thsice/thsice_advdiff.F |
103 |
THSICE_ADVDIFF |
_RL tmpVar, sumVar1, sumVar2 |
|
./pkg/thsice/thsice_advdiff.F |
260 |
THSICE_ADVDIFF |
tmpVar = ABS(iceVol(i,j)-iceFrc(i,j)*rA(i,j,bi,bj)) |
|
./pkg/thsice/thsice_advdiff.F |
261 |
THSICE_ADVDIFF |
IF ( tmpVar.GT.0. ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
263 |
THSICE_ADVDIFF |
sumVar2 = sumVar2 + tmpVar |
|
./pkg/thsice/thsice_advdiff.F |
265 |
THSICE_ADVDIFF |
IF ( tmpVar.GT.vol_Epsil ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
270 |
THSICE_ADVDIFF |
& ' , diff=', tmpVar |
|
./pkg/thsice/thsice_advdiff.F |
370 |
THSICE_ADVDIFF |
tmpVar = ABS(iceVol(i,j) |
|
./pkg/thsice/thsice_advdiff.F |
372 |
THSICE_ADVDIFF |
IF ( tmpVar.GT.0. ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
374 |
THSICE_ADVDIFF |
sumVar2 = sumVar2 + tmpVar |
|
./pkg/thsice/thsice_advdiff.F |
376 |
THSICE_ADVDIFF |
IF ( tmpVar.GT.vol_Epsil ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
381 |
THSICE_ADVDIFF |
& ' , diff=', 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/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
54 |
PTRACERS_FORCING_SURF |
_RL epsil, cutoff, tmpVar |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
87 |
PTRACERS_FORCING_SURF |
tmpVar = MAX( salt(i,j,ks,bi,bj), epsil ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
88 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = relaxForcingS(i,j)/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 |
|
./model/src/pre_cg3d.F |
129 |
PRE_CG3D |
tmpVar(i,j) = freeSurfFac |
|
./model/src/pre_cg3d.F |
140 |
PRE_CG3D |
& + tmpVar(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/pre_cg3d.F |
68 |
PRE_CG3D |
_RL tmpVar(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./model/src/set_parms.F |
158 |
SET_PARMS |
tmpVar = startTime + deltaTClock*FLOAT(nTimeSteps) |
|
./model/src/set_parms.F |
159 |
SET_PARMS |
IF ( endTime.NE.tmpVar ) THEN |
|
./model/src/set_parms.F |
160 |
SET_PARMS |
IF ( ABS(endTime-tmpVar).GT.deltaTClock*1. _d -6 ) THEN |
|
./model/src/set_parms.F |
170 |
SET_PARMS |
& 'Adjusted endTime=', tmpVar |
|
./model/src/set_parms.F |
174 |
SET_PARMS |
endTime = tmpVar |
|
./model/src/set_parms.F |
35 |
SET_PARMS |
_RL tmpVar |
|
./model/src/write_grid.F |
127 |
WRITE_GRID |
tmpVar(k) = phiRef(2*k-1) |
|
./model/src/write_grid.F |
129 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'PHrefF',' ',tmpVar,1+Nr,-1, myThid ) |
|
./model/src/write_grid.F |
131 |
WRITE_GRID |
tmpVar(k) = phiRef(2*k) |
|
./model/src/write_grid.F |
133 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'PHrefC',' ',tmpVar, Nr, -1, myThid ) |
|
./model/src/write_grid.F |
47 |
WRITE_GRID |
_RS tmpVar(Nr+1) |
|
./pkg/aim_v23/aim_diagnostics.F |
427 |
AIM_DIAGNOSTICS |
tmpVar(J) = EnPrec(J,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
430 |
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/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/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 |