| File |
Line number |
Procedure |
Code |
|
./pkg/atm_phys/ATM_PHYS_PARAMS.h |
22 |
NO PROCEDURE |
_RL atmPhys_dampUVfac(Nr) |
|
./pkg/atm_phys/ATM_PHYS_PARAMS.h |
35 |
NO PROCEDURE |
& atmPhys_tauDampUV, atmPhys_dampUVfac |
|
./pkg/atm_phys/atm_phys_check.F |
59 |
ATM_PHYS_CHECK |
CALL WRITE_1D_RL( atmPhys_dampUVfac, Nr, INDEX_K, |
|
./pkg/atm_phys/atm_phys_readparms.F |
39 |
ATM_PHYS_READPARMS |
& atmPhys_tauDampUV, atmPhys_dampUVfac, |
|
./pkg/atm_phys/atm_phys_readparms.F |
62 |
ATM_PHYS_READPARMS |
atmPhys_dampUVfac(k) = 1. _d 0 |
|
./pkg/atm_phys/atm_phys_readparms.F |
88 |
ATM_PHYS_READPARMS |
atmPhys_dampUVfac(k) = 0. _d 0 |
|
./pkg/atm_phys/atm_phys_readparms.F |
92 |
ATM_PHYS_READPARMS |
atmPhys_dampUVfac(k) = atmPhys_dampUVfac(k)/atmPhys_tauDampUV |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
156 |
ATM_PHYS_TENDENCY_APPLY_V |
IF ( atmPhys_dampUVfac(k).GT.zeroRL ) THEN |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
160 |
ATM_PHYS_TENDENCY_APPLY_V |
& - maskS(i,j,k,bi,bj)*vVel(i,j,k,bi,bj)*atmPhys_dampUVfac(k) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
162 |
ATM_PHYS_TENDENCY_APPLY_V |
& - vVel(i,j,k,bi,bj)*vVel(i,j,k,bi,bj)*atmPhys_dampUVfac(k) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
70 |
ATM_PHYS_TENDENCY_APPLY_U |
IF ( atmPhys_dampUVfac(k).GT.zeroRL ) THEN |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
74 |
ATM_PHYS_TENDENCY_APPLY_U |
& - maskW(i,j,k,bi,bj)*uVel(i,j,k,bi,bj)*atmPhys_dampUVfac(k) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
76 |
ATM_PHYS_TENDENCY_APPLY_U |
& - uVel(i,j,k,bi,bj)*uVel(i,j,k,bi,bj)*atmPhys_dampUVfac(k) |