| File |
Line number |
Procedure |
Code |
|
./model/src/calc_grad_phi_hyd.F |
12 |
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) |
|
./model/src/calc_phi_hyd.F |
15 |
CALC_PHI_HYD |
I tFld, sFld, |
|
./model/src/calc_phi_hyd.F |
168 |
CALC_PHI_HYD |
I sFld(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/calc_phi_hyd.F |
325 |
CALC_PHI_HYD |
I sFld(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/calc_phi_hyd.F |
443 |
CALC_PHI_HYD |
& *( sFld(i,j,k,bi,bj)*atm_Rq + oneRL ) |
|
./model/src/calc_phi_hyd.F |
622 |
CALC_PHI_HYD |
I phiHydC, alphaRho, tFld, sFld, |
|
./model/src/calc_phi_hyd.F |
658 |
CALC_PHI_HYD |
I phiHydF, phiHydC, alphaRho, tFld, sFld, |
|
./model/src/calc_phi_hyd.F |
70 |
CALC_PHI_HYD |
_RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_apply_ts.F |
102 |
OBCS_APPLY_TS |
sFld(i,Jobc,k,bi,bj) = OBNs(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
11 |
OBCS_APPLY_TS |
U tFld, sFld, |
|
./pkg/obcs/obcs_apply_ts.F |
122 |
OBCS_APPLY_TS |
sFld(i,Jobc,k,bi,bj) = sFld(i,Jobc,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
136 |
OBCS_APPLY_TS |
sFld(i,Jobc,k,bi,bj) = OBSs(i,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
157 |
OBCS_APPLY_TS |
sFld(Iobc,j,k,bi,bj) = sFld(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
171 |
OBCS_APPLY_TS |
sFld(Iobc,j,k,bi,bj) = OBEs(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
191 |
OBCS_APPLY_TS |
sFld(Iobc,j,k,bi,bj) = sFld(Iobc,j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
205 |
OBCS_APPLY_TS |
sFld(Iobc,j,k,bi,bj) = OBWs(j,k,bi,bj) |
|
./pkg/obcs/obcs_apply_ts.F |
42 |
OBCS_APPLY_TS |
_RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/obcs/obcs_apply_ts.F |
88 |
OBCS_APPLY_TS |
sFld(i,Jobc,k,bi,bj) = sFld(i,Jobc,k,bi,bj) |
|
./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/find_rho.F |
107 |
FIND_RHO_2D |
& sBeta*(sFld(i,j)-refSalt) |
|
./model/src/find_rho.F |
1159 |
LOOK_FOR_NEG_SALINITY |
U sFld, |
|
./model/src/find_rho.F |
1184 |
LOOK_FOR_NEG_SALINITY |
_RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/find_rho.F |
1198 |
LOOK_FOR_NEG_SALINITY |
IF ( sFld(i,j) .LT. 0. _d 0 ) THEN |
|
./model/src/find_rho.F |
1200 |
LOOK_FOR_NEG_SALINITY |
sFld(i,j) = 0. _d 0 |
|
./model/src/find_rho.F |
122 |
FIND_RHO_2D |
sP=sFld(i,j)-refSalt |
|
./model/src/find_rho.F |
159 |
FIND_RHO_2D |
I tFld, sFld, |
|
./model/src/find_rho.F |
165 |
FIND_RHO_2D |
I locPres, tFld, sFld, |
|
./model/src/find_rho.F |
194 |
FIND_RHO_2D |
I locPres, tFld, sFld, |
|
./model/src/find_rho.F |
200 |
FIND_RHO_2D |
I locPres, tFld, sFld, |
|
./model/src/find_rho.F |
223 |
FIND_RHO_2D |
I locPres, tFld, sFld, |
|
./model/src/find_rho.F |
255 |
FIND_RHOP0 |
I tFld, sFld, |
|
./model/src/find_rho.F |
279 |
FIND_RHOP0 |
_RL sFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/find_rho.F |
29 |
FIND_RHO_2D |
I tFld, sFld, |
|
./model/src/find_rho.F |
324 |
FIND_RHOP0 |
s = sFld(i,j) |
|
./model/src/find_rho.F |
392 |
FIND_BULKMOD |
I locPres, tFld, sFld, |
|
./model/src/find_rho.F |
418 |
FIND_BULKMOD |
_RL sFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/find_rho.F |
477 |
FIND_BULKMOD |
s = sFld(i,j) |
|
./model/src/find_rho.F |
574 |
FIND_RHONUM |
I locPres, tFld, sFld, |
|
./model/src/find_rho.F |
59 |
FIND_RHO_2D |
_RL sFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/find_rho.F |
601 |
FIND_RHONUM |
_RL sFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/find_rho.F |
615 |
FIND_RHONUM |
s1 = sFld(i,j) |
|
./model/src/find_rho.F |
640 |
FIND_RHODEN |
I locPres, tFld, sFld, |
|
./model/src/find_rho.F |
667 |
FIND_RHODEN |
_RL sFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/find_rho.F |
683 |
FIND_RHODEN |
s1 = sFld(i,j) |
|
./model/src/find_rho.F |
723 |
FIND_RHOTEOS |
I locPres, tFld, sFld, |
|
./model/src/find_rho.F |
750 |
FIND_RHOTEOS |
_RL sFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/find_rho.F |
766 |
FIND_RHOTEOS |
sa = sFld(i,j) |
|
./model/src/find_rho.F |
89 |
FIND_RHO_2D |
U sFld, |
|
./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/ini_eos.F |
362 |
EOS_CHECK |
_RL sFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/ini_eos.F |
483 |
EOS_CHECK |
sFld(i,j) = sLoc(kcheck) |
|
./model/src/ini_eos.F |
489 |
EOS_CHECK |
I tFld, sFld, |
|
./model/src/ini_eos.F |
499 |
EOS_CHECK |
I pFld, tFld, sFld, |
|
./model/src/ini_eos.F |
526 |
EOS_CHECK |
& 'rho(', sFld(i,j), ' PSU,', |
|
./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), |
|
./pkg/bbl/bbl_calc_rho.F |
10 |
BBL_CALC_RHO |
I tFld, sFld, |
|
./pkg/bbl/bbl_calc_rho.F |
54 |
BBL_CALC_RHO |
_RL sFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/bbl/bbl_calc_rho.F |
74 |
BBL_CALC_RHO |
I sFld(1-OLx,1-OLy,k,bi,bj), |
|
./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) |