| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_apply_sloc.F |
22 |
OBCS_APPLY_SLOC |
_RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/obcs/obcs_apply_sloc.F |
39 |
OBCS_APPLY_SLOC |
sFld(I,J)=OBNs(I,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_sloc.F |
49 |
OBCS_APPLY_SLOC |
sFld(I,J)=OBSs(I,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_sloc.F |
63 |
OBCS_APPLY_SLOC |
sFld(I,J)=OBEs(J,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_sloc.F |
73 |
OBCS_APPLY_SLOC |
sFld(I,J)=OBWs(J,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_sloc.F |
7 |
OBCS_APPLY_SLOC |
U sFld, |
|
./pkg/obcs/obcs_apply_ts.F |
23 |
OBCS_APPLY_TS |
_RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_apply_ts.F |
41 |
OBCS_APPLY_TS |
sFld(I,J,K,bi,bj)=OBNs(I,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
54 |
OBCS_APPLY_TS |
sFld(I,J,K,bi,bj)=OBSs(I,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
69 |
OBCS_APPLY_TS |
sFld(I,J,K,bi,bj)=OBEs(J,K,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
7 |
OBCS_APPLY_TS |
U tFld, sFld, |
|
./pkg/obcs/obcs_apply_ts.F |
82 |
OBCS_APPLY_TS |
sFld(I,J,K,bi,bj)=OBWs(J,K,bi,bj) * obc_mask |
|
./model/src/ini_eos.F |
300 |
CHECK_EOS |
_RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/ini_eos.F |
387 |
CHECK_EOS |
sFld(i,j,k,bi,bj) = sloc(kcheck) |
|
./model/src/ini_eos.F |
393 |
CHECK_EOS |
& tFld, sFld, rholoc, myThid ) |
|
./model/src/ini_eos.F |
397 |
CHECK_EOS |
& tFld, sFld, bulkMod, myThid ) |
|
./model/src/ini_eos.F |
401 |
CHECK_EOS |
& 'rho(', sFld(i,j,k,bi,bj), ' PSU,', |
|
./model/src/calc_phi_hyd.F |
12 |
CALC_PHI_HYD |
I tFld, sFld, |
|
./model/src/calc_phi_hyd.F |
150 |
CALC_PHI_HYD |
& tFld, sFld, |
|
./model/src/calc_phi_hyd.F |
236 |
CALC_PHI_HYD |
& tFld, sFld, |
|
./model/src/calc_phi_hyd.F |
335 |
CALC_PHI_HYD |
& *( tFld(i,j,k,bi,bj)*(sFld(i,j,k,bi,bj)*atm_Rq+one) |
|
./model/src/calc_phi_hyd.F |
467 |
CALC_PHI_HYD |
I phiHydF, phiHydC, alphaRho, tFld, sFld, |
|
./model/src/calc_phi_hyd.F |
482 |
CALC_PHI_HYD |
I phiHydC, alphaRho, tFld, sFld, |
|
./model/src/calc_phi_hyd.F |
67 |
CALC_PHI_HYD |
_RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/zonal_filt/zonal_filt_apply_ts.F |
23 |
ZONAL_FILT_APPLY_TS |
_RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/zonal_filt/zonal_filt_apply_ts.F |
38 |
ZONAL_FILT_APPLY_TS |
& sFld, hFacC, 1, sNy, k, k, bi, bj, 1, myThid) |
|
./pkg/zonal_filt/zonal_filt_apply_ts.F |
7 |
ZONAL_FILT_APPLY_TS |
U tFld, sFld, |
|
./model/src/find_alpha.F |
321 |
FIND_BETA |
& sFld, myThid ) |
|
./model/src/find_alpha.F |
66 |
FIND_ALPHA |
& sFld, myThid ) |
|
./model/src/find_rho.F |
106 |
FIND_RHO |
sP=sFld(i,j,k,bi,bj)-refSalt |
|
./model/src/find_rho.F |
12 |
FIND_RHO |
I tFld, sFld, |
|
./model/src/find_rho.F |
143 |
FIND_RHO |
I tFld, sFld, |
|
./model/src/find_rho.F |
149 |
FIND_RHO |
I locPres, tFld, sFld, |
|
./model/src/find_rho.F |
179 |
FIND_RHO |
& locPres, tFld, sFld, rhoNum, myThid ) |
|
./model/src/find_rho.F |
182 |
FIND_RHO |
& locPres, tFld, sFld, rhoDen, myThid ) |
|
./model/src/find_rho.F |
212 |
FIND_RHOP0 |
I tFld, sFld, |
|
./model/src/find_rho.F |
241 |
FIND_RHOP0 |
_RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/find_rho.F |
260 |
FIND_RHOP0 |
s = sFld(i,j,k,bi,bj) |
|
./model/src/find_rho.F |
304 |
FIND_BULKMOD |
I locPres, tFld, sFld, |
|
./model/src/find_rho.F |
334 |
FIND_BULKMOD |
_RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/find_rho.F |
353 |
FIND_BULKMOD |
s = sFld(i,j,k,bi,bj) |
|
./model/src/find_rho.F |
415 |
FIND_RHONUM |
I locPres, tFld, sFld, |
|
./model/src/find_rho.F |
447 |
FIND_RHONUM |
_RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/find_rho.F |
461 |
FIND_RHONUM |
s1 = sFld(i,j,k,bi,bj) |
|
./model/src/find_rho.F |
46 |
FIND_RHO |
_RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/find_rho.F |
485 |
FIND_RHODEN |
I locPres, tFld, sFld, |
|
./model/src/find_rho.F |
517 |
FIND_RHODEN |
_RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/find_rho.F |
533 |
FIND_RHODEN |
s1 = sFld(i,j,k,bi,bj) |
|
./model/src/find_rho.F |
74 |
FIND_RHO |
& sFld, myThid ) |
|
./model/src/find_rho.F |
769 |
LOOK_FOR_NEG_SALINITY |
I sFld, |
|
./model/src/find_rho.F |
798 |
LOOK_FOR_NEG_SALINITY |
_RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/find_rho.F |
811 |
LOOK_FOR_NEG_SALINITY |
IF ( sFld(i,j,k,bi,bj) .LT. 0. _d 0 ) THEN |
|
./model/src/find_rho.F |
813 |
LOOK_FOR_NEG_SALINITY |
sFld(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/find_rho.F |
91 |
FIND_RHO |
& sBeta*(sFld(i,j,k,bi,bj)-refSalt) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
11 |
SHAP_FILT_APPLY_TS |
U tFld, sFld, |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
128 |
SHAP_FILT_APPLY_TS |
U sFld, Shap_tmpFld1, |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
132 |
SHAP_FILT_APPLY_TS |
U sFld, Shap_tmpFld1, |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
136 |
SHAP_FILT_APPLY_TS |
U sFld, Shap_tmpFld1, |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
140 |
SHAP_FILT_APPLY_TS |
U sFld, Shap_tmpFld1, |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
39 |
SHAP_FILT_APPLY_TS |
_RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
61 |
SHAP_FILT_APPLY_TS |
IF ( saltStepping ) _EXCH_XYZ_R8( sFld,myThid ) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
69 |
SHAP_FILT_APPLY_TS |
& CALL SHAP_FILT_TRACEROLD( sFld,bi,bj,k,myTime,myThid ) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
75 |
SHAP_FILT_APPLY_TS |
IF ( saltStepping ) _EXCH_XYZ_R8( sFld,myThid ) |
|
./model/src/diags_phi_rlow.F |
11 |
DIAGS_PHI_RLOW |
I phiHydF, phiHydC, alphRho, tFld, sFld, |
|
./model/src/diags_phi_rlow.F |
52 |
DIAGS_PHI_RLOW |
_RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/calc_grad_phi_hyd.F |
11 |
CALC_GRAD_PHI_HYD |
I phiHydC, alphRho, tFld, sFld, |
|
./model/src/calc_grad_phi_hyd.F |
49 |
CALC_GRAD_PHI_HYD |
_RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |