File |
Line number |
Procedure |
Code |
./pkg/ggl90/ggl90_calc.F |
11 |
GGL90_CALC |
I bi, bj, sigmaR, myTime, myIter, myThid ) |
./pkg/ggl90/ggl90_calc.F |
209 |
GGL90_CALC |
& bi, bj, hFacI, recip_hFacI, sigmaR, myTime, myIter, myThid ) |
./pkg/ggl90/ggl90_calc.F |
219 |
GGL90_CALC |
& * sigmaR(i,j,k) |
./pkg/ggl90/ggl90_calc.F |
50 |
GGL90_CALC |
_RL sigmaR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./pkg/ggl90/ggl90_idemix.F |
10 |
GGL90_IDEMIX |
I bi, bj, hFacI, recip_hFacI, sigmaR, myTime, myIter, myThid ) |
./pkg/ggl90/ggl90_idemix.F |
116 |
GGL90_IDEMIX |
& * sigmaR(i,j,k) |
./pkg/ggl90/ggl90_idemix.F |
51 |
GGL90_IDEMIX |
_RL sigmaR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./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 |
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 |
17 |
GMREDI_CALC_PSI_B |
I sigmaX, sigmaY, sigmaR, |
./pkg/gmredi/gmredi_calc_psi_b.F |
52 |
GMREDI_CALC_PSI_B |
_RL sigmaR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./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 |
11 |
GMREDI_CALC_PSI_BVP |
I sigmaX, sigmaY, sigmaR, |
./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_psi_bvp.F |
43 |
GMREDI_CALC_PSI_BVP |
_RL sigmaR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./pkg/gmredi/gmredi_calc_tensor.F |
1116 |
GMREDI_CALC_TENSOR_DUMMY |
I sigmaX, sigmaY, sigmaR, |
./pkg/gmredi/gmredi_calc_tensor.F |
1137 |
GMREDI_CALC_TENSOR_DUMMY |
_RL sigmaR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./pkg/gmredi/gmredi_calc_tensor.F |
20 |
GMREDI_CALC_TENSOR |
I sigmaX, sigmaY, sigmaR, |
./pkg/gmredi/gmredi_calc_tensor.F |
284 |
GMREDI_CALC_TENSOR |
I sigmaX, sigmaY, sigmaR, |
./pkg/gmredi/gmredi_calc_tensor.F |
331 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j) = MIN( sigmaR(i,j,k), 0. _d 0 ) |
./pkg/gmredi/gmredi_calc_tensor.F |
407 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j)=sigmaR(i,j,k) |
./pkg/gmredi/gmredi_calc_tensor.F |
601 |
GMREDI_CALC_TENSOR |
I sigmaX, sigmaY, sigmaR, |
./pkg/gmredi/gmredi_calc_tensor.F |
611 |
GMREDI_CALC_TENSOR |
I sigmaX, sigmaY, sigmaR, |
./pkg/gmredi/gmredi_calc_tensor.F |
627 |
GMREDI_CALC_TENSOR |
I sigmaX, sigmaY, sigmaR, |
./pkg/gmredi/gmredi_calc_tensor.F |
64 |
GMREDI_CALC_TENSOR |
_RL sigmaR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./pkg/gmredi/gmredi_calc_tensor.F |
683 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j)=op25*( sigmaR(i-1,j, k )+sigmaR(i,j, k ) |
./pkg/gmredi/gmredi_calc_tensor.F |
684 |
GMREDI_CALC_TENSOR |
& +(sigmaR(i-1,j,kp1)+sigmaR(i,j,kp1))*maskp1 |
./pkg/gmredi/gmredi_calc_tensor.F |
900 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j)=op25*( sigmaR(i,j-1, k )+sigmaR(i,j, k ) |
./pkg/gmredi/gmredi_calc_tensor.F |
901 |
GMREDI_CALC_TENSOR |
& +(sigmaR(i,j-1,kp1)+sigmaR(i,j,kp1))*maskp1 |
./pkg/gmredi/gmredi_k3d.F |
10 |
GMREDI_K3D |
I sigmaX, sigmaY, sigmaR, |
./pkg/gmredi/gmredi_k3d.F |
39 |
GMREDI_K3D |
_RL sigmaR(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
./pkg/gmredi/gmredi_k3d.F |
423 |
GMREDI_K3D |
N2(i,j,k) = -gravity*recip_rhoConst*sigmaR(i,j,k) |
./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 |
661 |
GMREDI_K3D |
sigz = MIN( op5*(sigmaR(i,j,k)+sigmaR(i,j-1,k)), maxDRhoDz ) |
./pkg/gmredi/submeso_calc_psi.F |
11 |
SUBMESO_CALC_PSI |
I sigmaX, sigmaY, sigmaR, |
./pkg/gmredi/submeso_calc_psi.F |
122 |
SUBMESO_CALC_PSI |
& + dzLoc*MAX( -sigmaR(i,j,k), 0. _d 0 ) |
./pkg/gmredi/submeso_calc_psi.F |
39 |
SUBMESO_CALC_PSI |
_RL sigmaR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./pkg/kl10/kl10_calc.F |
11 |
KL10_CALC |
I bi, bj, sigmaR, myTime, myIter, myThid ) |
./pkg/kl10/kl10_calc.F |
52 |
KL10_CALC |
_RL sigmaR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./model/src/calc_ivdc.F |
10 |
CALC_IVDC |
I sigmaR, |
./model/src/calc_ivdc.F |
36 |
CALC_IVDC |
_RL sigmaR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./model/src/calc_ivdc.F |
50 |
CALC_IVDC |
IF ( -sigmaR(i,j,k)*gravitySign.GT.0. ) THEN |
./model/src/calc_oce_mxlayer.F |
11 |
CALC_OCE_MXLAYER |
I rhoSurf, sigmaR, |
./model/src/calc_oce_mxlayer.F |
168 |
CALC_OCE_MXLAYER |
IF ( -sigmaR(i,j,k+1).GT.sigmAv*hMixCriteria ) THEN |
./model/src/calc_oce_mxlayer.F |
171 |
CALC_OCE_MXLAYER |
tmpFac = hMixCriteria*sigmaR(i,j,k)/sigmaR(i,j,k+1) |
./model/src/calc_oce_mxlayer.F |
41 |
CALC_OCE_MXLAYER |
_RL sigmaR (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./pkg/my82/my82_calc.F |
11 |
MY82_CALC |
I bi, bj, sigmaR, myTime, myIter, myThid ) |
./pkg/my82/my82_calc.F |
48 |
MY82_CALC |
_RL sigmaR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./pkg/pp81/pp81_calc.F |
11 |
PP81_CALC |
I bi, bj, sigmaR, myTime, myIter, myThid ) |
./pkg/pp81/pp81_calc.F |
50 |
PP81_CALC |
_RL sigmaR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./model/src/do_oceanic_phys.F |
1020 |
DO_OCEANIC_PHYS |
I bi, bj, sigmaR, myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
1031 |
DO_OCEANIC_PHYS |
I bi, bj, sigmaR, myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
1042 |
DO_OCEANIC_PHYS |
I bi, bj, sigmaR, myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
1058 |
DO_OCEANIC_PHYS |
I bi, bj, sigmaR, myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
1096 |
DO_OCEANIC_PHYS |
I sigmaX, sigmaY, sigmaR, |
./model/src/do_oceanic_phys.F |
1102 |
DO_OCEANIC_PHYS |
I sigmaX, sigmaY, sigmaR, |
./model/src/do_oceanic_phys.F |
211 |
DO_OCEANIC_PHYS |
_RL sigmaR (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./model/src/do_oceanic_phys.F |
645 |
DO_OCEANIC_PHYS |
sigmaR(i,j,k) = 0. _d 0 |
./model/src/do_oceanic_phys.F |
883 |
DO_OCEANIC_PHYS |
O sigmaX, sigmaY, sigmaR, |
./model/src/do_oceanic_phys.F |
889 |
DO_OCEANIC_PHYS |
sigmaRfield(i,j,k,bi,bj)=sigmaR(i,j,k) |
./model/src/do_oceanic_phys.F |
900 |
DO_OCEANIC_PHYS |
CALL ZERO_ADJ_LOC( Nr, sigmaR, myThid) |
./model/src/do_oceanic_phys.F |
912 |
DO_OCEANIC_PHYS |
I sigmaR, |
./model/src/do_oceanic_phys.F |
937 |
DO_OCEANIC_PHYS |
I rhoInSitu(1-OLx,1-OLy,1,bi,bj), sigmaR, |
./model/src/do_oceanic_phys.F |
944 |
DO_OCEANIC_PHYS |
I rhoInSitu(1-OLx,1-OLy,1,bi,bj), sigmaR, |
./model/src/do_oceanic_phys.F |
968 |
DO_OCEANIC_PHYS |
CALL DIAGNOSTICS_FILL (sigmaR, 'DRHODR ', 0, Nr, |
./pkg/salt_plume/salt_plume_calc_depth.F |
13 |
SALT_PLUME_CALC_DEPTH |
I rhoSurf, sigmaR, |
./pkg/salt_plume/salt_plume_calc_depth.F |
156 |
SALT_PLUME_CALC_DEPTH |
GG =-1.0*sigmaR(i,j,k) |
./pkg/salt_plume/salt_plume_calc_depth.F |
157 |
SALT_PLUME_CALC_DEPTH |
GGm1=-1.0*sigmaR(i,j,k-1) |
./pkg/salt_plume/salt_plume_calc_depth.F |
47 |
SALT_PLUME_CALC_DEPTH |
_RL sigmaR (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./model/src/grad_sigma.F |
102 |
GRAD_SIGMA |
sigmaR(i,j,k)= maskC(i,j,k,bi,bj)*maskC(i,j,k-1,bi,bj) |
./model/src/grad_sigma.F |
12 |
GRAD_SIGMA |
O sigmaX, sigmaY, sigmaR, |
./model/src/grad_sigma.F |
46 |
GRAD_SIGMA |
_RL sigmaR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
./model/src/grad_sigma.F |
96 |
GRAD_SIGMA |
sigmaR(i,j,k)= 0. _d 0 |