| File |
Line number |
Procedure |
Code |
|
./verification/dome/code/obcs_calc.F |
163 |
OBCS_CALC |
zt=(z(k) + Dmax - (hinit + Dmax))/(hinit+Dmax) |
|
./verification/dome/code/obcs_calc.F |
164 |
OBCS_CALC |
IF (zt.GE.(Rit/(2. _d 0 -Rit))) THEN |
|
./verification/dome/code/obcs_calc.F |
167 |
OBCS_CALC |
IF (zt.GE.(-Rit/(2.+Rit))) THEN |
|
./verification/dome/code/obcs_calc.F |
168 |
OBCS_CALC |
Fz=1. _d 0/Rit*zt/(zt+1. _d 0) + 0.5 _d 0 |
|
./verification/dome/code/obcs_calc.F |
46 |
OBCS_CALC |
_RL Width,x,Xcenter,Fz,zt,Rit |
|
./pkg/cheapaml/CHEAPAML.h |
104 |
NO PROCEDURE |
_RL zu, zt, zq |
|
./pkg/cheapaml/CHEAPAML.h |
90 |
NO PROCEDURE |
& zu, zt, zq, |
|
./pkg/cheapaml/cheapaml.F |
417 |
CHEAPAML |
ttt = Tair(i,j,bi,bj)-gamma_blk*(CheapHgrid(i,j,bi,bj)-zt) |
|
./pkg/cheapaml/cheapaml.F |
476 |
CHEAPAML |
ts=Tair(i,j,bi,bj)+gamma_blk*zt+celsius2K |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
126 |
CHEAPAML_COARE3_FLUX |
Dt=tsw-Tas-gamma_blk*zt !potential temperature difference. |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
145 |
CHEAPAML_COARE3_FLUX |
Ct=xkar/LOG(zt/zot10) ! Temperature transfer coefficient |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
165 |
CHEAPAML_COARE3_FLUX |
tsr=-(Dt)*xkar/(LOG(zt/zot10)-psit(zt/L10)) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
196 |
CHEAPAML_COARE3_FLUX |
& ' L,zu,zL,zt =', L, zu, zL, zt |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
213 |
CHEAPAML_COARE3_FLUX |
pst=psit(zt/L) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
215 |
CHEAPAML_COARE3_FLUX |
tsr=-(Dt)*xkar/(LOG(zt/zot)-psit(zt/L)) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
239 |
CHEAPAML_COARE3_FLUX |
& *xkar/(LOG(zt/zot10)-psit(zt/L10)) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
83 |
CHEAPAML_LANL_FLUX |
ht=zt |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
86 |
CHEAPAML_LANL_FLUX |
zref = zt |
|
./pkg/cheapaml/cheapaml_readparms.F |
120 |
CHEAPAML_READPARMS |
zt=zu |
|
./pkg/cheapaml/cheapaml_readparms.F |
39 |
CHEAPAML_READPARMS |
& dsolms,dsolmn,zu,zt,zq, |