File |
Line number |
Procedure |
Code |
./model/src/config_summary.F |
95 |
CONFIG_SUMMARY |
CALL WRITE_1D_R8( sRef, Nr, INDEX_K,'sRef =', |
./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) |
./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) |
./verification/exp4/code/obcs_calc.F |
116 |
OBCS_CALC |
OBNs(I,K,bi,bj)=sRef(K) |
./verification/exp4/code/obcs_calc.F |
143 |
OBCS_CALC |
OBSs(I,K,bi,bj)=sRef(K) |
./verification/exp4/code/obcs_calc.F |
62 |
OBCS_CALC |
OBEs(J,K,bi,bj)=sRef(K) |
./verification/exp4/code/obcs_calc.F |
89 |
OBCS_CALC |
OBWs(J,K,bi,bj)=sRef(K) |
./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-aqualev10/code/ini_salt.F |
130 |
INI_SALT |
& .AND. sRef(k).NE.0.) THEN |
./verification/fizhi-cs-aqualev10/code/ini_salt.F |
89 |
INI_SALT |
salt(I,J,K,bi,bj) = sRef(K) |
./model/src/find_rho.F |
84 |
FIND_RHO |
refSalt=sRef(kRef) |
./model/src/ini_parms.F |
150 |
INI_PARMS |
& tRef, sRef, eosType, integr_GeoPot, selectFindRoSurf, |
./model/inc/PARAMS.h |
592 |
NO PROCEDURE |
& rhoConstFresh, convertEmP2rUnit, tRef, sRef, |
./model/inc/PARAMS.h |
684 |
NO PROCEDURE |
_RL sRef(Nr) |
./model/src/ini_salt.F |
56 |
INI_SALT |
salt(I,J,K,bi,bj) = sRef(K) |
./model/src/ini_salt.F |
80 |
INI_SALT |
IF ( sRef(k).NE.0. ) THEN |