| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
943 |
NO PROCEDURE |
& atm_Cp, atm_Rd, atm_kappa, atm_Rq, atm_Po, |
|
./model/inc/PARAMS.h |
946 |
NO PROCEDURE |
_RL atm_Po, atm_Cp, atm_Rd, atm_kappa, atm_Rq |
|
./model/src/apply_forcing.F |
549 |
APPLY_FORCING_T |
IF ( fluidIsAir .AND. atm_Rq.NE.zeroRL .AND. Nr.NE.1 ) THEN |
|
./model/src/apply_forcing.F |
575 |
APPLY_FORCING_T |
tmpVar(i,j) = wVel(i,j,kc,bi,bj)*delPI*atm_Rq |
|
./model/src/apply_forcing.F |
588 |
APPLY_FORCING_T |
& + wVel(i,j,kp,bi,bj)*delPI*atm_Rq |
|
./model/src/calc_phi_hyd.F |
443 |
CALC_PHI_HYD |
& *( sFld(i,j,k,bi,bj)*atm_Rq + oneRL ) |
|
./model/src/config_summary.F |
275 |
CONFIG_SUMMARY |
CALL WRITE_0D_RL( atm_Rq, INDEX_NONE, 'atm_Rq = ', |
|
./model/src/do_atmospheric_phys.F |
80 |
DO_ATMOSPHERIC_PHYS |
& *( salt(i,j,k,bi,bj)*atm_Rq + oneRL ) |
|
./model/src/do_oceanic_phys.F |
713 |
DO_OCEANIC_PHYS |
& *( salt(i,j,k,bi,bj)*atm_Rq + oneRL ) |
|
./model/src/external_forcing.F |
436 |
EXTERNAL_FORCING_T |
IF ( fluidIsAir .AND. atm_Rq.NE.zeroRL .AND. Nr.NE.1 ) THEN |
|
./model/src/external_forcing.F |
462 |
EXTERNAL_FORCING_T |
tmpVar(i,j) = wVel(i,j,kc,bi,bj)*delPI*atm_Rq |
|
./model/src/external_forcing.F |
475 |
EXTERNAL_FORCING_T |
& + wVel(i,j,kp,bi,bj)*delPI*atm_Rq |
|
./model/src/ini_parms.F |
190 |
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 |
268 |
SET_DEFAULTS |
atm_Rq = 0. _d 0 |
|
./model/src/set_parms.F |
219 |
SET_PARMS |
IF ( eosType.EQ.'IDEALG' .AND. atm_Rq.EQ.0. ) THEN |