| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
825 |
NO PROCEDURE |
& thetaConst, tRef, sRef, pRef4EOS, phiRef, dBdrRef, |
|
./model/inc/PARAMS.h |
934 |
NO PROCEDURE |
_RL sRef(Nr) |
|
./model/src/apply_forcing.F |
897 |
APPLY_FORCING_S |
& *( salt_addMass - sRef(k) ) |
|
./model/src/config_summary.F |
117 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( sRef, Nr, INDEX_K, 'sRef =', |
|
./pkg/obcs/obcs_calc.F |
122 |
OBCS_CALC |
OBEs(j,k,bi,bj)=sRef(k) |
|
./pkg/obcs/obcs_calc.F |
172 |
OBCS_CALC |
OBWs(j,k,bi,bj)=sRef(k) |
|
./pkg/obcs/obcs_calc.F |
206 |
OBCS_CALC |
OBNs(i,k,bi,bj)=sRef(k) |
|
./pkg/obcs/obcs_calc.F |
240 |
OBCS_CALC |
OBSs(i,k,bi,bj)=sRef(k) |
|
./model/src/external_forcing.F |
726 |
EXTERNAL_FORCING_S |
& *( salt_addMass - sRef(kLev) ) |
|
./model/src/find_rho.F |
101 |
FIND_RHO_2D |
refSalt=sRef(kRef) |
|
./model/src/find_rho.F |
940 |
FIND_RHO_SCALAR |
& sBeta *(sLoc-sRef(1)) |
|
./model/src/ini_linear_phisurf.F |
120 |
INI_LINEAR_PHISURF |
I sRef(kSurfC(i,j,bi,bj)), |
|
./model/src/ini_linear_phisurf.F |
126 |
INI_LINEAR_PHISURF |
I tRef(k), sRef(k), pLoc, |
|
./model/src/ini_parms.F |
197 |
INI_PARMS |
& tRef, sRef, tRefFile, sRefFile, rhoRefFile, |
|
./model/src/ini_salt.F |
61 |
INI_SALT |
salt(i,j,k,bi,bj) = sRef(k) |
|
./model/src/ini_salt.F |
98 |
INI_SALT |
IF ( sRef(k).NE.0. ) THEN |
|
./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 |
97 |
INI_SALT |
IF ( sRef(k).NE.0. ) THEN |
|
./verification/dome/code/obcs_calc.F |
119 |
OBCS_CALC |
OBEs(J,K,bi,bj)=sRef(K) |
|
./verification/dome/code/obcs_calc.F |
199 |
OBCS_CALC |
OBNs(I,K,bi,bj)=sRef(K) + 1. _d 0*(1. _d 0 - Fz) |
|
./verification/dome/code/obcs_calc.F |
219 |
OBCS_CALC |
OBSs(I,K,bi,bj)=sRef(K) |
|
./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/load_ref_files.F |
102 |
LOAD_REF_FILES |
CALL READ_GLVEC_RL( sRefFile, ' ', sRef, Nr, 1, myThid ) |
|
./model/src/load_ref_files.F |
85 |
LOAD_REF_FILES |
IF (sRef(k).EQ.UNSET_RL) sRef(k) = tracerDefault |
|
./model/src/load_ref_files.F |
86 |
LOAD_REF_FILES |
tracerDefault = sRef(k) |
|
./model/src/load_ref_files.F |
91 |
LOAD_REF_FILES |
IF (sRef(k).NE.UNSET_RL) THEN |
|
./verification/internal_wave/code/obcs_calc.F |
171 |
OBCS_CALC |
OBNs(I,K,bi,bj)=sRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
191 |
OBCS_CALC |
OBSs(I,K,bi,bj)=sRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
98 |
OBCS_CALC |
OBEs(J,K,bi,bj)=sRef(K) |
|
./verification/rotating_tank/code/apply_forcing.F |
954 |
APPLY_FORCING_S |
& *( salt_addMass - sRef(k) ) |
|
./model/src/set_defaults.F |
67 |
SET_DEFAULTS |
sRef(k) = UNSET_RL |
|
./model/src/set_ref_state.F |
172 |
SET_REF_STATE |
I tRef(k), sRef(k), pLoc, |
|
./model/src/set_ref_state.F |
184 |
SET_REF_STATE |
I tRef, sRef, maxResid, |
|
./model/src/set_ref_state.F |
193 |
SET_REF_STATE |
I tRef(k-1), sRef(k-1), pLoc, |
|
./model/src/set_ref_state.F |
196 |
SET_REF_STATE |
I tRef(k), sRef(k), pLoc, |
|
./model/src/set_ref_state.F |
202 |
SET_REF_STATE |
dBdrRef(k) = ( sBeta *(sRef(k)-sRef(k-1)) |
|
./model/src/set_ref_state.F |
216 |
SET_REF_STATE |
I tRef(k), sRef(k), pLoc, |
|
./model/src/set_ref_state.F |
225 |
SET_REF_STATE |
I tRef(k-1), sRef(k-1), pLoc, |
|
./model/src/set_ref_state.F |
228 |
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 |