| File |
Line number |
Procedure |
Code |
|
./model/src/calc_grad_phi_hyd.F |
11 |
CALC_GRAD_PHI_HYD |
I phiHydC, alphRho, tFld, sFld, |
|
./model/src/calc_grad_phi_hyd.F |
48 |
CALC_GRAD_PHI_HYD |
_RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/calc_phi_hyd.F |
12 |
CALC_PHI_HYD |
I tFld, sFld, |
|
./model/src/calc_phi_hyd.F |
154 |
CALC_PHI_HYD |
I sFld(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/calc_phi_hyd.F |
271 |
CALC_PHI_HYD |
I sFld(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/calc_phi_hyd.F |
374 |
CALC_PHI_HYD |
& *( tFld(i,j,k,bi,bj)*(sFld(i,j,k,bi,bj)*atm_Rq+one) |
|
./model/src/calc_phi_hyd.F |
506 |
CALC_PHI_HYD |
I phiHydF, phiHydC, alphaRho, tFld, sFld, |
|
./model/src/calc_phi_hyd.F |
519 |
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/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 |
105 |
OBCS_APPLY_TS |
sFld(i,j,k,bi,bj) = OBSs(i,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
11 |
OBCS_APPLY_TS |
U tFld, sFld, |
|
./pkg/obcs/obcs_apply_ts.F |
124 |
OBCS_APPLY_TS |
sFld(i,j,k,bi,bj) = OBEs(j,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
142 |
OBCS_APPLY_TS |
sFld(i,j,k,bi,bj) = OBWs(j,k,bi,bj)*obc_mask |
|
./pkg/obcs/obcs_apply_ts.F |
40 |
OBCS_APPLY_TS |
_RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_apply_ts.F |
87 |
OBCS_APPLY_TS |
sFld(i,j,k,bi,bj) = OBNs(i,k,bi,bj)*obc_mask |
|
./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) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
11 |
SHAP_FILT_APPLY_TS |
U tFld, sFld, |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
133 |
SHAP_FILT_APPLY_TS |
U sFld, Shap_tmpFld1, |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
138 |
SHAP_FILT_APPLY_TS |
U sFld, Shap_tmpFld1, |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
142 |
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 |
67 |
SHAP_FILT_APPLY_TS |
IF ( saltStepping ) _EXCH_XYZ_RL( sFld,myThid ) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
75 |
SHAP_FILT_APPLY_TS |
& CALL SHAP_FILT_TRACEROLD( sFld,bi,bj,k,myTime,myThid ) |
|
./pkg/shap_filt/shap_filt_apply_ts.F |
81 |
SHAP_FILT_APPLY_TS |
IF ( saltStepping ) _EXCH_XYZ_RL( sFld,myThid ) |
|
./model/src/find_rho.F |
102 |
FIND_RHO_2D |
& sBeta*(sFld(i,j)-refSalt) |
|
./model/src/find_rho.F |
117 |
FIND_RHO_2D |
sP=sFld(i,j)-refSalt |
|
./model/src/find_rho.F |
154 |
FIND_RHO_2D |
I tFld, sFld, |
|
./model/src/find_rho.F |
160 |
FIND_RHO_2D |
I locPres, tFld, sFld, |
|
./model/src/find_rho.F |
189 |
FIND_RHO_2D |
I locPres, tFld, sFld, |
|
./model/src/find_rho.F |
195 |
FIND_RHO_2D |
I locPres, tFld, sFld, |
|
./model/src/find_rho.F |
227 |
FIND_RHOP0 |
I tFld, sFld, |
|
./model/src/find_rho.F |
23 |
FIND_RHO_2D |
I tFld, sFld, |
|
./model/src/find_rho.F |
251 |
FIND_RHOP0 |
_RL sFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/find_rho.F |
270 |
FIND_RHOP0 |
s = sFld(i,j) |
|
./model/src/find_rho.F |
316 |
FIND_BULKMOD |
I locPres, tFld, sFld, |
|
./model/src/find_rho.F |
342 |
FIND_BULKMOD |
_RL sFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/find_rho.F |
361 |
FIND_BULKMOD |
s = sFld(i,j) |
|
./model/src/find_rho.F |
424 |
FIND_RHONUM |
I locPres, tFld, sFld, |
|
./model/src/find_rho.F |
451 |
FIND_RHONUM |
_RL sFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/find_rho.F |
465 |
FIND_RHONUM |
s1 = sFld(i,j) |
|
./model/src/find_rho.F |
490 |
FIND_RHODEN |
I locPres, tFld, sFld, |
|
./model/src/find_rho.F |
517 |
FIND_RHODEN |
_RL sFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/find_rho.F |
533 |
FIND_RHODEN |
s1 = sFld(i,j) |
|
./model/src/find_rho.F |
54 |
FIND_RHO_2D |
_RL sFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/find_rho.F |
782 |
LOOK_FOR_NEG_SALINITY |
U sFld, |
|
./model/src/find_rho.F |
807 |
LOOK_FOR_NEG_SALINITY |
_RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/find_rho.F |
821 |
LOOK_FOR_NEG_SALINITY |
IF ( sFld(i,j) .LT. 0. _d 0 ) THEN |
|
./model/src/find_rho.F |
823 |
LOOK_FOR_NEG_SALINITY |
sFld(i,j) = 0. _d 0 |
|
./model/src/find_rho.F |
84 |
FIND_RHO_2D |
U sFld, |
|
./pkg/zonal_filt/zonal_filt_apply_ts.F |
11 |
ZONAL_FILT_APPLY_TS |
U tFld, sFld, |
|
./pkg/zonal_filt/zonal_filt_apply_ts.F |
31 |
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 |
48 |
ZONAL_FILT_APPLY_TS |
U sFld( 1-OLx,1-OLy,1,bi,bj), |
|
./model/src/ini_eos.F |
308 |
EOS_CHECK |
_RL sFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/ini_eos.F |
407 |
EOS_CHECK |
sFld(i,j) = sLoc(kcheck) |
|
./model/src/ini_eos.F |
413 |
EOS_CHECK |
I tFld, sFld, |
|
./model/src/ini_eos.F |
422 |
EOS_CHECK |
I pFld, tFld, sFld, |
|
./model/src/ini_eos.F |
444 |
EOS_CHECK |
& 'rho(', sFld(i,j), ' PSU,', |
|
./pkg/down_slope/dwnslp_calc_rho.F |
10 |
DWNSLP_CALC_RHO |
I tFld, sFld, |
|
./pkg/down_slope/dwnslp_calc_rho.F |
45 |
DWNSLP_CALC_RHO |
_RL sFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/down_slope/dwnslp_calc_rho.F |
73 |
DWNSLP_CALC_RHO |
sLoc(i,j) = sFld(i,j,kl,bi,bj) |