| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_phys.F |
203 |
ECCO_PHYS |
& *(theta(i,j,k,bi,bj)+theta(i-1,j,k,bi,bj))*halfRL |
|
./pkg/ecco/ecco_phys.F |
206 |
ECCO_PHYS |
& *(theta(i,j,k,bi,bj)+theta(i,j-1,k,bi,bj))*halfRL |
|
./pkg/ecco/ecco_phys.F |
210 |
ECCO_PHYS |
& *(salt(i,j,k,bi,bj)+salt(i-1,j,k,bi,bj))*halfRL |
|
./pkg/ecco/ecco_phys.F |
213 |
ECCO_PHYS |
& *(salt(i,j,k,bi,bj)+salt(i,j-1,k,bi,bj))*halfRL |
|
./pkg/exf/exf_getffieldrec.F |
223 |
EXF_GETFFIELDREC |
locTime = myTime - fldStartTime + fldPeriod*halfRL |
|
./pkg/ggl90/ggl90_calc.F |
443 |
GGL90_CALC |
& ( tempU*tempU + tempUp*tempUp )*halfRL |
|
./pkg/ggl90/ggl90_calc.F |
444 |
GGL90_CALC |
& + ( tempV*tempV + tempVp*tempVp )*halfRL |
|
./pkg/ggl90/ggl90_calc.F |
454 |
GGL90_CALC |
& )*halfRL*recip_drC(k) |
|
./pkg/ggl90/ggl90_calc.F |
457 |
GGL90_CALC |
& )*halfRL*recip_drC(k) |
|
./pkg/ggl90/ggl90_calc.F |
735 |
GGL90_CALC |
tmpVisc = _maskW(i,j,k,bi,bj) * halfRL |
|
./pkg/ggl90/ggl90_calc.F |
765 |
GGL90_CALC |
tmpVisc = _maskS(i,j,k,bi,bj) * halfRL |
|
./pkg/ggl90/ggl90_calc.F |
808 |
GGL90_CALC |
& halfRL*( surfaceForcingU(i, j,bi,bj)*uVel(i ,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
810 |
GGL90_CALC |
& + halfRL*( surfaceForcingV(i,j, bi,bj)*vVel(i,j ,k,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
221 |
CALC_GRAD_PHI_HYD |
factorP = halfRL*atm_Cp*(rC(k)/atm_Po)**atm_kappa |
|
./model/src/calc_grid_angles.F |
100 |
CALC_GRID_ANGLES |
& ( yG(i,j,bi,bj) + yG(i,j+1,bi,bj) )*halfRL ) |
|
./model/src/calc_grid_angles.F |
118 |
CALC_GRID_ANGLES |
& ( yG(i,j,bi,bj) + yG(i+1,j,bi,bj) )*halfRL ) |
|
./model/src/calc_gw.F |
368 |
CALC_GW |
& - (viscAh_W(i,j,k,bi,bj)+viscAh_W(i-1,j,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
372 |
CALC_GW |
& + (viscA4_W(i,j,k,bi,bj)+viscA4_W(i-1,j,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
386 |
CALC_GW |
& - (viscAh_W(i,j,k,bi,bj)+viscAh_W(i,j-1,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
392 |
CALC_GW |
& + (viscA4_W(i,j,k,bi,bj)+viscA4_W(i,j-1,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
504 |
CALC_GW |
& )*halfRL*_dyG(i,j,bi,bj)*deepFacF(k) |
|
./model/src/calc_gw.F |
505 |
CALC_GW |
flx_EW(i,j) = uTrans*(wFld(i,j)+wFld(i-1,j))*halfRL |
|
./model/src/calc_gw.F |
519 |
CALC_GW |
& )*halfRL*_dxG(i,j,bi,bj)*deepFacF(k) |
|
./model/src/calc_gw.F |
520 |
CALC_GW |
flx_NS(i,j) = vTrans*(wFld(i,j)+wFld(i,j-1))*halfRL |
|
./model/src/calc_gw.F |
531 |
CALC_GW |
tmp_WbarZ = halfRL* |
|
./model/src/calc_gw.F |
535 |
CALC_GW |
rTrans = halfRL* |
|
./model/src/calc_phi_hyd.F |
232 |
CALC_PHI_HYD |
& + halfRL*drF(k)*gravFacC(k)*gravity |
|
./model/src/calc_phi_hyd.F |
251 |
CALC_PHI_HYD |
& + halfRL*drF(k)*gravFacC(k)*gravity |
|
./model/src/calc_phi_hyd.F |
255 |
CALC_PHI_HYD |
& + halfRL*drF(k)*gravFacC(k)*gravity |
|
./model/src/calc_phi_hyd.F |
267 |
CALC_PHI_HYD |
dRlocM = halfRL*drC(k)*gravFacF(k) |
|
./model/src/calc_phi_hyd.F |
272 |
CALC_PHI_HYD |
dRlocP = halfRL*drC(k+1)*gravFacF(k+1) |
|
./model/src/calc_phi_hyd.F |
385 |
CALC_PHI_HYD |
phiHydC(i,j) = phiHydF(i,j) + halfRL*drF(k)*alphaRho(i,j) |
|
./model/src/calc_phi_hyd.F |
389 |
CALC_PHI_HYD |
phiHydF(i,j) = phiHydC(i,j) + halfRL*drF(k)*alphaRho(i,j) |
|
./model/src/calc_phi_hyd.F |
397 |
CALC_PHI_HYD |
dRlocM = halfRL*drC(k) |
|
./model/src/calc_phi_hyd.F |
402 |
CALC_PHI_HYD |
dRlocP=halfRL*drC(k+1) |
|
./model/src/calc_phi_hyd.F |
516 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) )*halfRL |
|
./model/src/calc_phi_hyd.F |
523 |
CALC_PHI_HYD |
& -((rC(k+1)/atm_Po)**atm_kappa) )*halfRL |
|
./model/src/calc_phi_hyd.F |
582 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) )*halfRL |
|
./model/src/calc_phi_hyd.F |
589 |
CALC_PHI_HYD |
& -((rC(k+1)/atm_Po)**atm_kappa) )*halfRL |
|
./pkg/mom_common/mom_calc_3d_strain.F |
110 |
MOM_CALC_3D_STRAIN |
str12(i,j,k) = halfRL*( |
|
./pkg/mom_common/mom_calc_3d_strain.F |
131 |
MOM_CALC_3D_STRAIN |
str13(i,j,k) = halfRL*( |
|
./pkg/mom_common/mom_calc_3d_strain.F |
141 |
MOM_CALC_3D_STRAIN |
str23(i,j,k) = halfRL*( |
|
./pkg/mom_common/mom_calc_3d_strain.F |
153 |
MOM_CALC_3D_STRAIN |
str13(i,j,k) = halfRL*( |
|
./pkg/mom_common/mom_calc_3d_strain.F |
164 |
MOM_CALC_3D_STRAIN |
str23(i,j,k) = halfRL*( |
|
./pkg/mom_common/mom_calc_visc.F |
547 |
MOM_CALC_VISC |
viscAh_W(i,j,k+1,bi,bj) = halfRL*viscAh_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
548 |
MOM_CALC_VISC |
viscA4_W(i,j,k+1,bi,bj) = halfRL*viscA4_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
568 |
MOM_CALC_VISC |
& + halfRL*viscAh_D(i,j) |
|
./pkg/mom_common/mom_calc_visc.F |
570 |
MOM_CALC_VISC |
& + halfRL*viscA4_D(i,j) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
107 |
MOM_U_BOTDRAG_IMPL |
& + halfRL*( bottomDragFld(i-1,j,bi,bj) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
103 |
MOM_U_BOTTOMDRAG |
& + halfRL*( bottomDragFld(i-1,j,bi,bj) |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
107 |
MOM_V_BOTDRAG_IMPL |
& + halfRL*( bottomDragFld(i,j-1,bi,bj) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
103 |
MOM_V_BOTTOMDRAG |
& + halfRL*( bottomDragFld(i,j-1,bi,bj) |
|
./pkg/monitor/mon_ke.F |
210 |
MON_KE |
& ( yG(i,j,bi,bj) + yG(i,j+1,bi,bj) )*halfRL ) |
|
./pkg/monitor/mon_ke.F |
249 |
MON_KE |
& ( yG(i,j,bi,bj) + yG(i+1,j,bi,bj) )*halfRL ) |
|
./model/src/diags_phi_rlow.F |
101 |
DIAGS_PHI_RLOW |
IF (k.GT.1 ) ratioRm = halfRL*drC(k)/(rF(k)-rC(k)) |
|
./model/src/diags_phi_rlow.F |
102 |
DIAGS_PHI_RLOW |
IF (k.LT.Nr) ratioRp = halfRL*drC(k+1)/(rC(k)-rF(k+1)) |
|
./model/src/find_hyd_press_1d.F |
100 |
FIND_HYD_PRESS_1D |
dRlocP = halfRL*drC(k+1) |
|
./model/src/find_hyd_press_1d.F |
93 |
FIND_HYD_PRESS_1D |
& + rhoCen(k)*gravity*gravFacC(k)*drF(k)*halfRL |
|
./model/src/find_hyd_press_1d.F |
99 |
FIND_HYD_PRESS_1D |
dRlocM = halfRL*drC(k) |
|
./pkg/seaice/seaice_get_dynforcing.F |
290 |
SEAICE_GET_DYNFORCING |
& + icFrac(i-1,j,bi,bj) )*halfRL |
|
./pkg/seaice/seaice_get_dynforcing.F |
305 |
SEAICE_GET_DYNFORCING |
& + icFrac(i,j-1,bi,bj) )*halfRL |
|
./pkg/shelfice/shelfice_thermodynamics.F |
294 |
SHELFICE_THERMODYNAMICS |
uLoc(I,J) = recip_hFacC(I,J,K,bi,bj) * halfRL * |
|
./pkg/shelfice/shelfice_thermodynamics.F |
297 |
SHELFICE_THERMODYNAMICS |
vLoc(I,J) = recip_hFacC(I,J,K,bi,bj) * halfRL * |
|
./pkg/shelfice/shelfice_thermodynamics.F |
325 |
SHELFICE_THERMODYNAMICS |
& + drKp1 * recip_hFacC(I,J,Kp1,bi,bj) * halfRL * |
|
./pkg/shelfice/shelfice_thermodynamics.F |
330 |
SHELFICE_THERMODYNAMICS |
& + drKp1 * recip_hFacC(I,J,Kp1,bi,bj) * halfRL * |
|
./model/src/ini_masks_etc.F |
119 |
INI_MASKS_ETC |
IF ( hFacCtmp.LT.hFacMnSz*halfRL ) THEN |
|
./model/src/ini_masks_etc.F |
164 |
INI_MASKS_ETC |
IF ( hFacCtmp.LT.hFacMnSz*halfRL ) THEN |
|
./model/src/ini_masks_etc.F |
289 |
INI_MASKS_ETC |
IF ( hFacCtmp.LT.hFacMnSz*halfRL ) THEN |
|
./model/src/ini_masks_etc.F |
299 |
INI_MASKS_ETC |
IF ( hFacCtmp.LT.hFacMnSz*halfRL ) THEN |
|
./model/src/ini_masks_etc.F |
313 |
INI_MASKS_ETC |
IF ( hFacCtmp.LT.hFacMnSz*halfRL ) THEN |
|
./model/src/ini_masks_etc.F |
323 |
INI_MASKS_ETC |
IF ( hFacCtmp.LT.hFacMnSz*halfRL ) THEN |
|
./model/src/ini_masks_etc.F |
392 |
INI_MASKS_ETC |
tmpVar1(i,j) = ( tmpVar1(i,j) -rSurfW(i,j,bi,bj) )*halfRL |
|
./model/src/ini_masks_etc.F |
405 |
INI_MASKS_ETC |
tmpVar2(i,j) = ( tmpVar2(i,j) -rSurfS(i,j,bi,bj) )*halfRL |
|
./model/src/set_ref_state.F |
105 |
SET_REF_STATE |
& + halfRL*drF(k)*gravity*gravFacC(k) |
|
./model/src/set_ref_state.F |
114 |
SET_REF_STATE |
& + halfRL*drC(k)*gravity*gravFacF(k) |
|
./pkg/aim_v23/aim_tendency_apply.F |
158 |
AIM_TENDENCY_APPLY_U |
& - halfRL * ( aim_dKE( i, j)*rAw( i, j,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
346 |
AIM_TENDENCY_APPLY_V |
& - halfRL * ( aim_dKE(i, j )*rAs(i, j, bi,bj) |
|
./pkg/atm_phys/atm_phys_driver.F |
518 |
ATM_PHYS_DRIVER |
fu(i,j,bi,bj) = halfRL |
|
./pkg/atm_phys/atm_phys_driver.F |
520 |
ATM_PHYS_DRIVER |
fv(i,j,bi,bj) = halfRL |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
152 |
ATM_PHYS_TENDENCY_APPLY_V |
& + halfRL *( atmPhys_dV(i,j-1,k,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
174 |
ATM_PHYS_TENDENCY_APPLY_V |
& - halfRL * ( damp_dKE( i, j)*rAs(i, j ,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
64 |
ATM_PHYS_TENDENCY_APPLY_U |
& + halfRL *( atmPhys_dU(i-1,j,k,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
86 |
ATM_PHYS_TENDENCY_APPLY_U |
& - halfRL * ( damp_dKE( i, j)*rAw( i, j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
440 |
CHEAPAML |
& *( oneRL - (halfRL+ABS(yG(i,j,bi,bj))/230. _d 0) |
|
./eesupp/inc/EEPARAMS.h |
80 |
NO PROCEDURE |
_RL zeroRL, oneRL, twoRL, halfRL |
|
./eesupp/inc/EEPARAMS.h |
82 |
NO PROCEDURE |
PARAMETER ( twoRL = 2.0 _d 0 , halfRL = 0.5 _d 0 ) |