| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
2625 |
SRCLOUDS |
_RL ratio, temp, elocp |
|
./pkg/fizhi/fizhi_moist.F |
2657 |
SRCLOUDS |
ratio = alpha*(rh-rhcrit)/offset |
|
./pkg/fizhi/fizhi_moist.F |
2659 |
SRCLOUDS |
if(cloud(i,L).eq. 0.0 .and. ratio.gt.0.0 ) then |
|
./pkg/fizhi/fizhi_moist.F |
2660 |
SRCLOUDS |
cloud(i,L) = min( ratio,1.0 _d 0) |
|
./pkg/kpp/kpp_routines.F |
1005 |
RI_IWMIX |
ratio = min ( (BVSQcon - Rig) / BVSQcon, c1 ) |
|
./pkg/kpp/kpp_routines.F |
1006 |
RI_IWMIX |
fcon = c1 - ratio * ratio |
|
./pkg/kpp/kpp_routines.F |
1012 |
RI_IWMIX |
ratio = min ( Rig / Riinfty , c1 ) |
|
./pkg/kpp/kpp_routines.F |
1013 |
RI_IWMIX |
fRi = c1 - ratio * ratio |
|
./pkg/kpp/kpp_routines.F |
934 |
RI_IWMIX |
_RL ratio |
|
./pkg/ecco/ecco_cost_weights.F |
1935 |
ECCO_COST_WEIGHTS |
& ratio/wobcsn(k,iobcs)/wobcsn(k,iobcs) |
|
./pkg/ecco/ecco_cost_weights.F |
1943 |
ECCO_COST_WEIGHTS |
& ratio/wobcss(k,iobcs)/wobcss(k,iobcs) |
|
./pkg/ecco/ecco_cost_weights.F |
1951 |
ECCO_COST_WEIGHTS |
& ratio/wobcsw(k,iobcs)/wobcsw(k,iobcs) |
|
./pkg/ecco/ecco_cost_weights.F |
1959 |
ECCO_COST_WEIGHTS |
& ratio/wobcse(k,iobcs)/wobcse(k,iobcs) |
|
./pkg/ecco/ecco_cost_weights.F |
278 |
ECCO_COST_WEIGHTS |
read(gwunit,*) ratio |
|
./pkg/ecco/ecco_cost_weights.F |
316 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = ratio/wtheta(k,bi,bj)/wtheta(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
321 |
ECCO_COST_WEIGHTS |
wsalt(k,bi,bj) = ratio/wsalt(k,bi,bj)/wsalt(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
69 |
ECCO_COST_WEIGHTS |
_RL ratio |