| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
2622 |
SRCLOUDS |
_RL qs(irun,irise) |
|
./pkg/fizhi/fizhi_moist.F |
2648 |
SRCLOUDS |
call QSAT ( temp,pl(i,L),qs(i,L),dum,.false. ) |
|
./pkg/fizhi/fizhi_moist.F |
2654 |
SRCLOUDS |
rh = q(i,L)/qs(i,L) |
|
./pkg/fizhi/fizhi_moist.F |
2679 |
CTEI |
_RL getcon,cp,alhl,elocp,cpoel,t,p,s,qs,dqsdt,dq |
|
./pkg/fizhi/fizhi_moist.F |
2695 |
CTEI |
call QSAT ( t,p,qs,dqsdt,.true. ) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
127 |
CHEAPAML_COARE3_FLUX |
Dq=qs-q |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
234 |
CHEAPAML_COARE3_FLUX |
q100=qs+qsr*(LOG(100. _d 0/zoq)-psit(100. _d 0/L)) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
246 |
CHEAPAML_COARE3_FLUX |
& * qs*p0/(p0 -0.378 _d 0*es) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
64 |
CHEAPAML_COARE3_FLUX |
_RL u,q,Tas,tta,zi,es,qs,tsw |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
90 |
CHEAPAML_COARE3_FLUX |
qs = 0.62197 _d 0*es/(p0 -0.378 _d 0*es) |