| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
1000 |
NO PROCEDURE |
& atm_Cp, atm_Rd, atm_kappa, atm_Rq, atm_Po, |
|
./model/inc/PARAMS.h |
1003 |
NO PROCEDURE |
_RL atm_Po, atm_Cp, atm_Rd, atm_kappa, atm_Rq |
|
./model/src/apply_forcing.F |
563 |
APPLY_FORCING_T |
IF ( fluidIsAir .AND. atm_Rq.NE.zeroRL .AND. Nr.NE.1 ) THEN |
|
./model/src/apply_forcing.F |
589 |
APPLY_FORCING_T |
tmpVar(i,j) = wVel(i,j,kc,bi,bj)*delPI*atm_Rq |
|
./model/src/apply_forcing.F |
602 |
APPLY_FORCING_T |
& + wVel(i,j,kp,bi,bj)*delPI*atm_Rq |
|
./model/src/calc_phi_hyd.F |
448 |
CALC_PHI_HYD |
& *( sFld(i,j,k,bi,bj)*atm_Rq + oneRL ) |
|
./model/src/config_summary.F |
297 |
CONFIG_SUMMARY |
CALL WRITE_0D_RL( atm_Rq, INDEX_NONE, 'atm_Rq = ', |
|
./model/src/do_atmospheric_phys.F |
94 |
DO_ATMOSPHERIC_PHYS |
& *( salt(i,j,k,bi,bj)*atm_Rq + oneRL ) |
|
./model/src/do_oceanic_phys.F |
815 |
DO_OCEANIC_PHYS |
& *( salt(i,j,k,bi,bj)*atm_Rq + oneRL ) |
|
./model/src/external_forcing.F |
435 |
EXTERNAL_FORCING_T |
IF ( fluidIsAir .AND. atm_Rq.NE.zeroRL .AND. Nr.NE.1 ) THEN |
|
./model/src/external_forcing.F |
461 |
EXTERNAL_FORCING_T |
tmpVar(i,j) = wVel(i,j,kc,bi,bj)*delPI*atm_Rq |
|
./model/src/external_forcing.F |
474 |
EXTERNAL_FORCING_T |
& + wVel(i,j,kp,bi,bj)*delPI*atm_Rq |
|
./model/src/find_rho.F |
1167 |
FIND_RHO_SCALAR |
theta_v = tLoc*( sLoc*atm_Rq + oneRL ) |
|
./model/src/find_rho.F |
251 |
FIND_RHO_2D |
theta_v = tFld(i,j)*( sFld(i,j)*atm_Rq + oneRL ) |
|
./model/src/ini_parms.F |
199 |
INI_PARMS |
& HeatCapacity_Cp, celsius2K, atm_Cp, atm_Rd, atm_Rq, atm_Po, |
|
./verification/rotating_tank/code/apply_forcing.F |
566 |
APPLY_FORCING_T |
IF ( fluidIsAir .AND. atm_Rq.NE.zeroRL .AND. Nr.NE.1 ) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
592 |
APPLY_FORCING_T |
tmpVar(i,j) = wVel(i,j,kc,bi,bj)*delPI*atm_Rq |
|
./verification/rotating_tank/code/apply_forcing.F |
605 |
APPLY_FORCING_T |
& + wVel(i,j,kp,bi,bj)*delPI*atm_Rq |
|
./model/src/set_defaults.F |
277 |
SET_DEFAULTS |
atm_Rq = 0. _d 0 |
|
./model/src/set_parms.F |
222 |
SET_PARMS |
IF ( eosType.EQ.'IDEALG' .AND. atm_Rq.EQ.0. ) THEN |