| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/GMREDI.h |
11 |
NO PROCEDURE |
PARAMETER( op5 = 0.5 _d 0 ) |
|
./pkg/gmredi/GMREDI.h |
9 |
NO PROCEDURE |
_RL op5 |
|
./pkg/gmredi/gmredi_calc_eigs.F |
269 |
GMREDI_CALC_EIGS |
intN(i,j,k) = op5*BuoyFreq(i,j,k)*drNr |
|
./pkg/gmredi/gmredi_calc_eigs.F |
276 |
GMREDI_CALC_EIGS |
& + drC(k)*( op25*BuoyFreq(i,j,k+2) + op5*BuoyFreq(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
288 |
GMREDI_CALC_EIGS |
& + drC(1)*op5*BuoyFreq(i,j,2) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
111 |
GMREDI_CALC_PSI_B |
SlopeX(i,j)=op5*( sigmaX(i,j,km1)+sigmaX(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
113 |
GMREDI_CALC_PSI_B |
dSigmaDrW(i,j)=op5*( sigmaR(i-1,j,k)+sigmaR(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
119 |
GMREDI_CALC_PSI_B |
SlopeY(i,j)=op5*( sigmaY(i,j,km1)+sigmaY(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
121 |
GMREDI_CALC_PSI_B |
dSigmaDrS(i,j)=op5*( sigmaR(i,j-1,k)+sigmaR(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
160 |
GMREDI_CALC_PSI_B |
& +op5*(VisbeckK(i-1,j,bi,bj)+VisbeckK(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
183 |
GMREDI_CALC_PSI_B |
& +op5*(VisbeckK(i,j-1,bi,bj)+VisbeckK(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
112 |
GMREDI_CALC_PSI_BVP |
sigmaX_W = op5*( sigmaX(i,j,km1)+sigmaX(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
114 |
GMREDI_CALC_PSI_BVP |
dSigmaDrW = op5*( sigmaR(i-1,j,k)+sigmaR(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
191 |
GMREDI_CALC_PSI_BVP |
sigmaY_W = op5*( sigmaY(i,j,km1)+sigmaY(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
193 |
GMREDI_CALC_PSI_BVP |
dSigmaDrS = op5*( sigmaR(i,j-1,k)+sigmaR(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1002 |
GMREDI_CALC_TENSOR |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj))*GM_advect |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1005 |
GMREDI_CALC_TENSOR |
& +op5*(K3D(i,j,k,bi,bj)+K3D(i,j-1,k,bi,bj))*GM_advect |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1023 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = ( op5*(kapRedi(i,j-1,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1028 |
GMREDI_CALC_TENSOR |
& *op5*(GM_isoFac2d(i,j-1,bi,bj)+GM_isoFac2d(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1034 |
GMREDI_CALC_TENSOR |
& +op5*(K3D(i,j,k,bi,bj)+K3D(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
182 |
GMREDI_CALC_TENSOR |
fCoriLoc = op5*(fCori(i-1,j,bi,bj)+fCori(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
199 |
GMREDI_CALC_TENSOR |
fCoriLoc = op5*(fCori(i,j-1,bi,bj)+fCori(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
531 |
GMREDI_CALC_TENSOR |
& *(GM_isoFac1d(km1)+GM_isoFac1d(k))*op5 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
533 |
GMREDI_CALC_TENSOR |
& *(GM_bolFac1d(km1)+GM_bolFac1d(k))*op5 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
540 |
GMREDI_CALC_TENSOR |
Kgm_tmp = op5*(kapRedi(i,j,k,bi,bj)+kapRedi(i,j,km1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
549 |
GMREDI_CALC_TENSOR |
& + GM_skewflx*op5*(kapGM(i,j,k,bi,bj)+kapGM(i,j,km1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
558 |
GMREDI_CALC_TENSOR |
& + op5*(K3D(i,j,k,bi,bj)+K3D(i,j,km1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
567 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj)= ( op5*(kapRedi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
577 |
GMREDI_CALC_TENSOR |
& + op5*(K3D(i,j,k,bi,bj)+K3D(i,j,km1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
642 |
GMREDI_CALC_TENSOR |
& + KPPhbl( i ,j,bi,bj) )*op5 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
652 |
GMREDI_CALC_TENSOR |
& + hMixLayer( i ,j,bi,bj) )*op5 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
725 |
GMREDI_CALC_TENSOR |
& ( op5*(kapRedi(i,j,k,bi,bj)+kapRedi(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
729 |
GMREDI_CALC_TENSOR |
& *op5*(GM_isoFac2d(i-1,j,bi,bj)+GM_isoFac2d(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
732 |
GMREDI_CALC_TENSOR |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
735 |
GMREDI_CALC_TENSOR |
& +op5*(K3D(i,j,k,bi,bj)+K3D(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
767 |
GMREDI_CALC_TENSOR |
& ( op5*(kapRedi(i,j,k,bi,bj)+kapRedi(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
771 |
GMREDI_CALC_TENSOR |
& *op5*(GM_isoFac2d(i-1,j,bi,bj)+GM_isoFac2d(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
777 |
GMREDI_CALC_TENSOR |
& - GM_skewflx*op5*(kapGM(i,j,k,bi,bj)+kapGM(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
781 |
GMREDI_CALC_TENSOR |
& *op5*(GM_bolFac2d(i-1,j,bi,bj)+GM_bolFac2d(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
784 |
GMREDI_CALC_TENSOR |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj))*GM_advect |
|
./pkg/gmredi/gmredi_calc_tensor.F |
787 |
GMREDI_CALC_TENSOR |
& +op5*(K3D(i,j,k,bi,bj)+K3D(i-1,j,k,bi,bj))*GM_advect |
|
./pkg/gmredi/gmredi_calc_tensor.F |
805 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = ( op5*(kapRedi(i-1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
810 |
GMREDI_CALC_TENSOR |
& *op5*(GM_isoFac2d(i-1,j,bi,bj)+GM_isoFac2d(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
816 |
GMREDI_CALC_TENSOR |
& +op5*(K3D(i,j,k,bi,bj)+K3D(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
857 |
GMREDI_CALC_TENSOR |
& + KPPhbl(i, j ,bi,bj) )*op5 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
867 |
GMREDI_CALC_TENSOR |
& + hMixLayer(i, j ,bi,bj) )*op5 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
943 |
GMREDI_CALC_TENSOR |
& ( op5*(kapRedi(i,j,k,bi,bj)+kapRedi(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
947 |
GMREDI_CALC_TENSOR |
& *op5*(GM_isoFac2d(i,j-1,bi,bj)+GM_isoFac2d(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
950 |
GMREDI_CALC_TENSOR |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
953 |
GMREDI_CALC_TENSOR |
& +op5*(K3D(i,j,k,bi,bj)+K3D(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
985 |
GMREDI_CALC_TENSOR |
& ( op5*(kapRedi(i,j,k,bi,bj)+kapRedi(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
989 |
GMREDI_CALC_TENSOR |
& *op5*(GM_isoFac2d(i,j-1,bi,bj)+GM_isoFac2d(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
995 |
GMREDI_CALC_TENSOR |
& - GM_skewflx*op5*(kapGM(i,j,k,bi,bj)+kapGM(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
999 |
GMREDI_CALC_TENSOR |
& *op5*(GM_bolFac2d(i,j-1,bi,bj)+GM_bolFac2d(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_k3d.F |
1030 |
GMREDI_K3D |
RenormU(i,j) = op5*(Renorm(i-1,j)+Renorm(i,j)) |
|
./pkg/gmredi/gmredi_k3d.F |
1031 |
GMREDI_K3D |
RenormV(i,j) = op5*(Renorm(i,j-1)+Renorm(i,j)) |
|
./pkg/gmredi/gmredi_k3d.F |
264 |
GMREDI_K3D |
fCoriU(i,j)= op5*( fCori(i,j,bi,bj)+fCori(i-1,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_k3d.F |
273 |
GMREDI_K3D |
fCoriV(i,j)= op5*( fCori(i,j,bi,bj)+fCori(i,j-1,bi,bj) ) |
|
./pkg/gmredi/gmredi_k3d.F |
448 |
GMREDI_K3D |
& *op5*(N(i,j,k)+mskp1*N(i,j,kp1)) |
|
./pkg/gmredi/gmredi_k3d.F |
475 |
GMREDI_K3D |
dSigmaDx(i,j,k) = op5*(sigmaX(i,j,k)+sigmaX(i+1,j,k)) |
|
./pkg/gmredi/gmredi_k3d.F |
476 |
GMREDI_K3D |
dSigmaDy(i,j,k) = op5*(sigmaY(i,j,k)+sigmaY(i,j+1,k)) |
|
./pkg/gmredi/gmredi_k3d.F |
494 |
GMREDI_K3D |
N2loc(i,j,k) = op5*(N2(i,j,k)+mskp1*N2(i,j,kp1)) |
|
./pkg/gmredi/gmredi_k3d.F |
653 |
GMREDI_K3D |
sigz = MIN( op5*(sigmaR(i,j,k)+sigmaR(i-1,j,k)), maxDRhoDz ) |
|
./pkg/gmredi/gmredi_k3d.F |
654 |
GMREDI_K3D |
sigx = op5*( sigmaX(i,j,k)+sigmaX(i,j,k-1) ) |
|
./pkg/gmredi/gmredi_k3d.F |
661 |
GMREDI_K3D |
sigz = MIN( op5*(sigmaR(i,j,k)+sigmaR(i,j-1,k)), maxDRhoDz ) |
|
./pkg/gmredi/gmredi_k3d.F |
662 |
GMREDI_K3D |
sigy = op5*( sigmaY(i,j,k) + sigmaY(i,j,k-1) ) |
|
./pkg/gmredi/gmredi_k3d.F |
973 |
GMREDI_K3D |
centreX = op5*(uVel(i,j,k,bi,bj)+uVel(i+1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_k3d.F |
974 |
GMREDI_K3D |
centreY = op5*(Kdqdy(i,j,k) +Kdqdy(i,j+1,k) ) |
|
./pkg/gmredi/gmredi_k3d.F |
983 |
GMREDI_K3D |
centreY = op5*(Xiy(i,j,k) + Xiy(i,j+1,k)) |
|
./pkg/gmredi/gmredi_k3d.F |
987 |
GMREDI_K3D |
centreX = op5*(Kdqdx(i,j,k) +Kdqdx(i+1,j,k)) |
|
./pkg/gmredi/gmredi_k3d.F |
988 |
GMREDI_K3D |
centreY = op5*(vVel(i,j,k,bi,bj)+vVel(i,j+1,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_k3d.F |
997 |
GMREDI_K3D |
centreX = op5*(Xix(i,j,k) + Xix(i+1,j,k)) |
|
./pkg/gmredi/gmredi_rtransport.F |
102 |
GMREDI_RTRANSPORT |
dTdx(i,j) = op5*( |
|
./pkg/gmredi/gmredi_rtransport.F |
103 |
GMREDI_RTRANSPORT |
& +op5*(_maskW(i+1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
109 |
GMREDI_RTRANSPORT |
& +op5*(_maskW(i+1,j,k-1,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
117 |
GMREDI_RTRANSPORT |
dTdy(i,j) = op5*( |
|
./pkg/gmredi/gmredi_rtransport.F |
118 |
GMREDI_RTRANSPORT |
& +op5*(_maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
124 |
GMREDI_RTRANSPORT |
& +op5*(_maskS(i,j,k-1,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
185 |
GMREDI_RTRANSPORT |
& +rTrans(i,j)*op5 |
|
./pkg/gmredi/gmredi_slope_limit.F |
554 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j)=op5*( 1. _d 0 + tanh( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_limit.F |
569 |
GMREDI_SLOPE_LIMIT |
f1=op5*( 1. _d 0 + tanh( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_limit.F |
574 |
GMREDI_SLOPE_LIMIT |
f2 = op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5) )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
312 |
GMREDI_SLOPE_PSI |
taperX(i,j)=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
318 |
GMREDI_SLOPE_PSI |
taperY(i,j)=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
330 |
GMREDI_SLOPE_PSI |
f1=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
339 |
GMREDI_SLOPE_PSI |
f2 = op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5) )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
350 |
GMREDI_SLOPE_PSI |
f1=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
359 |
GMREDI_SLOPE_PSI |
f2 = op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5) )) |
|
./pkg/gmredi/gmredi_xtransport.F |
139 |
GMREDI_XTRANSPORT |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj)) |
|
./pkg/gmredi/gmredi_xtransport.F |
156 |
GMREDI_XTRANSPORT |
dTdz(i,j) = op5*( |
|
./pkg/gmredi/gmredi_xtransport.F |
157 |
GMREDI_XTRANSPORT |
& +op5*recip_drC(k)* |
|
./pkg/gmredi/gmredi_xtransport.F |
163 |
GMREDI_XTRANSPORT |
& +op5*recip_drC(kp1)* |
|
./pkg/gmredi/gmredi_xtransport.F |
205 |
GMREDI_XTRANSPORT |
& +uTrans(i,j)*op5*(Tracer(i,j,k)+Tracer(i-1,j,k)) |
|
./pkg/gmredi/gmredi_xtransport.F |
224 |
GMREDI_XTRANSPORT |
& *op5*(Tracer(i,j,k)+Tracer(i-1,j,k)) |
|
./pkg/gmredi/gmredi_ytransport.F |
138 |
GMREDI_YTRANSPORT |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj)) |
|
./pkg/gmredi/gmredi_ytransport.F |
155 |
GMREDI_YTRANSPORT |
dTdz(i,j) = op5*( |
|
./pkg/gmredi/gmredi_ytransport.F |
156 |
GMREDI_YTRANSPORT |
& +op5*recip_drC(k)* |
|
./pkg/gmredi/gmredi_ytransport.F |
162 |
GMREDI_YTRANSPORT |
& +op5*recip_drC(kp1)* |
|
./pkg/gmredi/gmredi_ytransport.F |
204 |
GMREDI_YTRANSPORT |
& +vTrans(i,j)*op5*(Tracer(i,j,k)+Tracer(i,j-1,k)) |
|
./pkg/gmredi/gmredi_ytransport.F |
222 |
GMREDI_YTRANSPORT |
& *op5*(Tracer(i,j,k)+Tracer(i,j-1,k)) |
|
./pkg/gmredi/submeso_calc_psi.F |
81 |
SUBMESO_CALC_PSI |
mixLayerU(i,j) = op5*( locMixLayer(i-1,j)+locMixLayer(i,j) ) |
|
./pkg/gmredi/submeso_calc_psi.F |
87 |
SUBMESO_CALC_PSI |
mixLayerV(i,j)=op5*( locMixLayer(i,j-1)+locMixLayer(i,j) ) |
|
./model/src/calc_eddy_stress.F |
68 |
CALC_EDDY_STRESS |
coriU = op5*(fcori(i-1,j,bi,bj) |
|
./model/src/calc_eddy_stress.F |
87 |
CALC_EDDY_STRESS |
coriV = op5*(fcori(i,j-1,bi,bj) |