| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
741 |
NO PROCEDURE |
& rhoConstFresh, rho1Ref, tRef, sRef, phiRef, dBdrRef, |
|
./model/inc/PARAMS.h |
840 |
NO PROCEDURE |
_RL sRef(Nr) |
|
./pkg/obcs/obcs_calc.F |
117 |
OBCS_CALC |
OBEs(J,K,bi,bj)=sRef(K) |
|
./pkg/obcs/obcs_calc.F |
169 |
OBCS_CALC |
OBWs(J,K,bi,bj)=sRef(K) |
|
./pkg/obcs/obcs_calc.F |
204 |
OBCS_CALC |
OBNs(I,K,bi,bj)=sRef(K) |
|
./pkg/obcs/obcs_calc.F |
239 |
OBCS_CALC |
OBSs(I,K,bi,bj)=sRef(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
439 |
OBCS_CALC_STEVENS |
OBNs(I,K,bi,bj)=sRef(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
475 |
OBCS_CALC_STEVENS |
OBSs(I,K,bi,bj)=sRef(K) |
|
./pkg/opps/opps_calc.F |
527 |
OPPS_CALC |
& sBeta *(sLoc-sRef(kRef)) |
|
./model/src/config_summary.F |
95 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( sRef, Nr, INDEX_K, 'sRef =', |
|
./model/src/external_forcing.F |
493 |
EXTERNAL_FORCING_S |
& *( salt_addMass - sRef(kLev) ) |
|
./model/src/find_rho.F |
633 |
FIND_RHO_SCALAR |
& sBeta *(sLoc-sRef(1)) |
|
./model/src/find_rho.F |
95 |
FIND_RHO_2D |
refSalt=sRef(kRef) |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
115 |
INI_LINEAR_PHISURF |
I sRef(ksurfC(I,J,bi,bj)), |
|
./verification/advect_xy/code/ini_salt.F |
58 |
INI_SALT |
salt(i,j,k,bi,bj) = sRef(k) |
|
./verification/advect_xy/code/ini_salt.F |
69 |
INI_SALT |
IF ( rD.LE.60. _d 3 ) salt(i,j,k,bi,bj) = sRef(k)+1. _d 0 |
|
./verification/advect_xy/code/ini_salt.F |
94 |
INI_SALT |
IF ( sRef(k).NE.0. ) THEN |
|
./verification/dome/code/obcs_calc.F |
114 |
OBCS_CALC |
OBEs(J,K,bi,bj)=sRef(K) |
|
./verification/dome/code/obcs_calc.F |
194 |
OBCS_CALC |
OBNs(I,K,bi,bj)=sRef(K) + 1. _d 0*(1. _d 0 - Fz) |
|
./verification/dome/code/obcs_calc.F |
214 |
OBCS_CALC |
OBSs(I,K,bi,bj)=sRef(K) |
|
./model/src/ini_linear_phisurf.F |
177 |
INI_LINEAR_PHISURF |
I tRef(k), sRef(k), pLoc, |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
130 |
INI_SALT |
& .AND. sRef(k).NE.0.) THEN |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
89 |
INI_SALT |
salt(I,J,K,bi,bj) = sRef(K) |
|
./model/src/ini_parms.F |
170 |
INI_PARMS |
& tRef, sRef, tRefFile, sRefFile, rhoRefFile, |
|
./model/src/ini_parms.F |
341 |
INI_PARMS |
sRef(k) = UNSET_RL |
|
./model/src/ini_salt.F |
60 |
INI_SALT |
salt(i,j,k,bi,bj) = sRef(k) |
|
./model/src/ini_salt.F |
97 |
INI_SALT |
IF ( sRef(k).NE.0. ) THEN |
|
./verification/internal_wave/code/obcs_calc.F |
162 |
OBCS_CALC |
OBNs(I,K,bi,bj)=sRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
182 |
OBCS_CALC |
OBSs(I,K,bi,bj)=sRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
89 |
OBCS_CALC |
OBEs(J,K,bi,bj)=sRef(K) |
|
./model/src/load_ref_files.F |
100 |
LOAD_REF_FILES |
CALL READ_GLVEC_RL( sRefFile, ' ', sRef, Nr, 1, myThid ) |
|
./model/src/load_ref_files.F |
83 |
LOAD_REF_FILES |
IF (sRef(k).EQ.UNSET_RL) sRef(k) = tracerDefault |
|
./model/src/load_ref_files.F |
84 |
LOAD_REF_FILES |
tracerDefault = sRef(k) |
|
./model/src/load_ref_files.F |
89 |
LOAD_REF_FILES |
IF (sRef(k).NE.UNSET_RL) THEN |
|
./model/src/set_ref_state.F |
115 |
SET_REF_STATE |
I tRef(k), sRef(k), pLoc, |
|
./model/src/set_ref_state.F |
124 |
SET_REF_STATE |
I tRef(k-1), sRef(k-1), pLoc, |
|
./model/src/set_ref_state.F |
127 |
SET_REF_STATE |
I tRef(k), sRef(k), pLoc, |
|
./model/src/set_ref_state.F |
133 |
SET_REF_STATE |
dBdrRef(k) = ( sBeta *(sRef(k)-sRef(k-1)) |
|
./model/src/set_ref_state.F |
147 |
SET_REF_STATE |
I tRef(k), sRef(k), pLoc, |
|
./model/src/set_ref_state.F |
156 |
SET_REF_STATE |
I tRef(k-1), sRef(k-1), pLoc, |
|
./model/src/set_ref_state.F |
159 |
SET_REF_STATE |
I tRef(k), sRef(k), pLoc, |
|
./model/src/tracers_iigw_correction.F |
92 |
TRACERS_IIGW_CORRECTION |
IF ( k.GT.1 ) dTr_k = (sRef(k) - sRef(k-1))*rkSign |
|
./model/src/tracers_iigw_correction.F |
93 |
TRACERS_IIGW_CORRECTION |
dTrp1 = (sRef(kp1) - sRef(k))*rkSign |