| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
645 |
NO PROCEDURE |
& rhoConstFresh, convertEmP2rUnit, tRef, sRef, phiRef, dBdrRef, |
|
./model/inc/PARAMS.h |
737 |
NO PROCEDURE |
_RL sRef(Nr) |
|
./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 |
|
./model/src/ini_salt.F |
56 |
INI_SALT |
salt(I,J,K,bi,bj) = sRef(K) |
|
./model/src/ini_salt.F |
81 |
INI_SALT |
IF ( sRef(k).NE.0. ) THEN |
|
./model/src/find_rho.F |
631 |
FIND_RHO_SCALAR |
& sBeta *(sLoc-sRef(1)) |
|
./model/src/find_rho.F |
84 |
FIND_RHO |
refSalt=sRef(kRef) |
|
./verification/advect_xy/code/ini_salt.F |
51 |
INI_SALT |
salt(I,J,K,bi,bj) = sRef(K) |
|
./verification/advect_xy/code/ini_salt.F |
52 |
INI_SALT |
IF (rD.LE.60.E3) salt(I,J,K,bi,bj) = sRef(K)+1. |
|
./verification/advect_xy/code/ini_salt.F |
75 |
INI_SALT |
& .AND. sRef(k).NE.0.) THEN |
|
./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_linear_phisurf.F |
112 |
INI_LINEAR_PHISURF |
I tRef(k), sRef(k), pLoc, |
|
./verification/internal_wave/code/obcs_calc.F |
160 |
OBCS_CALC |
OBNs(I,K,bi,bj)=sRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
180 |
OBCS_CALC |
OBSs(I,K,bi,bj)=sRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
87 |
OBCS_CALC |
OBEs(J,K,bi,bj)=sRef(K) |
|
./model/src/ini_parms.F |
166 |
INI_PARMS |
& tRef, sRef, eosType, integr_GeoPot, selectFindRoSurf, |
|
./model/src/ini_parms.F |
371 |
INI_PARMS |
sRef(k) = UNSET_RL |
|
./model/src/ini_parms.F |
476 |
INI_PARMS |
IF (sRef(k).EQ.UNSET_RL) sRef(k) = tracerDefault |
|
./model/src/ini_parms.F |
477 |
INI_PARMS |
tracerDefault = sRef(k) |
|
./verification/dome/code/obcs_calc.F |
111 |
OBCS_CALC |
OBEs(J,K,bi,bj)=sRef(K) |
|
./verification/dome/code/obcs_calc.F |
192 |
OBCS_CALC |
OBNs(I,K,bi,bj)=sRef(K) + 1.0*(1.0 - Fz) |
|
./verification/dome/code/obcs_calc.F |
212 |
OBCS_CALC |
OBSs(I,K,bi,bj)=sRef(K) |
|
./model/src/config_summary.F |
95 |
CONFIG_SUMMARY |
CALL WRITE_1D_R8( sRef, Nr, INDEX_K,'sRef =', |
|
./model/src/ini_phiref.F |
102 |
INI_PHIREF |
I tRef(k), sRef(k), pLoc, |
|
./model/src/ini_phiref.F |
108 |
INI_PHIREF |
dBdrRef(k) = ( sBeta *(sRef(k)-sRef(k-1)) |
|
./model/src/ini_phiref.F |
122 |
INI_PHIREF |
I tRef(k), sRef(k), pLoc, |
|
./model/src/ini_phiref.F |
132 |
INI_PHIREF |
I tRef(k-1), sRef(k-1), pLoc, |
|
./model/src/ini_phiref.F |
135 |
INI_PHIREF |
I tRef(k), sRef(k), pLoc, |
|
./model/src/ini_phiref.F |
89 |
INI_PHIREF |
I tRef(k), sRef(k), pLoc, |
|
./model/src/ini_phiref.F |
99 |
INI_PHIREF |
I tRef(k-1), sRef(k-1), pLoc, |
|
./pkg/opps/opps_calc.F |
527 |
OPPS_CALC |
& sBeta *(sLoc-sRef(kRef)) |
|
./pkg/obcs/obcs_calc.F |
116 |
OBCS_CALC |
OBWs(J,K,bi,bj)=sRef(K) |
|
./pkg/obcs/obcs_calc.F |
151 |
OBCS_CALC |
OBNs(I,K,bi,bj)=sRef(K) |
|
./pkg/obcs/obcs_calc.F |
186 |
OBCS_CALC |
OBSs(I,K,bi,bj)=sRef(K) |
|
./pkg/obcs/obcs_calc.F |
81 |
OBCS_CALC |
OBEs(J,K,bi,bj)=sRef(K) |