| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_slope_psi.F |
298 |
GMREDI_SLOPE_PSI |
taperX(i,j)=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
304 |
GMREDI_SLOPE_PSI |
taperY(i,j)=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
316 |
GMREDI_SLOPE_PSI |
f1=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
322 |
GMREDI_SLOPE_PSI |
f2=op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5))) |
|
./pkg/gmredi/gmredi_slope_psi.F |
332 |
GMREDI_SLOPE_PSI |
f1=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
338 |
GMREDI_SLOPE_PSI |
f2=op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5))) |
|
./pkg/gmredi/gmredi_xtransport.F |
106 |
GMREDI_XTRANSPORT |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj)) |
|
./pkg/gmredi/gmredi_xtransport.F |
123 |
GMREDI_XTRANSPORT |
dTdz(i,j) = op5*( |
|
./pkg/gmredi/gmredi_xtransport.F |
124 |
GMREDI_XTRANSPORT |
& +op5*recip_drC(k)* |
|
./pkg/gmredi/gmredi_xtransport.F |
130 |
GMREDI_XTRANSPORT |
& +op5*recip_drC(kp1)* |
|
./pkg/gmredi/gmredi_xtransport.F |
172 |
GMREDI_XTRANSPORT |
& +uTrans(i,j)*op5*(Tracer(i,j,k,bi,bj)+Tracer(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/GMREDI.h |
43 |
NO PROCEDURE |
_RL op5 |
|
./pkg/gmredi/GMREDI.h |
45 |
NO PROCEDURE |
PARAMETER( op5 = 0.5D0 ) |
|
./pkg/gmredi/gmredi_rtransport.F |
100 |
GMREDI_RTRANSPORT |
dTdy(i,j) = op5*( |
|
./pkg/gmredi/gmredi_rtransport.F |
101 |
GMREDI_RTRANSPORT |
& +op5*(_maskS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
107 |
GMREDI_RTRANSPORT |
& +op5*(_maskS(i,j,k-1,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
152 |
GMREDI_RTRANSPORT |
& +rTrans(i,j)*op5 |
|
./pkg/gmredi/gmredi_rtransport.F |
85 |
GMREDI_RTRANSPORT |
dTdx(i,j) = op5*( |
|
./pkg/gmredi/gmredi_rtransport.F |
86 |
GMREDI_RTRANSPORT |
& +op5*(_maskW(i+1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
92 |
GMREDI_RTRANSPORT |
& +op5*(_maskW(i+1,j,k-1,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
108 |
GMREDI_CALC_TENSOR |
fCoriLoc = op5*(fCori(i-1,j,bi,bj)+fCori(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
123 |
GMREDI_CALC_TENSOR |
fCoriLoc = op5*(fCori(i,j-1,bi,bj)+fCori(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
371 |
GMREDI_CALC_TENSOR |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
401 |
GMREDI_CALC_TENSOR |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj))*GM_advect |
|
./pkg/gmredi/gmredi_calc_tensor.F |
452 |
GMREDI_CALC_TENSOR |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
482 |
GMREDI_CALC_TENSOR |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj))*GM_advect |
|
./pkg/gmredi/gmredi_slope_limit.F |
330 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j)=op5*( 1. _d 0 + tanh( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_limit.F |
345 |
GMREDI_SLOPE_LIMIT |
f1=op5*( 1. _d 0 + tanh( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_limit.F |
347 |
GMREDI_SLOPE_LIMIT |
f2=op5*( 1. _d 0 + sin( fpi*(Rnondim-op5))) |
|
./pkg/gmredi/gmredi_ytransport.F |
106 |
GMREDI_YTRANSPORT |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj)) |
|
./pkg/gmredi/gmredi_ytransport.F |
124 |
GMREDI_YTRANSPORT |
dTdz(i,j) = op5*( |
|
./pkg/gmredi/gmredi_ytransport.F |
125 |
GMREDI_YTRANSPORT |
& +op5*recip_drC(k)* |
|
./pkg/gmredi/gmredi_ytransport.F |
131 |
GMREDI_YTRANSPORT |
& +op5*recip_drC(kp1)* |
|
./pkg/gmredi/gmredi_ytransport.F |
172 |
GMREDI_YTRANSPORT |
& +vTrans(i,j)*op5*(Tracer(i,j,k,bi,bj)+Tracer(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
102 |
GMREDI_CALC_PSI_B |
SlopeY(i,j)=op5*( sigmaY(i,j,km1)+sigmaY(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
104 |
GMREDI_CALC_PSI_B |
dSigmaDrS(i,j)=op5*( sigmaR(i,j-1,k)+sigmaR(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
130 |
GMREDI_CALC_PSI_B |
& +op5*(VisbeckK(i-1,j,bi,bj)+VisbeckK(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
140 |
GMREDI_CALC_PSI_B |
& +op5*(VisbeckK(i,j-1,bi,bj)+VisbeckK(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
94 |
GMREDI_CALC_PSI_B |
SlopeX(i,j)=op5*( sigmaX(i,j,km1)+sigmaX(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
96 |
GMREDI_CALC_PSI_B |
dSigmaDrW(i,j)=op5*( sigmaR(i-1,j,k)+sigmaR(i,j,k) ) |