| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_rayleigh.F |
46 |
RAYLEIGH |
_RL z(im,jm,lm) |
|
./pkg/fizhi/fizhi_rayleigh.F |
75 |
RAYLEIGH |
z(i,j,lm) = zsurf(i,j) + 0.5 * dz(i,j,lm) |
|
./pkg/fizhi/fizhi_rayleigh.F |
82 |
RAYLEIGH |
z(i,j,L) = z(i,j,L+1) + 0.5 * (dz(i,j,L)+dz(i,j,L+1)) |
|
./pkg/fizhi/fizhi_rayleigh.F |
90 |
RAYLEIGH |
rf(i,j,L) = dampcoef*(1+tanh((z(i,j,L)-50000.)/5000.))/86400. |
|
./pkg/fizhi/fizhi_turb.F |
2984 |
PHI |
if( z(i).ge.0.15 ) then |
|
./pkg/fizhi/fizhi_turb.F |
2996 |
PHI |
if( z(i).ge.0.15 ) then |
|
./verification/dome/code/obcs_calc.F |
163 |
OBCS_CALC |
zt=(z(k) + Dmax - (hinit + Dmax))/(hinit+Dmax) |
|
./verification/dome/code/obcs_calc.F |
44 |
OBCS_CALC |
_RL z(nr) |
|
./verification/dome/code/obcs_calc.F |
80 |
OBCS_CALC |
z(1) = -delR(1)/2. _d 0 |
|
./verification/dome/code/obcs_calc.F |
85 |
OBCS_CALC |
z(j) = z(j-1) - delR(j) |
|
./eesupp/src/mds_byteswapi4.F |
25 |
MDS_BYTESWAPI4 |
i32(i) = ishft(i.and. z'ff000000', -24) .or. |
|
./eesupp/src/mds_byteswapi4.F |
26 |
MDS_BYTESWAPI4 |
& ishft(i.and. z'00ff0000', -8) .or. |
|
./eesupp/src/mds_byteswapi4.F |
27 |
MDS_BYTESWAPI4 |
& ishft(i.and. z'0000ff00', 8) .or. |
|
./eesupp/src/mds_byteswapi4.F |
28 |
MDS_BYTESWAPI4 |
& ishft(i.and. z'000000ff', 24) |
|
./eesupp/src/mds_byteswapr4.F |
25 |
MDS_BYTESWAPR4 |
i32(i) = ishft(i.and. z'ff000000', -24) .or. |
|
./eesupp/src/mds_byteswapr4.F |
26 |
MDS_BYTESWAPR4 |
& ishft(i.and. z'00ff0000', -8) .or. |
|
./eesupp/src/mds_byteswapr4.F |
27 |
MDS_BYTESWAPR4 |
& ishft(i.and. z'0000ff00', 8) .or. |
|
./eesupp/src/mds_byteswapr4.F |
28 |
MDS_BYTESWAPR4 |
& ishft(i.and. z'000000ff', 24) |
|
./eesupp/src/mds_byteswapr8.F |
25 |
MDS_BYTESWAPR8 |
i64(i1) = ishft(i1 .and. z'ff00000000000000',-56).or. |
|
./eesupp/src/mds_byteswapr8.F |
26 |
MDS_BYTESWAPR8 |
& ishft(i1 .and. z'00ff000000000000',-40).or. |
|
./eesupp/src/mds_byteswapr8.F |
27 |
MDS_BYTESWAPR8 |
& ishft(i1 .and. z'0000ff0000000000',-24).or. |
|
./eesupp/src/mds_byteswapr8.F |
28 |
MDS_BYTESWAPR8 |
& ishft(i1 .and. z'000000ff00000000', -8).or. |
|
./eesupp/src/mds_byteswapr8.F |
29 |
MDS_BYTESWAPR8 |
& ishft(i1 .and. z'00000000ff000000', 8).or. |
|
./eesupp/src/mds_byteswapr8.F |
30 |
MDS_BYTESWAPR8 |
& ishft(i1 .and. z'0000000000ff0000', 24).or. |
|
./eesupp/src/mds_byteswapr8.F |
31 |
MDS_BYTESWAPR8 |
& ishft(i1 .and. z'000000000000ff00', 40).or. |
|
./eesupp/src/mds_byteswapr8.F |
32 |
MDS_BYTESWAPR8 |
& ishft(i1 .and. z'00000000000000ff', 56) |
|
./lsopt/lsline.F |
239 |
LSLINE |
z = xx(i) + tact*dd(i) |
|
./lsopt/lsline.F |
240 |
LSLINE |
if ((z.ne.xx(i)) .and. (z.ne.xdiff(i))) go to 950 |
|
./lsopt/lsline.F |
85 |
LSLINE |
double precision z, test, barr |